dynamisches array an procedure übergeben

[gammatester]

Messies Beispiel kann man natürlich so umschreiben, daß es ohne Fehler kompiliert:

Delphi-Quellcode:

type
 TDingens1 = array of variant;
 TDingens2 = array of TDingens1;

var
  Dingens : TDingens2;

procedure MachMalWas(Input : TDingens1);
begin
  //....
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  MachMalWas(Dingens[0]);
end;