16,747
社区成员




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.
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.