Главная страница
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.019 c
1-47397
crosin
2002-07-02 12:37
2002.07.15
Проблема с копированием файлов.


4-47891
anod
2002-05-13 23:20
2002.07.15
Чтение из реестра


14-47761
Gu
2002-06-11 18:03
2002.07.15
Разгон монитора с 15 до 17


1-47296
FRecon
2002-06-28 15:33
2002.07.15
EInvalidPointer


6-47625
Сергей Л.
2002-04-26 21:29
2002.07.15
Как проверить открыт ли порт на удаленном компютере