из Memo в массив

[Brabus]

такая вот проблемка.. у меня есть Memo, в который загружается из файла последовательность чисел через пробел.
например 4 5 6 7 8 9 0.
как мне записать эту последовательность из Memo в одномерный массив типа Integer? помогите пожалуйста

[mMAg]

Пропарсить строку нужно. Если это делфи, то, к сожалению, стандартного парсера я там не знаю.
Да и на делфе писать лень, вот словесный код:
объявить переменную типа string, пусть будет стр
присвоить ей значение строки из мемо
позиция = 0
и от 1 до конец строки
начало
если пробел
то если позиция <> и
начало
число в массив = подстрока от позиция до и-1
позиция = и+1
конец
конец

[Serge_Bliznykov]

язык программирования то какой? Дельфи?
Массив статический или динамический?
числа разделяются только пробелами или могут быть другие разделители?
Строчек в мемо одна?
Числа только целые?


пример кода на Дельфи.
массив динамический. В строке допускаются Только целые числа разделённые любым количеством пробелов (если это не так — вылезет ошибка!)

procedure TForm1.Button1Click(Sender: TObject);
var
  A : array of integer;
  i, Cnt : integer;
  s, s0  : string;
begin
  s := Trim(Memo1.Lines[0])+' ';

  // посчитаем, сколько чисел в строчке
  Cnt := 0;
  while Pos(' ', s)>0 do begin
    Inc(Cnt);
    Delete(s,1,Pos(' ',s));

    {удалим дополнительные пробелы
      если пробелов между числами несколько}
    while (length(s)>1)
       and (s[1]=' ') do Delete(s,1,1);
  end;

  SetLength(A, Cnt);

  // запишем числа в массив
  s := Trim(Memo1.Lines[0])+' ';
  i := 0;
  while Pos(' ', s)>0 do begin
    s0 := Copy(s,1, Pos(' ',s)-1);
    A[i] := StrToInt(s0);
    inc(i);
    Delete(s,1,Pos(' ',s));
    while (length(s)>1)
       and (s[1]=' ') do Delete(s,1,1);
  end;


  // выведем массив (для проверки, в Edit1
  Edit1.Text := '';
  for i:=Low(A) to High(A) do
    Edit1.Text :=
       Edit1.Text + IntToStr(A[i])+' ; ';
end;

[Brabus]

Serge_Bliznykov, Вы прям экстрасенс спасибо Вам огромное