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;