📄 db.pas
字号:
004627A6 894DFC mov [ebp-$04], ecx
004627A9 8BFA mov edi, edx
004627AB 8BF0 mov esi, eax
004627AD 33C0 xor eax, eax
004627AF 55 push ebp
004627B0 6819284600 push $00462819
***** TRY
|
004627B5 64FF30 push dword ptr fs:[eax]
004627B8 648920 mov fs:[eax], esp
004627BB 8B1F mov ebx, [edi]
004627BD EB01 jmp 004627C0
004627BF 43 inc ebx
004627C0 8BC6 mov eax, esi
* Reference to: System.Proc_00403FD4
|
004627C2 E80D18FAFF call 00403FD4
004627C7 3BD8 cmp ebx, eax
004627C9 7F07 jnle 004627D2
004627CB 807C1EFF3B cmp byte ptr [esi+ebx-$01], $3B
004627D0 75ED jnz 004627BF
004627D2 8D45F8 lea eax, [ebp-$08]
004627D5 50 push eax
004627D6 8BCB mov ecx, ebx
004627D8 2B0F sub ecx, dword ptr [edi]
004627DA 8B17 mov edx, [edi]
004627DC 8BC6 mov eax, esi
* Reference to: System.Proc_004041DC
|
004627DE E8F919FAFF call 004041DC
004627E3 8B45F8 mov eax, [ebp-$08]
004627E6 8B55FC mov edx, [ebp-$04]
* Reference to: Unit_004088DC.Proc_0040974C
|
004627E9 E85E6FFAFF call 0040974C
004627EE 8BC6 mov eax, esi
* Reference to: System.Proc_00403FD4
|
004627F0 E8DF17FAFF call 00403FD4
004627F5 3BD8 cmp ebx, eax
004627F7 7F08 jnle 00462801
004627F9 807C1EFF3B cmp byte ptr [esi+ebx-$01], $3B
004627FE 7501 jnz 00462801
00462800 43 inc ebx
00462801 891F mov [edi], ebx
00462803 33C0 xor eax, eax
00462805 5A pop edx
00462806 59 pop ecx
00462807 59 pop ecx
00462808 648910 mov fs:[eax], edx
****** FINALLY
|
0046280B 6820284600 push $00462820
00462810 8D45F8 lea eax, [ebp-$08]
* Reference to: System.Proc_00403D54
|
00462813 E83C15FAFF call 00403D54
00462818 C3 ret
* Reference to: System.Proc_0040368C
|
00462819 E96E0EFAFF jmp 0040368C
0046281E EBF0 jmp 00462810
****** END
|
00462820 5F pop edi
00462821 5E pop esi
00462822 5B pop ebx
00462823 59 pop ecx
00462824 59 pop ecx
00462825 5D pop ebp
00462826 C3 ret
*)
end;
procedure TDataSet._PROC_00462828(Sender : TObject);
begin
(*
00462828 83F807 cmp eax, +$07
0046282B 7F14 jnle 00462841
0046282D 7436 jz 00462865
0046282F 83E802 sub eax, +$02
00462832 7425 jz 00462859
00462834 48 dec eax
00462835 7425 jz 0046285C
00462837 48 dec eax
00462838 83E802 sub eax, +$02
0046283B 7225 jb 00462862
0046283D 7420 jz 0046285F
0046283F EB2D jmp 0046286E
00462841 83E808 sub eax, +$08
00462844 7425 jz 0046286B
00462846 83E803 sub eax, +$03
00462849 741D jz 00462868
0046284B 83E806 sub eax, +$06
0046284E 7409 jz 00462859
00462850 2DEF000000 sub eax, $000000EF
00462855 7414 jz 0046286B
00462857 EB15 jmp 0046286E
00462859 B002 mov al, $02
0046285B C3 ret
0046285C B003 mov al, $03
0046285E C3 ret
0046285F B008 mov al, $08
00462861 C3 ret
00462862 B006 mov al, $06
00462864 C3 ret
00462865 B00B mov al, $0B
00462867 C3 ret
00462868 B005 mov al, $05
0046286A C3 ret
0046286B B001 mov al, $01
0046286D C3 ret
0046286E 33C0 xor eax, eax
00462870 C3 ret
*)
end;
procedure TDataSet._PROC_00462874(Sender : TObject);
begin
(*
00462874 53 push ebx
00462875 56 push esi
00462876 84D2 test dl, dl
00462878 7408 jz 00462882
0046287A 83C4F0 add esp, -$10
* Reference to: System.Proc_0040326C
|
0046287D E8EA09FAFF call 0040326C
00462882 8BDA mov ebx, edx
00462884 8BF0 mov esi, eax
00462886 33D2 xor edx, edx
00462888 8BC6 mov eax, esi
* Reference to: Classes.Proc_0041714C
|
0046288A E8BD48FBFF call 0041714C
0046288F B201 mov dl, $01
* Reference to class TList
|
00462891 A140014100 mov eax, dword ptr [$00410140]
* Reference to: System.Proc_00402F3C
|
00462896 E8A106FAFF call 00402F3C
* Reference to field TDataSet.OFFS_0028
|
0046289B 894628 mov [esi+$28], eax
0046289E B201 mov dl, $01
* Reference to class TList
|
004628A0 A140014100 mov eax, dword ptr [$00410140]
* Reference to: System.Proc_00402F3C
|
004628A5 E89206FAFF call 00402F3C
* Reference to field TDataSet.OFFS_0024
|
004628AA 894624 mov [esi+$24], eax
004628AD B201 mov dl, $01
* Reference to class TList
|
004628AF A140014100 mov eax, dword ptr [$00410140]
* Reference to: System.Proc_00402F3C
|
004628B4 E88306FAFF call 00402F3C
* Reference to field TDataSet.OFFS_002C
|
004628B9 89462C mov [esi+$2C], eax
004628BC 8BC6 mov eax, esi
004628BE 84DB test bl, bl
004628C0 740F jz 004628D1
* Reference to: System.Proc_004032C4
|
004628C2 E8FD09FAFF call 004032C4
004628C7 648F0500000000 pop dword ptr fs:[$00000000]
004628CE 83C40C add esp, +$0C
004628D1 8BC6 mov eax, esi
004628D3 5E pop esi
004628D4 5B pop ebx
004628D5 C3 ret
*)
end;
procedure TDataSet._PROC_004628D8(Sender : TObject);
begin
(*
004628D8 53 push ebx
004628D9 56 push esi
* Reference to: System.Proc_004032CC
|
004628DA E8ED09FAFF call 004032CC
004628DF 8BDA mov ebx, edx
004628E1 8BF0 mov esi, eax
004628E3 8BD3 mov edx, ebx
004628E5 80E2FC and dl, $FC
004628E8 8BC6 mov eax, esi
* Reference to: Classes.Proc_00417198
|
004628EA E8A948FBFF call 00417198
004628EF 33D2 xor edx, edx
004628F1 8BC6 mov eax, esi
004628F3 8B08 mov ecx, [eax]
* Possible reference to virtual method TDataSet.OFFS_48
|
004628F5 FF5148 call dword ptr [ecx+$48]
* Reference to field TDataSet.OFFS_002C
|
004628F8 8D462C lea eax, [esi+$2C]
* Reference to: Unit_004088DC.Proc_0040E28C
|
004628FB E88CB9FAFF call 0040E28C
* Reference to field TDataSet.OFFS_0024
|
00462900 8D4624 lea eax, [esi+$24]
* Reference to: Unit_004088DC.Proc_0040E28C
|
00462903 E884B9FAFF call 0040E28C
* Reference to field TDataSet.OFFS_0028
|
00462908 8D4628 lea eax, [esi+$28]
* Reference to: Unit_004088DC.Proc_0040E28C
|
0046290B E87CB9FAFF call 0040E28C
00462910 84DB test bl, bl
00462912 7E07 jle 0046291B
00462914 8BC6 mov eax, esi
* Reference to: System.Proc_004032BC
|
00462916 E8A109FAFF call 004032BC
0046291B 5E pop esi
0046291C 5B pop ebx
0046291D C3 ret
*)
end;
procedure TDataSet._PROC_00462920(Sender : TObject);
begin
(*
00462920 55 push ebp
00462921 8BEC mov ebp, esp
00462923 51 push ecx
00462924 53 push ebx
00462925 56 push esi
00462926 57 push edi
00462927 8945FC mov [ebp-$04], eax
0046292A 8B45FC mov eax, [ebp-$04]
* Reference to: Classes.Proc_004175AC
|
0046292D E87A4CFBFF call 004175AC
00462932 33C0 xor eax, eax
00462934 55 push ebp
00462935 685D294600 push $0046295D
***** TRY
|
0046293A 64FF30 push dword ptr fs:[eax]
0046293D 648920 mov fs:[eax], esp
00462940 8B45FC mov eax, [ebp-$04]
* Reference to field TDataSet.OFFS_0031
|
00462943 80783100 cmp byte ptr [eax+$31], $00
00462947 740A jz 00462953
00462949 B201 mov dl, $01
0046294B 8B45FC mov eax, [ebp-$04]
0046294E 8B08 mov ecx, [eax]
* Possible reference to virtual method TDataSet.OFFS_48
|
00462950 FF5148 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -