把A-Z 共26个字母输出

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;