حجم فایل

[hadiaj168]

با سلام
می خواهم با استفاده از کد زیر حجم فایل را بدست آوردم ولی استثنای
I/O error 103
رو نشون میده.

procedure TForm1.Button4Click(Sender: TObject);
var
f:file of byte;
size:longint;
begin
if opendialog1.Execute then
begin
assignfile(f,opendialog1.FileName);
size:=filesize(f);
end;
end;

[shervin farzin]

سلام
به خاطر اين كه فايل رو باز نكرديد .
بايد اين طور مي نوشتيد :

var
f: file of byte;
size: longint;
begin
if OpenDialog1.Execute then
begin
assignfile(f,opendialog1.FileName);
try
Reset(f);
size:=FileSize(f);
finally
CloseFile(f);
end;
end;
ShowMessage(inttostr(size));

اندازه برگشتي به واحد Byte هست .
موفق باشيد .

[Felony]

Function FileSize(fileName : wideString) : Int64;
var
S : TSearchRec;
begin
if FindFirst(FileName, FaAnyFile, S ) = 0 then
Result := S.Size
else
Result := -1;
FindClose(S) ;
end;