您所在位置：主题：怎么回事啊
qiugaoqil
[专家分：0] 发布于 2007-04-02 15:21:00
我想让数组中的每个成员轮流显示在edit1.text中,却提司错误...
procedure TForm1.Button1Click(Sender: TObject);
var
qiu: array[1..7] of string;
i:integer;
begin
qiu[1]:='zhanjiang1';
qiu[3]:='zhanjiang3';
qiu[4]:='zhanjiang4';
qiu[5]:='zhanjiang5';
qiu[6]:='zhanjiang6';
qiu[7]:='zhanjiang7';
for i:=1 to 7 do
begin
edit1.Text:=qiu[i];
i:=i+1; //这行错误...
end;
end;
end.[em3]
procedure TForm1.Button1Click(Sender: TObject);
var
qiu: array[1..7] of string;
i:integer;
begin
qiu[1]:='zhanjiang1';
qiu[3]:='zhanjiang3';
qiu[4]:='zhanjiang4';
qiu[5]:='zhanjiang5';
qiu[6]:='zhanjiang6';
qiu[7]:='zhanjiang7';
for i:=1 to 7 do
begin
edit1.Text:=qiu[i];
i:=i+1; //这行错误...
end;
end;
end.[em3]
