wtadd.pas

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

unit wtAdd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmWeiTuo=class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TBitBtn;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    OpenDialog: TOpenDialog;
    OFFS_02FC: N.A.;
    OFFS_0300: N.A.;
    procedure Button1Click(Sender : TObject);
    procedure Button2Click(Sender : TObject);
    procedure BitBtn1Click(Sender : TObject);
    procedure _PROC_006A5D91(Sender : TObject);
    procedure _PROC_006A5DC0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmWeiTuo: TFrmWeiTuo;

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

implementation

{$R *.DFM}

procedure TFrmWeiTuo.Button1Click(Sender : TObject);
begin
(*
006A5BE8   53                     push    ebx
006A5BE9   56                     push    esi
006A5BEA   8BF0                   mov     esi, eax

* Reference to TApplication instance
|
006A5BEC   8B0D00D17700           mov     ecx, [$0077D100]
006A5BF2   8B09                   mov     ecx, [ecx]
006A5BF4   B201                   mov     dl, $01

* Reference to class TFrmModifyWT
|
006A5BF6   A1A4276A00             mov     eax, dword ptr [$006A27A4]

* Reference to: forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
006A5BFB   E8DCC6DAFF             call    004522DC
006A5C00   8BD8                   mov     ebx, eax
006A5C02   8BC3                   mov     eax, ebx
006A5C04   8B10                   mov     edx, [eax]

* Reference to method TFrmModifyWT.ShowModal()
|
006A5C06   FF92D8000000           call    dword ptr [edx+$00D8]
006A5C0C   48                     dec     eax
006A5C0D   753A                   jnz     006A5C49

* Reference to field TFrmModifyWT.OFFS_02FC : String
|
006A5C0F   8B93FC020000           mov     edx, [ebx+$02FC]

* Reference to control TFrmWeiTuo.Edit1 : TEdit
|
006A5C15   8B86D8020000           mov     eax, [esi+$02D8]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
006A5C1B   E8603ED9FF             call    00439A80

* Reference to field TFrmModifyWT.OFFS_02F4
|
006A5C20   8B83F4020000           mov     eax, [ebx+$02F4]

* Reference to field TFrmWeiTuo.OFFS_02F4
|
006A5C26   8986F4020000           mov     [esi+$02F4], eax

* Reference to field TFrmModifyWT.OFFS_02F8
|
006A5C2C   8B83F8020000           mov     eax, [ebx+$02F8]

* Reference to field TFrmWeiTuo.OFFS_02F8
|
006A5C32   8986F8020000           mov     [esi+$02F8], eax

* Reference to field TFrmWeiTuo.OFFS_02FC : String
|
006A5C38   8D86FC020000           lea     eax, [esi+$02FC]

* Reference to field TFrmModifyWT.OFFS_02FC : String
|
006A5C3E   8B93FC020000           mov     edx, [ebx+$02FC]

* Reference to: system.@LStrAsg;
|
006A5C44   E8FFE4D5FF             call    00404148
006A5C49   8BC3                   mov     eax, ebx

* Reference to: system.TObject.Free(TObject);
|
006A5C4B   E87CD6D5FF             call    004032CC
006A5C50   5E                     pop     esi
006A5C51   5B                     pop     ebx
006A5C52   C3                     ret

*)
end;

procedure TFrmWeiTuo.Button2Click(Sender : TObject);
begin
(*
006A5C54   55                     push    ebp
006A5C55   8BEC                   mov     ebp, esp
006A5C57   6A00                   push    $00
006A5C59   6A00                   push    $00
006A5C5B   53                     push    ebx
006A5C5C   8BD8                   mov     ebx, eax
006A5C5E   33C0                   xor     eax, eax
006A5C60   55                     push    ebp

* Possible String Reference to: '閅菡