Delphi comparar txt online com edit

Delphi

01/10/2015

Olá gente boa, estou com um pequeno probleminha, Tenho que criar um programa que compara um nome no edit com um arquivo .txt onlinem fiz uma função para pegar o texto online que funcionou de boa, porém estou com problema na comparação.

function PegarTexto(aUrl : string) : string;
var
  IdHTTP : TIdHTTP;
  Stream : TStringStream;
begin
  IdHTTP := TIdHTTP.Create(nil);
  Stream := TStringStream.Create;
  try
    try
      IdHTTP.Get(aURL, Stream);
      Result := Stream.DataString;
    except
      Result := '';
    end;
  finally
    Stream.Free;
    IdHTTP.Free;
  end;
end;
Felipe

Felipe

Curtidas 0

Respostas

Mateus Carvalho

Mateus Carvalho

01/10/2015

Deixa eu ver se eu entendi. Você quer comparar um texto que está em um memo com um edit?

Att!
GOSTEI 0
Douglas

Douglas

01/10/2015

Olá Felipe, tudo bem?

Bem, você pode tentar o seguinte. Após capturar o texto com a sua função: "PegarTexto", utilize a função POS, para encontrar o que está escrito no seu edit dentro do texto capturado na internet pela sua função.

Ex:


var
  s : string;
begin
  s := PegarTexto('http://br.lipsum.com/');
  
 if POS(edit1.text, S) > 0 then
 begin
     ShowMessage('Palavra encontrada!')
 end;
end;


Espero ter compreendido a sua necessidade.

Bons Códigos.
GOSTEI 0
POSTAR