📄 db.pas
字号:
* Possible String Reference to: '%s: %s'
|
0046259E B8FC254600 mov eax, $004625FC
* Reference to: Unit_004088DC.Proc_0040A518
|
004625A3 E8707FFAFF call 0040A518
004625A8 8B4DFC mov ecx, [ebp-$04]
004625AB B201 mov dl, $01
* Reference to class EDatabaseError
|
004625AD A1B0D04500 mov eax, dword ptr [$0045D0B0]
* Reference to: Unit_004088DC.Proc_0040CB98
|
004625B2 E8E1A5FAFF call 0040CB98
* Reference to: System.Proc_00403784
|
004625B7 E8C811FAFF call 00403784
004625BC EB13 jmp 004625D1
004625BE 8BCE mov ecx, esi
004625C0 B201 mov dl, $01
* Reference to class EDatabaseError
|
004625C2 A1B0D04500 mov eax, dword ptr [$0045D0B0]
* Reference to: Unit_004088DC.Proc_0040CB98
|
004625C7 E8CCA5FAFF call 0040CB98
* Reference to: System.Proc_00403784
|
004625CC E8B311FAFF call 00403784
004625D1 33C0 xor eax, eax
004625D3 5A pop edx
004625D4 59 pop ecx
004625D5 59 pop ecx
004625D6 648910 mov fs:[eax], edx
****** FINALLY
|
004625D9 68EE254600 push $004625EE
004625DE 8D45FC lea eax, [ebp-$04]
* Reference to: System.Proc_00403D54
|
004625E1 E86E17FAFF call 00403D54
004625E6 C3 ret
* Reference to: System.Proc_0040368C
|
004625E7 E9A010FAFF jmp 0040368C
004625EC EBF0 jmp 004625DE
****** END
|
004625EE 5E pop esi
004625EF 5B pop ebx
004625F0 8BE5 mov esp, ebp
004625F2 5D pop ebp
004625F3 C3 ret
*)
end;
procedure TDataSet._PROC_00462605(Sender : TObject);
begin
(*
00462605 8BEC mov ebp, esp
00462607 6A00 push $00
00462609 53 push ebx
0046260A 56 push esi
0046260B 57 push edi
0046260C 8BF9 mov edi, ecx
0046260E 8BF2 mov esi, edx
00462610 8BD8 mov ebx, eax
00462612 33C0 xor eax, eax
00462614 55 push ebp
00462615 6850264600 push $00462650
***** TRY
|
0046261A 64FF30 push dword ptr fs:[eax]
0046261D 648920 mov fs:[eax], esp
00462620 8D45FC lea eax, [ebp-$04]
00462623 50 push eax
00462624 8BD6 mov edx, esi
00462626 8BCF mov ecx, edi
00462628 8BC3 mov eax, ebx
* Reference to: Unit_004088DC.Proc_0040A518
|
0046262A E8E97EFAFF call 0040A518
0046262F 8B45FC mov eax, [ebp-$04]
00462632 8B5508 mov edx, [ebp+$08]
* Reference to : TDataSet._PROC_00462558()
|
00462635 E81EFFFFFF call 00462558
0046263A 33C0 xor eax, eax
0046263C 5A pop edx
0046263D 59 pop ecx
0046263E 59 pop ecx
0046263F 648910 mov fs:[eax], edx
****** FINALLY
|
00462642 6857264600 push $00462657
00462647 8D45FC lea eax, [ebp-$04]
* Reference to: System.Proc_00403D54
|
0046264A E80517FAFF call 00403D54
0046264F C3 ret
* Reference to: System.Proc_0040368C
|
00462650 E93710FAFF jmp 0040368C
00462655 EBF0 jmp 00462647
****** END
|
00462657 5F pop edi
00462658 5E pop esi
00462659 5B pop ebx
0046265A 59 pop ecx
0046265B 5D pop ebp
0046265C C20400 ret $0004
*)
end;
procedure TDataSet._PROC_00462660(Sender : TObject);
begin
(*
00462660 53 push ebx
00462661 8BD8 mov ebx, eax
00462663 8B03 mov eax, [ebx]
00462665 85C0 test eax, eax
00462667 7409 jz 00462672
* Reference to: System.Proc_00402818
|
00462669 E8AA01FAFF call 00402818
0046266E 33C0 xor eax, eax
00462670 8903 mov [ebx], eax
00462672 5B pop ebx
00462673 C3 ret
*)
end;
procedure TDataSet._PROC_00462674(Sender : TObject);
begin
(*
00462674 55 push ebp
00462675 8BEC mov ebp, esp
00462677 83C4C0 add esp, -$40
0046267A 53 push ebx
0046267B 56 push esi
0046267C 57 push edi
0046267D 89C6 mov esi, eax
0046267F 87D1 xchg ecx, edx
00462681 880E mov [esi], cl
00462683 885601 mov [esi+$01], dl
00462686 83EA04 sub edx, +$04
00462689 741A jz 004626A5
0046268B 770F jnbe 0046269C
0046268D DF6D08 fild qword ptr [ebp+$08]
00462690 D834956C0E5000 fdiv dword ptr [$500E6C+edx*4]
00462697 DF7D08 fistp qword ptr [ebp+$08]
0046269A EB09 jmp 004626A5
0046269C 49 dec ecx
0046269D C6440DC000 mov byte ptr [ebp+ecx-$40], $00
004626A2 4A dec edx
004626A3 75F7 jnz 0046269C
004626A5 8B4508 mov eax, [ebp+$08]
004626A8 8B5D0C mov ebx, [ebp+$0C]
004626AB 09DB or ebx, ebx
004626AD 790B jns 004626BA
004626AF F7DB neg ebx
004626B1 F7D8 neg eax
004626B3 83DB00 sbb ebx, +$00
004626B6 804E0180 or byte ptr [esi+$01], $80
004626BA BF0A000000 mov edi, $0000000A
004626BF 89C2 mov edx, eax
004626C1 09DA or edx, ebx
004626C3 740C jz 004626D1
004626C5 31D2 xor edx, edx
004626C7 09DB or ebx, ebx
004626C9 7404 jz 004626CF
004626CB 93 xchg eax, ebx
004626CC F7F7 div edi
004626CE 93 xchg eax, ebx
004626CF F7F7 div edi
004626D1 88540DBF mov [ebp+ecx-$41], dl
004626D5 49 dec ecx
004626D6 75E7 jnz 004626BF
004626D8 09D8 or eax, ebx
004626DA B000 mov al, $00
004626DC 7518 jnz 004626F6
004626DE 8A0E mov cl, byte ptr [esi]
004626E0 41 inc ecx
004626E1 D1E9 shr ecx, 1
004626E3 668B444DBE mov ax, word ptr [ebp+ecx*2-$42]
004626E8 C0E004 shl al, $04
004626EB 08E0 or al, ah
004626ED 88440E01 mov [esi+ecx+$01], al
004626F1 49 dec ecx
004626F2 75EF jnz 004626E3
004626F4 B001 mov al, $01
004626F6 5F pop edi
004626F7 5E pop esi
004626F8 5B pop ebx
004626F9 8BE5 mov esp, ebp
004626FB 5D pop ebp
004626FC C20800 ret $0008
*)
end;
procedure TDataSet._PROC_00462700(Sender : TObject);
begin
(*
00462700 55 push ebp
00462701 8BEC mov ebp, esp
00462703 83C4B8 add esp, -$48
00462706 53 push ebx
00462707 56 push esi
00462708 89C3 mov ebx, eax
0046270A 89D6 mov esi, edx
0046270C B000 mov al, $00
0046270E 0FB613 movzx edx, byte ptr [ebx]
00462711 09D2 or edx, edx
00462713 747A jz 0046278F
00462715 8D4A01 lea ecx, [edx+$01]
00462718 D1E9 shr ecx, 1
0046271A 8A440B01 mov al, byte ptr [ebx+ecx+$01]
0046271E 88C4 mov ah, al
00462720 C0E804 shr al, $04
00462723 80E40F and ah, $0F
00462726 6689444DBE mov [ebp+ecx*2-$42], ax
0046272B 49 dec ecx
0046272C 75EC jnz 0046271A
0046272E 31C0 xor eax, eax
00462730 8A440DC0 mov al, byte ptr [ebp+ecx-$40]
00462734 08C0 or al, al
00462736 7509 jnz 00462741
00462738 41 inc ecx
00462739 39D1 cmp ecx, edx
0046273B 75F3 jnz 00462730
0046273D D9EE fldz
0046273F EB33 jmp 00462774
00462741 8945BC mov [ebp-$44], eax
00462744 DB45BC fild dword ptr [ebp-$44]
00462747 41 inc ecx
00462748 39D1 cmp ecx, edx
0046274A 7412 jz 0046275E
0046274C D80D6C0E5000 fmul dword ptr [$00500E6C]
00462752 8A440DC0 mov al, byte ptr [ebp+ecx-$40]
00462756 8945BC mov [ebp-$44], eax
00462759 DA45BC fiadd dword ptr [ebp-$44]
0046275C EBE9 jmp 00462747
* Reference to field TDataSet.OFFS_0001
|
0046275E 8A4301 mov al, byte ptr [ebx+$01]
00462761 08C0 or al, al
00462763 7902 jns 00462767
00462765 D9E0 fchs
00462767 83E03F and eax, +$3F
0046276A 83E804 sub eax, +$04
0046276D F7D8 neg eax
* Reference to: System.Proc_00407170
|
0046276F E8FC49FAFF call 00407170
00462774 9B wait
00462775 D97DBA fstcw word ptr [ebp-$46]
00462778 D92D700E5000 fldcw word ptr [$00500E70]
0046277E DF3E fistp qword ptr [esi]
00462780 9B wait
00462781 DFE0 fstsw ax
00462783 F6D0 not al
00462785 80E001 and al, $01
00462788 9B wait
00462789 DBE2 fclex
0046278B D96DBA fldcw word ptr [ebp-$46]
0046278E 9B wait
0046278F 5E pop esi
00462790 5B pop ebx
00462791 8BE5 mov esp, ebp
00462793 5D pop ebp
00462794 C3 ret
*)
end;
procedure TDataSet._PROC_00462798(Sender : TObject);
begin
(*
00462798 55 push ebp
00462799 8BEC mov ebp, esp
0046279B 83C4F8 add esp, -$08
0046279E 53 push ebx
0046279F 56 push esi
004627A0 57 push edi
004627A1 33DB xor ebx, ebx
004627A3 895DF8 mov [ebp-$08], ebx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -