dgnewbk.pas

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

unit DGNewBK;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmNewBK=class(TForm)
    StaticText1: TStaticText;
    EdtName: TEdit;
    CancelBtn: TBitBtn;
    OKBtn: TBitBtn;
    Bevel1: TBevel;
    RxGradientCaption1: TRxGradientCaption;
    OFFS_02E8: N.A.;
    OFFS_02E9: N.A.;
    procedure FormCreate(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure _PROC_0075F319(Sender : TObject);
    procedure _PROC_0075F348(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmNewBK: TFrmNewBK;

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

implementation

{$R *.DFM}

procedure TFrmNewBK.FormCreate(Sender : TObject);
begin
(*
0075F170   33D2                   xor     edx, edx

* Reference to field TFrmNewBK.OFFS_02EC
|
0075F172   8990EC020000           mov     [eax+$02EC], edx
0075F178   C3                     ret

*)
end;

procedure TFrmNewBK.BitBtn1Click(Sender : TObject);
begin
(*
0075F18C   55                     push    ebp
0075F18D   8BEC                   mov     ebp, esp
0075F18F   33C9                   xor     ecx, ecx
0075F191   51                     push    ecx
0075F192   51                     push    ecx
0075F193   51                     push    ecx
0075F194   51                     push    ecx
0075F195   53                     push    ebx
0075F196   56                     push    esi
0075F197   8BD8                   mov     ebx, eax
0075F199   33C0                   xor     eax, eax
0075F19B   55                     push    ebp

* Possible String Reference to: '閆G