delphi基础循环问题

Question

我还是个新手本来想完成一个练习，可是引发了些问题下面是代码
procedure TForm1.Button1Click(Sender: TObject);
 var
  a:array[0..5] of char;
  e:char;
  i:integer;
begin
for i:=0 to 5 do
 for e := 'a' to 'e' do   a[i]:=e;
 for I := 0 to 5 do  showmessage(a[i]);
end;
我想让a[1]=a a[2]=b a[3]=c ........
问问大虾们怎么实现?
上面代码全都是eeeeee
555555555555555555

Answer 1

for i := 1 to 5 do
  a[i] := chr(ord('a') + i - 1);

Answer 2

//delphi 7 测试通过
var
  i:integer;
  a:array[0..5] of char;
begin
  for i:=0 to 5 do
  begin
    a[i]:=char(ord('a')+i);
  end;
end;

Answer 3

楼上正解，测试成功：procedure TForm1.Button1Click(Sender: TObject);
var
  a:array[0..5] of char;
  i:integer;
begin
  for i := 1 to 5 do
    a[i] := chr(ord('a') + i - 1);
  for I := 1 to 5 do
    showmessage(a[i]);
end;
楼主需要注意：
1、a:array[0..5] of char 
  
  是 6 个字符2、for e := 'a' to 'e' do 
 
  是 5 个字符

Answer 4

楼主说了“想让a[1]=a a[2]=b a[3]=c ........”，那就不管a[0]了。:)