ivstcal.pas

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

unit ivstcal;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmstockcla=class(TForm)
    Label6: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label7: TLabel;
    RxLabel3: TRxLabel;
    mlblRate: TLabel;
    mlblBack: TLabel;
    RxLabel2: TRxLabel;
    mlblGain: TLabel;
    RxLabel6: TRxLabel;
    RxLabel4: TRxLabel;
    mlblPstCost: TLabel;
    RxLabel5: TRxLabel;
    mlblScaleP: TLabel;
    RxLabel1: TRxLabel;
    mlblTotal: TLabel;
    mlblCjj: TLabel;
    mlbljm4j: TLabel;
    mlbljm3j: TLabel;
    Label1: TRxLabel;
    Label8: TLabel;
    Label14: TLabel;
    medtSellPrice: TEdit;
    mStkID: TEdit;
    medtNum: TEdit;
    medtPrice: TEdit;
    mLBlStk: TLabel;
    medtSXF: TEdit;
    Label2: TRxLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    RxGradientCaption1: TRxGradientCaption;
    OFFS_035C: N.A.;
    OFFS_035D: N.A.;
    OFFS_035F: N.A.;
    OFFS_035E: N.A.;
    OFFS_0360: N.A.;
    OFFS_0380: N.A.;
    OFFS_0408: N.A.;
    procedure FormShow(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure mStkIDExit(Sender : TObject);
    procedure medtPriceExit(Sender : TObject);
    procedure medtSellPriceExit(Sender : TObject);
    procedure medtNumExit(Sender : TObject);
    procedure medtStockNameEnter(Sender : TObject);
    procedure mStkIDChange(Sender : TObject);
    procedure medtPriceChange(Sender : TObject);
    procedure medtNumChange(Sender : TObject);
    procedure medtSellPriceChange(Sender : TObject);
    procedure medtSXFExit(Sender : TObject);
    procedure mStkIDEnter(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure mStkIDKeyDown(Sender : TObject);
    procedure medtNumKeyDown(Sender : TObject);
    procedure medtPriceKeyDown(Sender : TObject);
    procedure medtSXFKeyDown(Sender : TObject);
    procedure medtSellPriceKeyDown(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure _PROC_006A0719(Sender : TObject);
    procedure _PROC_006A0CC9(Sender : TObject);
    procedure _PROC_006A11F1(Sender : TObject);
    procedure _PROC_006A12CD(Sender : TObject);
    procedure _PROC_006A1768(Sender : TObject);
    procedure _PROC_006A1798(Sender : TObject);
    procedure Proc_006A050C(Sender : TObject);
    procedure Proc_006A11F0(Sender : TObject);
    procedure Proc_006A0CC8(Sender : TObject);
    procedure Proc_006A12CC(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Frmstockcla: TFrmstockcla;

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

implementation

{$R *.DFM}

procedure TFrmstockcla.FormShow(Sender : TObject);
begin
(*
006A05E8   33D2                   xor     edx, edx

* Reference to field TFrmstockcla.OFFS_0358
|
006A05EA   899058030000           mov     [eax+$0358], edx

* Reference to field TFrmstockcla.OFFS_035C : Byte
|
006A05F0   C6805C03000001         mov     byte ptr [eax+$035C], $01

* Reference to control TFrmstockcla.mStkID : TEdit
|
006A05F7   8B8030030000           mov     eax, [eax+$0330]
006A05FD   8B10                   mov     edx, [eax]

* Reference to method TEdit.SetFocus()
|
006A05FF   FF92B0000000           call    dword ptr [edx+$00B0]
006A0605   C3                     ret

*)
end;

procedure TFrmstockcla.FormCreate(Sender : TObject);
begin
(*
006A0608   55                     push    ebp
006A0609   8BEC                   mov     ebp, esp
006A060B   6A00                   push    $00
006A060D   53                     push    ebx
006A060E   8BD8                   mov     ebx, eax
006A0610   33C0                   xor     eax, eax
006A0612   55                     push    ebp

* Possible String Reference to: '閬3