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

Вниз

Загрузка информации из файла   Найти похожие ветки 

← →
StringList   (2002-02-13 20:19) [5]

procedure ExtractText(const FileName:string);
var
n,k:integer;
s:string;
SList:TStringList;
begin
SList:=TStringList.Create;
try
SList.LoadFromFile(FileName);
s:=SList.Text;
n:=Pos("begin",s);
if n > 0 then Inc(n,Length("begin"));
k:=Pos("end",s);
if (n > 0)and(k > 0)and(k > n) then
Memo1.Lines.Text:=Copy(s,n,k-n);
finally
SList.Free;
end;
end;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.007 c