Exceptions

[MathiasSimmack]

PS:

Zitat von Pseudemys Nelsoni:

Und nochwas dazu...wie man sieht steht da 3mal "Error(1);" je nachdem ob irgendwas von den 3 if anweisungen nicht geklappt hat soll halt der fehler "1" an eine funktion übergeben werden....kann man das auch ohne das man es direkt jeder if anweisung im else teil angeben muss? also nur 1mal?

Du könntest intern mit einer bool-Variablen arbeiten, die du bei jedem Registry-Zugriff benutzt. Bspw.

Delphi-Quellcode:

boolRes := RegQueryValueEx(...) = ERROR_SUCCESS;
if(boolRes) then
begin
  { ... }
end;

Und am Ende, nach dem Schließen des Registryschlüssels, wertest du die Variable dann aus:
if(not boolRes) then Error(1); Und IMHO ist zumindest dieses try/except überflüssig:

Code:

  Try
    [color=red]Try[/color]
      { ... }
    [color=red]except
      Error(1);
    end;[/color]
  Finally
    RegCloseKey(KeyH);
  end