jdselect.pas

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

unit JDSelect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmJDSelect=class(TForm)
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ButtonOK: TBitBtn;
    ButtonQuit: TBitBtn;
    mRadioNCQ: TRadioButton;
    mRadioCQ: TRadioButton;
    Bevel3: TBevel;
    Panel2: TPanel;
    CheckBoxSHAG: TCheckBox;
    CheckBoxSHBG: TCheckBox;
    CheckBoxSHGZ: TCheckBox;
    CheckBoxSZAG: TCheckBox;
    CheckBoxSZBG: TCheckBox;
    CheckBoxSZGZ: TCheckBox;
    RadioGroup1: TRadioGroup;
    Panel3: TPanel;
    Label1: TLabel;
    ComboBox2: TComboBox;
    RxGradientCaption1: TRxGradientCaption;
    CheckBoxZXQY: TCheckBox;
    OFFS_03B0: N.A.;
    OFFS_0394: N.A.;
    procedure ButtonOKClick(Sender : TObject);
    procedure ButtonQuitClick(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure RadioButton1KeyDown(Sender : TObject);
    procedure MaskEdit1KeyDown(Sender : TObject);
    procedure MaskEdit2KeyDown(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure mVerifyDate(Sender : TObject);
    procedure RadioGroup1Click(Sender : TObject);
    procedure _PROC_00628F74(Sender : TObject);
    procedure _PROC_00629139(Sender : TObject);
    procedure _PROC_006292C1(Sender : TObject);
    procedure _PROC_00629338(Sender : TObject);
    procedure _PROC_0062933C(Sender : TObject);
    procedure _PROC_00629649(Sender : TObject);
    procedure _PROC_006297F8(Sender : TObject);
    procedure _PROC_00629B55(Sender : TObject);
    procedure _PROC_00629CE9(Sender : TObject);
    procedure _PROC_00629DFC(Sender : TObject);
    procedure _PROC_00629EEC(Sender : TObject);
    procedure _PROC_00629F78(Sender : TObject);
    procedure _PROC_0062AD98(Sender : TObject);
    procedure _PROC_0062ADDC(Sender : TObject);
    procedure Proc_00629B54(Sender : TObject);
    procedure Proc_00629CE8(Sender : TObject);
    procedure Proc_006292C0(Sender : TObject);
    procedure Proc_00629648(Sender : TObject);
    procedure Proc_00629138(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmJDSelect: TFrmJDSelect;

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

implementation

{$R *.DFM}

procedure TFrmJDSelect.ButtonOKClick(Sender : TObject);
begin
(*
0062A038   55                     push    ebp
0062A039   8BEC                   mov     ebp, esp
0062A03B   B931000000             mov     ecx, $00000031
0062A040   6A00                   push    $00
0062A042   6A00                   push    $00
0062A044   49                     dec     ecx
0062A045   75F9                   jnz     0062A040
0062A047   51                     push    ecx
0062A048   53                     push    ebx
0062A049   56                     push    esi
0062A04A   57                     push    edi
0062A04B   8945F8                 mov     [ebp-$08], eax
0062A04E   33C0                   xor     eax, eax
0062A050   55                     push    ebp
0062A051   68F2A76200             push    $0062A7F2

***** TRY
|
0062A056   64FF30                 push    dword ptr fs:[eax]
0062A059   648920                 mov     fs:[eax], esp
0062A05C   C645E900               mov     byte ptr [ebp-$17], $00
0062A060   B8D4CD7800             mov     eax, $0078CDD4

* Possible String Reference to: '元'
|
0062A065   BA08A86200             mov     edx, $0062A808

* Reference to: system.@LStrAsg;
|
0062A06A   E8D9A0DDFF             call    00404148
0062A06F   8B45F8                 mov     eax, [ebp-$08]

* Reference to field TFrmJDSelect.OFFS_03B0 : Byte
|
0062A072   C680B003000000         mov     byte ptr [eax+$03B0], $00
0062A079   C645EA00               mov     byte ptr [ebp-$16], $00
0062A07D   C645E801               mov     byte ptr [ebp-$18], $01
0062A081   33C0                   xor     eax, eax
0062A083   55                     push    ebp

* Possible String Reference to: '閑曒