zbpjnewmod.pas

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

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDACE   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TTreeView.OFFS_02A4
|
006FDAD4   8990A4020000           mov     [eax+$02A4], edx

* Reference to field TTreeView.OnCustomDrawItem : TTVCustomDrawItemEvent
|
006FDADA   C780A0020000C8296E00   mov     dword ptr [eax+$02A0], $006E29C8

* Reference to control TPJNewModFrm.TabControl1 : TTabControl
|
006FDAE4   8B8318030000           mov     eax, [ebx+$0318]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDAEA   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TTabControl.OFFS_022C
|
006FDAF0   89902C020000           mov     [eax+$022C], edx

* Reference to field TTabControl.OnChanging : TTabChangingEvent
|
006FDAF6   C7802802000050206E00   mov     dword ptr [eax+$0228], $006E2050

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDB00   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TTabControl.OFFS_0224
|
006FDB06   899024020000           mov     [eax+$0224], edx

* Reference to field TTabControl.OnChange : TNotifyEvent
|
006FDB0C   C780200200005C206E00   mov     dword ptr [eax+$0220], $006E205C

* Reference to control TPJNewModFrm.N6 : TMenuItem
|
006FDB16   8B83F4020000           mov     eax, [ebx+$02F4]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDB1C   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDB22   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDB28   C78080000000AC346E00   mov     dword ptr [eax+$0080], $006E34AC

* Reference to control TPJNewModFrm.MindButton : TBitBtn
|
006FDB32   8B83D4020000           mov     eax, [ebx+$02D4]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDB38   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TBitBtn.OFFS_010C
|
006FDB3E   89900C010000           mov     [eax+$010C], edx

* Reference to field TBitBtn.OFFS_0108
|
006FDB44   C78008010000AC346E00   mov     dword ptr [eax+$0108], $006E34AC

* Reference to control TPJNewModFrm.N7 : TMenuItem
|
006FDB4E   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDB54   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDB5A   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDB60   C780800000008C356E00   mov     dword ptr [eax+$0080], $006E358C

* Reference to control TPJNewModFrm.AnnoButton : TBitBtn
|
006FDB6A   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDB70   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TBitBtn.OFFS_010C
|
006FDB76   89900C010000           mov     [eax+$010C], edx

* Reference to field TBitBtn.OFFS_0108
|
006FDB7C   C780080100008C356E00   mov     dword ptr [eax+$0108], $006E358C

* Reference to control TPJNewModFrm.N1 : TMenuItem
|
006FDB86   8B83E0020000           mov     eax, [ebx+$02E0]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDB8C   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDB92   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDB98   C78080000000AC216E00   mov     dword ptr [eax+$0080], $006E21AC

* Reference to control TPJNewModFrm.N2 : TMenuItem
|
006FDBA2   8B83E4020000           mov     eax, [ebx+$02E4]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDBA8   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDBAE   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDBB4   C780800000002C236E00   mov     dword ptr [eax+$0080], $006E232C

* Reference to control TPJNewModFrm.N3 : TMenuItem
|
006FDBBE   8B83E8020000           mov     eax, [ebx+$02E8]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDBC4   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDBCA   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDBD0   C7808000000038236E00   mov     dword ptr [eax+$0080], $006E2338

* Reference to control TPJNewModFrm.N4 : TMenuItem
|
006FDBDA   8B83EC020000           mov     eax, [ebx+$02EC]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDBE0   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDBE6   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDBEC   C7808000000044236E00   mov     dword ptr [eax+$0080], $006E2344

* Reference to control TPJNewModFrm.N5 : TMenuItem
|
006FDBF6   8B83F0020000           mov     eax, [ebx+$02F0]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDBFC   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDC02   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDC08   C7808000000060236E00   mov     dword ptr [eax+$0080], $006E2360

* Reference to control TPJNewModFrm.N8 : TMenuItem
|
006FDC12   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDC18   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDC1E   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDC24   C7808000000080236E00   mov     dword ptr [eax+$0080], $006E2380

* Reference to control TPJNewModFrm.N9 : TMenuItem
|
006FDC2E   8B8300030000           mov     eax, [ebx+$0300]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDC34   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDC3A   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDC40   C78080000000EC236E00   mov     dword ptr [eax+$0080], $006E23EC

* Reference to control TPJNewModFrm.N10 : TMenuItem
|
006FDC4A   8B8304030000           mov     eax, [ebx+$0304]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDC50   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDC56   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDC5C   C7808000000070246E00   mov     dword ptr [eax+$0080], $006E2470

* Reference to control TPJNewModFrm.N11 : TMenuItem
|
006FDC66   8B8308030000           mov     eax, [ebx+$0308]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDC6C   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMenuItem.OFFS_0084
|
006FDC72   899084000000           mov     [eax+$0084], edx

* Reference to field TMenuItem.OnClick : TNotifyEvent
|
006FDC78   C78080000000E4246E00   mov     dword ptr [eax+$0080], $006E24E4

* Reference to control TPJNewModFrm.Memo1 : TMemo
|
006FDC82   8B8328030000           mov     eax, [ebx+$0328]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDC88   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TMemo.OFFS_019C
|
006FDC8E   89909C010000           mov     [eax+$019C], edx

* Reference to field TMemo.OnEnter : TNotifyEvent
|
006FDC94   C7809801000040256E00   mov     dword ptr [eax+$0198], $006E2540

* Reference to control TPJNewModFrm.ComboBox1 : TComboBox
|
006FDC9E   8B8330030000           mov     eax, [ebx+$0330]

* Reference to field TPJNewModFrm.OFFS_03AC
|
006FDCA4   8B93AC030000           mov     edx, [ebx+$03AC]

* Reference to field TComboBox.OFFS_0234
|
006FDCAA   899034020000           mov     [eax+$0234], edx

* Reference to field TComboBox.OnChange : TNotifyEvent
|
006FDCB0   C7803002000060256E00   mov     dword ptr [eax+$0230], $006E2560
006FDCBA   5E                     pop     esi
006FDCBB   5B                     pop     ebx
006FDCBC   C3                     ret

*)
end;

procedure TPJNewModFrm.BitBtn1Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006FDDD0   E8E782D5FF             call    004560BC
006FDDD5   C3                     ret

*)
end;

procedure TPJNewModFrm.Button1Click(Sender : TObject);
begin
(*
006FDDD8   53                     push    ebx
006FDDD9   8BD8                   mov     ebx, eax

* Reference to field TPJNewModFrm.OFFS_03BC
|
006FDDDB   83BBBC03000000         cmp     dword ptr [ebx+$03BC], +$00
006FDDE2   7D1D                   jnl     006FDE01
006FDDE4   6A04                   push    $04
006FDDE6   6A30                   push    $30

* Possible String Reference to: '提示'
|
006FDDE8   681CDE6F00             push    $006FDE1C

* Possible String Reference to: '没有示例股票!'
|
006FDDED   6824DE6F00             push    $006FDE24
006FDDF2   8BC3                   mov     eax, ebx