cmdexec.pas

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

unit CmdExec;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TCommander=class(TForm)
    Panel1: TPanel;
    EdtInput: TEdit;
    LBHint: TListBox;
    PaintBox1: TPaintBox;
    Button1: TButton;
    procedure EdtInputChange(Sender : TObject);
    procedure EdtInputKeyDown(Sender : TObject);
    procedure LBHintKeyDown(Sender : TObject);
    procedure FormDeactivate(Sender : TObject);
    procedure LBHintDblClick(Sender : TObject);
    procedure LBHintKeyPress(Sender : TObject);
    procedure PaintBox1Paint(Sender : TObject);
    procedure LBHintDrawItem(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure _PROC_0075BFC8(Sender : TObject);
    procedure _PROC_0075C050(Sender : TObject);
    procedure _PROC_0075C2C7(Sender : TObject);
    procedure _PROC_0075C32C(Sender : TObject);
    procedure _PROC_0075C8CC(Sender : TObject);
    procedure _PROC_0075C8FC(Sender : TObject);
    procedure Proc_0075C2C6(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  Commander: TCommander;

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

implementation

{$R *.DFM}

procedure TCommander.EdtInputChange(Sender : TObject);
begin
(*
0075BEFC   55                     push    ebp
0075BEFD   8BEC                   mov     ebp, esp
0075BEFF   6A00                   push    $00
0075BF01   6A00                   push    $00
0075BF03   6A00                   push    $00
0075BF05   8945FC                 mov     [ebp-$04], eax
0075BF08   33C0                   xor     eax, eax
0075BF0A   55                     push    ebp

* Possible String Reference to: '閖z