Dynamisches Array of Array of String übergeben

[taaktaak]

Moin, Moin.

Habe hier ein Problem und da die Suchfunktion nix brauchbares zu Tage brachte, muss ich jetzt die peinliche Frage öffentlich stellen:

Wie übergebe ich ein dynamisches Array of Array of String?

Delphi-Quellcode:

// bisherige Form (funktioniert)
// ********************************************

// Methode
procedure T~.SetTitles(Titles:Array of String);

// Aufruf
~.SetTitles(['Item1','Item2','Item3']);


// Jetzt muss es aber 2-dimensional sein:
// ********************************************

type  tTitleArray = Array of Array of String;

//Methode (neu)
procedure T~.SetTitles(Titles:tTitleArray);

// Aufruf (neu) << so funktioniert das nicht??!!
~.SetTitles(['Item11','Item12','Item13'],
            ['Item21','Item22','Item23']);

Der Compiler meckert bereits bei Item12 : "Inkompatible Type 'Char' und 'String'"

[Apollonius]

Das geht nicht. Wenn du in die Parameterdeklaration direkt array of String schreibst, wird das ein Open Array Parameter, d.h. ein Parameter, der verschiedene Arten von Arrays akzeptiert, zum Beispiel dynamische, statische oder eben auch Inline-Arrays, wie du sie hier verwendest. Zweidimensional funktioniert das jedoch nicht. Du könntest höchstens ein array of TStringArray verwenden, dann müsstest du jedoch im Aufruf immer noch [StringArray1, StringArray2] übergeben. Das hilft also nicht viel.

[mkinzler]

Oder du verwendest eine Stringliste, welche du dann im Aufruf instantiieren kannst

[taaktaak]

Vielen Dank euch Beiden
dann werde ich jetzt eine grundsätzlich andere Lösung suchen!

[Hawkeye219]

Hallo,

bei Delphi 7 sehe ich auch keine Möglichkeit, bei den BDS-Versionen geht es so:

Delphi-Quellcode:

type
  TStringVector = array of string;

procedure p (const A : array of TStringVector);
begin
end;

procedure q;
begin
  p ([TStringVector.Create('1a', '1b', '1c'),
      TStringVector.Create('2a', '2b'),
      TStringVector.Create('3a')]);
end;

Gruß Hawkeye