X、Yの文字列は大量に入っています

Question

私の悪い英語の私の言い訳の私。 私はstrからそれらを取るシンボルの組み合わせを生成しようとしています：TStringList（Xn、Yn）ここでXは新しい単語のcharの位置であり、Yはその位置の変数です。例えば
が、私は216個の言葉をexpactます私のSTRINGLISTはこの場合

str[0]: '013456789'   
str[1]: 'abcdef' 
str[2]: '5421' 

を持って言うことができます（長さ（文字列[0]）*長さ（文字列[1]）*長さ（のstr [それまでは

str[0][10]+ str[1][6]+ str[2][3] -> 9f2 
str[0][10]+ str[1][6]+ str[2][4] -> 9f1 

に

str[0][1]+ str[1][1]+ str[2][1] -> 0a5 
str[0][1]+ str[1][1]+ str[2][2] -> 0a4 
str[0][1]+ str[1][1]+ str[2][3] -> 0a2 
str[0][1]+ str[1][1]+ str[2][4] -> 0a1 

str[0][1]+ str[1][2]+ str[2][1] -> 0b5 
str[0][1]+ str[1][2]+ str[2][2] -> 0b4 
str[0][1]+ str[1][2]+ str[2][3] -> 0b2 
str[0][1]+ str[1][2]+ str[2][4] -> 0b1 

str[0][1]+ str[1][3]+ str[2][1] -> 0c5 
str[0][1]+ str[1][3]+ str[2][2] -> 0c4 
str[0][1]+ str[1][3]+ str[2][3] -> 0c2 
str[0][1]+ str[1][3]+ str[2][4] -> 0c1 

など：2]））結果は次のようになり

今、私はどのようにすべての可能な単語のためのciclesを作るために "ループ"を作るのに慣れています。一緒に

ループの巣3から

敬具あなたが持っているマーティン

Answer 1

これは再帰で行うことができます。

procedure Recurse(startIx,stopIx: Integer; prefix: String; const aList: TStringList); 
var 
    ch : Char; 
begin 
    if (startIx > stopIx) then begin 
    WriteLn(prefix); 
    end 
    else 
    begin 
    for ch in aList[startIx] do begin 
     Recurse(startIx+1,stopIx,prefix + ch,aList); 
    end; 
    end; 
end; 

---

Recurse(0,str.Count-1,'',str); 

再帰は、最初は魔法のように見えるが、組合せ論のこの種を解決するために非常に効果的な方法であることがあります。

この問題の解決方法は、Cartesian productです。あなたは

を古いDelphiのバージョンを持って、このような文字反復する必要があります。

procedure Recurse(startIx,stopIx: Integer; prefix: String; const aList: TStringList); 
var 
    i : Integer; 
begin 
    if (startIx > stopIx) then begin 
    WriteLn(prefix); 
    end 
    else 
    begin 
    for i := 1 to Length(aList[startIx]) do begin 
     Recurse(startIx+1,stopIx,prefix + aList[startIx][i],aList); 
    end; 
    end; 
end; 

Answer 2

が。

procedure TForm1.FormCreate(Sender: TObject); 
var str: array [0..10] of string; 
    lengths : array [0..10] of integer; 
    combination : string; 
    index: array [0..10] of integer; 
    n, i,j : integer; 
    maxn : integer; 
begin 
    n := 3; { actual number of charaters in output word } 
    str[0]:= '013456789'; 
    str[1]:= 'abcdef'; 
    str[2]:= '5421'; 


    { lengths will be used often later so they will be determined one time } 
    for i:=0 to n-1 do lengths[i] := length(str[i]); 
    maxn := 1; { maxn will be used to determine how meny iterations to make } 
    for i:=0 to n-1 do maxn := maxn * lengths[i]; 
    { start at index 1 (first character) with each character position } 
    for i:=0 to n-1 do index[i]:=1; 


    memo1.Lines.Add(inttostr(maxn)); 

    { iterate all possibilities } 
    for i:=1 to maxn do 
    begin 
     { start creating a combination } 
     combination:=''; 
     for j:=0 to n-1 do 
     begin 
     combination := combination + str[j][index[j]]; 
     end; 
     memo1.Lines.Add(combination); 
     { increment indexes, from last to the first } 
     for j:=n-1 downto 0 do 
     begin 
     index[j] := index[j]+1; 
     { if index is in bounds of character posibilities stop incremented indexes, 
      otherwise reset the index and increment next one } 
     if index[j]<=lengths[j] then 
     begin 
      break; { stop incrementing indexes } 
     end else begin 
      index[j] := 1; { reset the index } 
      { the loop will continue incrementing previous index } 
     end; 
     end; 
    end; 
end; 

の代わりに：

var i,j,k:integer; 

begin 
    s = ''; 
    for i:=1 to length(str[0]) do 
     for j:=1 to length(str[1]) do 
      for k:=1 to length(str[2]) do 
      begin 
       combination := str[0][i]+str[1][j]+str[2][k]; 
       s := s + combination + chr(13) + chr(10); 
      end; 
    { you have all combinations in string s } 
end; 

あなたは文字長の可変数が必要な場合はこのようにそれを実現することができます。私は、strの配列のインデックスは1からゼロからスタートするが、二次元開始の指標と仮定しますi,j,kのような文字インデックスの固定変数を使用すると、それらを配列indexに格納することができます。インデックスを増やすと、紙に2つの数字を追加するときのように機能します。追加しようとすると、考えを得るために

999 
+ 1 
---- 

を取得してください。