89 / 70 / 9
Регистрация: 04.03.2012
Сообщений: 206
|
|||||||||||||||||||||||||||||||
1 | |||||||||||||||||||||||||||||||
Формат строки16.07.2012, 21:11. Показов 1123. Ответов 2
Метки нет (Все метки)
Здравствуйте, есть:
1) функция определяющая размер папки с файлами:
2) функция определяющая размер файла:
Как сделать что бы было нормальное отображение без байт, т.е. 57 Мв 245 кб 7 Мв 245 кб P.S. Если есть (так сказать) - более простые функции,- поделитесь
0
|
16.07.2012, 21:11 | |
Ответы с готовыми решениями:
2
Формат строки Формат строки Формат командной строки Формат строки в макросе |
1922 / 1158 / 422
Регистрация: 31.05.2012
Сообщений: 4,091
|
|
16.07.2012, 22:18 | 2 |
Делим на 1024 - получаем размер в килобайтах. Остаток - байты. Частное если больше или равно 1024 - делим на 1024 - получаем размер в мегабайтах. Остаток - килобайты. И т.д. Для целочисленного деления используется div. Остаток можно получить или с помощью mod, или вычитая из делимого произведения делителя на частное. Вообщето 5-ый класс
0
|
Житель Земли
|
|
23.07.2012, 10:44 | 3 |
моя функция (писал давно. можно усовершенствовать, но не хочу )
Delphi function GetFileSizeStr(const FName: string): string; const b = ' áàéò'; var FS: TFileStream; FileSizeb: int64; MainSize: Extended; m: string; begin FileSizeb:= 0; try FS:= TFileStream.Create(FName,fmOpenRead); FileSizeb:= FS.Size; m:= ' áàéò '; MainSize:= FileSizeb; if MainSize > 1024 then begin MainSize:= MainSize / 1024; m:= ' Êá '; if MainSize > 1024 then begin MainSize:= MainSize / 1024; m:= ' Ìá '; end; if MainSize > 1024 then begin MainSize:= MainSize / 1024; m:= ' Ãá '; end; end; Result:= FloatToStrF(MainSize,ffNumber,6,2) + m + '(' + IntToStr(FileSizeb) + b + ')'; finally FS.Free; end; if FileSizeb <= 0 then Result:= '0 áàéò'; end; возвращает результат по виндоузски, т.е. к примеру 8,00 Кб (8192 байт)
1
|
23.07.2012, 10:44 | |
23.07.2012, 10:44 | |
Помогаю со студенческими работами здесь
3
Парсинг строки в формат DateTime Спарсить 2 строки формат json Формат строки(размер файла) Формат строки при выводе из БД Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |