zbsystest.pas

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

unit ZBSysTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSysTest=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BackButton: TBitBtn;
    NextButton: TBitBtn;
    Button3: TRadioButton;
    Button4: TBitBtn;
    TabSheet2: TTabSheet;
    TabControl1: TTabControl;
    TvwTips: TTreeView;
    Memo1: TMemo;
    Cirlabel: TLabel;
    ComboBox1: TComboBox;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label4: TLabel;
    CheckBox1: TCheckBox;
    GroupBox2: TGroupBox;
    Label5: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    btwlabel: TLabel;
    ComboBox5: TComboBox;
    Label7: TLabel;
    ComboBox6: TComboBox;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    ComboBox7: TComboBox;
    Label9: TLabel;
    IvsFigEdit: TEdit;
    Label10: TLabel;
    LXXHLabel: TLabel;
    IncDecEdit: TEdit;
    CheckBox2: TCheckBox;
    IgnCirEdit: TEdit;
    Label12: TLabel;
    TabSheet3: TTabSheet;
    GroupBox4: TGroupBox;
    TabSheet4: TTabSheet;
    GroupBox5: TGroupBox;
    TabSheet5: TTabSheet;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Label13: TLabel;
    StknumEdit: TEdit;
    GroupBox6: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    MulnumEdit: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    InvestEdit: TEdit;
    GroupBox7: TGroupBox;
    ListView1: TListView;
    Button5: TRadioButton;
    Button6: TRadioButton;
    RichEdit1: TRichEdit;
    Button8: TRadioButton;
    Panel1: TPanel;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RevertCon1: TCheckBox;
    AfCirEdit: TEdit;
    RevertCon2: TCheckBox;
    ProGoalEdit: TEdit;
    RevertCon3: TCheckBox;
    MaxLossEdit: TEdit;
    RevertCon4: TCheckBox;
    BackDownCirEdit: TEdit;
    BackDownRateEdit: TEdit;
    RevertCon5: TCheckBox;
    StandCirEdit: TEdit;
    StandRateEdit: TEdit;
    Label14: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Label6: TLabel;
    AnnoButton: TBitBtn;
    MindButton: TBitBtn;
    N11: TMenuItem;
    RxGradientCaption1: TRxGradientCaption;
    Button14: TBitBtn;
    ScrollBox1: TScrollBox;
    ProgressBar1: TProgressBar;
    Button15: TBitBtn;
    zbpccheck: TCheckBox;
    pczbLabel: TLabel;
    GroupBox8: TGroupBox;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    allcostEdit: TEdit;
    stampEdit: TEdit;
    chargeEdit: TEdit;
    GroupBox9: TGroupBox;
    ComboBox8: TComboBox;
    Label1: TLabel;
    sellrateEdit: TEdit;
    Label19: TLabel;
    Panel2: TPanel;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    StaticText1: TStaticText;
    Button1: TRadioButton;
    Label18: TLabel;
    CQCheck: TCheckBox;
    BitBtn1: TBitBtn;
    OFFS_0500: N.A.;
    OFFS_066E: N.A.;
    OFFS_05A4: N.A.;
    OFFS_0590: N.A.;
    OFFS_0598: N.A.;
    OFFS_05A0: N.A.;
    OFFS_050C: N.A.;
    OFFS_050D: N.A.;
    OFFS_050E: N.A.;
    OFFS_050F: N.A.;
    OFFS_0510: N.A.;
    OFFS_0530: N.A.;
    OFFS_0577: N.A.;
    OFFS_05A5: N.A.;
    OFFS_05AC: N.A.;
    OFFS_05B4: N.A.;
    OFFS_05B5: N.A.;
    OFFS_066F: N.A.;
    OFFS_04AE: N.A.;
    OFFS_04AF: N.A.;
    OFFS_04EA: N.A.;
    OFFS_04EC: N.A.;
    OFFS_04F1: N.A.;
    OFFS_04C9: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure NextButtonClick(Sender : TObject);
    procedure PageControl1Changing(Sender : TObject);
    procedure BackButtonClick(Sender : TObject);
    procedure ComboBox6Change(Sender : TObject);
    procedure ComboBox7Change(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure RadioButton2Click(Sender : TObject);
    procedure RadioButton3Click(Sender : TObject);
    procedure RadioButton4Click(Sender : TObject);
    procedure AnnoButtonClick(Sender : TObject);
    procedure MindButtonClick(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure PageControl1Change(Sender : TObject);
    procedure Button14Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure threadterminated(Sender : TObject);
    procedure Button15Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure StknumEditKeyPress(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure zbpccheckClick(Sender : TObject);
    procedure ComboBox8Change(Sender : TObject);
    procedure RadioButton6Click(Sender : TObject);
    procedure RadioButton7Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure _PROC_00703EE0(Sender : TObject);
    procedure _PROC_00704D18(Sender : TObject);
    procedure _PROC_00704D3D(Sender : TObject);
    procedure _PROC_00705604(Sender : TObject);
    procedure _PROC_007069C1(Sender : TObject);
    procedure _PROC_00706F59(Sender : TObject);
    procedure _PROC_0070709F(Sender : TObject);
    procedure _PROC_00707134(Sender : TObject);
    procedure _PROC_00707E20(Sender : TObject);
    procedure _PROC_00707E50(Sender : TObject);
    procedure Proc_007069C0(Sender : TObject);
    procedure Proc_00706F44(Sender : TObject);
    procedure Proc_0070708C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SysTest: TSysTest;

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

implementation

{$R *.DFM}

procedure TSysTest.FormCreate(Sender : TObject);
begin
(*
00702BB8   55                     push    ebp
00702BB9   8BEC                   mov     ebp, esp
00702BBB   B914000000             mov     ecx, $00000014
00702BC0   6A00                   push    $00
00702BC2   6A00                   push    $00
00702BC4   49                     dec     ecx
00702BC5   75F9                   jnz     00702BC0
00702BC7   51                     push    ecx
00702BC8   53                     push    ebx
00702BC9   56                     push    esi
00702BCA   57                     push    edi
00702BCB   8BD8                   mov     ebx, eax
00702BCD   33C0                   xor     eax, eax
00702BCF   55                     push    ebp
00702BD0   686A3D7000             push    $00703D6A

***** TRY
|
00702BD5   64FF30                 push    dword ptr fs:[eax]
00702BD8   648920                 mov     fs:[eax], esp
00702BDB   33D2                   xor     edx, edx

* Reference to control TSysTest.Label6 : TLabel
|
00702BDD   8B8334040000           mov     eax, [ebx+$0434]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
00702BE3   E8986ED3FF             call    00439A80

* Reference to field TSysTest.OFFS_04F8
|
00702BE8   8D83F8040000           lea     eax, [ebx+$04F8]
00702BEE   33C9                   xor     ecx, ecx
00702BF0   BA10000000             mov     edx, $00000010

* Reference to: system.@FillChar;
|
00702BF5   E8AE02D0FF             call    00402EA8

* Reference to field TSysTest.OFFS_0500 : Byte
|
00702BFA   C6830005000000         mov     byte ptr [ebx+$0500], $00

* Reference to field TSysTest.OFFS_04B0
|
00702C01   8D83B0040000           lea     eax, [ebx+$04B0]
00702C07   33C9                   xor     ecx, ecx
00702C09   BA46000000             mov     edx, $00000046

* Reference to: system.@FillChar;
|
00702C0E   E89502D0FF             call    00402EA8

* Reference to field TSysTest.OFFS_0531
|
00702C13   8D8331050000           lea     eax, [ebx+$0531]
00702C19   33C9                   xor     ecx, ecx
00702C1B   BA46000000             mov     edx, $00000046

* Reference to: system.@FillChar;
|
00702C20   E88302D0FF             call    00402EA8
00702C25   B201                   mov     dl, $01

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

* Reference to: Unit_0073FBC3.Proc_0073FFD8
|
00702C2C   E8A7D30300             call    0073FFD8

* Reference to field TSysTest.OFFS_0670
|
00702C31   898370060000           mov     [ebx+$0670], eax
00702C37   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00702C39   E8E20ED5FF             call    00453B20
00702C3E   BA803D7000             mov     edx, $00703D80

* Reference to: graphics.TCanvas.TextWidth(TCanvas;AnsiString):Integer;
|
00702C43   E83CC6D1FF             call    0041F284

* Reference to field TSysTest.OFFS_04AC
|
00702C48   668983AC040000         mov     [ebx+$04AC], ax

* Reference to field TSysTest.OFFS_0508
|
00702C4F   83BB0805000000         cmp     dword ptr [ebx+$0508], +$00
00702C56   7512                   jnz     00702C6A
00702C58   B201                   mov     dl, $01

* Reference to class TAboutTvwTips
|
00702C5A   A1F80C6E00             mov     eax, dword ptr [$006E0CF8]

* Reference to: Unit_006E0CF8.Proc_006E0D54
|
00702C5F   E8F0E0FDFF             call    006E0D54

* Reference to field TSysTest.OFFS_0508
|
00702C64   898308050000           mov     [ebx+$0508], eax

* Reference to field TSysTest.OFFS_0508
|
00702C6A   8B8308050000           mov     eax, [ebx+$0508]
00702C70   C6808802000001         mov     byte ptr [eax+$0288], $01
00702C77   C6808902000000         mov     byte ptr [eax+$0289], $00

* Reference to control TSysTest.TabSheet1 : TTabSheet
|
00702C7E   8B93D4020000           mov     edx, [ebx+$02D4]
00702C84   899080020000           mov     [eax+$0280], edx

* Reference to field TSysTest.OFFS_04AC
|
00702C8A   668B93AC040000         mov     dx, word ptr [ebx+$04AC]
00702C91   66899084020000         mov     [eax+$0284], dx
00702C98   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
00702C9A   E8810ED5FF             call    00453B20
00702C9F   BA8C3D7000             mov     edx, $00703D8C

* Reference to: graphics.TCanvas.TextHeight(TCanvas;AnsiString):Integer;
|
00702CA4   E8F7C5D1FF             call    0041F2A0

* Reference to field TSysTest.OFFS_0508
|
00702CA9   8BB308050000           mov     esi, [ebx+$0508]
00702CAF   66898686020000         mov     [esi+$0286], ax

* Reference to control TSysTest.TvwTips : TTreeView
|
00702CB6   8B83F0020000           mov     eax, [ebx+$02F0]
00702CBC   894604                 mov     [esi+$04], eax

* Reference to control TSysTest.ScrollBox1 : TScrollBox
|
00702CBF   8B834C040000           mov     eax, [ebx+$044C]
00702CC5   89460C                 mov     [esi+$0C], eax

* Reference to control TSysTest.Memo1 : TMemo
|
00702CC8   8B83F4020000           mov     eax, [ebx+$02F4]
00702CCE   894608                 mov     [esi+$08], eax

* Reference to control TSysTest.ComboBox1 : TComboBox
|
00702CD1   8B83FC020000           mov     eax, [ebx+$02FC]
00702CD7   894610                 mov     [esi+$10], eax

* Reference to control TSysTest.ComboBox2 : TComboBox
|
00702CDA   8B8324030000           mov     eax, [ebx+$0324]
00702CE0   894614                 mov     [esi+$14], eax

* Reference to control TSysTest.ComboBox3 : TComboBox
|
00702CE3   8B8328030000           mov     eax, [ebx+$0328]
00702CE9   894618                 mov     [esi+$18], eax

* Reference to control TSysTest.ComboBox4 : TComboBox
|