请教循环中的小问题 ( 积分: 48 )

for a to z do
begin
end;
--------------------------------
for 星期日 to 星期六 do
begin
end;

执笔忘字,请教如何实现上述循环?

将a..z 或 星期日..星期六 用数组的形式存储,通过下标来调用
var
zm : array[0.25] of char = ('a','b', ....... 'z'); //初始化
xq : array[0..6] of string=('星期日','星期一',.........'星期六');
i : integer;
s : string;

for i := 0 to 25 do
begin
s := zm;
end;

for i := 0 to 6 do
begin
s := xq;
end;

定义2个枚举类型,用他们的序数来循环