zswang(伴水)(被黑中)请过来看看，你的最忧算法(全排列)5分钟还没完。

//给你个固定的就很快了//3到5秒
procedure TForm1.Button1Click(Sender: TObject);
var
  {A1, A2, A3, A4,} A5, A6, A7, A8, A9, A10: Integer;
  {S1, S2, S3, S4, S5,} S6, S7, S8, S9, S10: string;
  S11: string;
  vStringList: TStringList;
begin
  vStringList := TStringList.Create;
  try
    S11 := '0123456789';
    for A10 := 1 to 10 do begin
      S10 := S11;
      Delete(S10, A10, 1);
      for A9 := 1 to 9 do begin
        S9 := S10;
        Delete(S9, A9, 1);
        for A8 := 1 to 8 do begin
          S8 := S9;
          Delete(S8, A8, 1);
          for A7 := 1 to 7 do begin
            S7 := S8;
            Delete(S7, A7, 1);
            for A6 := 1 to 6 do begin
              S6 := S7;
              Delete(S6, A6, 1);
              for A5 := 1 to 5 do
                vStringList.Add(S11[A10] + S10[A9] + S9[A8] + S8[A7] + S7[A6] + S6[A5]);
            end;
          end;
        end;
      end;
    end;
    vStringList.SaveToFile('C:\Temp.txt'); //文件很大，可以用Delphi打开看看
    //10*9*8*7*6*5=151200种排列//*(6+2)=1209600字节
  finally
    vStringList.Free;
  end;
end;