Показать сообщение отдельно
  #5  
Старый 12.11.2008, 17:58
lmikle lmikle вне форума
Модератор
 
Регистрация: 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;
Ответить с цитированием