📄 dgsltbk.pas
字号:
|
0075F87F 8B80D0020000 mov eax, [eax+$02D0]
0075F885 33D2 xor edx, edx
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F887 E8E044D9FF call 004F3D6C
0075F88C 8D45F0 lea eax, [ebp-$10]
0075F88F 50 push eax
0075F890 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
|
0075F892 8B80D0020000 mov eax, [eax+$02D0]
0075F898 8BCB mov ecx, ebx
0075F89A 33D2 xor edx, edx
* Reference to: grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
0075F89C E85344D9FF call 004F3CF4
0075F8A1 8B45F0 mov eax, [ebp-$10]
0075F8A4 50 push eax
0075F8A5 8BCE mov ecx, esi
0075F8A7 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
|
0075F8A9 8B80D0020000 mov eax, [eax+$02D0]
0075F8AF BA01000000 mov edx, $00000001
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F8B4 E8B344D9FF call 004F3D6C
0075F8B9 8D45EC lea eax, [ebp-$14]
0075F8BC 50 push eax
0075F8BD 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
|
0075F8BF 8B80D0020000 mov eax, [eax+$02D0]
0075F8C5 8BCB mov ecx, ebx
0075F8C7 33D2 xor edx, edx
* Reference to: grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
0075F8C9 E82644D9FF call 004F3CF4
0075F8CE 8B45EC mov eax, [ebp-$14]
0075F8D1 50 push eax
0075F8D2 8BCE mov ecx, esi
0075F8D4 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
|
0075F8D6 8B80D0020000 mov eax, [eax+$02D0]
0075F8DC BA02000000 mov edx, $00000002
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F8E1 E88644D9FF call 004F3D6C
0075F8E6 43 inc ebx
0075F8E7 FF4DF8 dec dword ptr [ebp-$08]
0075F8EA 0F856FFFFFFF jnz 0075F85F
0075F8F0 8B07 mov eax, [edi]
* Reference to control FindFile : N.A.
|
0075F8F2 8B80D0020000 mov eax, [eax+$02D0]
* Reference to field N.A..OFFS_0234
|
0075F8F8 8B9034020000 mov edx, [eax+$0234]
0075F8FE 4A dec edx
* Reference to: grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
0075F8FF E8E422D9FF call 004F1BE8
0075F904 33C0 xor eax, eax
0075F906 5A pop edx
0075F907 59 pop ecx
0075F908 59 pop ecx
0075F909 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]脥@'
|
0075F90C 6826F97500 push $0075F926
0075F911 8D45EC lea eax, [ebp-$14]
0075F914 BA03000000 mov edx, $00000003
* Reference to: system.@LStrArrayClr;
|
0075F919 E8FA47CAFF call 00404118
0075F91E C3 ret
* Reference to: system.@HandleFinally;
|
0075F91F E90841CAFF jmp 00403A2C
0075F924 EBEB jmp 0075F911
****** END
|
0075F926 5F pop edi
0075F927 5E pop esi
0075F928 5B pop ebx
0075F929 8BE5 mov esp, ebp
0075F92B 5D pop ebp
0075F92C C3 ret
*)
end;
procedure TFrmSltBK._PROC_0075FA41(Sender : TObject);
begin
(*
0075FA41 8BEC mov ebp, esp
0075FA43 33C0 xor eax, eax
0075FA45 55 push ebp
0075FA46 6865FA7500 push $0075FA65
***** TRY
|
0075FA4B 64FF30 push dword ptr fs:[eax]
0075FA4E 648920 mov fs:[eax], esp
0075FA51 FF051C927900 inc dword ptr [$0079921C]
0075FA57 33C0 xor eax, eax
0075FA59 5A pop edx
0075FA5A 59 pop ecx
0075FA5B 59 pop ecx
0075FA5C 648910 mov fs:[eax], edx
****** FINALLY
|
0075FA5F 686CFA7500 push $0075FA6C
0075FA64 C3 ret
* Reference to: system.@HandleFinally;
|
0075FA65 E9C23FCAFF jmp 00403A2C
0075FA6A EBF8 jmp 0075FA64
****** END
|
0075FA6C 5D pop ebp
0075FA6D C3 ret
*)
end;
procedure TFrmSltBK._PROC_0075FA70(Sender : TObject);
begin
(*
0075FA70 832D1C92790001 sub dword ptr [$0079921C], +$01
0075FA77 C3 ret
*)
end;
procedure TFrmSltBK.Proc_0075F580(Sender : TObject);
begin
(*
0075F580 55 push ebp
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;
end.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -