zbtest.pas

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

unit ZBTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmXgTest=class(TForm)
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    Edit1: TRichEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    ProgressBar1: TProgressBar;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    RxGradientCaption1: TRxGradientCaption;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    RichEdit1: TRichEdit;
    Chart1: TChart;
    Series1: TFastLineSeries;
    Series2: TFastLineSeries;
    Label6: TLabel;
    CQCheck: TCheckBox;
    RltmAlgrid: TStringAlignGrid;
    OFFS_0380: N.A.;
    OFFS_0338: N.A.;
    OFFS_0339: N.A.;
    OFFS_033A: N.A.;
    OFFS_033B: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure Edit1KeyPress(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure ListView1ColumnClick(Sender : TObject);
    procedure ListView1Compare(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure SpeedButton3Click(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure ListView1CustomDrawSubItem(Sender : TObject);
    procedure PageControl1Change(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure RltmAlgridMouseDown(Sender : TObject);
    procedure _PROC_006DE280(Sender : TObject);
    procedure _PROC_006DE368(Sender : TObject);
    procedure _PROC_006DE72F(Sender : TObject);
    procedure _PROC_006DE73B(Sender : TObject);
    procedure _PROC_006DE73D(Sender : TObject);
    procedure _PROC_006DE775(Sender : TObject);
    procedure _PROC_006DEAD9(Sender : TObject);
    procedure _PROC_006DF320(Sender : TObject);
    procedure _PROC_006DF6D7(Sender : TObject);
    procedure _PROC_006DF830(Sender : TObject);
    procedure _PROC_006DF8C8(Sender : TObject);
    procedure _PROC_006DF960(Sender : TObject);
    procedure _PROC_006DF97C(Sender : TObject);
    procedure _PROC_006DF998(Sender : TObject);
    procedure _PROC_006DF9B4(Sender : TObject);
    procedure _PROC_006DF9D0(Sender : TObject);
    procedure _PROC_006DF9EC(Sender : TObject);
    procedure _PROC_006DFA08(Sender : TObject);
    procedure _PROC_006DFB10(Sender : TObject);
    procedure _PROC_006DFB40(Sender : TObject);
    procedure Proc_006DE774(Sender : TObject);
    procedure Proc_006DF31C(Sender : TObject);
    procedure Proc_006DEAD8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmXgTest: TfrmXgTest;

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

implementation

{$R *.DFM}

procedure TfrmXgTest.FormCreate(Sender : TObject);
begin
(*
006DE230   53                     push    ebx
006DE231   8BD8                   mov     ebx, eax

* Reference to field TfrmXgTest.OFFS_037C
|
006DE233   66C7837C0300000000     mov     word ptr [ebx+$037C], $0000

* Reference to field TfrmXgTest.OFFS_0390
|
006DE23C   8D8390030000           lea     eax, [ebx+$0390]
006DE242   33C9                   xor     ecx, ecx
006DE244   BA10000000             mov     edx, $00000010

* Reference to: system.@FillChar;
|
006DE249   E85A4CD2FF             call    00402EA8

* Reference to field TfrmXgTest.OFFS_03A4
|
006DE24E   83BBA403000000         cmp     dword ptr [ebx+$03A4], +$00
006DE255   7512                   jnz     006DE269
006DE257   B201                   mov     dl, $01

* Reference to class TARStockId
|
006DE259   A110FE7300             mov     eax, dword ptr [$0073FE10]

* Reference to: Unit_0073FBC3.Proc_0073FFD8
|
006DE25E   E8751D0600             call    0073FFD8

* Reference to field TfrmXgTest.OFFS_03A4
|
006DE263   8983A4030000           mov     [ebx+$03A4], eax
006DE269   B201                   mov     dl, $01

* Reference to class TList
|
006DE26B   A150234100             mov     eax, dword ptr [$00412350]

* Reference to: system.TObject.Create(TObject;Boolean);
|
006DE270   E82750D2FF             call    0040329C

* Reference to field TfrmXgTest.OFFS_0380 : TList
|
006DE275   898380030000           mov     [ebx+$0380], eax
006DE27B   5B                     pop     ebx
006DE27C   C3                     ret

*)
end;

procedure TfrmXgTest.BitBtn2Click(Sender : TObject);
begin
(*
006DE33C   53                     push    ebx
006DE33D   8BD8                   mov     ebx, eax

* Reference to field TfrmXgTest.OFFS_0338 : Byte
|
006DE33F   80BB3803000000         cmp     byte ptr [ebx+$0338], $00
006DE346   751C                   jnz     006DE364
006DE348   8BC3                   mov     eax, ebx

* Reference to : TfrmXgTest._PROC_006DE368()
|
006DE34A   E819000000             call    006DE368

* Reference to field TfrmXgTest.OFFS_0339 : Byte
|
006DE34F   C6833903000000         mov     byte ptr [ebx+$0339], $00

* Reference to field TfrmXgTest.OFFS_033A : Byte
|
006DE356   C6833A03000000         mov     byte ptr [ebx+$033A], $00

* Reference to field TfrmXgTest.OFFS_033B : Byte
|
006DE35D   C6833B03000000         mov     byte ptr [ebx+$033B], $00
006DE364   5B                     pop     ebx
006DE365   C3                     ret

*)
end;

procedure TfrmXgTest.Edit2KeyPress(Sender : TObject);
begin
(*
006DF2E8   53                     push    ebx
006DF2E9   8BD9                   mov     ebx, ecx
006DF2EB   8A03                   mov     al, byte ptr [ebx]
006DF2ED   2C2E                   sub     al, $2E
006DF2EF   7410                   jz      006DF301
006DF2F1   04FE                   add     al, -$02
006DF2F3   2C0A                   sub     al, $0A
006DF2F5   720A                   jb      006DF301
006DF2F7   6A05                   push    $05

* Reference to: user32.MessageBeep()
|
006DF2F9   E80299D2FF             call    00408C00
006DF2FE   C60300                 mov     byte ptr [ebx], $00
006DF301   5B                     pop     ebx
006DF302   C3                     ret

*)
end;

procedure TfrmXgTest.Edit1KeyPress(Sender : TObject);
begin
(*
006DF304   53                     push    ebx
006DF305   8BD9                   mov     ebx, ecx
006DF307   8A03                   mov     al, byte ptr [ebx]
006DF309   04D0                   add     al, -$30
006DF30B   2C0A                   sub     al, $0A
006DF30D   720A                   jb      006DF319
006DF30F   6A05                   push    $05

* Reference to: user32.MessageBeep()
|
006DF311   E8EA98D2FF             call    00408C00
006DF316   C60300                 mov     byte ptr [ebx], $00
006DF319   5B                     pop     ebx
006DF31A   C3                     ret

*)
end;

procedure TfrmXgTest.RadioButton1Click(Sender : TObject);
begin
(*

* Reference to field TfrmXgTest.OFFS_0338 : Byte
|
006DF730   C6803803000000         mov     byte ptr [eax+$0338], $00
006DF737   C3                     ret

*)
end;

procedure TfrmXgTest.ListView1ColumnClick(Sender : TObject);
begin
(*
006DF738   C3                     ret

*)
end;

procedure TfrmXgTest.ListView1Compare(Sender : TObject);
begin
(*
006DF73C   55                     push    ebp
006DF73D   8BEC                   mov     ebp, esp
006DF73F   5D                     pop     ebp
006DF740   C20C00                 ret     $000C

*)
end;

procedure TfrmXgTest.FormClose(Sender : TObject);
begin
(*
006DF744   53                     push    ebx
006DF745   8BD9                   mov     ebx, ecx

* Reference to field TfrmXgTest.OFFS_03A0
|
006DF747   8B90A0030000           mov     edx, [eax+$03A0]
006DF74D   85D2                   test    edx, edx
006DF74F   740A                   jz      006DF75B
006DF751   8BC2                   mov     eax, edx

* Reference to: Classes.Proc_0041B120
|
006DF753   E8C8B9D3FF             call    0041B120