bkdef.pas

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

unit Bkdef;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TBkDefForm=class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    STBK: TStaticText;
    STCmdtCod: TStaticText;
    STCmdtName: TStaticText;
    Panel2: TPanel;
    LBBK: TListBox;
    Panel3: TPanel;
    LBBKCmdt: TListBox;
    RxGradientCaption1: TRxGradientCaption;
    BitBtn1: TBitBtn;
    BtnUp: TButton;
    BtnDown: TButton;
    OFFS_0308: N.A.;
    OFFS_0309: N.A.;
    procedure BtnOkClick(Sender : TObject);
    procedure BtnCancleClick(Sender : TObject);
    procedure BtnAddStockClick(Sender : TObject);
    procedure BtnAddBKClick(Sender : TObject);
    procedure BtnDelBkClick(Sender : TObject);
    procedure BtnDelStockClick(Sender : TObject);
    procedure LBBKClick(Sender : TObject);
    procedure LBBKKeyDown(Sender : TObject);
    procedure LBBKCmdtKeyDown(Sender : TObject);
    procedure LBBKCmdtKeyPress(Sender : TObject);
    procedure LBBKEnter(Sender : TObject);
    procedure LBBKExit(Sender : TObject);
    procedure LBBKCmdtEnter(Sender : TObject);
    procedure LBBKCmdtExit(Sender : TObject);
    procedure LBBKDrawItem(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure BtnUpClick(Sender : TObject);
    procedure BtnDownClick(Sender : TObject);
    procedure LBBKCmdtClick(Sender : TObject);
    procedure _PROC_0065A766(Sender : TObject);
    procedure _PROC_0065A7BD(Sender : TObject);
    procedure _PROC_0065A924(Sender : TObject);
    procedure _PROC_0065AC43(Sender : TObject);
    procedure _PROC_0065B1F7(Sender : TObject);
    procedure _PROC_0065B326(Sender : TObject);
    procedure _PROC_0065B414(Sender : TObject);
    procedure _PROC_0065B499(Sender : TObject);
    procedure _PROC_0065B850(Sender : TObject);
    procedure _PROC_0065B9EC(Sender : TObject);
    procedure _PROC_0065BA1C(Sender : TObject);
    procedure Proc_0065A72C(Sender : TObject);
    procedure Proc_0065A744(Sender : TObject);
    procedure Proc_0065B498(Sender : TObject);
    procedure Proc_0065B1A6(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  BkDefForm: TBkDefForm;

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

implementation

{$R *.DFM}

procedure TBkDefForm.BtnOkClick(Sender : TObject);
begin
(*

* Reference to : TBkDefForm.Proc_0065A72C()
|
0065A73C   E8EBFFFFFF             call    0065A72C
0065A741   C3                     ret

*)
end;

procedure TBkDefForm.BtnCancleClick(Sender : TObject);
begin
(*

* Reference to : TBkDefForm.Proc_0065A744()
|
0065A7B4   E88BFFFFFF             call    0065A744
0065A7B9   C3                     ret

*)
end;

procedure TBkDefForm.BtnAddStockClick(Sender : TObject);
begin
(*
0065AC38   53                     push    ebx
0065AC39   8BD8                   mov     ebx, eax

* Reference to field TBkDefForm.Height : Integer
|
0065AC3B   8B4B3C                 mov     ecx, [ebx+$3C]
0065AC3E   D1F9                   sar     ecx, 1
0065AC40   7903                   jns     0065AC45
0065AC42   83D100                 adc     ecx, +$00
0065AC45   034B34                 add     ecx, [ebx+$34]
0065AC48   8B5330                 mov     edx, [ebx+$30]
0065AC4B   035338                 add     edx, [ebx+$38]

* Reference to TCommander instance
|
0065AC4E   A1F4CF7700             mov     eax, dword ptr [$0077CFF4]
0065AC53   8B00                   mov     eax, [eax]

* Reference to : TCommander._PROC_0075BFC8()
|
0065AC55   E86E131000             call    0075BFC8
0065AC5A   53                     push    ebx
0065AC5B   68BCA76500             push    $0065A7BC

* Reference to TCommander instance
|
0065AC60   A1F4CF7700             mov     eax, dword ptr [$0077CFF4]
0065AC65   8B00                   mov     eax, [eax]
0065AC67   33C9                   xor     ecx, ecx
0065AC69   66BA0600               mov     dx, $0006

* Reference to : TCommander._PROC_0075C050()
|
0065AC6D   E8DE131000             call    0075C050
0065AC72   5B                     pop     ebx
0065AC73   C3                     ret

*)
end;

procedure TBkDefForm.BtnAddBKClick(Sender : TObject);
begin
(*
0065A9D4   55                     push    ebp
0065A9D5   8BEC                   mov     ebp, esp
0065A9D7   33C9                   xor     ecx, ecx
0065A9D9   51                     push    ecx
0065A9DA   51                     push    ecx
0065A9DB   51                     push    ecx
0065A9DC   51                     push    ecx
0065A9DD   51                     push    ecx
0065A9DE   53                     push    ebx
0065A9DF   8955F4                 mov     [ebp-$0C], edx
0065A9E2   8945FC                 mov     [ebp-$04], eax
0065A9E5   33C0                   xor     eax, eax
0065A9E7   55                     push    ebp
0065A9E8   680DAB6500             push    $0065AB0D

***** TRY
|
0065A9ED   64FF30                 push    dword ptr fs:[eax]
0065A9F0   648920                 mov     fs:[eax], esp
0065A9F3   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBkDefForm.OFFS_0308 : Byte
|
0065A9F6   8A9808030000           mov     bl, byte ptr [eax+$0308]
0065A9FC   80FB09                 cmp     bl, $09
0065A9FF   7542                   jnz     0065AA43
0065AA01   33C0                   xor     eax, eax
0065AA03   8AC3                   mov     al, bl

* Reference to pointer to GlobalVar_0078CF1C
|
0065AA05   8B15C4CA7700           mov     edx, [$0077CAC4]
0065AA0B   8B12                   mov     edx, [edx]
0065AA0D   8B4482E4               mov     eax, [edx+eax*4-$1C]
0065AA11   8B4010                 mov     eax, [eax+$10]
0065AA14   40                     inc     eax
0065AA15   8D55F0                 lea     edx, [ebp-$10]

* Reference to: Unit_00409434.Proc_0040A564
|
0065AA18   E847FBDAFF             call    0040A564
0065AA1D   8B4DF0                 mov     ecx, [ebp-$10]
0065AA20   8D45F8                 lea     eax, [ebp-$08]

* Possible String Reference to: '自选'
|
0065AA23   BA24AB6500             mov     edx, $0065AB24

* Reference to: system.@LStrCat3;
|
0065AA28   E8AF99DAFF             call    004043DC
0065AA2D   55                     push    ebp

* Reference to : TBkDefForm._PROC_0065A924()
|
0065AA2E   E8F1FEFFFF             call    0065A924
0065AA33   59                     pop     ecx
0065AA34   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBkDefForm.OFFS_0309 : Byte
|
0065AA37   C6800903000001         mov     byte ptr [eax+$0309], $01
0065AA3E   E993000000             jmp     0065AAD6

* Reference to TApplication instance
|
0065AA43   8B0D00D17700           mov     ecx, [$0077D100]
0065AA49   8B09                   mov     ecx, [ecx]
0065AA4B   B201                   mov     dl, $01

* Reference to class TfrmInsBK
|
0065AA4D   A1643F5A00             mov     eax, dword ptr [$005A3F64]

* Reference to: forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
0065AA52   E88578DFFF             call    004522DC
0065AA57   8BD8                   mov     ebx, eax
0065AA59   8BC3                   mov     eax, ebx
0065AA5B   8B10                   mov     edx, [eax]

* Reference to method TfrmInsBK.ShowModal()
|
0065AA5D   FF92D8000000           call    dword ptr [edx+$00D8]
0065AA63   48                     dec     eax
0065AA64   7569                   jnz     0065AACF
0065AA66   8D55EC                 lea     edx, [ebp-$14]

* Reference to control TfrmInsBK.mBKName : TEdit
|
0065AA69   8B83D4020000           mov     eax, [ebx+$02D4]

* Reference to: controls.TControl.GetText(TControl):TCaption;
|
0065AA6F   E8DCEFDDFF             call    00439A50
0065AA74   8B45EC                 mov     eax, [ebp-$14]
0065AA77   8D55F8                 lea     edx, [ebp-$08]

* Reference to: Unit_00409434.Proc_0040A37C
|
0065AA7A   E8FDF8DAFF             call    0040A37C
0065AA7F   837DF800               cmp     dword ptr [ebp-$08], +$00
0065AA83   744A                   jz      0065AACF
0065AA85   8B45FC                 mov     eax, [ebp-$04]
0065AA88   0FB68008030000         movzx   eax, byte ptr [eax+$0308]

* Reference to pointer to GlobalVar_0078CF1C
|
0065AA8F   8B15C4CA7700           mov     edx, [$0077CAC4]
0065AA95   8B12                   mov     edx, [edx]
0065AA97   8B4482E4               mov     eax, [edx+eax*4-$1C]
0065AA9B   8B55F8                 mov     edx, [ebp-$08]

* Reference to : TBkArray.mFindBKByName()
|
0065AA9E   E8416A1000             call    007614E4
0065AAA3   85C0                   test    eax, eax
0065AAA5   7513                   jnz     0065AABA
0065AAA7   55                     push    ebp

* Reference to : TBkDefForm._PROC_0065A924()
|
0065AAA8   E877FEFFFF             call    0065A924
0065AAAD   59                     pop     ecx
0065AAAE   8B45FC                 mov     eax, [ebp-$04]

* Reference to field TBkDefForm.OFFS_0309 : Byte
|
0065AAB1   C6800903000001         mov     byte ptr [eax+$0309], $01
0065AAB8   EB15                   jmp     0065AACF
0065AABA   6A00                   push    $00
0065AABC   668B0D2CAB6500         mov     cx, word ptr [$0065AB2C]
0065AAC3   B201                   mov     dl, $01

* Possible String Reference to: '该板块已存在'
|
0065AAC5   B838AB6500             mov     eax, $0065AB38

* Reference to: Dialogs.Proc_00465660
|
0065AACA   E891ABE0FF             call    00465660
0065AACF   8BC3                   mov     eax, ebx

* Reference to: system.TObject.Free(TObject);
|
0065AAD1   E8F687DAFF             call    004032CC
0065AAD6   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TBkDefForm.LBBK : TListBox
|
0065AAD9   8B80EC020000           mov     eax, [eax+$02EC]
0065AADF   8B10                   mov     edx, [eax]

* Reference to method TListBox.SetFocus()
|
0065AAE1   FF92B0000000           call    dword ptr [edx+$00B0]
0065AAE7   33C0                   xor     eax, eax
0065AAE9   5A                     pop     edx
0065AAEA   59                     pop     ecx
0065AAEB   59                     pop     ecx
0065AAEC   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '[嬪]