Dateigröße formatieren?

[xaromz]

Hallo,

da fehlt ein StrToInt:
schreib mal
Edit1.Text := FileSizeToStr(StrToInt(Edit2.Text)); Gruß
xaromz
//Edit: Fehler verbessert.

[BenjaminH]

Edit1.Text := (InttoStr(FileSizeToStr(Edit2.Text))); So passts:
Edit1.Text := FileSizeToStr(StrtoInt(Edit2.Text));

[igel457]

@lucky

Meine Funktion einfach so aufraufen:
label1.caption := filesizetostr(size); Size ist ein integer. Edit2.Text ein String.
Mach es doch einfach so:
label1.caption := filesizetostr(strtoint(edit2.text)); Noch ein Tipp um die Große abzufragen. Du nimmst da eine recht "altmodische" Methode.

So ist es hoffentlich besser:

Delphi-Quellcode:

function CheckFileSize(aFilename: string): int64;
var
  fs:TFilestream;
begin
  fs := TFileStream.Create(afilename,fmOpenRead   )
  Result := fs.size;
  fs.free;
end;

[Luckie]

Das ist doch schon ein String: FileSizeToStr!

[mlspider]

Ja, jetzt passt es. Danke an alle.

[Khabarakh]

Zitat von igel457:

Mach eine Funktion FileSizeToStr:

Delphi-Quellcode:

function FileSizeToStr(size:int64):string;
begin
  if size < 1024 then result := inttostr(size)+'Byte';
  if (size > 1024) and (size < 1024*1024) then result := formatfloat('0.00',size/1024)+'KB';
  if (size > 1024*1024) and (size < 1024*1024*1024) then 
   result := formatfloat('0.00',size/1024/1024)+'MB';
  if (size > 1024*1024*1024) then 
   result := formatfloat('0.00',size/1024/1024/1024)+'GB';
end;

Hoffe das hilft...

Viel zu lang .

Delphi-Quellcode:

function FileSizeToStr(const ASize: Int64): string;
const
  Units: Array[0..8] of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
                                                                              // Ab hier wird es unwahrscheinlich ^^
var
  Index: Integer;
begin
  Assert(ASize >= 0);
  Index := Trunc(ln(ASize) / ln(2) / 10);
  Result := Format('%.2f %s', [ASize / (1 shl (Index * 10)), Units[Index]]);
end;

*scnr*

[himitsu]

Delphi-Quellcode:

function FileSizeToStr(size:int64):string; 
begin 
  if size < 1024 then result := inttostr(size)+'Byte'; 
  if (size > 1024) and (size > 1024*1024) then result := formatfloat
...

Da ist eh ein Fehler drin ... ihr solltet mal darauf achten, was passiert, wenn size 1024 ist

[Neutral General]

Delphi-Quellcode:

function FileSizeToStr(const ASize: Int64): string;
const
  Units: Array[0..8] of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
                                                                              // Ab hier wird es unwahrscheinlich ^^
var
  Index: Integer;
begin
  Assert(ASize >= 0);
  Index := Trunc(ln(ASize) / ln(2) / 10);
  Result := Format('%.2f %s', [ASize / (1 shl (Index * 10)), Units[Index]]);
end;

OT: Was ist denn EB, ZB und YB ?
Ich kenne nur bis PetaByte

[Sharky]

Zitat von Neutral General:

... OT: Was ist denn EB, ZB und YB ?...

Ein Klick zu WiKi verrät es

[mlspider]

Immer wieder nützlich!