如何循环a b c d........?

Question

var c:char;
for c := 'a' to 'z' do
...

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i : char;
begin
   for i := 'a' to 'c' do
    begin
        showmessage(i);
    end;
end;

Answer 2

一种是以字符的形式，如楼上所述，还有一种是以枚举类型的方式：
定义：
Type
  
   TEnum_Alpha=(a,b,c,d,e);Var
  
   i:TEnum_Alpha;...For i:=a to e do
  ...