📄 dgsltbk.pas
字号:
unit DGSltBK;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, Buttons, Grids
type
TFrmSltBK=class(TForm)
SG1: TStringGrid;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
procedure FormCreate(Sender : TObject);
procedure BitBtn1Click(Sender : TObject);
procedure BitBtn2Click(Sender : TObject);
procedure BitBtn3Click(Sender : TObject);
procedure BitBtn4Click(Sender : TObject);
procedure _PROC_0075F581(Sender : TObject);
procedure _PROC_0075F81C(Sender : TObject);
procedure _PROC_0075FA41(Sender : TObject);
procedure _PROC_0075FA70(Sender : TObject);
procedure Proc_0075F580(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmSltBK: TFrmSltBK;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmSltBK.FormCreate(Sender : TObject);
begin
(*
* Reference to : TFrmSltBK.Proc_0075F580()
|
0075F578 E803000000 call 0075F580
0075F57D C3 ret
*)
end;
procedure TFrmSltBK.BitBtn1Click(Sender : TObject);
begin
(*
0075F6D0 55 push ebp
0075F6D1 8BEC mov ebp, esp
0075F6D3 6A00 push $00
0075F6D5 53 push ebx
0075F6D6 56 push esi
0075F6D7 8BD8 mov ebx, eax
0075F6D9 33C0 xor eax, eax
0075F6DB 55 push ebp
0075F6DC 6848F77500 push $0075F748
***** TRY
|
0075F6E1 64FF30 push dword ptr fs:[eax]
0075F6E4 648920 mov fs:[eax], esp
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F6E7 8BB3D0020000 mov esi, [ebx+$02D0]
* Reference to field TStringGrid.RowCount : Longint
|
0075F6ED 83BE3402000001 cmp dword ptr [esi+$0234], +$01
0075F6F4 7E3C jle 0075F732
0075F6F6 8D45FC lea eax, [ebp-$04]
0075F6F9 50 push eax
* Reference to field TStringGrid.Row : Longint
|
0075F6FA 8B8E14020000 mov ecx, [esi+$0214]
0075F700 33D2 xor edx, edx
0075F702 8BC6 mov eax, esi
* Reference to: grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
0075F704 E8EB45D9FF call 004F3CF4
0075F709 8B45FC mov eax, [ebp-$04]
* Reference to: Unit_00409434.Proc_0040A644
|
0075F70C E833AFCAFF call 0040A644
0075F711 8BD0 mov edx, eax
* Reference to pointer to GlobalVar_0078CF1C
|
0075F713 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0075F718 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF1C.OFFS_0008
|
0075F71A 8B4008 mov eax, [eax+$08]
* Reference to : TBkArray.mFindItem()
|
0075F71D E89A1D0000 call 007614BC
* Reference to field TFrmSltBK.OFFS_02E8
|
0075F722 8983E8020000 mov [ebx+$02E8], eax
* Reference to field TFrmSltBK.ModalResult : TModalResult
|
0075F728 C7833402000001000000 mov dword ptr [ebx+$0234], $00000001
0075F732 33C0 xor eax, eax
0075F734 5A pop edx
0075F735 59 pop ecx
0075F736 59 pop ecx
0075F737 648910 mov fs:[eax], edx
****** FINALLY
|
0075F73A 684FF77500 push $0075F74F
0075F73F 8D45FC lea eax, [ebp-$04]
* Reference to: system.@LStrClr(String;String);
|
0075F742 E8AD49CAFF call 004040F4
0075F747 C3 ret
* Reference to: system.@HandleFinally;
|
0075F748 E9DF42CAFF jmp 00403A2C
0075F74D EBF0 jmp 0075F73F
****** END
|
0075F74F 5E pop esi
0075F750 5B pop ebx
0075F751 59 pop ecx
0075F752 5D pop ebp
0075F753 C3 ret
*)
end;
procedure TFrmSltBK.BitBtn2Click(Sender : TObject);
begin
(*
0075F754 33D2 xor edx, edx
* Reference to field TFrmSltBK.OFFS_02E8
|
0075F756 8990E8020000 mov [eax+$02E8], edx
0075F75C C3 ret
*)
end;
procedure TFrmSltBK.BitBtn3Click(Sender : TObject);
begin
(*
0075F760 55 push ebp
0075F761 8BEC mov ebp, esp
0075F763 6A00 push $00
0075F765 6A00 push $00
0075F767 53 push ebx
0075F768 56 push esi
0075F769 57 push edi
0075F76A 8BD8 mov ebx, eax
0075F76C 33C0 xor eax, eax
0075F76E 55 push ebp
0075F76F 680BF87500 push $0075F80B
***** TRY
|
0075F774 64FF30 push dword ptr fs:[eax]
0075F777 648920 mov fs:[eax], esp
* Reference to pointer to GlobalVar_0078CF1C
|
0075F77A A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0075F77F 8B00 mov eax, [eax]
0075F781 33C9 xor ecx, ecx
0075F783 B201 mov dl, $01
* Reference to: Unit_0075FA78.Proc_0075FF60
|
0075F785 E8D6070000 call 0075FF60
0075F78A 8BF0 mov esi, eax
0075F78C 85F6 test esi, esi
0075F78E 7460 jz 0075F7F0
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F790 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to field TStringGrid.RowCount : Longint
|
0075F796 8BB834020000 mov edi, [eax+$0234]
0075F79C 8D5701 lea edx, [edi+$01]
* Reference to: grids.TCustomGrid.SetRowCount(TCustomGrid;Longint);
|
0075F79F E84424D9FF call 004F1BE8
0075F7A4 8D55FC lea edx, [ebp-$04]
* Reference to field GlobalVar_0078CF1C.OFFS_001C
|
0075F7A7 8B461C mov eax, [esi+$1C]
* Reference to: Unit_00409434.Proc_0040A564
|
0075F7AA E8B5ADCAFF call 0040A564
0075F7AF 8B45FC mov eax, [ebp-$04]
0075F7B2 50 push eax
0075F7B3 8BCF mov ecx, edi
0075F7B5 33D2 xor edx, edx
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F7B7 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F7BD E8AA45D9FF call 004F3D6C
0075F7C2 8D45F8 lea eax, [ebp-$08]
* Reference to field GlobalVar_0078CF1C.OFFS_0020
|
0075F7C5 8D5620 lea edx, [esi+$20]
* Reference to: system.@LStrFromString(String;String;ShortString;ShortString);
|
0075F7C8 E84B4BCAFF call 00404318
0075F7CD 8B45F8 mov eax, [ebp-$08]
0075F7D0 50 push eax
0075F7D1 8BCF mov ecx, edi
0075F7D3 BA01000000 mov edx, $00000001
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F7D8 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
0075F7DE E88945D9FF call 004F3D6C
0075F7E3 8BD7 mov edx, edi
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F7E5 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: grids.TCustomGrid.SetRow(TCustomGrid;Longint);
|
0075F7EB E8E023D9FF call 004F1BD0
0075F7F0 33C0 xor eax, eax
0075F7F2 5A pop edx
0075F7F3 59 pop ecx
0075F7F4 59 pop ecx
0075F7F5 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[YY]脥@'
|
0075F7F8 6812F87500 push $0075F812
0075F7FD 8D45F8 lea eax, [ebp-$08]
0075F800 BA02000000 mov edx, $00000002
* Reference to: system.@LStrArrayClr;
|
0075F805 E80E49CAFF call 00404118
0075F80A C3 ret
* Reference to: system.@HandleFinally;
|
0075F80B E91C42CAFF jmp 00403A2C
0075F810 EBEB jmp 0075F7FD
****** END
|
0075F812 5F pop edi
0075F813 5E pop esi
0075F814 5B pop ebx
0075F815 59 pop ecx
0075F816 59 pop ecx
0075F817 5D pop ebp
0075F818 C3 ret
*)
end;
procedure TFrmSltBK.BitBtn4Click(Sender : TObject);
begin
(*
0075F930 55 push ebp
0075F931 8BEC mov ebp, esp
0075F933 33C9 xor ecx, ecx
0075F935 51 push ecx
0075F936 51 push ecx
0075F937 51 push ecx
0075F938 51 push ecx
0075F939 53 push ebx
0075F93A 8945FC mov [ebp-$04], eax
0075F93D 33C0 xor eax, eax
0075F93F 55 push ebp
0075F940 6804FA7500 push $0075FA04
***** TRY
|
0075F945 64FF30 push dword ptr fs:[eax]
0075F948 648920 mov fs:[eax], esp
0075F94B 6A00 push $00
* Possible String Reference to: '确实要删除 ''
|
0075F94D 6818FA7500 push $0075FA18
0075F952 8D45F4 lea eax, [ebp-$0C]
0075F955 50 push eax
0075F956 8B45FC mov eax, [ebp-$04]
* Reference to control TFrmSltBK.SG1 : TStringGrid
|
0075F959 8B98D0020000 mov ebx, [eax+$02D0]
* Reference to field TStringGrid.Row : Longint
|
0075F95F 8B8B14020000 mov ecx, [ebx+$0214]
0075F965 8BC3 mov eax, ebx
0075F967 BA01000000 mov edx, $00000001
* Reference to: grids.TStringGrid.GetCells(TStringGrid;Integer;Integer):AnsiString;
|
0075F96C E88343D9FF call 004F3CF4
0075F971 FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: '' 自选吗？'
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -