wenn alle MeinObjektx von einer Basisklasse MeinObjekt abgeleitet sind kann man ja auch wenn man es nie braucht
TMeinArray= array of TMeinObjekt;
deklarieren und wie folgt verfahren ...
Delphi-Quellcode:
function MeineTolleFunktion(const Parameter: TMeinArray): Boolean; overload;
begin
if High(Parameter)>-1 then
if Parameter[0] is TMeinObjekt1 then Showmessage('Nr1')
else Showmessage('Keine Nr 1');
Result := False;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
vArray1:TMeinArray1;
vArray2:TMeinArray2;
begin
SetLength(vArray1,1);
vArray1[0] := TMeinObjekt1.Create;
MeineTolleFunktion(TMeinArray(vArray1)) ;
vArray1[0].Free;
SetLength(vArray2,1);
vArray2[0] := TMeinObjekt2.Create;
MeineTolleFunktion(TMeinArray(vArray2)) ;
vArray2[0].Free;
end;