Prüfen und Casten auf einen Rutsch

[s.h.a.r.k]

Ist Delphi 5 wirklich zwingend, oder hast du das nur als minimal Version angegeben?

Denn ansonsten würde ich das über einen Class Helper erledigen:

Delphi-Quellcode:

TObjectHelper = class helper(TObject)
public
  function TryCast<TCastType>(out Object: TCastType): Boolean;
end;


function TObjectHelper.TryCast<TCastType>(out Object: TCastType): Boolean;
begin
  Result := Self is AClass;
  if Result then
    Object := Self 
  else
    Object := nil;
end;

Ich hoffe, der Code ist korrekt... Ist gerade einfach mal schnell aus dem Kopf runter geschrieben...

[himitsu]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Button: TButton absolute Sender;
begin
  if Sender is TButton then
    Button.Caption := 'ich bin ein Button';
end;

Bei solchen Funktionen kenn ich es oft, daß sie den Ausgabewert nur setzen, wenn die Prüfung erfolgreich war.

Delphi-Quellcode:

function TObjectHelper.TryCast<TCastType>(out Object: TCastType): Boolean;
begin
  Result := Self is AClass;
  if Result then
    Object := Self;
end;

Aber ich glaub es könnte fehlerunanfälliger sein, wenn man den Wert dennoch initialisiert (nil).

[s.h.a.r.k]

Nachdem es eh ein out-Parameter ist und man nach einem False-Rückgabewert eh tunlichst nicht darauf zugreifen sollte, ists eigentlich egal. Die Frage ist nur, was ist gute Praxis?!

[Uwe Raabe]

Kleine Korrektur:

Delphi-Quellcode:

function TObjectHelper.TryCast<TCastType: Class>(out Instance: TCastType): Boolean;
begin
  Result := Self is TCastType;
  if Result then
    Instance:= Self 
  else
    Instance:= nil;
end;

Allerdings könnte ein public sichtbarer helper for TObject das ganze übrige Helper Szenario obsolet machen.

Besser wäre vielleicht ein Record:

Delphi-Quellcode:

type
  TCaster = record
    function TryCast<TCastType: Class>(Source: TObject; out Target: TCastType): Boolean;
  end;

function TCaster.TryCast<TCastType>(Source: TObject; out Target: TCastType): Boolean;
begin
  Result := Source is TCastType;
  if Result then
    Target := Source
  else
    Target := nil;
end;

[bernau]

Nennt mich altmodisch, aber was ist gegen eine "einfache" Funktion, wie sx2008 es gezeigt hat, auszusetzen.

Was ist der Vorteil von Class-Helper. In den Beiträgen sehe ich zwar, wie der Classhelper definiert ist. Aber wie wird er angewendet?

[Sir Rufo]

Ein ClassHelper erweitert eine Klasse um Methoden, die dann einfach benutzt werden können.
In diesem Beispiel also so

Delphi-Quellcode:

if Sender.TryCast<TEdit>( Edit ) then
  Edit.Text := 'tut';

[bernau]

Zitat von Sir Rufo:

Ein ClassHelper erweitert eine Klasse um Methoden, die dann einfach benutzt werden können.
In diesem Beispiel also so

Delphi-Quellcode:

if Sender.TryCast<TEdit>( Edit ) then
  Edit.Text := 'tut';

Danke. Wieder was gelernt.

[uligerhardt]

Zitat von Sir Rufo:

Ein ClassHelper erweitert eine Klasse um Methoden, die dann einfach benutzt werden können.
In diesem Beispiel also so

Delphi-Quellcode:

if Sender.TryCast<TEdit>( Edit ) then
  Edit.Text := 'tut';

Delphi-Quellcode:

if TryCast<TEdit>(Sender, Edit) then
  Edit.Text := 'tut';

wäre aber auch OK und käme ohne class helper aus. Leider kann Delphi (noch) keine globalen generischen Routinen. (Warum eigentlich?)

[himitsu]

Zitat von uligerhardt:

Delphi-Quellcode:

if TryCast<TEdit>(Sender, Edit) then
  Edit.Text := 'tut';

Leider kann Delphi (noch) keine globalen generischen Routinen. (Warum eigentlich?)

Das wüste ich auch gerne, dazumal ich sogar mal eine "Lösung" genannt hatte, wie man es dennoch umgehn könnte.
Einfach eine implizite Klasse drum, um die Funktion, und schon ginge es ohne große Änderung des Compilers.

Nja, aber wenn du OOP mit arbeitest, und diese "Funktion innerhalb von Methoden verwendest, dann kannst du immernoch den ClassHelper verwenden.
Und im Notfall kombiniert man einfach Beides.

Delphi-Quellcode:

  TCastHelper = class helper for TObject
    class function TryCast<TCastType: Class>(Source: TObject; out Target: TCastType): Boolean; overload;
    function TryCast<TCastType: Class>(out Target: TCastType): Boolean; overload;
  end;

Delphi-Quellcode:

// z.B. im ButtonClick:
if x.TryCast(y) or TryCast(x, y) then

[Uwe Raabe]

Zitat von himitsu:

Zitat von uligerhardt:

Leider kann Delphi (noch) keine globalen generischen Routinen. (Warum eigentlich?)

Das wüste ich auch gerne, dazumal ich sogar mal eine "Lösung" genannt hatte, wie man es dennoch umgehn könnte.
Einfach eine implizite Klasse drum, um die Funktion, und schon ginge es ohne große Änderung des Compilers.

Globale Prozeduren und Funktionen sind ja sowas von out - man nimmt dafür jetzt statische Klassenmethoden in Records.