Kombinationen von Strings

[Iwo Asnet]

Zitat von papax:

Ich habe eine beliebige Anzahl von TStringListen ...

Zitat von DeddyH:

...mit 3 verschachtelten Schleifen...?

Zitat von Klaus01:

...mit drei geschachtelten For Schleifen

usw.



Der Fragesteller scheint zufrieden, aber um zu glänzen, hier eine Lösung, die mit beliebig vielen Listen funktioniert (ungetestet).

Delphi-Quellcode:

Procedure Combine (AStringListOfStringLists : TStringList);
  Procedure _Combine (AListIndex : Integer; ACombinedString : String);
  Var
    StringElement : String;

  Begin
    If AListIndex = aStringListOfStringLists.Count - 1 then
      Writeln(Copy (ACombinedString, 1, Length (ACombinedString)-1)) // Komma am Ende wegschnippeln
    else 
      For StringElement in TStringList(AStringListOfStringLists.Objects[AListIndex]) do
        _Combine(AListIndex + 1, ACombinedString + StringElement + ',')
  End;

Begin
  _Combine(0, aStringListOfStringLists);
End;

[jaenicke]

In der for-Schleife hast du beim Cast auf TStringList eine eckige statt einer runden Klammer benutzt.

Außerdem wäre wohl eine TList<TStringList> für AStringListOfStringLists deutlich sinnvoller. Oder auch eine TObjectList, wenn es ein älteres Delphi vor 2009 ist.

[Iwo Asnet]

Zitat von jaenicke:

In der for-Schleife hast du beim Cast auf TStringList eine eckige statt einer runden Klammer benutzt.

Danke, korrigiert.

Zitat von jaenicke:

Außerdem wäre wohl eine TList<TStringList> für AStringListOfStringLists deutlich sinnvoller. Oder auch eine TObjectList, wenn es ein älteres Delphi vor 2009 ist.

Jupp, nur ist das ja nicht auf meinem Mist gewachsen... Kukstu

Zitat von papax:

...Alle StringListen sind als Objekt in einer weiteren StringListe