zbedit.pas

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

unit ZBEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TF_gsbj=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    Edit2: TEdit;
    Button1: TBitBtn;
    Edit3: TEdit;
    Button4: TBitBtn;
    Button5: TBitBtn;
    Button6: TBitBtn;
    Button7: TBitBtn;
    Button2: TBitBtn;
    Button3: TBitBtn;
    StaticText1: TStaticText;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button9: TBitBtn;
    Bevel2: TBevel;
    PageControl1: TPageControl;
    tabsheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label12: TLabel;
    ComboBox1: TComboBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Edit4: TEdit;
    Label20: TLabel;
    ColorComboBox1: TColorComboBox;
    ColorComboBox2: TColorComboBox;
    ColorComboBox3: TColorComboBox;
    ColorComboBox4: TColorComboBox;
    ComboBox2: TColorComboBox;
    ComboBox3: TColorComboBox;
    ComboBox4: TColorComboBox;
    RxGradientCaption1: TRxGradientCaption;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N4: TMenuItem;
    Edit5: TEdit;
    Label21: TLabel;
    PageControl2: TPageControl;
    TabSheet5: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Para1: TEdit;
    MinVal1: TEdit;
    MaxVal1: TEdit;
    DefVal1: TEdit;
    Para2: TEdit;
    MinVal2: TEdit;
    MaxVal2: TEdit;
    DefVal2: TEdit;
    Para3: TEdit;
    MinVal3: TEdit;
    MaxVal3: TEdit;
    DefVal3: TEdit;
    Para4: TEdit;
    MinVal4: TEdit;
    MaxVal4: TEdit;
    DefVal4: TEdit;
    StepVal1: TEdit;
    StepVal2: TEdit;
    StepVal3: TEdit;
    StepVal4: TEdit;
    TabSheet6: TTabSheet;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    para5: TEdit;
    MinVal5: TEdit;
    MaxVal5: TEdit;
    DefVal5: TEdit;
    para6: TEdit;
    MinVal6: TEdit;
    MaxVal6: TEdit;
    DefVal6: TEdit;
    para7: TEdit;
    MinVal7: TEdit;
    MaxVal7: TEdit;
    DefVal7: TEdit;
    para8: TEdit;
    MinVal8: TEdit;
    MaxVal8: TEdit;
    DefVal8: TEdit;
    StepVal5: TEdit;
    StepVal6: TEdit;
    StepVal7: TEdit;
    StepVal8: TEdit;
    mwEdit: TmwCustomEdit;
    OFFS_121C: N.A.;
    OFFS_0D58: N.A.;
    OFFS_0D59: N.A.;
    OFFS_04E0: N.A.;
    OFFS_1220: N.A.;
    OFFS_04A4: N.A.;
    OFFS_0B85: N.A.;
    OFFS_049D: N.A.;
    OFFS_04A8: N.A.;
    OFFS_0D8D: N.A.;
    OFFS_04AC: N.A.;
    OFFS_049C: N.A.;
    OFFS_04DA: N.A.;
    procedure Button2Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure Button9Click(Sender : TObject);
    procedure Memo1Change(Sender : TObject);
    procedure InsertInd(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure CheckBox1Click(Sender : TObject);
    procedure Edit2KeyPress(Sender : TObject);
    procedure RadioButton1Click(Sender : TObject);
    procedure RadioButton2Click(Sender : TObject);
    procedure Edit4Exit(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Memo1Enter(Sender : TObject);
    procedure N3Click(Sender : TObject);
    procedure N2Click(Sender : TObject);
    procedure N1Click(Sender : TObject);
    procedure N6Click(Sender : TObject);
    procedure N4Click(Sender : TObject);
    procedure FormClose(Sender : TObject);
    procedure Memo1KeyPress(Sender : TObject);
    procedure Memo1KeyDown(Sender : TObject);
    procedure PopupMenu1Popup(Sender : TObject);
    procedure mwEditChange(Sender : TObject);
    procedure _PROC_00555353(Sender : TObject);
    procedure _PROC_00555648(Sender : TObject);
    procedure _PROC_00555D89(Sender : TObject);
    procedure _PROC_00556278(Sender : TObject);
    procedure _PROC_005565A3(Sender : TObject);
    procedure _PROC_00556665(Sender : TObject);
    procedure _PROC_00556869(Sender : TObject);
    procedure _PROC_00556ED0(Sender : TObject);
    procedure _PROC_00557414(Sender : TObject);
    procedure _PROC_0055741F(Sender : TObject);
    procedure _PROC_00557423(Sender : TObject);
    procedure _PROC_005577F4(Sender : TObject);
    procedure _PROC_005577FD(Sender : TObject);
    procedure _PROC_00557E4C(Sender : TObject);
    procedure _PROC_00557E7C(Sender : TObject);
    procedure Proc_00553B64(Sender : TObject);
    procedure Proc_00556664(Sender : TObject);
    procedure Proc_00555D88(Sender : TObject);
    procedure Proc_00556868(Sender : TObject);
    procedure Proc_00556573(Sender : TObject);
    procedure Proc_005577D7(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  F_gsbj: TF_gsbj;

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

implementation

{$R *.DFM}

procedure TF_gsbj.Button2Click(Sender : TObject);
begin
(*
005545A8   55                     push    ebp
005545A9   8BEC                   mov     ebp, esp
005545AB   B911000000             mov     ecx, $00000011
005545B0   6A00                   push    $00
005545B2   6A00                   push    $00
005545B4   49                     dec     ecx
005545B5   75F9                   jnz     005545B0
005545B7   51                     push    ecx
005545B8   53                     push    ebx
005545B9   56                     push    esi
005545BA   57                     push    edi
005545BB   8955F8                 mov     [ebp-$08], edx
005545BE   8945FC                 mov     [ebp-$04], eax
005545C1   33C0                   xor     eax, eax
005545C3   55                     push    ebp

* Possible String Reference to: '殄骊