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

📄 fbd.pas

📁 一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.
💻 PAS
📖 第 1 页 / 共 2 页
字号:
00552404   7409                   jz      0055240F
00552406   C6837803000007         mov     byte ptr [ebx+$0378], $07
0055240D   EB6A                   jmp     00552479

* Reference to control Panel2 : N.A.
|
0055240F   8B83E8020000           mov     eax, [ebx+$02E8]
00552415   8B10                   mov     edx, [eax]

* Possible reference to virtual method TN.A..OFFS_00B4
|
00552417   FF92B4000000           call    dword ptr [edx+$00B4]
0055241D   84C0                   test    al, al
0055241F   7409                   jz      0055242A
00552421   C6837803000005         mov     byte ptr [ebx+$0378], $05
00552428   EB4F                   jmp     00552479

* Reference to control Animate : N.A.
|
0055242A   8B83E4020000           mov     eax, [ebx+$02E4]
00552430   8B10                   mov     edx, [eax]

* Possible reference to virtual method TN.A..OFFS_00B4
|
00552432   FF92B4000000           call    dword ptr [edx+$00B4]
00552438   84C0                   test    al, al
0055243A   7409                   jz      00552445
0055243C   C6837803000004         mov     byte ptr [ebx+$0378], $04
00552443   EB34                   jmp     00552479

* Reference to control StopButton : N.A.
|
00552445   8B83E0020000           mov     eax, [ebx+$02E0]
0055244B   8B10                   mov     edx, [eax]

* Possible reference to virtual method TN.A..OFFS_00B4
|
0055244D   FF92B4000000           call    dword ptr [edx+$00B4]
00552453   84C0                   test    al, al
00552455   7409                   jz      00552460
00552457   C6837803000003         mov     byte ptr [ebx+$0378], $03
0055245E   EB19                   jmp     00552479

* Reference to control Containing : N.A.
|
00552460   8B83DC020000           mov     eax, [ebx+$02DC]
00552466   8B10                   mov     edx, [eax]

* Possible reference to virtual method TN.A..OFFS_00B4
|
00552468   FF92B4000000           call    dword ptr [edx+$00B4]
0055246E   84C0                   test    al, al
00552470   7407                   jz      00552479
00552472   C6837803000002         mov     byte ptr [ebx+$0378], $02
00552479   C7833402000001000000   mov     dword ptr [ebx+$0234], $00000001
00552483   5E                     pop     esi
00552484   5B                     pop     ebx
00552485   C3                     ret

*)
end;

procedure TFbd_Prd.SpinEditChange(Sender : TObject);
begin
(*
00552878   53                     push    ebx
00552879   56                     push    esi
0055287A   57                     push    edi
0055287B   55                     push    ebp
0055287C   8BF2                   mov     esi, edx
0055287E   8BF8                   mov     edi, eax
00552880   33DB                   xor     ebx, ebx
00552882   8BC6                   mov     eax, esi
00552884   3B872C030000           cmp     eax, [edi+$032C]
0055288A   7502                   jnz     0055288E
0055288C   33DB                   xor     ebx, ebx
0055288E   3B8730030000           cmp     eax, [edi+$0330]
00552894   7502                   jnz     00552898
00552896   B301                   mov     bl, $01
00552898   3B8734030000           cmp     eax, [edi+$0334]
0055289E   7502                   jnz     005528A2
005528A0   B302                   mov     bl, $02
005528A2   3B8738030000           cmp     eax, [edi+$0338]
005528A8   7502                   jnz     005528AC
005528AA   B303                   mov     bl, $03
005528AC   3B8750030000           cmp     eax, [edi+$0350]
005528B2   7502                   jnz     005528B6
005528B4   B304                   mov     bl, $04
005528B6   3B8754030000           cmp     eax, [edi+$0354]
005528BC   7502                   jnz     005528C0
005528BE   B305                   mov     bl, $05
005528C0   3B8758030000           cmp     eax, [edi+$0358]
005528C6   7502                   jnz     005528CA
005528C8   B306                   mov     bl, $06
005528CA   3B875C030000           cmp     eax, [edi+$035C]
005528D0   7502                   jnz     005528D4
005528D2   B307                   mov     bl, $07
005528D4   8BEE                   mov     ebp, esi
005528D6   8BC5                   mov     eax, ebp

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
005528D8   E86FF2FFFF             call    00551B4C
005528DD   33D2                   xor     edx, edx
005528DF   8AD3                   mov     dl, bl
005528E1   8D1452                 lea     edx, [edx+edx*2]
005528E4   3B8497D8030000         cmp     eax, [edi+edx*4+$03D8]
005528EB   7F17                   jnle    00552904
005528ED   8BC5                   mov     eax, ebp

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
005528EF   E858F2FFFF             call    00551B4C
005528F4   33D2                   xor     edx, edx
005528F6   8AD3                   mov     dl, bl
005528F8   8D1452                 lea     edx, [edx+edx*2]
005528FB   3B8497D4030000         cmp     eax, [edi+edx*4+$03D4]
00552902   7D40                   jnl     00552944
00552904   6A04                   push    $04
00552906   6A10                   push    $10

* Possible String Reference to: '错误'
|
00552908   687C2A5500             push    $00552A7C

* Possible String Reference to: '参数缺省值超出了范围'
|
0055290D   68842A5500             push    $00552A84
00552912   8BC7                   mov     eax, edi

* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
00552914   E86FD4EEFF             call    0043FD88
00552919   50                     push    eax

* Reference to: user32.MessageBoxExA()
|
0055291A   E8F162EBFF             call    00408C10
0055291F   33C0                   xor     eax, eax
00552921   8AC3                   mov     al, bl
00552923   33D2                   xor     edx, edx
00552925   8A9772030000           mov     dl, byte ptr [edi+$0372]
0055292B   C1E202                 shl     edx, $02
0055292E   8D14D7                 lea     edx, [edi+edx*8]
00552931   8B948234040000         mov     edx, [edx+eax*4+$0434]
00552938   8BC5                   mov     eax, ebp

* Reference to: spin.TSpinEdit.SetValue(TSpinEdit;Longint);
|
0055293A   E895F2FFFF             call    00551BD4
0055293F   E933010000             jmp     00552A77
00552944   33C0                   xor     eax, eax
00552946   8AC3                   mov     al, bl
00552948   83F807                 cmp     eax, +$07
0055294B   0F8726010000           jnbe    00552A77
00552951   FF248558295500         jmp     dword ptr [$552958+eax*4]
00552958   7829                   js      00552983
0055295A   55                     push    ebp
0055295B   009A295500BC           add     [edx+$BC005529], bl
00552961   295500                 sub     dword ptr [ebp+$00], edx
00552964   DE29                   fisubr  word ptr [ecx]
00552966   55                     push    ebp
00552967   00FD                   add     ch, bh
00552969   295500                 sub     dword ptr [ebp+$00], edx
0055296C   1C2A                   sbb     al, $2A
0055296E   55                     push    ebp
0055296F   003B                   add     [ebx], bh
00552971   2A5500                 sub     dl, byte ptr [ebp+$00]
00552974   5A                     pop     edx
00552975   2A5500                 sub     dl, byte ptr [ebp+$00]
00552978   8B872C030000           mov     eax, [edi+$032C]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
0055297E   E8C9F1FFFF             call    00551B4C
00552983   33D2                   xor     edx, edx
00552985   8A9772030000           mov     dl, byte ptr [edi+$0372]
0055298B   C1E202                 shl     edx, $02
0055298E   8984D734040000         mov     [edi+edx*8+$0434], eax
00552995   E9DD000000             jmp     00552A77
0055299A   8B8730030000           mov     eax, [edi+$0330]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
005529A0   E8A7F1FFFF             call    00551B4C
005529A5   33D2                   xor     edx, edx
005529A7   8A9772030000           mov     dl, byte ptr [edi+$0372]
005529AD   C1E202                 shl     edx, $02
005529B0   8984D738040000         mov     [edi+edx*8+$0438], eax
005529B7   E9BB000000             jmp     00552A77
005529BC   8B8734030000           mov     eax, [edi+$0334]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
005529C2   E885F1FFFF             call    00551B4C
005529C7   33D2                   xor     edx, edx
005529C9   8A9772030000           mov     dl, byte ptr [edi+$0372]
005529CF   C1E202                 shl     edx, $02
005529D2   8984D73C040000         mov     [edi+edx*8+$043C], eax
005529D9   E999000000             jmp     00552A77
005529DE   8B8738030000           mov     eax, [edi+$0338]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
005529E4   E863F1FFFF             call    00551B4C
005529E9   33D2                   xor     edx, edx
005529EB   8A9772030000           mov     dl, byte ptr [edi+$0372]
005529F1   C1E202                 shl     edx, $02
005529F4   8984D740040000         mov     [edi+edx*8+$0440], eax
005529FB   EB7A                   jmp     00552A77
005529FD   8B8750030000           mov     eax, [edi+$0350]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
00552A03   E844F1FFFF             call    00551B4C
00552A08   33D2                   xor     edx, edx
00552A0A   8A9772030000           mov     dl, byte ptr [edi+$0372]
00552A10   C1E202                 shl     edx, $02
00552A13   8984D744040000         mov     [edi+edx*8+$0444], eax
00552A1A   EB5B                   jmp     00552A77
00552A1C   8B8754030000           mov     eax, [edi+$0354]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
00552A22   E825F1FFFF             call    00551B4C
00552A27   33D2                   xor     edx, edx
00552A29   8A9772030000           mov     dl, byte ptr [edi+$0372]
00552A2F   C1E202                 shl     edx, $02
00552A32   8984D748040000         mov     [edi+edx*8+$0448], eax
00552A39   EB3C                   jmp     00552A77
00552A3B   8B8758030000           mov     eax, [edi+$0358]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
00552A41   E806F1FFFF             call    00551B4C
00552A46   33D2                   xor     edx, edx
00552A48   8A9772030000           mov     dl, byte ptr [edi+$0372]
00552A4E   C1E202                 shl     edx, $02
00552A51   8984D74C040000         mov     [edi+edx*8+$044C], eax
00552A58   EB1D                   jmp     00552A77
00552A5A   8B875C030000           mov     eax, [edi+$035C]

* Reference to: spin.TSpinEdit.GetValue(TSpinEdit):Longint;
|
00552A60   E8E7F0FFFF             call    00551B4C
00552A65   33D2                   xor     edx, edx
00552A67   8A9772030000           mov     dl, byte ptr [edi+$0372]
00552A6D   C1E202                 shl     edx, $02
00552A70   8984D750040000         mov     [edi+edx*8+$0450], eax
00552A77   5D                     pop     ebp
00552A78   5F                     pop     edi
00552A79   5E                     pop     esi
00552A7A   5B                     pop     ebx
00552A7B   C3                     ret

*)
end;

procedure TFbd_Prd.ComboBox2Change(Sender : TObject);
begin
(*
00552A9C   55                     push    ebp
00552A9D   8BEC                   mov     ebp, esp
00552A9F   B908000000             mov     ecx, $00000008
00552AA4   6A00                   push    $00
00552AA6   6A00                   push    $00
00552AA8   49                     dec     ecx
00552AA9   75F9                   jnz     00552AA4
00552AAB   53                     push    ebx
00552AAC   56                     push    esi
00552AAD   57                     push    edi
00552AAE   8BF8                   mov     edi, eax
00552AB0   33C0                   xor     eax, eax
00552AB2   55                     push    ebp

* Possible String Reference to: '楠

⌨️ 快捷键说明

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