delphi 批量生成 A到Z 字母

var
i,m:integer;
Lstr:string;

//delphi 批量生成 A到Z 字母

for i:=0 to 25 do  begin
Memo_A.Lines.Add(Chr(97+i));
end;

//delphi 批量生成 A到Z 字母 按乘法口诀形式排列

for m:=0 to 25 do begin

Lstr:=Lstr+Chr(97+m)+' ';
Memo_A.Lines.Add(Lstr);
end;