Подскажите plz как мне считать из одного файла два столбца и кажд

← →
RpO (2006-02-11 10:20) [0]

Подскажите plz как мне считать из одного файла два столбца и каждый в отдельный Memo компонент
Ето вот все в один, а в два даже не пойму, потому что разное кол –во пробелов между столбцами
while not eof(fn) do
begin
read(fn, s);
memo1.Lines.Add(s);

ВОТ этот файл
109.1 108.5
98.7 99.2
36.7 9.8
37.0 28.8
29.2 39.7
38.2 74.1
65.2 117.1

← →
API (2006-02-11 10:58) [1]

procedure {ClassName.}LoadTwoColumnsFromFile(const a_sFileName: string);
var
f: textfile;
src: string;
dst: string;
p: PChar;
ps: PChar;
begin
AssignFile(f, a_sFileName);
Reset(f);
while not EOF(F) do
begin
Readln(f, src);
p := PChar(src);

while (p^ in [ #1.." "]) do
p := CharNext(p);
ps := p;
while not (p^ in [ #0, " "]) do
p := CharNext(p);
SetString(dst, ps, p - ps);
Memo1.Lines.Add(dst);

while (p^ in [ #1.." "]) do
p := CharNext(p);
ps := p;
while not (p^ in [ #0, " "]) do
p := CharNext(p);
SetString(dst, ps, p - ps);
Memo2.Lines.Add(dst);
end;
end;

← →
Anatoly Podgoretsky © (2006-02-11 11:08) [2]

ReadLn(F, A, B)

← →
John_Doe (2006-02-11 11:17) [3]

> ReadLn(F, A, B)

Гениально и просто.
Потом "A" кинь в Memo1,а "B" кинь в Memo2.
Все это в цикле.

← →
Rp0 (2006-02-11 11:59) [4]

пасибо большое, все пашет как надо!

http://delphimaster.net/view/2-1139648478/

Подскажите plz как мне считать из одного файла два столбца и кажд Найти похожие ветки