Hallo,
ich habe folgende Arrays:
Delphi-Quellcode:
type
TMeinArray1: array of TMeinObjekt1;
TMeinArray2: array of TMeinObjekt2;
TMeinArray3: array of TMeinObjekt3;
TMeinObjekt1, TMeinObjekt2 und TMeinObjekt3 erben alle von TPersistent, mehr haben sie nicht gemeinsam.
Mein Problem ist, ich möchte eine Funktion schreiben, die Arrays von diesen Typen als Parameter entgegennimmt.
Soll heißen das hier sollte möglich sein:
Delphi-Quellcode:
var
meinArray1: TMeinArray1;
meinArray2: TMeinArray2;
meinArray3: TMeinArray3;
begin
// Initialisiere die drei arrays und fülle sie mit Werten...
MeineTolleFunktion(meinArray1);
MeineTolleFunktion(meinArray2);
MeineTolleFunktion(meinArray3);
end;
Mein Versuch sieht so aus:
Delphi-Quellcode:
function MeineTolleFunktion(const Parameter): Boolean;
var
I1 : Integer;
MeinObjekt: TObject;
begin
// for I1 := 0 to Length(Parameter) - 1 do // Length(Parameter) geht natürlich nicht
// begin
// MeinObjekt := Parameter[I1]; // Parameter[I1] geht natürlich nicht
// MacheWasMit(MeinObjekt);
// end;
end;
Das ganze kompilliert schon mal, nur möchte ich jetzt, wie als Kommentar angedeutet, auf das Array zugreifen...
Hat jemand eine Idee, wie man sowas machen könnte? Oder vielleicht einen ganz anderen Ansatz?
Grüße
Dominik
Edit:// Delphi 7