zbpjtest.pas

来自「一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.」· PAS 代码 · 共 50 行

unit ZBPJTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls
type
  TPJTestFrm=class(TForm)
    RichEdit1: TRichEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender : TObject);
    procedure _PROC_006FEEA8(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  PJTestFrm: TPJTestFrm;

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

implementation

{$R *.DFM}

procedure TPJTestFrm.BitBtn1Click(Sender : TObject);
begin
(*

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006FEE70   E84772D5FF             call    004560BC
006FEE75   C3                     ret

*)
end;

procedure TPJTestFrm._PROC_006FEEA8(Sender : TObject);
begin
(*
006FEEA8   832DD0D5780001         sub     dword ptr [$0078D5D0], +$01
006FEEAF   C3                     ret

*)
end;

end.