[Lazarus-es] Filesize

[Anxo Vázquez]

Gracias Rubeń:

La solución es  la que apuntó José, no hay más que sacar FileUtil de Uses.

Un saludo.

2011/2/16 Rubén Ibáñez <ruben.mariano.ibanez en gmail.com>

> 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
>>
>>
>
> _______________________________________________
> 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/20110217/01a0ebad/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/20110217/01a0ebad/attachment-0002.gif>