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

📄 viewrcd.pas

📁 大名鼎鼎的BLUE M2源码,非了好大的劲搞来的,修改日期是080514,需要的朋友可以拿去研究,呵呵,M2界的领头老大.
💻 PAS
📖 第 1 页 / 共 3 页
字号:
unit viewrcd;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, StdCtrls
type
  TFrmFDBViewer=class(TForm)
    TabbedNotebook1: TTabbedNotebook;
    HumanGrid: TStringGrid;
    BagItemGrid: TStringGrid;
    SaveItemGrid: TStringGrid;
    UseMagicGrid: TStringGrid;
    procedure FormCreate(Sender : TObject);
    procedure _PROC_004D261C(Sender : TObject);
    procedure _PROC_004D2670(Sender : TObject);
    procedure _PROC_004D2E2A(Sender : TObject);
    procedure _PROC_004D2E41(Sender : TObject);
    procedure _PROC_004D2E58(Sender : TObject);
    procedure _PROC_004D2E6F(Sender : TObject);
    procedure _PROC_004D2ECE(Sender : TObject);
    procedure _PROC_004D2EE5(Sender : TObject);
    procedure _PROC_004D2EFC(Sender : TObject);
    procedure _PROC_004D2F4E(Sender : TObject);
    procedure _PROC_004D2F65(Sender : TObject);
    procedure _PROC_004D2F7C(Sender : TObject);
    procedure _PROC_004D2FC1(Sender : TObject);
    procedure _PROC_004D3145(Sender : TObject);
    procedure _PROC_004D3880(Sender : TObject);
    procedure _PROC_004D3B49(Sender : TObject);
    procedure _PROC_004D3C78(Sender : TObject);
    procedure _PROC_004D3DDD(Sender : TObject);
    procedure _PROC_004D3E0C(Sender : TObject);
    procedure _PROC_004D3E14(Sender : TObject);
    procedure _PROC_004D3E9A(Sender : TObject);
    procedure _PROC_004D4104(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  FrmFDBViewer: TFrmFDBViewer;

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

implementation

{$R *.DFM}

procedure TFrmFDBViewer.FormCreate(Sender : TObject);
begin
(*
004D25F8   53                     push    ebx
004D25F9   8BD8                   mov     ebx, eax
004D25FB   8BC3                   mov     eax, ebx

* Reference to : TFrmFDBViewer._PROC_004D2670()
|
004D25FD   E86E000000             call    004D2670
004D2602   8BC3                   mov     eax, ebx

|
004D2604   E813080000             call    004D2E1C
004D2609   8BC3                   mov     eax, ebx

|
004D260B   E8B0080000             call    004D2EC0
004D2610   8BC3                   mov     eax, ebx

|
004D2612   E829090000             call    004D2F40
004D2617   5B                     pop     ebx
004D2618   C3                     ret

*)
end;

procedure TFrmFDBViewer._PROC_004D261C(Sender : TObject);
begin
(*
004D261C   53                     push    ebx
004D261D   8BD8                   mov     ebx, eax
004D261F   8B83FC020000           mov     eax, [ebx+$02FC]
004D2625   80785700               cmp     byte ptr [eax+$57], $00
004D2629   7407                   jz      004D2632
004D262B   8BC3                   mov     eax, ebx

|
004D262D   E8120B0000             call    004D3144
004D2632   8B8300030000           mov     eax, [ebx+$0300]
004D2638   80785700               cmp     byte ptr [eax+$57], $00
004D263C   7407                   jz      004D2645
004D263E   8BC3                   mov     eax, ebx

* Reference to : TFrmFDBViewer._PROC_004D3880()
|
004D2640   E83B120000             call    004D3880
004D2645   8B8308030000           mov     eax, [ebx+$0308]
004D264B   80785700               cmp     byte ptr [eax+$57], $00
004D264F   7407                   jz      004D2658
004D2651   8BC3                   mov     eax, ebx

|
004D2653   E8F0140000             call    004D3B48
004D2658   8B8304030000           mov     eax, [ebx+$0304]
004D265E   80785700               cmp     byte ptr [eax+$57], $00
004D2662   7407                   jz      004D266B
004D2664   8BC3                   mov     eax, ebx

* Reference to : TFrmFDBViewer._PROC_004D3C78()
|
004D2666   E80D160000             call    004D3C78
004D266B   5B                     pop     ebx
004D266C   C3                     ret

*)
end;

procedure TFrmFDBViewer._PROC_004D2670(Sender : TObject);
begin
(*
004D2670   53                     push    ebx
004D2671   8BD8                   mov     ebx, eax

* Possible String Reference to: '索引号'
|
004D2673   68482B4D00             push    $004D2B48
004D2678   B901000000             mov     ecx, $00000001
004D267D   33D2                   xor     edx, edx
004D267F   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2685   E8EACFFBFF             call    0048F674

* Possible String Reference to: '名称'
|
004D268A   68582B4D00             push    $004D2B58
004D268F   B901000000             mov     ecx, $00000001
004D2694   BA01000000             mov     edx, $00000001
004D2699   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D269F   E8D0CFFBFF             call    0048F674

* Possible String Reference to: '地图'
|
004D26A4   68682B4D00             push    $004D2B68
004D26A9   B901000000             mov     ecx, $00000001
004D26AE   BA02000000             mov     edx, $00000002
004D26B3   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D26B9   E8B6CFFBFF             call    0048F674

* Possible String Reference to: 'CX'
|
004D26BE   68782B4D00             push    $004D2B78
004D26C3   B901000000             mov     ecx, $00000001
004D26C8   BA03000000             mov     edx, $00000003
004D26CD   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D26D3   E89CCFFBFF             call    0048F674

* Possible String Reference to: 'CY'
|
004D26D8   68842B4D00             push    $004D2B84
004D26DD   B901000000             mov     ecx, $00000001
004D26E2   BA04000000             mov     edx, $00000004
004D26E7   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D26ED   E882CFFBFF             call    0048F674

* Possible String Reference to: '方向'
|
004D26F2   68902B4D00             push    $004D2B90
004D26F7   B901000000             mov     ecx, $00000001
004D26FC   BA05000000             mov     edx, $00000005
004D2701   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2707   E868CFFBFF             call    0048F674

* Possible String Reference to: '职业'
|
004D270C   68A02B4D00             push    $004D2BA0
004D2711   B901000000             mov     ecx, $00000001
004D2716   BA06000000             mov     edx, $00000006
004D271B   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2721   E84ECFFBFF             call    0048F674

* Possible String Reference to: '性别'
|
004D2726   68B02B4D00             push    $004D2BB0
004D272B   B901000000             mov     ecx, $00000001
004D2730   BA07000000             mov     edx, $00000007
004D2735   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D273B   E834CFFBFF             call    0048F674

* Possible String Reference to: '头发'
|
004D2740   68C02B4D00             push    $004D2BC0
004D2745   B901000000             mov     ecx, $00000001
004D274A   BA08000000             mov     edx, $00000008
004D274F   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2755   E81ACFFBFF             call    0048F674

* Possible String Reference to: '金币数'
|
004D275A   68D02B4D00             push    $004D2BD0
004D275F   B901000000             mov     ecx, $00000001
004D2764   BA09000000             mov     edx, $00000009
004D2769   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D276F   E800CFFBFF             call    0048F674

* Possible String Reference to: '别名'
|
004D2774   68E02B4D00             push    $004D2BE0
004D2779   B901000000             mov     ecx, $00000001
004D277E   BA0A000000             mov     edx, $0000000A
004D2783   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2789   E8E6CEFBFF             call    0048F674

* Possible String Reference to: '回城地图'
|
004D278E   68F02B4D00             push    $004D2BF0
004D2793   B901000000             mov     ecx, $00000001
004D2798   BA0B000000             mov     edx, $0000000B
004D279D   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D27A3   E8CCCEFBFF             call    0048F674

* Possible String Reference to: '回城X'
|
004D27A8   68042C4D00             push    $004D2C04
004D27AD   B903000000             mov     ecx, $00000003
004D27B2   33D2                   xor     edx, edx
004D27B4   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D27BA   E8B5CEFBFF             call    0048F674

* Possible String Reference to: '回城Y'
|
004D27BF   68142C4D00             push    $004D2C14
004D27C4   B903000000             mov     ecx, $00000003
004D27C9   BA01000000             mov     edx, $00000001
004D27CE   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D27D4   E89BCEFBFF             call    0048F674

* Possible String Reference to: '等级'
|
004D27D9   68242C4D00             push    $004D2C24
004D27DE   B903000000             mov     ecx, $00000003
004D27E3   BA02000000             mov     edx, $00000002
004D27E8   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D27EE   E881CEFBFF             call    0048F674

* Possible String Reference to: 'AC'
|
004D27F3   68342C4D00             push    $004D2C34
004D27F8   B903000000             mov     ecx, $00000003
004D27FD   BA03000000             mov     edx, $00000003
004D2802   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2808   E867CEFBFF             call    0048F674

* Possible String Reference to: 'MAC'
|
004D280D   68402C4D00             push    $004D2C40
004D2812   B903000000             mov     ecx, $00000003
004D2817   BA04000000             mov     edx, $00000004
004D281C   8B83FC020000           mov     eax, [ebx+$02FC]

* Reference to: Grids.TStringGrid.SetCells(TStringGrid;Integer;Integer;AnsiString);
|
004D2822   E84DCEFBFF             call    0048F674

⌨️ 快捷键说明

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