請教各位大大: 有三個變項 變項一:1,2,3 變項二:A,B 變項三:x,y 要列出這三個變項的所有組合 1:1,A,x 2:1,A,y 3:1,B,x 4:1,B,y 5:2,A,x ........ 用三個 for loop 可以解決上述的問題, 但頭大的來了, 上述的變項是變動, 而且變項中的值也是變動的, 也就是說: 可能是三個變項, 也可能是五個變項, 而且變項中的可能值也不固定 該如何解最好呢? 謝謝!

用if去判斷要不要loop 應該可以

------
KUSO 無處不在

greenbug 你好    試試以下程式 新開一個Form  , 放個ListBox,放個TBitbtn,然後在其OnClick事作中輸入下列程式碼

Type   // 型態宣告
  StrArray = Array Of String ;  // 好像有現成的
  IntArray = Array Of Integer ; // 先用吧,找到再說     procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  Vars : Array Of StrArray ;
  V1,V2,V3 : StrArray ;
  Cnt,limit : IntArray ;
  i:Integer;
begin
  // 準備動作(三個變項)
  SetLength(V1,3);
  SetLength(V2,3);
  SetLength(V3,2);
  V1[0] := 'A' ;  V1[1] := 'B' ;  V1[2] := 'C' ;
  V2[0] := '1' ;  V2[1] := '2' ;  V2[2] := '3' ;
  V3[0] := 'x' ;  V3[1] := 'y' ;
  SetLength(Vars,3);  // 幾個變數 3
  // 組成 一個陣列的陣列
  Vars[0] := V1 ;
  Vars[1] := V2 ;
  Vars[2] := V3 ;      // 開始處理
  SetLength(Cnt,Length(Vars));
  For i:=Low(Cnt) To High(Cnt) Do Begin
    Cnt[i] := 0 ;
  End;
  ListBox1.Items.Clear;
  While True Do Begin
    ListBox1.Items.Add(Vars[0][Cnt[0]] ',' Vars[1][Cnt[1]] ',' Vars[2][Cnt[2]]);
    For i:=High(Cnt) DownTo 0 Do Begin
      Inc(Cnt[i]);
      If Cnt[i] <= High(Vars[i]) Then
        Break;
      Cnt[i] := 0 ;
    End;
    If i= -1 Then  // 完成了 請看LisiBox的內容
      Break;
  End;    end;

祝好運.......

Dear Chance, 很感謝您的指教! 您的方式是可行的! 謝謝您了!

Dear Chance,    很感謝您的指教! 您的方式是可行的! 謝謝您了!    < >< >