Question

delphi 中如果有TIME事件中的局部变量不初始化

procedure TForm1.Timer1Timer(Sender: TObject);
var
i,sl:Integer;
base1,base2,playbase,a,b,c,e:pDWORD;
nelong,rm,mz:string;
d,f:Byte;
pd:DWORD;
begin
try
pd:=rwBase;
if pd>0 then
begin
base1:=Pointer(base);
base2:=Pointer(base1^+$24); //主号名字
mz:=string(base2^);
playbase:=Pointer($0064C7E0);
playbase:=Pointer(playbase^+$5FB60);
e:=Pointer(playbase^+$4);//玩家首列表
a:=Pointer(playbase^+$8);//当前玩家数量
sl:=a^; //指针指向当前玩家数量
for n:=sl downto 1 do;
begin
b:=Pointer(e^+$4+i*$4); //玩家数组
d:=pbyte(b^+$e)^; //人物类型
f:=pbyte(b^+$28)^;//人物名字颜色
if (d=0) and (f<>140) then
begin
c:=Pointer(b^+$24); //玩家名字
rm:=string(c^);
ListBox4.Items.Add(rm);
意思就是要让I变量FOR循环在TIMER每次执行时递减，但我上面的代码，他每次都会初始化，只能显示第一个玩家名字

Answer 1

把I变量声明为全局变量

Answer 2

你只有一个循环，并且循环中什么也没做：
do后面就是个；