stkselect.pas

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

unit StkSelect;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, Grids, ExtCtrls
type
  TFrmStkSel=class(TForm)
    Panel1: TPanel;
    SgStkName: TStringGrid;
    procedure SgStkNameKeyPress(Sender : TObject);
    procedure SgStkNameMouseDown(Sender : TObject);
    procedure _PROC_005E7F30(Sender : TObject);
    procedure _PROC_005E7F60(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmStkSel: TFrmStkSel;

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

implementation

{$R *.DFM}

procedure TFrmStkSel.SgStkNameKeyPress(Sender : TObject);
begin
(*
005E7F08   80390D                 cmp     byte ptr [ecx], $0D
005E7F0B   750D                   jnz     005E7F1A
005E7F0D   33D2                   xor     edx, edx

* Reference to field TFrmStkSel.OFFS_02D8
|
005E7F0F   8990D8020000           mov     [eax+$02D8], edx

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005E7F15   E8A2E1E6FF             call    004560BC
005E7F1A   C3                     ret

*)
end;

procedure TFrmStkSel.SgStkNameMouseDown(Sender : TObject);
begin
(*
005E7F1C   55                     push    ebp
005E7F1D   8BEC                   mov     ebp, esp
005E7F1F   33D2                   xor     edx, edx

* Reference to field TFrmStkSel.OFFS_02D8
|
005E7F21   8990D8020000           mov     [eax+$02D8], edx

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005E7F27   E890E1E6FF             call    004560BC
005E7F2C   5D                     pop     ebp
005E7F2D   C20C00                 ret     $000C

*)
end;

procedure TFrmStkSel._PROC_005E7F30(Sender : TObject);
begin
(*
005E7F30   55                     push    ebp
005E7F31   8BEC                   mov     ebp, esp
005E7F33   33C0                   xor     eax, eax
005E7F35   55                     push    ebp

* Possible String Reference to: '橐横