
12.11.2008, 17:58
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
С примером...
Ну пусть так:
Код:
procedure TForm1.Button1Click(Sender : TObject);
var
SL : TStringList;
begin
SL := TStringList.Create;
Try
SL.Text := IdHTTP1.Get('http://server.com/abc.txt'); // здесь полный адрес твоего файла
If SL.Count = 0
Then ShowMessage('файл пуст')
Else
If AnsiCompareText(SL[SL.Count-1],'abc123') = 0 // Сравнение без учета регистра
Then ShoeMessage('В файле нужная строка!')
Else ShowMessage('В файле расположена строка: ' + SL[SL.Count-1]);
Finally
SL.Free;
End;
end;
|