zbcmpl.pas

一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.

unit ZBCmpl;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmIndEdit=class(TForm)
    TabControl1: TTabControl;
    Memo1: TMemo;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Button3: TBitBtn;
    Button4: TBitBtn;
    Button5: TBitBtn;
    Button6: TBitBtn;
    Button7: TBitBtn;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Button8: TBitBtn;
    IndTreeView: TTreeView;
    Button9: TBitBtn;
    ListView1: TListView;
    Button10: TBitBtn;
    Button11: TBitBtn;
    Button12: TBitBtn;
    Button13: TBitBtn;
    Button14: TBitBtn;
    Label1: TLabel;
    RxGradientCaption1: TRxGradientCaption;
    Button15: TBitBtn;
    N11: TMenuItem;
    BitBtn1: TBitBtn;
    ButSrcib: TButton;
    OFFS_035D: N.A.;
    OFFS_035C: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure IndTreeViewClick(Sender : TObject);
    procedure IndTreeViewMouseDown(Sender : TObject);
    procedure N1Click(Sender : TObject);
    procedure N2Click(Sender : TObject);
    procedure N3Click(Sender : TObject);
    procedure N4Click(Sender : TObject);
    procedure N8Click(Sender : TObject);
    procedure N9Click(Sender : TObject);
    procedure N10Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure N6Click(Sender : TObject);
    procedure N7Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure N5Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure TabControl1Change(Sender : TObject);
    procedure IndTreeViewChange(Sender : TObject);
    procedure Button9Click(Sender : TObject);
    procedure Button10Click(Sender : TObject);
    procedure Button11Click(Sender : TObject);
    procedure ListView1Change(Sender : TObject);
    procedure Button12Click(Sender : TObject);
    procedure Button13Click(Sender : TObject);
    procedure Button14Click(Sender : TObject);
    procedure ListView1KeyDown(Sender : TObject);
    procedure IndTreeViewExpanding(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure ListView1DblClick(Sender : TObject);
    procedure IndTreeViewDblClick(Sender : TObject);
    procedure Button15Click(Sender : TObject);
    procedure IndTreeViewCustomDrawItem(Sender : TObject);
    procedure N11Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure ButSrcibClick(Sender : TObject);
    procedure _PROC_0070CE8C(Sender : TObject);
    procedure _PROC_0070CEC4(Sender : TObject);
    procedure _PROC_0070D357(Sender : TObject);
    procedure _PROC_0070D70C(Sender : TObject);
    procedure _PROC_0070D982(Sender : TObject);
    procedure _PROC_0070D9CC(Sender : TObject);
    procedure _PROC_0070DD7B(Sender : TObject);
    procedure _PROC_0070E3F8(Sender : TObject);
    procedure _PROC_0070E7A3(Sender : TObject);
    procedure _PROC_0070E7B3(Sender : TObject);
    procedure _PROC_0070F0E0(Sender : TObject);
    procedure _PROC_0070F110(Sender : TObject);
    procedure Proc_0070D350(Sender : TObject);
    procedure Proc_0070D960(Sender : TObject);
    procedure Proc_0070D708(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmIndEdit: TfrmIndEdit;

{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}

implementation

{$R *.DFM}

procedure TfrmIndEdit.FormCreate(Sender : TObject);
begin
(*
0070CDAC   53                     push    ebx
0070CDAD   8BD8                   mov     ebx, eax
0070CDAF   A118CB7700             mov     eax, dword ptr [$0077CB18]
0070CDB4   8B00                   mov     eax, [eax]

* Reference to: Unit_0070F7F0.Proc_007113A8
|
0070CDB6   E8ED450000             call    007113A8

* Reference to control TfrmIndEdit.IndTreeView : TTreeView
|
0070CDBB   8D8324030000           lea     eax, [ebx+$0324]
0070CDC1   B20B                   mov     dl, $0B

* Reference to: Unit_0073FBC3.Proc_00740498
|
0070CDC3   E8D0360300             call    00740498

* Reference to control TfrmIndEdit.IndTreeView : TTreeView
|
0070CDC8   8B8324030000           mov     eax, [ebx+$0324]

* Reference to field TTreeView.Items : TTreeNodes
|
0070CDCE   8B8054020000           mov     eax, [eax+$0254]
0070CDD4   33D2                   xor     edx, edx

* Reference to: comctrls.TTreeNodes.GetNodeFromIndex(TTreeNodes;Integer):TTreeNode;
|
0070CDD6   E81DA2D6FF             call    00476FF8
0070CDDB   B201                   mov     dl, $01

* Reference to: comctrls.TTreeNode.SetSelected(TTreeNode;Boolean);
|
0070CDDD   E89694D6FF             call    00476278
0070CDE2   33C0                   xor     eax, eax

* Reference to field TfrmIndEdit.OFFS_0368
|
0070CDE4   898368030000           mov     [ebx+$0368], eax

* Reference to field TfrmIndEdit.OFFS_035D : Byte
|
0070CDEA   C6835D03000000         mov     byte ptr [ebx+$035D], $00

* Reference to control TfrmIndEdit.ListView1 : TListView
|
0070CDF1   8B832C030000           mov     eax, [ebx+$032C]

* Reference to field TListView.Left : Integer
|
0070CDF7   8B5030                 mov     edx, [eax+$30]
0070CDFA   8BC3                   mov     eax, ebx

* Reference to: controls.TControl.SetWidth(TControl;Integer);
|
0070CDFC   E887C4D2FF             call    00439288
0070CE01   8BC3                   mov     eax, ebx

* Reference to : TfrmIndEdit._PROC_0070CEC4()
|
0070CE03   E8BC000000             call    0070CEC4
0070CE08   5B                     pop     ebx
0070CE09   C3                     ret

*)
end;

procedure TfrmIndEdit.FormDestroy(Sender : TObject);
begin
(*
0070CE0C   53                     push    ebx
0070CE0D   56                     push    esi
0070CE0E   57                     push    edi
0070CE0F   51                     push    ecx
0070CE10   8BD8                   mov     ebx, eax

* Reference to control TfrmIndEdit.ListView1 : TListView
|
0070CE12   8B832C030000           mov     eax, [ebx+$032C]

* Reference to field TListView.Items : TListItems
|
0070CE18   8B800C020000           mov     eax, [eax+$020C]

* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
0070CE1E   E8190BD7FF             call    0047D93C
0070CE23   85C0                   test    eax, eax
0070CE25   7E40                   jle     0070CE67

* Reference to control TfrmIndEdit.ListView1 : TListView
|
0070CE27   8B832C030000           mov     eax, [ebx+$032C]

* Reference to field TListView.Items : TListItems
|
0070CE2D   8B800C020000           mov     eax, [eax+$020C]

* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
0070CE33   E8040BD7FF             call    0047D93C
0070CE38   8BF0                   mov     esi, eax
0070CE3A   4E                     dec     esi
0070CE3B   85F6                   test    esi, esi
0070CE3D   7C28                   jl      0070CE67
0070CE3F   46                     inc     esi
0070CE40   33FF                   xor     edi, edi

* Reference to control TfrmIndEdit.ListView1 : TListView
|
0070CE42   8B832C030000           mov     eax, [ebx+$032C]

* Reference to field TListView.Items : TListItems
|
0070CE48   8B800C020000           mov     eax, [eax+$020C]
0070CE4E   8BD7                   mov     edx, edi

* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
0070CE50   E8170BD7FF             call    0047D96C

* Reference to field TListItems.OFFS_000C
|
0070CE55   8B500C                 mov     edx, [eax+$0C]
0070CE58   85D2                   test    edx, edx
0070CE5A   7407                   jz      0070CE63
0070CE5C   8BC2                   mov     eax, edx

* Reference to: system.@FreeMem;
|
0070CE5E   E81D5ACFFF             call    00402880
0070CE63   47                     inc     edi
0070CE64   4E                     dec     esi
0070CE65   75DB                   jnz     0070CE42

* Reference to control TfrmIndEdit.IndTreeView : TTreeView
|
0070CE67   8B8324030000           mov     eax, [ebx+$0324]

* Reference to field TTreeView.Items : TTreeNodes
|
0070CE6D   8B8054020000           mov     eax, [eax+$0254]
0070CE73   33D2                   xor     edx, edx

* Reference to: comctrls.TTreeNodes.GetNodeFromIndex(TTreeNodes;Integer):TTreeNode;
|
0070CE75   E87EA1D6FF             call    00476FF8
0070CE7A   890424                 mov     [esp], eax
0070CE7D   8BC4                   mov     eax, esp

* Reference to: Unit_0073FBC3.Proc_00740C18
|
0070CE7F   E8943D0300             call    00740C18
0070CE84   5A                     pop     edx
0070CE85   5F                     pop     edi
0070CE86   5E                     pop     esi
0070CE87   5B                     pop     ebx
0070CE88   C3                     ret

*)
end;

procedure TfrmIndEdit.Button2Click(Sender : TObject);
begin
(*
0070CFB4   55                     push    ebp
0070CFB5   8BEC                   mov     ebp, esp
0070CFB7   6A00                   push    $00
0070CFB9   6A00                   push    $00
0070CFBB   6A00                   push    $00
0070CFBD   53                     push    ebx
0070CFBE   56                     push    esi
0070CFBF   8BD8                   mov     ebx, eax
0070CFC1   33C0                   xor     eax, eax
0070CFC3   55                     push    ebp

* Possible String Reference to: '閣i