(Resolvido) Undeclared Identifier TstringReader, Delphi 7

[Mario Lopes]

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;

 

Editado Fevereiro 12, 2018 por Mario Lopes
resolvido

[Jhonas]

TStringReader faz parte do pacote da rtl250.bpl disponivel no Delphi For.NET e do Delphi XE7 em diante

ou voce tenta baixar o arquivo da Net ou faz uma mudança no código para não usar o TSringReader

exemplo:

uses StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
   total:integer;
   lReader: String;
   linha,procura:string;
begin
   IdHTTP1 := TIdHTTP.Create(nil);
   IdHTTP1.Request.UserAgent :='Mozilla/5.0 (Windows NT 6.1; WOW64; rv:12.0) Gecko/20100101 Firefox/12.0';
   lReader := (IdHTTP1.Get(zquery1.FieldByName('http://ondequeroir.com').AsString));
   procura:='#CC0000;">';
   repeat
     linha := lReader;
      if AnsiContainsStr(linha,procura) then
      begin
               //faz a as tarefas
           break;
      end;
   until lReader = Null;
   showmessage('terminei');
end;

abraço

[Mario Lopes]

Perfeito, como sempre Jhonas