Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#5

AW: Beliebiges Array übergeben

  Alt 22. Sep 2012, 00:19
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;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat