[Lazarus-es] Problema con archivos

JoshyFun joshyfun en gmail.com
Mie Oct 28 23:09:30 CET 2009


Hello Hetor,

Wednesday, October 28, 2009, 10:14:43 PM, you wrote:

HSP> Hola soy nuevo a la lista y me he topado con un inonveniente:
HSP> 1) cargo el TStringList sl_cola con el path de unos archivos
HSP> sl_cola:=FindFile(sl_props.values['rutadatos']+'\*.'+sl_props.values['extdatos']);
HSP> 2) a cada archivo tengo que leer la 1ra linea:
[...]
HSP>      begin
HSP>        {$i-}
HSP>        AssignFile(f, fname);
HSP>        Reset(f);
HSP>        {$I+}
HSP>        if IoResult=0 then
HSP>        begin
HSP>          ReadLn(f, s);
HSP>          result:=s;
HSP>          CloseFile(f);
HSP>        end
HSP>      end;
HSP>    end;                               
HSP> el problema es que me hace alternativamente un arhivo si y otro no....
HSP> al segundo archivo me dice error 103
[...]
HSP> es decir,  hacerle dos veces el reset.... es como si el closefile no
HSP> funcionara bien...
HSP> alguna sugerencia?????

Dios mio, no se como sois capaces de manejaros con los "file" de
Pascal, no hacen más que daros problemas a todos :) Con lo cómodos que
son los TStream... bueno, a lo que ibamos, digo yo que esta linea:

HSP>          CloseFile(f);

Será "Close(f)" no ?

-- 
Best regards,
 JoshyFun





More information about the Lazarus-es mailing list