UC知道delphi 生成数字和字母
来源：百度知道 编辑：UC知道 时间：2024/04/30 13:48:41
生成一位
1
2
3
...
生成的二位
10
11
12
13
...
生成的三位
100
101
102
103
...
生成的单字母
a
b
c
...
生成的双字母
aa
ab
ac
ad
...
生成三字母
aaa
aab
aac
aad
....
这个改怎么写代码， 谢谢各位....
function createnum(Len: Integer): TStringList;
var
i, startnum, endnum: Integer;
begin
startnum := 1;
endnum := 1;
Result := TStringList.Create;
for i := 1 to Len - 1 do
startnum := startnum * 10;
endnum := startnum * 10;
for i := startnum to endnum do
Result.Add(IntToStr(i));
end;
function createABC(Len: Integer): TStringList;
var
i, j: Integer;
start, first, next: string;
begin
start := '';
for i := 1 to Len do
start := start + 'a';
Result := TStringList.Create;
for i := 1 to Length(start) do
begin
first := start;
first[i] := Char(Ord(first[i]) - 1);
for j := 0 to 25 do
begin
first[i] := Char(Ord(first[i]) + 1);
Result.Add(first);
end;
end;
end;
var
i, j: Integer;
strnum, strABC, tmpstrlist: TStringList;
b