Como leer de un fichero txt y comprobar ???

[chelejuan]

Buenas despues de bastantes meses haciendo un programa cuando ya esta listo el cliente me pide una mariconada nueva y no se como realizarla, y hasta que no este totalmente listo no me termina de pagar :mad::mad:

A ver necesito de un archivo que tengo abierto y en el cual estoy escribiendo en ese mismo momento poder mirar si existe un campo.

Yo en el fichero entre la posicion 35 y 40 meto un codigo unico, necesito comprobar que la linea que voy a meter el codigo no existe, si no existe meto la linea y si el codigo ya existe en el fichero no la meto.

Es decir yo he podido meter hace dos dias el codigo 3042 y ahora voy a volver a meterlo, por lo que no deberia meterlo, es que me esta duplicando codigos de facturas por que le dan varias veces al boton.

El fichero puede tener muchas lineas .... y encima esta abierto.

¿Como podria hacer esto? ¿ Se puede hacer?.

Venga un saludo y gracias anticipadas.

[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.