Последние записи
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
- Мигающий экран на Assembler
- VBA-макрос по копированию 10 строчек в выбранном диапазоне в Microsoft Office Excel
- Копирование только нужного диапазона в Microsoft Office Excel
- Перенос диапазона стоки в Microsoft Office Excel на другой лист по условию
- Мелодия в Pascal.ABC.Net с помощью System.Console.Beep — задержка воспроизведения звука
17th
Янв
Перевод байтов в килобайты и мегабайты в Делфи
Posted by obzor under Delphi
Как вывести размер файла не в байтах, а в Кб или Мб?
Код:
function GetFileSizeStr(const sz: Int64): string;
begin
if sz < 1024
then Result:= IntToStr(sz) + ' байт'
else if sz < 1048576
then Result:= FloatToStrF(sz / 1024, ffFixed, 15, 2) + ' Кб'
else Result:= FloatToStrF(sz / 1048576, ffFixed, 15, 2) + ' Мб';
end;
Случайные статьи
