Скачать: CL | DM;

Подскажите 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]

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

---

← →
TUser ©   (2006-02-11 14:01) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c