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

📄 tdbkwin.pas

📁 一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.
💻 PAS
📖 第 1 页 / 共 5 页
字号:
00624E35   668914F0               mov     [eax+esi*8], dx
00624E39   33D2                   xor     edx, edx
00624E3B   8954F004               mov     [eax+esi*8+$04], edx
00624E3F   46                     inc     esi
00624E40   45                     inc     ebp
00624E41   3B6C2404               cmp     ebp, [esp+$04]
00624E45   751B                   jnz     00624E62
00624E47   8D442404               lea     eax, [esp+$04]

* Reference to : TfrmTDBK.Proc_00624CBC()
|
00624E4B   E86CFEFFFF             call    00624CBC
00624E50   8B542404               mov     edx, [esp+$04]
00624E54   C1E203                 shl     edx, $03

* Reference to field TfrmTDBK.OFFS_0344
|
00624E57   8D8344030000           lea     eax, [ebx+$0344]

* Reference to: system.@ReallocMem;
|
00624E5D   E836DADDFF             call    00402898
00624E62   8B03                   mov     eax, [ebx]

* Reference to : THJForm._PROC_007516C8()
|
00624E64   E85FC81200             call    007516C8
00624E69   8D542408               lea     edx, [esp+$08]
00624E6D   B901000000             mov     ecx, $00000001

* Reference to: Unit_007605C8.Proc_007607FC
|
00624E72   E885B91300             call    007607FC
00624E77   84C0                   test    al, al
00624E79   7595                   jnz     00624E10

* Reference to field TfrmTDBK.OFFS_033C
|
00624E7B   83BB3C03000000         cmp     dword ptr [ebx+$033C], +$00
00624E82   7C40                   jl      00624EC4
00624E84   837C241000             cmp     dword ptr [esp+$10], +$00
00624E89   7C39                   jl      00624EC4

* Reference to field TfrmTDBK.OFFS_0354
|
00624E8B   8B8354030000           mov     eax, [ebx+$0354]
00624E91   F7AB58030000           imul    dword ptr [ebx+$0358] 
00624E97   50                     push    eax
00624E98   8B442414               mov     eax, [esp+$14]
00624E9C   5A                     pop     edx
00624E9D   8BCA                   mov     ecx, edx
00624E9F   99                     cdq
00624EA0   F7F9                   idiv    ecx 
00624EA2   8BC8                   mov     ecx, eax

* Reference to field TfrmTDBK.OFFS_0340
|
00624EA4   898B40030000           mov     [ebx+$0340], ecx
00624EAA   0FAF8B54030000         imul    ecx, [ebx+$0354]
00624EB1   0FAF8B58030000         imul    ecx, [ebx+$0358]
00624EB8   8B442410               mov     eax, [esp+$10]
00624EBC   2BC1                   sub     eax, ecx

* Reference to field TfrmTDBK.OFFS_0348
|
00624EBE   898348030000           mov     [ebx+$0348], eax
00624EC4   8BC5                   mov     eax, ebp

* Reference to field TfrmTDBK.OFFS_0350
|
00624EC6   898350030000           mov     [ebx+$0350], eax

* Reference to field TfrmTDBK.OFFS_0374 : Byte
|
00624ECC   80BB7403000000         cmp     byte ptr [ebx+$0374], $00
00624ED3   0F85B6010000           jnz     0062508F
00624ED9   837C240C00             cmp     dword ptr [esp+$0C], +$00
00624EDE   0F84C9010000           jz      006250AD

* Reference to field TfrmTDBK.OFFS_0354
|
00624EE4   8B9354030000           mov     edx, [ebx+$0354]
00624EEA   0FAF9358030000         imul    edx, [ebx+$0358]
00624EF1   3BC2                   cmp     eax, edx
00624EF3   0F8DDF000000           jnl     00624FD8
00624EF9   8BF8                   mov     edi, eax
00624EFB   4F                     dec     edi
00624EFC   85FF                   test    edi, edi
00624EFE   0F8C8D000000           jl      00624F91
00624F04   47                     inc     edi
00624F05   33F6                   xor     esi, esi
00624F07   8B44240C               mov     eax, [esp+$0C]
00624F0B   8B44F004               mov     eax, [eax+esi*8+$04]
00624F0F   85C0                   test    eax, eax
00624F11   7410                   jz      00624F23
00624F13   8B54240C               mov     edx, [esp+$0C]

* Reference to field TfrmTDBK.OFFS_0344
|
00624F17   8B9344030000           mov     edx, [ebx+$0344]
00624F1D   8944F204               mov     [edx+esi*8+$04], eax
00624F21   EB66                   jmp     00624F89

* Reference to field TfrmTDBK.OFFS_0375 : Byte
|
00624F23   8A8375030000           mov     al, byte ptr [ebx+$0375]
00624F29   50                     push    eax
00624F2A   6A00                   push    $00
00624F2C   8BCB                   mov     ecx, ebx
00624F2E   B201                   mov     dl, $01

* Reference to class TTrendGph
|
00624F30   A174397400             mov     eax, dword ptr [$00743974]

* Reference to: TDGraph.Proc_00743A8C
|
00624F35   E852EB1100             call    00743A8C
00624F3A   8BE8                   mov     ebp, eax

* Reference to field TfrmTDBK.OFFS_0344
|
00624F3C   8B8344030000           mov     eax, [ebx+$0344]
00624F42   896CF004               mov     [eax+esi*8+$04], ebp

* Reference to field TfrmTDBK.OFFS_0344
|
00624F46   8B8344030000           mov     eax, [ebx+$0344]
00624F4C   C6856C02000001         mov     byte ptr [ebp+$026C], $01

* Reference to field TfrmTDBK.OFFS_0344
|
00624F53   8B8344030000           mov     eax, [ebx+$0344]
00624F59   8BC5                   mov     eax, ebp
00624F5B   8BD3                   mov     edx, ebx
00624F5D   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TTrendGph.OFFS_60
|
00624F5F   FF5160                 call    dword ptr [ecx+$60]

* Reference to field TfrmTDBK.OFFS_0344
|
00624F62   8B8344030000           mov     eax, [ebx+$0344]
00624F68   8B44F004               mov     eax, [eax+esi*8+$04]
00624F6C   B201                   mov     dl, $01

* Reference to : TTrendGph._PROC_007491C0()
|
00624F6E   E84D421200             call    007491C0

* Reference to field TfrmTDBK.OFFS_0344
|
00624F73   8B8344030000           mov     eax, [ebx+$0344]
00624F79   8B44F004               mov     eax, [eax+esi*8+$04]

* Reference to field TfrmTDBK.OFFS_0368
|
00624F7D   8B9368030000           mov     edx, [ebx+$0368]
00624F83   899068020000           mov     [eax+$0268], edx
00624F89   46                     inc     esi
00624F8A   4F                     dec     edi
00624F8B   0F8576FFFFFF           jnz     00624F07

* Reference to field TfrmTDBK.OFFS_0350
|
00624F91   8BB350030000           mov     esi, [ebx+$0350]

* Reference to field TfrmTDBK.OFFS_0354
|
00624F97   8BBB54030000           mov     edi, [ebx+$0354]
00624F9D   0FAFBB58030000         imul    edi, [ebx+$0358]
00624FA4   4F                     dec     edi
00624FA5   2BFE                   sub     edi, esi
00624FA7   0F8CCE000000           jl      0062507B
00624FAD   47                     inc     edi
00624FAE   8B44240C               mov     eax, [esp+$0C]
00624FB2   8B44F004               mov     eax, [eax+esi*8+$04]
00624FB6   85C0                   test    eax, eax
00624FB8   7409                   jz      00624FC3
00624FBA   8B54240C               mov     edx, [esp+$0C]

* Reference to: system.TObject.Free(TObject);
|
00624FBE   E809E3DDFF             call    004032CC

* Reference to field TfrmTDBK.OFFS_0344
|
00624FC3   8B8344030000           mov     eax, [ebx+$0344]
00624FC9   33D2                   xor     edx, edx
00624FCB   8954F004               mov     [eax+esi*8+$04], edx
00624FCF   46                     inc     esi
00624FD0   4F                     dec     edi
00624FD1   75DB                   jnz     00624FAE
00624FD3   E9A3000000             jmp     0062507B

* Reference to field TfrmTDBK.OFFS_0354
|
00624FD8   8BBB54030000           mov     edi, [ebx+$0354]
00624FDE   0FAFBB58030000         imul    edi, [ebx+$0358]
00624FE5   4F                     dec     edi
00624FE6   85FF                   test    edi, edi
00624FE8   0F8C8D000000           jl      0062507B
00624FEE   47                     inc     edi
00624FEF   33F6                   xor     esi, esi
00624FF1   8B44240C               mov     eax, [esp+$0C]
00624FF5   8B44F004               mov     eax, [eax+esi*8+$04]
00624FF9   85C0                   test    eax, eax
00624FFB   7410                   jz      0062500D
00624FFD   8B54240C               mov     edx, [esp+$0C]

* Reference to field TfrmTDBK.OFFS_0344
|
00625001   8B9344030000           mov     edx, [ebx+$0344]
00625007   8944F204               mov     [edx+esi*8+$04], eax
0062500B   EB66                   jmp     00625073

* Reference to field TfrmTDBK.OFFS_0375 : Byte
|
0062500D   8A8375030000           mov     al, byte ptr [ebx+$0375]
00625013   50                     push    eax
00625014   6A00                   push    $00
00625016   8BCB                   mov     ecx, ebx
00625018   B201                   mov     dl, $01

* Reference to class TTrendGph
|
0062501A   A174397400             mov     eax, dword ptr [$00743974]

* Reference to: TDGraph.Proc_00743A8C
|
0062501F   E868EA1100             call    00743A8C
00625024   8BE8                   mov     ebp, eax

* Reference to field TfrmTDBK.OFFS_0344
|
00625026   8B8344030000           mov     eax, [ebx+$0344]
0062502C   896CF004               mov     [eax+esi*8+$04], ebp

* Reference to field TfrmTDBK.OFFS_0344
|
00625030   8B8344030000           mov     eax, [ebx+$0344]
00625036   C6856C02000001         mov     byte ptr [ebp+$026C], $01

* Reference to field TfrmTDBK.OFFS_0344
|
0062503D   8B8344030000           mov     eax, [ebx+$0344]
00625043   8BC5                   mov     eax, ebp
00625045   8BD3                   mov     edx, ebx
00625047   8B08                   mov     ecx, [eax]

* Possible reference to virtual method TTrendGph.OFFS_60
|
00625049   FF5160                 call    dword ptr [ecx+$60]

* Reference to field TfrmTDBK.OFFS_0344
|
0062504C   8B8344030000           mov     eax, [ebx+$0344]
00625052   8B44F004               mov     eax, [eax+esi*8+$04]
00625056   B201                   mov     dl, $01

* Reference to : TTrendGph._PROC_007491C0()
|
00625058   E863411200             call    007491C0

* Reference to field TfrmTDBK.OFFS_0344
|
0062505D   8B8344030000           mov     eax, [ebx+$0344]
00625063   8B44F004               mov     eax, [eax+esi*8+$04]

* Reference to field TfrmTDBK.OFFS_0368
|
00625067   8B9368030000           mov     edx, [ebx+$0368]
0062506D   899068020000           mov     [eax+$0268], edx
00625073   46                     inc     esi
00625074   4F                     dec     edi
00625075   0F8576FFFFFF           jnz     00624FF1

* Reference to field TfrmTDBK.OFFS_0370
|
0062507B   8B9370030000           mov     edx, [ebx+$0370]
00625081   C1E203                 shl     edx, $03
00625084   8B44240C               mov     eax, [esp+$0C]

* Reference to: system.@FreeMem;
|
00625088   E8F3D7DDFF             call    00402880
0062508D   EB1E                   jmp     006250AD

* Reference to field TfrmTDBK.OFFS_0354
|
0062508F   8B8B54030000           mov     ecx, [ebx+$0354]
00625095   0FAF8B58030000         imul    ecx, [ebx+$0358]
0062509C   49                     dec     ecx
0062509D   33D2                   xor     edx, edx
0062509F   8BC3                   mov     eax, ebx

* Reference to : TfrmTDBK._PROC_00625988()
|
006250A1   E8E2080000             call    00625988

* Reference to field TfrmTDBK.OFFS_0374 : Byte
|
006250A6   C6837403000000         mov     byte ptr [ebx+$0374], $00
006250AD   8B442404               mov     eax, [esp+$04]

* Reference to field TfrmTDBK.OFFS_0370
|
006250B1   898370030000           mov     [ebx+$0370], eax
006250B7   8BC3                   mov     eax, ebx

* Reference to : TfrmTDBK.Proc_006257E4()
|
006250B9   E826070000             call    006257E4
006250BE   8BC3                   mov     eax, ebx

* Reference to : TfrmTDBK._PROC_006250EC()
|
006250C0   E827000000             call    006250EC
006250C5   807C240100             cmp     byte ptr [esp+$01], $00
006250CA   7417                   jz      006250E3

* Reference to field TfrmTDBK.OFFS_0354
|
006250CC   8B8B54030000           mov     ecx, [ebx+$0354]
006250D2   0FAF8B58030000         imul    ecx, [ebx+$0358]
006250D9   49                     dec     ecx
006250DA   33D2                   xor     edx, edx
006250DC   8BC3                   mov     eax, ebx

* Reference to : TfrmTDBK._PROC_00625A4C()
|
006250DE   E869090000             call    00625A4C
006250E3   83C424                 add     esp, +$24
006250E6   5D                     pop     ebp
006250E7   5F                     pop     edi
006250E8   5E                     pop     esi
006250E9   5B                     pop     ebx
006250EA   C3                     ret

*)
end;

procedure TfrmTDBK._PROC_006250EC(Sender : TObject);
begin
(*
006250EC   53                     push    ebx

⌨️ 快捷键说明

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