Kombinationen von Strings

[Klaus01]

Hallo,

sollte das Thema nicht mit drei geschachtelten For Schleifen zu erschlagen sein?

Delphi-Quellcode:

for i:=0 to StringList1.count -1 do
  for j:=0 to StringList2.count -1 do
    for k:=0 to StringList3.count -1 do
      begin
         Memo1.lines.add(format('%s, %s, %s',[stringList1[i],stringList2[j],stringList3[k]]));
      end;

Grüße
Klaus