delphi 遍历输出字母A...Z

方法1：

 var aChar:char;

 for aChar := 'A' to 'Z' do //也可以是小写

 begin

 Memo1.Lines.Add(aChar));

 end;

方法2：自定义控制遍历范围

  var aChar:char;

  a:string;

  z:string;

begin

  try

  a:='c';

  z:='z';

  for aChar in [a[1]..z[1]]  do

  begin

      Writeln(''+aChar);

  end;