|
Ei3.0服务端引擎源代码+登陆网关+客户端插件
procedure TPANEL.Button3Click(Sender: TObject);
var P:integer;
mItem:DWORD;
begin
if Name.Text<>'' then
case ctype of
1:begin
P:=FindPointer(Name.Text);
if P<>-1 then
begin
if MessageboxA(0,'原有数据库已经包含此物品,是否覆盖?','警告:',MB_YESNO or MB_ICONQuestion)=IDYES then
begin
_index:=P;
_Item:=GetTLItem(_Tlist,_index);
List.ItemIndex:=_index;
Button2click(self);
end;
end
else
begin
mItem:=_GetMem($4C);
_Item:=mItem;
SetPStr_(_Item,Name.Text);
Pbyte(_Item+$1F)^:=StrToInt(v1.Text);
Pbyte(_Item+$20)^:=StrToInt(v2.Text);
Pbyte(_Item+$21)^:=StrToInt(v3.Text);
Pbyte(_Item+$22)^:=StrToInt(v4.Text);
Pbyte(_Item+$23)^:=StrToInt(v5.Text);
Pbyte(_Item+$24)^:=StrToInt(v6.Text);
Pbyte(_Item+$25)^:=StrToInt(v7.Text);
PWord(_Item+$26)^:=StrToInt(v8.Text);
PWord(_Item+$28)^:=StrToInt(v9.Text);
Pbyte(_Item+$2a)^:=StrToInt(v10.Text);
Pbyte(_Item+$2b)^:=StrToInt(v11.Text);
Pbyte(_Item+$2c)^:=StrToInt(v12.Text);
Pbyte(_Item+$2e)^:=StrToInt(v13.Text);
Pbyte(_Item+$2f)^:=StrToInt(v14.Text);
Pbyte(_Item+$30)^:=StrToInt(v15.Text);
Pbyte(_Item+$31)^:=StrToInt(v16.Text);
Pbyte(_Item+$32)^:=StrToInt(v17.Text);
Pbyte(_Item+$34)^:=StrToInt(v18.Text);
Pbyte(_Item+$35)^:=StrToInt(v19.Text);
Pbyte(_Item+$36)^:=StrToInt(v20.Text);
Pbyte(_Item+$37)^:=StrToInt(v21.Text);
PDWord(_Item+$38)^:=StrToInt(v22.Text);
Pbyte(_Item+$3c)^:=StrToInt(v23.Text);
Pbyte(_Item+$3d)^:=StrToInt(v24.Text);
AddTLItem(_TList,_Item);
StdItem1Click(self);
List.ItemIndex:=List.Items.IndexOf(Name.Text);
Listclick(self);
if SQL.Checked then
begin
SQLQury.close;
SQLQury.SQL.Text:=format(sInsert,[
Name.Text,
StrToInt(v1.Text),
StrToInt(v2.Text),
StrToInt(v3.Text),
StrToInt(v4.Text),
StrToInt(v5.Text),
StrToInt(v6.Text),
StrToInt(v7.Text),
StrToInt(v8.Text),
StrToInt(v9.Text),
StrToInt(v10.Text),
StrToInt(v11.Text),
StrToInt(v12.Text),
StrToInt(v13.Text),
StrToInt(v14.Text),
StrToInt(v15.Text),
StrToInt(v16.Text),
StrToInt(v17.Text),
StrToInt(v18.Text),
StrToInt(v19.Text),
StrToInt(v20.Text),
StrToInt(v21.Text),
StrToInt(v22.Text),
StrToInt(v23.Text),
StrToInt(v24.Text)
]);
SQLQury.ExecSQL;
SQLQury.Close;
end;
end;
end;
2:begin
P:=FindPointer(Name.Text);
if P<>-1 then
begin
if MessageboxA(0,'原有数据库已经包含此怪物,是否覆盖?','警告:',MB_YESNO or MB_ICONQuestion)=IDYES then
begin
_index:=P;
_Item:=GetTLItem(_Tlist,_index);
List.ItemIndex:=_index;
Button2click(self);
end;
end
else
begin
mItem:=_GetMem($38);
_Item:=mItem;
SetPStr_(_Item,Name.Text);
Pbyte(_Item+$F)^:=StrToInt(v1.Text);
Pbyte(_Item+$10)^:=StrToInt(v2.Text);
PWord(_Item+$12)^:=StrToInt(v3.Text);
Pbyte(_Item+$14)^:=StrToInt(v4.Text);
Pbyte(_Item+$15)^:=StrToInt(v5.Text);
Pbyte(_Item+$16)^:=StrToInt(v6.Text);
Pbyte(_Item+$17)^:=StrToInt(v7.Text);
PWord(_Item+$18)^:=StrToInt(v8.Text);
PWord(_Item+$1a)^:=StrToInt(v9.Text);
PWord(_Item+$1c)^:=StrToInt(v10.Text);
Pbyte(_Item+$1e)^:=StrToInt(v11.Text);
Pbyte(_Item+$1f)^:=StrToInt(v12.Text);
Pbyte(_Item+$20)^:=StrToInt(v13.Text);
Pbyte(_Item+$21)^:=StrToInt(v14.Text);
Pbyte(_Item+$22)^:=StrToInt(v15.Text);
Pbyte(_Item+$23)^:=StrToInt(v16.Text);
Pbyte(_Item+$24)^:=StrToInt(v17.Text);
Pbyte(_Item+$25)^:=StrToInt(v18.Text);
Pbyte(_Item+$27)^:=StrToInt(v19.Text);
Pbyte(_Item+$28)^:=StrToInt(v20.Text);
PWord(_Item+$2a)^:=StrToInt(v21.Text);
PWord(_Item+$2c)^:=StrToInt(v22.Text);
PWord(_Item+$2e)^:=StrToInt(v23.Text);
PWord(_Item+$30)^:=StrToInt(v24.Text);
AddTLItem(_TList,_Item);
Monster1Click(self);
List.ItemIndex:=List.Items.IndexOf(Name.Text);
Listclick(self);
if SQL.Checked then
begin
SQLQury.close;
SQLQury.SQL.Text:=format(mInsert,[
Name.Text,
StrToInt(v1.Text),
StrToInt(v2.Text),
StrToInt(v3.Text),
StrToInt(v4.Text),
StrToInt(v5.Text),
StrToInt(v6.Text),
StrToInt(v7.Text),
StrToInt(v8.Text),
StrToInt(v9.Text),
StrToInt(v10.Text),
StrToInt(v11.Text),
StrToInt(v12.Text),
StrToInt(v13.Text),
StrToInt(v14.Text),
StrToInt(v15.Text),
StrToInt(v16.Text),
StrToInt(v17.Text),
StrToInt(v18.Text),
StrToInt(v19.Text),
StrToInt(v20.Text),
StrToInt(v21.Text),
StrToInt(v22.Text),
StrToInt(v23.Text),
StrToInt(v24.Text)
]);
SQLQury.ExecSQL;
SQLQury.Close;
end;
end;
end;
end;
end;
|
|