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

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