zbstockbk.pas

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

unit ZBStockBK;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TselStockBKfrm=class(TForm)
    RxGradientCaption1: TRxGradientCaption;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ListView2: TListView;
    ListView3: TListView;
    Label1: TLabel;
    Button1: TBitBtn;
    Button2: TBitBtn;
    ListView1: TListView;
    ListView4: TListView;
    OFFS_0300: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure ListView2Change(Sender : TObject);
    procedure ListView3KeyDown(Sender : TObject);
    procedure PageControl1Change(Sender : TObject);
    procedure ListView2Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure FormKeyPress(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure ListView1Change(Sender : TObject);
    procedure ListView4KeyDown(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_00649E9C(Sender : TObject);
    procedure _PROC_0064A044(Sender : TObject);
    procedure _PROC_0064A27C(Sender : TObject);
    procedure _PROC_0064A3E8(Sender : TObject);
    procedure _PROC_0064A6DC(Sender : TObject);
    procedure _PROC_0064A718(Sender : TObject);
    procedure _PROC_0064AC78(Sender : TObject);
    procedure _PROC_0064AC81(Sender : TObject);
    procedure _PROC_0064AC8A(Sender : TObject);
    procedure _PROC_0064AE18(Sender : TObject);
    procedure _PROC_0064AE48(Sender : TObject);
    procedure Proc_0064AC7C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  selStockBKfrm: TselStockBKfrm;

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

implementation

{$R *.DFM}

procedure TselStockBKfrm.FormCreate(Sender : TObject);
begin
(*

* Reference to field TselStockBKfrm.OFFS_0300 : Byte
|
00649D5C   C6800003000000         mov     byte ptr [eax+$0300], $00

* Reference to field TselStockBKfrm.OFFS_030A
|
00649D63   66C7800A0300000000     mov     word ptr [eax+$030A], $0000

* Reference to field TselStockBKfrm.OFFS_030C
|
00649D6C   66C7800C0300000000     mov     word ptr [eax+$030C], $0000

* Reference to: Unit_0073FBC3.Proc_0073FEB4
|
00649D75   E83A610F00             call    0073FEB4
00649D7A   C3                     ret

*)
end;

procedure TselStockBKfrm.FormDestroy(Sender : TObject);
begin
(*
00649D7C   53                     push    ebx
00649D7D   56                     push    esi
00649D7E   57                     push    edi
00649D7F   8BF0                   mov     esi, eax

* Reference to control TselStockBKfrm.ListView3 : TListView
|
00649D81   8B86E4020000           mov     eax, [esi+$02E4]

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

* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
00649D8D   E8AA3BE3FF             call    0047D93C
00649D92   85C0                   test    eax, eax
00649D94   746D                   jz      00649E03

* Reference to control TselStockBKfrm.ListView3 : TListView
|
00649D96   8B86E4020000           mov     eax, [esi+$02E4]

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

* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
00649DA2   E8953BE3FF             call    0047D93C
00649DA7   8BF8                   mov     edi, eax
00649DA9   4F                     dec     edi
00649DAA   85FF                   test    edi, edi
00649DAC   7C55                   jl      00649E03
00649DAE   47                     inc     edi
00649DAF   33DB                   xor     ebx, ebx

* Reference to control TselStockBKfrm.ListView3 : TListView
|
00649DB1   8B86E4020000           mov     eax, [esi+$02E4]

* Reference to field TListView.Items : TListItems
|
00649DB7   8B800C020000           mov     eax, [eax+$020C]
00649DBD   8BD3                   mov     edx, ebx

* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
00649DBF   E8A83BE3FF             call    0047D96C

* Reference to field TListItems.OFFS_000C
|
00649DC4   83780C00               cmp     dword ptr [eax+$0C], +$00
00649DC8   7435                   jz      00649DFF

* Reference to control TselStockBKfrm.ListView3 : TListView
|
00649DCA   8B86E4020000           mov     eax, [esi+$02E4]

* Reference to field TListView.Items : TListItems
|
00649DD0   8B800C020000           mov     eax, [eax+$020C]
00649DD6   8BD3                   mov     edx, ebx

* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
00649DD8   E88F3BE3FF             call    0047D96C

* Reference to field TListItems.OFFS_000C
|
00649DDD   8B400C                 mov     eax, [eax+$0C]

* Reference to: system.@FreeMem;
|
00649DE0   E89B8ADBFF             call    00402880

* Reference to control TselStockBKfrm.ListView3 : TListView
|
00649DE5   8B86E4020000           mov     eax, [esi+$02E4]

* Reference to field TListView.Items : TListItems
|
00649DEB   8B800C020000           mov     eax, [eax+$020C]
00649DF1   8BD3                   mov     edx, ebx

* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
00649DF3   E8743BE3FF             call    0047D96C
00649DF8   33D2                   xor     edx, edx

* Reference to: comctrls.TListItem.SetData(TListItem;Pointer);
|
00649DFA   E87136E3FF             call    0047D470
00649DFF   43                     inc     ebx
00649E00   4F                     dec     edi
00649E01   75AE                   jnz     00649DB1

* Reference to control TselStockBKfrm.ListView4 : TListView
|
00649E03   8B86F8020000           mov     eax, [esi+$02F8]

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

* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
00649E0F   E8283BE3FF             call    0047D93C
00649E14   85C0                   test    eax, eax
00649E16   746D                   jz      00649E85

* Reference to control TselStockBKfrm.ListView4 : TListView
|
00649E18   8B86F8020000           mov     eax, [esi+$02F8]

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

* Reference to: comctrls.TListItems.GetCount(TListItems):Integer;
|
00649E24   E8133BE3FF             call    0047D93C
00649E29   8BF8                   mov     edi, eax
00649E2B   4F                     dec     edi
00649E2C   85FF                   test    edi, edi
00649E2E   7C55                   jl      00649E85
00649E30   47                     inc     edi
00649E31   33DB                   xor     ebx, ebx

* Reference to control TselStockBKfrm.ListView4 : TListView
|
00649E33   8B86F8020000           mov     eax, [esi+$02F8]

* Reference to field TListView.Items : TListItems
|
00649E39   8B800C020000           mov     eax, [eax+$020C]
00649E3F   8BD3                   mov     edx, ebx

* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
00649E41   E8263BE3FF             call    0047D96C

* Reference to field TListItems.OFFS_000C
|
00649E46   83780C00               cmp     dword ptr [eax+$0C], +$00
00649E4A   7435                   jz      00649E81

* Reference to control TselStockBKfrm.ListView4 : TListView
|
00649E4C   8B86F8020000           mov     eax, [esi+$02F8]

* Reference to field TListView.Items : TListItems
|
00649E52   8B800C020000           mov     eax, [eax+$020C]
00649E58   8BD3                   mov     edx, ebx

* Reference to: comctrls.TListItems.GetItem(TListItems;Integer):TListItem;
|
00649E5A   E80D3BE3FF             call    0047D96C

* Reference to field TListItems.OFFS_000C
|
00649E5F   8B400C                 mov     eax, [eax+$0C]

* Reference to: system.@FreeMem;
|
00649E62   E8198ADBFF             call    00402880

* Reference to control TselStockBKfrm.ListView4 : TListView
|