📄 consult.pas
字号:
* Reference to: user32.PostMessageA()
|
00699D48 E80BEFD6FF call 00408C58
00699D4D 5B pop ebx
00699D4E C3 ret
*)
end;
procedure TfrmConsult.Image1Click(Sender : TObject);
begin
(*
00699EF0 53 push ebx
00699EF1 8BD8 mov ebx, eax
* Reference to field TfrmConsult.OFFS_0358 : String
|
00699EF3 83BB5803000000 cmp dword ptr [ebx+$0358], +$00
00699EFA 740B jz 00699F07
* Reference to field TfrmConsult.OFFS_0358 : String
|
00699EFC 8B8358030000 mov eax, [ebx+$0358]
* Reference to: Unit_00651A88.Proc_006543DC
|
00699F02 E8D5A4FBFF call 006543DC
00699F07 5B pop ebx
00699F08 C3 ret
*)
end;
procedure TfrmConsult._PROC_006986A4(Sender : TObject);
begin
(*
006986A4 83C4F8 add esp, -$08
006986A7 8BF2 mov esi, edx
006986A9 8BD8 mov ebx, eax
006986AB 3BF3 cmp esi, ebx
006986AD 7507 jnz 006986B6
006986AF 33FF xor edi, edi
006986B1 E986000000 jmp 0069873C
* Reference to field TfrmConsult.VCLComObject : Pointer
|
006986B6 8B431C mov eax, [ebx+$1C]
006986B9 85C0 test eax, eax
006986BB 750A jnz 006986C7
006986BD 837E1C00 cmp dword ptr [esi+$1C], +$00
006986C1 7504 jnz 006986C7
006986C3 33FF xor edi, edi
006986C5 EB75 jmp 0069873C
006986C7 85C0 test eax, eax
006986C9 7507 jnz 006986D2
006986CB BF01000000 mov edi, $00000001
006986D0 EB6A jmp 0069873C
006986D2 8BEE mov ebp, esi
006986D4 837D1C00 cmp dword ptr [ebp+$1C], +$00
006986D8 7505 jnz 006986DF
006986DA 83CFFF or edi, -$01
006986DD EB5D jmp 0069873C
006986DF 54 push esp
006986E0 8B00 mov eax, [eax]
006986E2 33C9 xor ecx, ecx
006986E4 B20C mov dl, $0C
* Reference to: Unit_00767B88.Proc_00768250
|
006986E6 E865FB0C00 call 00768250
006986EB 8D442404 lea eax, [esp+$04]
006986EF 50 push eax
006986F0 8B451C mov eax, [ebp+$1C]
006986F3 8B00 mov eax, [eax]
006986F5 33C9 xor ecx, ecx
006986F7 B20C mov dl, $0C
* Reference to: Unit_00767B88.Proc_00768250
|
006986F9 E852FB0C00 call 00768250
006986FE D90424 fld dword ptr [esp]
00698701 D85C2404 fcomp dword ptr [esp+$04]
00698705 DFE0 fstsw ax
00698707 9E sahf
00698708 7512 jnz 0069871C
* Reference to field TfrmConsult.Owner : TComponent
|
0069870A 8B4304 mov eax, [ebx+$04]
0069870D 3B4504 cmp eax, [ebp+$04]
00698710 7D05 jnl 00698717
00698712 83CFFF or edi, -$01
00698715 EB05 jmp 0069871C
00698717 BF01000000 mov edi, $00000001
0069871C D90424 fld dword ptr [esp]
0069871F D85C2404 fcomp dword ptr [esp+$04]
00698723 DFE0 fstsw ax
00698725 9E sahf
00698726 7603 jbe 0069872B
00698728 83CFFF or edi, -$01
0069872B D90424 fld dword ptr [esp]
0069872E D85C2404 fcomp dword ptr [esp+$04]
00698732 DFE0 fstsw ax
00698734 9E sahf
00698735 7305 jnb 0069873C
00698737 BF01000000 mov edi, $00000001
0069873C 8BC7 mov eax, edi
0069873E 59 pop ecx
0069873F 5A pop edx
00698740 5D pop ebp
00698741 5F pop edi
00698742 5E pop esi
00698743 5B pop ebx
00698744 C3 ret
*)
end;
procedure TfrmConsult._PROC_00698748(Sender : TObject);
begin
(*
00698748 55 push ebp
00698749 8BEC mov ebp, esp
0069874B 83C4D8 add esp, -$28
0069874E 53 push ebx
0069874F 56 push esi
00698750 57 push edi
00698751 33D2 xor edx, edx
00698753 8955DC mov [ebp-$24], edx
00698756 8955D8 mov [ebp-$28], edx
00698759 8955F8 mov [ebp-$08], edx
0069875C 8955EC mov [ebp-$14], edx
0069875F 8955E4 mov [ebp-$1C], edx
00698762 8945FC mov [ebp-$04], eax
00698765 33C0 xor eax, eax
00698767 55 push ebp
00698768 68768A6900 push $00698A76
***** TRY
|
0069876D 64FF30 push dword ptr fs:[eax]
00698770 648920 mov fs:[eax], esp
00698773 33DB xor ebx, ebx
00698775 33C0 xor eax, eax
00698777 8AC3 mov al, bl
00698779 8B55FC mov edx, [ebp-$04]
0069877C 33C9 xor ecx, ecx
0069877E 898C8278030000 mov [edx+eax*4+$0378], ecx
00698785 8B55FC mov edx, [ebp-$04]
00698788 33C9 xor ecx, ecx
0069878A 898C8284030000 mov [edx+eax*4+$0384], ecx
00698791 43 inc ebx
00698792 80FB03 cmp bl, $03
00698795 75DE jnz 00698775
* Reference to pointer to GlobalVar_0079927C
|
00698797 8B1554CC7700 mov edx, [$0077CC54]
0069879D 8B12 mov edx, [edx]
0069879F 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: 'JG.mnu'
|
006987A2 B98C8A6900 mov ecx, $00698A8C
* Reference to: system.@LStrCat3;
|
006987A7 E830BCD6FF call 004043DC
006987AC 8B45F8 mov eax, [ebp-$08]
* Reference to: Unit_00409434.Proc_0040A8BC
|
006987AF E80821D7FF call 0040A8BC
006987B4 84C0 test al, al
006987B6 0F8487020000 jz 00698A43
006987BC 33D2 xor edx, edx
006987BE 55 push ebp
006987BF 68318A6900 push $00698A31
***** TRY
|
006987C4 64FF32 push dword ptr fs:[edx]
006987C7 648922 mov fs:[edx], esp
006987CA 6A40 push $40
006987CC 8B4DF8 mov ecx, [ebp-$08]
006987CF B201 mov dl, $01
* Reference to class TFileStream
|
006987D1 A1702A4100 mov eax, dword ptr [$00412A70]
* Reference to: classes.TFileStream.Create(TFileStream;boolean;AnsiString;Word);
|
006987D6 E8B5DED7FF call 00416690
006987DB 8945F4 mov [ebp-$0C], eax
006987DE 8B45F4 mov eax, [ebp-$0C]
* Reference to: classes.TStream.GetSize(TStream):Longint;
|
006987E1 E81ADCD7FF call 00416400
006987E6 8BD8 mov ebx, eax
006987E8 8BC3 mov eax, ebx
* Reference to: Unit_00409434.Proc_00409FF8
|
006987EA E80918D7FF call 00409FF8
006987EF 8945F0 mov [ebp-$10], eax
006987F2 8B75F0 mov esi, [ebp-$10]
006987F5 8BD6 mov edx, esi
006987F7 8BCB mov ecx, ebx
006987F9 8B45F4 mov eax, [ebp-$0C]
006987FC 8B38 mov edi, [eax]
* Reference to method TFileStream.Read(Longint,Longint)
|
006987FE FF5704 call dword ptr [edi+$04]
00698801 83FB0B cmp ebx, +$0B
00698804 0F8E15020000 jle 00698A1F
0069880A 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmConsult.OFFS_036C
|
0069880D 8D906C030000 lea edx, [eax+$036C]
00698813 8BC6 mov eax, esi
00698815 B90B000000 mov ecx, $0000000B
* Reference to: system.Move(void;void;void;void;Integer);
|
0069881A E859A2D6FF call 00402A78
0069881F 8D45EC lea eax, [ebp-$14]
00698822 8B55FC mov edx, [ebp-$04]
00698825 81C26C030000 add edx, $0000036C
0069882B B903000000 mov ecx, $00000003
* Reference to: system.@LStrFromArray(String;String;PAnsiChar;Integer);
|
00698830 E8EFBAD6FF call 00404324
00698835 8B45EC mov eax, [ebp-$14]
* Possible String Reference to: 'DZH'
|
00698838 BA9C8A6900 mov edx, $00698A9C
* Reference to: system.@LStrCmp;
|
0069883D E85EBCD6FF call 004044A0
00698842 741B jz 0069885F
00698844 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmConsult.OFFS_036F
|
00698847 6681B86F0300000902 cmp word ptr [eax+$036F], $0209
00698850 740D jz 0069885F
00698852 33C0 xor eax, eax
00698854 5A pop edx
00698855 59 pop ecx
00698856 59 pop ecx
00698857 648910 mov fs:[eax], edx
0069885A E9E4010000 jmp 00698A43
0069885F 8B45FC mov eax, [ebp-$04]
00698862 0FB7B075030000 movzx esi, word ptr [eax+$0375]
00698869 33DB xor ebx, ebx
0069886B 8BC6 mov eax, esi
0069886D C1E003 shl eax, $03
00698870 8D0480 lea eax, [eax+eax*4]
* Reference to: Unit_00409434.Proc_00409FF8
|
00698873 E88017D7FF call 00409FF8
00698878 33D2 xor edx, edx
0069887A 8AD3 mov dl, bl
0069887C 8B4DFC mov ecx, [ebp-$04]
0069887F 89849178030000 mov [ecx+edx*4+$0378], eax
00698886 43 inc ebx
00698887 80FB03 cmp bl, $03
0069888A 75DF jnz 0069886B
0069888C 8D55D8 lea edx, [ebp-$28]
0069888F 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmConsult.OFFS_0371
|
00698892 8B8071030000 mov eax, [eax+$0371]
* Reference to: Unit_00409434.Proc_0040A564
|
00698898 E8C71CD7FF call 0040A564
0069889D 8B4DD8 mov ecx, [ebp-$28]
006988A0 8D45DC lea eax, [ebp-$24]
* Possible String Reference to: '荐股日期：'
|
006988A3 BAA88A6900 mov edx, $00698AA8
* Reference to: system.@LStrCat3;
|
006988A8 E82FBBD6FF call 004043DC
006988AD 8B55DC mov edx, [ebp-$24]
006988B0 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmConsult.OFFS_035C
|
006988B3 8B805C030000 mov eax, [eax+$035C]
* Reference to: Unit_0069EC24.Proc_0069F208
|
006988B9 E84A690000 call 0069F208
006988BE BF0B000000 mov edi, $0000000B
006988C3 4E dec esi
006988C4 85F6 test esi, esi
006988C6 0F8C28010000 jl 006989F4
006988CC 46 inc esi
006988CD 8975E0 mov [ebp-$20], esi
006988D0 8D55EB lea edx, [ebp-$15]
006988D3 8B45F0 mov eax, [ebp-$10]
006988D6 03C7 add eax, edi
006988D8 B901000000 mov ecx, $00000001
* Reference to: system.Move(void;void;void;void;Integer);
|
006988DD E896A1D6FF call 00402A78
006988E2 47 inc edi
006988E3 33DB xor ebx, ebx
006988E5 8A45EB mov al, byte ptr [ebp-$15]
006988E8 48 dec eax
006988E9 02D8 add bl, al
006988EB 33C0 xor eax, eax
006988ED 8AC3 mov al, bl
006988EF 8B55FC mov edx, [ebp-$04]
006988F2 8BB48278030000 mov esi, [edx+eax*4+$0378]
006988F9 33C0 xor eax, eax
006988FB 8AC3 mov al, bl
006988FD 8B55FC mov edx, [ebp-$04]
00698900 8B848284030000 mov eax, [edx+eax*4+$0384]
00698907 C1E003 shl eax, $03
0069890A 8D0480 lea eax, [eax+eax*4]
0069890D 03F0 add esi, eax
0069890F 8D5604 lea edx, [esi+$04]
00698912 8B45F0 mov eax, [ebp-$10]
00698915 03C7 add eax, edi
00698917 B904000000 mov ecx, $00000004
* Reference to: system.Move(void;void;void;void;Integer);
|
0069891C E857A1D6FF call 00402A78
00698921 83C704 add edi, +$04
00698924 8D5608 lea edx, [esi+$08]
00698927 8B45F0 mov eax, [ebp-$10]
0069892A 03C7 add eax, edi
0069892C B904000000 mov ecx, $00000004
* Reference to: system.Move(void;void;void;void;Integer);
|
00698931 E842A1D6FF call 00402A78
00698936 83C704 add edi, +$04
00698939 8D560C lea edx, [esi+$0C]
0069893C 8B45F0 mov eax, [ebp-$10]
0069893F 03C7 add eax, edi
00698941 B901000000 mov ecx, $00000001
* Reference to: system.Move(void;void;void;void;Integer);
|
00698946 E82DA1D6FF call 00402A78
0069894B 47 inc edi
0069894C 33C0 xor eax, eax
0069894E 8A460C mov al, byte ptr [esi+$0C]
* Reference to: Unit_00409434.Proc_00409FF8
|
00698951 E8A216D7FF call 00409FF8
00698956 894610 mov [esi+$10], eax
00698959 33C9 xor ecx, ecx
0069895B 8A4E0C mov cl, byte ptr [esi+$0C]
0069895E 8B5610 mov edx, [esi+$10]
00698961 8B45F0 mov eax, [ebp-$10]
00698964 03C7 add eax, edi
* Reference to: system.Move(void;void;void;void;Integer);
|
00698966 E80DA1D6FF call 00402A78
0069896B 33C0 xor eax, eax
0069896D 8A460C mov al, byte ptr [esi+$0C]
00698970 03F8 add edi, eax
00698972 8D5614 lea edx, [esi+$14]
00698975 8B45F0 mov eax, [ebp-$10]
00698978 03C7 add eax, edi
0069897A B908000000 mov ecx, $00000008
* Reference to: system.Move(void;void;void;void;Integer);
|
0069897F E8F4A0D6FF call 00402A78
00698984 83C708 add edi, +$08
00698987 8D5620 lea edx, [esi+$20]
0069898A 8B45F0 mov eax, [ebp-$10]
0069898D 03C7 add eax, edi
0069898F B904000000 mov ecx, $00000004
* Reference to: system.Move(void;void;void;void;Integer);
|
00698994 E8DFA0D6FF call 00402A78
00698999 83C704 add edi, +$04
0069899C 8B4620 mov eax, [esi+$20]
* Reference to: Unit_00409434.Proc_00409FF8
|
0069899F E85416D7FF call 00409FF8
006989A4 894624 mov [esi+$24], eax
006989A7 8B4E20 mov ecx, [esi+$20]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -