📄 qkdzh.pas
字号:
* Reference to pointer to GlobalVar_0078CF20
|
0074C50C 8B15D4CE7700 mov edx, [$0077CED4]
0074C512 8B12 mov edx, [edx]
0074C514 8B44821C mov eax, [edx+eax*4+$1C]
0074C518 48 dec eax
0074C519 85C0 test eax, eax
0074C51B 0F8CA5000000 jl 0074C5C6
0074C521 40 inc eax
0074C522 8945E8 mov [ebp-$18], eax
0074C525 33DB xor ebx, ebx
* Reference to HJ32Main
|
0074C527 8B45F4 mov eax, [ebp-$0C]
0074C52A 8D04C0 lea eax, [eax+eax*8]
* Reference to pointer to GlobalVar_0078CF20
|
0074C52D 8B15D4CE7700 mov edx, [$0077CED4]
0074C533 8B12 mov edx, [edx]
0074C535 8B448220 mov eax, [edx+eax*4+$20]
0074C539 8B0498 mov eax, [eax+ebx*4]
0074C53C 85C0 test eax, eax
0074C53E 7C7C jl 0074C5BC
* Reference to HJ32Main
|
0074C540 8B55F4 mov edx, [ebp-$0C]
0074C543 8D14D2 lea edx, [edx+edx*8]
* Reference to pointer to GlobalVar_0078CF20
|
0074C546 8B0DD4CE7700 mov ecx, [$0077CED4]
0074C54C 8B09 mov ecx, [ecx]
0074C54E 8B549120 mov edx, [ecx+edx*4+$20]
0074C552 8BD0 mov edx, eax
0074C554 8D4DF8 lea ecx, [ebp-$08]
0074C557 8B45EC mov eax, [ebp-$14]
* Reference to: mxarrays.TBaseArray.GetItem(TBaseArray;Integer;void;void);
|
0074C55A E861C0D5FF call 004A85C0
0074C55F 8B45F8 mov eax, [ebp-$08]
0074C562 83781000 cmp dword ptr [eax+$10], +$00
0074C566 7E54 jle 0074C5BC
0074C568 8D45E4 lea eax, [ebp-$1C]
0074C56B 8B55F8 mov edx, [ebp-$08]
0074C56E 83C220 add edx, +$20
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074C571 E8A27DCBFF call 00404318
0074C576 8B4DE4 mov ecx, [ebp-$1C]
0074C579 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C57C 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074C582 8B8054020000 mov eax, [eax+$0254]
0074C588 8BD6 mov edx, esi
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074C58A E8C9A7D2FF call 00476D58
0074C58F 8945F0 mov [ebp-$10], eax
0074C592 6A05 push $05
* Reference to HJ32Main
|
0074C594 8B45F4 mov eax, [ebp-$0C]
0074C597 8D04C0 lea eax, [eax+eax*8]
* Reference to pointer to GlobalVar_0078CF20
|
0074C59A 8B15D4CE7700 mov edx, [$0077CED4]
0074C5A0 8B12 mov edx, [edx]
0074C5A2 8B448220 mov eax, [edx+eax*4+$20]
0074C5A6 8B0498 mov eax, [eax+ebx*4]
0074C5A9 50 push eax
0074C5AA 6A00 push $00
0074C5AC 8D55F0 lea edx, [ebp-$10]
0074C5AF B909000000 mov ecx, $00000009
0074C5B4 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074C5B7 E874F8FFFF call 0074BE30
0074C5BC 43 inc ebx
0074C5BD FF4DE8 dec dword ptr [ebp-$18]
0074C5C0 0F8561FFFFFF jnz 0074C527
0074C5C6 33D2 xor edx, edx
0074C5C8 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.Expand(TTreeNode;Boolean);
|
0074C5CA E86D9CD2FF call 0047623C
0074C5CF 803F07 cmp byte ptr [edi], $07
0074C5D2 757D jnz 0074C651
0074C5D4 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C5D6 E8899ED2FF call 00476464
0074C5DB 85C0 test eax, eax
0074C5DD 7572 jnz 0074C651
* Reference to pointer to GlobalVar_0078CF1C
|
0074C5DF A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0074C5E4 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF1C.OFFS_0008
|
0074C5E6 8B7808 mov edi, [eax+$08]
0074C5E9 8B4710 mov eax, [edi+$10]
0074C5EC 48 dec eax
0074C5ED 85C0 test eax, eax
0074C5EF 7C57 jl 0074C648
0074C5F1 40 inc eax
0074C5F2 8945E8 mov [ebp-$18], eax
0074C5F5 33DB xor ebx, ebx
0074C5F7 8D4DF8 lea ecx, [ebp-$08]
0074C5FA 8BD3 mov edx, ebx
0074C5FC 8BC7 mov eax, edi
* Reference to: mxarrays.TBaseArray.GetItem(TBaseArray;Integer;void;void);
|
0074C5FE E8BDBFD5FF call 004A85C0
0074C603 8D45E0 lea eax, [ebp-$20]
0074C606 8B55F8 mov edx, [ebp-$08]
0074C609 83C220 add edx, +$20
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0074C60C E8077DCBFF call 00404318
0074C611 8B4DE0 mov ecx, [ebp-$20]
0074C614 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C617 8B80E4020000 mov eax, [eax+$02E4]
* Reference to field TTreeView.Items : TTreeNodes
|
0074C61D 8B8054020000 mov eax, [eax+$0254]
0074C623 8BD6 mov edx, esi
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
0074C625 E82EA7D2FF call 00476D58
0074C62A 8945F0 mov [ebp-$10], eax
0074C62D 6A08 push $08
0074C62F 53 push ebx
0074C630 6A00 push $00
0074C632 8D55F0 lea edx, [ebp-$10]
0074C635 B909000000 mov ecx, $00000009
0074C63A 8B45FC mov eax, [ebp-$04]
* Reference to : TfrmQJT._PROC_0074BE30()
|
0074C63D E8EEF7FFFF call 0074BE30
0074C642 43 inc ebx
0074C643 FF4DE8 dec dword ptr [ebp-$18]
0074C646 75AF jnz 0074C5F7
0074C648 33D2 xor edx, edx
0074C64A 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.Expand(TTreeNode;Boolean);
|
0074C64C E8EB9BD2FF call 0047623C
0074C651 33C0 xor eax, eax
0074C653 5A pop edx
0074C654 59 pop ecx
0074C655 59 pop ecx
0074C656 648910 mov fs:[eax], edx
****** FINALLY
|
0074C659 6873C67400 push $0074C673
0074C65E 8D45E0 lea eax, [ebp-$20]
0074C661 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
0074C666 E8AD7ACBFF call 00404118
0074C66B C3 ret
* Reference to: system.@HandleFinally;
|
0074C66C E9BB73CBFF jmp 00403A2C
0074C671 EBEB jmp 0074C65E
****** END
|
0074C673 5F pop edi
0074C674 5E pop esi
0074C675 5B pop ebx
0074C676 8BE5 mov esp, ebp
0074C678 5D pop ebp
0074C679 C3 ret
*)
end;
procedure TfrmQJT.TreeFuncDblClick(Sender : TObject);
begin
(*
0074C78C 55 push ebp
0074C78D 8BEC mov ebp, esp
0074C78F 51 push ecx
0074C790 53 push ebx
0074C791 56 push esi
0074C792 8945FC mov [ebp-$04], eax
0074C795 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeFunc : TTreeView
|
0074C798 8B80E8020000 mov eax, [eax+$02E8]
* Reference to: comctrls.TCustomTreeView.GetSelection(TCustomTreeView):TTreeNode;
|
0074C79E E80DB9D2FF call 004780B0
0074C7A3 8BF0 mov esi, eax
0074C7A5 85F6 test esi, esi
0074C7A7 7440 jz 0074C7E9
* Reference to field TTreeView.Tag : Longint
|
0074C7A9 8B5E0C mov ebx, [esi+$0C]
0074C7AC 85DB test ebx, ebx
0074C7AE 7439 jz 0074C7E9
0074C7B0 803B09 cmp byte ptr [ebx], $09
0074C7B3 7527 jnz 0074C7DC
0074C7B5 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C7B7 E8A89CD2FF call 00476464
0074C7BC 85C0 test eax, eax
0074C7BE 751C jnz 0074C7DC
* Reference to field Longint.OFFS_0008
|
0074C7C0 8B4308 mov eax, [ebx+$08]
0074C7C3 85C0 test eax, eax
0074C7C5 740C jz 0074C7D3
0074C7C7 55 push ebp
0074C7C8 83C9FF or ecx, -$01
0074C7CB 8BD6 mov edx, esi
* Reference to : TfrmQJT._PROC_0074C67C()
|
0074C7CD E8AAFEFFFF call 0074C67C
0074C7D2 59 pop ecx
0074C7D3 33D2 xor edx, edx
0074C7D5 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.Expand(TTreeNode;Boolean);
|
0074C7D7 E8609AD2FF call 0047623C
0074C7DC 803B0A cmp byte ptr [ebx], $0A
0074C7DF 7508 jnz 0074C7E9
* Reference to field Longint.OFFS_0008
|
0074C7E1 8B4308 mov eax, [ebx+$08]
0074C7E4 8B10 mov edx, [eax]
0074C7E6 FF5240 call dword ptr [edx+$40]
0074C7E9 5E pop esi
0074C7EA 5B pop ebx
0074C7EB 59 pop ecx
0074C7EC 5D pop ebp
0074C7ED C3 ret
*)
end;
procedure TfrmQJT._PROC_0074BDA4(Sender : TObject);
begin
(*
0074BDA4 53 push ebx
0074BDA5 8BD8 mov ebx, eax
* Reference to control TfrmQJT.TreeInd : TTreeView
|
0074BDA7 8D93E0020000 lea edx, [ebx+$02E0]
0074BDAD 8BC3 mov eax, ebx
* Reference to : TfrmQJT._PROC_0074BDD8()
|
0074BDAF E824000000 call 0074BDD8
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074BDB4 8D93E4020000 lea edx, [ebx+$02E4]
0074BDBA 8BC3 mov eax, ebx
* Reference to : TfrmQJT._PROC_0074BDD8()
|
0074BDBC E817000000 call 0074BDD8
* Reference to control TfrmQJT.TreeFunc : TTreeView
|
0074BDC1 8D93E8020000 lea edx, [ebx+$02E8]
0074BDC7 8BC3 mov eax, ebx
* Reference to : TfrmQJT._PROC_0074BDD8()
|
0074BDC9 E80A000000 call 0074BDD8
0074BDCE 5B pop ebx
0074BDCF C3 ret
*)
end;
procedure TfrmQJT._PROC_0074BDD8(Sender : TObject);
begin
(*
0074BDD8 53 push ebx
0074BDD9 56 push esi
0074BDDA 8BF2 mov esi, edx
0074BDDC 8B06 mov eax, [esi]
0074BDDE 8B8054020000 mov eax, [eax+$0254]
0074BDE4 33D2 xor edx, edx
* Reference to: comctrls.TTreeNodes.GetNodeFromIndex(TTreeNodes;Integer):TTreeNode;
|
0074BDE6 E80DB2D2FF call 00476FF8
0074BDEB 8BD8 mov ebx, eax
0074BDED 8B430C mov eax, [ebx+$0C]
0074BDF0 85C0 test eax, eax
0074BDF2 7405 jz 0074BDF9
* Reference to: system.@FreeMem;
|
0074BDF4 E8876ACBFF call 00402880
0074BDF9 8BC3 mov eax, ebx
* Reference to: comctrls.TTreeNode.GetNext(TTreeNode):TTreeNode;
|
0074BDFB E8A8A6D2FF call 004764A8
0074BE00 8BD8 mov ebx, eax
0074BE02 85DB test ebx, ebx
0074BE04 7419 jz 0074BE1F
0074BE06 8B430C mov eax, [ebx+$0C]
0074BE09 85C0 test eax, eax
0074BE0B 7405 jz 0074BE12
* Reference to: system.@FreeMem;
|
0074BE0D E86E6ACBFF call 00402880
0074BE12 8BC3 mov eax, ebx
* Reference to: comctrls.TTreeNode.GetNext(TTreeNode):TTreeNode;
|
0074BE14 E88FA6D2FF call 004764A8
0074BE19 8BD8 mov ebx, eax
0074BE1B 85DB test ebx, ebx
0074BE1D 75E7 jnz 0074BE06
0074BE1F 8B06 mov eax, [esi]
0074BE21 8B8054020000 mov eax, [eax+$0254]
* Reference to: comctrls.TTreeNodes.Clear(TTreeNodes);
|
0074BE27 E8FCAED2FF call 00476D28
0074BE2C 5E pop esi
0074BE2D 5B pop ebx
0074BE2E C3 ret
*)
end;
procedure TfrmQJT._PROC_0074BE30(Sender : TObject);
begin
(*
0074BE30 55 push ebp
0074BE31 8BEC mov ebp, esp
0074BE33 53 push ebx
0074BE34 56 push esi
0074BE35 8BF1 mov esi, ecx
0074BE37 8BDA mov ebx, edx
0074BE39 8B03 mov eax, [ebx]
0074BE3B 8BD6 mov edx, esi
* Reference to: comctrls.TTreeNode.SetImageIndex(TTreeNode;TImageIndex);
|
0074BE3D E836A1D2FF call 00475F78
0074BE42 8B03 mov eax, [ebx]
0074BE44 8BD6 mov edx, esi
* Reference to: comctrls.TTreeNode.SetSelectedIndex(TTreeNode;Integer);
|
0074BE46 E879A1D2FF call 00475FC4
0074BE4B 8B03 mov eax, [ebx]
0074BE4D 8BD6 mov edx, esi
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -