📄 zbrange.pas
字号:
unit ZBRange;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Trange_frm=class(TForm)
CheckListBox1: TCheckListBox;
Button1: TBitBtn;
Button2: TBitBtn;
RxGradientCaption1: TRxGradientCaption;
OFFS_02E0: N.A.;
procedure FormShow(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure _PROC_006E3A84(Sender : TObject);
procedure _PROC_006E3AB4(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
range_frm: Trange_frm;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Trange_frm.FormShow(Sender : TObject);
begin
(*
006E3890 55 push ebp
006E3891 8BEC mov ebp, esp
006E3893 83C4F8 add esp, -$08
006E3896 53 push ebx
006E3897 56 push esi
006E3898 57 push edi
006E3899 33C9 xor ecx, ecx
006E389B 894DF8 mov [ebp-$08], ecx
006E389E 8BF0 mov esi, eax
006E38A0 33C0 xor eax, eax
006E38A2 55 push ebp
* Possible String Reference to: '镼'
|
006E38A3 68D6396E00 push $006E39D6
***** TRY
|
006E38A8 64FF30 push dword ptr fs:[eax]
006E38AB 648920 mov fs:[eax], esp
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E38AE 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: stdctrls.TCustomListBox.Clear(TCustomListBox);
|
006E38B4 E81FF3D4FF call 00432BD8
006E38B9 BA03000000 mov edx, $00000003
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E38BE 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: stdctrls.TCustomListBox.SetColumns(TCustomListBox;Integer);
|
006E38C4 E85FF3D4FF call 00432C28
006E38C9 33DB xor ebx, ebx
006E38CB 8B3D98D17700 mov edi, [$0077D198]
006E38D1 8B17 mov edx, [edi]
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E38D3 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TCheckListBox.Items : TStrings
|
006E38D9 8B80F0010000 mov eax, [eax+$01F0]
006E38DF 8B08 mov ecx, [eax]
* Reference to method TStrings.Add(string)
|
006E38E1 FF5134 call dword ptr [ecx+$34]
006E38E4 33C9 xor ecx, ecx
006E38E6 8BD3 mov edx, ebx
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E38E8 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: checklst.TCheckListBox.SetChecked(TCheckListBox;Integer;Boolean);
|
006E38EE E87D62EDFF call 005B9B70
006E38F3 0FB786E8020000 movzx eax, word ptr [esi+$02E8]
006E38FA 3BD8 cmp ebx, eax
006E38FC 7D1B jnl 006E3919
* Reference to field Trange_frm.OFFS_02E4
|
006E38FE 8B86E4020000 mov eax, [esi+$02E4]
006E3904 803C1800 cmp byte ptr [eax+ebx], $00
006E3908 740F jz 006E3919
006E390A B101 mov cl, $01
006E390C 8BD3 mov edx, ebx
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E390E 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: checklst.TCheckListBox.SetChecked(TCheckListBox;Integer;Boolean);
|
006E3914 E85762EDFF call 005B9B70
006E3919 43 inc ebx
006E391A 83C704 add edi, +$04
006E391D 83FB06 cmp ebx, +$06
006E3920 75AF jnz 006E38D1
* Reference to pointer to GlobalVar_007991B0
|
006E3922 A1B4D07700 mov eax, dword ptr [$0077D0B4]
006E3927 8B00 mov eax, [eax]
006E3929 8B10 mov edx, [eax]
* Possible reference to virtual method TGlobalVar_007991B0.OFFS_14
|
006E392B FF5214 call dword ptr [edx+$14]
006E392E 85C0 test eax, eax
006E3930 7E7A jle 006E39AC
* Reference to pointer to GlobalVar_007991B0
|
006E3932 A1B4D07700 mov eax, dword ptr [$0077D0B4]
006E3937 8B00 mov eax, [eax]
006E3939 8B10 mov edx, [eax]
* Possible reference to virtual method TGlobalVar_007991B0.OFFS_14
|
006E393B FF5214 call dword ptr [edx+$14]
006E393E 48 dec eax
006E393F 85C0 test eax, eax
006E3941 7C69 jl 006E39AC
006E3943 40 inc eax
006E3944 8945FC mov [ebp-$04], eax
006E3947 33DB xor ebx, ebx
006E3949 8D4DF8 lea ecx, [ebp-$08]
* Reference to pointer to GlobalVar_007991B0
|
006E394C A1B4D07700 mov eax, dword ptr [$0077D0B4]
006E3951 8B00 mov eax, [eax]
006E3953 8BD3 mov edx, ebx
006E3955 8B38 mov edi, [eax]
* Possible reference to virtual method TGlobalVar_007991B0.OFFS_0C
|
006E3957 FF570C call dword ptr [edi+$0C]
006E395A 8B55F8 mov edx, [ebp-$08]
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E395D 8B86D0020000 mov eax, [esi+$02D0]
* Reference to field TCheckListBox.Items : TStrings
|
006E3963 8B80F0010000 mov eax, [eax+$01F0]
006E3969 8B08 mov ecx, [eax]
* Reference to method TStrings.Add(string)
|
006E396B FF5134 call dword ptr [ecx+$34]
006E396E 8D7B06 lea edi, [ebx+$06]
006E3971 8BD7 mov edx, edi
006E3973 33C9 xor ecx, ecx
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E3975 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: checklst.TCheckListBox.SetChecked(TCheckListBox;Integer;Boolean);
|
006E397B E8F061EDFF call 005B9B70
006E3980 0FB786E8020000 movzx eax, word ptr [esi+$02E8]
006E3987 3BF8 cmp edi, eax
006E3989 7D1B jnl 006E39A6
* Reference to field Trange_frm.OFFS_02E4
|
006E398B 8B86E4020000 mov eax, [esi+$02E4]
006E3991 803C3800 cmp byte ptr [eax+edi], $00
006E3995 740F jz 006E39A6
006E3997 8BD7 mov edx, edi
006E3999 B101 mov cl, $01
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E399B 8B86D0020000 mov eax, [esi+$02D0]
* Reference to: checklst.TCheckListBox.SetChecked(TCheckListBox;Integer;Boolean);
|
006E39A1 E8CA61EDFF call 005B9B70
006E39A6 43 inc ebx
006E39A7 FF4DFC dec dword ptr [ebp-$04]
006E39AA 759D jnz 006E3949
* Reference to pointer to GlobalVar_007991B0
|
006E39AC A1B4D07700 mov eax, dword ptr [$0077D0B4]
006E39B1 8B00 mov eax, [eax]
006E39B3 8B10 mov edx, [eax]
* Possible reference to virtual method TGlobalVar_007991B0.OFFS_14
|
006E39B5 FF5214 call dword ptr [edx+$14]
006E39B8 0406 add al, +$06
* Reference to field Trange_frm.OFFS_02E0 : Byte
|
006E39BA 8886E0020000 mov [esi+$02E0], al
006E39C0 33C0 xor eax, eax
006E39C2 5A pop edx
006E39C3 59 pop ecx
006E39C4 59 pop ecx
006E39C5 648910 mov fs:[eax], edx
****** FINALLY
|
006E39C8 68DD396E00 push $006E39DD
006E39CD 8D45F8 lea eax, [ebp-$08]
* Reference to: system.@LStrClr(String;String);
|
006E39D0 E81F07D2FF call 004040F4
006E39D5 C3 ret
* Reference to: system.@HandleFinally;
|
006E39D6 E95100D2FF jmp 00403A2C
006E39DB EBF0 jmp 006E39CD
****** END
|
006E39DD 5F pop edi
006E39DE 5E pop esi
006E39DF 5B pop ebx
006E39E0 59 pop ecx
006E39E1 59 pop ecx
006E39E2 5D pop ebp
006E39E3 C3 ret
*)
end;
procedure Trange_frm.Button1Click(Sender : TObject);
begin
(*
006E39E4 53 push ebx
006E39E5 56 push esi
006E39E6 57 push edi
006E39E7 8BD8 mov ebx, eax
* Reference to field Trange_frm.OFFS_02E4
|
006E39E9 8B83E4020000 mov eax, [ebx+$02E4]
006E39EF 85C0 test eax, eax
006E39F1 7405 jz 006E39F8
* Reference to: system.@FreeMem;
|
006E39F3 E888EED1FF call 00402880
006E39F8 33C0 xor eax, eax
* Reference to field Trange_frm.OFFS_02E0 : Byte
|
006E39FA 8A83E0020000 mov al, byte ptr [ebx+$02E0]
* Reference to: Unit_00409434.Proc_00409FF8
|
006E3A00 E8F365D2FF call 00409FF8
* Reference to field Trange_frm.OFFS_02E4
|
006E3A05 8983E4020000 mov [ebx+$02E4], eax
006E3A0B 33FF xor edi, edi
* Reference to field Trange_frm.OFFS_02E0 : Byte
|
006E3A0D 8A83E0020000 mov al, byte ptr [ebx+$02E0]
006E3A13 84C0 test al, al
006E3A15 7642 jbe 006E3A59
006E3A17 8BF0 mov esi, eax
006E3A19 81E6FF000000 and esi, $000000FF
006E3A1F 4E dec esi
006E3A20 83FE00 cmp esi, +$00
006E3A23 7C34 jl 006E3A59
006E3A25 8BD6 mov edx, esi
* Reference to control Trange_frm.CheckListBox1 : TCheckListBox
|
006E3A27 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: checklst.TCheckListBox.GetChecked(TCheckListBox;Integer):Boolean;
|
006E3A2D E81A62EDFF call 005B9C4C
006E3A32 84C0 test al, al
006E3A34 7413 jz 006E3A49
* Reference to field Trange_frm.OFFS_02E4
|
006E3A36 8B83E4020000 mov eax, [ebx+$02E4]
006E3A3C C6043001 mov byte ptr [eax+esi], $01
006E3A40 85FF test edi, edi
006E3A42 750F jnz 006E3A53
006E3A44 8D7E01 lea edi, [esi+$01]
006E3A47 EB0A jmp 006E3A53
* Reference to field Trange_frm.OFFS_02E4
|
006E3A49 8B83E4020000 mov eax, [ebx+$02E4]
006E3A4F C6043000 mov byte ptr [eax+esi], $00
006E3A53 4E dec esi
006E3A54 83FEFF cmp esi, -$01
006E3A57 75CC jnz 006E3A25
* Reference to field Trange_frm.OFFS_02E8
|
006E3A59 6689BBE8020000 mov [ebx+$02E8], di
006E3A60 5F pop edi
006E3A61 5E pop esi
006E3A62 5B pop ebx
006E3A63 C3 ret
*)
end;
procedure Trange_frm.FormCreate(Sender : TObject);
begin
(*
006E3A64 33D2 xor edx, edx
* Reference to field Trange_frm.OFFS_02E4
|
006E3A66 8990E4020000 mov [eax+$02E4], edx
006E3A6C C3 ret
*)
end;
procedure Trange_frm.FormDestroy(Sender : TObject);
begin
(*
* Reference to field Trange_frm.OFFS_02E4
|
006E3A70 8B90E4020000 mov edx, [eax+$02E4]
006E3A76 85D2 test edx, edx
006E3A78 7407 jz 006E3A81
006E3A7A 8BC2 mov eax, edx
* Reference to: system.@FreeMem;
|
006E3A7C E8FFEDD1FF call 00402880
006E3A81 C3 ret
*)
end;
procedure Trange_frm._PROC_006E3A84(Sender : TObject);
begin
(*
006E3A84 55 push ebp
006E3A85 8BEC mov ebp, esp
006E3A87 33C0 xor eax, eax
006E3A89 55 push ebp
* Possible String Reference to: '閪⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -