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

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

← →
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]

w

---

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

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



Память: 0.45 MB
Время: 0.008 c