delphi字符递归

Question

小弟不才,遇到一个问题.是关于递归的.我想递归所有的字母和数子例:  
a b c ..z..0 1 2 3..9..aa ab ac..az..a0 a1 a2..a9..ba bb bz..b0 b1 b2..b9......  就这样递归....各位DELPHI兄弟们有没有好的办法

Answer 1

一个例子:procedure TForm1.DoIt(sHead: String);
var
  cLoop: Char;
begin
  for cLoop := 'a' to 'z' do
    Memo1.Lines.Add(sHead + cLoop);
  for cLoop := '0' to '9' do
    Memo1.Lines.Add(sHead + cLoop);
  if Length(sHead) >= 2 then exit;
  for cLoop := 'a' to 'z' do
    DoIt(sHead + cLoop);
  for cLoop := '0' to '9' do
    DoIt(sHead + cLoop);
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  DoIt('');
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var a:array of char;
   i,n:integer;
   str:string;
begin
   setlength(a,36);
   for i:=0 to 9 do
   a[i]:=chr(i+48);
   for i:=97 to 122 do
   a[i-87]:=chr(i);
   for i:=0 to 35 do
   listbox1.Items.Add(a[i]);
   for i:=0 to 35 do
   for n:=0 to 35 do
   begin
   str:=a[i]+a[n];
   listbox1.Items.Add(str);
   end;
end;