zbsel.pas

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

unit ZBSel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls, Buttons
type
  TFSlcZB=class(TForm)
    Button1: TBitBtn;
    Button2: TBitBtn;
    ListView1: TListView;
    Memo1: TMemo;
    ImageList1: TImageList;
    Label1: TLabel;
    procedure ListView1Change(Sender : TObject);
    procedure ListView1Click(Sender : TObject);
    procedure _PROC_0052F37C(Sender : TObject);
    procedure _PROC_0052F3AC(Sender : TObject);
    procedure Proc_0052F170(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FSlcZB: TFSlcZB;

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

implementation

{$R *.DFM}

procedure TFSlcZB.ListView1Change(Sender : TObject);
begin
(*
0052F278   55                     push    ebp
0052F279   8BEC                   mov     ebp, esp
0052F27B   6A00                   push    $00
0052F27D   6A00                   push    $00
0052F27F   6A00                   push    $00
0052F281   53                     push    ebx
0052F282   56                     push    esi
0052F283   57                     push    edi
0052F284   8BD8                   mov     ebx, eax
0052F286   33C0                   xor     eax, eax
0052F288   55                     push    ebp
0052F289   6853F35200             push    $0052F353

***** TRY
|
0052F28E   64FF30                 push    dword ptr fs:[eax]
0052F291   648920                 mov     fs:[eax], esp
0052F294   8BD3                   mov     edx, ebx
0052F296   8BC3                   mov     eax, ebx

* Reference to : TFSlcZB.ListView1Click()
|
0052F298   E8C7000000             call    0052F364

* Reference to field TFSlcZB.OFFS_02EC
|
0052F29D   83BBEC02000000         cmp     dword ptr [ebx+$02EC], +$00
0052F2A4   0F848E000000           jz      0052F338
0052F2AA   A118CB7700             mov     eax, dword ptr [$0077CB18]
0052F2AF   8B00                   mov     eax, [eax]
0052F2B1   8B4050                 mov     eax, [eax+$50]
0052F2B4   8B4008                 mov     eax, [eax+$08]
0052F2B7   85C0                   test    eax, eax
0052F2B9   7E7D                   jle     0052F338
0052F2BB   8B1518CB7700           mov     edx, [$0077CB18]
0052F2C1   48                     dec     eax
0052F2C2   85C0                   test    eax, eax
0052F2C4   7C72                   jl      0052F338
0052F2C6   40                     inc     eax
0052F2C7   8945FC                 mov     [ebp-$04], eax
0052F2CA   33FF                   xor     edi, edi
0052F2CC   A118CB7700             mov     eax, dword ptr [$0077CB18]
0052F2D1   8B00                   mov     eax, [eax]
0052F2D3   8B4050                 mov     eax, [eax+$50]
0052F2D6   8BD7                   mov     edx, edi

* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
0052F2D8   E8474DEEFF             call    00414024
0052F2DD   8BF0                   mov     esi, eax
0052F2DF   807E0400               cmp     byte ptr [esi+$04], $00
0052F2E3   744D                   jz      0052F332

* Reference to field TFSlcZB.OFFS_02EC
|
0052F2E5   83BBEC02000000         cmp     dword ptr [ebx+$02EC], +$00
0052F2EC   7444                   jz      0052F332
0052F2EE   8D55F8                 lea     edx, [ebp-$08]
0052F2F1   8B06                   mov     eax, [esi]

* Reference to: Unit_00409434.Proc_0040B3D0
|
0052F2F3   E8D8C0EDFF             call    0040B3D0
0052F2F8   8B45F8                 mov     eax, [ebp-$08]

* Reference to field TFSlcZB.OFFS_02EC
|
0052F2FB   8B93EC020000           mov     edx, [ebx+$02EC]
0052F301   8B5224                 mov     edx, [edx+$24]

* Reference to: system.@LStrCmp;
|
0052F304   E89751EDFF             call    004044A0
0052F309   7527                   jnz     0052F332
0052F30B   47                     inc     edi

* Reference to field TFSlcZB.OFFS_02F0
|
0052F30C   89BBF0020000           mov     [ebx+$02F0], edi
0052F312   8D55F4                 lea     edx, [ebp-$0C]
0052F315   8B06                   mov     eax, [esi]
0052F317   8B80E0080000           mov     eax, [eax+$08E0]

* Reference to: Unit_00409434.Proc_0040B3D0
|
0052F31D   E8AEC0EDFF             call    0040B3D0
0052F322   8B55F4                 mov     edx, [ebp-$0C]

* Reference to control TFSlcZB.Memo1 : TMemo
|
0052F325   8B83DC020000           mov     eax, [ebx+$02DC]

* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0052F32B   E850A7F0FF             call    00439A80
0052F330   EB06                   jmp     0052F338
0052F332   47                     inc     edi
0052F333   FF4DFC                 dec     dword ptr [ebp-$04]
0052F336   7594                   jnz     0052F2CC
0052F338   33C0                   xor     eax, eax
0052F33A   5A                     pop     edx
0052F33B   59                     pop     ecx
0052F33C   59                     pop     ecx
0052F33D   648910                 mov     fs:[eax], edx

****** FINALLY
|
0052F340   685AF35200             push    $0052F35A
0052F345   8D45F4                 lea     eax, [ebp-$0C]
0052F348   BA02000000             mov     edx, $00000002

* Reference to: system.@LStrArrayClr;
|
0052F34D   E8C64DEDFF             call    00404118
0052F352   C3                     ret


* Reference to: system.@HandleFinally;
|
0052F353   E9D446EDFF             jmp     00403A2C
0052F358   EBEB                   jmp     0052F345

****** END
|
0052F35A   5F                     pop     edi
0052F35B   5E                     pop     esi
0052F35C   5B                     pop     ebx
0052F35D   8BE5                   mov     esp, ebp
0052F35F   5D                     pop     ebp
0052F360   C20400                 ret     $0004

*)
end;

procedure TFSlcZB.ListView1Click(Sender : TObject);
begin
(*
0052F364   53                     push    ebx
0052F365   8BD8                   mov     ebx, eax

* Reference to control TFSlcZB.ListView1 : TListView
|
0052F367   8B83D8020000           mov     eax, [ebx+$02D8]

* Reference to: comctrls.TCustomListView.GetSelection(TCustomListView):TListItem;
|
0052F36D   E80E1BF5FF             call    00480E80

* Reference to field TFSlcZB.OFFS_02EC
|
0052F372   8983EC020000           mov     [ebx+$02EC], eax
0052F378   5B                     pop     ebx
0052F379   C3                     ret

*)
end;

procedure TFSlcZB._PROC_0052F37C(Sender : TObject);
begin
(*
0052F37C   55                     push    ebp
0052F37D   8BEC                   mov     ebp, esp
0052F37F   33C0                   xor     eax, eax
0052F381   55                     push    ebp

* Possible String Reference to: '閱F