delphi 运行exe文件弹出list index out of bounds（2）

来源：百度知道 编辑：UC知道 时间：2024/06/17 20:06:11
program YYGLXT;

uses
Forms,
windows,
dr in 'dr.pas' {dengru},
qd in 'qd.pas' {qidong},
czjm in 'czjm.pas' {gljm},
quanxjm in 'quanxjm.pas' {qxgl},
mimaxg in 'mimaxg.pas' {mmxg},
yonghutj in 'yonghutj.pas' {yhtj},
shanchuyh in 'shanchuyh.pas' {shcyh},
kucungl in 'kucungl.pas' {kcgl},
gonghuoshanggl in 'gonghuoshanggl.pas' {ghshgl},
kehugl in 'kehugl.pas' {khgl},
jinhuo in 'jinhuo.pas' {jhgl},
baobiao in 'baobiao.pas' {bbgl},
xiaoshou in 'xiaoshou.pas' {xsgl},
ypkcguanli in 'ypkcguanli.pas' {kucun},
jinhuodan in 'jinhuodan.pas' {jhdgl},
xiaoshoudan in 'xiaoshoudan.pas' {xsdgl},
thgl in 'thgl.pas' {tuihuo},
tuihuodan in 'tuihuodan.pas' {thdgl},
tongji in 'tongji.pas' {liruntj},

procedure TAnimThread.ChangeXY;
var cur_x,cur_y:Integer;
begin
try
begin
Threadimage.hide;
cur_x:=source_x + trunc((destination_x - source_x)/13) * cur_count;
cur_y:=source_y + trunc((destination_y - source_y)/13) * cur_count;
cur_count:=cur_count + 1;
ThreadImage.Left:=cur_x;
ThreadImage.Top :=cur_y;
threadimage.show;
end
except
end;
end;