📄 jerect.pas
字号:
00636539 8D8DECFEFFFF lea ecx, [ebp+$FFFFFEEC]
0063653F BA02000000 mov edx, $00000002
00636544 B805000000 mov eax, $00000005
* Reference to: system.@Str2Ext;
|
00636549 E8A90DDDFF call 004072F7
0063654E 8D95ECFEFFFF lea edx, [ebp+$FFFFFEEC]
00636554 8D45F4 lea eax, [ebp-$0C]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
00636557 E8BCDDDCFF call 00404318
0063655C 8B55F4 mov edx, [ebp-$0C]
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
0063655F 8B86E0020000 mov eax, [esi+$02E0]
* Reference to: mask.TCustomMaskEdit.SetText(TCustomMaskEdit;AnsiString);
|
00636565 E8F22EEBFF call 004E945C
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
0063656A 8B86E0020000 mov eax, [esi+$02E0]
00636570 8B10 mov edx, [eax]
* Reference to method TMaskEdit.SetFocus()
|
00636572 FF92B0000000 call dword ptr [edx+$00B0]
00636578 8B45FC mov eax, [ebp-$04]
0063657B 66833872 cmp word ptr [eax], +$72
0063657F 0F85C6000000 jnz 0063664B
* Reference to field TfrmJE.OFFS_031C : Byte
|
00636585 80BE1C03000000 cmp byte ptr [esi+$031C], $00
0063658C 754E jnz 006365DC
0063658E 33C9 xor ecx, ecx
00636590 C745F0F4A67700 mov dword ptr [ebp-$10], $0077A6F4
00636597 33C0 xor eax, eax
00636599 8B55F0 mov edx, [ebp-$10]
0063659C 8B1A mov ebx, [edx]
0063659E 8D3CC9 lea edi, [ecx+ecx*8]
006365A1 8D3CBE lea edi, [esi+edi*4]
006365A4 899C8720030000 mov [edi+eax*4+$0320], ebx
006365AB 40 inc eax
006365AC 83C204 add edx, +$04
006365AF 83F809 cmp eax, +$09
006365B2 75E8 jnz 0063659C
006365B4 41 inc ecx
006365B5 8345F024 add dword ptr [ebp-$10], +$24
006365B9 83F909 cmp ecx, +$09
006365BC 75D9 jnz 00636597
* Reference to field TfrmJE.OFFS_031C : Byte
|
006365BE C6861C03000001 mov byte ptr [esi+$031C], $01
006365C5 33C0 xor eax, eax
* Reference to field TfrmJE.OFFS_030C
|
006365C7 89860C030000 mov [esi+$030C], eax
* Reference to field TfrmJE.OFFS_02FC
|
006365CD 8B86FC020000 mov eax, [esi+$02FC]
006365D3 48 dec eax
* Reference to field TfrmJE.OFFS_0310
|
006365D4 898610030000 mov [esi+$0310], eax
006365DA EB5D jmp 00636639
006365DC 33C9 xor ecx, ecx
006365DE C745ECB0A57700 mov dword ptr [ebp-$14], $0077A5B0
006365E5 33C0 xor eax, eax
006365E7 8B55EC mov edx, [ebp-$14]
006365EA 8B1A mov ebx, [edx]
006365EC 8D3CC9 lea edi, [ecx+ecx*8]
006365EF 8D3CBE lea edi, [esi+edi*4]
006365F2 899C8720030000 mov [edi+eax*4+$0320], ebx
006365F9 40 inc eax
006365FA 83C204 add edx, +$04
006365FD 83F809 cmp eax, +$09
00636600 75E8 jnz 006365EA
00636602 41 inc ecx
00636603 8345EC24 add dword ptr [ebp-$14], +$24
00636607 83F909 cmp ecx, +$09
0063660A 75D9 jnz 006365E5
* Reference to field TfrmJE.OFFS_031C : Byte
|
0063660C C6861C03000000 mov byte ptr [esi+$031C], $00
* Reference to field TfrmJE.OFFS_02FC
|
00636613 8B86FC020000 mov eax, [esi+$02FC]
00636619 D1F8 sar eax, 1
0063661B 7903 jns 00636620
0063661D 83D000 adc eax, +$00
* Reference to field TfrmJE.OFFS_030C
|
00636620 89860C030000 mov [esi+$030C], eax
* Reference to field TfrmJE.OFFS_02FC
|
00636626 8B86FC020000 mov eax, [esi+$02FC]
0063662C D1F8 sar eax, 1
0063662E 7903 jns 00636633
00636630 83D000 adc eax, +$00
* Reference to field TfrmJE.OFFS_0310
|
00636633 898610030000 mov [esi+$0310], eax
00636639 8BC6 mov eax, esi
* Reference to : TfrmJE._PROC_00636268()
|
0063663B E828FCFFFF call 00636268
00636640 8BC6 mov eax, esi
* Possible reference to dynamic method TfrmJE.OFFS_FFB0
|
00636642 66BBB0FF mov bx, $FFB0
* Reference to: system.@CallDynaInst;
|
00636646 E85DCEDCFF call 004034A8
0063664B 8B45FC mov eax, [ebp-$04]
0063664E 66833873 cmp word ptr [eax], +$73
00636652 752B jnz 0063667F
* Reference to field TfrmJE.OFFS_031D : Byte
|
00636654 80BE1D03000000 cmp byte ptr [esi+$031D], $00
0063665B 7509 jnz 00636666
* Reference to field TfrmJE.OFFS_031D : Byte
|
0063665D C6861D03000001 mov byte ptr [esi+$031D], $01
00636664 EB07 jmp 0063666D
* Reference to field TfrmJE.OFFS_031D : Byte
|
00636666 C6861D03000000 mov byte ptr [esi+$031D], $00
0063666D 8BC6 mov eax, esi
* Reference to : TfrmJE._PROC_00636268()
|
0063666F E8F4FBFFFF call 00636268
00636674 8BC6 mov eax, esi
* Possible reference to dynamic method TfrmJE.OFFS_FFB0
|
00636676 66BBB0FF mov bx, $FFB0
* Reference to: system.@CallDynaInst;
|
0063667A E829CEDCFF call 004034A8
* Reference to field TfrmJE.OFFS_030C
|
0063667F 8BBE0C030000 mov edi, [esi+$030C]
00636685 8BCF mov ecx, edi
* Reference to field TfrmJE.OFFS_0310
|
00636687 8B9E10030000 mov ebx, [esi+$0310]
0063668D 8B45FC mov eax, [ebp-$04]
00636690 668B00 mov ax, word ptr [eax]
00636693 6683E825 sub ax, +$25
00636697 7411 jz 006366AA
00636699 66FFC8 dec ax
0063669C 7436 jz 006366D4
0063669E 66FFC8 dec ax
006366A1 741F jz 006366C2
006366A3 66FFC8 dec ax
006366A6 7446 jz 006366EE
006366A8 EB58 jmp 00636702
006366AA 8BC7 mov eax, edi
006366AC 0386FC020000 add eax, [esi+$02FC]
006366B2 48 dec eax
006366B3 99 cdq
006366B4 F7BEFC020000 idiv dword ptr [esi+$02FC]
* Reference to field TfrmJE.OFFS_030C
|
006366BA 89960C030000 mov [esi+$030C], edx
006366C0 EB40 jmp 00636702
006366C2 8BC7 mov eax, edi
006366C4 40 inc eax
006366C5 99 cdq
006366C6 F7BEFC020000 idiv dword ptr [esi+$02FC]
* Reference to field TfrmJE.OFFS_030C
|
006366CC 89960C030000 mov [esi+$030C], edx
006366D2 EB2E jmp 00636702
* Reference to field TfrmJE.OFFS_0310
|
006366D4 8B8610030000 mov eax, [esi+$0310]
* Reference to field TfrmJE.OFFS_02FC
|
006366DA 8BBEFC020000 mov edi, [esi+$02FC]
006366E0 03C7 add eax, edi
006366E2 48 dec eax
006366E3 99 cdq
006366E4 F7FF idiv edi
* Reference to field TfrmJE.OFFS_0310
|
006366E6 899610030000 mov [esi+$0310], edx
006366EC EB14 jmp 00636702
* Reference to field TfrmJE.OFFS_0310
|
006366EE 8B8610030000 mov eax, [esi+$0310]
006366F4 40 inc eax
006366F5 99 cdq
006366F6 F7BEFC020000 idiv dword ptr [esi+$02FC]
* Reference to field TfrmJE.OFFS_0310
|
006366FC 899610030000 mov [esi+$0310], edx
* Reference to field TfrmJE.OFFS_030C
|
00636702 3B8E0C030000 cmp ecx, [esi+$030C]
00636708 7511 jnz 0063671B
* Reference to field TfrmJE.OFFS_0310
|
0063670A 3B9E10030000 cmp ebx, [esi+$0310]
00636710 7509 jnz 0063671B
00636712 8B45FC mov eax, [ebp-$04]
00636715 6683380D cmp word ptr [eax], +$0D
00636719 753C jnz 00636757
* Reference to control TfrmJE.MaskEdit1 : TMaskEdit
|
0063671B 8B86DC020000 mov eax, [esi+$02DC]
* Reference to field TMaskEdit.Visible : Boolean
|
00636721 80784700 cmp byte ptr [eax+$47], $00
00636725 7409 jz 00636730
00636727 8BD6 mov edx, esi
00636729 8BC6 mov eax, esi
* Reference to : TfrmJE.MaskEdit1Exit()
|
0063672B E854000000 call 00636784
* Reference to control TfrmJE.MaskEdit2 : TMaskEdit
|
00636730 8B86E0020000 mov eax, [esi+$02E0]
* Reference to field TMaskEdit.Visible : Boolean
|
00636736 80784700 cmp byte ptr [eax+$47], $00
0063673A 7409 jz 00636745
0063673C 8BD6 mov edx, esi
0063673E 8BC6 mov eax, esi
* Reference to : TfrmJE.MaskEdit2Exit()
|
00636740 E82B010000 call 00636870
00636745 8BC6 mov eax, esi
* Reference to : TfrmJE._PROC_00636268()
|
00636747 E81CFBFFFF call 00636268
0063674C 8BC6 mov eax, esi
* Possible reference to dynamic method TfrmJE.OFFS_FFB0
|
0063674E 66BBB0FF mov bx, $FFB0
* Reference to: system.@CallDynaInst;
|
00636752 E851CDDCFF call 004034A8
00636757 33C0 xor eax, eax
00636759 5A pop edx
0063675A 59 pop ecx
0063675B 59 pop ecx
0063675C 648910 mov fs:[eax], edx
****** FINALLY
|
0063675F 6879676300 push $00636779
00636764 8D45F4 lea eax, [ebp-$0C]
00636767 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
0063676C E8A7D9DCFF call 00404118
00636771 C3 ret
* Reference to: system.@HandleFinally;
|
00636772 E9B5D2DCFF jmp 00403A2C
00636777 EBEB jmp 00636764
****** END
|
00636779 5F pop edi
0063677A 5E pop esi
0063677B 5B pop ebx
0063677C 8BE5 mov esp, ebp
0063677E 5D pop ebp
0063677F C20400 ret $0004
*)
end;
procedure TfrmJE.MaskEdit1Exit(Sender : TObject);
begin
(*
00636784 55 push ebp
00636785 8BEC mov ebp, esp
00636787 6A00 push $00
00636789 6A00 push $00
0063678B 6A00 push $00
0063678D 53 push ebx
0063678E 56 push esi
0063678F 57 push edi
00636790 8BD8 mov ebx, eax
00636792 33C0 xor eax, eax
00636794 55 push ebp
* Possible String Reference to: '殒衍⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -