delphi for循环输出。结果不对。解决思路

delphi for循环输出。。结果不对。

Delphi(Pascal) code

procedure TForm1.Button3Click(Sender: TObject);varint,i,i1,i2,i3,i4,i5,i6,i7 :string;qq:integer;begini1:='永恒之塔\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 dobegin showmessage('i'+inttostr(qq)) ;end;

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

[解决办法]
showmessage里面的内容跟i1,i2,...半毛钱关系都没有; 前者是字符串，后者是变量

自己封装一个类吧,比如像IndexOf(),Strings[]这样的用法
[解决办法]
使用数组...

Delphi(Pascal) code

procedure TForm1.Button1Click(Sender: TObject);var  i: Array[ 1..7 ] Of   string;  qq:integer;begin  i[1]:='永恒之塔\Effects';  i[2]:='永恒之塔\Objects\pc';  i[3]:='永恒之塔\Objects\monster';  i[4]:='永恒之塔\Objects\npc\shugofemale';  i[5]:='永恒之塔\Objects\npc\skill_object';  i[6]:='永恒之塔\Objects\npc\pet';  i[7]:='永恒之塔\Objects\npc\Ride';for qq:=1 to 7 dobegin showmessage(i[qq]) ;end;end; 

 

查看更多 下一篇