请问用delphi如何写下面这个程序？

写一个函数，要求输入abc,则输出abc的所有排列：abc,acb,bca,bac,cab,cba
谢谢！

（我记得好像说要用递归）

用三个循环就可以
你这个好像是3D的全组合吧

procedure TForm1.Button1Click(Sender: TObject);
var
 a,b,c: Integer;
begin
  Memo1.Lines.Clear;
  Memo1.Lines.BeginUpdate;
  for a:= 0 to 9 do
  for b:= 0 to 9 do
  for c:= 0 to 9 do
  begin
  Memo1.Lines.Add(IntToStr(a)+inttostr(b)+inttostr(c));
  end;
  Memo1.Lines.EndUpdate;
end;