Einzelnen Beitrag anzeigen

Benutzerbild von FAlter
FAlter

Registriert seit: 21. Jul 2004
Ort: Ostfildern
1.096 Beiträge
 
FreePascal / Lazarus
 
#76

Re: Eure besten Quellcode Kommentare...

  Alt 15. Sep 2008, 18:39
Hi,

gerade mal nen Code durchgesehen:

Delphi-Quellcode:
//alter Code:
    try
      //Hmm wie sonst an den string kommen außer über noch schlimmere umwege?
      RaiseLastOSError;
    except
      on E: Exception do
        ShowMessage('Das Installationsprogramm konnte nicht gestartet werden!'#13
          + E.Message);
    end;


//neuer Code:
    ShowMessage('Das Installationsprogramm konnte nicht gestartet werden!'#13 +
      SysErrorMessage(GetLastError));
Man beachte das Kommentar im alten Code - und dazu die Lösung im neuen Code.

Wer Hintergrundinfos will: Es handelt sich um den Rückgabewert von CreateProcess, welcher false ist. Was genau schief lief, soll dem User angezeigt werden. Dazu muss man irgendwie an die Fehlermeldung kommen, die Delphi in der Exception anzeigt. Ein Glück, dass es Shift+Klick gibt.

Mfg
FAlter
Felix Alter
  Mit Zitat antworten Zitat