以下範例使用遞迴方式產生你要的資料,死怕無法處理太大的數值喔!
在 Form上放個TBitbtn及TMemo物件,然後在Tbitbtn.OnClick事件寫入下列程式片段即可
procedure TForm1.BitBtn3Click(Sender: TObject);
  Procedure AA(Value:Integer;Strs:TStrings);
  var
    i, j : Integer ;
    SubStrs : TStrings ;
    Str : String ;
    Seed : Integer ;
  Begin
    If Value<=1 Then Exit;
    SubStrs := TStringList.Create;
    For i := 1 To Value-1  Do Begin
      SubStrs.Clear;
      AA(Value-i,SubStrs);
      For j := 0 To SubStrs.Count-1 Do Begin
        Str := IntToStr(i) ',' SubStrs[j];
        If Strs.IndexOf(Str) = -1 Then
          Strs.Add(Str);
      End;
      Strs.Add(IntToStr(i) ',' IntToStr(Value-i));
    End;
    SubStrs.Free;
  End;
begin
  Memo1.Lines.Clear;
  AA(SpinEdit1.Value,Memo1.Lines);
end;    範例中沒檢查反向的配對是否重複,需要的話請自行加上囉!

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  SumNumber(StrToInt(Trim(Edit1.Text)), StrToInt(Trim(Edit1.Text)), Trim(Edit1.Text) '=');
end;    procedure TForm1.SumNumber(iTotal, iValue: Integer; Str: String);
var
  i: Integer;
begin
  for i:=iTotal downto 1 do
  begin
    if i<=iValue then
      if i = iTotal then
        Memo1.Lines.Add(Str IntToStr(i))
      else
       SumNumber(iTotal-i, i, Str IntToStr(i) ' ');
  end;
end;