Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];
ВнизБанальная работа с текстовиками и memo.... Найти похожие ветки
← →
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c