Текущий архив: 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.45 MB
Время: 0.04 c
