Parameter mit multiplen Typen

[Uwe Raabe]

Um das mal abzukürzen: Nimm einfach TValue aus System.RTTI für den Parameter-Typ.

Delphi-Quellcode:

procedure DoIt(Param: TValue);
begin
  if Param.IsType<string> then
    ShowMessage(Param.AsString)
  else if Param.IsType<TForm> then
    ShowMessage(Param.AsType<TForm>.Caption);
end;

...

procedure TForm831.FormDblClick(Sender: TObject);
begin
  DoIt('string');
  DoIt(Self);
end;