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;