| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Банальная работа с текстовиками и memo....

Priz_Datiy ©   (2002-01-27 14:02:00) 

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

KAK!!!???

---

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

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

---

Anatoly Podgoretsky   (2002-01-27 14:13:00) [2]


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;


---

Наверх