procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:=0 to 25 do
memo1.lines.Add( Chr(i+ord('a')) ) ;
// 把A-Z 共26个字母输出
end;
end.
------------------------------------------------------------------------------------------
procedure TForm3.Button1Click(Sender: TObject);
var i:char;
begin
for i:='a' to 'z' do
Memo1.Lines.Add(i);
end;
网友评论