📄 unit9.pas
字号:
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tdiscclass=class(TForm)
ImageList1: TImageList;
ToolBar1: TToolBar;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
StatusBar1: TStatusBar;
Panel1: TPanel;
ListView1: TListView;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit1: TEdit;
Panel2: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
ADOQuery1: TADOQuery;
procedure ToolButton11Click(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure ListView1Click(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure SpeedButton3Click(Sender : TObject);
procedure SpeedButton4Click(Sender : TObject);
procedure SpeedButton5Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure _PROC_0051FAA8(Sender : TObject);
procedure _PROC_0051FABC(Sender : TObject);
procedure _PROC_0051FFB0(Sender : TObject);
procedure _PROC_00520341(Sender : TObject);
procedure _PROC_00520370(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
discclass: Tdiscclass;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tdiscclass.ToolButton11Click(Sender : TObject);
begin
(*
0051FC5C A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0051FC61 E8CA5EF4FF call 00465B30
0051FC66 C3 ret
*)
end;
procedure Tdiscclass.FormCreate(Sender : TObject);
begin
(*
0051FC68 53 push ebx
0051FC69 56 push esi
0051FC6A 83C4F8 add esp, -$08
0051FC6D 8BDA mov ebx, edx
0051FC6F 8BF0 mov esi, eax
0051FC71 B201 mov dl, $01
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FC73 8B8634030000 mov eax, [esi+$0334]
0051FC79 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0178
|
0051FC7B FF9178010000 call dword ptr [ecx+$0178]
0051FC81 C605549F580000 mov byte ptr [$00589F54], $00
0051FC88 33C9 xor ecx, ecx
0051FC8A 8BD3 mov edx, ebx
0051FC8C A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FC1C
|
0051FC91 E886FFFFFF call 0051FC1C
0051FC96 B101 mov cl, $01
0051FC98 8BD3 mov edx, ebx
0051FC9A A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FC4C
|
0051FC9F E8A8FFFFFF call 0051FC4C
0051FCA4 8BD3 mov edx, ebx
0051FCA6 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to : Tdiscclass._PROC_0051FAA8()
|
0051FCAB E8F8FDFFFF call 0051FAA8
0051FCB0 33C9 xor ecx, ecx
0051FCB2 8BD3 mov edx, ebx
0051FCB4 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FA84
|
0051FCB9 E8C6FDFFFF call 0051FA84
0051FCBE 54 push esp
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FCBF 8B8634030000 mov eax, [esi+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FCC5 8B8078010000 mov eax, [eax+$0178]
0051FCCB 50 push eax
0051FCCC 8B00 mov eax, [eax]
0051FCCE FF5034 call dword ptr [eax+$34]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FCD1 E86A6CEEFF call 00406940
0051FCD6 66833C2400 cmp word ptr [esp], +$00
0051FCDB 7530 jnz 0051FD0D
0051FCDD 8D442404 lea eax, [esp+$04]
0051FCE1 50 push eax
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FCE2 8B8634030000 mov eax, [esi+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FCE8 8B8078010000 mov eax, [eax+$0178]
0051FCEE 50 push eax
0051FCEF 8B00 mov eax, [eax]
0051FCF1 FF5050 call dword ptr [eax+$50]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FCF4 E8476CEEFF call 00406940
0051FCF9 66837C240400 cmp word ptr [esp+$04], +$00
0051FCFF 750C jnz 0051FD0D
0051FD01 8BD3 mov edx, ebx
0051FD03 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to : Tdiscclass._PROC_0051FABC()
|
0051FD08 E8AFFDFFFF call 0051FABC
0051FD0D 59 pop ecx
0051FD0E 5A pop edx
0051FD0F 5E pop esi
0051FD10 5B pop ebx
0051FD11 C3 ret
*)
end;
procedure Tdiscclass.ListView1Click(Sender : TObject);
begin
(*
0051FD14 55 push ebp
0051FD15 8BEC mov ebp, esp
0051FD17 B909000000 mov ecx, $00000009
0051FD1C 6A00 push $00
0051FD1E 6A00 push $00
0051FD20 49 dec ecx
0051FD21 75F9 jnz 0051FD1C
0051FD23 53 push ebx
0051FD24 56 push esi
0051FD25 57 push edi
0051FD26 8955FC mov [ebp-$04], edx
0051FD29 8BD8 mov ebx, eax
0051FD2B 33C0 xor eax, eax
0051FD2D 55 push ebp
0051FD2E 68FAFE5100 push $0051FEFA
***** TRY
|
0051FD33 64FF30 push dword ptr fs:[eax]
0051FD36 648920 mov fs:[eax], esp
* Reference to control Tdiscclass.ListView1 : TListView
|
0051FD39 8B8308030000 mov eax, [ebx+$0308]
* Reference to field TListView.Items : TListItems
|
0051FD3F 8B802C020000 mov eax, [eax+$022C]
* Reference to: ComCtrls.TListItems.GetCount(TListItems):Integer;
|
0051FD45 E85E24F6FF call 004821A8
0051FD4A 8BF8 mov edi, eax
0051FD4C 4F dec edi
0051FD4D 85FF test edi, edi
0051FD4F 0F8C5F010000 jl 0051FEB4
0051FD55 47 inc edi
0051FD56 33F6 xor esi, esi
* Reference to control Tdiscclass.ListView1 : TListView
|
0051FD58 8B8308030000 mov eax, [ebx+$0308]
* Reference to field TListView.Items : TListItems
|
0051FD5E 8B802C020000 mov eax, [eax+$022C]
0051FD64 8BD6 mov edx, esi
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
0051FD66 E86D24F6FF call 004821D8
0051FD6B BA03000000 mov edx, $00000003
* Reference to : TSubItems._PROC_00481CCC()
|
0051FD70 E8571FF6FF call 00481CCC
0051FD75 84C0 test al, al
0051FD77 0F842F010000 jz 0051FEAC
* Reference to control Tdiscclass.ListView1 : TListView
|
0051FD7D 8B8308030000 mov eax, [ebx+$0308]
* Reference to field TListView.Items : TListItems
|
0051FD83 8B802C020000 mov eax, [eax+$022C]
0051FD89 8BD6 mov edx, esi
* Reference to: ComCtrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
0051FD8B E84824F6FF call 004821D8
* Reference to field TListItems.OFFS_0024
|
0051FD90 8B5024 mov edx, [eax+$24]
* Reference to control Tdiscclass.Edit1 : TEdit
|
0051FD93 8B8314030000 mov eax, [ebx+$0314]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0051FD99 E8FE91F2FF call 00448F9C
0051FD9E B101 mov cl, $01
0051FDA0 8B55FC mov edx, [ebp-$04]
0051FDA3 A1509F5800 mov eax, dword ptr [$00589F50]
* Reference to: Unit9.Proc_0051FA84
|
0051FDA8 E8D7FCFFFF call 0051FA84
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FDAD 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FDB3 8B8078010000 mov eax, [eax+$0178]
0051FDB9 50 push eax
0051FDBA 8B00 mov eax, [eax]
0051FDBC FF9098000000 call dword ptr [eax+$0098]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FDC2 E8796BEEFF call 00406940
0051FDC7 8D45F8 lea eax, [ebp-$08]
0051FDCA 50 push eax
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FDCB 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FDD1 8B8078010000 mov eax, [eax+$0178]
0051FDD7 50 push eax
0051FDD8 8B00 mov eax, [eax]
0051FDDA FF5068 call dword ptr [eax+$68]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FDDD E85E6BEEFF call 00406940
0051FDE2 8B75F8 mov esi, [ebp-$08]
0051FDE5 4E dec esi
0051FDE6 85F6 test esi, esi
0051FDE8 0F8CC6000000 jl 0051FEB4
0051FDEE 46 inc esi
0051FDEF 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@VarClr(Variant;Variant);
|
0051FDF2 E8415BEEFF call 00405938
0051FDF7 50 push eax
0051FDF8 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
0051FDFB E8346AEEFF call 00406834
0051FE00 50 push eax
0051FE01 8D45D4 lea eax, [ebp-$2C]
* Possible String Reference to: '类型'
|
0051FE04 BA10FF5100 mov edx, $0051FF10
* Reference to: System.@DispInvoke;cdecl;
| or: System.@VarClear(Variant;Variant);
| or: System.@VarCopy(Variant;Variant;Variant;Variant);
| or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
| or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
| or: System.@VarToInt(Variant;Variant):Integer;
|
0051FE09 E8BE5AEEFF call 004058CC
0051FE0E FF75E0 push dword ptr [ebp-$20]
0051FE11 FF75DC push dword ptr [ebp-$24]
0051FE14 FF75D8 push dword ptr [ebp-$28]
0051FE17 FF75D4 push dword ptr [ebp-$2C]
0051FE1A 8D45D0 lea eax, [ebp-$30]
* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
0051FE1D E8126AEEFF call 00406834
0051FE22 50 push eax
* Reference to control Tdiscclass.ADOQuery1 : TADOQuery
|
0051FE23 8B8334030000 mov eax, [ebx+$0334]
* Reference to field TADOQuery.OFFS_0178
|
0051FE29 8B8078010000 mov eax, [eax+$0178]
0051FE2F 50 push eax
0051FE30 8B00 mov eax, [eax]
0051FE32 FF5054 call dword ptr [eax+$54]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FE35 E8066BEEFF call 00406940
0051FE3A 8B45D0 mov eax, [ebp-$30]
0051FE3D 50 push eax
0051FE3E 8B00 mov eax, [eax]
0051FE40 FF5028 call dword ptr [eax+$28]
* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0051FE43 E8F86AEEFF call 00406940
0051FE48 8B45E4 mov eax, [ebp-$1C]
0051FE4B 50 push eax
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -