实现获取 按照0-9,a-z,A-Z的顺序规则获取2位字符（转码）

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,StrUtils
;
type
TForm1 = class(TForm)
btn4: TButton;
procedure btn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function FindStr(Strings: TStrings; const SubStr: string): Integer;
begin
for Result := 0 to Strings.Count-1 do
if AnsiContainsStr(Strings[Result], SubStr) then
//AnsiContainsStr和AnsiContainsText在StrUtils单元中定义,Str遵循标准约定来表示比较的时候区分大小写的而Text则表示不区分大小写
exit;
Result := -1;
end;
function SJZH(i: integer): string;
begin
Result := '';
if i<10 then
//0..9
begin
Result := IntToStr(i);
end
else
if (i>9) and (i<36) then
//a..z
begin
Result:= Chr(97+i-10);
end
else
if i>35 then
// A..Z
begin
Result:= Chr(65+i-36);
end;
end;
function GetSj(Strings: TStrings): String;
var
sj:string;
i,j:Integer;
begin
Result:='';
for i:=0 to 61 do
begin
for j:=0 to 61 do
begin
sj:=Concat(SJZH(i), SJZH(j));
if FindStr(Strings,sj)<0
then
begin
Result:=sj;
Exit;
end;
end;
end;
end;
procedure TForm1.btn4Click(Sender: TObject);
var
sjList:TStringList;
i,j:Integer;
sj:string;
begin
sjList:=TStringList.Create;
sjList.Add('00');
sjList.Add('ab');
sjList.Add('ac');
sjList.Add('ae');
sj:=GetSj(sjList);
ShowMessage(sj);
end;
end.