strform.pas

和大家分享一下

unit StrForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls;

type
  TStringForm=class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  StringForm: TStringForm;


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

implementation

{$R *.DFM}


procedure TStringForm.FormShow(Sender: TObject);
begin
{
00489B74   53                     push    ebx
00489B75   8BD8                   mov     ebx, eax

* Reference to control TStringForm.Edit1 : TEdit
|
00489B77   8B83D0020000           mov     eax, [ebx+$02D0]
00489B7D   8B10                   mov     edx, [eax]

* Possible reference to virtual method TEdit.OFFS_4C
|
00489B7F   FF524C                 call    dword ptr [edx+$4C]
00489B82   84C0                   test    al, al
00489B84   741B                   jz      00489BA1

* Reference to control TStringForm.Edit1 : TEdit
|
00489B86   8B83D0020000           mov     eax, [ebx+$02D0]
00489B8C   8B10                   mov     edx, [eax]

* Possible reference to virtual method TEdit.OFFS_00B0
|
00489B8E   FF92B0000000           call    dword ptr [edx+$00B0]

* Reference to control TStringForm.Edit1 : TEdit
|
00489B94   8B83D0020000           mov     eax, [ebx+$02D0]

|
00489B9A   E8DDEAF9FF             call    0042867C
00489B9F   5B                     pop     ebx
00489BA0   C3                     ret

00489BA1   8B83D4020000           mov     eax, [ebx+$02D4]
00489BA7   8B10                   mov     edx, [eax]

* Possible reference to virtual method <UnknownType>.OFFS_00B0
|
00489BA9   FF92B0000000           call    dword ptr [edx+$00B0]
00489BAF   8B83D4020000           mov     eax, [ebx+$02D4]

|
00489BB5   E8C2EAF9FF             call    0042867C
00489BBA   5B                     pop     ebx
00489BBB   C3                     ret


}
 end ; 

end.