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

Question

showmessage里面的内容跟i1,i2,...半毛钱关系都没有; 前者是字符串，后者是变量自己封装一个类吧,比如像IndexOf(),Strings[]这样的用法

Answer 1

procedure TForm1.Button3Click(Sender: TObject);
var
s:String;
const
   sa:array[1..7] of string = ('永恒之塔\Effects','永恒之塔\Objects\pc',...(共7个自己补充完整）
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 s in sa do
begin
 showmessage(s) ;
end;