Filippe,
Tente algo assim:
Function Checa_IP(IP : String = '') : Boolean;
var
iPos : Integer;
aTexto : tStringList ;
begin
aTexto := tStringList.Create;
aTexto.LoadFromFile('MeuArquivodelog.txt');
iPos := aTexto.Indexof(IP);
FreeAndNil(aTexto);
Result iPos <>-1;
end;
Não testei mas ja deve te dar uma boa pista de como fazer.
Sucesso!!
Moacir
Filippe Info escreveu:
> 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]
>
>
>
> ------------------------------------
>
>
