zbxgbyname.pas

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

unit ZBXGByName;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls, ComCtrls
type
  TXGByNameFrm=class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender : TObject);
    procedure ListView1DblClick(Sender : TObject);
    procedure _PROC_006F298C(Sender : TObject);
    procedure _PROC_006F29BC(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  XGByNameFrm: TXGByNameFrm;

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

implementation

{$R *.DFM}

procedure TXGByNameFrm.FormCreate(Sender : TObject);
begin
(*
006F28C0   55                     push    ebp
006F28C1   8BEC                   mov     ebp, esp
006F28C3   83C4F4                 add     esp, -$0C
006F28C6   53                     push    ebx
006F28C7   56                     push    esi
006F28C8   57                     push    edi
006F28C9   33C9                   xor     ecx, ecx
006F28CB   894DF4                 mov     [ebp-$0C], ecx
006F28CE   8945FC                 mov     [ebp-$04], eax
006F28D1   33C0                   xor     eax, eax
006F28D3   55                     push    ebp
006F28D4   685A296F00             push    $006F295A

***** TRY
|
006F28D9   64FF30                 push    dword ptr fs:[eax]
006F28DC   648920                 mov     fs:[eax], esp
006F28DF   A118CB7700             mov     eax, dword ptr [$0077CB18]
006F28E4   8B00                   mov     eax, [eax]
006F28E6   8B8048010000           mov     eax, [eax+$0148]
006F28EC   8B7008                 mov     esi, [eax+$08]
006F28EF   4E                     dec     esi
006F28F0   85F6                   test    esi, esi
006F28F2   7C50                   jl      006F2944
006F28F4   46                     inc     esi
006F28F5   33FF                   xor     edi, edi
006F28F7   A118CB7700             mov     eax, dword ptr [$0077CB18]
006F28FC   8B00                   mov     eax, [eax]
006F28FE   8B8048010000           mov     eax, [eax+$0148]
006F2904   8BD7                   mov     edx, edi

* Reference to: classes.TList.Get(TList;Integer):Pointer;
|
006F2906   E81917D2FF             call    00414024
006F290B   8BD8                   mov     ebx, eax
006F290D   807B1E00               cmp     byte ptr [ebx+$1E], $00
006F2911   742D                   jz      006F2940
006F2913   8B45FC                 mov     eax, [ebp-$04]

* Reference to control TXGByNameFrm.ListView1 : TListView
|
006F2916   8B80D0020000           mov     eax, [eax+$02D0]

* Reference to field TListView.Items : TListItems
|
006F291C   8B800C020000           mov     eax, [eax+$020C]

* Reference to: comctrls.TListItems.Add(TListItems):TListItem;
|
006F2922   E8D5AFD8FF             call    0047D8FC
006F2927   8945F8                 mov     [ebp-$08], eax
006F292A   8D45F4                 lea     eax, [ebp-$0C]
006F292D   8B5304                 mov     edx, [ebx+$04]

* Reference to: system.@LStrFromPChar(String;String;PAnsiChar);
|
006F2930   E87719D1FF             call    004042AC
006F2935   8B55F4                 mov     edx, [ebp-$0C]
006F2938   8B45F8                 mov     eax, [ebp-$08]

* Reference to: comctrls.TListItem.SetCaption(TListItem;AnsiString);
|
006F293B   E890AAD8FF             call    0047D3D0
006F2940   47                     inc     edi
006F2941   4E                     dec     esi
006F2942   75B3                   jnz     006F28F7
006F2944   33C0                   xor     eax, eax
006F2946   5A                     pop     edx
006F2947   59                     pop     ecx
006F2948   59                     pop     ecx
006F2949   648910                 mov     fs:[eax], edx

****** FINALLY
|
006F294C   6861296F00             push    $006F2961
006F2951   8D45F4                 lea     eax, [ebp-$0C]

* Reference to: system.@LStrClr(String;String);
|
006F2954   E89B17D1FF             call    004040F4
006F2959   C3                     ret


* Reference to: system.@HandleFinally;
|
006F295A   E9CD10D1FF             jmp     00403A2C
006F295F   EBF0                   jmp     006F2951

****** END
|
006F2961   5F                     pop     edi
006F2962   5E                     pop     esi
006F2963   5B                     pop     ebx
006F2964   8BE5                   mov     esp, ebp
006F2966   5D                     pop     ebp
006F2967   C3                     ret

*)
end;

procedure TXGByNameFrm.ListView1DblClick(Sender : TObject);
begin
(*

* Reference to control TXGByNameFrm.ListView1 : TListView
|
006F2968   8B80D0020000           mov     eax, [eax+$02D0]

* Reference to: comctrls.TCustomListView.GetSelection(TCustomListView):TListItem;
|
006F296E   E80DE5D8FF             call    00480E80
006F2973   85C0                   test    eax, eax
006F2975   7411                   jz      006F2988
006F2977   8B1518CB7700           mov     edx, [$0077CB18]
006F297D   8B12                   mov     edx, [edx]

* Reference to field TListView.Parent : TWinControl
|
006F297F   8B4024                 mov     eax, [eax+$24]
006F2982   92                     xchg    eax, edx

* Reference to: Unit_0070F7F0.Proc_00719608
|
006F2983   E8806C0200             call    00719608
006F2988   C3                     ret

*)
end;

procedure TXGByNameFrm._PROC_006F298C(Sender : TObject);
begin
(*
006F298C   55                     push    ebp
006F298D   8BEC                   mov     ebp, esp
006F298F   33C0                   xor     eax, eax
006F2991   55                     push    ebp
006F2992   68B1296F00             push    $006F29B1

***** TRY
|
006F2997   64FF30                 push    dword ptr fs:[eax]
006F299A   648920                 mov     fs:[eax], esp
006F299D   FF05BCD57800           inc     dword ptr [$0078D5BC]
006F29A3   33C0                   xor     eax, eax
006F29A5   5A                     pop     edx
006F29A6   59                     pop     ecx
006F29A7   59                     pop     ecx
006F29A8   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: ']脣纼-颊x'
|
006F29AB   68B8296F00             push    $006F29B8
006F29B0   C3                     ret


* Reference to: system.@HandleFinally;
|
006F29B1   E97610D1FF             jmp     00403A2C
006F29B6   EBF8                   jmp     006F29B0

****** END
|
006F29B8   5D                     pop     ebp
006F29B9   C3                     ret

*)
end;

procedure TXGByNameFrm._PROC_006F29BC(Sender : TObject);
begin
(*
006F29BC   832DBCD5780001         sub     dword ptr [$0078D5BC], +$01
006F29C3   C3                     ret

*)
end;

end.