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
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
就是一个服务端和一个客户端，里边有一些共用单元 ，我在 工程的SEARCH PATH里设置的路径，
里边有个结构体，我在服务端打开，加了成员，但是我在客户端其他单元访问不到我新加的，我在客户端打开那个单元，确实加� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
大家好：
我目前要开发一个ERP中的BOM工时汇总程序，在ORACLE中，BOM表的结构是传统的 父件 子件 式的，工时在另一个表中，可以用left outer join来关联，可以认为，关联后的表结构为 [父件] [ ......
