Hallo,
wie kann ich folgendes realisieren, ohne eine überladene Prozedur zu verwenden:
Delphi-Quellcode:
type
TMyClass1 = (a,b,c,d);
TMyClass2 = (e,f,g,h);
TMySet1 = set of TMyClass1;
TMySet2 = set of TMyClass2;
procedure DoSomethingWithAnySet(ASet : set);//Was für einen Typ muss de Parameter haben, damit ich jedes Set übergeben kann?
begin
end;
procedure TForm1.Button1Click(Sender : TObject);
var
set1 : TMySet1;
set2 : TMySet2;
begin
DoSomethingWithAnySet(set1);
DoSomethingWithAnySet(set2);
end;
Geht das irgendwie ohne die Prozedur zu überladen?
MfG
Edit:
Es sollte so funktionieren wie bei Objekten:
Delphi-Quellcode:
type
TMyObject1 = class(TObject)
.
.
.
end;
TMyObject2 = class(TObject)
.
.
.
end;
procedure DoSomething(AObject : TObject);//Hier kann ich ja auch beide Objekttypen übergeben
begin
end;