📄 dgsltbk.pas
字号:
0075F974 6830FA7500 push $0075FA30
0075F979 8D45F8 lea eax, [ebp-$08]
0075F97C BA03000000 mov edx, $00000003
* Reference to: system.@LStrCatN;
|
0075F981 E8CA4ACAFF call 00404450
0075F986 8B45F8 mov eax, [ebp-$08]
0075F989 668B0D3CFA7500 mov cx, word ptr [$0075FA3C]
0075F990 B203 mov dl, $03
* Reference to: Dialogs.Proc_00465660
|
0075F992 E8C95CD0FF call 00465660
0075F997 83F806 cmp eax, +$06
0075F99A 754D jnz 0075F9E9
0075F99C 8D45F0 lea eax, [ebp-$10]
0075F99F 50 push eax
0075F9A0 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F9A3 8B98D0020000 mov ebx, [eax+$02D0]
* Reference to field TStringGrid.Row : Longint
|
0075F9A9 8B8B14020000 mov ecx, [ebx+$0214]
0075F9AF 8BC3 mov eax, ebx
0075F9B1 33D2 xor edx, edx
* Reference to: grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
0075F9B3 E83C43D9FF call 004F3CF4
0075F9B8 8B45F0 mov eax, [ebp-$10]
* Reference to: Unit_00409434.Proc_0040A644
|
0075F9BB E884ACCAFF call 0040A644
0075F9C0 8BD8 mov ebx, eax
0075F9C2 55 push ebp
0075F9C3 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F9C6 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TStringGrid.Row : Longint
|
0075F9CC 8B8014020000 mov eax, [eax+$0214]
* Reference to : TFrmSltBK._PROC_0075F81C()
|
0075F9D2 E845FEFFFF call 0075F81C
0075F9D7 59 pop ecx
* Reference to pointer to GlobalVar_0078CF1C
|
0075F9D8 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0075F9DD 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF1C.OFFS_0008
|
0075F9DF 8B4008 mov eax, [eax+$08]
0075F9E2 8BD3 mov edx, ebx
* Reference to : TBkArray.mDeleteBK()
|
0075F9E4 E8AF1B0000 call 00761598
0075F9E9 33C0 xor eax, eax
0075F9EB 5A pop edx
0075F9EC 59 pop ecx
0075F9ED 59 pop ecx
0075F9EE 648910 mov fs:[eax], edx
****** FINALLY
|
0075F9F1 680BFA7500 push $0075FA0B
0075F9F6 8D45F0 lea eax, [ebp-$10]
0075F9F9 BA03000000 mov edx, $00000003
* Reference to: system.@LStrArrayClr;
|
0075F9FE E81547CAFF call 00404118
0075FA03 C3 ret
* Reference to: system.@HandleFinally;
|
0075FA04 E92340CAFF jmp 00403A2C
0075FA09 EBEB jmp 0075F9F6
****** END
|
0075FA0B 5B pop ebx
0075FA0C 8BE5 mov esp, ebp
0075FA0E 5D pop ebp
0075FA0F C3 ret
*)
end;
procedure TFrmSltBK._PROC_0075F581(Sender : TObject);
begin
(*
0075F581 8BEC mov ebp, esp
0075F583 83C4F0 add esp, -$10
0075F586 53 push ebx
0075F587 56 push esi
0075F588 57 push edi
0075F589 33D2 xor edx, edx
0075F58B 8955F0 mov [ebp-$10], edx
0075F58E 8955F4 mov [ebp-$0C], edx
0075F591 8BF0 mov esi, eax
0075F593 33C0 xor eax, eax
0075F595 55 push ebp
0075F596 688AF67500 push $0075F68A
***** TRY
|
0075F59B 64FF30 push dword ptr fs:[eax]
0075F59E 648920 mov fs:[eax], esp
* Reference to pointer to GlobalVar_0078CF1C
|
0075F5A1 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0075F5A6 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF1C.OFFS_0008
|
0075F5A8 8B4008 mov eax, [eax+$08]
0075F5AB 8B5010 mov edx, [eax+$10]
0075F5AE 42 inc edx
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F5AF 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
0075F5B5 E82E26D9FF call 004F1BE8
* Reference to pointer to GlobalVar_0078CF1C
|
0075F5BA A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0075F5BF 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF1C.OFFS_0008
|
0075F5C1 8B4008 mov eax, [eax+$08]
0075F5C4 8945F8 mov [ebp-$08], eax
0075F5C7 8B45F8 mov eax, [ebp-$08]
0075F5CA 8B7810 mov edi, [eax+$10]
0075F5CD 4F dec edi
0075F5CE 85FF test edi, edi
0075F5D0 7C5B jl 0075F62D
0075F5D2 47 inc edi
0075F5D3 33DB xor ebx, ebx
0075F5D5 8D4DFC lea ecx, [ebp-$04]
0075F5D8 8BD3 mov edx, ebx
0075F5DA 8B45F8 mov eax, [ebp-$08]
* Reference to: mxarrays.TBaseArray.GetItem(TBaseArray;Integer;void;void);
|
0075F5DD E8DE8FD4FF call 004A85C0
0075F5E2 8D55F4 lea edx, [ebp-$0C]
0075F5E5 8B45FC mov eax, [ebp-$04]
0075F5E8 8B401C mov eax, [eax+$1C]
* Reference to: Unit_00409434.Proc_0040A564
|
0075F5EB E874AFCAFF call 0040A564
0075F5F0 8B45F4 mov eax, [ebp-$0C]
0075F5F3 50 push eax
0075F5F4 8D4B01 lea ecx, [ebx+$01]
0075F5F7 33D2 xor edx, edx
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F5F9 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F5FF E86847D9FF call 004F3D6C
0075F604 8D45F0 lea eax, [ebp-$10]
0075F607 8B55FC mov edx, [ebp-$04]
0075F60A 83C220 add edx, +$20
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0075F60D E8064DCAFF call 00404318
0075F612 8B45F0 mov eax, [ebp-$10]
0075F615 50 push eax
0075F616 8D4B01 lea ecx, [ebx+$01]
0075F619 BA01000000 mov edx, $00000001
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F61E 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F624 E84347D9FF call 004F3D6C
0075F629 43 inc ebx
0075F62A 4F dec edi
0075F62B 75A8 jnz 0075F5D5
* Possible String Reference to: '编号'
|
0075F62D 68A0F67500 push $0075F6A0
0075F632 33C9 xor ecx, ecx
0075F634 33D2 xor edx, edx
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F636 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F63C E82B47D9FF call 004F3D6C
* Possible String Reference to: '自选名称'
|
0075F641 68B0F67500 push $0075F6B0
0075F646 33C9 xor ecx, ecx
0075F648 BA01000000 mov edx, $00000001
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F64D 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F653 E81447D9FF call 004F3D6C
* Possible String Reference to: '自选说明'
|
0075F658 68C4F67500 push $0075F6C4
0075F65D 33C9 xor ecx, ecx
0075F65F BA02000000 mov edx, $00000002
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F664 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F66A E8FD46D9FF call 004F3D6C
0075F66F 33C0 xor eax, eax
0075F671 5A pop edx
0075F672 59 pop ecx
0075F673 59 pop ecx
0075F674 648910 mov fs:[eax], edx
****** FINALLY
|
0075F677 6891F67500 push $0075F691
0075F67C 8D45F0 lea eax, [ebp-$10]
0075F67F BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
0075F684 E88F4ACAFF call 00404118
0075F689 C3 ret
* Reference to: system.@HandleFinally;
|
0075F68A E99D43CAFF jmp 00403A2C
0075F68F EBEB jmp 0075F67C
****** END
|
0075F691 5F pop edi
0075F692 5E pop esi
0075F693 5B pop ebx
0075F694 8BE5 mov esp, ebp
0075F696 5D pop ebp
0075F697 C3 ret
*)
end;
procedure TFrmSltBK._PROC_0075F81C(Sender : TObject);
begin
(*
0075F81C 55 push ebp
0075F81D 8BEC mov ebp, esp
0075F81F 33C9 xor ecx, ecx
0075F821 51 push ecx
0075F822 51 push ecx
0075F823 51 push ecx
0075F824 51 push ecx
0075F825 51 push ecx
0075F826 53 push ebx
0075F827 56 push esi
0075F828 57 push edi
0075F829 8945FC mov [ebp-$04], eax
0075F82C 8B7D08 mov edi, [ebp+$08]
0075F82F 83C7FC add edi, -$04
0075F832 33C0 xor eax, eax
0075F834 55 push ebp
0075F835 681FF97500 push $0075F91F
***** TRY
|
0075F83A 64FF30 push dword ptr fs:[eax]
0075F83D 648920 mov fs:[eax], esp
0075F840 8B5DFC mov ebx, [ebp-$04]
0075F843 43 inc ebx
0075F844 8B07 mov eax, [edi]
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F846 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field TStringGrid.RowCount : Longint
|
0075F84C 8B8034020000 mov eax, [eax+$0234]
0075F852 48 dec eax
0075F853 2BC3 sub eax, ebx
0075F855 0F8C95000000 jl 0075F8F0
0075F85B 40 inc eax
0075F85C 8945F8 mov [ebp-$08], eax
0075F85F 8D45F4 lea eax, [ebp-$0C]
0075F862 50 push eax
0075F863 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
|
0075F865 8B80D0020000 mov eax, [eax+$02D0]
0075F86B 8BCB mov ecx, ebx
0075F86D 33D2 xor edx, edx
* Reference to: grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
0075F86F E88044D9FF call 004F3CF4
0075F874 8B45F4 mov eax, [ebp-$0C]
0075F877 50 push eax
0075F878 8BF3 mov esi, ebx
0075F87A 4E dec esi
0075F87B 8BCE mov ecx, esi
0075F87D 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -