Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.15;
Скачать: 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 вся ветка

Текущий архив: 2002.07.15;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
1-47570
AlexanderSK
2002-06-27 12:39
2002.07.15
TBDEClientDataSet в Delphi6


8-47612
aach
2002-03-11 18:11
2002.07.15
Прозрачность формы


3-47069
MsGuns
2002-06-19 23:02
2002.07.15
Queryresult Usage


1-47297
how to make
2002-06-30 21:00
2002.07.15
Помагите пожалуйста как например из одного екзе выделить другой и


1-47345
kserg@ukr.net
2002-07-01 17:37
2002.07.15
TMenuItem - добавить новый элемент выпадающего меню