Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.11;
Скачать: CL | DM;

Вниз

Банальная работа с текстовиками и memo....   Найти похожие ветки 

 
Priz_Datiy   (2002-01-27 14:02) [0]

Имеем: текстовик набитый всяким дерьмом...
Нужно: загрузить из него текст с символов "RESU" по "END"

KAK!!!???


 
Anatoly Podgoretsky ©   (2002-01-27 14:13) [1]


Flag := TRUE;
while Flag do begin
ReadLn(F,S);
if pos("RESU")>0 then begin
Memo.Lines.Add(Copy(S,pos("RESU"),Length(S)));
Flag := False;
end;
end;
while not Flag do begin
ReadLn(F,S);
if pos("END")=0 then
Memo.Lines.Add(S);
else begin
Memo.Lines.Add(Copy(S,1,pos("END")+2));
Flag := False;
end;
end;


 
Vitaly Nevzorov   (2002-01-27 16:32) [2]

Memo2.text:=copy(memo1.text,pos("RESU",memo1.text),pos("END",memo1.text)-pos("RESU",memo1.text))



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

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

Наверх




Память: 0.46 MB
Время: 0.01 c
14-32344
Sheva
2001-12-20 15:30
2002.02.11
Подскажите, пожалуйста.


1-32199
BJValentine
2002-01-29 12:26
2002.02.11
Excel + Delphi=...


1-32229
hwber
2002-01-26 15:04
2002.02.11
QuickReport руссифмцировать Preview?


3-32159
NLO
2002-01-16 06:45
2002.02.11
Использование полей типа BLOB


14-32340
DarK sPiRiT
2001-12-22 18:26
2002.02.11
Бинарная очередь в Делфи