Dateigröße als String ausgeben

[robinWie]

Habs gerade getestet, bei mir funzt es aber...

So hab ichs bei mir aufgebaut:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  opendialog1.Execute;
  ShowMessage(GetFileSizeAsString(opendialog1.FileName));
end;