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