📄 consult.pas
字号:
006989AA 8B5624 mov edx, [esi+$24]
006989AD 8B45F0 mov eax, [ebp-$10]
006989B0 03C7 add eax, edi
* Reference to: system.Move(void;void;void;void;Integer);
|
006989B2 E8C1A0D6FF call 00402A78
006989B7 037E20 add edi, [esi+$20]
006989BA 8D45E4 lea eax, [ebp-$1C]
006989BD 8D5614 lea edx, [esi+$14]
006989C0 B908000000 mov ecx, $00000008
* Reference to: system.@LStrFromArray(String;String;PAnsiChar;Integer);
|
006989C5 E85AB9D6FF call 00404324
006989CA B201 mov dl, $01
006989CC 8B45E4 mov eax, [ebp-$1C]
* Reference to: Unit_005B0D4C.Proc_005B2228
|
006989CF E85498F1FF call 005B2228
006989D4 89461C mov [esi+$1C], eax
006989D7 837E1C00 cmp dword ptr [esi+$1C], +$00
006989DB 740E jz 006989EB
006989DD 33C0 xor eax, eax
006989DF 8AC3 mov al, bl
006989E1 8B55FC mov edx, [ebp-$04]
006989E4 FF848284030000 inc dword ptr [edx+eax*4+$0384]
006989EB FF4DE0 dec dword ptr [ebp-$20]
006989EE 0F85DCFEFFFF jnz 006988D0
006989F4 33DB xor ebx, ebx
006989F6 33C0 xor eax, eax
006989F8 8AC3 mov al, bl
006989FA 8B55FC mov edx, [ebp-$04]
006989FD 8B948284030000 mov edx, [edx+eax*4+$0384]
00698A04 C1E203 shl edx, $03
00698A07 8D1492 lea edx, [edx+edx*4]
00698A0A 8B4DFC mov ecx, [ebp-$04]
00698A0D 8D848178030000 lea eax, [ecx+eax*4+$0378]
* Reference to: system.@ReallocMem;
|
00698A14 E87F9ED6FF call 00402898
00698A19 43 inc ebx
00698A1A 80FB03 cmp bl, $03
00698A1D 75D7 jnz 006989F6
00698A1F 8B45F4 mov eax, [ebp-$0C]
* Reference to: system.TObject.Free(TObject);
|
00698A22 E8A5A8D6FF call 004032CC
00698A27 33C0 xor eax, eax
00698A29 5A pop edx
00698A2A 59 pop ecx
00698A2B 59 pop ecx
00698A2C 648910 mov fs:[eax], edx
00698A2F EB12 jmp 00698A43
* Reference to: system.@HandleAnyException;
|
00698A31 E942ADD6FF jmp 00403778
00698A36 8B45F4 mov eax, [ebp-$0C]
* Reference to: system.TObject.Free(TObject);
|
00698A39 E88EA8D6FF call 004032CC
* Reference to: system.@DoneExcept;
|
00698A3E E851B1D6FF call 00403B94
****** END
|
00698A43 33C0 xor eax, eax
00698A45 5A pop edx
00698A46 59 pop ecx
00698A47 59 pop ecx
00698A48 648910 mov fs:[eax], edx
****** FINALLY
|
00698A4B 687D8A6900 push $00698A7D
00698A50 8D45D8 lea eax, [ebp-$28]
00698A53 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
00698A58 E8BBB6D6FF call 00404118
00698A5D 8D45E4 lea eax, [ebp-$1C]
* Reference to: system.@LStrClr(String;String);
|
00698A60 E88FB6D6FF call 004040F4
00698A65 8D45EC lea eax, [ebp-$14]
* Reference to: system.@LStrClr(String;String);
|
00698A68 E887B6D6FF call 004040F4
00698A6D 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@LStrClr(String;String);
|
00698A70 E87FB6D6FF call 004040F4
00698A75 C3 ret
* Reference to: system.@HandleFinally;
|
00698A76 E9B1AFD6FF jmp 00403A2C
00698A7B EBD3 jmp 00698A50
****** END
|
00698A7D 5F pop edi
00698A7E 5E pop esi
00698A7F 5B pop ebx
00698A80 8BE5 mov esp, ebp
00698A82 5D pop ebp
00698A83 C3 ret
*)
end;
procedure TfrmConsult._PROC_00698AB8(Sender : TObject);
begin
(*
00698AB8 81C4D8FEFFFF add esp, $FFFFFED8
00698ABE 8BF8 mov edi, eax
00698AC0 8BEC mov ebp, esp
00698AC2 8B8760030000 mov eax, [edi+$0360]
00698AC8 85C0 test eax, eax
00698ACA 7405 jz 00698AD1
* Reference to: system.TObject.Free(TObject);
|
00698ACC E8FBA7D6FF call 004032CC
00698AD1 6A03 push $03
00698AD3 6A16 push $16
00698AD5 6A16 push $16
00698AD7 8B8740030000 mov eax, [edi+$0340]
* Reference to field TfrmConsult.OFFS_0120
|
00698ADD 8B8820010000 mov ecx, [eax+$0120]
00698AE3 B201 mov dl, $01
* Reference to class TDZHHQGrid
|
00698AE5 A170245B00 mov eax, dword ptr [$005B2470]
* Reference to: Unit_005B2404.Proc_005B36AC
|
00698AEA E8BDABF1FF call 005B36AC
00698AEF 8BD8 mov ebx, eax
00698AF1 899F60030000 mov [edi+$0360], ebx
00698AF7 8B9744030000 mov edx, [edi+$0344]
00698AFD 8BC3 mov eax, ebx
* Reference to: Unit_005B2404.Proc_005B2B2C
|
00698AFF E828A0F1FF call 005B2B2C
00698B04 B812000000 mov eax, $00000012
00698B09 898764030000 mov [edi+$0364], eax
00698B0F 8BD0 mov edx, eax
00698B11 8B8760030000 mov eax, [edi+$0360]
* Reference to: Unit_005B2404.Proc_005B2BEC
|
00698B17 E8D0A0F1FF call 005B2BEC
00698B1C 33DB xor ebx, ebx
00698B1E 8B3594D07700 mov esi, [$0077D094]
00698B24 C7450400FFFF00 mov dword ptr [ebp+$04], $00FFFF00
00698B2B 33C0 xor eax, eax
00698B2D 894508 mov [ebp+$08], eax
00698B30 8D442428 lea eax, [esp+$28]
00698B34 8B16 mov edx, [esi]
00698B36 B9FF000000 mov ecx, $000000FF
* Reference to: system.@LStrToString;
|
00698B3B E82CB8D6FF call 0040436C
00698B40 8D542428 lea edx, [esp+$28]
00698B44 8D4510 lea eax, [ebp+$10]
00698B47 B110 mov cl, $10
* Reference to: system.@PStrNCpy;
|
00698B49 E836A2D6FF call 00402D84
* Reference to TScreen instance
|
00698B4E A11CD57700 mov eax, dword ptr [$0077D51C]
00698B53 8B00 mov eax, [eax]
* Reference to: forms.TScreen.GetWidth(TScreen):Integer;
|
00698B55 E89AE5DBFF call 004570F4
00698B5A 3D00040000 cmp eax, $00000400
00698B5F 7C08 jl 00698B69
00698B61 66C745004600 mov word ptr [ebp+$00], $0046
00698B67 EB06 jmp 00698B6F
00698B69 66C745004400 mov word ptr [ebp+$00], $0044
00698B6F 84DB test bl, bl
00698B71 7506 jnz 00698B79
00698B73 66C745002800 mov word ptr [ebp+$00], $0028
00698B79 80FB02 cmp bl, $02
00698B7C 7506 jnz 00698B84
00698B7E 66C745005A00 mov word ptr [ebp+$00], $005A
00698B84 84DB test bl, bl
00698B86 7506 jnz 00698B8E
00698B88 C6452102 mov byte ptr [ebp+$21], $02
00698B8C EB04 jmp 00698B92
00698B8E C6452100 mov byte ptr [ebp+$21], $00
00698B92 80FB03 cmp bl, $03
00698B95 7506 jnz 00698B9D
00698B97 66C745005A00 mov word ptr [ebp+$00], $005A
00698B9D 33C0 xor eax, eax
00698B9F 8AC3 mov al, bl
00698BA1 83F811 cmp eax, +$11
00698BA4 0F8787000000 jnbe 00698C31
00698BAA 8A80B78B6900 mov al, byte ptr [eax+$698BB7]
00698BB0 FF2485C98B6900 jmp dword ptr [$698BC9+eax*4]
00698BB7 0102 add [edx], eax
00698BB9 020503060404 add al, byte ptr [$04040603]
00698BBF 0303 add eax, [ebx]
00698BC1 0003 add [ebx], al
00698BC3 0302 add eax, [edx]
00698BC5 0000 add [eax], al
*)
end;
procedure TfrmConsult._PROC_00698C50(Sender : TObject);
begin
(*
00698C50 C60480FB mov byte ptr [eax+eax*4], $FB
00698C54 120F adc cl, byte ptr [edi]
00698C56 85C9 test ecx, ecx
00698C58 FEFF DB $FE, $FF //
00698C5A FF8B87600300 dec dword ptr [ebx+$36087]
00698C60 00B101BA0A00 add [ecx+$ABA01], dh
00698C66 0000 add [eax], al
*)
end;
procedure TfrmConsult._PROC_00698D5C(Sender : TObject);
begin
(*
00698D5C 53 push ebx
00698D5D 56 push esi
00698D5E 57 push edi
00698D5F 51 push ecx
00698D60 8BFA mov edi, edx
00698D62 8BD8 mov ebx, eax
00698D64 C6042400 mov byte ptr [esp], $00
* Reference to field TfrmConsult.OFFS_0360
|
00698D68 8B8360030000 mov eax, [ebx+$0360]
* Reference to: Unit_005B2404.Proc_005B2D50
|
00698D6E E8DD9FF1FF call 005B2D50
00698D73 038368030000 add eax, [ebx+$0368]
00698D79 0FB6B390030000 movzx esi, byte ptr [ebx+$0390]
00698D80 3B84B384030000 cmp eax, [ebx+esi*4+$0384]
00698D87 7D3C jnl 00698DC5
* Reference to field TfrmConsult.OFFS_0360
|
00698D89 8B8360030000 mov eax, [ebx+$0360]
* Reference to: Unit_005B2404.Proc_005B2D50
|
00698D8F E8BC9FF1FF call 005B2D50
00698D94 038368030000 add eax, [ebx+$0368]
00698D9A C1E003 shl eax, $03
00698D9D 8D0480 lea eax, [eax+eax*4]
00698DA0 0384B378030000 add eax, [ebx+esi*4+$0378]
00698DA7 8BD8 mov ebx, eax
00698DA9 8B731C mov esi, [ebx+$1C]
00698DAC 85F6 test esi, esi
00698DAE 7415 jz 00698DC5
00698DB0 C6042401 mov byte ptr [esp], $01
00698DB4 8B06 mov eax, [esi]
* Reference to: Unit_00767B88.Proc_00767F18
|
00698DB6 E85DF10C00 call 00767F18
00698DBB 668B80D1000000 mov ax, word ptr [eax+$00D1]
00698DC2 668907 mov [edi], ax
00698DC5 8A0424 mov al, byte ptr [esp]
00698DC8 5A pop edx
00698DC9 5F pop edi
00698DCA 5E pop esi
00698DCB 5B pop ebx
00698DCC C3 ret
*)
end;
procedure TfrmConsult._PROC_00698DD0(Sender : TObject);
begin
(*
00698DD0 53 push ebx
00698DD1 56 push esi
00698DD2 57 push edi
00698DD3 8BD8 mov ebx, eax
* Reference to field TfrmConsult.OFFS_0360
|
00698DD5 8B8360030000 mov eax, [ebx+$0360]
* Reference to: Unit_005B2404.Proc_005B2D50
|
00698DDB E8709FF1FF call 005B2D50
00698DE0 038368030000 add eax, [ebx+$0368]
00698DE6 8BF0 mov esi, eax
00698DE8 C1E603 shl esi, $03
00698DEB 8D34B6 lea esi, [esi+esi*4]
00698DEE 33C0 xor eax, eax
* Reference to field TfrmConsult.OFFS_0390 : Byte
|
00698DF0 8A8390030000 mov al, byte ptr [ebx+$0390]
00698DF6 03B48378030000 add esi, [ebx+eax*4+$0378]
00698DFD 8B7E1C mov edi, [esi+$1C]
00698E00 85FF test edi, edi
00698E02 7417 jz 00698E1B
00698E04 8B07 mov eax, [edi]
* Reference to: Unit_00767B88.Proc_00767F18
|
00698E06 E80DF10C00 call 00767F18
00698E0B 668B80D1000000 mov ax, word ptr [eax+$00D1]
* Reference to field TfrmConsult.OFFS_0392
|
00698E12 66898392030000 mov [ebx+$0392], ax
00698E19 EB1A jmp 00698E35
* Reference to field TfrmConsult.OFFS_0392
|
00698E1B 8D8392030000 lea eax, [ebx+$0392]
00698E21 50 push eax
* Reference to pointer to GlobalVar_0078CF10
|
00698E22 A1DCCA7700 mov eax, dword ptr [$0077CADC]
00698E27 8B00 mov eax, [eax]
* Possible String Reference to: '600000'
|
00698E29 B9648E6900 mov ecx, $00698E64
00698E2E 33D2 xor edx, edx
* Reference to: Unit_00762200.Proc_00762CC0
|
00698E30 E88B9E0C00 call 00762CC0
* Reference to THJ32Main instance
|
00698E35 A158D37700 mov eax, dword ptr [$0077D358]
00698E3A 8B00 mov eax, [eax]
* Reference to field THJ32Main.OFFS_08CD : Byte
|
00698E3C C680CD08000003 mov byte ptr [eax+$08CD], $03
00698E43 6A00 push $00
* Reference to THJ32Main instance
|
00698E45 A158D37700 mov eax, dword ptr [$0077D358]
00698E4A 8B00 mov eax, [eax]
00698E4C B102 mov cl, $02
00698E4E 8BD3 mov edx, ebx
* Reference to : THJ32Main._PROC_006AC048()
|
00698E50 E8F3310100 call 006AC048
00698E55 5F pop edi
00698E56 5E pop esi
00698E57 5B pop ebx
00698E58 C3 ret
*)
end;
procedure TfrmConsult._PROC_00698E6D(Sender : TObject);
begin
(*
00698E6D 8BEC mov ebp, esp
00698E6F B907000000 mov ecx, $00000007
00698E74 6A00 push $00
00698E76 6A00 push $00
00698E78 49 dec ecx
00698E79 75F9 jnz 00698E74
00698E7B 53 push ebx
00698E7C 56 push esi
00698E7D 57 push edi
00698E7E 8955FC mov [ebp-$04], edx
00698E81 8BD8 mov ebx, eax
00698E83 33C0 xor eax, eax
00698E85 55 push ebp
* Possible String Reference to: '閷┲⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -