Delphi - размер файла

[Stilet]

А такое вкрутил в свой ЯВУ:

function TAlisaFormat.AsDiskSpace: Variant;
var space:Extended; cntr:Integer; frm,suff:string; ts:Char;
begin
 suff:='';
 space:=EvalParam(1);
 if space=0 then begin
  Result:=0; exit;
 end;
 frm:='%f';
 if space>1000000000000 then begin cntr:=1000000000000; suff:=' Tb'; end else
 if space>1000000000 then begin cntr:=1000000000; suff:=' Gb'; end else
 if space>1000000 then begin cntr:=1000000; suff:=' Mb'; end else
 if space>1000 then begin cntr:=1000; suff:=' Kb'; end else
 begin cntr:=1; frm:='%.0f'; suff:=' b'; end;

 Result:=format(frm,[space/cntr])+suff;

 if ExistParam('+bytesize') then begin
  ts:=FormatSettings.ThousandSeparator;
  FormatSettings.ThousandSeparator:=' ';
  Result:=Result+' ('+format('%.0n',[space])+' bytes)';
  FormatSettings.ThousandSeparator:=ts;
 end;

end;

[JUDAS]

Сообщение от BDA

FS.Size div 1000000 - мегабайты
FS.Size div 1000000000 - гигабайты

BDA, знаешь чем отличается начинающий программист от конченого программиста?
Начинающий, думает что в одном килобайте тысяча байт, конченый думает что в одном килограмме 1024 грамм

----------
Автор, лови универсальную. Сделал на будущее, буквы ставятся до иоттабайтов (10 24 байт)

function ValueToStr(value : int64):string;
var index : integer;
    val   : integer;
begin
  index  := 1; result := '';
  while value>0 do
  begin
    val :=  value mod 1024;
    if (val<>0) and (index<8) then
      result := IntToStr(val)+'KMGTPEZY'[index]+'b '+ result;
    value := value div 1024;
    inc(index);
  end;
end;

[min@y™]

А такое вкрутил в свой ЯВУ

а мож нинада так, а?

[Stilet]

а мож нинада так, а?

А че? Из-за неправильных констант?

[min@y™]

А че? Из-за неправильных констант?

Да ладно-ладно! Оставь, как есть...

[Stilet]

Шутник )))

[Vapaamies]

Сообщение от min@y™

а мож нинада так, а?

Это классический вариант экономии памяти или скорости. Теоретически вариант Виталия должен быть быстрее, поскольку делает только сравнения и одно деление в конце.

Но на самом деле это фигня, поскольку все называют т. н. мебибайты мегабайтами, и только маркетологи носителей считают с выгодой для кармана. А на 1024 делится простым сдвигом, это даже Delphi оптимизировать умеет.

Так что лучше всего быть программистом, а не маркетологом.

[min@y™]

2 Vapaamies:
согласенЪ

[Stilet]

Критикуйте критикуйте. А меня мой вельбот дырявый и так устраивает )))

[Vapaamies]

Сообщение от Stilet

А меня мой вельбот дырявый и так устраивает )))

У тебя Линукс, который заодно с маркетологами и "бибикает".