zbexport.pas

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

unit ZBExport;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFSlcFile=class(TForm)
    Label1: TLabel;
    Button1: TBitBtn;
    Button2: TBitBtn;
    FilenameEdit1: TFilenameEdit;
    RxGradientCaption1: TRxGradientCaption;
    Button3: TBitBtn;
    OFFS_02E9: N.A.;
    OFFS_02F0: N.A.;
    OFFS_02E8: N.A.;
    procedure Edit1KeyPress(Sender : TObject);
    procedure Button1Click(Sender : TObject);
    procedure FormKeyDown(Sender : TObject);
    procedure FormCreate(Sender : TObject);
    procedure FormDestroy(Sender : TObject);
    procedure FilenameEdit1Change(Sender : TObject);
    procedure Button3Click(Sender : TObject);
    procedure FormShow(Sender : TObject);
    procedure _PROC_006FF148(Sender : TObject);
    procedure _PROC_006FF170(Sender : TObject);
    procedure _PROC_006FF38F(Sender : TObject);
    procedure _PROC_006FF39B(Sender : TObject);
    procedure _PROC_006FF8C1(Sender : TObject);
    procedure _PROC_006FF8F0(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FSlcFile: TFSlcFile;

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

implementation

{$R *.DFM}

procedure TFSlcFile.Edit1KeyPress(Sender : TObject);
begin
(*
006FF13C   80392E                 cmp     byte ptr [ecx], $2E
006FF13F   7503                   jnz     006FF144
006FF141   C60100                 mov     byte ptr [ecx], $00
006FF144   C3                     ret

*)
end;

procedure TFSlcFile.Button1Click(Sender : TObject);
begin
(*
006FF42C   53                     push    ebx
006FF42D   8BD8                   mov     ebx, eax
006FF42F   8BC3                   mov     eax, ebx

* Reference to : TFSlcFile._PROC_006FF170()
|
006FF431   E83AFDFFFF             call    006FF170
006FF436   84C0                   test    al, al
006FF438   740A                   jz      006FF444

* Reference to field TFSlcFile.ModalResult : TModalResult
|
006FF43A   C7833402000001000000   mov     dword ptr [ebx+$0234], $00000001
006FF444   5B                     pop     ebx
006FF445   C3                     ret

*)
end;

procedure TFSlcFile.FormKeyDown(Sender : TObject);
begin
(*
006FF448   55                     push    ebp
006FF449   8BEC                   mov     ebp, esp
006FF44B   53                     push    ebx
006FF44C   56                     push    esi
006FF44D   8BF1                   mov     esi, ecx
006FF44F   8BD8                   mov     ebx, eax
006FF451   A074F46F00             mov     al, byte ptr [$006FF474]
006FF456   3A4508                 cmp     al, byte ptr [ebp+$08]
006FF459   7510                   jnz     006FF46B
006FF45B   668B06                 mov     ax, word ptr [esi]
006FF45E   6683E81B               sub     ax, +$1B
006FF462   7507                   jnz     006FF46B
006FF464   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
006FF466   E8516CD5FF             call    004560BC
006FF46B   5E                     pop     esi
006FF46C   5B                     pop     ebx
006FF46D   5D                     pop     ebp
006FF46E   C20400                 ret     $0004

*)
end;

procedure TFSlcFile.FormCreate(Sender : TObject);
begin
(*
006FF478   55                     push    ebp
006FF479   8BEC                   mov     ebp, esp
006FF47B   6A00                   push    $00
006FF47D   53                     push    ebx
006FF47E   8BD8                   mov     ebx, eax
006FF480   33C0                   xor     eax, eax
006FF482   55                     push    ebp
006FF483   68EBF46F00             push    $006FF4EB

***** TRY
|
006FF488   64FF30                 push    dword ptr fs:[eax]
006FF48B   648920                 mov     fs:[eax], esp

* Reference to field TFSlcFile.OFFS_02E9 : Byte
|
006FF48E   C683E902000000         mov     byte ptr [ebx+$02E9], $00
006FF495   8D45FC                 lea     eax, [ebp-$04]

* Reference to: Unit_00409434.Proc_0040B0AC
|
006FF498   E80FBCD0FF             call    0040B0AC
006FF49D   8B55FC                 mov     edx, [ebp-$04]

* Reference to field TFSlcFile.OFFS_02F0 : String
|
006FF4A0   8D83F0020000           lea     eax, [ebx+$02F0]

* Reference to: system.@LStrAsg;
|
006FF4A6   E89D4CD0FF             call    00404148

* Reference to pointer to GlobalVar_007991A8
|
006FF4AB   A128CC7700             mov     eax, dword ptr [$0077CC28]
006FF4B0   8B00                   mov     eax, [eax]

* Reference to: Unit_004A9D84.Proc_004A9EA4
|
006FF4B2   E8EDA9DAFF             call    004A9EA4
006FF4B7   84C0                   test    al, al
006FF4B9   750E                   jnz     006FF4C9

* Reference to pointer to GlobalVar_007991A8
|
006FF4BB   A128CC7700             mov     eax, dword ptr [$0077CC28]
006FF4C0   8B00                   mov     eax, [eax]

* Reference to: Unit_00409434.Proc_0040B0EC
|
006FF4C2   E825BCD0FF             call    0040B0EC
006FF4C7   EB0C                   jmp     006FF4D5

* Reference to pointer to GlobalVar_007991A8
|
006FF4C9   A128CC7700             mov     eax, dword ptr [$0077CC28]
006FF4CE   8B00                   mov     eax, [eax]

* Reference to: Unit_00409434.Proc_0040B0D4
|
006FF4D0   E8FFBBD0FF             call    0040B0D4
006FF4D5   33C0                   xor     eax, eax
006FF4D7   5A                     pop     edx
006FF4D8   59                     pop     ecx
006FF4D9   59                     pop     ecx
006FF4DA   648910                 mov     fs:[eax], edx

****** FINALLY
|
006FF4DD   68F2F46F00             push    $006FF4F2
006FF4E2   8D45FC                 lea     eax, [ebp-$04]

* Reference to: system.@LStrClr(String;String);
|
006FF4E5   E80A4CD0FF             call    004040F4
006FF4EA   C3                     ret


* Reference to: system.@HandleFinally;
|
006FF4EB   E93C45D0FF             jmp     00403A2C
006FF4F0   EBF0                   jmp     006FF4E2

****** END
|
006FF4F2   5B                     pop     ebx
006FF4F3   59                     pop     ecx
006FF4F4   5D                     pop     ebp
006FF4F5   C3                     ret

*)
end;

procedure TFSlcFile.FormDestroy(Sender : TObject);
begin
(*

* Reference to field TFSlcFile.OFFS_02F0 : String
|
006FF4F8   8B80F0020000           mov     eax, [eax+$02F0]

* Reference to: Unit_00409434.Proc_0040B0D4
|
006FF4FE   E8D1BBD0FF             call    0040B0D4
006FF503   C3                     ret

*)
end;

procedure TFSlcFile.FilenameEdit1Change(Sender : TObject);
begin
(*
006FF504   55                     push    ebp
006FF505   8BEC                   mov     ebp, esp
006FF507   6A00                   push    $00
006FF509   53                     push    ebx
006FF50A   8BD8                   mov     ebx, eax
006FF50C   33C0                   xor     eax, eax
006FF50E   55                     push    ebp

* Possible String Reference to: '闈D