📄 editgroup_unit.pas
字号:
****** FINALLY
|
005B1811 682B185B00 push $005B182B
005B1816 8D45F4 lea eax, [ebp-$0C]
005B1819 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
005B181E E82D32E5FF call 00404A50
005B1823 C3 ret
* Reference to: System.@HandleFinally;
|
005B1824 E9672BE5FF jmp 00404390
005B1829 EBEB jmp 005B1816
****** END
|
005B182B 5F pop edi
005B182C 5E pop esi
005B182D 5B pop ebx
005B182E 8BE5 mov esp, ebp
005B1830 5D pop ebp
005B1831 C3 ret
*)
end;
procedure TEditGroup_Form.ListView1Editing(Sender : TObject);
begin
(*
005B1834 55 push ebp
005B1835 8BEC mov ebp, esp
005B1837 53 push ebx
005B1838 56 push esi
005B1839 8BF1 mov esi, ecx
005B183B 8BD8 mov ebx, eax
* Reference to field TEditGroup_Form.OFFS_0318
|
005B183D 8D8318030000 lea eax, [ebx+$0318]
005B1843 8B5624 mov edx, [esi+$24]
* Reference to: System.@LStrAsg(void;void;void;void);
|
005B1846 E83532E5FF call 00404A80
005B184B 5E pop esi
005B184C 5B pop ebx
005B184D 5D pop ebp
005B184E C20400 ret $0004
*)
end;
procedure TEditGroup_Form.ListView1Edited(Sender : TObject);
begin
(*
005B1854 55 push ebp
005B1855 8BEC mov ebp, esp
005B1857 83C4F8 add esp, -$08
005B185A 53 push ebx
005B185B 56 push esi
005B185C 57 push edi
005B185D 33DB xor ebx, ebx
005B185F 895DF8 mov [ebp-$08], ebx
005B1862 8945FC mov [ebp-$04], eax
005B1865 33C0 xor eax, eax
005B1867 55 push ebp
005B1868 682B195B00 push $005B192B
***** TRY
|
005B186D 64FF30 push dword ptr fs:[eax]
005B1870 648920 mov fs:[eax], esp
005B1873 8B4508 mov eax, [ebp+$08]
005B1876 833800 cmp dword ptr [eax], +$00
005B1879 7516 jnz 005B1891
005B187B 8B4508 mov eax, [ebp+$08]
* Reference to EditGroup_Form
|
005B187E 8B55FC mov edx, [ebp-$04]
* Reference to field TEditGroup_Form.OFFS_0318
|
005B1881 8B9218030000 mov edx, [edx+$0318]
* Reference to: System.@LStrAsg(void;void;void;void);
|
005B1887 E8F431E5FF call 00404A80
005B188C E984000000 jmp 005B1915
005B1891 33C0 xor eax, eax
005B1893 55 push ebp
005B1894 680B195B00 push $005B190B
***** TRY
|
005B1899 64FF30 push dword ptr fs:[eax]
005B189C 648920 mov fs:[eax], esp
* Reference to pointer to GlobalVar_005DF8C8
|
005B189F A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0008
|
005B18A4 8B4008 mov eax, [eax+$08]
005B18A7 8B10 mov edx, [eax]
005B18A9 FF5214 call dword ptr [edx+$14]
005B18AC 8BF0 mov esi, eax
005B18AE 4E dec esi
005B18AF 85F6 test esi, esi
005B18B1 7C42 jl 005B18F5
005B18B3 46 inc esi
005B18B4 33DB xor ebx, ebx
005B18B6 8D4DF8 lea ecx, [ebp-$08]
* Reference to pointer to GlobalVar_005DF8C8
|
005B18B9 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0008
|
005B18BE 8B4008 mov eax, [eax+$08]
005B18C1 8BD3 mov edx, ebx
005B18C3 8B38 mov edi, [eax]
005B18C5 FF570C call dword ptr [edi+$0C]
005B18C8 8B55F8 mov edx, [ebp-$08]
* Reference to EditGroup_Form
|
005B18CB 8B45FC mov eax, [ebp-$04]
* Reference to field TEditGroup_Form.OFFS_0318
|
005B18CE 8B8018030000 mov eax, [eax+$0318]
* Reference to: System.@LStrCmp;
|
005B18D4 E85F35E5FF call 00404E38
005B18D9 7516 jnz 005B18F1
005B18DB 8B4D08 mov ecx, [ebp+$08]
005B18DE 8B09 mov ecx, [ecx]
* Reference to pointer to GlobalVar_005DF8C8
|
005B18E0 A134B95D00 mov eax, dword ptr [$005DB934]
* Reference to field GlobalVar_005DF8C8.OFFS_0008
|
005B18E5 8B4008 mov eax, [eax+$08]
005B18E8 8BD3 mov edx, ebx
005B18EA 8B30 mov esi, [eax]
005B18EC FF5620 call dword ptr [esi+$20]
005B18EF EB04 jmp 005B18F5
005B18F1 43 inc ebx
005B18F2 4E dec esi
005B18F3 75C1 jnz 005B18B6
* Reference to TMainForm instance
|
005B18F5 A1ACB55D00 mov eax, dword ptr [$005DB5AC]
005B18FA 8B00 mov eax, [eax]
|
005B18FC E83B460000 call 005B5F3C
005B1901 33C0 xor eax, eax
005B1903 5A pop edx
005B1904 59 pop ecx
005B1905 59 pop ecx
005B1906 648910 mov fs:[eax], edx
005B1909 EB0A jmp 005B1915
* Reference to: System.@HandleAnyException;
|
005B190B E9CC27E5FF jmp 004040DC
* Reference to: System.@DoneExcept;
|
005B1910 E82F2BE5FF call 00404444
****** END
|
005B1915 33C0 xor eax, eax
005B1917 5A pop edx
005B1918 59 pop ecx
005B1919 59 pop ecx
005B191A 648910 mov fs:[eax], edx
****** FINALLY
|
005B191D 6832195B00 push $005B1932
005B1922 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
005B1925 E80231E5FF call 00404A2C
005B192A C3 ret
* Reference to: System.@HandleFinally;
|
005B192B E9602AE5FF jmp 00404390
005B1930 EBF0 jmp 005B1922
****** END
|
005B1932 5F pop edi
005B1933 5E pop esi
005B1934 5B pop ebx
005B1935 59 pop ecx
005B1936 59 pop ecx
005B1937 5D pop ebp
005B1938 C20400 ret $0004
*)
end;
procedure TEditGroup_Form._PROC_005B193C(Sender : TObject);
begin
(*
005B193C 55 push ebp
005B193D 8BEC mov ebp, esp
005B193F 33C0 xor eax, eax
005B1941 55 push ebp
005B1942 6861195B00 push $005B1961
***** TRY
|
005B1947 64FF30 push dword ptr fs:[eax]
005B194A 648920 mov fs:[eax], esp
005B194D FF05980C5E00 inc dword ptr [$005E0C98]
005B1953 33C0 xor eax, eax
005B1955 5A pop edx
005B1956 59 pop ecx
005B1957 59 pop ecx
005B1958 648910 mov fs:[eax], edx
****** FINALLY
|
005B195B 6868195B00 push $005B1968
005B1960 C3 ret
* Reference to: System.@HandleFinally;
|
005B1961 E92A2AE5FF jmp 00404390
005B1966 EBF8 jmp 005B1960
****** END
|
005B1968 5D pop ebp
005B1969 C3 ret
*)
end;
procedure TEditGroup_Form._PROC_005B196C(Sender : TObject);
begin
(*
005B196C 832D980C5E0001 sub dword ptr [$005E0C98], +$01
005B1973 C3 ret
*)
end;
procedure TEditGroup_Form._PROC_005B1974(Sender : TObject);
begin
(*
005B1974 C0195B rcr byte ptr [ecx], $5B
005B1977 0000 add [eax], al
*)
end;
procedure TEditGroup_Form._PROC_005B1E9E(Sender : TObject);
begin
(*
005B1E9E 7046 jo 005B1EE6
005B1EA0 696C650004000002 imul ebp, [ebp+$00], $02000004
005B1EA8 0008 add [eax], cl
005B1EAA 44 inc esp
005B1EAB 6F outsd
005B1EAC 776E jnbe 005B1F1C
005B1EAE 46 inc esi
005B1EAF 696C650404000002 imul ebp, [ebp+$04], $02000004
005B1EB7 0003 add [ebx], al
005B1EB9 52 push edx
005B1EBA 656E outsb
005B1EBC 080400 or [eax+eax], al
005B1EBF 0002 add [edx], al
005B1EC1 0003 add [ebx], al
005B1EC3 4E dec esi
005B1EC4 35360C0400 xor eax, $00040C36
005B1EC9 0002 add [edx], al
005B1ECB 00054E65774F add [$4F77654E], al
005B1ED1 7410 jz 005B1EE3
005B1ED3 0400 add al, +$00
005B1ED5 0002 add [edx], al
005B1ED7 0003 add [ebx], al
005B1ED9 4E dec esi
005B1EDA 36361404 adc al, $04
005B1EDE 0000 add [eax], al
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -