[Lazarus-es] Filesize

[Rubén Ibáñez]

Hola:
En mi anterior intervención me equivoqué, por lo que pido disculpas. Hice
pequeñas pruebitas y funciona perfectamente el FileSize. Adjunto los códigos
de los programitas para crear y para leer el archivo, con uso de FileSize.
He comprobado que el archivo tiene que estar abierto para que funcione.
Para crear el archivo:
program prueba;
type DatPart = record
         a: integer;
     b: real;
         end;

var    DP: DatPart;
         fi  : file of DatPart;

begin
    Assign(fi, 'prueba.prb');
    rewrite(fi);
    with DP do begin
    writeln('a?'); read(a);
    writeln('b?'); read(b);
    end;
    write(fi, DP);
    close(fi);
end.

Para leer el archivo:
program prueba02;
type DatPart = record
         a: integer;
     b: real;
         end;

var    DP: DatPart;
         fi  : file of DatPart;

begin
    Assign(fi, 'prueba.prb');
    reset(fi);
    read(fi, DP);
    with DP do begin
    write('a='); writeln(a);
    write('b='); writeln(b);
    end;
    write('tamaño del archivo = '); writeln(fileSize(fi));
    close(fi);
end.

Espero que sirva.
Un saludo.

2011/2/15 Anxo Vázquez <xanxov en esdebian.org>

> Hola.
>
> Tengo un problema con la función FileSize que en Pascal se utilizaba para
> conocer el tamaño de los archivos tipeados. Se que con Delphi funciona, pero
> no lo veo nada claro en Lazarus.
>
> Creo un archivo tipo de nombre DatPart.
>
>     type   DatPart = record
>                ...........
>            end;
>
> Creo la variable de archivo.
>
>     fi : File Of DatPart;
>
> En cuanto hago uso de ka función.
>
>   FileSize( fi );
>
> Parece esperar un AnsiString y recibe una var fichero.
>
> ciflet.pas(206,17) Error: Incompatible type for arg no. 1: Got "File Of
> DatPart", expected "AnsiString"
>
> Uso la versión 9.28.2-12 en Debian 6.0 Squeeze.
>
> ¿ Alguna idea, por favor ?.
>
> Un saludo.[?]
>
>
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110216/c4813bbc/attachment-0002.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: 323.gif
Type: image/gif
Size: 100 bytes
Desc: no disponible
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20110216/c4813bbc/attachment-0002.gif>