Get File Size

[ug505]

Hello,

I have a open dialog on my program that I want to get the size of the file selected. I know how to set up the dialog, I just can't figure out how to get the file size. I've tried searching around in Delphi Help, and I looked on the FAQ but can't find anythiing. I even tried Google! Can anyone help?

 

[Glenn9999]

GetFileSize is what you want to Google.

I'm waiting for the white paper entitled "Finding Employment in the Era of Occupational Irrelevancy

 

[ug505]

Thanks for that. I found a different way but now I'm having a problem. I want it in Kilobytes, not Bytes. Is there a way to change this code to show it in Kilobytes?

procedure TForm1.Open1Click(Sender: TObject);
var
f: file of Byte;
begin
if OpenDialog1.Execute then begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
SpinEdit1.Value:=FileSize(f);
end;
end;

 

[Glenn9999]

Is there a way to change this code to show it in Kilobytes?

Yes. Do the math. There isn't a handy component or procedure call for everything under the sun.

I'm waiting for the white paper entitled "Finding Employment in the Era of Occupational Irrelevancy