Author: Tomas Rutkauskas

How I can convert bytes to file size in KB/MB like in windows explorer 

Answer:

1   function FileSizeStr(Size: LongInt): string;
2   begin
3     if Size < 1000 then
4       Result := IntToStr(Size) + ' B'
5     else if Size < 102400 then
6       Result := IntToStr((Size + 1023) shr 10) + ' KB'
7     else
8       Result := IntToStr((Size + 1048575) shr 20) + ' MB';
9   end;