zbpjediter.pas

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

unit ZBPJEditer;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TPJEditerFrm=class(TForm)
    ListView1: TListView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn7: TBitBtn;
    RxGradientCaption1: TRxGradientCaption;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    ListView2: TListView;
    BitBtn10: TBitBtn;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    Label2: TLabel;
    BitBtn13: TBitBtn;
    OFFS_031E: N.A.;
    OFFS_032C: N.A.;
    OFFS_031C: N.A.;
    OFFS_031D: N.A.;
    procedure BitBtn6Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure BitBtn4Click(Sender : TObject);
    procedure BitBtn3Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure BitBtn2Click(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure ListView1Change(Sender : TObject);
    procedure BitBtn5Click(Sender : TObject);
    procedure BitBtn7Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure ListView1DblClick(Sender : TObject);
    procedure ListView2Click(Sender : TObject);
    procedure ListView2Change(Sender : TObject);
    procedure ListView2DblClick(Sender : TObject);
    procedure BitBtn10Click(Sender : TObject);
    procedure BitBtn9Click(Sender : TObject);
    procedure BitBtn8Click(Sender : TObject);
    procedure BitBtn11Click(Sender : TObject);
    procedure BitBtn12Click(Sender : TObject);
    procedure BitBtn13Click(Sender : TObject);
    procedure _PROC_006FFFD0(Sender : TObject);
    procedure _PROC_00700390(Sender : TObject);
    procedure _PROC_00700399(Sender : TObject);
    procedure _PROC_00700773(Sender : TObject);
    procedure _PROC_0070077D(Sender : TObject);
    procedure _PROC_007008A7(Sender : TObject);
    procedure _PROC_007008B1(Sender : TObject);
    procedure _PROC_007009C7(Sender : TObject);
    procedure _PROC_00701403(Sender : TObject);
    procedure _PROC_0070140D(Sender : TObject);
    procedure _PROC_00701479(Sender : TObject);
    procedure _PROC_0070165C(Sender : TObject);
    procedure _PROC_0070178D(Sender : TObject);
    procedure _PROC_00701796(Sender : TObject);
    procedure _PROC_0070179C(Sender : TObject);
    procedure _PROC_007017A7(Sender : TObject);
    procedure _PROC_007017AA(Sender : TObject);
    procedure _PROC_007017AB(Sender : TObject);
    procedure _PROC_0070181C(Sender : TObject);
    procedure _PROC_00701F88(Sender : TObject);
    procedure _PROC_00701F91(Sender : TObject);
    procedure _PROC_00701FCC(Sender : TObject);
    procedure _PROC_00701FFC(Sender : TObject);
    procedure Proc_006FFFCC(Sender : TObject);
    procedure Proc_00701658(Sender : TObject);
    procedure Proc_00701478(Sender : TObject);
    procedure Proc_00701788(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PJEditerFrm: TPJEditerFrm;

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

implementation

{$R *.DFM}

procedure TPJEditerFrm.BitBtn6Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006FFD48   E86F63D5FF             call    004560BC
006FFD4D   C3                     ret

*)
end;

procedure TPJEditerFrm.FormShow(Sender : TObject);
begin
(*
006FFD50   55                     push    ebp
006FFD51   8BEC                   mov     ebp, esp
006FFD53   B904000000             mov     ecx, $00000004
006FFD58   6A00                   push    $00
006FFD5A   6A00                   push    $00
006FFD5C   49                     dec     ecx
006FFD5D   75F9                   jnz     006FFD58
006FFD5F   51                     push    ecx
006FFD60   53                     push    ebx
006FFD61   56                     push    esi
006FFD62   57                     push    edi
006FFD63   8BF8                   mov     edi, eax
006FFD65   33C0                   xor     eax, eax
006FFD67   55                     push    ebp

* Possible String Reference to: '閲: