delphi»ù´¡Ñ­»·ÎÊÌâ

ÎÒ»¹ÊǸöÐÂÊÖ¡£¡£¡£±¾À´ÏëÍê³ÉÒ»¸öÁ·Ï°£¬¿ÉÊÇÒý·¢ÁËЩÎÊÌâ¡£¡£¡£ÏÂÃæÊÇ´úÂë
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

---

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

---

//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;

---

Â¥ÉÏÕý½â£¬²âÊԳɹ¦£º

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 ¸ö×Ö·û

---

Â¥Ö÷˵ÁË¡°ÏëÈÃa[1]=a a[2]=b