Konstrukt wie on...do für die allgemeine Nutzung?

[Redeemer]

Ganz grundlegende Frage: Mir gefällt das Konstrukt on...do im except-Block: Prüft, ob die Exception von einem bestimmten Typ ist, und wenn dann erhält man eine Variable von diesem Typ. Gibt es etwas Vergleichbares auch für die Nutzung außerhalb von except? Klar, es gibt if X is Y then with X as Y do , aber das würde ich gern vermeiden.

[Uwe Raabe]

Klingt irgendwie nach Generics.

[Rudy Velthuis]

Zitat von Redeemer:

Ganz grundlegende Frage: Mir gefällt das Konstrukt on...do im except-Block: Prüft, ob die Exception von einem bestimmten Typ ist, und wenn dann erhält man eine Variable von diesem Typ. Gibt es etwas Vergleichbares auch für die Nutzung außerhalb von except? Klar, es gibt if X is Y then with X as Y do , aber das würde ich gern vermeiden.

Nein, gibt es nicht. Nicht einmal im heutigen Delphi 10.3.1 Rio.

[uligerhardt]

Zitat von Uwe Raabe:

Klingt irgendwie nach Generics.

Oder nach virtuellen Methoden.

[stahli]

Bei Interfaces gibt es Supports:

Delphi-Quellcode:

if Supports(aIntf, IMyIntf, MyIntf) then
begin
  MyIntf.DoIt;
end;

Für Klassen gibt es das m.E. nicht.

[Uwe Raabe]

Vielleicht kommt TValue.TryAsType<T> dem noch am nächsten. Allerdings braucht man dann für jeden Fall eine entsprechend deklarierte Variable. Das ließe sich aber vielleicht wieder über Inline-Variablen lösen. Bleibt aber immer noch ziemlich unelegant:

Delphi-Quellcode:

  var V: TValue := TValue.From<TComponent>(FindComponent('MyName'));

  var btn: TButton;
  if V.TryAsType<TButton>(btn) then begin
    btn.Click;
  end;

  var edt: TEdit;
  if V.TryAsType<TEdit>(edt) then begin
    edt.Clear;
  end;

[Uwe Raabe]

Man kann es aber auch so machen, obwohl ich stark bezweifle, ob das wirklich sinnvoll ist:

Delphi-Quellcode:

  try
    if Odd(Random(2)) then
      raise TButton.Create(nil)
    else
      raise TEdit.Create(nil);
  except
    on instance: TButton do
      instance.Click;
    on instance: TEdit do
      instance.Clear;
  end;

[Medium]

Das nenne ich mal kreativ! Auch wenn es schon deutlich über Missbrauch hinaus geht

[Andreas L.]

Zitat von Uwe Raabe:

Man kann es aber auch so machen, obwohl ich stark bezweifle, ob das wirklich sinnvoll ist:

Delphi-Quellcode:

  try
    if Odd(Random(2)) then
      raise TButton.Create(nil)
    else
      raise TEdit.Create(nil);
  except
    on instance: TButton do
      instance.Click;
    on instance: TEdit do
      instance.Clear;
  end;

Wenn man im except- oder try- Abschnitt auf die Variable instance zugreift und Eigenschaften wie Parent, Visible, etc. setzt führt der Compiler laut Debugger zwar diese Zeilen aus aber die Controls (in meinem Test TButton) erscheint nirgendwo. Ich habe auch versucht instance in einer TObjectList abzulegen und später via ButtonClick Parent, etc. zu setzen. Leider ohne Erfolg. Warum ist das so?

[Neutral General]

Zumindest bei Funktionsparametern gibt es etwas was du tun kannst:

Delphi-Quellcode:

procedure TForm2.FormCreate(Sender: TObject);
var form: TForm absolute Sender;
begin
  if Sender is TForm then
    form.Caption := 'Test';
end;

Weiß nicht ob dir das vllt. weiterhilft.