Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

RpO © (2006-02-11 10:20:00)
Подскажите 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

TUser (2006-02-11 14:01:00) [1]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=18&id=1139648478

Rp0 (2006-02-11 11:59:00) [2]
пасибо большое, все пашет как надо!

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

> ReadLn(F, A, B)

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

Anatoly Podgoretsky (2006-02-11 11:08:00) [4]
ReadLn(F, A, B)

API (2006-02-11 10:58:00) [5]
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;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »