Главная страница
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
14-47804
Igor_thief
2002-06-16 12:29
2002.07.15
Как отсортировать элементы в ListView по любой колонке? vsReport


1-47557
alxx
2002-06-27 12:11
2002.07.15
Масштаб метафайла


1-47584
AFROLOV
2002-06-28 11:43
2002.07.15
Ошибка при работе с DLL


14-47747
mvg_first
2002-06-12 14:49
2002.07.15
Хорошая помощь тем у кого проблемы с фантазией по построении фраз


7-47833
ah
2002-04-21 20:47
2002.07.15
использую компоненту ComPort Library version 2.60