oxindep.pas

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

unit OxIndep;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TmHjOx=class(TForm)
    Panel1: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    mTimeStrt: TLabel;
    mTimeEnd: TLabel;
    Bevel1: TBevel;
    Label2: TLabel;
    Edit1: TEdit;
    UpDown1: TUpDown;
    Label3: TLabel;
    Label6: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    Edit3: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn3: TBitBtn;
    FormStorage1: TFormStorage;
    RxGradientCaption1: TRxGradientCaption;
    OFFS_0320: N.A.;
    procedure BitBtn1Click(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure Edit3KeyPress(Sender : TObject);
    procedure Edit3Exit(Sender : TObject);
    procedure Edit2Exit(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure _PROC_0063E873(Sender : TObject);
    procedure _PROC_0063E889(Sender : TObject);
    procedure _PROC_0063EE0C(Sender : TObject);
    procedure _PROC_0063EE3C(Sender : TObject);
    procedure Proc_0063E888(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  mHjOx: TmHjOx;

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

implementation

{$R *.DFM}

procedure TmHjOx.BitBtn1Click(Sender : TObject);
begin
(*
0063E66C   55                     push    ebp
0063E66D   8BEC                   mov     ebp, esp
0063E66F   B906000000             mov     ecx, $00000006
0063E674   6A00                   push    $00
0063E676   6A00                   push    $00
0063E678   49                     dec     ecx
0063E679   75F9                   jnz     0063E674
0063E67B   53                     push    ebx
0063E67C   56                     push    esi
0063E67D   57                     push    edi
0063E67E   8945FC                 mov     [ebp-$04], eax
0063E681   33C0                   xor     eax, eax
0063E683   55                     push    ebp

* Possible String Reference to: '槁Q