Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Банальная работа с текстовиками и 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))




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.018 c
1-32217           Do№                   2002-01-24 19:27  2002.02.11  
Изменение регистра символов


3-32139           EternalWonderer       2002-01-14 16:33  2002.02.11  
Обращение к объектам чужой схемы в Oracle.


1-32284           micha                 2002-01-28 18:42  2002.02.11  
Серийный номер Delphi 6


1-32183           Mitrofan              2002-01-25 11:39  2002.02.11  
Как синхронно скролировать два Memo or ListBox a


1-32226           madcap                2002-01-27 01:26  2002.02.11  
Функция не возвращает TStringList