Duplicate-Value-Fehler bei Aufruf von Append

[Perlsau]

Zitat von Sir Rufo:

Problematisch ist daran, dass du eben egal welche Exception fängst und durch den großen Einzugsbereich von try .. except eben auch für alles Möglich eine Exception bekommen kannst.

Echt jetzt? Für was könnte ich denn noch eine Exception bekommen?

Zitat von Sir Rufo:

Wenn du programmtechnisch alles richtig machst, dann wird diese Lösung exakt das machen, was du davon erwartest. Somit also keine Einwände.

Das nennt man eine Tautologie: Wenn ich dich mit Wasser begieße, bist du naß. Wenn ich alles richtig mache, gibt's keine Fehler. Ei sowas aber auch, da wäre ich in hundert Jahren nicht draufgekommen

Zitat von Sir Rufo:

Die Probleme fangen immer dann an, wenn es aus welchen Gründen auch immer in dem gekennzeichneten Bereich zu einer Exception kommt:

Äh – welche Probleme? Wenn es von Append bis Post bzw. Cancel zu einer Exception kommt, wird der Name nicht eingetragen und stattdessen in die Textdatei geschrieben mit einem Hinweis auf den Grund, weshalb das nicht eingetragen wurde. Wo ist denn da das Problem?

Inzwischen gibt es nicht mal mehr Doubles, die in die Textdatei geschrieben werden müssen, denn ich frage nun vor dem Append ab, ob der Name bereits eingetragen ist:

Delphi-Quellcode:

Function TAktual.Eintragen_Person(Id: Integer; Person: String; Datum: TDateTime; DateExists: Boolean): Boolean;
Var
  Z   : Integer;
  Aus : String;

begin
  Z := 0;
  Aus := Person;

  While DatMod.PersonExists(Aus) Do
  Begin
    Inc(Z);
    Aus := Person + ' (' + IntToStr(Z) + ')';
  End;

  Person := Aus;

  Try
  ...

Ich kann erst später nachschauen/entscheiden/recherchieren, ob der doppelte Name dieselbe Person bezeichnet oder eben eine andere mit demselben Namen. Die Gründe hierfür zu erklären würde jetzt aber zu weit führen. Ich sehe hier nicht wirklich ein Problem, nicht mal im Ansatz. Und selbstverständlich verwende ich in anderen Fällen schon die passenden Exceptions, z.B. beim Umgang mit IdHttp:

Delphi-Quellcode:

Function TAktual.Anfrage(Var Aurl: String) : Boolean;
begin
  Try
    AUrl                   := IdHt.Get(Aurl);
    Result                 := True;
  Except
    on E: EIdHTTPProtocolException Do
    Begin
      Result := False;
      Aurl := Aurl + GLD.TS + IntToStr(e.ErrorCode);
    End;
  End;
end;

Da wird dann später anhand des Errorcodes auf den Fehler reagiert, einstweilen wird er in der aufrufenden Methode protokolliert, weshalb Aurl ein Var ist (und GLD.TS ein Trenner mit Space: ' | '). Was wäre da jetzt z.B. anders, wenn ich statt EIdHTTPProtocolException einfach Exception schreiben würde? Würde sich das Programm auch nur ein klein wenig oder sogar spürbar anders verhalten? Ich glaube kaum ...

Zitat von Sir Rufo:

Besser wäre es zumindestens schon mal das so umzustellen

Delphi-Quellcode:

Function TFrame_PersonenAktuell.Eintragen(Id : Integer; Person : String; Datum : TDateTime; DateExists : Boolean) : Boolean;
begin
  DatMod.Qset_Personen.Append;
  Feld_Id.AsInteger := Id;
  Feld_Name.AsString := Person;
  If DateExists Then
  Feld_Datum.AsDateTime := Datum;

  Try 
    // Nur Post-Methode abfangen
    DatMod.Qset_Personen.Post;
    Result := True;
  Except
    // Eine Einschränkung auf den konkreten Exception-Typ wäre noch besser
    On E: Exception Do
    Begin
      Result := False;
    // Das ist die Lösung: das Dataset ist noch im Insert-Mode, wenn ich es beim nächsten Mal anspreche
      If (DatMod.Qset_Personen.State = dsInsert) Or
         (DatMod.Qset_Personen.State = dsEdit) Then
          DatMod.Qset_Personen.Cancel;
      Memo_Log.Lines.Append(e.Message + GLD.TS + IntToStr(Id));
    End;
  End;
end;

Also mal ehrlich, lieber Sir Rufo, wieso soll denn das Dataset nach Auftreten eines Fehlers, der ja einzig und allein ein Fehler beim Post sein kann, nicht im Insert-Status sein? Eine andere Möglichkeit gibt es hier doch gar nicht mehr. Bei meiner Version können zumindest noch das Append und die Wertzuweisungen (theoretisch) Exceptions auslösen, weshalb die Abfrage des Status mehr oder weniger gerechtfertigt ist. Aber hier? Du schreibs doch selber im Kommentar: Nur Post-Methode abfangen. Was für einen Status also kann ein Dataset nach einem mißlungenen Post überhaupt haben? Richtig: dsInsert oder dsEdit. Denn wäre bereits das Append schiefgelaufen – wäre ja theoretisch möglich, weil z.B. die Verbindung zur DB nicht mehr besteht –, wäre das Programm mit einer Fehlermeldung abgestürzt. Bei mir würde es aber nicht abstürzen. Also Sachen rätst du mir, da bleib ich doch lieber bei meiner Vorgehensweise, wenn du gestattest, vielen Dank.

[Sir Rufo]

@Perlsau

Was passiert denn wenn (durch einen Programmfehler) DatMod oder QsetPersonen nicht initialisiert nil sind oder eine ungültige Referenz haben (dangling pointer)?

Dann gibt es keinen Logeintrag, weil deine Exception-Behandlung selber wieder eine Exception wirft.

Aber jeder wie er mag und es der eigenen Horizont-Linie entspricht. Wie schon gesagt, zu Exceptions und wie man damit umgeht gibt es hier genug Beiträge (auch von mir).

[Dejan Vu]

Ich glaube, Erklärungsversuche bringen nichts.

Beratungsresistenz nennt man das, glaube ich.

[Perlsau]

Zitat:

... und es der eigenen Horizont-Linie entspricht
Beratungsresistenz

Verucht es mit jemand anderem, ich stehe auf diesem ad hominem Niveau nicht mehr zur Verfügung.

(Es gibt Menschen, denen entgegnet man am besten gar nicht, das gibt immer nur Streß.)

[Dejan Vu]

Dann wird der Thread aber sinnlos, denn jemand Anderem muss man diese Banalität nicht erklären.

[mkinzler]

Zitat:

Dann wird der Thread aber sinnlos

Nein, wird er nicht, weil er ursprünglich um ein anderes Thema ging, bevor hier wieder ein Nebenkriegsschauplatz der Eitelkeiten eröffnet wurde!
Wenn er der Meinung ist, dass ein Breitbandexceptionhandler hier das Mittel seiner Wahl ist und alle Arten von Ausnahmen über einen Kamm behandlet werden sollen, dann ist es seine Entscheidung, ob dass nun sinnvoll ist oder nicht.

Aber Du nutzt es mal wieder um Deine herausragende "Sozialkompetenz" unter Beweis zu stellen. Das Aufzeigen von Fehlerquellen und die Darstellung von besseren Lösungen ( wie Z.B. von Sir Rufo) ist etwas anderes als Deine pauschalen (persönlichen) Herabsetzungen!

Ich schliesse den Beitrag hier erst einmal und werde das weitere Vorgehen mit dem Team diskutieren!