Работа с текстовым файлом в Delphi

[Potemkin_42]

День добрый!
Помогите кто чем может!
Задача: есть текстовый файл, в котором 2 столбца с цифрами, количество строк не известно. Надо из файла загрузить в два массива, для дальнейшей работы., каждый столбец в отдельный массив.
Пробовал через Memo сделать, но не всегда работает.
Заранее благодарен.

[Serge_Bliznykov]

чем столбцы разделены? столбцы с числами или с цифрами?
если с числами - то в каком формате?
массивы динамические?

а вообще, или TextFile и обычный цикл
while not eof(f) do begin
Readln(f, s);
end;
или TS:=TStringList.Create; TS.LoadFromFile('имяфайл.txt');
и цикл по всем строкам: for i:=0 to TS.Count-1 do

[Potemkin_42]

в файле числа, выглядит примерно так:
1.234 -3.445
2.432 -7.433
3.560 4.231
между столбцами и перед первым столбцом пробелы.
Надо разбить на 2 массива.

[SERG1980]

procedure TForm1.Button1Click(Sender: TObject);
var mas1,mas2: array of real;
    SL:TStringList;
    i:integer;
    s:string;
begin
 SL:=TStringList.Create;
 SL.LoadFromFile('d:\1.txt');
 SetLength(mas1,SL.Count);
 SetLength(mas2,SL.Count);
 for i:=0 to SL.Count-1 do
  begin
   s:=StringReplace(SL[i],'.',',',[rfReplaceAll]);
   mas1[i]:=StrToFloat(Copy(s,1,Pos(' ',s)-1));
   mas2[i]:=StrToFloat(Copy(s,Pos(' ',s)+1,Length(s)-Pos(' ',s)));
  end;
 FreeAndNil(SL);
end;

[Potemkin_42]

попробовал, но чего он ругаться начал: "is not a valid floating point value"
Думал мож разделитель не такой, поменял и все равно вылазиет ошибка.

mas2[i]:=StrToFloat(Copy(SL[i],Pos(' ',SL[i])+1,Length(SL[i])-Pos(' ',SL[i]))); - где здесь ругается

[SERG1980]

поправил всё работает
в качестве примера брал
1.234 -3.445
2.432 -7.433
3.560 4.231

[Potemkin_42]

поправил всё работает
в качестве примера брал
1.234 -3.445
2.432 -7.433
3.560 4.231



че-то с пробелами не хочет работать

[SERG1980]

А что не работает то, у меня всё работает, можете ваш текстовый файл выложить?

[Potemkin_42]

выложил файл

[SERG1980]

Ну дык правильно в примере указываете одно а в файле другое

procedure TForm1.Button1Click(Sender: TObject);
var mas1,mas2: array of real;
    SL:TStringList;
    i:integer;
    s:string;
begin
 SL:=TStringList.Create;
 SL.LoadFromFile('d:\1.txt');
 SetLength(mas1,SL.Count);
 SetLength(mas2,SL.Count);
 for i:=0 to SL.Count-1 do
  begin
   s:=StringReplace(SL[i],'.',',',[rfReplaceAll]);
   s:=TrimLeft(s);
   mas1[i]:=StrToFloat(Copy(s,1,Pos(' ',s)-1));
   mas2[i]:=StrToFloat(Copy(s,Pos(' ',s)+1,Length(s)-Pos(' ',s)));
  end;
 FreeAndNil(SL);
end;