Массив из Мемо

[inkvizitor]

Люди подскажите: В Мемо загружаем *.txt файл в нем 2 столбца вещественных данных типа: *,***** и *,*****Е-01
т.е. любые и дробные и с экспонентой
как разделить строку в Мемо т.е занести 1 столбец в динам. массив 1 , а 2-й столбец в динам массив 2?(:array of real);

[AVer]

Для каждой строки находим пробел. Все что до пробела в первый массив, все что после - во второй. Номер строки будет индексом элемента в массиве.

[Сильванович Михаил]

type
TMass = array of double;

procedure(var x,y: TMass; memo: TMemo);
var
i: integer;
s: string;
begin
SetLength(x,Memo.Lines.Count);
SetLength(y,Memo.Lines.Count);
for i:=0 to Length(x)-1 do
begin
s:=Memo.Lines.Strings[i];
x[i]:=StrToFloat(Copy(s,1,pos(' ',s)-1));
y[i]:=StrToFloat(Copy(s,pos(' ',s)+1,Length(s)-pos(' ',s)));
end;
end;

Все просто, как никогда...

[inkvizitor]

Люди спасибо что ответили. (Сильванович Михаил,AVer)
Но у меня еще один вопрос:
- два динамич. массива вещественных чисел равной длины (n)(полученных из Мемо) - надо :
1) произвести вычисления(неважно);
2) затем из первого массива отбрасываем первый элемент и дальше не используем его, а из второго массива последний отбрасываем(аналогично с первым не используем далее) производим вычисления;
3)затем из 1-го массива выбрасываем 2-й элемент,а из второго
(n-1) производим вычисления;
4)затем из 1-го массива выбрасываем 3-й элемент,а из второго
(n-2) производим вычисления;
**************** и т.д. до n/2(n div 2 +1);