[Lazarus-es] Problema con archivos

[Hetor S. Ponce]

no me aepta esta instrucion... me dice que le faltan parametros...


JoshyFun escribió:
> 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 ?
>
>