Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.23;
Скачать: CL | DM;

Вниз

Дайте функцию которая из числа   Найти похожие ветки 

 
Vanilla Creature   (2005-10-03 19:42) [0]

(размер файла) делает стринг 2КБ, 1.4МБ ? итп


 
Spaller   (2005-10-03 19:47) [1]

ну а че ту сложного смотришь размер если больше 1024 значит килобайт и так далее, потом все делишь и переводишь в стринг floattostr :) и добавляешь "кб" или  "мб" ну и тд...прояви выдумку


 
Fay ©   (2005-10-03 19:58) [2]

function YourFunc(sz : Int64) : String;
begin
 Result := "2КБ, 1.4МБ ? итп";
end;


 
Zeqfreed ©   (2005-10-03 20:14) [3]

Vanilla Creature   (03.10.05 19:42)
function SizeToString(const Value : Integer) : String;
var
val : Single;
postfix : String;
begin
if (Value >= 1024 * 1024) then begin
 val := Value / (1024 * 1024);
 postfix := "MB";
end else if Value >= 1024 then begin
 val := Value / (1024);
 postfix := "KB";
end else begin
 val := Value;
 postfix := "Bytes";
end;

Result := Format("%3.3f %s", [val, postfix]);
end;



> Дайте функцию

Подав.. ой, что ж это я такой злой сегодня?..
Насладитесь, пожалуйста!


 
Zeqfreed ©   (2005-10-03 20:30) [4]

Zeqfreed ©   (03.10.05 20:14) [3]
function SizeToString(Value : Int64) : String;
const
names : array[0..3] of String[5] = ("bytes", "Kb", "Mb", "Gb");
var
idx : Integer;
val : Single;
begin
idx := 0;
val := value;

while val >= 1024 do begin
 val := val / 1024;
 Inc(idx);
end;

Result := Format("%3.3f %s", [val, names[idx]]);
end;


Такой вариант мне больше нравится :)


 
Zeqfreed ©   (2005-10-03 20:32) [5]

Zeqfreed ©   (03.10.05 20:30) [4]
while (val >= 1024) and (idx < 3) do begin

Ну что же поделать с этой невнимательностью..


 
Vanilla Creature   (2005-10-03 20:55) [6]

Спасибо



Страницы: 1 вся ветка

Текущий архив: 2005.10.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.06 c
4-1124656782
Шуршик
2005-08-22 00:39
2005.10.23
Взаимодействие с сервером Serv-U FTP (изменение конфига)


11-1109449924
Shanker
2005-02-26 23:32
2005.10.23
Координаты окна, размер окна


2-1127504501
ForsXT
2005-09-23 23:41
2005.10.23
Звук


1-1127988919
Альф
2005-09-29 14:15
2005.10.23
Фильтрация списка строк. Как сделать ?


11-1093230894
DmiSb
2004-08-23 07:14
2005.10.23
Excel.Application.Quit ?