Warum vergessen eigentlich immer alle die Rückgabewerte von Funktionen auszuwerten?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
free_size, total_size: Int64;
begin
if GetDiskSize(DriveComboBox1.Drive, free_size, total_size) then
ShowMessage('free space =' +
IntToStr(free_size) + #13 + 'total size=' +
IntToStr(total_size))
else
ShowMessage('No disk in drive!');
end;
Ist doch drin - oder?
(Abgesehen davon, dass ich dieses Beispiel nicht wirklich "schön" finde)