Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Objekt auf Übergabe prüfen.

   
    by Sir Rufo, 20. Jan 2014
  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:
  function Calc1and1 : integer;
  begin
  Result := 1+1;
  if Result <> 2 then
  ShowMessage( 'Häh?' );
  end;
• Forum: Programmieren allgemein

  AW: Objekt auf Übergabe prüfen.

   
    by Sir Rufo, 20. Jan 2014
  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.
  
  Den Index würde ich auch nicht prüfen, der wird von der StringList geprüft und wirft eine Exception, wenn es nicht passt.
• Forum: Programmieren allgemein

  AW: Objekt auf Übergabe prüfen.

   
    by Sir Rufo, 20. Jan 2014
  Du hast einen Gedankenfehler ;)
  
  
  function Test( sl : TStringList; Index : Integer) : TObject;
  begin
  Result := sl.Objects;
  sl.Delete(Index);
  end;
  
  procedure foo;
• Forum: Programmieren allgemein

  AW: Objekt auf Übergabe prüfen.

   
    by Sir Rufo, 20. Jan 2014
  Nein, das ist in diesem Fall nicht notwendig, denn dann wird in der Test-Prozedur auch gleich zu Anfang eine Exception geworfen.
  Problematisch sind ja immer nur die Fälle, wo die Exception nicht da auftritt, wo diese eigentlich verursacht wurde, denn dann kann man sich einen Wolf suchen.
  
  Also wie in der Test-Prozedur, mit dem TStringList.OwnsObjects.
• Forum: Programmieren allgemein

  AW: Objekt auf Übergabe prüfen.

   
    by Sir Rufo, 20. Jan 2014
  So wäre es komplett richtig in diesem Kontext
  
  function Test(sl: TStringList; Index: Integer): TObject;
  begin
  // Ist Index OutOfRange wird eine Exception geworfen
  // gut so, denn dann ist bei diesem Befehl Schluss
  Result := sl.Objects;
  
  // Hier liegt eine mögliche Fehlerquelle, und darum schmeissen wir eine Exception, wenn das nicht passt
  if sl.OwnsObjects and Assigned(...