zbselbk.pas

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

unit ZBSelBK;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmBk=class(TForm)
    ListBox1: TListBox;
    Button1: TBitBtn;
    Button2: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    RxGradientCaption1: TRxGradientCaption;
    OFFS_02E8: N.A.;
    OFFS_02EC: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure _PROC_006E3CE4(Sender : TObject);
    procedure _PROC_006E3FA1(Sender : TObject);
    procedure _PROC_006E3FD0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmBk: TfrmBk;

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

implementation

{$R *.DFM}

procedure TfrmBk.FormCreate(Sender : TObject);
begin
(*
006E3CC8   53                     push    ebx
006E3CC9   8BD8                   mov     ebx, eax
006E3CCB   BA06000000             mov     edx, $00000006

* Reference to control TfrmBk.ListBox1 : TListBox
|
006E3CD0   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: stdctrls.TCustomListBox.SetColumns(TCustomListBox;Integer);
|
006E3CD6   E84DEFD4FF             call    00432C28

* Reference to field TfrmBk.OFFS_02E8 : Byte
|
006E3CDB   C683E802000000         mov     byte ptr [ebx+$02E8], $00
006E3CE2   5B                     pop     ebx
006E3CE3   C3                     ret

*)
end;

procedure TfrmBk.Button1Click(Sender : TObject);
begin
(*
006E3D84   55                     push    ebp
006E3D85   8BEC                   mov     ebp, esp
006E3D87   83C4D0                 add     esp, -$30
006E3D8A   53                     push    ebx
006E3D8B   56                     push    esi
006E3D8C   57                     push    edi
006E3D8D   33C9                   xor     ecx, ecx
006E3D8F   894DD4                 mov     [ebp-$2C], ecx
006E3D92   894DD0                 mov     [ebp-$30], ecx
006E3D95   894DDC                 mov     [ebp-$24], ecx
006E3D98   894DD8                 mov     [ebp-$28], ecx
006E3D9B   8BF0                   mov     esi, eax
006E3D9D   33C0                   xor     eax, eax
006E3D9F   55                     push    ebp

* Possible String Reference to: '檫