Como leer de un fichero txt y comprobar ???

[lgarcia]

Hola

De tu explicacion lo que se me ocurre es de antes de insertar algo en el fichero recorrer el mismo con la funcion pos() y dado que esta te devuelve la posicion de la ocurrencia de la cadena darle un tratamiento para que te de un mensaje de error y si no devuelve nada entonces puedes insertarlo.

Espero haberte ayudado en algo

Saludos
Luis Garcia

_____________________________
La mejor manera de decir es hacer

[chelejuan]

Al final lo hice asi :

while not EOF(f1) do
begin
Readln(f1, ch1);
a:= ch1;
a:=Copy(a,86,93);
a:= copy(a,1,8);

if codigofactura = a then
begin
existeenfichero := 1;

end;

end;

Parece uqe va, ahora tengo otro problema ( mucho mas tonto , es que no me acuerdo ) pero esto ya esta solucionado.

Venga gracias de todos modos. Un saludo.