Как привести размер файла к стандартному виду?

[dolphin705]

Собственно получаю размер файла вот в таком виде 1234567

DirList.Add(copy(s,6,length(s))+SR.Name+' ['+inttostr(sr.Size)+']')

SR это как вы поняли обычная - TSearchRec запись поиска.

примерно таким образом. Есть пример как привести такой вид к более привычному виду - 1,25 кб , 5.1 мб , 1,45 гб ?

Заранее благодарен.

[Аватар]

function ConvertFileSize(Size: Int64): String;
begin
  if Size div 1024 < 1024 then Result:=FloatToStrF(Size/1024,ffFixed,18,2)+' Kb'
  else if Size div 1048576 < 1024 then Result:=FloatToStrF(Size/1048576,ffFixed,18,2)+' Mb'
  else Result:=FloatToStrF(Size/1073741824,ffFixed,18,2)+' Gb';
end;