Beliebiges Array übergeben

[Panthrax]

Delphi-Quellcode:

type
  PMeinArray = ^TMeinArray;
  TMeinArray = array of TPersistent;

{ Variante 1 }

function MeineTolleFunktion(const Parameter: PMeinArray): Boolean; overload;
begin
  Result := False;
end;

{ Variante 2 }

function MeineTolleFunktion(const Parameter: TMeinArray): Boolean; overload;
begin
  Result := False;
end;

function MeineTolleFunktion(const Parameter: TMeinArray1): Boolean; inline; overload;
var
  P: TMeinArray absolute Parameter;
begin
  Result := MeineTolleFunktion(P);
end;

var
  MeinArray1: TMeinArray1;

begin
  MeineTolleFunktion(@MeinArray1); // Variante 1
  MeineTolleFunktion(MeinArray1);  // Variante 2
end.

Ich würde Variante 2 nehmen, oder von TList ableiten (Variante 3):

Delphi-Quellcode:

{ Variante 3}
type
  TPersistentList = class(TList) // ggf. von TObjectList ableiten
    // Typsicherheit herstellen für TPersistent
  end;

  TMeinObjekt1List = class(TPersistentList)
    // Typsicherheit herstellen für TMeinObjekt1
  end;

function MeineTolleFunktion(const Parameter: TPersistentList): Boolean; overload;
begin
  Result := False;
end;

[Aphton]

Delphi 2007 unterstützt noch keine Generics, oder?

[Bummi]

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;