Einzelnen Beitrag anzeigen

dominikkv

Registriert seit: 30. Sep 2006
Ort: Gundelfingen
1.109 Beiträge
 
Delphi 2007 Professional
 
#1

Beliebiges Array übergeben

  Alt 21. Sep 2012, 18:17
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
Dominik
Wer anderen eine Grube gräbt, hat ein Gruben-Grab-Gerät!

Geändert von dominikkv (21. Sep 2012 um 18:19 Uhr) Grund: Delphiversion vergessen
  Mit Zitat antworten Zitat