Gracias Rubeń:<br><br>La solución es  la que apuntó José, no hay más que sacar FileUtil de Uses.<br><br>Un saludo.<br><br><div class="gmail_quote">2011/2/16 Rubén Ibáñez <span dir="ltr"><<a href="mailto:ruben.mariano.ibanez@gmail.com">ruben.mariano.ibanez@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">Hola:<br>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.<br>

Para crear el archivo:<br>program prueba;<br>type DatPart = record<br>         a: integer;<br>     b: real;<br>         end;<br><br>var    DP: DatPart;<br>         fi  : file of DatPart;<br><br>begin<br>    Assign(fi, 'prueba.prb');<br>

    rewrite(fi);<br>    with DP do begin<br>    writeln('a?'); read(a);<br>    writeln('b?'); read(b);<br>    end;<br>    write(fi, DP);<br>    close(fi);<br>end.<br><br>Para leer el archivo:<br>program prueba02;<br>

type DatPart = record<br>         a: integer;<br>     b: real;<br>         end;<br><br>var    DP: DatPart;<br>         fi  : file of DatPart;<br><br>begin<br>    Assign(fi, 'prueba.prb');<br>    reset(fi);<br>    read(fi, DP);<br>

    with DP do begin<br>    write('a='); writeln(a);<br>    write('b='); writeln(b);<br>    end;<br>    write('tamaño del archivo = '); writeln(fileSize(fi));<br>    close(fi);<br>end.<br><br>Espero que sirva.<br>

Un saludo.<br><br><div class="gmail_quote"><div class="im">2011/2/15 Anxo Vázquez <span dir="ltr"><<a href="mailto:xanxov@esdebian.org" target="_blank">xanxov@esdebian.org</a>></span><br></div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

Hola.<div><div></div><div class="h5"><br><br>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.<br>
<br>Creo un archivo tipo de nombre DatPart.<br>

<br>    type   DatPart = record<br>               ...........<br>           end; <br><br>Creo la variable de archivo.<br><br>    fi : File Of DatPart;<br><br>En cuanto hago uso de ka función.<br><br>  FileSize( fi );<br>

<br>
Parece esperar un AnsiString y recibe una var fichero.<br><br>ciflet.pas(206,17) Error: Incompatible type for arg no. 1: Got "File Of DatPart", expected "AnsiString"<br><br>Uso la versión 9.28.2-12 en Debian 6.0 Squeeze.<br>


<br>¿ Alguna idea, por favor ?.<br><br>Un saludo.<img goomoji="323" style="margin: 0pt 0.2ex; vertical-align: middle;" src="cid:323@goomoji.gmail"><br><br><br>
<br></div></div><div class="im">_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org" target="_blank">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></div></blockquote></div><br>
<br>_______________________________________________<br>
Lazarus-es mailing list<br>
<a href="mailto:Lazarus-es@lists.lazarus.freepascal.org">Lazarus-es@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br>