zbwizardxg.pas

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

unit ZBwizardXG;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TWizardXG=class(TForm)
    ImageList1: TImageList;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet8: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    Panel9: TPanel;
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    Button1: TBitBtn;
    Button18: TBitBtn;
    Button10: TBitBtn;
    Button2: TBitBtn;
    Button17: TRadioButton;
    Button5: TRadioButton;
    Button8: TBitBtn;
    Button4: TBitBtn;
    RxGradientCaption1: TRxGradientCaption;
    Panel5: TPanel;
    GroupBox2: TGroupBox;
    RadioButton7: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton1: TRadioButton;
    Image1: TImage;
    Panel6: TPanel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    RadioButton6: TRadioButton;
    RadioButton5: TRadioButton;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Button3: TRadioButton;
    Panel7: TPanel;
    ProgressBar1: TProgressBar;
    Label10: TLabel;
    DateTimePicker4: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    ListView4: TListView;
    CheckBox3: TCheckBox;
    Label7: TLabel;
    ListView2: TListView;
    Label6: TLabel;
    Label9: TLabel;
    Panel8: TPanel;
    ListView5: TListView;
    Label11: TLabel;
    Panel10: TPanel;
    GroupBox3: TGroupBox;
    RadioButton18: TRadioButton;
    RadioButton17: TRadioButton;
    RadioButton16: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    Panel11: TPanel;
    RadioGroup5: TRadioGroup;
    ComboBox5: TComboBox;
    btwlabel: TLabel;
    ComboBox4: TComboBox;
    RadioGroup1: TRadioGroup;
    zblconl: TLabel;
    ComboBox2: TComboBox;
    zblnamel: TLabel;
    Panel12: TPanel;
    ListView1: TListView;
    Panel13: TPanel;
    CheckListBox1: TCheckListBox;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    TreeView1: TTreeView;
    Button6: TBitBtn;
    Button7: TRadioButton;
    Label1: TLabel;
    Label5: TLabel;
    Label2: TLabel;
    PageControl2: TPageControl;
    TabSheet11: TTabSheet;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    lPanel1: TPanel;
    max1: TLabel;
    min1: TLabel;
    para1: TLabel;
    SpinEdit1: TSpinEdit;
    lPanel2: TPanel;
    max2: TLabel;
    min2: TLabel;
    para2: TLabel;
    SpinEdit2: TSpinEdit;
    lPanel3: TPanel;
    max3: TLabel;
    min3: TLabel;
    para3: TLabel;
    SpinEdit3: TSpinEdit;
    lPanel4: TPanel;
    max4: TLabel;
    min4: TLabel;
    para4: TLabel;
    SpinEdit4: TSpinEdit;
    TabSheet12: TTabSheet;
    Label8: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    lpanel5: TPanel;
    max5: TLabel;
    min5: TLabel;
    para5: TLabel;
    SpinEdit5: TSpinEdit;
    lpanel6: TPanel;
    max6: TLabel;
    min6: TLabel;
    para6: TLabel;
    SpinEdit6: TSpinEdit;
    lpanel7: TPanel;
    max7: TLabel;
    min7: TLabel;
    para7: TLabel;
    SpinEdit7: TSpinEdit;
    lpanel8: TPanel;
    max8: TLabel;
    min8: TLabel;
    para8: TLabel;
    SpinEdit8: TSpinEdit;
    CQCheck: TCheckBox;
    OFFS_04F0: N.A.;
    OFFS_0519: N.A.;
    OFFS_0576: N.A.;
    OFFS_0555: N.A.;
    OFFS_0578: N.A.;
    OFFS_057D: N.A.;
    OFFS_04F6: N.A.;
    OFFS_04F1: N.A.;
    OFFS_0524: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure CheckBox3Click(Sender : TObject);
    procedure Button8Click(Sender : TObject);
    procedure threadterminated(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Button9Click(Sender : TObject);
    procedure TabSheet4Show(Sender : TObject);
    procedure ListView5Change(Sender : TObject);
    procedure TabSheet5Show(Sender : TObject);
    procedure TabSheet6Show(Sender : TObject);
    procedure TabSheet1Show(Sender : TObject);
    procedure TabSheet2Show(Sender : TObject);
    procedure TabSheet8Show(Sender : TObject);
    procedure RadioGroup1Click(Sender : TObject);
    procedure TabSheet10Show(Sender : TObject);
    procedure TabSheet9Show(Sender : TObject);
    procedure TabSheet3Show(Sender : TObject);
    procedure Button10Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure RadioButton8Click(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure TabSheet7Show(Sender : TObject);
    procedure TreeView1DblClick(Sender : TObject);
    procedure TreeView1Change(Sender : TObject);
    procedure TreeView1Collapsed(Sender : TObject);
    procedure TreeView1CustomDrawItem(Sender : TObject);
    procedure TreeView1Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure TreeView1KeyPress(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_006E8758(Sender : TObject);
    procedure _PROC_006E9BF8(Sender : TObject);
    procedure _PROC_006E9D71(Sender : TObject);
    procedure _PROC_006E9FED(Sender : TObject);
    procedure _PROC_006EA61B(Sender : TObject);
    procedure _PROC_006EB674(Sender : TObject);
    procedure _PROC_006EB6C0(Sender : TObject);
    procedure _PROC_006EB717(Sender : TObject);
    procedure _PROC_006EBCF8(Sender : TObject);
    procedure _PROC_006EBD07(Sender : TObject);
    procedure _PROC_006EBD30(Sender : TObject);
    procedure _PROC_006EC9D5(Sender : TObject);
    procedure _PROC_006ECD8C(Sender : TObject);
    procedure _PROC_006ED02C(Sender : TObject);
    procedure _PROC_006ED05C(Sender : TObject);
    procedure Proc_006E9FEC(Sender : TObject);
    procedure Proc_006ECFE4(Sender : TObject);
    procedure Proc_006E9D70(Sender : TObject);
    procedure Proc_006EC9D4(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  WizardXG: TWizardXG;

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

implementation

{$R *.DFM}

procedure TWizardXG.FormCreate(Sender : TObject);
begin
(*
006E83C4   55                     push    ebp
006E83C5   8BEC                   mov     ebp, esp
006E83C7   33C9                   xor     ecx, ecx
006E83C9   51                     push    ecx
006E83CA   51                     push    ecx
006E83CB   51                     push    ecx
006E83CC   51                     push    ecx
006E83CD   51                     push    ecx
006E83CE   53                     push    ebx
006E83CF   56                     push    esi
006E83D0   57                     push    edi
006E83D1   8BD8                   mov     ebx, eax
006E83D3   33C0                   xor     eax, eax
006E83D5   55                     push    ebp

* Possible String Reference to: '檗惭