◇逍遥◆MIR2◇ 发表于 2022-9-19 10:04:09

77M2引擎的传奇如何使用静态数组和动态数组脚本范例

unit UnitArray;

inte**ce
uses SysUtils;

const
JobNames: array of String=('战士', '法师', '道士', '刺客', '弓箭手'); //这是一个静态数组,运行期不需要改变,所以定义为const

var
Job_AddAbility: array of array of Integer;//这是动态数组      

procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs);

implementation

procedure Main(Npc: TNormNPC; Player: TPlayObject; Args: TArgs);
begin
Player.Say(IntToStr(Job_AddAbility)); //访问数组数据
end;

procedure InitArry;
var
I: Integer;
begin
//定义数组大小
SetLength(Job_AddAbility, 5);
for I := 0 to 4 do
    SetLength(Job_AddAbility, 3);

//赋值
Job_AddAbility := ;
Job_AddAbility := ;
Job_AddAbility := ;
Job_AddAbility := ;
Job_AddAbility := ;
end;

procedure FinaArry;
begin
FillChar(Job_AddAbility, SizeOf(Job_AddAbility), #0);
end;

initialization
InitArry;//单元初始化的时候执行数组初始化(M2退出或重加载脚本)

finalization
FinaArry; //单元初始化的时候执行数组初始化(M2退出或重加载脚本)

end.

赵春辉1233321 发表于 2022-9-19 11:06:04

我只是路过打酱油的。

qusi1nide4t 发表于 2022-9-21 06:59:40

真是被感动的痛哭流涕……

djjunlao 发表于 2022-9-22 18:33:01

楼主加油，我们都看好你哦。

calmsolemn 发表于 2022-9-23 07:58:16

楼主加油，我们都看好你哦。

ranyi170 发表于 2022-9-24 20:28:03

真是难得给力的帖子啊。

fhmy 发表于 2022-9-25 17:15:49

真是被感动的痛哭流涕……

jonny_77 发表于 2022-10-3 23:27:56

无回帖，不论坛，这才是人道。

mhtq 发表于 2022-10-7 06:26:13

太生气了，无法HOLD啦 >_<......

wangjun123 发表于 2022-10-7 08:49:08

感恩无私的分享与奉献 :)
页: [1] 2
查看完整版本: 77M2引擎的传奇如何使用静态数组和动态数组脚本范例