zbinsfuc.pas

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

unit ZBInsFuc;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls, Buttons
type
  TF_crhs=class(TForm)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    Button1: TBitBtn;
    Button2: TBitBtn;
    TreeView2: TTreeView;
    TreeView1: TTreeView;
    RichEdit1: TRichEdit;
    ImageList1: TImageList;
    ImageList2: TImageList;
    procedure Button2Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure TreeView2Change(Sender : TObject);
    procedure TreeView2Enter(Sender : TObject);
    procedure TreeView1Enter(Sender : TObject);
    procedure TreeView1Exit(Sender : TObject);
    procedure TreeView1Change(Sender : TObject);
    procedure FuncSet(Sender : TObject);
    procedure FuncRemSet(Sender : TObject);
    procedure _PROC_005481F3(Sender : TObject);
    procedure _PROC_005482DB(Sender : TObject);
    procedure _PROC_005482EC(Sender : TObject);
    procedure _PROC_0054830C(Sender : TObject);
    procedure _PROC_00548363(Sender : TObject);
    procedure _PROC_00548385(Sender : TObject);
    procedure _PROC_00548482(Sender : TObject);
    procedure _PROC_0054848E(Sender : TObject);
    procedure _PROC_005484C0(Sender : TObject);
    procedure _PROC_005484D4(Sender : TObject);
    procedure _PROC_0054867D(Sender : TObject);
    procedure _PROC_0054869C(Sender : TObject);
    procedure _PROC_005486AC(Sender : TObject);
    procedure _PROC_00548804(Sender : TObject);
    procedure _PROC_00549D64(Sender : TObject);
    procedure _PROC_00549DAA(Sender : TObject);
    procedure _PROC_00549DAD(Sender : TObject);
    procedure _PROC_00549DBB(Sender : TObject);
    procedure _PROC_00549DCE(Sender : TObject);
    procedure _PROC_0054A4BA(Sender : TObject);
    procedure _PROC_0054A52F(Sender : TObject);
    procedure _PROC_0054A5FD(Sender : TObject);
    procedure _PROC_0054A976(Sender : TObject);
    procedure _PROC_0054AA30(Sender : TObject);
    procedure _PROC_0054AA3F(Sender : TObject);
    procedure _PROC_0054AD32(Sender : TObject);
    procedure _PROC_0054AD3F(Sender : TObject);
    procedure _PROC_0054B13D(Sender : TObject);
    procedure _PROC_0054B16D(Sender : TObject);
    procedure _PROC_0054B1E9(Sender : TObject);
    procedure _PROC_0054B29B(Sender : TObject);
    procedure _PROC_0054B2D8(Sender : TObject);
    procedure _PROC_0054B2F9(Sender : TObject);
    procedure _PROC_0054B3A1(Sender : TObject);
    procedure _PROC_0054B3E5(Sender : TObject);
    procedure _PROC_0054B43D(Sender : TObject);
    procedure _PROC_0054B549(Sender : TObject);
    procedure _PROC_0054C340(Sender : TObject);
    procedure _PROC_0054C389(Sender : TObject);
    procedure _PROC_0054C477(Sender : TObject);
    procedure _PROC_0054C533(Sender : TObject);
    procedure _PROC_0054CC09(Sender : TObject);
    procedure _PROC_0054CCF5(Sender : TObject);
    procedure _PROC_0054CFE1(Sender : TObject);
    procedure _PROC_0054CFF1(Sender : TObject);
    procedure _PROC_0054D019(Sender : TObject);
    procedure _PROC_0054EEC1(Sender : TObject);
    procedure _PROC_0054EF55(Sender : TObject);
    procedure _PROC_0054F389(Sender : TObject);
    procedure _PROC_0054F64D(Sender : TObject);
    procedure _PROC_0054F6D9(Sender : TObject);
    procedure _PROC_0054F7D1(Sender : TObject);
    procedure _PROC_0054F8E5(Sender : TObject);
    procedure _PROC_0054F965(Sender : TObject);
    procedure _PROC_00550120(Sender : TObject);
    procedure _PROC_00550279(Sender : TObject);
    procedure _PROC_005502A8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  F_crhs: TF_crhs;

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

implementation

{$R *.DFM}

procedure TF_crhs.Button2Click(Sender : TObject);
begin
(*
00545A3C   33D2                   xor     edx, edx

* Reference to field TF_crhs.OFFS_818C
|
00545A3E   89908C810000           mov     [eax+$818C], edx

* Reference to field TF_crhs.ModalResult : TModalResult
|
00545A44   C7803402000002000000   mov     dword ptr [eax+$0234], $00000002

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
00545A4E   E86906F1FF             call    004560BC
00545A53   C3                     ret

*)
end;

procedure TF_crhs.FormCreate(Sender : TObject);
begin
(*
00545B6C   53                     push    ebx
00545B6D   8BD8                   mov     ebx, eax

* Possible String Reference to: 'OPEN'
|
00545B6F   6868805400             push    $00548068
00545B74   6A00                   push    $00
00545B76   33C9                   xor     ecx, ecx
00545B78   33D2                   xor     edx, edx
00545B7A   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545B7C   E8D3FEFFFF             call    00545A54

* Possible String Reference to: 'HIGH'
|
00545B81   6878805400             push    $00548078
00545B86   6A00                   push    $00
00545B88   33C9                   xor     ecx, ecx
00545B8A   BA01000000             mov     edx, $00000001
00545B8F   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545B91   E8BEFEFFFF             call    00545A54

* Possible String Reference to: 'LOW'
|
00545B96   6888805400             push    $00548088
00545B9B   6A00                   push    $00
00545B9D   33C9                   xor     ecx, ecx
00545B9F   BA02000000             mov     edx, $00000002
00545BA4   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545BA6   E8A9FEFFFF             call    00545A54

* Possible String Reference to: 'CLOSE'
|
00545BAB   6894805400             push    $00548094
00545BB0   6A00                   push    $00
00545BB2   33C9                   xor     ecx, ecx
00545BB4   BA03000000             mov     edx, $00000003
00545BB9   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545BBB   E894FEFFFF             call    00545A54

* Possible String Reference to: 'VOL'
|
00545BC0   68A4805400             push    $005480A4
00545BC5   6A00                   push    $00
00545BC7   33C9                   xor     ecx, ecx
00545BC9   BA04000000             mov     edx, $00000004
00545BCE   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545BD0   E87FFEFFFF             call    00545A54

* Possible String Reference to: 'MAX'
|
00545BD5   68B0805400             push    $005480B0
00545BDA   6A02                   push    $02
00545BDC   B104                   mov     cl, $04
00545BDE   BA05000000             mov     edx, $00000005
00545BE3   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545BE5   E86AFEFFFF             call    00545A54

* Possible String Reference to: 'MIN'
|
00545BEA   68BC805400             push    $005480BC
00545BEF   6A02                   push    $02
00545BF1   B104                   mov     cl, $04
00545BF3   BA06000000             mov     edx, $00000006
00545BF8   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545BFA   E855FEFFFF             call    00545A54

* Possible String Reference to: 'MOD'
|
00545BFF   68C8805400             push    $005480C8
00545C04   6A02                   push    $02
00545C06   B104                   mov     cl, $04
00545C08   BA07000000             mov     edx, $00000007
00545C0D   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C0F   E840FEFFFF             call    00545A54

* Possible String Reference to: 'RANGE'
|
00545C14   68D4805400             push    $005480D4
00545C19   6A03                   push    $03
00545C1B   B104                   mov     cl, $04
00545C1D   BA08000000             mov     edx, $00000008
00545C22   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C24   E82BFEFFFF             call    00545A54

* Possible String Reference to: 'IF'
|
00545C29   68E4805400             push    $005480E4
00545C2E   6A03                   push    $03
00545C30   B103                   mov     cl, $03
00545C32   BA09000000             mov     edx, $00000009
00545C37   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C39   E816FEFFFF             call    00545A54

* Possible String Reference to: 'MA'
|
00545C3E   68F0805400             push    $005480F0
00545C43   6A02                   push    $02
00545C45   B102                   mov     cl, $02
00545C47   BA0A000000             mov     edx, $0000000A
00545C4C   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C4E   E801FEFFFF             call    00545A54

* Possible String Reference to: 'SMA'
|
00545C53   68FC805400             push    $005480FC
00545C58   6A03                   push    $03
00545C5A   B102                   mov     cl, $02
00545C5C   BA0B000000             mov     edx, $0000000B
00545C61   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C63   E8ECFDFFFF             call    00545A54

* Possible String Reference to: 'ABS'
|
00545C68   6808815400             push    $00548108
00545C6D   6A01                   push    $01
00545C6F   B104                   mov     cl, $04
00545C71   BA0C000000             mov     edx, $0000000C
00545C76   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C78   E8D7FDFFFF             call    00545A54

* Possible String Reference to: 'BETWEEN'
|
00545C7D   6814815400             push    $00548114
00545C82   6A03                   push    $03
00545C84   B104                   mov     cl, $04
00545C86   BA0D000000             mov     edx, $0000000D
00545C8B   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545C8D   E8C2FDFFFF             call    00545A54

* Possible String Reference to: 'REF'
|
00545C92   6824815400             push    $00548124
00545C97   6A02                   push    $02
00545C99   B102                   mov     cl, $02
00545C9B   BA0E000000             mov     edx, $0000000E
00545CA0   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545CA2   E8ADFDFFFF             call    00545A54

* Possible String Reference to: 'DMA'
|
00545CA7   6830815400             push    $00548130
00545CAC   6A02                   push    $02
00545CAE   B102                   mov     cl, $02
00545CB0   BA0F000000             mov     edx, $0000000F
00545CB5   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545CB7   E898FDFFFF             call    00545A54

* Possible String Reference to: 'EMA'
|
00545CBC   683C815400             push    $0054813C
00545CC1   6A02                   push    $02
00545CC3   B102                   mov     cl, $02
00545CC5   BA10000000             mov     edx, $00000010
00545CCA   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545CCC   E883FDFFFF             call    00545A54

* Possible String Reference to: 'MEMA'
|
00545CD1   6848815400             push    $00548148
00545CD6   6A02                   push    $02
00545CD8   B102                   mov     cl, $02
00545CDA   BA11000000             mov     edx, $00000011
00545CDF   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545CE1   E86EFDFFFF             call    00545A54

* Possible String Reference to: 'ASIN'
|
00545CE6   6858815400             push    $00548158
00545CEB   6A01                   push    $01
00545CED   B105                   mov     cl, $05
00545CEF   BA12000000             mov     edx, $00000012
00545CF4   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545CF6   E859FDFFFF             call    00545A54

* Possible String Reference to: 'ACOS'
|
00545CFB   6868815400             push    $00548168
00545D00   6A01                   push    $01
00545D02   B105                   mov     cl, $05
00545D04   BA13000000             mov     edx, $00000013
00545D09   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545D0B   E844FDFFFF             call    00545A54

* Possible String Reference to: 'ATAN'
|
00545D10   6878815400             push    $00548178
00545D15   6A01                   push    $01
00545D17   B105                   mov     cl, $05
00545D19   BA14000000             mov     edx, $00000014
00545D1E   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545D20   E82FFDFFFF             call    00545A54

* Possible String Reference to: 'SIN'
|
00545D25   6888815400             push    $00548188
00545D2A   6A01                   push    $01
00545D2C   B105                   mov     cl, $05
00545D2E   BA15000000             mov     edx, $00000015
00545D33   8BC3                   mov     eax, ebx

* Reference to : TF_crhs.FuncSet()
|
00545D35   E81AFDFFFF             call    00545A54