program Project2;



{$APPTYPE CONSOLE}



uses

  SysUtils,

  Classes;



procedure gen(const save: TStringList; depth: Integer);

var

  i: Integer;

  l: Integer;

  c: Char;

begin

  save.Clear;

  for c := 'A' to 'Z' do

  begin

    save.Add(c);

  end;

  l := 1;

  while l < depth do

  begin

    for i := 0 to save.Count - 1 do

    begin

      for c := 'A' to 'Z' do

      begin

        save.Add(save[i] + c);

      end;

    end;

    Inc(l);

  end;

end;



var

  x: TStringList;



begin

  x := TStringList.Create;

  try

    gen(x, 4);

    x.SaveToFile('out.txt');

  finally

    x.Free;

  end;   

end.

#1这个方法是错的，楼主的问题实质是n位26进制数的表示方法。

明天传给你，清晨已写好函数。白天去了植物园。回来不开机了。

unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Memo1: TMemo;

    Button1: TButton;

    Edit1: TEdit;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



function GetStr(K:integer):String;

var i,j,l:integer;

    c: Char;

    S,SS:string;

    MyList:TStringList;

begin

  MyList:=TStringList.Create;

  i:=64;

  j:=0;

  ss:='';

  repeat

    i:=i+1;

    C:=Char(i);

    S:=SS+C;

    MyList.Add(S);

    if i=90 then begin

                   SS:=MyList.Strings[j];

                   J:=J+1;

                   i:=64;

                 end;

    l:=length(SS);

  until l>k-1;

  GetStr:=MyList.Text;

  MyList.Free;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

  Memo1.Text:=GetStr(StrToInt(Edit1.text));

end;



end.

这是长度4的演示。结贴了！

引用 5 楼 lyhoo163 的回复:

这是长度4的演示。结贴了！

感谢大侠，非常感谢你的回复，是我的需求没有说清楚，你的答案已经离我的需求很接近了，这两天我也试了一种方法，也可以达到我的需求，我是想实现的是传递字母组合，得到它的下一个字母组合，如：
传递A，得到B
传递Z，得到AA
传递BA，得到BB
传递ZZ，得到AAA
能再支援一下吗？非常感谢！

传递A，一个后续字符
       得到从AA.AB..AZA...要求连续多少个字符，还有长度？

请讲清楚？

引用 7 楼 lyhoo163 的回复:

传递A，一个后续字符
       得到从AA.AB..AZA...要求连续多少个字符，还有长度？

请讲清楚？

只得到它的后续一个组合就可以，就是在传递的字母组合上加1，得到它的下一个组合。
传递A，只得到B
传递Z，只得到AA
传递BA，只得到BB
传递ZZ，只得到AAA
这是不是变成了字母的累加，好像90进制似的，呵呵

就好像数学的1+1要得到2，9+1要得到10

这就是10进制和26进制互转，毫无难度的东西，楼主自己写吧，不要总是在网上骗退休老干部帮你做这做那。

引用 10 楼 DelphiGuy 的回复:

这就是10进制和26进制互转，毫无难度的东西，楼主自己写吧，不要总是在网上骗退休老干部帮你做这做那。

你可以不帮助，没必要在这里编排别人，把“骗”送给你吧！

我只是开个玩笑，如果有退休老干部愿意帮你，那自然是极好的。

呵呵，高手呀

问题解决，感谢各位！感谢善意的帮助和无意的激励！！！！！！！！！！