Objekt auf Übergabe prüfen.

[Sir Rufo]

So wäre es komplett richtig in diesem Kontext

Delphi-Quellcode:

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[Index];
  
  // Hier liegt eine mögliche Fehlerquelle, und darum schmeissen wir eine Exception, wenn das nicht passt
  if sl.OwnsObjects and Assigned( Result ) then
    raise Exception.Create( 'Das kann ich nicht bei einer TStringList mit OwnsObjects!' );

  sl.Delete(Index);

  // Wenn bei der Rückgabe zwingend eine Instanz gefordert ist, dann kann hier nochmals eine Exception geworfen werden
  Assert( Assigned( Result ) );
  // Oder eben
  if not Assigned( Result ) then
    raise Exception.Create( 'Es wird keine Instanz zurückgeliefert, obwohl das so sein muss!' );
end;

Bei der Verwendung

Delphi-Quellcode:

procedure foo;
var
  LObj : TObject;
begin
  LObj := Test( MyStringList, 10 );
  // wenn eine Exception beim Aufruf von Test auftritt, dann wird das hier drunter auch nicht mehr ausgeführt
  try
    // Hier irgendwas mit LObj machen
  finally
    LObj.Free;
  end;
end;

[DeddyH]

Noch richtiger wäre es IMO mit
Assert(Assigned(sl)); am Funktionsanfang.

[Sir Rufo]

Zitat von DeddyH:

Noch richtiger wäre es IMO mit
Assert(Assigned(sl)); am Funktionsanfang.

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.