Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Prüfen und Casten auf einen Rutsch

    Delphi
    by sx2008, 18. Jul 2012
  Bin gerade aus Zufall auf folgende Idee gekommen, dass man die Prüfung mit is und eine anschliesende Cast-Operation zusammenfassen könnte:
  function IsKindOf(obj:TObject; AClass:TClass; var x):Boolean;
  begin
  Result := obj is AClass;
  if Result then
  TObject(x) := obj
  else
  TObject(x) := nil;
  end;