Fórum Delphi comparar txt online com edit #533285
01/10/2015
0
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
Curtir tópico
+ 0
Responder
Posts
05/10/2015
Mateus Carvalho
Deixa eu ver se eu entendi. Você quer comparar um texto que está em um memo com um edit?
Att!
Att!
Responder
Gostei + 0
06/10/2015
Douglas
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:
Espero ter compreendido a sua necessidade.
Bons Códigos.
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.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)