Bytes in GB formatieren?

[mlspider]

Ich benötige die Ausgabe des freien Speicherplatzes eines gewählten Laufwerkes. Erledigt wird dies wie folgt:

Delphi-Quellcode:

function GetDiskSize(drive: Char; var free_size, total_size: Int64): Boolean;
var
RootPath: array[0..4] of Char;
RootPtr: PChar;
current_dir: string;
begin
RootPath[0] := Drive;
RootPath[1] := ':';
RootPath[2] := '\';
RootPath[3] := #0;
RootPtr := RootPath;
current_dir := GetCurrentDir;
if SetCurrentDir(drive + ':\') then
begin
GetDiskFreeSpaceEx(RootPtr, Free_size, Total_size, nil);
SetCurrentDir(current_dir);
Result := True;
end
else
begin
Result := False;
Free_size := -1;
Total_size := -1;
end;
end;

Der Aufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
free_size, total_size: Int64;
begin
s := ExtractFileDrive(ParamStr(0));
showmessage(s[1]);


if GetDiskSize(s[1], free_size, total_size) then

ShowMessage('free space =' +
IntToStr(free_size) + #13 + 'total size=' +
IntToStr(total_size))
else
ShowMessage('Keine Disk im Laufwerk!');
end;

liefert das Ergebnis in Byte. Ich möchte beide Werte in GB formatieren. Aber wie?

[TeronG]

N paar (3) mal duch 1024 teilen!?

(und evtl. mit RoundTo noch n bissl "Pimpen")

[Phoenix]

Bytes / 1024 = KBytes
KBytes / 1024 = MBytes
MBytes / 1024 = GBytes

x Bytes / 1024 / 1024 / 1024 = y GBytes

[stahli]

1 KB = 1024 Byte
1 MB = 1024 KB
1 GB = 1024 MB

Stahli

PS: Ich war zu langsam, aber auch gut ;-)

[Angel4585]

*am langsamsten bin*

2^10=Kilo
2^20=Mega
2^30=Giga
usw...

[mlspider]

Delphi-Quellcode:

IntToStr(free_size div 1024 div 1024 div 1024) + #13 + 'total size=' +
IntToStr(total_size div 1024 div 1024 div 1024))

gibt mir zu ungenaue Angabe. Wie soll ich RoundTo anwenden?

[Phoenix]

Div schmeisst ja auch die Nachkommastellen weg - und wenn Du dreimal durch ~1000 Teilst wird die Zahl kleiner und damit werden die Nachkommawerte wichtiger.

Teile doch einfach echt mit:

Delphi-Quellcode:

free_size / (3* 1024)

und benutze FloatToString um den Wert dann mit ein paar Nachkommstellen zu formatieren.

[mlspider]

Delphi-Quellcode:

ShowMessage('free space =' +
IntToStr(free_size / (3* 1024)) + #13 + 'total size=' +
IntToStr(total_size))

gibt einen Compilerfehler aus:

Es gibt keine überldene Version von IntToStr, die man mit diesen Argumenten aufrufen kann.

[Die Muhkuh]

Zitat:

Zitat von Phoenix

und benutze FloatToString um den Wert dann mit ein paar Nachkommstellen zu formatieren.

[Angel4585]

Zitat:

Zitat von Phoenix

Teile doch einfach echt mit:

Delphi-Quellcode:

free_size / (3* 1024)

:shock: Warum soll er durch 3072 teilen? :gruebel: