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
相关问答：
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
hongqi162、windindance
此2人长期不在线，特别是windindance
更换有能力的人上
hongqi162还是经常上来转转的
引用
更换有能力的人上
其实也不是什么能力的原因，主要可能是时间问题吧
工作的还要上班，学� ......
我在出库窗口写了个方法：ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量，否则就重新输入数量，以下是我的代码：
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......
函数原型：
function ReadIC_GRBH(port: SmallInt; baud: LongInt; out_data: PChar): LongInt;
对应的java是什么？重点在out_data: PChar
Char
引用
Char
错了，应该是String
用JNative去调dll的时候out ......
