Загрузить из файла строки но до запятой

← →
Board (2002-06-27 19:12) [0]

Нужно из фалйа c:\file.txt загрузить содержимое в Memo1. Но загрузить только тот текст, который идёт до запятой. А тот, который после запятой, поместить в Edit1

← →
Anatoly Podgoretsky (2002-06-27 19:17) [1]

У тебя число сножественное (строки), а Edit1 однострочный орган!

← →
Board (2002-06-27 19:25) [2]

Нет. В файле c:\file.txt примерно такое содержание:
784н5ф78укнеышгнук6щыгшнкт7е6ы780у5ын67шаке
ыукеыкыпшщгнегшынегшыкнщшегынкеныкгше,000
И вот надо в Memo1 поместить текст до запятой, а тот текст после запятой (000) в Edit1, или в Label1

← →
Board (2002-06-27 19:37) [3]

Ну так как?

← →
Бурундук (2002-06-27 19:44) [4]

Примерно так:

repeat
ReadLn(f, s);
if Pos(",", s) = 0 then Memo1.Lines.Add(s) else
begin
p := Pos(",",s);
s1 := Copy(s, 1, p-1);
Memo1.Lines.Add(s1);
s2 := Copy(s, p+1, Length(s)-p);
Edit1.Text := s2;
Break;
end;
until Eof(f);

← →
RDA (2002-06-27 20:03) [5]

Загрузить из файла строки но до запятой Найти похожие ветки