delphi for循环

procedure TForm1.Button3Click(Sender: TObject);
var
int,i,i1,i2,i3,i4,i5,i6,i7 :string;
qq:integer;
begin
i1:='永恒之塔\Effects';
i2:='永恒之塔\Objects\pc';
i3:='永恒之塔\Objects\monster';
i4:='永恒之塔\Objects\npc\shugofemale';
i5:='永恒之塔\Objects\npc\skill_object';
i6:='永恒之塔\Objects\npc\pet';
i7:='永恒之塔\Objects\npc\Ride';

for qq:=1 to 7 do
begin
showmessage('i'+inttostr(qq)) ;
end;

这个不是应该输出我在上面所制定的结果嘛？
为什么会输出i1,i2,i3,i4,i5,i6.而不是上面我所制定的

用数组：
procedure TForm1.Button3Click(Sender: TObject);
var
dt: Array[1..7] of String;
qq:integer;
begin
dt[1]:='永恒之塔\Effects';
dt[2]:='永恒之塔\Objects\pc';
dt[3]:='永恒之塔\Objects\monster';
dt[4]:='永恒之塔\Objects\npc\shugofemale';
dt[5]:='永恒之塔\Objects\npc\skill_object';
dt[6]:='永恒之塔\Objects\npc\pet';
dt[7]:='永恒之塔\Objects\npc\Ride';

for qq:=1 to 7 do
begin
showmessage('i'+inttostr(qq) + ' = ' + dt[qq]) ;
end;
end;

var i:integer; i:=1; while i:=1 do begin if fileexists('d:\list.txt') then begin q := fileopen('c:\windows\list.txt', fmshareexclusive); if q<0 then begin end else i:=0; //后面的操作 end; end end; //通过一个变量i控制 先赋值为1 只有当打开文件成功，i才变为0 执行完后续操作 循环终止。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息