Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: Frage zu Try..Finally/Except

    Delphi
    by choose, 4. Nov 2003
  Danke für Deine PN, Tyrael.
  Sicherlich, das ist eine funktionierende Lösung.
  
  Ich persönlich empfinde Exceptions weder als lästig noch als überflüssig. Stattdessen sind sie oft sinnvolle Helfer für außergewöhliche Situationen. Jedoch kann und sollte nicht jede Zeile Code mit jeder Ausnahmebedingung umgehen, deshalb "übersetze" ich Exceptions lieber und reiche sie bis zu jemanden durch...
• Forum: Sonstige Fragen zu Delphi

  Re: Frage zu Try..Finally/Except

    Delphi
    by choose, 3. Nov 2003
  Der ungültige Wert sollte beim debuggen helfen und demonstrieren, dass der Code
  
  myVar:= TMyClass($badf00d); //stack contains rubbish
  try
  //myVar won't be altered since Create raises an exception
  myVar:= TMyClass.Create;
  finally
  //eq to TMyClass($badf00d).Free ->AccessViolation
  myVar.Free;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: Frage zu Try..Finally/Except

    Delphi
    by choose, 3. Nov 2003
  Das Objekt wird nicht erzeugt, weil innerhalb des Konstruktors eine Exception geworfen wird und der vom Delphi-Compiler implizit generierte Code das Exemplar wieder freigibt (nachprüfbar im CPU-Fenster, mit einem geeigneten Profiler oder mithilfe von GetHeapStatus.TotalAllocated).
  
  Bitte vergewissere Dich, dass der Destruktor implizit aufgerufen wird, indem Du die Zeile myVar.Free...
• Forum: Sonstige Fragen zu Delphi

  Re: Frage zu Try..Finally/Except

    Delphi
    by choose, 3. Nov 2003
  Zunächst, Dein erstes Posting: Wenn der Aufruf von TTypMeinerObjektVariablen.Create; fehlschlägt, wird implizit der Destruktor für dieses Exemplar aufgerufen.
  
  Der Code
  
  try
  myVar:= TMyClass.Create;
  finally
  myVar.Free;
  end;
• Forum: Sonstige Fragen zu Delphi

  Re: Frage zu Try..Finally/Except

    Delphi
    by choose, 3. Nov 2003
  Du hast Recht, in der dritten Version wird Free nur im Fall einer Exception aufgerufen, mein Fehler.
  
  Ich konnte die Compilerhinweise leider nicht rekonstruieren: Weder in "Deiner" noch in "meiner" Version treten bei mir Meldungen auf (Ja, die Hints sind aktiviert).
  
  Marcelo beschreibt in seinem BDN-Artikel Exceptional exceptions, Learn about structured exceptions and some unusual ways to...
• Forum: Sonstige Fragen zu Delphi

  Re: Frage zu Try..Finally/Except

    Delphi
    by choose, 3. Nov 2003
  Dein Code ist Äquivalent zu
  
  var
  meineObjektVariable:TTypMeineObjektVariable;
  begin
  meineObjektVariable := TTypMeinerObjektVariablen.Create;
  try
  try
  TuWas;
  except