zbsysevalua.pas

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

unit ZBSysEvalua;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TSysEvaluafrm=class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    RichEdit1: TRichEdit;
    RichEdit2: TRichEdit;
    TabSheet3: TTabSheet;
    ListView1: TListView;
    TabSheet4: TTabSheet;
    Chart1: TChart;
    TabSheet5: TTabSheet;
    Chart2: TChart;
    TabSheet6: TTabSheet;
    RichEdit3: TRichEdit;
    Button2: TBitBtn;
    ListView2: TListView;
    RxGradientCaption1: TRxGradientCaption;
    Series1: TPointSeries;
    Series2: TPointSeries;
    Series3: TLineSeries;
    Button1: TBitBtn;
    Button3: TBitBtn;
    Button4: TBitBtn;
    Button5: TBitBtn;
    Button6: TBitBtn;
    OFFS_04A4: N.A.;
    OFFS_049C: N.A.;
    procedure PageControl1Change(Sender : TObject);
    procedure ListView2Click(Sender : TObject);
    procedure ListView2Change(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure _PROC_006F4489(Sender : TObject);
    procedure _PROC_006FB573(Sender : TObject);
    procedure _PROC_006FCF88(Sender : TObject);
    procedure _PROC_006FD3EC(Sender : TObject);
    procedure _PROC_006FD41C(Sender : TObject);
    procedure Proc_006FB508(Sender : TObject);
    procedure Proc_006F4488(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  SysEvaluafrm: TSysEvaluafrm;

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

implementation

{$R *.DFM}

procedure TSysEvaluafrm.PageControl1Change(Sender : TObject);
begin
(*
006F4B08   55                     push    ebp
006F4B09   8BEC                   mov     ebp, esp
006F4B0B   B999000000             mov     ecx, $00000099
006F4B10   6A00                   push    $00
006F4B12   6A00                   push    $00
006F4B14   49                     dec     ecx
006F4B15   75F9                   jnz     006F4B10
006F4B17   53                     push    ebx
006F4B18   56                     push    esi
006F4B19   57                     push    edi
006F4B1A   8955FC                 mov     [ebp-$04], edx
006F4B1D   8BD8                   mov     ebx, eax
006F4B1F   33C0                   xor     eax, eax
006F4B21   55                     push    ebp

* Possible String Reference to: '榇勑