Pesquisar na Comunidade
Mostrando resultados para as tags ''tsgtringreader''.
Encontrado 1 registro
-
(Resolvido) Undeclared Identifier TstringReader, Delphi 7
uma questão postou Mario Lopes Delphi, Kylix
Viva Estou voltando a um programa antigo em Delphi 7 de deparo-me com este erro: Undeclared Identifier TstringReader Alguém ajuda, por favor? Eis o código procedure TForm1.Button1Click(Sender: TObject); var total:integer; lReader: TStringReader; linha,procura:string; begin lHTTP := TIdHTTP.Create(nil); lHTTP.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0'; lReader := TStringReader.Create(lHTTP.Get(zquery1.FieldByName('http://ondequeroir.com').AsString)); procura:='#CC0000;">'; repeat linha := lReader.ReadLine; if AnsiContainsStr(linha,procura) then begin //faz a as tarefas break; end; until lReader = Nil; end; showmessage('terminei'); end;