若有一陣列為a[]={1 2 3 4} 若輸入b=1 其組合有4*1=4種組合 若輸入b=2 其組合有4*4=16種組合，請問如何撰寫程式將其組合全部列出來至c[]中 {1 1 1 1} {1 1 1 2} . . . {4 4 4 4}

對不起，寫錯了 b=2 應該是 {1 1} {1 2} {1 3}   .   .   . {4 4} 共16種組合    

引言: 若有一陣列為a[]={1 2 3 4} 若輸入b=1 其組合有4*1=4種組合 若輸入b=2 其組合有4*4=16種組合，請問如何撰寫程式將其組合全部列出來至c[]中 {1 1 1 1} {1 1 1 2} . . . {4 4 4 4}

hihi 不知合不合您用

procedure TForm1.Button1Click(Sender: TObject);
var
ta:array[0..3]of byte;
j,b,i:integer;
begin
b:=2;
for i:=0 to 3 do begin
 ta[i]:=i 1;
end;
if b>=2 then begin
Repeat
for i:=0 to 3 do begin
 for j:=0 to 3 do begin
 memo1.text:=memo1.text inttostr(ta[i]) inttostr(ta[j]) ' ';
 end;
 end;
 b:=b-1;
until b<=1 ;
end;

有些地方可能要改:P 搞不懂!搞不懂!永遠都搞不懂!!

procedure TForm1.Button1Click(Sender: TObject);
const
  A: array[0..3] of Integer = (1,2,3,4); Length(A)進位系統      function IntToStr_YouWant(Value: Integer): string;
  var
    I: Integer;
  begin
    Result := '';
    I := Length(A);
    repeat
      Result := IntToStr(A[Value mod Length(A)])   ','   Result;
      Value := Value div Length(A);
      Dec(I);
    until I = 0;        Result := '{'   Result;
    Result[Length(Result)] := '}';      end;      function GetResultList(ElementCount, ElementPerSet: Integer):  
TStringList;
  var
    I, Count: Integer;
  begin
    Result := TStringList.Create;
    if ElementPerSet > ElementCount then Exit;
    if(ElementCount > 0)and(ElementPerSet > 0) then
    begin
      Count := Round(IntPower(ElementCount,ElementPerSet));
      for I := 0 to Count-1 do
              Result.Add(IntToStr_YouWant(I));
    end;
  end;    var
  B: Integer;
  L: TStringList;
begin
  ShowMessage(IntToStr(Length(A)));
  B := 4;
  L := GetResultList(Length(A),B);
  if Assigned(L) then
    try
      Label1.Caption := IntToStr(L.Count);
      ListBox1.Items.Text := L.Text;
    finally
      FreeAndNil(L);
    end;
end;    

修正!  

  function IntToStr_YouWant(Value, ElementPerSet: Integer): string;<--傳入數字個數
  var
    I: Integer;
  begin
    Result := '';
    if ElementPerSet > 0 then
    begin
      I := ElementPerSet;<--限制數字個數
      repeat
        Result := IntToStr(A[Value mod Length(A)])   ','   Result;
        Value := Value div Length(A);
        Dec(I);
      until I = 0;
      Result := '{'   Result;
      Result[Length(Result)] := '}';
    end;
  end;      function GetResultList(ElementCount, ElementPerSet: Integer): TStringList;
  var
    I, Count: Integer;
  begin
    Result := TStringList.Create;
    if ElementPerSet > ElementCount then Exit;
    if(ElementCount > 0)and(ElementPerSet > 0) then
    begin
      Count := Round(IntPower(ElementCount,ElementPerSet));
      for I := 0 to Count-1 do
              Result.Add(IntToStr_YouWant(I, ElementPerSet));<--傳入數字個數
    end;
  end;