topadvise.pas

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

unit TopAdvise;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ExtCtrls
type
  TfrmTopAdvise=class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure Timer1Timer(Sender : TObject);
    procedure Image1Click(Sender : TObject);
    procedure _PROC_005BA28D(Sender : TObject);
    procedure _PROC_005BA2BC(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmTopAdvise: TfrmTopAdvise;

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

implementation

{$R *.DFM}

procedure TfrmTopAdvise.Timer1Timer(Sender : TObject);
begin
(*

* Reference to field TfrmTopAdvise.ModalResult : TModalResult
|
005BA268   C7803402000002000000   mov     dword ptr [eax+$0234], $00000002
005BA272   33D2                   xor     edx, edx

* Reference to control TfrmTopAdvise.Timer1 : TTimer
|
005BA274   8B80D4020000           mov     eax, [eax+$02D4]

* Reference to: extctrls.TTimer.SetEnabled(TTimer;Boolean);
|
005BA27A   E85152EAFF             call    0045F4D0
005BA27F   C3                     ret

*)
end;

procedure TfrmTopAdvise.Image1Click(Sender : TObject);
begin
(*

* Reference to field TfrmTopAdvise.ModalResult : TModalResult
|
005BA280   C7803402000002000000   mov     dword ptr [eax+$0234], $00000002
005BA28A   C3                     ret

*)
end;

procedure TfrmTopAdvise._PROC_005BA28D(Sender : TObject);
begin
(*
005BA28D   8BEC                   mov     ebp, esp
005BA28F   33C0                   xor     eax, eax
005BA291   55                     push    ebp

* Possible String Reference to: '関椾