El tamaño de un Fichero

[ixMike]

Veamos si me sale...

Código Delphi [-]
function IntelHexFileSize(FileName: string): integer;
var
 F: File of byte;
 HexCount, A1, A2: Byte;
 Adress: Word;
begin
AssignFile(FileName, F);
Reset(F);
Read(F, HexCount);
Read(F, A1);
Read(F, A2);
CloseFile(F);
Adress:=HexToInt(IntToHex(A1,2)+IntToHex(A2,2));
Result:=Adress+HexCount;
end;

Necestirás la función HexToInt: Trucomanía

Está hecho así, de cabeza, no sé si funcionará bien... de todas formas, ¿no te vale un FileSize de un archivo de tipo Byte?


Salu2.