Вывести размер файла строкойDelphi , Файловая система , ФайлыВывести размер файла строкой
Оформил: DeeCo {************************************************ Formats a partition-/file size Gibt eine Partitions-/Dateigro?e im Klartext aus *************************************************} uses SysUtils,...; function BytesToStr(const i64Size: Int64): string; const i64GB = 1024 * 1024 * 1024; i64MB = 1024 * 1024; i64KB = 1024; begin if i64Size div i64GB > 0 then Result := Format('%.2f GB', [i64Size / i64GB]) else if i64Size div i64MB > 0 then Result := Format('%.2f MB', [i64Size / i64MB]) else if i64Size div i64KB > 0 then Result := Format('%.2f KB', [i64Size / i64KB]) else Result := IntToStr(i64Size) + ' Byte(s)'; end; Привет! Я переведу контент на русский язык. Функция Вот шаг за шагом, как функция работает:
Функцию можно использовать следующим образом:
Это выведет что-то вроде '117.4 MB'. Если вам нужно отображать результат в другой формате или с иной точностью, вы можете изменить функцию соответствующим образом. Вот альтернативное решение с использованием более современного и компактного способа форматирования строк:
В этом варианте функция Программный код на Delphi предназначен для форматирования размера файла в строку, отображая информацию о мегабайтах, гигабайтах или байтах в зависимости от величины указанного размера. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |