释、怀 发表于 2020-2-14 06:02:48

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.

蕞后旳牵强 发表于 2020-2-14 12:34:06

无论是不是沙发都得回复下

njwsr123 发表于 2020-2-14 23:08:26

我了个去，顶了

家世界小陶 发表于 2020-2-16 23:17:58

不错 支持一个了

枫霖逸 发表于 2020-2-18 05:10:42

看起来不错

真●ZERO 发表于 2020-2-22 00:40:08

支持，赞一个

fly128jt 发表于 2020-3-6 04:44:08

顶起顶起顶起

WEERT23 发表于 2020-3-8 03:39:00

众里寻他千百度，蓦然回首在这里！

尼玛是尼姑丶 发表于 2020-3-9 02:05:53

打酱油的人拉，回复下赚取积分

601560956 发表于 2020-3-19 21:38:49

回个帖子，下班咯~
页: [1] 2 3 4 5 6 7 8
查看完整版本: 77M2引擎的传奇如何使用静态数组和动态数组脚本范例