📄 configmerchant.pas
字号:
00556ED8 55 push ebp
00556ED9 8BEC mov ebp, esp
00556EDB 83C4F8 add esp, -$08
00556EDE 8955F8 mov [ebp-$08], edx
00556EE1 8945FC mov [ebp-$04], eax
00556EE4 8B45FC mov eax, [ebp-$04]
00556EE7 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00556EEE 743C jz 00556F2C
00556EF0 8B45FC mov eax, [ebp-$04]
00556EF3 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
00556EFA 7430 jz 00556F2C
00556EFC 8B45FC mov eax, [ebp-$04]
00556EFF 8B8098030000 mov eax, [eax+$0398]
00556F05 8B10 mov edx, [eax]
00556F07 FF92C8000000 call dword ptr [edx+$00C8]
00556F0D 8B55FC mov edx, [ebp-$04]
00556F10 8B92A8030000 mov edx, [edx+$03A8]
00556F16 8882CC0B0000 mov [edx+$0BCC], al
00556F1C 8B45FC mov eax, [ebp-$04]
|
00556F1F E8E8E6FFFF call 0055560C
00556F24 8B45FC mov eax, [ebp-$04]
|
00556F27 E870FCFFFF call 00556B9C
00556F2C 59 pop ecx
00556F2D 59 pop ecx
00556F2E 5D pop ebp
00556F2F C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxSellClick(Sender : TObject);
begin
(*
00556F30 55 push ebp
00556F31 8BEC mov ebp, esp
00556F33 83C4F8 add esp, -$08
00556F36 8955F8 mov [ebp-$08], edx
00556F39 8945FC mov [ebp-$04], eax
00556F3C 8B45FC mov eax, [ebp-$04]
00556F3F 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00556F46 743C jz 00556F84
00556F48 8B45FC mov eax, [ebp-$04]
00556F4B 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
00556F52 7430 jz 00556F84
00556F54 8B45FC mov eax, [ebp-$04]
00556F57 8B8080030000 mov eax, [eax+$0380]
00556F5D 8B10 mov edx, [eax]
00556F5F FF92C8000000 call dword ptr [edx+$00C8]
00556F65 8B55FC mov edx, [ebp-$04]
00556F68 8B92A8030000 mov edx, [edx+$03A8]
00556F6E 8882CD0B0000 mov [edx+$0BCD], al
00556F74 8B45FC mov eax, [ebp-$04]
|
00556F77 E890E6FFFF call 0055560C
00556F7C 8B45FC mov eax, [ebp-$04]
|
00556F7F E818FCFFFF call 00556B9C
00556F84 59 pop ecx
00556F85 59 pop ecx
00556F86 5D pop ebp
00556F87 C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxGetbackClick(Sender : TObject);
begin
(*
00556F88 55 push ebp
00556F89 8BEC mov ebp, esp
00556F8B 83C4F8 add esp, -$08
00556F8E 8955F8 mov [ebp-$08], edx
00556F91 8945FC mov [ebp-$04], eax
00556F94 8B45FC mov eax, [ebp-$04]
00556F97 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00556F9E 743C jz 00556FDC
00556FA0 8B45FC mov eax, [ebp-$04]
00556FA3 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
00556FAA 7430 jz 00556FDC
00556FAC 8B45FC mov eax, [ebp-$04]
00556FAF 8B8094030000 mov eax, [eax+$0394]
00556FB5 8B10 mov edx, [eax]
00556FB7 FF92C8000000 call dword ptr [edx+$00C8]
00556FBD 8B55FC mov edx, [ebp-$04]
00556FC0 8B92A8030000 mov edx, [edx+$03A8]
00556FC6 8882D10B0000 mov [edx+$0BD1], al
00556FCC 8B45FC mov eax, [ebp-$04]
|
00556FCF E838E6FFFF call 0055560C
00556FD4 8B45FC mov eax, [ebp-$04]
|
00556FD7 E8C0FBFFFF call 00556B9C
00556FDC 59 pop ecx
00556FDD 59 pop ecx
00556FDE 5D pop ebp
00556FDF C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxStorageClick(Sender : TObject);
begin
(*
00556FE0 55 push ebp
00556FE1 8BEC mov ebp, esp
00556FE3 83C4F8 add esp, -$08
00556FE6 8955F8 mov [ebp-$08], edx
00556FE9 8945FC mov [ebp-$04], eax
00556FEC 8B45FC mov eax, [ebp-$04]
00556FEF 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00556FF6 743C jz 00557034
00556FF8 8B45FC mov eax, [ebp-$04]
00556FFB 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
00557002 7430 jz 00557034
00557004 8B45FC mov eax, [ebp-$04]
00557007 8B8078030000 mov eax, [eax+$0378]
0055700D 8B10 mov edx, [eax]
0055700F FF92C8000000 call dword ptr [edx+$00C8]
00557015 8B55FC mov edx, [ebp-$04]
00557018 8B92A8030000 mov edx, [edx+$03A8]
0055701E 8882D00B0000 mov [edx+$0BD0], al
00557024 8B45FC mov eax, [ebp-$04]
|
00557027 E8E0E5FFFF call 0055560C
0055702C 8B45FC mov eax, [ebp-$04]
|
0055702F E868FBFFFF call 00556B9C
00557034 59 pop ecx
00557035 59 pop ecx
00557036 5D pop ebp
00557037 C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxUpgradenowClick(Sender : TObject);
begin
(*
00557038 55 push ebp
00557039 8BEC mov ebp, esp
0055703B 83C4F8 add esp, -$08
0055703E 8955F8 mov [ebp-$08], edx
00557041 8945FC mov [ebp-$04], eax
00557044 8B45FC mov eax, [ebp-$04]
00557047 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
0055704E 743C jz 0055708C
00557050 8B45FC mov eax, [ebp-$04]
00557053 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
0055705A 7430 jz 0055708C
0055705C 8B45FC mov eax, [ebp-$04]
0055705F 8B8074030000 mov eax, [eax+$0374]
00557065 8B10 mov edx, [eax]
00557067 FF92C8000000 call dword ptr [edx+$00C8]
0055706D 8B55FC mov edx, [ebp-$04]
00557070 8B92A8030000 mov edx, [edx+$03A8]
00557076 8882D20B0000 mov [edx+$0BD2], al
0055707C 8B45FC mov eax, [ebp-$04]
|
0055707F E888E5FFFF call 0055560C
00557084 8B45FC mov eax, [ebp-$04]
|
00557087 E810FBFFFF call 00556B9C
0055708C 59 pop ecx
0055708D 59 pop ecx
0055708E 5D pop ebp
0055708F C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxGetbackupgnowClick(Sender : TObject);
begin
(*
00557090 55 push ebp
00557091 8BEC mov ebp, esp
00557093 83C4F8 add esp, -$08
00557096 8955F8 mov [ebp-$08], edx
00557099 8945FC mov [ebp-$04], eax
0055709C 8B45FC mov eax, [ebp-$04]
0055709F 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
005570A6 743C jz 005570E4
005570A8 8B45FC mov eax, [ebp-$04]
005570AB 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
005570B2 7430 jz 005570E4
005570B4 8B45FC mov eax, [ebp-$04]
005570B7 8B8090030000 mov eax, [eax+$0390]
005570BD 8B10 mov edx, [eax]
005570BF FF92C8000000 call dword ptr [edx+$00C8]
005570C5 8B55FC mov edx, [ebp-$04]
005570C8 8B92A8030000 mov edx, [edx+$03A8]
005570CE 8882D30B0000 mov [edx+$0BD3], al
005570D4 8B45FC mov eax, [ebp-$04]
|
005570D7 E830E5FFFF call 0055560C
005570DC 8B45FC mov eax, [ebp-$04]
|
005570DF E8B8FAFFFF call 00556B9C
005570E4 59 pop ecx
005570E5 59 pop ecx
005570E6 5D pop ebp
005570E7 C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxRepairClick(Sender : TObject);
begin
(*
005570E8 55 push ebp
005570E9 8BEC mov ebp, esp
005570EB 83C4F8 add esp, -$08
005570EE 8955F8 mov [ebp-$08], edx
005570F1 8945FC mov [ebp-$04], eax
005570F4 8B45FC mov eax, [ebp-$04]
005570F7 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
005570FE 743C jz 0055713C
00557100 8B45FC mov eax, [ebp-$04]
00557103 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
0055710A 7430 jz 0055713C
0055710C 8B45FC mov eax, [ebp-$04]
0055710F 8B8088030000 mov eax, [eax+$0388]
00557115 8B10 mov edx, [eax]
00557117 FF92C8000000 call dword ptr [edx+$00C8]
0055711D 8B55FC mov edx, [ebp-$04]
00557120 8B92A8030000 mov edx, [edx+$03A8]
00557126 8882D40B0000 mov [edx+$0BD4], al
0055712C 8B45FC mov eax, [ebp-$04]
|
0055712F E8D8E4FFFF call 0055560C
00557134 8B45FC mov eax, [ebp-$04]
|
00557137 E860FAFFFF call 00556B9C
0055713C 59 pop ecx
0055713D 59 pop ecx
0055713E 5D pop ebp
0055713F C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxS_repairClick(Sender : TObject);
begin
(*
00557140 55 push ebp
00557141 8BEC mov ebp, esp
00557143 83C4F8 add esp, -$08
00557146 8955F8 mov [ebp-$08], edx
00557149 8945FC mov [ebp-$04], eax
0055714C 8B45FC mov eax, [ebp-$04]
0055714F 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
00557156 743C jz 00557194
00557158 8B45FC mov eax, [ebp-$04]
0055715B 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
00557162 7430 jz 00557194
00557164 8B45FC mov eax, [ebp-$04]
00557167 8B8084030000 mov eax, [eax+$0384]
0055716D 8B10 mov edx, [eax]
0055716F FF92C8000000 call dword ptr [edx+$00C8]
00557175 8B55FC mov edx, [ebp-$04]
00557178 8B92A8030000 mov edx, [edx+$03A8]
0055717E 8882D50B0000 mov [edx+$0BD5], al
00557184 8B45FC mov eax, [ebp-$04]
|
00557187 E880E4FFFF call 0055560C
0055718C 8B45FC mov eax, [ebp-$04]
|
0055718F E808FAFFFF call 00556B9C
00557194 59 pop ecx
00557195 59 pop ecx
00557196 5D pop ebp
00557197 C3 ret
*)
end;
procedure TfrmConfigMerchant.CheckBoxMakedrugClick(Sender : TObject);
begin
(*
00557198 55 push ebp
00557199 8BEC mov ebp, esp
0055719B 83C4F8 add esp, -$08
0055719E 8955F8 mov [ebp-$08], edx
005571A1 8945FC mov [ebp-$04], eax
005571A4 8B45FC mov eax, [ebp-$04]
005571A7 80B8AC03000000 cmp byte ptr [eax+$03AC], $00
005571AE 743C jz 005571EC
005571B0 8B45FC mov eax, [ebp-$04]
005571B3 83B8A803000000 cmp dword ptr [eax+$03A8], +$00
005571BA 7430 jz 005571EC
005571BC 8B45FC mov eax, [ebp-$04]
005571BF 8B808C030000 mov eax, [eax+$038C]
005571C5 8B10 mov edx, [eax]
005571C7 FF92C8000000 call dword ptr [edx+$00C8]
005571CD 8B55FC mov edx, [ebp-$04]
005571D0 8B92A8030000 mov edx, [edx+$03A8]
005571D6 8882CE0B0000 mov [edx+$0BCE], al
005571DC 8B45FC mov eax, [ebp-$04]
|
005571DF E828E4FFFF call 0055560C
005571E4 8B45FC mov eax, [ebp-$04]
|
005571E7 E8B0F9FFFF call 00556B9C
005571EC 59 pop ecx
005571ED 59 pop ecx
005571EE 5D pop ebp
005571EF C3 ret
*)
end;
procedure TfrmConfigMerchant.EditPriceRateChange(Sender : TObject);
begin
(*
00557248 55 push ebp
00557249 8BEC mov ebp, esp
0055724B 83C4F0 add esp, -$10
0055724E 53 push ebx
0055724F 33C9 xor ecx, ecx
00557251 894DF4 mov [ebp-$0C], ecx
00557254 894DF0 mov [ebp-$10], ecx
00557257 8955F8 mov [ebp-$08], edx
0055725A 8945FC mov [ebp-$04], eax
0055725D 33C0 xor eax, eax
0055725F 55 push ebp
* Possible String Reference to: '閙株⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -