 
			
				12.11.2008, 17:58
			
			
			
		  
	 | 
	
		
		
		
			
			| 
			
				
				
				 Модератор 
				
				
			 | 
			  | 
			
				
				
					Регистрация: 17.04.2008 
					
					
					Сообщения: 8,111
 
				Версия 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; 
  
		
	
		
		
		
		
		
	
		
		
	
	
	 |