Objekt auf Übergabe prüfen.

[Sir Rufo]

Du hast einen Gedankenfehler

Delphi-Quellcode:

function Test( sl : TStringList; Index : Integer) : TObject;
begin
  Result := sl.Objects[Index];
  sl.Delete(Index);
end;

procedure foo;
var
  o : TObject;
begin
  o := Test( MyStringList, 1 );
  // o hat jetzt eine Referenz aus der StringList, 
  // oder es kam eine Exception in Test und der Rest hier wird auch nicht abgearbeitet
  DoSomethingWith( o );
end;

oder hier der Ablauf mit einer Exception in Test

Delphi-Quellcode:

foo
  o := Test( MyStringList, -1 );
    Result := sl.Objects[Index]; // Knallt und gibt eine Exception
    // fertig mit Test
  // fertig mit foo
// Eine MessageBox mit der Exception

und hier ohne Exception

Delphi-Quellcode:

foo
  o := Test( MyStringList, 1 );
    Result := sl.Objects[Index];
    sl.Delete( Index );
    // fertig mit Test
  DoSomethingWith( o );
// fertig mit foo

[Popov]

Wie das abläuft dachte ich mir schon bevor ich die erste Frage gestellt habe, ich wollte nur wissen was Stand der Programmiertechnik ist. Wie gesagt, ob das nun falsch oder richtig ist, ich baue überall im Programm Abfragen, noch bevor eine Exception kommt. Ich denke mir, ich mache oft zu viel des Guten, so dass hier der erste Reflex die Frage war, wie kann ich die zweite Zeile abfangen?

[Sir Rufo]

Wenn dir der Ablauf klar ist, dann ist doch aber die Frage obsolet.

Denn du willst ja die 2. Exception verhindern, die aber schon durch die 1. Exception verhindert wird, weil da eben eine Exception geworfen wird.

Zitat von Popov:

Nun gehen wir mal davon aus, Index ist außer Bereich, also gibt es eine Fehlermeldung. Das ist auch so gewollt.

Nun weiter im Programm, als nächstes ist die Zeile sl.Delete(Index); dran. Falls der Index zu hoch ist, wird es auch hier eine Fehlermeldung geben. Und das soll nicht sein. Eine Meldung ist ok, zwei zuviel.

Jetzt bitte nicht fragen wieso hier Index nicht vorher überprüft wird, ist nur ein Beispiel.

Den Index würde ich auch nicht prüfen, der wird von der StringList geprüft und wirft eine Exception, wenn es nicht passt.

[Popov]

Im Grunde hast du ja Recht. Man kann das wunderbar mit einer grünen Ampel vergleichen. Grüne Ampel bedeutet, dass man über die Straße gehen kann. Weitere Prüfung der Sicherheit ist nicht nötig. Man muss nicht noch zusätzlich nach links und rechts gucken. Manche tun es trotzdem.

[Sir Rufo]

An einer Ampel kann es dir passieren, dass jemand doch noch bei rot fährt, eine Exception läuft so lange zurück, bis diese gefangen wird, oder poppt eben auf.

Jedes andere Verhalten kannst du entweder als non-existent betrachten, oder ich erwarte in deinem Code auch so etwas:

Delphi-Quellcode:

function Calc1and1 : integer;
begin
  Result := 1+1;
  if Result <> 2 then
    ShowMessage( 'Häh?' );
end;