10 000 000 -> 10 Mb

← →
dRake © (2003-06-05 23:51) [40]

На вот тебе эту функцию, которую я сам юзаю в одной из своих прог
думаю разберёшься :)

function GetString( value : Int64) : string;
var temp : real;
begin

if value >= 1024*1024 then Begin;
temp := value/1024;
result := FloatToStrF(temp,ffGeneral,5,6) + " Kb";
end;

if (value > 1024*1024) and (value <= 1000*1024*1024) then Begin;
temp := value/(1024*1024);
result := FloatToStrF(temp,ffGeneral,5,6) + " Mb"
end;

if value > 1000*1024*1024 then Begin;
temp := Trunc(value/(1024*1024));
result := FloatToStrF(temp,ffGeneral,5,6) + " Gb"
end;
________________________________________________________

На вход даёшь ей значение в байтах
на выходе получаешь строку типа 10,23 Mb

← →
Нуу (2003-06-06 02:08) [41]

Не знаю насколько "горячие" и насколько "эстонские" те два парня,
но dRake © (05.06.03 23:51) - точно прошел мимо.

← →
elected © (2003-06-06 02:17) [42]

=-))))))
Вспомнил анекдот
Чем отличается ламер от программера...
Ламер догадывается что в киллобайте 1024 байта...
,а программер твердо уверен что в киллограмме 1024 грамма

← →
Alex Bigbugov (2003-06-07 09:43) [43]

Изображение в винде и у тебя не расходились? Вот у меня 80-ник, так в закладке файла подкачки свободного места показывает -36 Gb, тебе это надо?

10 000 000 -> 10 Mb Найти похожие ветки