Заполнение массива через Edit

[FennecFox]

Здравствуйте!

В общем, ситуация: есть массив из целочисленных элементов, который заполняется через Edit. Количество элементов изначально неизвестно (сколько введу - столько и будет), поэтому массив динамический, вот только перед заполнением все равно нужно установить его длину... Решаю вот так:

//Устанавливаю начальную длину массива равную длине Edit (в котором    есть пробелы)
  SetLength (a, Length (Input.Text));

  Stream:= TMemoryStream.Create;
  Stream.WriteBuffer(Input.Text[1], Length(Input.Text));
  Stream.Position:= 0;

  i:= 0;

  //Заполняю массив
  with TParser.Create(Stream) do...
    while Token <> toEof do
    begin
      a[i]:= StrToInt (TokenString);
      inc (i);
      NextToken;
    end;

  Stream.Free;

  //...и устанавливаю новую длину массива, уже с учетом удаленных пробелов
  SetLength (a, Length (Input.Text) - (Length (Input.Text) - i));

Все работает, но ощущение будто иду из Сибири в Китай через Москву... может быть есть другие способы? Заранее спасибо

[Stilet]

Хм...

  with TParser.Create(Stream) do...
    while Token <> toEof do
    begin
      SetLength (a, Length (a)+1);
      a[high(a)]:= StrToInt (TokenString);
      NextToken;
    end;

Подойдет?

[FennecFox]

Да, ваш вариант кажется логичнее Спасибо.

[Stilet]

логичнее

учти он более медленный чем твой вариант, хотя и выглядит короче.

[FennecFox]

Медленный потому, что длина устанавливается в цикле? Ничего, у меня массив небольшой, а на будущее учту...

[Stilet]

а на будущее учту

На том и порешили...

[chertovich]

FennecFox так что ты в массив хочешь добавить, я так и не понял?

[FennecFox]

так что ты в массив хочешь добавить

целые числа, которые я ввожу через Edit