📄 configmerchant.pas
字号:
00555FEE 8B10 mov edx, [eax]
00555FF0 FF92E0000000 call dword ptr [edx+$00E0]
00555FF6 33D2 xor edx, edx
00555FF8 8B45FC mov eax, [ebp-$04]
00555FFB 8B8064030000 mov eax, [eax+$0364]
00556001 8B08 mov ecx, [eax]
00556003 FF5164 call dword ptr [ecx+$64]
00556006 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmConfigMerchant._PROC_00556658()
|
00556009 E84A060000 call 00556658
0055600E B201 mov dl, $01
00556010 8B45FC mov eax, [ebp-$04]
00556013 8B80F8020000 mov eax, [eax+$02F8]
00556019 8B08 mov ecx, [eax]
0055601B FF5164 call dword ptr [ecx+$64]
0055601E B201 mov dl, $01
00556020 8B45FC mov eax, [ebp-$04]
00556023 8B8038030000 mov eax, [eax+$0338]
00556029 8B08 mov ecx, [eax]
0055602B FF5164 call dword ptr [ecx+$64]
0055602E 8B45FC mov eax, [ebp-$04]
00556031 C680AC03000001 mov byte ptr [eax+$03AC], $01
00556038 33C0 xor eax, eax
0055603A 5A pop edx
0055603B 59 pop ecx
0055603C 59 pop ecx
0055603D 648910 mov fs:[eax], edx
****** FINALLY
|
00556040 685A605500 push $0055605A
00556045 8D45EC lea eax, [ebp-$14]
00556048 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0055604D E8F2EFEAFF call 00405044
00556052 C3 ret
* Reference to: System.@HandleFinally;
|
00556053 E920E9EAFF jmp 00404978
00556058 EBEB jmp 00556045
****** END
|
0055605A 8BE5 mov esp, ebp
0055605C 5D pop ebp
0055605D C3 ret
*)
end;
procedure TfrmConfigMerchant.FormCreate(Sender : TObject);
begin
(*
00556060 55 push ebp
00556061 8BEC mov ebp, esp
00556063 83C4F8 add esp, -$08
00556066 8955F8 mov [ebp-$08], edx
00556069 8945FC mov [ebp-$04], eax
0055606C 8B45FC mov eax, [ebp-$04]
0055606F 8B8028030000 mov eax, [eax+$0328]
00556075 8B803C020000 mov eax, [eax+$023C]
0055607B BA40615500 mov edx, $00556140
00556080 8B08 mov ecx, [eax]
00556082 FF5138 call dword ptr [ecx+$38]
00556085 8B45FC mov eax, [ebp-$04]
00556088 8B8028030000 mov eax, [eax+$0328]
0055608E 8B803C020000 mov eax, [eax+$023C]
00556094 BA4C615500 mov edx, $0055614C
00556099 8B08 mov ecx, [eax]
0055609B FF5138 call dword ptr [ecx+$38]
0055609E 8B45FC mov eax, [ebp-$04]
005560A1 8B8028030000 mov eax, [eax+$0328]
005560A7 8B803C020000 mov eax, [eax+$023C]
005560AD BA58615500 mov edx, $00556158
005560B2 8B08 mov ecx, [eax]
005560B4 FF5138 call dword ptr [ecx+$38]
005560B7 8B45FC mov eax, [ebp-$04]
005560BA 8B8028030000 mov eax, [eax+$0328]
005560C0 8B803C020000 mov eax, [eax+$023C]
005560C6 BA64615500 mov edx, $00556164
005560CB 8B08 mov ecx, [eax]
005560CD FF5138 call dword ptr [ecx+$38]
005560D0 8B45FC mov eax, [ebp-$04]
005560D3 8B8028030000 mov eax, [eax+$0328]
005560D9 8B803C020000 mov eax, [eax+$023C]
005560DF BA70615500 mov edx, $00556170
005560E4 8B08 mov ecx, [eax]
005560E6 FF5138 call dword ptr [ecx+$38]
005560E9 8B45FC mov eax, [ebp-$04]
005560EC 8B8028030000 mov eax, [eax+$0328]
005560F2 8B803C020000 mov eax, [eax+$023C]
005560F8 BA7C615500 mov edx, $0055617C
005560FD 8B08 mov ecx, [eax]
005560FF FF5138 call dword ptr [ecx+$38]
00556102 8B45FC mov eax, [ebp-$04]
00556105 8B8028030000 mov eax, [eax+$0328]
0055610B 8B803C020000 mov eax, [eax+$023C]
00556111 BA88615500 mov edx, $00556188
00556116 8B08 mov ecx, [eax]
00556118 FF5138 call dword ptr [ecx+$38]
0055611B 8B45FC mov eax, [ebp-$04]
0055611E 8B8028030000 mov eax, [eax+$0328]
00556124 8B803C020000 mov eax, [eax+$023C]
0055612A BA94615500 mov edx, $00556194
0055612F 8B08 mov ecx, [eax]
00556131 FF5138 call dword ptr [ecx+$38]
00556134 59 pop ecx
00556135 59 pop ecx
00556136 5D pop ebp
00556137 C3 ret
*)
end;
procedure TfrmConfigMerchant.ButtonSaveClick(Sender : TObject);
begin
(*
0055571C 55 push ebp
0055571D 8BEC mov ebp, esp
0055571F B90A000000 mov ecx, $0000000A
00555724 6A00 push $00
00555726 6A00 push $00
00555728 49 dec ecx
00555729 75F9 jnz 00555724
0055572B 8955D4 mov [ebp-$2C], edx
0055572E 8945FC mov [ebp-$04], eax
00555731 33C0 xor eax, eax
00555733 55 push ebp
00555734 68E5595500 push $005559E5
***** TRY
|
00555739 64FF30 push dword ptr fs:[eax]
0055573C 648920 mov fs:[eax], esp
0055573F 8B15A4B56500 mov edx, [$0065B5A4]
00555745 8B92C3000000 mov edx, [edx+$00C3]
0055574B 8D45EC lea eax, [ebp-$14]
* Possible String Reference to: 'Merchant.txt'
|
0055574E B9F8595500 mov ecx, $005559F8
* Reference to: System.@LStrCat3;
|
00555753 E8D4FBEAFF call 0040532C
00555758 B201 mov dl, $01
0055575A A1F4CF4100 mov eax, dword ptr [$0041CFF4]
* Reference to: InStack.TInStack.Create(TInStack;boolean);
| or: System.TObject.Create(TObject;Boolean);
|
0055575F E83CEAEAFF call 004041A0
00555764 8945F4 mov [ebp-$0C], eax
00555767 A1ACB46500 mov eax, dword ptr [$0065B4AC]
0055576C 8B00 mov eax, [eax]
0055576E 8B407C mov eax, [eax+$7C]
* Reference to : TQuickList._PROC_00490330()
|
00555771 E8BAABF3FF call 00490330
00555776 33C0 xor eax, eax
00555778 55 push ebp
00555779 68A6595500 push $005559A6
***** TRY
|
0055577E 64FF30 push dword ptr fs:[eax]
00555781 648920 mov fs:[eax], esp
00555784 A1ACB46500 mov eax, dword ptr [$0065B4AC]
00555789 8B00 mov eax, [eax]
0055578B 8B407C mov eax, [eax+$7C]
0055578E 8B4008 mov eax, [eax+$08]
00555791 48 dec eax
00555792 85C0 test eax, eax
00555794 0F8CE4010000 jl 0055597E
0055579A 40 inc eax
0055579B 8945D8 mov [ebp-$28], eax
0055579E C745F800000000 mov dword ptr [ebp-$08], $00000000
005557A5 A1ACB46500 mov eax, dword ptr [$0065B4AC]
005557AA 8B00 mov eax, [eax]
005557AC 8B407C mov eax, [eax+$7C]
005557AF 8B55F8 mov edx, [ebp-$08]
* Reference to: Classes.TList.Get(TList;Integer):Pointer;
|
005557B2 E81D9BECFF call 0041F2D4
005557B7 8945F0 mov [ebp-$10], eax
005557BA 8B45F0 mov eax, [ebp-$10]
005557BD 80B87C0B000000 cmp byte ptr [eax+$0B7C], $00
005557C4 0F85A8010000 jnz 00555972
005557CA 8B45F0 mov eax, [ebp-$10]
005557CD 80B8910B000000 cmp byte ptr [eax+$0B91], $00
005557D4 740F jz 005557E5
005557D6 8D45E8 lea eax, [ebp-$18]
005557D9 BA105A5500 mov edx, $00555A10
* Reference to: System.@LStrLAsg(void;void;void;void);
|
005557DE E8D5F8EAFF call 004050B8
005557E3 EB0D jmp 005557F2
005557E5 8D45E8 lea eax, [ebp-$18]
005557E8 BA1C5A5500 mov edx, $00555A1C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
005557ED E8C6F8EAFF call 004050B8
005557F2 8B45F0 mov eax, [ebp-$10]
005557F5 80B8C00B000000 cmp byte ptr [eax+$0BC0], $00
005557FC 740F jz 0055580D
005557FE 8D45E4 lea eax, [ebp-$1C]
00555801 BA105A5500 mov edx, $00555A10
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00555806 E8ADF8EAFF call 004050B8
0055580B EB0D jmp 0055581A
0055580D 8D45E4 lea eax, [ebp-$1C]
00555810 BA1C5A5500 mov edx, $00555A1C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00555815 E89EF8EAFF call 004050B8
0055581A 8B45F0 mov eax, [ebp-$10]
0055581D 80B8230A000000 cmp byte ptr [eax+$0A23], $00
00555824 7423 jz 00555849
00555826 8D45E0 lea eax, [ebp-$20]
00555829 BA105A5500 mov edx, $00555A10
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0055582E E885F8EAFF call 004050B8
00555833 8B45F0 mov eax, [ebp-$10]
00555836 8B80280A0000 mov eax, [eax+$0A28]
0055583C B9F4010000 mov ecx, $000001F4
00555841 99 cdq
00555842 F7F9 idiv ecx
00555844 8945DC mov [ebp-$24], eax
00555847 EB34 jmp 0055587D
00555849 8B45F0 mov eax, [ebp-$10]
0055584C 80B8300A000000 cmp byte ptr [eax+$0A30], $00
00555853 741B jz 00555870
00555855 8D45E0 lea eax, [ebp-$20]
00555858 BA285A5500 mov edx, $00555A28
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0055585D E856F8EAFF call 004050B8
00555862 8B45F0 mov eax, [ebp-$10]
00555865 8B80340A0000 mov eax, [eax+$0A34]
0055586B 8945DC mov [ebp-$24], eax
0055586E EB0D jmp 0055587D
00555870 8D45E0 lea eax, [ebp-$20]
00555873 BA1C5A5500 mov edx, $00555A1C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00555878 E83BF8EAFF call 004050B8
0055587D 8B45F0 mov eax, [ebp-$10]
00555880 FFB0880B0000 push dword ptr [eax+$0B88]
00555886 68345A5500 push $00555A34
0055588B 8D45CC lea eax, [ebp-$34]
0055588E 8B55F0 mov edx, [ebp-$10]
00555891 83C20F add edx, +$0F
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
00555894 E8EBF9EAFF call 00405284
00555899 FF75CC push dword ptr [ebp-$34]
0055589C 68345A5500 push $00555A34
005558A1 8D55C8 lea edx, [ebp-$38]
005558A4 8B45F0 mov eax, [ebp-$10]
005558A7 8B4030 mov eax, [eax+$30]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
005558AA E8C95BEBFF call 0040B478
005558AF FF75C8 push dword ptr [ebp-$38]
005558B2 68345A5500 push $00555A34
005558B7 8D55C4 lea edx, [ebp-$3C]
005558BA 8B45F0 mov eax, [ebp-$10]
005558BD 8B4034 mov eax, [eax+$34]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
005558C0 E8B35BEBFF call 0040B478
005558C5 FF75C4 push dword ptr [ebp-$3C]
005558C8 68345A5500 push $00555A34
005558CD 8D45C0 lea eax, [ebp-$40]
005558D0 8B55F0 mov edx, [ebp-$10]
005558D3 83C220 add edx, +$20
* Reference to: System.@LStrFromString(String;String;ShortString;ShortString);
| or: System.@WStrFromString(WideString;WideString;ShortString;ShortString);
|
005558D6 E8A9F9EAFF call 00405284
005558DB FF75C0 push dword ptr [ebp-$40]
005558DE 68345A5500 push $00555A34
005558E3 8D55BC lea edx, [ebp-$44]
005558E6 8B45F0 mov eax, [ebp-$10]
005558E9 0FBE80700B0000 movsx eax, byte ptr [eax+$0B70]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
005558F0 E8835BEBFF call 0040B478
005558F5 FF75BC push dword ptr [ebp-$44]
005558F8 68345A5500 push $00555A34
005558FD 8D55B8 lea edx, [ebp-$48]
00555900 8B45F0 mov eax, [ebp-$10]
00555903 0FB78070060000 movzx eax, word ptr [eax+$0670]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
0055590A E8695BEBFF call 0040B478
0055590F FF75B8 push dword ptr [ebp-$48]
00555912 68345A5500 push $00555A34
00555917 FF75E8 push dword ptr [ebp-$18]
0055591A 68345A5500 push $00555A34
0055591F FF75E4 push dword ptr [ebp-$1C]
00555922 68345A5500 push $00555A34
00555927 8B45F0 mov eax, [ebp-$10]
0055592A 8B80C40B0000 mov eax, [eax+$0BC4]
00555930 33D2 xor edx, edx
00555932 52 push edx
00555933 50 push eax
00555934 8D45B4 lea eax, [ebp-$4C]
|
00555937 E8285CEBFF call 0040B564
0055593C FF75B4 push dword ptr [ebp-$4C]
0055593F 68345A5500 push $00555A34
00555944 FF75E0 push dword ptr [ebp-$20]
00555947 68345A5500 push $00555A34
0055594C 8D55B0 lea edx, [ebp-$50]
0055594F 8B45DC mov eax, [ebp-$24]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00555952 E8215BEBFF call 0040B478
00555957 FF75B0 push dword ptr [ebp-$50]
0055595A 8D45D0 lea eax, [ebp-$30]
0055595D BA17000000 mov edx, $00000017
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -