wczytywanie wielu liczb

0

chciałbym wczytać powiedzmy 100 000 liczb w 1 linii, oddzielonych spacjami.

jaki jest najlepszy sposób pooddzielania ich i zapisania do zmiennych integer?

ja zrobiłem tak , że linię wczytuję do zmiennej ansistring, potem w pętli rozdzielam liczby do zmiennych string, a potem funkcją val zamieniam stringi na integer. czy to dobra metoda? jaka jest najwydajniejsza?

0

TStringList, Delimieter, DelimietedText, StrToInt, StrToIntDef

0

sprobuj cos takiego

  var s: String;
      n: Integer;
begin
  while s <> '' do
  begin
    n := StrToInt(Copy(s,1,pos(' ',s)));
    Delete(s,1,Pos(' ',s));
  end;

mozesz uzyc dynamicznej tablicy array of integer

Czesto stosuje taki algorytm jesli chce wyciagnac z jakiegos ciagu znakow wartosci rodzielone konkretnymi znakami - w tym przypadku spacja. Kopjuje potrzebny fragment a reszte przesuwam w lewo (usuwam)

1 użytkowników online, w tym zalogowanych: 0, gości: 1