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

📄 datamain.pas

📁 一套反出来的股票分析软件,对于分析程序结构和数据结构有一定的帮助.
💻 PAS
📖 第 1 页 / 共 2 页
字号:
005EA005   8B83C4030000           mov     eax, [ebx+$03C4]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA00B   E80400EAFF             call    0048A014

* Reference to: Unit_00409434.Proc_0040C208
|
005EA010   E8F321E2FF             call    0040C208
005EA015   83C4F8                 add     esp, -$08
005EA018   DD1C24                 fstp    qword ptr [esp]
005EA01B   9B                     wait

* Reference to control TFrmMain.DtpStart : TDateTimePicker
|
005EA01C   8B83F0040000           mov     eax, [ebx+$04F0]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA022   E8EDFFE9FF             call    0048A014

* Reference to: Unit_00409434.Proc_0040C208
|
005EA027   E8DC21E2FF             call    0040C208
005EA02C   83C4F8                 add     esp, -$08
005EA02F   DD1C24                 fstp    qword ptr [esp]
005EA032   9B                     wait

* Reference to control TFrmMain.DtpEnd : TDateTimePicker
|
005EA033   8B83EC040000           mov     eax, [ebx+$04EC]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA039   E8D6FFE9FF             call    0048A014

* Reference to: Unit_00409434.Proc_0040C208
|
005EA03E   E8C521E2FF             call    0040C208
005EA043   83C4F8                 add     esp, -$08
005EA046   DD1C24                 fstp    qword ptr [esp]
005EA049   9B                     wait

* Reference to control TFrmMain.DtpStartD : TDateTimePicker
|
005EA04A   8B8340030000           mov     eax, [ebx+$0340]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA050   E8BFFFE9FF             call    0048A014

* Reference to: Unit_00409434.Proc_0040C208
|
005EA055   E8AE21E2FF             call    0040C208
005EA05A   83C4F8                 add     esp, -$08
005EA05D   DD1C24                 fstp    qword ptr [esp]
005EA060   9B                     wait

* Reference to control TFrmMain.DtpEndD : TDateTimePicker
|
005EA061   8B8344030000           mov     eax, [ebx+$0344]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA067   E8A8FFE9FF             call    0048A014

* Reference to: Unit_00409434.Proc_0040C208
|
005EA06C   E89721E2FF             call    0040C208
005EA071   83C4F8                 add     esp, -$08
005EA074   DD1C24                 fstp    qword ptr [esp]
005EA077   9B                     wait

* Reference to control TFrmMain.DtpStartM : TDateTimePicker
|
005EA078   8B8304050000           mov     eax, [ebx+$0504]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA07E   E891FFE9FF             call    0048A014

* Reference to: Unit_00409434.Proc_0040C208
|
005EA083   E88021E2FF             call    0040C208
005EA088   83C4F8                 add     esp, -$08
005EA08B   DD1C24                 fstp    qword ptr [esp]
005EA08E   9B                     wait

* Reference to control TFrmMain.DtpEndM : TDateTimePicker
|
005EA08F   8B8308050000           mov     eax, [ebx+$0508]

* Reference to: comctrls.TCommonCalendar.SetDate(TCommonCalendar;TDate);
|
005EA095   E87AFFE9FF             call    0048A014

* Reference to pointer to GlobalVar_0077E508
|
005EA09A   A108D37700             mov     eax, dword ptr [$0077D308]

* Possible String Reference to: 'yyyy-mm-dd'
|
005EA09F   BA20A25E00             mov     edx, $005EA220

* Reference to: system.@LStrAsg;
|
005EA0A4   E89FA0E1FF             call    00404148

* Reference to field TFrmMain.OFFS_052C : Byte
|
005EA0A9   C6832C05000000         mov     byte ptr [ebx+$052C], $00
005EA0B0   8BC3                   mov     eax, ebx

* Reference to : TFrmMain._PROC_005E9810()
|
005EA0B2   E859F7FFFF             call    005E9810
005EA0B7   84C0                   test    al, al
005EA0B9   7526                   jnz     005EA0E1

* Reference to: kernel32.GetSystemDefaultLangID()
|
005EA0BB   E888E0E1FF             call    00408148
005EA0C0   50                     push    eax
005EA0C1   6A10                   push    $10

* Possible String Reference to: '错误'
|
005EA0C3   682CA25E00             push    $005EA22C

* Possible String Reference to: '找不到数据源'
|
005EA0C8   6834A25E00             push    $005EA234
005EA0CD   8BC3                   mov     eax, ebx

* Reference to: controls.TWinControl.GetHandle(TWinControl):HWND;
|
005EA0CF   E8B45CE5FF             call    0043FD88
005EA0D4   50                     push    eax

* Reference to: user32.MessageBoxExA()
|
005EA0D5   E836EBE1FF             call    00408C10
005EA0DA   8BC3                   mov     eax, ebx

* Reference to: forms.TCustomForm.Close(TCustomForm);
|
005EA0DC   E8DBBFE6FF             call    004560BC
005EA0E1   B201                   mov     dl, $01

* Reference to class TDayDeal
|
005EA0E3   A1A8285E00             mov     eax, dword ptr [$005E28A8]

* Reference to: Unit_005E28A8.Proc_005E2900
|
005EA0E8   E81388FFFF             call    005E2900
005EA0ED   8BF0                   mov     esi, eax

* Reference to field TFrmMain.OFFS_0524
|
005EA0EF   89B324050000           mov     [ebx+$0524], esi
005EA0F5   33D2                   xor     edx, edx

* Reference to control TFrmMain.SgdData : TStringGrid
|
005EA0F7   8B83B4030000           mov     eax, [ebx+$03B4]

* Reference to: grids.TStringGrid.GetRows(TStringGrid;Integer):TStrings;
|
005EA0FD   E8629CF0FF             call    004F3D64
005EA102   8BD0                   mov     edx, eax
005EA104   8BC6                   mov     eax, esi

* Reference to: Unit_005E28A8.Proc_005E2ADC
|
005EA106   E8D189FFFF             call    005E2ADC
005EA10B   BA03000000             mov     edx, $00000003

* Reference to control TFrmMain.Notebook : TNotebook
|
005EA110   8B83D0020000           mov     eax, [ebx+$02D0]

* Reference to: extctrls.TNotebook.SetPageIndex(TNotebook;Integer);
|
005EA116   E85560E7FF             call    00460170
005EA11B   33D2                   xor     edx, edx

* Reference to control TFrmMain.PgcData : TPageControl
|
005EA11D   8B8370030000           mov     eax, [ebx+$0370]

* Reference to: comctrls.TPageControl.SetActivePageIndex(TPageControl;Integer);
|
005EA123   E800ADE8FF             call    00474E28

* Reference to pointer to GlobalVar_00799264
|
005EA128   8B1530D07700           mov     edx, [$0077D030]
005EA12E   8B12                   mov     edx, [edx]
005EA130   8D45FC                 lea     eax, [ebp-$04]

* Possible String Reference to: 'base\'
|
005EA133   B94CA25E00             mov     ecx, $005EA24C

* Reference to: system.@LStrCat3;
|
005EA138   E89FA2E1FF             call    004043DC
005EA13D   8B45FC                 mov     eax, [ebp-$04]
005EA140   50                     push    eax

* Reference to control TFrmMain.SgdFinance : TStringGrid
|
005EA141   8B8BF4030000           mov     ecx, [ebx+$03F4]
005EA147   B201                   mov     dl, $01

* Reference to class TFinance
|
005EA149   A1143F5E00             mov     eax, dword ptr [$005E3F14]

* Reference to: Unit_005E3F14.Proc_005E40EC
|
005EA14E   E8999FFFFF             call    005E40EC

* Reference to field TFrmMain.OFFS_0548
|
005EA153   898348050000           mov     [ebx+$0548], eax

* Reference to pointer to GlobalVar_00799264
|
005EA159   8B1530D07700           mov     edx, [$0077D030]
005EA15F   8B12                   mov     edx, [edx]
005EA161   8D45F8                 lea     eax, [ebp-$08]

* Possible String Reference to: 'base\'
|
005EA164   B94CA25E00             mov     ecx, $005EA24C

* Reference to: system.@LStrCat3;
|
005EA169   E86EA2E1FF             call    004043DC
005EA16E   8B45F8                 mov     eax, [ebp-$08]
005EA171   50                     push    eax

* Reference to control TFrmMain.SgdRight : TStringGrid
|
005EA172   8B8B7C040000           mov     ecx, [ebx+$047C]
005EA178   B201                   mov     dl, $01

* Reference to class TRight
|
005EA17A   A17C3F5E00             mov     eax, dword ptr [$005E3F7C]

* Reference to: Unit_005E3F14.Proc_005E53E4
|
005EA17F   E860B2FFFF             call    005E53E4

* Reference to field TFrmMain.OFFS_054C
|
005EA184   89834C050000           mov     [ebx+$054C], eax

* Reference to pointer to GlobalVar_00799264
|
005EA18A   8B1530D07700           mov     edx, [$0077D030]
005EA190   8B12                   mov     edx, [edx]
005EA192   8D45F4                 lea     eax, [ebp-$0C]

* Possible String Reference to: 'base\'
|
005EA195   B94CA25E00             mov     ecx, $005EA24C

* Reference to: system.@LStrCat3;
|
005EA19A   E83DA2E1FF             call    004043DC
005EA19F   8B45F4                 mov     eax, [ebp-$0C]
005EA1A2   50                     push    eax

* Reference to control TFrmMain.SgdBlock : TStringGrid
|
005EA1A3   8B8BBC040000           mov     ecx, [ebx+$04BC]
005EA1A9   B201                   mov     dl, $01

* Reference to class TBlock
|
005EA1AB   A1E43F5E00             mov     eax, dword ptr [$005E3FE4]

* Reference to: Unit_005E3F14.Proc_005E60B4
|
005EA1B0   E8FFBEFFFF             call    005E60B4

* Reference to field TFrmMain.OFFS_0550
|
005EA1B5   898350050000           mov     [ebx+$0550], eax

* Reference to field TFrmMain.OFFS_0548
|
005EA1BB   8B8348050000           mov     eax, [ebx+$0548]

* Reference to: Unit_005E3F14.Proc_005E4468
|
005EA1C1   E8A2A2FFFF             call    005E4468

* Reference to field TFrmMain.OFFS_054C
|
005EA1C6   8B834C050000           mov     eax, [ebx+$054C]

* Reference to: Unit_005E3F14.Proc_005E5760
|
005EA1CC   E88FB5FFFF             call    005E5760

* Reference to field TFrmMain.OFFS_0550
|
005EA1D1   8B8350050000           mov     eax, [ebx+$0550]

* Reference to: Unit_005E3F14.Proc_005E6534
|
005EA1D7   E858C3FFFF             call    005E6534

* Reference to control TFrmMain.CbxBlockName : TComboBox
|
005EA1DC   8B93D4040000           mov     edx, [ebx+$04D4]

* Reference to field TFrmMain.OFFS_0550
|
005EA1E2   8B8350050000           mov     eax, [ebx+$0550]

* Reference to: Unit_005E3F14.Proc_005E649C
|
005EA1E8   E8AFC2FFFF             call    005E649C
005EA1ED   33C0                   xor     eax, eax
005EA1EF   5A                     pop     edx
005EA1F0   59                     pop     ecx
005EA1F1   59                     pop     ecx
005EA1F2   648910                 mov     fs:[eax], edx

****** FINALLY
|

* Possible String Reference to: '^[嬪]

⌨️ 快捷键说明

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