dgsetprx.pas

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

unit DGSETPrx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Buttons, Mask
type
  TDGSetupProxy=class(TForm)
    Label7: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TMaskEdit;
    Edit3: TMaskEdit;
    Button4: TBitBtn;
    Button5: TBitBtn;
    Label3: TLabel;
    Label4: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    ComboBox1: TComboBox;
    Label34: TLabel;
    CheckBox1: TCheckBox;
    procedure FormCreate(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure ComboBox1Change(Sender : TObject);
    procedure CheckBox1Click(Sender : TObject);
    procedure _PROC_005AFE0E(Sender : TObject);
    procedure _PROC_005AFFDA(Sender : TObject);
    procedure _PROC_005B010C(Sender : TObject);
    procedure _PROC_005B013C(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  DGSetupProxy: TDGSetupProxy;

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

implementation

{$R *.DFM}

procedure TDGSetupProxy.FormCreate(Sender : TObject);
begin
(*
005AFC94   55                     push    ebp
005AFC95   8BEC                   mov     ebp, esp
005AFC97   33C9                   xor     ecx, ecx
005AFC99   51                     push    ecx
005AFC9A   51                     push    ecx
005AFC9B   51                     push    ecx
005AFC9C   51                     push    ecx
005AFC9D   53                     push    ebx
005AFC9E   56                     push    esi
005AFC9F   57                     push    edi
005AFCA0   8BF2                   mov     esi, edx
005AFCA2   8BD8                   mov     ebx, eax
005AFCA4   33C0                   xor     eax, eax
005AFCA6   55                     push    ebp

* Possible String Reference to: '閌<