⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 viewrcd.pas

📁 大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.
💻 PAS
📖 第 1 页 / 共 3 页
字号:
004D2B0B   E864CBFBFF             call    0048F674
004D2B10   6A00                   push    $00
004D2B12   B907000000             mov     ecx, $00000007
004D2B17   BA0A000000             mov     edx, $0000000A
004D2B1C   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2B22   E84DCBFBFF             call    0048F674
004D2B27   6A00                   push    $00
004D2B29   B907000000             mov     ecx, $00000007
004D2B2E   BA0B000000             mov     edx, $0000000B
004D2B33   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2B39   E836CBFBFF             call    0048F674
004D2B3E   5B                     pop     ebx
004D2B3F   C3                     ret

*)
end;

procedure TFrmFDBViewer._PROC_004D2E2A(Sender : TObject);
begin
(*
004D2E2A   0003                   add     [ebx], al
004D2E2C   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2E41(Sender : TObject);
begin
(*
004D2E41   0003                   add     [ebx], al
004D2E43   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2E58(Sender : TObject);
begin
(*
004D2E58   0003                   add     [ebx], al
004D2E5A   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2E6F(Sender : TObject);
begin
(*
004D2E6F   0003                   add     [ebx], al
004D2E71   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2ECE(Sender : TObject);
begin
(*
004D2ECE   0403                   add     al, +$03
004D2ED0   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2EE5(Sender : TObject);
begin
(*
004D2EE5   0403                   add     al, +$03
004D2EE7   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2EFC(Sender : TObject);
begin
(*
004D2EFC   0403                   add     al, +$03
004D2EFE   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2F4E(Sender : TObject);
begin
(*
004D2F4E   0803                   or      [ebx], al
004D2F50   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2F65(Sender : TObject);
begin
(*
004D2F65   0803                   or      [ebx], al
004D2F67   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2F7C(Sender : TObject);
begin
(*
004D2F7C   0803                   or      [ebx], al
004D2F7E   0000                   add     [eax], al

*)
end;

procedure TFrmFDBViewer._PROC_004D2FC1(Sender : TObject);
begin
(*
004D2FC1   8BEC                   mov     ebp, esp
004D2FC3   83C4D0                 add     esp, -$30
004D2FC6   53                     push    ebx
004D2FC7   56                     push    esi
004D2FC8   57                     push    edi
004D2FC9   33DB                   xor     ebx, ebx
004D2FCB   895DD8                 mov     [ebp-$28], ebx
004D2FCE   895DD4                 mov     [ebp-$2C], ebx
004D2FD1   895DD0                 mov     [ebp-$30], ebx
004D2FD4   895DDC                 mov     [ebp-$24], ebx
004D2FD7   895DE0                 mov     [ebp-$20], ebx
004D2FDA   8B7508                 mov     esi, [ebp+$08]
004D2FDD   8D7DE4                 lea     edi, [ebp-$1C]
004D2FE0   51                     push    ecx
004D2FE1   B906000000             mov     ecx, $00000006
004D2FE6   F3                     rep
004D2FE7   A5                     movsd
004D2FE8   59                     pop     ecx
004D2FE9   894DFC                 mov     [ebp-$04], ecx
004D2FEC   8BF2                   mov     esi, edx
004D2FEE   8BD8                   mov     ebx, eax
004D2FF0   8B45FC                 mov     eax, [ebp-$04]

* Reference to: System.@LStrAddRef(void;void):Pointer;
|
004D2FF3   E8B01EF3FF             call    00404EA8
004D2FF8   33C0                   xor     eax, eax
004D2FFA   55                     push    ebp
004D2FFB   6828314D00             push    $004D3128

***** TRY
|
004D3000   64FF30                 push    dword ptr fs:[eax]
004D3003   648920                 mov     fs:[eax], esp
004D3006   66837DE800             cmp     word ptr [ebp-$18], +$00
004D300B   0F86A5000000           jbe     004D30B6
004D3011   8B45FC                 mov     eax, [ebp-$04]
004D3014   50                     push    eax
004D3015   8BCE                   mov     ecx, esi
004D3017   33D2                   xor     edx, edx
004D3019   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D301F   E850C6FBFF             call    0048F674
004D3024   8D55E0                 lea     edx, [ebp-$20]
004D3027   8B45E4                 mov     eax, [ebp-$1C]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D302A   E8D57FF3FF             call    0040B004
004D302F   8B45E0                 mov     eax, [ebp-$20]
004D3032   50                     push    eax
004D3033   8BCE                   mov     ecx, esi
004D3035   BA01000000             mov     edx, $00000001
004D303A   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D3040   E82FC6FBFF             call    0048F674
004D3045   8D4DDC                 lea     ecx, [ebp-$24]
004D3048   0FB755E8               movzx   edx, word ptr [ebp-$18]
004D304C   A1F87C4E00             mov     eax, dword ptr [$004E7CF8]
004D3051   8B00                   mov     eax, [eax]

|
004D3053   E8D4E6FFFF             call    004D172C
004D3058   8B45DC                 mov     eax, [ebp-$24]
004D305B   50                     push    eax
004D305C   8BCE                   mov     ecx, esi
004D305E   BA02000000             mov     edx, $00000002
004D3063   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D3069   E806C6FBFF             call    0048F674
004D306E   8D55D4                 lea     edx, [ebp-$2C]
004D3071   0FB745EA               movzx   eax, word ptr [ebp-$16]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D3075   E88A7FF3FF             call    0040B004
004D307A   FF75D4                 push    dword ptr [ebp-$2C]
004D307D   6840314D00             push    $004D3140
004D3082   8D55D0                 lea     edx, [ebp-$30]
004D3085   0FB745EC               movzx   eax, word ptr [ebp-$14]

* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
004D3089   E8767FF3FF             call    0040B004
004D308E   FF75D0                 push    dword ptr [ebp-$30]
004D3091   8D45D8                 lea     eax, [ebp-$28]
004D3094   BA03000000             mov     edx, $00000003

* Reference to: System.@LStrCatN;
|
004D3099   E8DA1CF3FF             call    00404D78
004D309E   8B45D8                 mov     eax, [ebp-$28]
004D30A1   50                     push    eax
004D30A2   8BCE                   mov     ecx, esi
004D30A4   BA03000000             mov     edx, $00000003
004D30A9   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D30AF   E8C0C5FBFF             call    0048F674
004D30B4   EB4F                   jmp     004D3105
004D30B6   8B45FC                 mov     eax, [ebp-$04]
004D30B9   50                     push    eax
004D30BA   8BCE                   mov     ecx, esi
004D30BC   33D2                   xor     edx, edx
004D30BE   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D30C4   E8ABC5FBFF             call    0048F674
004D30C9   6A00                   push    $00
004D30CB   8BCE                   mov     ecx, esi
004D30CD   BA01000000             mov     edx, $00000001
004D30D2   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D30D8   E897C5FBFF             call    0048F674
004D30DD   6A00                   push    $00
004D30DF   8BCE                   mov     ecx, esi
004D30E1   BA02000000             mov     edx, $00000002
004D30E6   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D30EC   E883C5FBFF             call    0048F674
004D30F1   6A00                   push    $00
004D30F3   8BCE                   mov     ecx, esi
004D30F5   BA03000000             mov     edx, $00000003
004D30FA   8B8300030000           mov     eax, [ebx+$0300]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D3100   E86FC5FBFF             call    0048F674
004D3105   33C0                   xor     eax, eax
004D3107   5A                     pop     edx
004D3108   59                     pop     ecx
004D3109   59                     pop     ecx
004D310A   648910                 mov     fs:[eax], edx

****** FINALLY
|
004D310D   682F314D00             push    $004D312F
004D3112   8D45D0                 lea     eax, [ebp-$30]
004D3115   BA05000000             mov     edx, $00000005

* Reference to: System.@LStrArrayClr(void;void;Integer);
|
004D311A   E8FD18F3FF             call    00404A1C
004D311F   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.@LStrClr(void;void);
|
004D3122   E8D118F3FF             call    004049F8
004D3127   C3                     ret


* Reference to: System.@HandleFinally;
|
004D3128   E92312F3FF             jmp     00404350
004D312D   EBE3                   jmp     004D3112

****** END
|
004D312F   5F                     pop     edi
004D3130   5E                     pop     esi
004D3131   5B                     pop     ebx
004D3132   8BE5                   mov     esp, ebp
004D3134   5D                     pop     ebp
004D3135   C20400                 ret     $0004

*)
end;

procedure TFrmFDBViewer._PROC_004D3145(Sender : TObject);
begin
(*
004D3145   8BEC                   mov     ebp, esp
004D3147   B915000000             mov     ecx, $00000015
004D314C   6A00                   push    $00
004D314E   6A00                   push    $00
004D3150   49                     dec     ecx
004D3151   75F9                   jnz     004D314C
004D3153   51                     push    ecx
004D3154   53                     push    ebx
004D3155   56                     push    esi
004D3156   8BD8                   mov     ebx, eax
004D3158   8D75FC                 lea     esi, [ebp-$04]
004D315B   33C0                   xor     eax, eax
004D315D   55                     push    ebp

* Possible String Reference to: '樨

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -