Kombinationen von Strings

[Iwo Asnet]

Zitat:

Zitat von papax (Beitrag 1147360)

Ich habe eine beliebige Anzahl von TStringListen ...

Zitat:

Zitat von DeddyH (Beitrag 1147361)

...mit 3 verschachtelten Schleifen...?

Zitat:

Zitat von Klaus01 (Beitrag 1147363)

...mit drei geschachtelten For Schleifen

usw.

:gruebel: :mrgreen:

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:

Zitat von jaenicke (Beitrag 1147390)

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

Danke, korrigiert.

Zitat:

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:

Zitat von papax (Beitrag 1147360)

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