fanfilter.pas

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

unit FanFilter;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmFilter=class(TForm)
    Panel1: TPanel;
    BtnComfirm: TBitBtn;
    BtnClose: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    CmbConZgb: TComboBox;
    CmbConLtgb: TComboBox;
    CmbConLtsz: TComboBox;
    CmbConGj: TComboBox;
    CmbConMgsy: TComboBox;
    CmbConSyl: TComboBox;
    CmbConJzsl: TComboBox;
    EdtZgb: TEdit;
    EdtLtgb: TEdit;
    EdtLtsz: TEdit;
    EdtGj: TEdit;
    EdtMgsy: TEdit;
    EdtSyl: TEdit;
    EdtJzsl: TEdit;
    Bevel1: TBevel;
    BtnClear: TBitBtn;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    procedure BtnComfirmClick(Sender : TObject);
    procedure BtnClearClick(Sender : TObject);
    procedure BtnCloseClick(Sender : TObject);
    procedure EdtZgbKeyPress(Sender : TObject);
    procedure EdtLtgbKeyPress(Sender : TObject);
    procedure EdtLtszKeyPress(Sender : TObject);
    procedure EdtGjKeyPress(Sender : TObject);
    procedure EdtMgsyKeyPress(Sender : TObject);
    procedure EdtSylKeyPress(Sender : TObject);
    procedure EdtJzslKeyPress(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormActivate(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure _PROC_0062B258(Sender : TObject);
    procedure _PROC_0062B27C(Sender : TObject);
    procedure _PROC_0062B294(Sender : TObject);
    procedure _PROC_0062B777(Sender : TObject);
    procedure _PROC_0062B9E5(Sender : TObject);
    procedure _PROC_0062BA2C(Sender : TObject);
    procedure Proc_0062B238(Sender : TObject);
    procedure Proc_0062B770(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmFilter: TFrmFilter;

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

implementation

{$R *.DFM}

procedure TFrmFilter.BtnComfirmClick(Sender : TObject);
begin
(*
0062B2B0   55                     push    ebp
0062B2B1   8BEC                   mov     ebp, esp
0062B2B3   B90A000000             mov     ecx, $0000000A
0062B2B8   6A00                   push    $00
0062B2BA   6A00                   push    $00
0062B2BC   49                     dec     ecx
0062B2BD   75F9                   jnz     0062B2B8
0062B2BF   53                     push    ebx
0062B2C0   56                     push    esi
0062B2C1   57                     push    edi
0062B2C2   8945FC                 mov     [ebp-$04], eax
0062B2C5   33C0                   xor     eax, eax
0062B2C7   55                     push    ebp

* Possible String Reference to: '殒傒