All pastes #149408 Raw Edit

Mine

public text v1 · immutable
#149408 ·published 2006-08-25 19:24 UTC
rendered paste body
var
  SearchRec: TSearchRec;
begin
  if FindFirst(OpenDialog1.FileName, faAnyFile, SearchRec) = 0 then
      StatusBar1.Panels[2].Text := 'Size : '+FloatToStrF(SearchRec.Size/1024, ffFixed, 7, 2)+' KB';
  FindClose(SearchRec);