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

📄 unit15.pas

📁 音像租赁管理系统 进行音像店的日常工作管理!
💻 PAS
📖 第 1 页 / 共 2 页
字号:
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
005323B2   E82535EDFF             call    004058DC
005323B7   FF75D8                 push    dword ptr [ebp-$28]
005323BA   FF75D4                 push    dword ptr [ebp-$2C]
005323BD   FF75D0                 push    dword ptr [ebp-$30]
005323C0   FF75CC                 push    dword ptr [ebp-$34]
005323C3   8D45C8                 lea     eax, [ebp-$38]

* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
005323C6   E86944EDFF             call    00406834
005323CB   50                     push    eax

* Reference to control Tsaledisc.ADOQuery4 : TADOQuery
|
005323CC   8B8304040000           mov     eax, [ebx+$0404]

* Reference to field TADOQuery.OFFS_0178
|
005323D2   8B8078010000           mov     eax, [eax+$0178]
005323D8   50                     push    eax
005323D9   8B00                   mov     eax, [eax]
005323DB   FF5054                 call    dword ptr [eax+$54]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005323DE   E85D45EDFF             call    00406940
005323E3   8B45C8                 mov     eax, [ebp-$38]
005323E6   50                     push    eax
005323E7   8B00                   mov     eax, [eax]
005323E9   FF5028                 call    dword ptr [eax+$28]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005323EC   E84F45EDFF             call    00406940
005323F1   8B45DC                 mov     eax, [ebp-$24]
005323F4   50                     push    eax
005323F5   8B00                   mov     eax, [eax]
005323F7   FF5034                 call    dword ptr [eax+$34]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005323FA   E84145EDFF             call    00406940
005323FF   8D45E0                 lea     eax, [ebp-$20]

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
00532402   E81134EDFF             call    00405818
00532407   8D55F0                 lea     edx, [ebp-$10]

* Reference to: Unit_004081C8.Proc_00409430
|
0053240A   E82170EDFF             call    00409430
0053240F   FF75F0                 push    dword ptr [ebp-$10]

* Possible String Reference to: ' 位'
|
00532412   6874265300             push    $00532674
00532417   8D45FC                 lea     eax, [ebp-$04]
0053241A   BA04000000             mov     edx, $00000004

* Reference to: System.Proc_00404B94
|
0053241F   E87027EDFF             call    00404B94
00532424   8B55FC                 mov     edx, [ebp-$04]

* Reference to control Tsaledisc.lt : TLabel
|
00532427   8B8374030000           mov     eax, [ebx+$0374]

* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0053242D   E86A6BF1FF             call    00448F9C
00532432   8D45C4                 lea     eax, [ebp-$3C]
00532435   50                     push    eax

* Reference to control Tsaledisc.ADOQuery2 : TADOQuery
|
00532436   8B83F8030000           mov     eax, [ebx+$03F8]

* Reference to field TADOQuery.OFFS_0178
|
0053243C   8B8078010000           mov     eax, [eax+$0178]
00532442   50                     push    eax
00532443   8B00                   mov     eax, [eax]
00532445   FF5034                 call    dword ptr [eax+$34]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
00532448   E8F344EDFF             call    00406940
0053244D   66837DC400             cmp     word ptr [ebp-$3C], +$00
00532452   7436                   jz      0053248A
00532454   8D45C0                 lea     eax, [ebp-$40]
00532457   50                     push    eax

* Reference to control Tsaledisc.ADOQuery2 : TADOQuery
|
00532458   8B83F8030000           mov     eax, [ebx+$03F8]

* Reference to field TADOQuery.OFFS_0178
|
0053245E   8B8078010000           mov     eax, [eax+$0178]
00532464   50                     push    eax
00532465   8B00                   mov     eax, [eax]
00532467   FF5050                 call    dword ptr [eax+$50]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0053246A   E8D144EDFF             call    00406940
0053246F   66837DC000             cmp     word ptr [ebp-$40], +$00
00532474   7414                   jz      0053248A
00532476   C6059E9F580001         mov     byte ptr [$00589F9E], $01
0053247D   33C9                   xor     ecx, ecx
0053247F   8BD6                   mov     edx, esi
00532481   8BC3                   mov     eax, ebx

* Reference to: Unit15.Proc_005321DC
|
00532483   E854FDFFFF             call    005321DC
00532488   EB23                   jmp     005324AD

* Reference to control Tsaledisc.ADOQuery2 : TADOQuery
|
0053248A   8B83F8030000           mov     eax, [ebx+$03F8]

* Reference to field TADOQuery.OFFS_0178
|
00532490   8B8078010000           mov     eax, [eax+$0178]
00532496   50                     push    eax
00532497   8B00                   mov     eax, [eax]
00532499   FF9098000000           call    dword ptr [eax+$0098]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0053249F   E89C44EDFF             call    00406940
005324A4   8BD6                   mov     edx, esi
005324A6   8BC3                   mov     eax, ebx

* Reference to: Unit15.Proc_00531194
|
005324A8   E8E7ECFFFF             call    00531194
005324AD   8D45C4                 lea     eax, [ebp-$3C]
005324B0   50                     push    eax

* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
005324B1   8B83F4030000           mov     eax, [ebx+$03F4]

* Reference to field TADOQuery.OFFS_0178
|
005324B7   8B8078010000           mov     eax, [eax+$0178]
005324BD   50                     push    eax
005324BE   8B00                   mov     eax, [eax]
005324C0   FF5034                 call    dword ptr [eax+$34]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005324C3   E87844EDFF             call    00406940
005324C8   66837DC400             cmp     word ptr [ebp-$3C], +$00
005324CD   0F850A010000           jnz     005325DD
005324D3   8D45C0                 lea     eax, [ebp-$40]
005324D6   50                     push    eax

* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
005324D7   8B83F4030000           mov     eax, [ebx+$03F4]

* Reference to field TADOQuery.OFFS_0178
|
005324DD   8B8078010000           mov     eax, [eax+$0178]
005324E3   50                     push    eax
005324E4   8B00                   mov     eax, [eax]
005324E6   FF5050                 call    dword ptr [eax+$50]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005324E9   E85244EDFF             call    00406940
005324EE   66837DC000             cmp     word ptr [ebp-$40], +$00
005324F3   0F85E4000000           jnz     005325DD

* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
005324F9   8B83F4030000           mov     eax, [ebx+$03F4]

* Reference to field TADOQuery.OFFS_0178
|
005324FF   8B8078010000           mov     eax, [eax+$0178]
00532505   50                     push    eax
00532506   8B00                   mov     eax, [eax]
00532508   FF9098000000           call    dword ptr [eax+$0098]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0053250E   E82D44EDFF             call    00406940
00532513   E99F000000             jmp     005325B7
00532518   8D45AC                 lea     eax, [ebp-$54]

* Reference to: System.@VarClr(Variant;Variant);
|
0053251B   E81834EDFF             call    00405938
00532520   50                     push    eax
00532521   8D45A8                 lea     eax, [ebp-$58]

* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
00532524   E80B43EDFF             call    00406834
00532529   50                     push    eax
0053252A   8D4598                 lea     eax, [ebp-$68]

* Possible String Reference to: '类型'
|
0053252D   BA80265300             mov     edx, $00532680

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
00532532   E89533EDFF             call    004058CC
00532537   FF75A4                 push    dword ptr [ebp-$5C]
0053253A   FF75A0                 push    dword ptr [ebp-$60]
0053253D   FF759C                 push    dword ptr [ebp-$64]
00532540   FF7598                 push    dword ptr [ebp-$68]
00532543   8D4594                 lea     eax, [ebp-$6C]

* Reference to: System.@IntfClear(IInterface;IInterface):Pointer;
|
00532546   E8E942EDFF             call    00406834
0053254B   50                     push    eax

* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
0053254C   8B83F4030000           mov     eax, [ebx+$03F4]

* Reference to field TADOQuery.OFFS_0178
|
00532552   8B8078010000           mov     eax, [eax+$0178]
00532558   50                     push    eax
00532559   8B00                   mov     eax, [eax]
0053255B   FF5054                 call    dword ptr [eax+$54]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0053255E   E8DD43EDFF             call    00406940
00532563   8B4594                 mov     eax, [ebp-$6C]
00532566   50                     push    eax
00532567   8B00                   mov     eax, [eax]
00532569   FF5028                 call    dword ptr [eax+$28]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0053256C   E8CF43EDFF             call    00406940
00532571   8B45A8                 mov     eax, [ebp-$58]
00532574   50                     push    eax
00532575   8B00                   mov     eax, [eax]
00532577   FF5034                 call    dword ptr [eax+$34]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
0053257A   E8C143EDFF             call    00406940
0053257F   8D55AC                 lea     edx, [ebp-$54]
00532582   8D45BC                 lea     eax, [ebp-$44]

* Reference to: System.@DispInvoke;cdecl;
|           or: System.@VarClear(Variant;Variant);
|           or: System.@VarCopy(Variant;Variant;Variant;Variant);
|           or: System.@VarCast(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarCastOle(Variant;Variant;Variant;Variant;Integer);
|           or: System.@VarToInt(Variant;Variant):Integer;
|
00532585   E8B632EDFF             call    00405840
0053258A   8B55BC                 mov     edx, [ebp-$44]
0053258D   33C9                   xor     ecx, ecx

* Reference to control Tsaledisc.ComboBox1 : TComboBox
|
0053258F   8B83A4030000           mov     eax, [ebx+$03A4]
00532595   8B30                   mov     esi, [eax]

* Possible reference to virtual method TComboBox.OFFS_00D0
|
00532597   FF96D0000000           call    dword ptr [esi+$00D0]

* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
0053259D   8B83F4030000           mov     eax, [ebx+$03F4]

* Reference to field TADOQuery.OFFS_0178
|
005325A3   8B8078010000           mov     eax, [eax+$0178]
005325A9   50                     push    eax
005325AA   8B00                   mov     eax, [eax]
005325AC   FF9090000000           call    dword ptr [eax+$0090]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005325B2   E88943EDFF             call    00406940
005325B7   8D45C4                 lea     eax, [ebp-$3C]
005325BA   50                     push    eax

* Reference to control Tsaledisc.ADOQuery1 : TADOQuery
|
005325BB   8B83F4030000           mov     eax, [ebx+$03F4]

* Reference to field TADOQuery.OFFS_0178
|
005325C1   8B8078010000           mov     eax, [eax+$0178]
005325C7   50                     push    eax
005325C8   8B00                   mov     eax, [eax]
005325CA   FF5050                 call    dword ptr [eax+$50]

* Reference to: System.@CheckAutoResult(HRESULT):HRESULT;
|
005325CD   E86E43EDFF             call    00406940
005325D2   66837DC400             cmp     word ptr [ebp-$3C], +$00
005325D7   0F843BFFFFFF           jz      00532518
005325DD   33C0                   xor     eax, eax
005325DF   5A                     pop     edx
005325E0   59                     pop     ecx
005325E1   59                     pop     ecx
005325E2   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '^[嬪]

⌨️ 快捷键说明

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