Lazarusban hogyan olvashatok be több számot egy edit boxból?

Project - project options - load icon

Itt változtathatod meg az ikont.

Már megoldottátok de az strutils unit ExtractWord és WordCount függvényeivel gyorsabb lett volna. A wordcount a bementi string és az elválasztó karakter ismeretében visszaadja a szavak számát. A extractword egy adott sorszámú szót vesz ki a szövegből.

pl.:

procedure feldarabol;

uses sysutils, strutils;

var i, c : integer;

bemenet : ansistring;

szamok : array of integer; // Ez egy dinamikus tömb

begin

bemenet:= "3 4 5 2 6 3 7"; //olyan hosszú amilyenre akarod

c:= WordCount(bemenet,[(' ')]);

SetLength(szamok,c); // A tömb hosszát adja meg

for i:=1 to c do begin

szamok[i-1]:= ExtractWord(i,bemenet,[(' ')]);

// Az i-edik elemet a tömb (i-1)-edik helyére helyezi

// Ezzel a megoldással nem számít a számsor hossza

// A dinamikus tömb sorszámozása 0-tól kezdődik

end;

end;