![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#3
|
||||
|
||||
![]() Друг сказал сделать что то типа такого,
Код:
procedure TForm1.Button1Click(Sender: TObject); var List : TidHTTP; s : String; begin List := TidHTTP.Create(nil); try s := List.Get('http://www.desprado.org.ua/log/Test.txt'); except ShowMessage('Сообщение об ошибке'); end; FreeAndNil(List); if pos('Ваше искомое слово', s) <> 0 then ShowMessage('Слово нашлось') else ShowMessage('Слово не нашлось'); end; но я не знаю как отредактировать под свой код ![]() |