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

[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?