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

📄 db.pas

📁 vc遊戲可做參考.............
💻 PAS
📖 第 1 页 / 共 5 页
字号:
    procedure _PROC_0046E1C0(Sender : TObject);
    procedure _PROC_0046E260(Sender : TObject);
    procedure _PROC_0046E324(Sender : TObject);
    procedure _PROC_0046E374(Sender : TObject);
    procedure _PROC_0046E4AF(Sender : TObject);
    procedure _PROC_0046E508(Sender : TObject);
    procedure _PROC_0046E574(Sender : TObject);
    procedure _PROC_0046E6F4(Sender : TObject);
    procedure _PROC_0046E71C(Sender : TObject);
    procedure _PROC_0046E7F8(Sender : TObject);
    procedure _PROC_0046E87C(Sender : TObject);
    procedure _PROC_0046E8F4(Sender : TObject);
    procedure _PROC_0046E9C0(Sender : TObject);
    procedure _PROC_0046EA38(Sender : TObject);
    procedure _PROC_0046EBE8(Sender : TObject);
    procedure _PROC_0046EC40(Sender : TObject);
    procedure _PROC_0046EC4C(Sender : TObject);
    procedure _PROC_0046EC58(Sender : TObject);
    procedure _PROC_0046EC78(Sender : TObject);
    procedure _PROC_0046EC98(Sender : TObject);
    procedure _PROC_0046ECB0(Sender : TObject);
    procedure _PROC_0046ECB8(Sender : TObject);
    procedure _PROC_0046ECBC(Sender : TObject);
    procedure _PROC_0046ECE0(Sender : TObject);
    procedure _PROC_0046ED04(Sender : TObject);
    procedure _PROC_0046ED34(Sender : TObject);
    procedure _PROC_0046ED40(Sender : TObject);
    procedure _PROC_0046EDB4(Sender : TObject);
    procedure _PROC_0046EE0C(Sender : TObject);
    procedure _PROC_0046EE10(Sender : TObject);
    procedure _PROC_0046EE9C(Sender : TObject);
    procedure _PROC_0046EF30(Sender : TObject);
    procedure _PROC_0046EFC4(Sender : TObject);
    procedure _PROC_0046F168(Sender : TObject);
    procedure _PROC_0046F184(Sender : TObject);
    procedure _PROC_0046F190(Sender : TObject);
    procedure _PROC_0046F1C8(Sender : TObject);
    procedure _PROC_0046F251(Sender : TObject);
    procedure _PROC_0046F2A4(Sender : TObject);
    procedure _PROC_0046F359(Sender : TObject);
    procedure _PROC_0046F3E8(Sender : TObject);
    procedure _PROC_0046F4B4(Sender : TObject);
    procedure _PROC_0046F4EC(Sender : TObject);
    procedure _PROC_0046F524(Sender : TObject);
    procedure _PROC_0046F564(Sender : TObject);
    procedure _PROC_0046F5A8(Sender : TObject);
    procedure _PROC_0046F5C0(Sender : TObject);
    procedure _PROC_0046F5C8(Sender : TObject);
    procedure _PROC_0046F5CC(Sender : TObject);
    procedure _PROC_0046F5D0(Sender : TObject);
    procedure _PROC_0046F5D4(Sender : TObject);
    procedure _PROC_0046F5FC(Sender : TObject);
    procedure _PROC_0046F600(Sender : TObject);
    procedure _PROC_0046F608(Sender : TObject);
    procedure _PROC_0046F618(Sender : TObject);
    procedure _PROC_0046F62C(Sender : TObject);
    procedure _PROC_0046F648(Sender : TObject);
    procedure _PROC_0046F654(Sender : TObject);
    procedure _PROC_0046F668(Sender : TObject);
    procedure _PROC_0046F67C(Sender : TObject);
    procedure _PROC_0046F680(Sender : TObject);
    procedure _PROC_0046F684(Sender : TObject);
    procedure _PROC_0046F6E8(Sender : TObject);
    procedure _PROC_0046F6EC(Sender : TObject);
    procedure _PROC_0046F76C(Sender : TObject);
    procedure _PROC_0046F770(Sender : TObject);
    procedure _PROC_0046F774(Sender : TObject);
    procedure _PROC_0046F778(Sender : TObject);
    procedure _PROC_0046F77C(Sender : TObject);
    procedure _PROC_0046F780(Sender : TObject);
    procedure _PROC_0046F7A0(Sender : TObject);
    procedure _PROC_0046F7C0(Sender : TObject);
    procedure _PROC_0046F7E0(Sender : TObject);
    procedure _PROC_0046F800(Sender : TObject);
    procedure _PROC_0046F820(Sender : TObject);
    procedure _PROC_0046F854(Sender : TObject);
    procedure _PROC_0046F874(Sender : TObject);
    procedure _PROC_0046F894(Sender : TObject);
    procedure _PROC_0046F8B4(Sender : TObject);
    procedure _PROC_0046F8D4(Sender : TObject);
    procedure _PROC_0046F8F4(Sender : TObject);
    procedure _PROC_0046F914(Sender : TObject);
    procedure _PROC_0046F934(Sender : TObject);
    procedure _PROC_0046F954(Sender : TObject);
    procedure _PROC_0046F974(Sender : TObject);
    procedure _PROC_0046F994(Sender : TObject);
    procedure _PROC_0046F9B4(Sender : TObject);
    procedure _PROC_0046F9D4(Sender : TObject);
    procedure _PROC_0046F9F4(Sender : TObject);
    procedure _PROC_0046FA14(Sender : TObject);
    procedure _PROC_0046FA18(Sender : TObject);
    procedure _PROC_0046FA68(Sender : TObject);
    procedure _PROC_0046FAC0(Sender : TObject);
    procedure _PROC_0046FAC4(Sender : TObject);
    procedure _PROC_0046FAC8(Sender : TObject);
    procedure _PROC_0046FB4D(Sender : TObject);
    procedure _PROC_0046FD0D(Sender : TObject);
    procedure Db.Initialization(Sender : TObject);
    procedure Db.Finalization(Sender : TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  DataSet: TDataSet;

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

implementation

{$R *.DFM}

procedure TDataSet._PROC_00462221(Sender : TObject);
begin
(*
00462221   6E                     outsb
00462222   6B6E6F77               imul    ebp, [esi+$6F], $77
00462226   6E                     outsb
00462227   00FF                   add     bh, bh
00462229   FFFF                   DB  $FF, $FF  //      
0046222B   FF06                   inc     dword ptr [esi]
0046222D   0000                   add     [eax], al

*)
end;

procedure TDataSet._PROC_00462485(Sender : TObject);
begin
(*
00462485   8BEC                   mov     ebp, esp
00462487   51                     push    ecx
00462488   53                     push    ebx
00462489   56                     push    esi
0046248A   84D2                   test    dl, dl
0046248C   7408                   jz      00462496
0046248E   83C4F0                 add     esp, -$10

* Reference to: System.Proc_0040326C
|
00462491   E8D60DFAFF             call    0040326C
00462496   894DFC                 mov     [ebp-$04], ecx
00462499   8BDA                   mov     ebx, edx
0046249B   8BF0                   mov     esi, eax
0046249D   8B45FC                 mov     eax, [ebp-$04]

* Reference to: System.Proc_00404188
|
004624A0   E8E31CFAFF             call    00404188
004624A5   8B4514                 mov     eax, [ebp+$14]

* Reference to: System.Proc_00404188
|
004624A8   E8DB1CFAFF             call    00404188
004624AD   33C0                   xor     eax, eax
004624AF   55                     push    ebp
004624B0   6802254600             push    $00462502

***** TRY
|
004624B5   64FF30                 push    dword ptr fs:[eax]
004624B8   648920                 mov     fs:[eax], esp

* Reference to field TDataSet.OFFS_0014
|
004624BB   8D4614                 lea     eax, [esi+$14]
004624BE   8B5514                 mov     edx, [ebp+$14]

* Reference to: System.Proc_00403DA8
|
004624C1   E8E218FAFF             call    00403DA8
004624C6   8B4510                 mov     eax, [ebp+$10]

* Reference to field TDataSet.OFFS_000C
|
004624C9   89460C                 mov     [esi+$0C], eax
004624CC   8B450C                 mov     eax, [ebp+$0C]

* Reference to field TDataSet.OFFS_0010
|
004624CF   894610                 mov     [esi+$10], eax
004624D2   8B4508                 mov     eax, [ebp+$08]

* Reference to field TDataSet.OFFS_0018
|
004624D5   894618                 mov     [esi+$18], eax
004624D8   8B4DFC                 mov     ecx, [ebp-$04]
004624DB   33D2                   xor     edx, edx
004624DD   8BC6                   mov     eax, esi

* Reference to: Unit_004088DC.Proc_0040CB98
|
004624DF   E8B4A6FAFF             call    0040CB98
004624E4   33C0                   xor     eax, eax
004624E6   5A                     pop     edx
004624E7   59                     pop     ecx
004624E8   59                     pop     ecx
004624E9   648910                 mov     fs:[eax], edx

****** FINALLY
|
004624EC   6809254600             push    $00462509
004624F1   8D45FC                 lea     eax, [ebp-$04]

* Reference to: System.Proc_00403D54
|
004624F4   E85B18FAFF             call    00403D54
004624F9   8D4514                 lea     eax, [ebp+$14]

* Reference to: System.Proc_00403D54
|
004624FC   E85318FAFF             call    00403D54
00462501   C3                     ret


* Reference to: System.Proc_0040368C
|
00462502   E98511FAFF             jmp     0040368C
00462507   EBE8                   jmp     004624F1

****** END
|
00462509   8BC6                   mov     eax, esi
0046250B   84DB                   test    bl, bl
0046250D   740F                   jz      0046251E

* Reference to: System.Proc_004032C4
|
0046250F   E8B00DFAFF             call    004032C4
00462514   648F0500000000         pop     dword ptr fs:[$00000000]
0046251B   83C40C                 add     esp, +$0C
0046251E   8BC6                   mov     eax, esi
00462520   5E                     pop     esi
00462521   5B                     pop     ebx
00462522   59                     pop     ecx
00462523   5D                     pop     ebp
00462524   C21000                 ret     $0010

*)
end;

procedure TDataSet._PROC_00462528(Sender : TObject);
begin
(*
00462528   53                     push    ebx
00462529   56                     push    esi

* Reference to: System.Proc_004032CC
|
0046252A   E89D0DFAFF             call    004032CC
0046252F   8BDA                   mov     ebx, edx
00462531   8BF0                   mov     esi, eax

* Reference to field TDataSet.OFFS_0018
|
00462533   8B4618                 mov     eax, [esi+$18]

* Reference to: System.Proc_00402F6C
|
00462536   E8310AFAFF             call    00402F6C
0046253B   8BD3                   mov     edx, ebx
0046253D   80E2FC                 and     dl, $FC
00462540   8BC6                   mov     eax, esi

* Reference to: System.Proc_00402F5C
|
00462542   E8150AFAFF             call    00402F5C
00462547   84DB                   test    bl, bl
00462549   7E07                   jle     00462552
0046254B   8BC6                   mov     eax, esi

* Reference to: System.Proc_004032BC
|
0046254D   E86A0DFAFF             call    004032BC
00462552   5E                     pop     esi
00462553   5B                     pop     ebx
00462554   C3                     ret

*)
end;

procedure TDataSet._PROC_00462558(Sender : TObject);
begin
(*
00462558   55                     push    ebp
00462559   8BEC                   mov     ebp, esp
0046255B   83C4EC                 add     esp, -$14
0046255E   53                     push    ebx
0046255F   56                     push    esi
00462560   33C9                   xor     ecx, ecx
00462562   894DFC                 mov     [ebp-$04], ecx
00462565   8BDA                   mov     ebx, edx
00462567   8BF0                   mov     esi, eax
00462569   33C0                   xor     eax, eax
0046256B   55                     push    ebp
0046256C   68E7254600             push    $004625E7

***** TRY
|
00462571   64FF30                 push    dword ptr fs:[eax]
00462574   648920                 mov     fs:[eax], esp
00462577   85DB                   test    ebx, ebx
00462579   7443                   jz      004625BE
0046257B   837B0800               cmp     dword ptr [ebx+$08], +$00
0046257F   743D                   jz      004625BE
00462581   8D45FC                 lea     eax, [ebp-$04]
00462584   50                     push    eax
00462585   8B4308                 mov     eax, [ebx+$08]
00462588   8945EC                 mov     [ebp-$14], eax
0046258B   C645F00B               mov     byte ptr [ebp-$10], $0B
0046258F   8975F4                 mov     [ebp-$0C], esi
00462592   C645F80B               mov     byte ptr [ebp-$08], $0B
00462596   8D55EC                 lea     edx, [ebp-$14]
00462599   B901000000             mov     ecx, $00000001

⌨️ 快捷键说明

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