Zitat von
tn249:
ich habe den Zusammenhang zu meinem Problem nicht verstanden.
Ich habe mich beim Lesen der Frage auch ziemlich blöd angestellt, sorry
Eine Möglichkeit wären überladene Funktionen:
Delphi-Quellcode:
procedure Foo(Color: TColor); overload;
begin
//
end;
procedure Foo(Kind: TKind); overload;
begin
//
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Foo(Blue);
Foo(Car);
end;