Speichergröße von Datenträgern auslesen

[mind87]

Hallo,

habe eine Frage zum auslesen der Speichergröße von Datenträgern. Habe bereits eine Bespiel Code gefunden.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  freeSpace, totalSpace: Double;
  s: Char;
begin
  // Drive letter
  // Laufwerksbuchstabe
  s := 'D';

  freeSpace  := DiskFree(Ord(s) - 64);
  totalSpace := DiskSize(Ord(s) - 64);

  label1.Caption := Format('Free Space: %12.0n', [freeSpace]);
  Label2.Caption := Format('Total Space: %12.0n', [totalSpace]);
  Label3.Caption := IntToStr(Round((totalSpace - freeSpace) / totalSpace * 100)) +
    ' Percent used.';
end;

Meine Frage ist nun welche Rolle hier "(Ord(s) - 64" spielt? Kann man dies nicht anders lösen? Bsp: intostr oder ähnlichem?

Gruß

Edit: Würde gerne die Werte ohne z.B 'Free Space: 159.165.487.457' im Label Feld ausgegeben.

Nehme ich das
Format('Free Space: %12.0n', [freeSpace])
raus und ersetze dies durch
label1.Caption :=freeSpace;
erhalte ich vom Compiler die Meldung: "Inkompatible Typen: 'String and Double"

[RWarnecke]

Du musst den Laufwerksbuchstaben als Type Byte übergeben. Deshalb wird hier die Funktion Ord angewendet.

[mkinzler]

Ord() ermittelt den ASCII-Code eines Zeichens, 65 ist der Code für 'a'. Ord(s) - 64 ergibt also die Nummer des Buchstabens (1 für 'a')

[mind87]

Zitat:

Zitat von mkinzler

Ord() ermittelt den ASCII-Code eines Zeichens, 65 ist der Code für 'a'. Ord(s) - 64 ergibt also die Nummer des Buchstabens (1 für 'a')

Welche Rolle spielt nun das die Nummer des Buchstabens a = 1 und nicht bei 65 belassen wird? Sorry wenn ich solche Fragen stelle, bin noch ein Neuling.

[mind87]

Hat jemand noch eine Idee wie ich das Problem mit meiner Formatierung beseitgen kann?

[mkinzler]

DiskFree() erwartet 1 für Laufwerk a: und nicht 65

[mind87]

Zitat:

Zitat von mkinzler

DiskFree() erwartet 1 für Laufwerk a: und nicht 65

Ah jetzt ok Danke dir.

[Luckie]

Warum liefern deine Funktionen eigentlich keine Ganzzahl zurück, sondern einen Wert vom Typ Double? Gibt es auch halbe und viertel Bytes?

[mkinzler]

Zitat:

Edit: Würde gerne die Werte ohne z.B 'Free Space: 159.165.487.457' im Label Feld ausgegeben.

Delphi-Quellcode:

label1.Caption := Format('%12.0n', [freeSpace]);

[mind87]

Zitat:

Zitat von Luckie

Warum liefern deine Funktionen eigentlich keine Ganzzahl zurück, sondern einen Wert vom Typ Double? Gibt es auch halbe und viertel Bytes?

Wollte die genaue Speichergröße haben, nichts gerundetes.