📄 dgmdfwt.pas
字号:
|
006A2CC1 FF570C call dword ptr [edi+$0C]
006A2CC4 8B4DC4 mov ecx, [ebp-$3C]
* Possible String Reference to: 'depart'
|
006A2CC7 BAC02E6A00 mov edx, $006A2EC0
006A2CCC 8B45E0 mov eax, [ebp-$20]
006A2CCF 8B38 mov edi, [eax]
006A2CD1 FF17 call dword ptr [edi]
006A2CD3 EB0D jmp 006A2CE2
006A2CD5 8D4DD4 lea ecx, [ebp-$2C]
006A2CD8 8BD3 mov edx, ebx
006A2CDA 8B45EC mov eax, [ebp-$14]
006A2CDD 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A2CDF FF570C call dword ptr [edi+$0C]
006A2CE2 8B45D4 mov eax, [ebp-$2C]
* Reference to: Unit_005B0D4C.Proc_005B1AFC
|
006A2CE5 E812EEF0FF call 005B1AFC
006A2CEA 2500FF0000 and eax, $0000FF00
006A2CEF 3B45F0 cmp eax, [ebp-$10]
006A2CF2 756E jnz 006A2D62
006A2CF4 8B45E4 mov eax, [ebp-$1C]
006A2CF7 03C0 add eax, eax
006A2CF9 8B55E8 mov edx, [ebp-$18]
006A2CFC 8B4DF0 mov ecx, [ebp-$10]
006A2CFF 890CC2 mov [edx+eax*8], ecx
006A2D02 8D4DC0 lea ecx, [ebp-$40]
006A2D05 8BD3 mov edx, ebx
006A2D07 8B45EC mov eax, [ebp-$14]
006A2D0A 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A2D0C FF570C call dword ptr [edi+$0C]
006A2D0F 8B45C0 mov eax, [ebp-$40]
* Reference to: Unit_005B0D4C.Proc_005B1AFC
|
006A2D12 E8E5EDF0FF call 005B1AFC
006A2D17 8B55E4 mov edx, [ebp-$1C]
006A2D1A 03D2 add edx, edx
006A2D1C 8B4DE8 mov ecx, [ebp-$18]
006A2D1F 8944D104 mov [ecx+edx*8+$04], eax
006A2D23 6A00 push $00
006A2D25 8D45BC lea eax, [ebp-$44]
006A2D28 50 push eax
006A2D29 8D4DB8 lea ecx, [ebp-$48]
006A2D2C 8BD3 mov edx, ebx
006A2D2E 8B45EC mov eax, [ebp-$14]
006A2D31 8B38 mov edi, [eax]
* Reference to method TStringList.Get(Integer)
|
006A2D33 FF570C call dword ptr [edi+$0C]
006A2D36 8B4DB8 mov ecx, [ebp-$48]
006A2D39 8B45FC mov eax, [ebp-$04]
* Reference to field TFrmModifyWT.OFFS_02EC : TStringList
|
006A2D3C 8B80EC020000 mov eax, [eax+$02EC]
* Possible String Reference to: 'ANALYST'
|
006A2D42 BA942E6A00 mov edx, $006A2E94
006A2D47 8B38 mov edi, [eax]
006A2D49 FF17 call dword ptr [edi]
006A2D4B 8B55BC mov edx, [ebp-$44]
006A2D4E 8B45E4 mov eax, [ebp-$1C]
006A2D51 03C0 add eax, eax
006A2D53 8B4DE8 mov ecx, [ebp-$18]
006A2D56 8D44C108 lea eax, [ecx+eax*8+$08]
* Reference to: system.@LStrAsg;
|
006A2D5A E8E913D6FF call 00404148
006A2D5F FF45E4 inc dword ptr [ebp-$1C]
006A2D62 43 inc ebx
006A2D63 4E dec esi
006A2D64 0F8519FFFFFF jnz 006A2C83
006A2D6A 8B45EC mov eax, [ebp-$14]
* Reference to: system.TObject.Free(TObject);
|
006A2D6D E85A05D6FF call 004032CC
006A2D72 8B45DC mov eax, [ebp-$24]
* Reference to: system.TObject.Free(TObject);
|
006A2D75 E85205D6FF call 004032CC
006A2D7A 8B45E0 mov eax, [ebp-$20]
* Reference to: system.TObject.Free(TObject);
|
006A2D7D E84A05D6FF call 004032CC
006A2D82 837DE400 cmp dword ptr [ebp-$1C], +$00
006A2D86 750F jnz 006A2D97
006A2D88 33D2 xor edx, edx
006A2D8A 8B45F8 mov eax, [ebp-$08]
* Reference to: comctrls.TTreeNode.SetChildren(TTreeNode;Boolean);
|
006A2D8D E82636DDFF call 004763B8
006A2D92 E9B9000000 jmp 006A2E50
006A2D97 8B45E4 mov eax, [ebp-$1C]
006A2D9A 50 push eax
006A2D9B 8D45E8 lea eax, [ebp-$18]
006A2D9E B901000000 mov ecx, $00000001
006A2DA3 8B15602B6A00 mov edx, [$006A2B60]
* Reference to: system.@DynArraySetLength;
|
006A2DA9 E82236D6FF call 004063D0
006A2DAE 83C404 add esp, +$04
006A2DB1 6A00 push $00
006A2DB3 8B45E8 mov eax, [ebp-$18]
* Reference to: system.@DynArrayHigh;
|
006A2DB6 E86134D6FF call 0040621C
006A2DBB 50 push eax
006A2DBC 8B45E8 mov eax, [ebp-$18]
* Reference to: system.@DynArrayHigh;
|
006A2DBF E85834D6FF call 0040621C
006A2DC4 8BC8 mov ecx, eax
006A2DC6 8B55E8 mov edx, [ebp-$18]
006A2DC9 8B45FC mov eax, [ebp-$04]
* Reference to : TFrmModifyWT.Proc_006A33B0()
|
006A2DCC E8DF050000 call 006A33B0
006A2DD1 8B45E8 mov eax, [ebp-$18]
* Reference to: system.@DynArrayHigh;
|
006A2DD4 E84334D6FF call 0040621C
006A2DD9 8BF0 mov esi, eax
006A2DDB 85F6 test esi, esi
006A2DDD 7C71 jl 006A2E50
006A2DDF 46 inc esi
006A2DE0 33DB xor ebx, ebx
* Reference to object DepartNode
|
006A2DE2 8B1584276A00 mov edx, [$006A2784]
006A2DE8 B810000000 mov eax, $00000010
* Reference to: system.@New;
|
006A2DED E8CA21D6FF call 00404FBC
006A2DF2 8BF8 mov edi, eax
006A2DF4 8BC3 mov eax, ebx
006A2DF6 03C0 add eax, eax
006A2DF8 8B55E8 mov edx, [ebp-$18]
006A2DFB 8B14C2 mov edx, [edx+eax*8]
006A2DFE 8917 mov [edi], edx
006A2E00 8B55E8 mov edx, [ebp-$18]
006A2E03 8B54C204 mov edx, [edx+eax*8+$04]
006A2E07 895704 mov [edi+$04], edx
006A2E0A 8B55E8 mov edx, [ebp-$18]
006A2E0D 8B4CC208 mov ecx, [edx+eax*8+$08]
006A2E11 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmModifyWT.TreeView1 : TTreeView
|
006A2E14 8B80D4020000 mov eax, [eax+$02D4]
* Reference to field TTreeView.Items : TTreeNodes
|
006A2E1A 8B8054020000 mov eax, [eax+$0254]
006A2E20 8B55F8 mov edx, [ebp-$08]
* Reference to: comctrls.TTreeNodes.AddChildFirst(TTreeNodes;TTreeNode;AnsiString):TTreeNode;
|
006A2E23 E8303FDDFF call 00476D58
006A2E28 8945F4 mov [ebp-$0C], eax
006A2E2B 8BD7 mov edx, edi
006A2E2D 8B45F4 mov eax, [ebp-$0C]
* Reference to: comctrls.TTreeNode.SetData(TTreeNode;Pointer);
|
006A2E30 E85730DDFF call 00475E8C
006A2E35 33D2 xor edx, edx
006A2E37 8B45F4 mov eax, [ebp-$0C]
* Reference to: comctrls.TTreeNode.SetImageIndex(TTreeNode;TImageIndex);
|
006A2E3A E83931DDFF call 00475F78
006A2E3F BA01000000 mov edx, $00000001
006A2E44 8B45F4 mov eax, [ebp-$0C]
* Reference to: comctrls.TTreeNode.SetSelectedIndex(TTreeNode;Integer);
|
006A2E47 E87831DDFF call 00475FC4
006A2E4C 43 inc ebx
006A2E4D 4E dec esi
006A2E4E 7592 jnz 006A2DE2
006A2E50 33C0 xor eax, eax
006A2E52 5A pop edx
006A2E53 59 pop ecx
006A2E54 59 pop ecx
006A2E55 648910 mov fs:[eax], edx
****** FINALLY
|
006A2E58 68802E6A00 push $006A2E80
006A2E5D 8D45B8 lea eax, [ebp-$48]
006A2E60 BA08000000 mov edx, $00000008
* Reference to: system.@LStrArrayClr;
|
006A2E65 E8AE12D6FF call 00404118
006A2E6A 8D45E8 lea eax, [ebp-$18]
006A2E6D 8B15602B6A00 mov edx, [$006A2B60]
* Reference to: system.@DynArrayClear(Pointer;Pointer;Pointer);
|
006A2E73 E85836D6FF call 004064D0
006A2E78 C3 ret
* Reference to: system.@HandleFinally;
|
006A2E79 E9AE0BD6FF jmp 00403A2C
006A2E7E EBDD jmp 006A2E5D
****** END
|
006A2E80 5F pop edi
006A2E81 5E pop esi
006A2E82 5B pop ebx
006A2E83 8BE5 mov esp, ebp
006A2E85 5D pop ebp
006A2E86 C20400 ret $0004
*)
end;
procedure TFrmModifyWT.TreeView1Change(Sender : TObject);
begin
(*
006A2EC8 53 push ebx
006A2EC9 56 push esi
006A2ECA 8BF1 mov esi, ecx
006A2ECC 8BD8 mov ebx, eax
006A2ECE 8B5608 mov edx, [esi+$08]
* Reference to control TFrmModifyWT.Edit1 : TEdit
|
006A2ED1 8B83E8020000 mov eax, [ebx+$02E8]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006A2ED7 E8A46BD9FF call 00439A80
006A2EDC 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetLevel(TTreeNode):Integer;
|
006A2EDE E84D3ADDFF call 00476930
006A2EE3 48 dec eax
006A2EE4 7D10 jnl 006A2EF6
006A2EE6 33D2 xor edx, edx
* Reference to control TFrmModifyWT.BitBtn1 : TBitBtn
|
006A2EE8 8B83DC020000 mov eax, [ebx+$02DC]
006A2EEE 8B08 mov ecx, [eax]
* Possible reference to virtual method TBitBtn.OFFS_5C
|
006A2EF0 FF515C call dword ptr [ecx+$5C]
006A2EF3 5E pop esi
006A2EF4 5B pop ebx
006A2EF5 C3 ret
006A2EF6 B201 mov dl, $01
* Reference to control Containing : N.A.
|
006A2EF8 8B83DC020000 mov eax, [ebx+$02DC]
006A2EFE 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_5C
|
006A2F00 FF515C call dword ptr [ecx+$5C]
006A2F03 5E pop esi
006A2F04 5B pop ebx
006A2F05 C3 ret
*)
end;
procedure TFrmModifyWT.BitBtn1Click(Sender : TObject);
begin
(*
006A2F08 55 push ebp
006A2F09 8BEC mov ebp, esp
006A2F0B 6A00 push $00
006A2F0D 6A00 push $00
006A2F0F 53 push ebx
006A2F10 8BD8 mov ebx, eax
006A2F12 33C0 xor eax, eax
006A2F14 55 push ebp
* Possible String Reference to: '閄⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -