Problem mit Freespace Code

[Amnon82]

Delphi-Quellcode:

Format(' %1.2n GB', [FCurrentDI.BytesPerSector * FCurrentDI.SectorsPerCluster * (FCurrentDI.NumberOfFreeClusters div  1024) div 1024 / 1024])

... nur ich komm nicht auf den Code für MB. Es müsste ja eine 1024 wegfallen, nur dann passt %1.2n nicht mehr. Ich komm nicht auf das richtige Format ...

Habs mal in %1.3n MB geändert. Wie würde ich den Punkt außer mit Stringreplace entfernen können?

[Kanne_Kaffe]

Delphi-Quellcode:

Format(' %1.2n GB', [FCurrentDI.BytesPerSector * FCurrentDI.SectorsPerCluster * FCurrentDI.NumberOfFreeClusters / 1024 / 1024 / 1024]);

Ungetested! Aber so sollte es was werden..

Wenn Du mir verräts was "FCurrentDI" ist? Verzeichnis ? Datei? Platte?

Vielleich hilft das weiter:

Delphi-Quellcode:

function GetFormatedFileSize(FileName: String): String;
var
  FS : TFilestream;
  Size: Cardinal;
begin
  Result := FormatFloat('0.00', 0)+' Byte';
  
  try
  FS := TFileStream.Create(FileName, fmOpenRead + fmShareDenyNone);
  Size := FS.Size;
  FS.Free;

  iTotalSize := iTotalSize + Size;

  Result := FormatFloat('0.00', Size)+' Byte';

  if Size > 10024 then
    Result := FormatFloat('0.00', Size/1024)+'   KB';

  if Size > 1000024 then
    Result := FormatFloat('0.00', Size/1024/1024)+'   MB';

  if Size > 100000024 then
    Result := FormatFloat('0.00', Size/1024/1024/1024)+'   GB';

  except

    end;
end;

[Daniel G]

Zitat:

Zitat von Kanne_Kaffe

Wenn Du mir verräts was "FCurrentDI" ist? Verzeichnis ? Datei? Platte?

Ich tipp' mal ne Pladde... Wegen der Cluster und Sektorengröße...

[Luckie]

Und ich tippe auf ein Record oder eine Klasse. ;)

[Amnon82]

Sorry, Ich vergaß den Quellcode anzuhängen. Hier ist er ...