Форум: "Основная";
Текущий архив: 2005.10.23;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.06 c