topdown.pas

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

unit TopDown;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TfrmTopDown=class(TForm)
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    CheckBox1: TCheckBox;
    RxGradientCaption1: TRxGradientCaption;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Bevel2: TBevel;
    mTopListView: TListView;
    Button5: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Button6: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    Label6: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit3: TEdit;
    Button7: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    OFFS_0350: N.A.;
    OFFS_0354: N.A.;
    OFFS_0358: N.A.;
    OFFS_035C: N.A.;
    OFFS_0360: N.A.;
    procedure Button1Click(Sender : TObject);
    procedure IdHTTP1WorkBegin(Sender : TObject);
    procedure IdHTTP1Work(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure Button5Click(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure Button4Click(Sender : TObject);
    procedure Button6Click(Sender : TObject);
    procedure Button7Click(Sender : TObject);
    procedure _PROC_005BBC29(Sender : TObject);
    procedure _PROC_005BBE3D(Sender : TObject);
    procedure _PROC_005BBE74(Sender : TObject);
    procedure Proc_005BBE7C(Sender : TObject);
    procedure Proc_005BA738(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  frmTopDown: TfrmTopDown;

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

implementation

{$R *.DFM}

procedure TfrmTopDown.Button1Click(Sender : TObject);
begin
(*
005BA7BC   55                     push    ebp
005BA7BD   8BEC                   mov     ebp, esp
005BA7BF   B952010000             mov     ecx, $00000152
005BA7C4   6A00                   push    $00
005BA7C6   6A00                   push    $00
005BA7C8   49                     dec     ecx
005BA7C9   75F9                   jnz     005BA7C4
005BA7CB   51                     push    ecx
005BA7CC   53                     push    ebx
005BA7CD   56                     push    esi
005BA7CE   57                     push    edi
005BA7CF   8945FC                 mov     [ebp-$04], eax
005BA7D2   33C0                   xor     eax, eax
005BA7D4   55                     push    ebp

* Possible String Reference to: '楝堜