Uma maneira básica, existe maneiras mais rápidas e/ou mais inteligentes..
rsrs.... segue:
function TemIP(par_IP:String):Boolean;
var
var_Texto:TStringList;
Begin
var_Texto := TStringList.Create;
var_Texto.LoadFromFile('C:\MEULOG.TXT');
Result := (Pos(par_IP,var_Texto.Text)>0);
var_Texto.Free;
End;
Espero que te ajude
Abs e boa sorte...
Rodinei Amorim
Programador Delphi
(11) 8208-9503
rodinei_amo...@hotmail.com rodinei.amo...@terra.com.br
From: Filippe Info
Sent: Thursday, August 06, 2009 7:01 AM
To: delphi-br@yahoogrupos.com.br
Cc: lista-del...@yahoogrupos.com.br
Subject: [delphi-br] Localizar TXT
Olá Galera,
Preciso criar uma função que faça o seguinte.
Abra um arquivo TXT;
E dentro desse TXT localizar um texto, se encontrar resultar True,
Eu tenho um sistema que vai criando um log dos ip´s que estou utilizando, esse
log é criado em um TXT, porem da forma que eu fiz ele gera o log mesmo que o IP
continue o mesmo.
Preciso dessa função para antes de gravar o novo log veficar se o IP ja não
esta na lista. Caso retorne true eu não gravo novamente.
Obrigado,
Filippe Maymone
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
