Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
22. Feb 2007
@Phoenix, bereits geschehen. Habe ab und an immer wieder Verständnisprobleme, was die formatiererei angeht. Habe es aber hinbekommen. Danke.
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
22. Feb 2007
Das haut hin. Nur finde ich 12 Nachkommastellen doch ein wenig viel. 2 würden auch reichen.
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
22. Feb 2007
FloatToStr(free_size / (3* 1024)) + #13 + 'total size=' +
FloatToStr(total_size / (3* 1024)))
Bringt zwar keinen Compilerfehler, dafür aber falsche Werte.
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
22. Feb 2007
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.
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
22. Feb 2007
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?
Forum: Sonstige Fragen zu Delphi
Delphi
by mlspider,
22. Feb 2007
Ich benötige die Ausgabe des freien Speicherplatzes eines gewählten Laufwerkes. Erledigt wird dies wie folgt:
function GetDiskSize(drive: Char; var free_size, total_size: Int64): Boolean;
var
RootPath: array of Char;
RootPtr: PChar;
current_dir: string;
begin
RootPath := Drive;
RootPath := ':';