8203 lines
314 KiB
ObjectPascal
8203 lines
314 KiB
ObjectPascal
unit U_YSCR_PBSH;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics,
|
||
Controls, Forms, Dialogs, StdCtrls
|
||
type
|
||
TfrmYSCR_PBSH=class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBDel: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
Panel1: TPanel;
|
||
ToolButton2: TToolButton;
|
||
Label1: TLabel;
|
||
ADOQueryMain: TADOQuery;
|
||
ToolButton1: TToolButton;
|
||
RM1: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
Label3: TLabel;
|
||
FactoryName: TEdit;
|
||
Label2: TLabel;
|
||
Label6: TLabel;
|
||
begdate: TDateTimePicker;
|
||
Enddate: TDateTimePicker;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DS_HZ: TDataSource;
|
||
CDS_HZ: TClientDataSet;
|
||
ToolButton3: TToolButton;
|
||
P_CodeName: TEdit;
|
||
Label4: TLabel;
|
||
P_Spec: TEdit;
|
||
Label5: TLabel;
|
||
Label7: TLabel;
|
||
Edit1: TEdit;
|
||
Button1: TToolButton;
|
||
CheckBox1: TCheckBox;
|
||
orderNo: TEdit;
|
||
Label8: TLabel;
|
||
Tchk: TToolButton;
|
||
cxTabControl1: TcxTabControl;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
v2Column5: TcxGridDBColumn;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
v2PS: TcxGridDBColumn;
|
||
cxQty: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
VBZ: TcxGridDBColumn;
|
||
VMoney: TcxGridDBColumn;
|
||
v2KP: TcxGridDBColumn;
|
||
v2ConNo: TcxGridDBColumn;
|
||
VOrderNo: TcxGridDBColumn;
|
||
v2P_CodeName: TcxGridDBColumn;
|
||
v2Column4: TcxGridDBColumn;
|
||
v2ComTaitou: TcxGridDBColumn;
|
||
v2PBNote: TcxGridDBColumn;
|
||
v2Column2: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
Label10: TLabel;
|
||
FeeType: TEdit;
|
||
Label15: TLabel;
|
||
Price: TEdit;
|
||
YFName: TComboBox;
|
||
Tnochk: TToolButton;
|
||
Label11: TLabel;
|
||
ConNo: TEdit;
|
||
Label12: TLabel;
|
||
Label13: TLabel;
|
||
Label14: TLabel;
|
||
Label16: TLabel;
|
||
ChkNote: TEdit;
|
||
Label17: TLabel;
|
||
Label18: TLabel;
|
||
Note: TEdit;
|
||
Label19: TLabel;
|
||
KPNo: TEdit;
|
||
v2KPNo: TcxGridDBColumn;
|
||
v2ConPrice: TcxGridDBColumn;
|
||
v2ChkNote: TcxGridDBColumn;
|
||
v2Huilv: TcxGridDBColumn;
|
||
v2OrderUnit: TcxGridDBColumn;
|
||
procedure FormDestroy(Sender : TObject);
|
||
procedure FormClose(Sender : TObject);
|
||
procedure TBCloseClick(Sender : TObject);
|
||
procedure TBDelClick(Sender : TObject);
|
||
procedure FormShow(Sender : TObject);
|
||
procedure TBRafreshClick(Sender : TObject);
|
||
procedure ToolButton2Click(Sender : TObject);
|
||
procedure FactoryNameChange(Sender : TObject);
|
||
procedure Button2Click(Sender : TObject);
|
||
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
|
||
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
|
||
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
|
||
procedure ToolButton3Click(Sender : TObject);
|
||
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
|
||
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
|
||
procedure v2Column3PropertiesButtonClick(Sender : TObject);
|
||
procedure ToolButton1Click(Sender : TObject);
|
||
procedure v2Column7PropertiesButtonClick(Sender : TObject);
|
||
procedure v2PSPropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2Column2PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2KPMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
procedure Button1Click(Sender : TObject);
|
||
procedure CheckBox1Click(Sender : TObject);
|
||
procedure cxTabControl1Change(Sender : TObject);
|
||
procedure FormCreate(Sender : TObject);
|
||
procedure TchkClick(Sender : TObject);
|
||
procedure TnochkClick(Sender : TObject);
|
||
procedure nochkClick(Sender : TObject);
|
||
procedure v2Column5PropertiesChange(Sender : TObject);
|
||
procedure cxTabControl2Change(Sender : TObject);
|
||
procedure TZZSHClick(Sender : TObject);
|
||
procedure TEJCXClick(Sender : TObject);
|
||
procedure _PROC_0086B8F1(Sender : TObject);
|
||
procedure _PROC_0086BBF7(Sender : TObject);
|
||
procedure _PROC_0086C36D(Sender : TObject);
|
||
procedure _PROC_0086CBAD(Sender : TObject);
|
||
procedure _PROC_0086CF69(Sender : TObject);
|
||
procedure _PROC_0086D7F1(Sender : TObject);
|
||
procedure _PROC_0086DB2D(Sender : TObject);
|
||
procedure _PROC_0086E2E9(Sender : TObject);
|
||
procedure _PROC_0086E68A(Sender : TObject);
|
||
procedure _PROC_0086E6C0(Sender : TObject);
|
||
procedure _PROC_0086E6CD(Sender : TObject);
|
||
procedure _PROC_0086EA95(Sender : TObject);
|
||
procedure _PROC_0086F0D5(Sender : TObject);
|
||
procedure _PROC_0086F3D5(Sender : TObject);
|
||
procedure _PROC_0086F655(Sender : TObject);
|
||
procedure _PROC_0086FA79(Sender : TObject);
|
||
procedure _PROC_00871275(Sender : TObject);
|
||
procedure _PROC_008712A4(Sender : TObject);
|
||
procedure _PROC_008712AC(Sender : TObject);
|
||
procedure _PROC_008712DC(Sender : TObject);
|
||
procedure _PROC_008712E4(Sender : TObject);
|
||
procedure _PROC_0087134A(Sender : TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end ;
|
||
|
||
var
|
||
frmYSCR_PBSH: TfrmYSCR_PBSH;
|
||
|
||
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TfrmYSCR_PBSH.FormDestroy(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086BD64 33C0 xor eax, eax
|
||
|
||
* Reference to GlobalVar_00895AAC
|
||
|
|
||
0086BD66 A3AC5A8900 mov dword ptr [$00895AAC], eax
|
||
0086BD6B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.FormClose(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086BD6C C60102 mov byte ptr [ecx], $02
|
||
0086BD6F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TBCloseClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086BD70 53 push ebx
|
||
0086BD71 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0086BD73 B99CBD8600 mov ecx, $0086BD9C
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086BD78 8B9388030000 mov edx, [ebx+$0388]
|
||
|
||
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>2'
|
||
|
|
||
0086BD7E B8B0BD8600 mov eax, $0086BDB0
|
||
|
||
|
|
||
0086BD83 E818BEF4FF call 007B7BA0
|
||
0086BD88 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
||
|
|
||
0086BD8A E809A2C3FF call 004A5F98
|
||
0086BD8F 5B pop ebx
|
||
0086BD90 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TBDelClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086BDBC 55 push ebp
|
||
0086BDBD 8BEC mov ebp, esp
|
||
0086BDBF 33C9 xor ecx, ecx
|
||
0086BDC1 51 push ecx
|
||
0086BDC2 51 push ecx
|
||
0086BDC3 51 push ecx
|
||
0086BDC4 51 push ecx
|
||
0086BDC5 51 push ecx
|
||
0086BDC6 51 push ecx
|
||
0086BDC7 51 push ecx
|
||
0086BDC8 51 push ecx
|
||
0086BDC9 53 push ebx
|
||
0086BDCA 56 push esi
|
||
0086BDCB 57 push edi
|
||
0086BDCC 8945FC mov [ebp-$04], eax
|
||
0086BDCF 33C0 xor eax, eax
|
||
0086BDD1 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>,<2C><><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0086BDD2 68C3BF8600 push $0086BFC3
|
||
|
||
***** TRY
|
||
|
|
||
0086BDD7 64FF30 push dword ptr fs:[eax]
|
||
0086BDDA 648920 mov fs:[eax], esp
|
||
0086BDDD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086BDE0 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086BDE6 E8D5C0C5FF call 004C7EC0
|
||
0086BDEB 84C0 test al, al
|
||
0086BDED 0F85AD010000 jnz 0086BFA0
|
||
0086BDF3 A0D4BF8600 mov al, byte ptr [$0086BFD4]
|
||
0086BDF8 50 push eax
|
||
0086BDF9 8D45EC lea eax, [ebp-$14]
|
||
0086BDFC B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0086BDFE E861CFBAFF call 00418D64
|
||
0086BE03 8D4DEC lea ecx, [ebp-$14]
|
||
0086BE06 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086BE09 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0086BE0F BAE0BF8600 mov edx, $0086BFE0
|
||
0086BE14 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0086BE16 FF9344020000 call dword ptr [ebx+$0244]
|
||
0086BE1C 84C0 test al, al
|
||
0086BE1E 751D jnz 0086BE3D
|
||
0086BE20 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086BE22 B9E8BF8600 mov ecx, $0086BFE8
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0086BE27 BAF0BF8600 mov edx, $0086BFF0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.FormShow(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086C070 53 push ebx
|
||
0086C071 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0086C073 B9E0C08600 mov ecx, $0086C0E0
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086C078 8B9388030000 mov edx, [ebx+$0388]
|
||
|
||
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>2'
|
||
|
|
||
0086C07E B8F4C08600 mov eax, $0086C0F4
|
||
|
||
|
|
||
0086C083 E81CB9F4FF call 007B79A4
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0086C088 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
0086C08E E8F588F4FF call 007B4988
|
||
0086C093 83C4F8 add esp, -$08
|
||
0086C096 DD1C24 fstp qword ptr [esp]
|
||
0086C099 9B wait
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Enddate : TDateTimePicker
|
||
|
|
||
0086C09A 8B8340030000 mov eax, [ebx+$0340]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
0086C0A0 E88761C0FF call 0047222C
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0086C0A5 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
0086C0AB E8D888F4FF call 007B4988
|
||
0086C0B0 D82500C18600 fsub dword ptr [$0086C100]
|
||
0086C0B6 83C4F8 add esp, -$08
|
||
0086C0B9 DD1C24 fstp qword ptr [esp]
|
||
0086C0BC 9B wait
|
||
|
||
* Reference to control TfrmYSCR_PBSH.begdate : TDateTimePicker
|
||
|
|
||
0086C0BD 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
0086C0C3 E86461C0FF call 0047222C
|
||
0086C0C8 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0086C0CA E83DF7FFFF call 0086B80C
|
||
0086C0CF 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0086C0D1 E81AF8FFFF call 0086B8F0
|
||
0086C0D6 5B pop ebx
|
||
0086C0D7 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TBRafreshClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086C104 53 push ebx
|
||
0086C105 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmYSCR_PBSH.begdate : TDateTimePicker
|
||
|
|
||
0086C107 8B833C030000 mov eax, [ebx+$033C]
|
||
0086C10D 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TDateTimePicker.SetFocus()
|
||
|
|
||
0086C10F FF92C4000000 call dword ptr [edx+$00C4]
|
||
0086C115 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0086C117 E8D4F7FFFF call 0086B8F0
|
||
0086C11C 5B pop ebx
|
||
0086C11D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.ToolButton2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086C120 55 push ebp
|
||
0086C121 8BEC mov ebp, esp
|
||
0086C123 6A00 push $00
|
||
0086C125 53 push ebx
|
||
0086C126 8BD8 mov ebx, eax
|
||
0086C128 33C0 xor eax, eax
|
||
0086C12A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>+<2B><><EFBFBD><EFBFBD><EFBFBD>[Y]<5D>'
|
||
|
|
||
0086C12B 68C4C18600 push $0086C1C4
|
||
|
||
***** TRY
|
||
|
|
||
0086C130 64FF30 push dword ptr fs:[eax]
|
||
0086C133 648920 mov fs:[eax], esp
|
||
0086C136 BAD8C18600 mov edx, $0086C1D8
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label14 : TLabel
|
||
|
|
||
0086C13B 8B8300040000 mov eax, [ebx+$0400]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0086C141 E8DAC4C1FF call 00488620
|
||
0086C146 BAD8C18600 mov edx, $0086C1D8
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label16 : TLabel
|
||
|
|
||
0086C14B 8B8304040000 mov eax, [ebx+$0404]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0086C151 E8CAC4C1FF call 00488620
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086C156 8B831C030000 mov eax, [ebx+$031C]
|
||
|
||
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
||
|
|
||
0086C15C E8B398C5FF call 004C5A14
|
||
0086C161 84C0 test al, al
|
||
0086C163 7449 jz 0086C1AE
|
||
0086C165 8D45FC lea eax, [ebp-$04]
|
||
0086C168 50 push eax
|
||
0086C169 B902000000 mov ecx, $00000002
|
||
0086C16E BA01000000 mov edx, $00000001
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Panel1 : TPanel
|
||
|
|
||
0086C173 8B8310030000 mov eax, [ebx+$0310]
|
||
|
||
|
|
||
0086C179 E8329FF4FF call 007B60B0
|
||
0086C17E 8B55FC mov edx, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086C181 8B831C030000 mov eax, [ebx+$031C]
|
||
|
||
|
|
||
0086C187 E83CABF4FF call 007B6CC8
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086C18C 8B934C030000 mov edx, [ebx+$034C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086C192 8B831C030000 mov eax, [ebx+$031C]
|
||
|
||
|
|
||
0086C198 E8F3ACF4FF call 007B6E90
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086C19D 8B934C030000 mov edx, [ebx+$034C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086C1A3 8B831C030000 mov eax, [ebx+$031C]
|
||
|
||
|
|
||
0086C1A9 E86AAEF4FF call 007B7018
|
||
0086C1AE 33C0 xor eax, eax
|
||
0086C1B0 5A pop edx
|
||
0086C1B1 59 pop ecx
|
||
0086C1B2 59 pop ecx
|
||
0086C1B3 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '[Y]<5D>'
|
||
|
|
||
0086C1B6 68CBC18600 push $0086C1CB
|
||
0086C1BB 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0086C1BE E86191B9FF call 00405324
|
||
0086C1C3 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0086C1C4 E92B89B9FF jmp 00404AF4
|
||
0086C1C9 EBF0 jmp 0086C1BB
|
||
|
||
****** END
|
||
|
|
||
0086C1CB 5B pop ebx
|
||
0086C1CC 59 pop ecx
|
||
0086C1CD 5D pop ebp
|
||
0086C1CE C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.FactoryNameChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086C1DC 56 push esi
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ToolButton2 : TToolButton
|
||
|
|
||
0086C1DD 8B8014030000 mov eax, [eax+$0314]
|
||
0086C1E3 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0086C1E7 E86883B9FF call 00404554
|
||
0086C1EC 5E pop esi
|
||
0086C1ED C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.Button2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086C1F0 55 push ebp
|
||
0086C1F1 8BEC mov ebp, esp
|
||
0086C1F3 33C9 xor ecx, ecx
|
||
0086C1F5 51 push ecx
|
||
0086C1F6 51 push ecx
|
||
0086C1F7 51 push ecx
|
||
0086C1F8 51 push ecx
|
||
0086C1F9 51 push ecx
|
||
0086C1FA 53 push ebx
|
||
0086C1FB 56 push esi
|
||
0086C1FC 8BD8 mov ebx, eax
|
||
0086C1FE 33C0 xor eax, eax
|
||
0086C200 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086C201 68FDC28600 push $0086C2FD
|
||
|
||
***** TRY
|
||
|
|
||
0086C206 64FF30 push dword ptr fs:[eax]
|
||
0086C209 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086C20C 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086C212 E8A9BCC5FF call 004C7EC0
|
||
0086C217 84C0 test al, al
|
||
0086C219 0F85C3000000 jnz 0086C2E2
|
||
0086C21F 6A24 push $24
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086C221 B90CC38600 mov ecx, $0086C30C
|
||
|
||
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0086C226 BA14C38600 mov edx, $0086C314
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086CD44 55 push ebp
|
||
0086CD45 8BEC mov ebp, esp
|
||
0086CD47 B908000000 mov ecx, $00000008
|
||
0086CD4C 6A00 push $00
|
||
0086CD4E 6A00 push $00
|
||
0086CD50 49 dec ecx
|
||
0086CD51 75F9 jnz 0086CD4C
|
||
0086CD53 51 push ecx
|
||
0086CD54 53 push ebx
|
||
0086CD55 56 push esi
|
||
0086CD56 8BDA mov ebx, edx
|
||
0086CD58 8BF0 mov esi, eax
|
||
0086CD5A 33C0 xor eax, eax
|
||
0086CD5C 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>{<7B><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086CD5D 6852CF8600 push $0086CF52
|
||
|
||
***** TRY
|
||
|
|
||
0086CD62 64FF30 push dword ptr fs:[eax]
|
||
0086CD65 648920 mov fs:[eax], esp
|
||
0086CD68 8D55FC lea edx, [ebp-$04]
|
||
0086CD6B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086CD6D E84A29D2FF call 0058F6BC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086CD72 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
|
||
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
|
||
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
|
||
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
|
||
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
|
||
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
||
|
|
||
0086CD78 E8CFF5DEFF call 0065C34C
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086CD7D E8E24DDEFF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0086CD82 8B4050 mov eax, [eax+$50]
|
||
0086CD85 8D55F4 lea edx, [ebp-$0C]
|
||
0086CD88 8B08 mov ecx, [eax]
|
||
0086CD8A FF5110 call dword ptr [ecx+$10]
|
||
0086CD8D 8B45F4 mov eax, [ebp-$0C]
|
||
0086CD90 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CD93 E854DBB9FF call 0040A8EC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086CD98 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086CD9E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086CDA0 E89BB6C5FF call 004C8440
|
||
0086CDA5 8D55E0 lea edx, [ebp-$20]
|
||
0086CDA8 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CDAB E83CDBB9FF call 0040A8EC
|
||
0086CDB0 8B55E0 mov edx, [ebp-$20]
|
||
0086CDB3 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086CDB6 E80DC0BAFF call 00418DC8
|
||
0086CDBB 8D45E4 lea eax, [ebp-$1C]
|
||
0086CDBE 50 push eax
|
||
0086CDBF 8B55F8 mov edx, [ebp-$08]
|
||
0086CDC2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086CDC4 E8EB9DC5FF call 004C6BB4
|
||
0086CDC9 5A pop edx
|
||
0086CDCA 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0086CDCC FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086CDD2 8BC3 mov eax, ebx
|
||
0086CDD4 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0086CDD6 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086CDDC 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086CDE2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086CDE4 E8EB8AC5FF call 004C58D4
|
||
0086CDE9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086CDEB E8BC11C7FF call 004DDFAC
|
||
0086CDF0 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086CDF2 FF5244 call dword ptr [edx+$44]
|
||
0086CDF5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086CDF7 E8B011C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
0086CDFC BA68CF8600 mov edx, $0086CF68
|
||
0086CE01 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086CE03 FF5138 call dword ptr [ecx+$38]
|
||
0086CE06 8D55DC lea edx, [ebp-$24]
|
||
0086CE09 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CE0C E8DBDAB9FF call 0040A8EC
|
||
0086CE11 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0086CE15 7440 jz 0086CE57
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086CE17 6884CF8600 push $0086CF84
|
||
0086CE1C FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0086CE1F 6894CF8600 push $0086CF94
|
||
0086CE24 8D55D4 lea edx, [ebp-$2C]
|
||
0086CE27 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CE2A E8BDDAB9FF call 0040A8EC
|
||
0086CE2F FF75D4 push dword ptr [ebp-$2C]
|
||
0086CE32 68A0CF8600 push $0086CFA0
|
||
0086CE37 8D45D8 lea eax, [ebp-$28]
|
||
0086CE3A BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086CE3F E87088B9FF call 004056B4
|
||
0086CE44 8B45D8 mov eax, [ebp-$28]
|
||
0086CE47 50 push eax
|
||
0086CE48 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086CE4A E85D11C7FF call 004DDFAC
|
||
0086CE4F 5A pop edx
|
||
0086CE50 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086CE52 FF5138 call dword ptr [ecx+$38]
|
||
0086CE55 EB2B jmp 0086CE82
|
||
0086CE57 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086CE59 E84E11C7FF call 004DDFAC
|
||
0086CE5E 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086CE5F 6884CF8600 push $0086CF84
|
||
0086CE64 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0086CE67 68ACCF8600 push $0086CFAC
|
||
0086CE6C 8D45D0 lea eax, [ebp-$30]
|
||
0086CE6F BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086CE74 E83B88B9FF call 004056B4
|
||
0086CE79 8B55D0 mov edx, [ebp-$30]
|
||
0086CE7C 58 pop eax
|
||
0086CE7D 8B08 mov ecx, [eax]
|
||
0086CE7F FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086CE82 68BCCF8600 push $0086CFBC
|
||
0086CE87 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086D010 55 push ebp
|
||
0086D011 8BEC mov ebp, esp
|
||
0086D013 B91F000000 mov ecx, $0000001F
|
||
0086D018 6A00 push $00
|
||
0086D01A 6A00 push $00
|
||
0086D01C 49 dec ecx
|
||
0086D01D 75F9 jnz 0086D018
|
||
0086D01F 53 push ebx
|
||
0086D020 56 push esi
|
||
0086D021 8BF2 mov esi, edx
|
||
0086D023 8BD8 mov ebx, eax
|
||
0086D025 33C0 xor eax, eax
|
||
0086D027 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>s<EFBFBD><73><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086D028 680CD78600 push $0086D70C
|
||
|
||
***** TRY
|
||
|
|
||
0086D02D 64FF30 push dword ptr fs:[eax]
|
||
0086D030 648920 mov fs:[eax], esp
|
||
0086D033 8D55FC lea edx, [ebp-$04]
|
||
0086D036 8BC6 mov eax, esi
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086D038 E87F26D2FF call 0058F6BC
|
||
0086D03D 8D55DC lea edx, [ebp-$24]
|
||
0086D040 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D043 E8A4D8B9FF call 0040A8EC
|
||
0086D048 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0086D04C 750D jnz 0086D05B
|
||
0086D04E 8D45FC lea eax, [ebp-$04]
|
||
0086D051 BA24D78600 mov edx, $0086D724
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0086D056 E86183B9FF call 004053BC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086D05B 8B8388030000 mov eax, [ebx+$0388]
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
|
||
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
|
||
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
|
||
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
|
||
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
|
||
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
||
|
|
||
0086D061 E8E6F2DEFF call 0065C34C
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086D066 E8F94ADEFF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0086D06B 8B4050 mov eax, [eax+$50]
|
||
0086D06E 8D55D8 lea edx, [ebp-$28]
|
||
0086D071 8B08 mov ecx, [eax]
|
||
0086D073 FF5110 call dword ptr [ecx+$10]
|
||
0086D076 8B45D8 mov eax, [ebp-$28]
|
||
0086D079 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D07C E86BD8B9FF call 0040A8EC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086D081 8BB34C030000 mov esi, [ebx+$034C]
|
||
0086D087 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086D089 E8B2B3C5FF call 004C8440
|
||
0086D08E 8D55C4 lea edx, [ebp-$3C]
|
||
0086D091 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D094 E853D8B9FF call 0040A8EC
|
||
0086D099 8B55C4 mov edx, [ebp-$3C]
|
||
0086D09C 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086D09F E824BDBAFF call 00418DC8
|
||
0086D0A4 8D45C8 lea eax, [ebp-$38]
|
||
0086D0A7 50 push eax
|
||
0086D0A8 8B55E0 mov edx, [ebp-$20]
|
||
0086D0AB 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086D0AD E8029BC5FF call 004C6BB4
|
||
0086D0B2 5A pop edx
|
||
0086D0B3 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0086D0B5 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086D0BB 8D55C0 lea edx, [ebp-$40]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086D908 55 push ebp
|
||
0086D909 8BEC mov ebp, esp
|
||
0086D90B B908000000 mov ecx, $00000008
|
||
0086D910 6A00 push $00
|
||
0086D912 6A00 push $00
|
||
0086D914 49 dec ecx
|
||
0086D915 75F9 jnz 0086D910
|
||
0086D917 51 push ecx
|
||
0086D918 53 push ebx
|
||
0086D919 56 push esi
|
||
0086D91A 8BDA mov ebx, edx
|
||
0086D91C 8BF0 mov esi, eax
|
||
0086D91E 33C0 xor eax, eax
|
||
0086D920 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>o<EFBFBD><6F><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086D921 6816DB8600 push $0086DB16
|
||
|
||
***** TRY
|
||
|
|
||
0086D926 64FF30 push dword ptr fs:[eax]
|
||
0086D929 648920 mov fs:[eax], esp
|
||
0086D92C 8D55FC lea edx, [ebp-$04]
|
||
0086D92F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086D931 E8861DD2FF call 0058F6BC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086D936 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
|
||
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
|
||
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
|
||
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
|
||
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
|
||
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
||
|
|
||
0086D93C E80BEADEFF call 0065C34C
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086D941 E81E42DEFF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0086D946 8B4050 mov eax, [eax+$50]
|
||
0086D949 8D55F4 lea edx, [ebp-$0C]
|
||
0086D94C 8B08 mov ecx, [eax]
|
||
0086D94E FF5110 call dword ptr [ecx+$10]
|
||
0086D951 8B45F4 mov eax, [ebp-$0C]
|
||
0086D954 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D957 E890CFB9FF call 0040A8EC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086D95C 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086D962 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086D964 E8D7AAC5FF call 004C8440
|
||
0086D969 8D55E0 lea edx, [ebp-$20]
|
||
0086D96C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D96F E878CFB9FF call 0040A8EC
|
||
0086D974 8B55E0 mov edx, [ebp-$20]
|
||
0086D977 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086D97A E849B4BAFF call 00418DC8
|
||
0086D97F 8D45E4 lea eax, [ebp-$1C]
|
||
0086D982 50 push eax
|
||
0086D983 8B55F8 mov edx, [ebp-$08]
|
||
0086D986 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086D988 E82792C5FF call 004C6BB4
|
||
0086D98D 5A pop edx
|
||
0086D98E 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0086D990 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086D996 8BC3 mov eax, ebx
|
||
0086D998 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0086D99A FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086D9A0 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086D9A6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086D9A8 E8277FC5FF call 004C58D4
|
||
0086D9AD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086D9AF E8F805C7FF call 004DDFAC
|
||
0086D9B4 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086D9B6 FF5244 call dword ptr [edx+$44]
|
||
0086D9B9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086D9BB E8EC05C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086D9C0 BA2CDB8600 mov edx, $0086DB2C
|
||
0086D9C5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086D9C7 FF5138 call dword ptr [ecx+$38]
|
||
0086D9CA 8D55DC lea edx, [ebp-$24]
|
||
0086D9CD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D9D0 E817CFB9FF call 0040A8EC
|
||
0086D9D5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0086D9D9 7440 jz 0086DA1B
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086D9DB 6848DB8600 push $0086DB48
|
||
0086D9E0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0086D9E3 6858DB8600 push $0086DB58
|
||
0086D9E8 8D55D4 lea edx, [ebp-$2C]
|
||
0086D9EB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D9EE E8F9CEB9FF call 0040A8EC
|
||
0086D9F3 FF75D4 push dword ptr [ebp-$2C]
|
||
0086D9F6 6864DB8600 push $0086DB64
|
||
0086D9FB 8D45D8 lea eax, [ebp-$28]
|
||
0086D9FE BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086DA03 E8AC7CB9FF call 004056B4
|
||
0086DA08 8B45D8 mov eax, [ebp-$28]
|
||
0086DA0B 50 push eax
|
||
0086DA0C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086DA0E E89905C7FF call 004DDFAC
|
||
0086DA13 5A pop edx
|
||
0086DA14 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086DA16 FF5138 call dword ptr [ecx+$38]
|
||
0086DA19 EB2B jmp 0086DA46
|
||
0086DA1B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086DA1D E88A05C7FF call 004DDFAC
|
||
0086DA22 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086DA23 6848DB8600 push $0086DB48
|
||
0086DA28 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0086DA2B 6870DB8600 push $0086DB70
|
||
0086DA30 8D45D0 lea eax, [ebp-$30]
|
||
0086DA33 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086DA38 E8777CB9FF call 004056B4
|
||
0086DA3D 8B55D0 mov edx, [ebp-$30]
|
||
0086DA40 58 pop eax
|
||
0086DA41 8B08 mov ecx, [eax]
|
||
0086DA43 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086DA46 6880DB8600 push $0086DB80
|
||
0086DA4B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.ToolButton3Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086DBD4 55 push ebp
|
||
0086DBD5 8BEC mov ebp, esp
|
||
0086DBD7 B90C000000 mov ecx, $0000000C
|
||
0086DBDC 6A00 push $00
|
||
0086DBDE 6A00 push $00
|
||
0086DBE0 49 dec ecx
|
||
0086DBE1 75F9 jnz 0086DBDC
|
||
0086DBE3 51 push ecx
|
||
0086DBE4 53 push ebx
|
||
0086DBE5 56 push esi
|
||
0086DBE6 8BF0 mov esi, eax
|
||
0086DBE8 33C0 xor eax, eax
|
||
0086DBEA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>l<EFBFBD><6C><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086DBEB 680DDE8600 push $0086DE0D
|
||
|
||
***** TRY
|
||
|
|
||
0086DBF0 64FF30 push dword ptr fs:[eax]
|
||
0086DBF3 648920 mov fs:[eax], esp
|
||
0086DBF6 33C0 xor eax, eax
|
||
0086DBF8 55 push ebp
|
||
0086DBF9 68ABDD8600 push $0086DDAB
|
||
|
||
***** TRY
|
||
|
|
||
0086DBFE 64FF30 push dword ptr fs:[eax]
|
||
0086DC01 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086DE94 55 push ebp
|
||
0086DE95 8BEC mov ebp, esp
|
||
0086DE97 51 push ecx
|
||
0086DE98 B90C000000 mov ecx, $0000000C
|
||
0086DE9D 6A00 push $00
|
||
0086DE9F 6A00 push $00
|
||
0086DEA1 49 dec ecx
|
||
0086DEA2 75F9 jnz 0086DE9D
|
||
0086DEA4 51 push ecx
|
||
0086DEA5 874DFC xchg [ebp-$04], ecx
|
||
0086DEA8 53 push ebx
|
||
0086DEA9 56 push esi
|
||
0086DEAA 8BF0 mov esi, eax
|
||
0086DEAC 33C0 xor eax, eax
|
||
0086DEAE 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>h<EFBFBD><68><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086DEAF 682AE28600 push $0086E22A
|
||
|
||
***** TRY
|
||
|
|
||
0086DEB4 64FF30 push dword ptr fs:[eax]
|
||
0086DEB7 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086DEBA 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086DEC0 BA40E28600 mov edx, $0086E240
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086DEC5 E8EA8CC5FF call 004C6BB4
|
||
0086DECA 8D55F8 lea edx, [ebp-$08]
|
||
0086DECD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0086DECF FF5160 call dword ptr [ecx+$60]
|
||
0086DED2 8B45F8 mov eax, [ebp-$08]
|
||
0086DED5 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086DED8 E80FCAB9FF call 0040A8EC
|
||
0086DEDD 837DFC00 cmp dword ptr [ebp-$04], +$00
|
||
0086DEE1 741D jz 0086DF00
|
||
0086DEE3 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086DEE5 B948E28600 mov ecx, $0086E248
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
||
|
|
||
0086DEEA BA50E28600 mov edx, $0086E250
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086E390 55 push ebp
|
||
0086E391 8BEC mov ebp, esp
|
||
0086E393 51 push ecx
|
||
0086E394 B907000000 mov ecx, $00000007
|
||
0086E399 6A00 push $00
|
||
0086E39B 6A00 push $00
|
||
0086E39D 49 dec ecx
|
||
0086E39E 75F9 jnz 0086E399
|
||
0086E3A0 51 push ecx
|
||
0086E3A1 874DFC xchg [ebp-$04], ecx
|
||
0086E3A4 53 push ebx
|
||
0086E3A5 56 push esi
|
||
0086E3A6 8BF0 mov esi, eax
|
||
0086E3A8 33C0 xor eax, eax
|
||
0086E3AA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>d<EFBFBD><64><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086E3AB 683CE68600 push $0086E63C
|
||
|
||
***** TRY
|
||
|
|
||
0086E3B0 64FF30 push dword ptr fs:[eax]
|
||
0086E3B3 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086E3B6 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086E3BC BA54E68600 mov edx, $0086E654
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086E3C1 E8EE87C5FF call 004C6BB4
|
||
0086E3C6 8D55F8 lea edx, [ebp-$08]
|
||
0086E3C9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0086E3CB FF5160 call dword ptr [ecx+$60]
|
||
0086E3CE 8B45F8 mov eax, [ebp-$08]
|
||
0086E3D1 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086E3D4 E813C5B9FF call 0040A8EC
|
||
0086E3D9 837DFC00 cmp dword ptr [ebp-$04], +$00
|
||
0086E3DD 741D jz 0086E3FC
|
||
0086E3DF 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086E3E1 B95CE68600 mov ecx, $0086E65C
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
||
|
|
||
0086E3E6 BA64E68600 mov edx, $0086E664
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.v2Column3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086E770 55 push ebp
|
||
0086E771 8BEC mov ebp, esp
|
||
0086E773 51 push ecx
|
||
0086E774 B907000000 mov ecx, $00000007
|
||
0086E779 6A00 push $00
|
||
0086E77B 6A00 push $00
|
||
0086E77D 49 dec ecx
|
||
0086E77E 75F9 jnz 0086E779
|
||
0086E780 51 push ecx
|
||
0086E781 874DFC xchg [ebp-$04], ecx
|
||
0086E784 53 push ebx
|
||
0086E785 56 push esi
|
||
0086E786 8BF0 mov esi, eax
|
||
0086E788 33C0 xor eax, eax
|
||
0086E78A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>`<60><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086E78B 681CEA8600 push $0086EA1C
|
||
|
||
***** TRY
|
||
|
|
||
0086E790 64FF30 push dword ptr fs:[eax]
|
||
0086E793 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086E796 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086E79C BA34EA8600 mov edx, $0086EA34
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086E7A1 E80E84C5FF call 004C6BB4
|
||
0086E7A6 8D55F8 lea edx, [ebp-$08]
|
||
0086E7A9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0086E7AB FF5160 call dword ptr [ecx+$60]
|
||
0086E7AE 8B45F8 mov eax, [ebp-$08]
|
||
0086E7B1 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086E7B4 E833C1B9FF call 0040A8EC
|
||
0086E7B9 837DFC00 cmp dword ptr [ebp-$04], +$00
|
||
0086E7BD 741D jz 0086E7DC
|
||
0086E7BF 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086E7C1 B93CEA8600 mov ecx, $0086EA3C
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
||
|
|
||
0086E7C6 BA44EA8600 mov edx, $0086EA44
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.ToolButton1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086EB38 53 push ebx
|
||
0086EB39 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086EB3B 8B831C030000 mov eax, [ebx+$031C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086EB41 E87A93C5FF call 004C7EC0
|
||
0086EB46 84C0 test al, al
|
||
0086EB48 7516 jnz 0086EB60
|
||
|
||
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>б<EFBFBD>'
|
||
|
|
||
0086EB4A B96CEB8600 mov ecx, $0086EB6C
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086EB4F 8B931C030000 mov edx, [ebx+$031C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086EB55 8B8388030000 mov eax, [ebx+$0388]
|
||
|
||
|
|
||
0086EB5B E8D096F4FF call 007B8230
|
||
0086EB60 5B pop ebx
|
||
0086EB61 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.v2Column7PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086EB78 55 push ebp
|
||
0086EB79 8BEC mov ebp, esp
|
||
0086EB7B 51 push ecx
|
||
0086EB7C B912000000 mov ecx, $00000012
|
||
0086EB81 6A00 push $00
|
||
0086EB83 6A00 push $00
|
||
0086EB85 49 dec ecx
|
||
0086EB86 75F9 jnz 0086EB81
|
||
0086EB88 51 push ecx
|
||
0086EB89 874DFC xchg [ebp-$04], ecx
|
||
0086EB8C 53 push ebx
|
||
0086EB8D 8945FC mov [ebp-$04], eax
|
||
0086EB90 33C0 xor eax, eax
|
||
0086EB92 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>Z<EFBFBD><5A><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
||
|
|
||
0086EB93 6831F08600 push $0086F031
|
||
|
||
***** TRY
|
||
|
|
||
0086EB98 64FF30 push dword ptr fs:[eax]
|
||
0086EB9B 648920 mov fs:[eax], esp
|
||
0086EB9E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086EBA1 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086EBA7 BA48F08600 mov edx, $0086F048
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086EBAC E80380C5FF call 004C6BB4
|
||
0086EBB1 8D55F4 lea edx, [ebp-$0C]
|
||
0086EBB4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0086EBB6 FF5160 call dword ptr [ecx+$60]
|
||
0086EBB9 8B45F4 mov eax, [ebp-$0C]
|
||
0086EBBC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086EBBF E828BDB9FF call 0040A8EC
|
||
0086EBC4 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
0086EBC8 741D jz 0086EBE7
|
||
0086EBCA 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086EBCC B950F08600 mov ecx, $0086F050
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!'
|
||
|
|
||
0086EBD1 BA58F08600 mov edx, $0086F058
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.v2PSPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086F1C8 55 push ebp
|
||
0086F1C9 8BEC mov ebp, esp
|
||
0086F1CB B908000000 mov ecx, $00000008
|
||
0086F1D0 6A00 push $00
|
||
0086F1D2 6A00 push $00
|
||
0086F1D4 49 dec ecx
|
||
0086F1D5 75F9 jnz 0086F1D0
|
||
0086F1D7 53 push ebx
|
||
0086F1D8 56 push esi
|
||
0086F1D9 8BDA mov ebx, edx
|
||
0086F1DB 8BF0 mov esi, eax
|
||
0086F1DD 33C0 xor eax, eax
|
||
0086F1DF 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>?W<><57><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086F1E0 68B0F38600 push $0086F3B0
|
||
|
||
***** TRY
|
||
|
|
||
0086F1E5 64FF30 push dword ptr fs:[eax]
|
||
0086F1E8 648920 mov fs:[eax], esp
|
||
0086F1EB 8D55FC lea edx, [ebp-$04]
|
||
0086F1EE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086F1F0 E8C704D2FF call 0058F6BC
|
||
0086F1F5 8D55F4 lea edx, [ebp-$0C]
|
||
0086F1F8 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F1FB E8ECB6B9FF call 0040A8EC
|
||
0086F200 837DF400 cmp dword ptr [ebp-$0C], +$00
|
||
0086F204 750D jnz 0086F213
|
||
0086F206 8D45FC lea eax, [ebp-$04]
|
||
0086F209 BAC8F38600 mov edx, $0086F3C8
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0086F20E E8A961B9FF call 004053BC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086F213 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
|
||
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
|
||
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
|
||
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
|
||
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
|
||
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
||
|
|
||
0086F219 E82ED1DEFF call 0065C34C
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F21E E84129DEFF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0086F223 8B4050 mov eax, [eax+$50]
|
||
0086F226 8D55F0 lea edx, [ebp-$10]
|
||
0086F229 8B08 mov ecx, [eax]
|
||
0086F22B FF5110 call dword ptr [ecx+$10]
|
||
0086F22E 8B45F0 mov eax, [ebp-$10]
|
||
0086F231 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F234 E8B3B6B9FF call 0040A8EC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086F239 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086F23F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086F241 E8FA91C5FF call 004C8440
|
||
0086F246 8D55DC lea edx, [ebp-$24]
|
||
0086F249 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F24C E89BB6B9FF call 0040A8EC
|
||
0086F251 8B55DC mov edx, [ebp-$24]
|
||
0086F254 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086F257 E86C9BBAFF call 00418DC8
|
||
0086F25C 8D45E0 lea eax, [ebp-$20]
|
||
0086F25F 50 push eax
|
||
0086F260 8B55F8 mov edx, [ebp-$08]
|
||
0086F263 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F265 E84A79C5FF call 004C6BB4
|
||
0086F26A 5A pop edx
|
||
0086F26B 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0086F26D FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086F273 8BC3 mov eax, ebx
|
||
0086F275 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0086F277 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086F27D 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086F283 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F285 E84A66C5FF call 004C58D4
|
||
0086F28A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F28C E81BEDC6FF call 004DDFAC
|
||
0086F291 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086F293 FF5244 call dword ptr [edx+$44]
|
||
0086F296 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F298 E80FEDC6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086F29D BAD4F38600 mov edx, $0086F3D4
|
||
0086F2A2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F2A4 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086F2A7 68F0F38600 push $0086F3F0
|
||
0086F2AC FF75F8 push dword ptr [ebp-$08]
|
||
0086F2AF 6800F48600 push $0086F400
|
||
0086F2B4 8D55D4 lea edx, [ebp-$2C]
|
||
0086F2B7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F2BA E82DB6B9FF call 0040A8EC
|
||
0086F2BF FF75D4 push dword ptr [ebp-$2C]
|
||
0086F2C2 8D45D8 lea eax, [ebp-$28]
|
||
0086F2C5 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F2CA E8E563B9FF call 004056B4
|
||
0086F2CF 8B45D8 mov eax, [ebp-$28]
|
||
0086F2D2 50 push eax
|
||
0086F2D3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F2D5 E8D2ECC6FF call 004DDFAC
|
||
0086F2DA 5A pop edx
|
||
0086F2DB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F2DD FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086F2E0 680CF48600 push $0086F40C
|
||
0086F2E5 8D55CC lea edx, [ebp-$34]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.v2Column2PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086F46C 55 push ebp
|
||
0086F46D 8BEC mov ebp, esp
|
||
0086F46F B907000000 mov ecx, $00000007
|
||
0086F474 6A00 push $00
|
||
0086F476 6A00 push $00
|
||
0086F478 49 dec ecx
|
||
0086F479 75F9 jnz 0086F474
|
||
0086F47B 51 push ecx
|
||
0086F47C 53 push ebx
|
||
0086F47D 56 push esi
|
||
0086F47E 8BDA mov ebx, edx
|
||
0086F480 8BF0 mov esi, eax
|
||
0086F482 33C0 xor eax, eax
|
||
0086F484 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>T<EFBFBD><54><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086F485 683CF68600 push $0086F63C
|
||
|
||
***** TRY
|
||
|
|
||
0086F48A 64FF30 push dword ptr fs:[eax]
|
||
0086F48D 648920 mov fs:[eax], esp
|
||
0086F490 8D55FC lea edx, [ebp-$04]
|
||
0086F493 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086F495 E82202D2FF call 0058F6BC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086F49A 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
|
||
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
|
||
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
|
||
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
|
||
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
|
||
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
||
|
|
||
0086F4A0 E8A7CEDEFF call 0065C34C
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F4A5 E8BA26DEFF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0086F4AA 8B4050 mov eax, [eax+$50]
|
||
0086F4AD 8D55F4 lea edx, [ebp-$0C]
|
||
0086F4B0 8B08 mov ecx, [eax]
|
||
0086F4B2 FF5110 call dword ptr [ecx+$10]
|
||
0086F4B5 8B45F4 mov eax, [ebp-$0C]
|
||
0086F4B8 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F4BB E82CB4B9FF call 0040A8EC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086F4C0 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086F4C6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086F4C8 E8738FC5FF call 004C8440
|
||
0086F4CD 8D55E0 lea edx, [ebp-$20]
|
||
0086F4D0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F4D3 E814B4B9FF call 0040A8EC
|
||
0086F4D8 8B55E0 mov edx, [ebp-$20]
|
||
0086F4DB 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086F4DE E8E598BAFF call 00418DC8
|
||
0086F4E3 8D45E4 lea eax, [ebp-$1C]
|
||
0086F4E6 50 push eax
|
||
0086F4E7 8B55F8 mov edx, [ebp-$08]
|
||
0086F4EA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F4EC E8C376C5FF call 004C6BB4
|
||
0086F4F1 5A pop edx
|
||
0086F4F2 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0086F4F4 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086F4FA 8BC3 mov eax, ebx
|
||
0086F4FC 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0086F4FE FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086F504 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086F50A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F50C E8C363C5FF call 004C58D4
|
||
0086F511 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F513 E894EAC6FF call 004DDFAC
|
||
0086F518 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086F51A FF5244 call dword ptr [edx+$44]
|
||
0086F51D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F51F E888EAC6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086F524 BA54F68600 mov edx, $0086F654
|
||
0086F529 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F52B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086F52E 6870F68600 push $0086F670
|
||
0086F533 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0086F536 6880F68600 push $0086F680
|
||
0086F53B 8D55D8 lea edx, [ebp-$28]
|
||
0086F53E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F541 E8A6B3B9FF call 0040A8EC
|
||
0086F546 FF75D8 push dword ptr [ebp-$28]
|
||
0086F549 688CF68600 push $0086F68C
|
||
0086F54E 8D45DC lea eax, [ebp-$24]
|
||
0086F551 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F556 E85961B9FF call 004056B4
|
||
0086F55B 8B45DC mov eax, [ebp-$24]
|
||
0086F55E 50 push eax
|
||
0086F55F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F561 E846EAC6FF call 004DDFAC
|
||
0086F566 5A pop edx
|
||
0086F567 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F569 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086F56C 6898F68600 push $0086F698
|
||
0086F571 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.v2KPMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086F6EC 55 push ebp
|
||
0086F6ED 8BEC mov ebp, esp
|
||
0086F6EF B90C000000 mov ecx, $0000000C
|
||
0086F6F4 6A00 push $00
|
||
0086F6F6 6A00 push $00
|
||
0086F6F8 49 dec ecx
|
||
0086F6F9 75F9 jnz 0086F6F4
|
||
0086F6FB 53 push ebx
|
||
0086F6FC 56 push esi
|
||
0086F6FD 8BDA mov ebx, edx
|
||
0086F6FF 8BF0 mov esi, eax
|
||
0086F701 33C0 xor eax, eax
|
||
0086F703 55 push ebp
|
||
0086F704 68E3F98600 push $0086F9E3
|
||
|
||
***** TRY
|
||
|
|
||
0086F709 64FF30 push dword ptr fs:[eax]
|
||
0086F70C 648920 mov fs:[eax], esp
|
||
0086F70F 8D55FC lea edx, [ebp-$04]
|
||
0086F712 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086F714 E8A3FFD1FF call 0058F6BC
|
||
0086F719 8D55EC lea edx, [ebp-$14]
|
||
0086F71C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F71F E8C8B1B9FF call 0040A8EC
|
||
0086F724 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
0086F728 750D jnz 0086F737
|
||
0086F72A 8D45FC lea eax, [ebp-$04]
|
||
0086F72D BAF8F98600 mov edx, $0086F9F8
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0086F732 E8855CB9FF call 004053BC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0086F737 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
|
||
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
|
||
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
|
||
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
|
||
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
|
||
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
||
|
|
||
0086F73D E80ACCDEFF call 0065C34C
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F742 E81D24DEFF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0086F747 8B4050 mov eax, [eax+$50]
|
||
0086F74A 8D55E8 lea edx, [ebp-$18]
|
||
0086F74D 8B08 mov ecx, [eax]
|
||
0086F74F FF5110 call dword ptr [ecx+$10]
|
||
0086F752 8B45E8 mov eax, [ebp-$18]
|
||
0086F755 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F758 E88FB1B9FF call 0040A8EC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086F75D 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086F763 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086F765 E8D68CC5FF call 004C8440
|
||
0086F76A 8D55D4 lea edx, [ebp-$2C]
|
||
0086F76D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F770 E877B1B9FF call 0040A8EC
|
||
0086F775 8B55D4 mov edx, [ebp-$2C]
|
||
0086F778 8D45D8 lea eax, [ebp-$28]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086F77B E84896BAFF call 00418DC8
|
||
0086F780 8D45D8 lea eax, [ebp-$28]
|
||
0086F783 50 push eax
|
||
0086F784 8B55F0 mov edx, [ebp-$10]
|
||
0086F787 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F789 E82674C5FF call 004C6BB4
|
||
0086F78E 5A pop edx
|
||
0086F78F 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0086F791 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086F797 8BC3 mov eax, ebx
|
||
0086F799 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0086F79B FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0086F7A1 8B9E08030000 mov ebx, [esi+$0308]
|
||
0086F7A7 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F7A9 E82661C5FF call 004C58D4
|
||
0086F7AE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F7B0 E8F7E7C6FF call 004DDFAC
|
||
0086F7B5 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086F7B7 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0086F7BA 6804FA8600 push $0086FA04
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0086F7BF BA4CFA8600 mov edx, $0086FA4C
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086F7C4 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F7CA E8E573C5FF call 004C6BB4
|
||
0086F7CF 8D55CC lea edx, [ebp-$34]
|
||
0086F7D2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0086F7D4 FF5160 call dword ptr [ecx+$60]
|
||
0086F7D7 FF75CC push dword ptr [ebp-$34]
|
||
0086F7DA 685CFA8600 push $0086FA5C
|
||
0086F7DF 8D45D0 lea eax, [ebp-$30]
|
||
0086F7E2 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F7E7 E8C85EB9FF call 004056B4
|
||
0086F7EC 8B45D0 mov eax, [ebp-$30]
|
||
0086F7EF 50 push eax
|
||
0086F7F0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F7F2 E8B5E7C6FF call 004DDFAC
|
||
0086F7F7 5A pop edx
|
||
0086F7F8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F7FA FF5138 call dword ptr [ecx+$38]
|
||
0086F7FD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0086F7FF E8C460C5FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'KPMoney'
|
||
|
|
||
0086F804 BA68FA8600 mov edx, $0086FA68
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0086F809 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F80F E8A073C5FF call 004C6BB4
|
||
0086F814 8D55F4 lea edx, [ebp-$0C]
|
||
0086F817 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
0086F819 FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'KPMoney'
|
||
|
|
||
0086F81C BA68FA8600 mov edx, $0086FA68
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086F821 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F827 E88873C5FF call 004C6BB4
|
||
0086F82C 8D55F8 lea edx, [ebp-$08]
|
||
0086F82F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0086F831 FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086F834 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086F83A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F83C E89360C5FF call 004C58D4
|
||
0086F841 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F843 E864E7C6FF call 004DDFAC
|
||
0086F848 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086F84A FF5244 call dword ptr [edx+$44]
|
||
0086F84D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F84F E858E7C6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086F854 BA78FA8600 mov edx, $0086FA78
|
||
0086F859 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F85B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086F85E 6894FA8600 push $0086FA94
|
||
0086F863 FF75F0 push dword ptr [ebp-$10]
|
||
0086F866 68A4FA8600 push $0086FAA4
|
||
0086F86B 8D55C4 lea edx, [ebp-$3C]
|
||
0086F86E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F871 E876B0B9FF call 0040A8EC
|
||
0086F876 FF75C4 push dword ptr [ebp-$3C]
|
||
0086F879 8D45C8 lea eax, [ebp-$38]
|
||
0086F87C BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F881 E82E5EB9FF call 004056B4
|
||
0086F886 8B45C8 mov eax, [ebp-$38]
|
||
0086F889 50 push eax
|
||
0086F88A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086F88C E81BE7C6FF call 004DDFAC
|
||
0086F891 5A pop edx
|
||
0086F892 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086F894 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086F897 68B0FA8600 push $0086FAB0
|
||
0086F89C 8D55BC lea edx, [ebp-$44]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.Button1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086FB6C 55 push ebp
|
||
0086FB6D 8BEC mov ebp, esp
|
||
0086FB6F B910000000 mov ecx, $00000010
|
||
0086FB74 6A00 push $00
|
||
0086FB76 6A00 push $00
|
||
0086FB78 49 dec ecx
|
||
0086FB79 75F9 jnz 0086FB74
|
||
0086FB7B 51 push ecx
|
||
0086FB7C 53 push ebx
|
||
0086FB7D 56 push esi
|
||
0086FB7E 57 push edi
|
||
0086FB7F 8945FC mov [ebp-$04], eax
|
||
0086FB82 33C0 xor eax, eax
|
||
0086FB84 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>K<EFBFBD><4B><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0086FB85 68FDFE8600 push $0086FEFD
|
||
|
||
***** TRY
|
||
|
|
||
0086FB8A 64FF30 push dword ptr fs:[eax]
|
||
0086FB8D 648920 mov fs:[eax], esp
|
||
0086FB90 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086FB93 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086FB99 E82283C5FF call 004C7EC0
|
||
0086FB9E 84C0 test al, al
|
||
0086FBA0 0F85F1020000 jnz 0086FE97
|
||
0086FBA6 A00CFF8600 mov al, byte ptr [$0086FF0C]
|
||
0086FBAB 50 push eax
|
||
0086FBAC 8D45EC lea eax, [ebp-$14]
|
||
0086FBAF B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0086FBB1 E8AE91BAFF call 00418D64
|
||
0086FBB6 8D4DEC lea ecx, [ebp-$14]
|
||
0086FBB9 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086FBBC 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0086FBC2 BA18FF8600 mov edx, $0086FF18
|
||
0086FBC7 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0086FBC9 FF9344020000 call dword ptr [ebx+$0244]
|
||
0086FBCF 84C0 test al, al
|
||
0086FBD1 751D jnz 0086FBF0
|
||
0086FBD3 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086FBD5 B920FF8600 mov ecx, $0086FF20
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0086FBDA BA28FF8600 mov edx, $0086FF28
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.CheckBox1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086FFE8 55 push ebp
|
||
0086FFE9 8BEC mov ebp, esp
|
||
0086FFEB B905000000 mov ecx, $00000005
|
||
0086FFF0 6A00 push $00
|
||
0086FFF2 6A00 push $00
|
||
0086FFF4 49 dec ecx
|
||
0086FFF5 75F9 jnz 0086FFF0
|
||
0086FFF7 53 push ebx
|
||
0086FFF8 56 push esi
|
||
0086FFF9 57 push edi
|
||
0086FFFA 8BF0 mov esi, eax
|
||
0086FFFC 33C0 xor eax, eax
|
||
0086FFFE 55 push ebp
|
||
0086FFFF 68B6018700 push $008701B6
|
||
|
||
***** TRY
|
||
|
|
||
00870004 64FF30 push dword ptr fs:[eax]
|
||
00870007 648920 mov fs:[eax], esp
|
||
0087000A BACC018700 mov edx, $008701CC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label14 : TLabel
|
||
|
|
||
0087000F 8B8600040000 mov eax, [esi+$0400]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
00870015 E80686C1FF call 00488620
|
||
0087001A BACC018700 mov edx, $008701CC
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label16 : TLabel
|
||
|
|
||
0087001F 8B8604040000 mov eax, [esi+$0404]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
00870025 E8F685C1FF call 00488620
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0087002A 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00870030 E88B7EC5FF call 004C7EC0
|
||
00870035 84C0 test al, al
|
||
00870037 0F8543010000 jnz 00870180
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0087003D 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00870043 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
00870045 E80A75C5FF call 004C7554
|
||
0087004A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0087004C E8DF7FC5FF call 004C8030
|
||
00870051 E90F010000 jmp 00870165
|
||
00870056 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00870058 E8E383C5FF call 004C8440
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CheckBox1 : TCheckBox
|
||
|
|
||
0087005D 8B8670030000 mov eax, [esi+$0370]
|
||
00870063 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
00870065 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0087006B 8BD0 mov edx, eax
|
||
0087006D 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00870070 E8EF8CBAFF call 00418D64
|
||
00870075 8D45F0 lea eax, [ebp-$10]
|
||
00870078 50 push eax
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00870079 BAD8018700 mov edx, $008701D8
|
||
0087007E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00870080 E82F6BC5FF call 004C6BB4
|
||
00870085 5A pop edx
|
||
00870086 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00870088 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CheckBox1 : TCheckBox
|
||
|
|
||
0087008E 8B8670030000 mov eax, [esi+$0370]
|
||
00870094 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
00870096 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0087009C 3C01 cmp al, $01
|
||
0087009E 0F85B0000000 jnz 00870154
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
008700A4 BAE8018700 mov edx, $008701E8
|
||
008700A9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008700AB E8046BC5FF call 004C6BB4
|
||
008700B0 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
008700B2 FF524C call dword ptr [edx+$4C]
|
||
008700B5 DF7DE4 fistp qword ptr [ebp-$1C]
|
||
008700B8 9B wait
|
||
008700B9 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label14 : TLabel
|
||
|
|
||
008700BC 8BBE00040000 mov edi, [esi+$0400]
|
||
008700C2 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
008700C4 E82785C1FF call 004885F0
|
||
008700C9 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008700CC E85BD6B9FF call 0040D72C
|
||
008700D1 D80DEC018700 fmul dword ptr [$008701EC]
|
||
008700D7 DF6DE4 fild qword ptr [ebp-$1C]
|
||
008700DA DEC1 faddp st(1), st(0)
|
||
008700DC D835EC018700 fdiv dword ptr [$008701EC]
|
||
008700E2 83C4F4 add esp, -$0C
|
||
008700E5 DB3C24 fstp tbyte ptr [esp]
|
||
008700E8 9B wait
|
||
008700E9 8D45EC lea eax, [ebp-$14]
|
||
|
||
|
|
||
008700EC E8BBD4B9FF call 0040D5AC
|
||
008700F1 8B55EC mov edx, [ebp-$14]
|
||
008700F4 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
008700F6 E82585C1FF call 00488620
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
008700FB BAF8018700 mov edx, $008701F8
|
||
00870100 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00870102 E8AD6AC5FF call 004C6BB4
|
||
00870107 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
00870109 FF524C call dword ptr [edx+$4C]
|
||
0087010C DF7DE4 fistp qword ptr [ebp-$1C]
|
||
0087010F 9B wait
|
||
00870110 8D55D8 lea edx, [ebp-$28]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label16 : TLabel
|
||
|
|
||
00870113 8B8604040000 mov eax, [esi+$0404]
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
00870119 E8D284C1FF call 004885F0
|
||
0087011E 8B45D8 mov eax, [ebp-$28]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00870121 E806D6B9FF call 0040D72C
|
||
00870126 D80DEC018700 fmul dword ptr [$008701EC]
|
||
0087012C DF6DE4 fild qword ptr [ebp-$1C]
|
||
0087012F DEC1 faddp st(1), st(0)
|
||
00870131 D835EC018700 fdiv dword ptr [$008701EC]
|
||
00870137 83C4F4 add esp, -$0C
|
||
0087013A DB3C24 fstp tbyte ptr [esp]
|
||
0087013D 9B wait
|
||
0087013E 8D45DC lea eax, [ebp-$24]
|
||
|
||
|
|
||
00870141 E866D4B9FF call 0040D5AC
|
||
00870146 8B55DC mov edx, [ebp-$24]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label16 : TLabel
|
||
|
|
||
00870149 8B8604040000 mov eax, [esi+$0404]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0087014F E8CC84C1FF call 00488620
|
||
00870154 8BC3 mov eax, ebx
|
||
00870156 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00870158 FF924C020000 call dword ptr [edx+$024C]
|
||
0087015E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Next(TDataSet);
|
||
|
|
||
00870160 E8E781C5FF call 004C834C
|
||
|
||
* Reference to field TClientDataSet.Eof : Boolean
|
||
|
|
||
00870165 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
|
||
0087016C 0F84E4FEFFFF jz 00870056
|
||
00870172 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
00870174 E8B77EC5FF call 004C8030
|
||
00870179 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
0087017B E8F473C5FF call 004C7574
|
||
00870180 33C0 xor eax, eax
|
||
00870182 5A pop edx
|
||
00870183 59 pop ecx
|
||
00870184 59 pop ecx
|
||
00870185 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00870188 68BD018700 push $008701BD
|
||
0087018D 8D45D8 lea eax, [ebp-$28]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
00870190 E88F51B9FF call 00405324
|
||
00870195 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
00870198 E88751B9FF call 00405324
|
||
0087019D 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
008701A0 E87F51B9FF call 00405324
|
||
008701A5 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
008701A8 E87751B9FF call 00405324
|
||
008701AD 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
008701B0 E8BF44BAFF call 00414674
|
||
008701B5 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008701B6 E93949B9FF jmp 00404AF4
|
||
008701BB EBD0 jmp 0087018D
|
||
|
||
****** END
|
||
|
|
||
008701BD 5F pop edi
|
||
008701BE 5E pop esi
|
||
008701BF 5B pop ebx
|
||
008701C0 8BE5 mov esp, ebp
|
||
008701C2 5D pop ebp
|
||
008701C3 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxTabControl1Change(Sender : TObject);
|
||
begin
|
||
(*
|
||
00870200 53 push ebx
|
||
00870201 8BD8 mov ebx, eax
|
||
00870203 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00870205 E802B6FFFF call 0086B80C
|
||
0087020A 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0087020C E8DFB6FFFF call 0086B8F0
|
||
00870211 5B pop ebx
|
||
00870212 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.FormCreate(Sender : TObject);
|
||
begin
|
||
(*
|
||
00870214 55 push ebp
|
||
00870215 8BEC mov ebp, esp
|
||
00870217 6A00 push $00
|
||
00870219 6A00 push $00
|
||
0087021B 53 push ebx
|
||
0087021C 8BD8 mov ebx, eax
|
||
0087021E 33C0 xor eax, eax
|
||
00870220 55 push ebp
|
||
00870221 688E028700 push $0087028E
|
||
|
||
***** TRY
|
||
|
|
||
00870226 64FF30 push dword ptr fs:[eax]
|
||
00870229 648920 mov fs:[eax], esp
|
||
0087022C B205 mov dl, $05
|
||
|
||
* Reference to control TfrmYSCR_PBSH.cxGrid2 : TcxGrid
|
||
|
|
||
0087022E 8B8384030000 mov eax, [ebx+$0384]
|
||
|
||
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
||
|
|
||
00870234 E8A378C1FF call 00487ADC
|
||
00870239 8D55FC lea edx, [ebp-$04]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TchkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0087029C 55 push ebp
|
||
0087029D 8BEC mov ebp, esp
|
||
0087029F B906000000 mov ecx, $00000006
|
||
008702A4 6A00 push $00
|
||
008702A6 6A00 push $00
|
||
008702A8 49 dec ecx
|
||
008702A9 75F9 jnz 008702A4
|
||
008702AB 51 push ecx
|
||
008702AC 53 push ebx
|
||
008702AD 56 push esi
|
||
008702AE 57 push edi
|
||
008702AF 8945FC mov [ebp-$04], eax
|
||
008702B2 33C0 xor eax, eax
|
||
008702B4 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>E<EFBFBD><45><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
008702B5 6815058700 push $00870515
|
||
|
||
***** TRY
|
||
|
|
||
008702BA 64FF30 push dword ptr fs:[eax]
|
||
008702BD 648920 mov fs:[eax], esp
|
||
008702C0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
008702C3 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
008702C9 E8F27BC5FF call 004C7EC0
|
||
008702CE 84C0 test al, al
|
||
008702D0 0F8507020000 jnz 008704DD
|
||
008702D6 A024058700 mov al, byte ptr [$00870524]
|
||
008702DB 50 push eax
|
||
008702DC 8D45EC lea eax, [ebp-$14]
|
||
008702DF B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
008702E1 E87E8ABAFF call 00418D64
|
||
008702E6 8D4DEC lea ecx, [ebp-$14]
|
||
008702E9 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
008702EC 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
008702F2 BA30058700 mov edx, $00870530
|
||
008702F7 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
008702F9 FF9344020000 call dword ptr [ebx+$0244]
|
||
008702FF 84C0 test al, al
|
||
00870301 751D jnz 00870320
|
||
00870303 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00870305 B938058700 mov ecx, $00870538
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0087030A BA40058700 mov edx, $00870540
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TnochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
008705F0 55 push ebp
|
||
008705F1 8BEC mov ebp, esp
|
||
008705F3 B904000000 mov ecx, $00000004
|
||
008705F8 6A00 push $00
|
||
008705FA 6A00 push $00
|
||
008705FC 49 dec ecx
|
||
008705FD 75F9 jnz 008705F8
|
||
008705FF 51 push ecx
|
||
00870600 53 push ebx
|
||
00870601 56 push esi
|
||
00870602 57 push edi
|
||
00870603 8945FC mov [ebp-$04], eax
|
||
00870606 33C0 xor eax, eax
|
||
00870608 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>B<EFBFBD><42><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00870609 6807088700 push $00870807
|
||
|
||
***** TRY
|
||
|
|
||
0087060E 64FF30 push dword ptr fs:[eax]
|
||
00870611 648920 mov fs:[eax], esp
|
||
00870614 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870617 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0087061D E89E78C5FF call 004C7EC0
|
||
00870622 84C0 test al, al
|
||
00870624 0F85BA010000 jnz 008707E4
|
||
0087062A A018088700 mov al, byte ptr [$00870818]
|
||
0087062F 50 push eax
|
||
00870630 8D45EC lea eax, [ebp-$14]
|
||
00870633 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00870635 E82A87BAFF call 00418D64
|
||
0087063A 8D4DEC lea ecx, [ebp-$14]
|
||
0087063D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870640 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00870646 BA24088700 mov edx, $00870824
|
||
0087064B 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0087064D FF9344020000 call dword ptr [ebx+$0244]
|
||
00870653 84C0 test al, al
|
||
00870655 751D jnz 00870674
|
||
00870657 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00870659 B92C088700 mov ecx, $0087082C
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0087065E BA34088700 mov edx, $00870834
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.nochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
008708BC 55 push ebp
|
||
008708BD 8BEC mov ebp, esp
|
||
008708BF B906000000 mov ecx, $00000006
|
||
008708C4 6A00 push $00
|
||
008708C6 6A00 push $00
|
||
008708C8 49 dec ecx
|
||
008708C9 75F9 jnz 008708C4
|
||
008708CB 51 push ecx
|
||
008708CC 53 push ebx
|
||
008708CD 56 push esi
|
||
008708CE 57 push edi
|
||
008708CF 8945FC mov [ebp-$04], eax
|
||
008708D2 33C0 xor eax, eax
|
||
008708D4 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>?<3F><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
008708D5 686F0B8700 push $00870B6F
|
||
|
||
***** TRY
|
||
|
|
||
008708DA 64FF30 push dword ptr fs:[eax]
|
||
008708DD 648920 mov fs:[eax], esp
|
||
008708E0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
008708E3 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
008708E9 E8D275C5FF call 004C7EC0
|
||
008708EE 84C0 test al, al
|
||
008708F0 0F8539020000 jnz 00870B2F
|
||
008708F6 A0800B8700 mov al, byte ptr [$00870B80]
|
||
008708FB 50 push eax
|
||
008708FC 8D45EC lea eax, [ebp-$14]
|
||
008708FF B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00870901 E85E84BAFF call 00418D64
|
||
00870906 8D4DEC lea ecx, [ebp-$14]
|
||
00870909 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0087090C 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00870912 BA8C0B8700 mov edx, $00870B8C
|
||
00870917 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
00870919 FF9344020000 call dword ptr [ebx+$0244]
|
||
0087091F 84C0 test al, al
|
||
00870921 751D jnz 00870940
|
||
00870923 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00870925 B9940B8700 mov ecx, $00870B94
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0087092A BA9C0B8700 mov edx, $00870B9C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.v2Column5PropertiesChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
00870C74 53 push ebx
|
||
00870C75 56 push esi
|
||
00870C76 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ToolBar1 : TToolBar
|
||
|
|
||
00870C78 8B83F8020000 mov eax, [ebx+$02F8]
|
||
00870C7E 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
00870C80 FF92C4000000 call dword ptr [edx+$00C4]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
00870C86 BAF40C8700 mov edx, $00870CF4
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870C8B 8BB34C030000 mov esi, [ebx+$034C]
|
||
00870C91 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00870C93 E81C5FC5FF call 004C6BB4
|
||
00870C98 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
00870C9A FF524C call dword ptr [edx+$4C]
|
||
00870C9D D835F80C8700 fdiv dword ptr [$00870CF8]
|
||
00870CA3 83C4F8 add esp, -$08
|
||
00870CA6 DD1C24 fstp qword ptr [esp]
|
||
00870CA9 9B wait
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label14 : TLabel
|
||
|
|
||
00870CAA 8B9300040000 mov edx, [ebx+$0400]
|
||
00870CB0 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
||
|
|
||
00870CB2 E8D960F4FF call 007B6D90
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00870CB7 BA040D8700 mov edx, $00870D04
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870CBC 8BB34C030000 mov esi, [ebx+$034C]
|
||
00870CC2 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00870CC4 E8EB5EC5FF call 004C6BB4
|
||
00870CC9 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
00870CCB FF524C call dword ptr [edx+$4C]
|
||
00870CCE D835F80C8700 fdiv dword ptr [$00870CF8]
|
||
00870CD4 83C4F8 add esp, -$08
|
||
00870CD7 DD1C24 fstp qword ptr [esp]
|
||
00870CDA 9B wait
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label16 : TLabel
|
||
|
|
||
00870CDB 8B9304040000 mov edx, [ebx+$0404]
|
||
00870CE1 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
||
|
|
||
00870CE3 E8A860F4FF call 007B6D90
|
||
00870CE8 5E pop esi
|
||
00870CE9 5B pop ebx
|
||
00870CEA C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.cxTabControl2Change(Sender : TObject);
|
||
begin
|
||
(*
|
||
00870D0C 53 push ebx
|
||
00870D0D 8BD8 mov ebx, eax
|
||
00870D0F 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00870D11 E8F6AAFFFF call 0086B80C
|
||
00870D16 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00870D18 E8D3ABFFFF call 0086B8F0
|
||
00870D1D 5B pop ebx
|
||
00870D1E C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TZZSHClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00870D20 55 push ebp
|
||
00870D21 8BEC mov ebp, esp
|
||
00870D23 B904000000 mov ecx, $00000004
|
||
00870D28 6A00 push $00
|
||
00870D2A 6A00 push $00
|
||
00870D2C 49 dec ecx
|
||
00870D2D 75F9 jnz 00870D28
|
||
00870D2F 51 push ecx
|
||
00870D30 53 push ebx
|
||
00870D31 56 push esi
|
||
00870D32 57 push edi
|
||
00870D33 8945FC mov [ebp-$04], eax
|
||
00870D36 33C0 xor eax, eax
|
||
00870D38 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>;<3B><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00870D39 681F0F8700 push $00870F1F
|
||
|
||
***** TRY
|
||
|
|
||
00870D3E 64FF30 push dword ptr fs:[eax]
|
||
00870D41 648920 mov fs:[eax], esp
|
||
00870D44 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870D47 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00870D4D E86E71C5FF call 004C7EC0
|
||
00870D52 84C0 test al, al
|
||
00870D54 0F85A2010000 jnz 00870EFC
|
||
00870D5A A0300F8700 mov al, byte ptr [$00870F30]
|
||
00870D5F 50 push eax
|
||
00870D60 8D45EC lea eax, [ebp-$14]
|
||
00870D63 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00870D65 E8FA7FBAFF call 00418D64
|
||
00870D6A 8D4DEC lea ecx, [ebp-$14]
|
||
00870D6D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870D70 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00870D76 BA3C0F8700 mov edx, $00870F3C
|
||
00870D7B 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
00870D7D FF9344020000 call dword ptr [ebx+$0244]
|
||
00870D83 84C0 test al, al
|
||
00870D85 751D jnz 00870DA4
|
||
00870D87 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00870D89 B9440F8700 mov ecx, $00870F44
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
00870D8E BA4C0F8700 mov edx, $00870F4C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH.TEJCXClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00870FC8 55 push ebp
|
||
00870FC9 8BEC mov ebp, esp
|
||
00870FCB B904000000 mov ecx, $00000004
|
||
00870FD0 6A00 push $00
|
||
00870FD2 6A00 push $00
|
||
00870FD4 49 dec ecx
|
||
00870FD5 75F9 jnz 00870FD0
|
||
00870FD7 51 push ecx
|
||
00870FD8 53 push ebx
|
||
00870FD9 56 push esi
|
||
00870FDA 57 push edi
|
||
00870FDB 8945FC mov [ebp-$04], eax
|
||
00870FDE 33C0 xor eax, eax
|
||
00870FE0 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>(9<><39><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00870FE1 68C7118700 push $008711C7
|
||
|
||
***** TRY
|
||
|
|
||
00870FE6 64FF30 push dword ptr fs:[eax]
|
||
00870FE9 648920 mov fs:[eax], esp
|
||
00870FEC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00870FEF 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00870FF5 E8C66EC5FF call 004C7EC0
|
||
00870FFA 84C0 test al, al
|
||
00870FFC 0F85A2010000 jnz 008711A4
|
||
00871002 A0D8118700 mov al, byte ptr [$008711D8]
|
||
00871007 50 push eax
|
||
00871008 8D45EC lea eax, [ebp-$14]
|
||
0087100B B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0087100D E8527DBAFF call 00418D64
|
||
00871012 8D4DEC lea ecx, [ebp-$14]
|
||
00871015 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
00871018 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0087101E BAE4118700 mov edx, $008711E4
|
||
00871023 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
00871025 FF9344020000 call dword ptr [ebx+$0244]
|
||
0087102B 84C0 test al, al
|
||
0087102D 751D jnz 0087104C
|
||
0087102F 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00871031 B9EC118700 mov ecx, $008711EC
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
00871036 BAF4118700 mov edx, $008711F4
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086B8F1(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086B8F1 8BEC mov ebp, esp
|
||
0086B8F3 33C9 xor ecx, ecx
|
||
0086B8F5 51 push ecx
|
||
0086B8F6 51 push ecx
|
||
0086B8F7 51 push ecx
|
||
0086B8F8 51 push ecx
|
||
0086B8F9 51 push ecx
|
||
0086B8FA 53 push ebx
|
||
0086B8FB 56 push esi
|
||
0086B8FC 8945FC mov [ebp-$04], eax
|
||
0086B8FF 33C0 xor eax, eax
|
||
0086B901 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>~<7E><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086B902 6871BB8600 push $0086BB71
|
||
|
||
***** TRY
|
||
|
|
||
0086B907 64FF30 push dword ptr fs:[eax]
|
||
0086B90A 648920 mov fs:[eax], esp
|
||
0086B90D 33C0 xor eax, eax
|
||
0086B90F 55 push ebp
|
||
0086B910 684FBB8600 push $0086BB4F
|
||
|
||
***** TRY
|
||
|
|
||
0086B915 64FF30 push dword ptr fs:[eax]
|
||
0086B918 648920 mov fs:[eax], esp
|
||
0086B91B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086B91E 8B801C030000 mov eax, [eax+$031C]
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
0086B924 E82BBCC5FF call 004C7554
|
||
0086B929 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086B92C 8B981C030000 mov ebx, [eax+$031C]
|
||
0086B932 33D2 xor edx, edx
|
||
0086B934 8BC3 mov eax, ebx
|
||
0086B936 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_0190
|
||
|
|
||
0086B938 FF9190010000 call dword ptr [ecx+$0190]
|
||
0086B93E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086B940 E88F9FC5FF call 004C58D4
|
||
0086B945 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B947 E86026C7FF call 004DDFAC
|
||
0086B94C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0086B94E FF5244 call dword ptr [edx+$44]
|
||
0086B951 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B953 E85426C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'select A.*'
|
||
|
|
||
0086B958 BA88BB8600 mov edx, $0086BB88
|
||
0086B95D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086B95F FF5138 call dword ptr [ecx+$38]
|
||
0086B962 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B964 E84326C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',ConPrice=(select B.HYPrice from JY
|
||
| OrderCon_Sub B where A.ConID=B.Subi
|
||
| d)'
|
||
|
|
||
0086B969 BA9CBB8600 mov edx, $0086BB9C
|
||
0086B96E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086B970 FF5138 call dword ptr [ecx+$38]
|
||
0086B973 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B975 E83226C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ',OrderUnit=(select Top 1 B.OrderUni
|
||
| t from JYOrderCon_Sub B where B.Sub
|
||
| id=A.ConID)'
|
||
|
|
||
0086B97A BAF0BB8600 mov edx, $0086BBF0
|
||
0086B97F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086B981 FF5138 call dword ptr [ecx+$38]
|
||
0086B984 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B986 E82126C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A'
|
||
|
|
||
0086B98B BA4CBC8600 mov edx, $0086BC4C
|
||
0086B990 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086B992 FF5138 call dword ptr [ecx+$38]
|
||
0086B995 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B997 E81026C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' where A.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
||
|
|
||
0086B99C BA68BC8600 mov edx, $0086BC68
|
||
0086B9A1 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086B9A3 FF5138 call dword ptr [ecx+$38]
|
||
0086B9A6 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0086B9A9 8B8080030000 mov eax, [eax+$0380]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0086B9AF 83B83C03000000 cmp dword ptr [eax+$033C], +$00
|
||
0086B9B6 0F84A1000000 jz 0086BA5D
|
||
|
||
* Possible String Reference to: ' and A.CRTime>=''
|
||
|
|
||
0086B9BC 6890BC8600 push $0086BC90
|
||
0086B9C1 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.begdate : TDateTimePicker
|
||
|
|
||
0086B9C4 8B803C030000 mov eax, [eax+$033C]
|
||
0086B9CA FFB014020000 push dword ptr [eax+$0214]
|
||
0086B9D0 FFB010020000 push dword ptr [eax+$0210]
|
||
0086B9D6 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
0086B9D9 B8ACBC8600 mov eax, $0086BCAC
|
||
|
||
|
|
||
0086B9DE E8D931BAFF call 0040EBBC
|
||
0086B9E3 FF75F4 push dword ptr [ebp-$0C]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
0086B9E6 68C0BC8600 push $0086BCC0
|
||
0086B9EB 8D45F8 lea eax, [ebp-$08]
|
||
0086B9EE BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086B9F3 E8BC9CB9FF call 004056B4
|
||
0086B9F8 8B45F8 mov eax, [ebp-$08]
|
||
0086B9FB 50 push eax
|
||
0086B9FC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086B9FE E8A925C7FF call 004DDFAC
|
||
0086BA03 5A pop edx
|
||
0086BA04 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086BA06 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and A.CRTime<''
|
||
|
|
||
0086BA09 68CCBC8600 push $0086BCCC
|
||
0086BA0E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Enddate : TDateTimePicker
|
||
|
|
||
0086BA11 8B8040030000 mov eax, [eax+$0340]
|
||
0086BA17 DD8010020000 fld qword ptr [eax+$0210]
|
||
0086BA1D D805DCBC8600 fadd dword ptr [$0086BCDC]
|
||
0086BA23 83C4F8 add esp, -$08
|
||
0086BA26 DD1C24 fstp qword ptr [esp]
|
||
0086BA29 9B wait
|
||
0086BA2A 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
0086BA2D B8ACBC8600 mov eax, $0086BCAC
|
||
|
||
|
|
||
0086BA32 E88531BAFF call 0040EBBC
|
||
0086BA37 FF75EC push dword ptr [ebp-$14]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
0086BA3A 68C0BC8600 push $0086BCC0
|
||
0086BA3F 8D45F0 lea eax, [ebp-$10]
|
||
0086BA42 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086BA47 E8689CB9FF call 004056B4
|
||
0086BA4C 8B45F0 mov eax, [ebp-$10]
|
||
0086BA4F 50 push eax
|
||
0086BA50 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086BA52 E85525C7FF call 004DDFAC
|
||
0086BA57 5A pop edx
|
||
0086BA58 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086BA5A FF5138 call dword ptr [ecx+$38]
|
||
0086BA5D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0086BA60 8B8080030000 mov eax, [eax+$0380]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0086BA66 83B83C03000000 cmp dword ptr [eax+$033C], +$00
|
||
0086BA6D 7511 jnz 0086BA80
|
||
0086BA6F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086BA71 E83625C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.status,'0')='1''
|
||
|
|
||
0086BA76 BAE8BC8600 mov edx, $0086BCE8
|
||
0086BA7B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086BA7D FF5138 call dword ptr [ecx+$38]
|
||
0086BA80 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0086BA83 8B8080030000 mov eax, [eax+$0380]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0086BA89 83B83C03000001 cmp dword ptr [eax+$033C], +$01
|
||
0086BA90 7511 jnz 0086BAA3
|
||
0086BA92 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086BA94 E81325C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.status,'0')='2''
|
||
|
|
||
0086BA99 BA10BD8600 mov edx, $0086BD10
|
||
0086BA9E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086BAA0 FF5138 call dword ptr [ecx+$38]
|
||
0086BAA3 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.cxTabControl1 : TcxTabControl
|
||
|
|
||
0086BAA6 8B8080030000 mov eax, [eax+$0380]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0086BAAC 83B83C03000002 cmp dword ptr [eax+$033C], +$02
|
||
0086BAB3 7511 jnz 0086BAC6
|
||
0086BAB5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0086BAB7 E8F024C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.status,'0')<>'0''
|
||
|
|
||
0086BABC BA38BD8600 mov edx, $0086BD38
|
||
0086BAC1 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0086BAC3 FF5138 call dword ptr [ecx+$38]
|
||
0086BAC6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0086BAC8 E8FB9DC5FF call 004C58C8
|
||
0086BACD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086BAD0 8B904C030000 mov edx, [eax+$034C]
|
||
0086BAD6 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086BAD9 8B801C030000 mov eax, [eax+$031C]
|
||
|
||
|
|
||
0086BADF E8ACB3F4FF call 007B6E90
|
||
0086BAE4 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.CDS_HZ : TClientDataSet
|
||
|
|
||
0086BAE7 8B904C030000 mov edx, [eax+$034C]
|
||
0086BAED 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086BAF0 8B801C030000 mov eax, [eax+$031C]
|
||
|
||
|
|
||
0086BAF6 E81DB5F4FF call 007B7018
|
||
0086BAFB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label14 : TLabel
|
||
|
|
||
0086BAFE 8B8000040000 mov eax, [eax+$0400]
|
||
0086BB04 BA60BD8600 mov edx, $0086BD60
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0086BB09 E812CBC1FF call 00488620
|
||
0086BB0E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.Label16 : TLabel
|
||
|
|
||
0086BB11 8B8004040000 mov eax, [eax+$0404]
|
||
0086BB17 BA60BD8600 mov edx, $0086BD60
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0086BB1C E8FFCAC1FF call 00488620
|
||
0086BB21 33C0 xor eax, eax
|
||
0086BB23 5A pop edx
|
||
0086BB24 59 pop ecx
|
||
0086BB25 59 pop ecx
|
||
0086BB26 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
0086BB29 6856BB8600 push $0086BB56
|
||
0086BB2E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryMain : TADOQuery
|
||
|
|
||
0086BB31 8B801C030000 mov eax, [eax+$031C]
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
0086BB37 E838BAC5FF call 004C7574
|
||
0086BB3C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ToolButton2 : TToolButton
|
||
|
|
||
0086BB3F 8B8014030000 mov eax, [eax+$0314]
|
||
0086BB45 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0086BB49 E8068AB9FF call 00404554
|
||
0086BB4E C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0086BB4F E9A08FB9FF jmp 00404AF4
|
||
0086BB54 EBD8 jmp 0086BB2E
|
||
|
||
****** END
|
||
|
|
||
0086BB56 33C0 xor eax, eax
|
||
0086BB58 5A pop edx
|
||
0086BB59 59 pop ecx
|
||
0086BB5A 59 pop ecx
|
||
0086BB5B 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0086BB5E 6878BB8600 push $0086BB78
|
||
0086BB63 8D45EC lea eax, [ebp-$14]
|
||
0086BB66 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0086BB6B E8D897B9FF call 00405348
|
||
0086BB70 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0086BB71 E97E8FB9FF jmp 00404AF4
|
||
0086BB76 EBEB jmp 0086BB63
|
||
|
||
****** END
|
||
|
|
||
0086BB78 5E pop esi
|
||
0086BB79 5B pop ebx
|
||
0086BB7A 8BE5 mov esp, ebp
|
||
0086BB7C 5D pop ebp
|
||
0086BB7D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086BBF7(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086BBF7 6E outsb
|
||
0086BBF8 69743D2873656C65 imul esi, [ebp+edi+$28], $656C6573
|
||
0086BC00 63742054 arpl [eax+$54], si
|
||
0086BC04 6F outsd
|
||
0086BC05 7020 jo 0086BC27
|
||
0086BC07 3120 xor [eax], esp
|
||
0086BC09 42 inc edx
|
||
0086BC0A 2E4F dec edi
|
||
0086BC0C 7264 jb 0086BC72
|
||
0086BC0E 657255 jb 0086BC66
|
||
0086BC11 6E outsb
|
||
0086BC12 69742066726F6D20 imul esi, [eax+$66], $206D6F72
|
||
0086BC1A 4A dec edx
|
||
0086BC1B 59 pop ecx
|
||
0086BC1C 4F dec edi
|
||
0086BC1D 7264 jb 0086BC83
|
||
0086BC1F 657243 jb 0086BC65
|
||
0086BC22 6F outsd
|
||
0086BC23 6E outsb
|
||
0086BC24 5F pop edi
|
||
0086BC25 53 push ebx
|
||
0086BC26 7562 jnz 0086BC8A
|
||
0086BC28 204220 and [edx+$20], al
|
||
0086BC2B 7768 jnbe 0086BC95
|
||
0086BC2D 657265 jb 0086BC95
|
||
0086BC30 20422E and [edx+$2E], al
|
||
0086BC33 53 push ebx
|
||
0086BC34 7562 jnz 0086BC98
|
||
0086BC36 69643D412E436F6E imul esp, [ebp+edi+$41], $6E6F432E
|
||
0086BC3E 49 dec ecx
|
||
0086BC3F 44 inc esp
|
||
0086BC40 2900 sub dword ptr [eax], eax
|
||
0086BC42 0000 add [eax], al
|
||
|
||
0086BC44 FFFF DB $FF, $FF //
|
||
0086BC46 FFFF DB $FF, $FF //
|
||
0086BC48 1300 adc eax, [eax]
|
||
0086BC4A 0000 add [eax], al
|
||
|
||
0086BC4C 206672 and [esi+$72], ah
|
||
0086BC4F 6F outsd
|
||
0086BC50 6D insd
|
||
0086BC51 205946 and [ecx+$46], bl
|
||
0086BC54 5F pop edi
|
||
0086BC55 4D dec ebp
|
||
0086BC56 6F outsd
|
||
0086BC57 6E outsb
|
||
0086BC58 65795F jns 0086BCBA
|
||
0086BC5B 43 inc ebx
|
||
0086BC5C 52 push edx
|
||
0086BC5D 204100 and [ecx+$00], al
|
||
0086BC60 FFFF DB $FF, $FF //
|
||
0086BC62 FFFF DB $FF, $FF //
|
||
0086BC64 1D00000020 sbb eax, $20000000
|
||
0086BC69 7768 jnbe 0086BCD3
|
||
0086BC6B 657265 jb 0086BCD3
|
||
0086BC6E 20412E and [ecx+$2E], al
|
||
0086BC71 43 inc ebx
|
||
0086BC72 52 push edx
|
||
0086BC73 54 push esp
|
||
0086BC74 7970 jns 0086BCE6
|
||
0086BC76 653D27D3A6CA cmp eax, $CAA6D327
|
||
0086BC7C D5 aad
|
||
0086BC7D BFEEB5C7BC mov edi, $BCC7B5EE
|
||
0086BC82 C72720000000 mov dword ptr [edi], $00000020
|
||
0086BC88 FFFF DB $FF, $FF //
|
||
0086BC8A FFFF DB $FF, $FF //
|
||
0086BC8C 1000 adc [eax], al
|
||
0086BC8E 0000 add [eax], al
|
||
|
||
0086BC90 20616E and [ecx+$6E], ah
|
||
0086BC93 6420412E and fs:[ecx+$2E], al
|
||
0086BC97 43 inc ebx
|
||
0086BC98 52 push edx
|
||
0086BC99 54 push esp
|
||
0086BC9A 696D653E3D2700 imul ebp, [ebp+$65], $00273D3E
|
||
0086BCA1 0000 add [eax], al
|
||
|
||
0086BCA3 00FF add bh, bh
|
||
0086BCA5 FFFF DB $FF, $FF //
|
||
0086BCA7 FF0A dec dword ptr [edx]
|
||
0086BCA9 0000 add [eax], al
|
||
|
||
0086BCAB 007979 add [ecx+$79], bh
|
||
0086BCAE 7979 jns 0086BD29
|
||
0086BCB0 2D4D4D2D64 sub eax, $642D4D4D
|
||
0086BCB5 640000 add fs:[eax], al
|
||
0086BCB8 FFFF DB $FF, $FF //
|
||
0086BCBA FFFF DB $FF, $FF //
|
||
0086BCBC 0200 add al, byte ptr [eax]
|
||
0086BCBE 0000 add [eax], al
|
||
|
||
0086BCC0 27 daa
|
||
0086BCC1 2000 and [eax], al
|
||
0086BCC3 00FF add bh, bh
|
||
0086BCC5 FFFF DB $FF, $FF //
|
||
0086BCC7 FF0F dec dword ptr [edi]
|
||
0086BCC9 0000 add [eax], al
|
||
|
||
0086BCCB 0020 add [eax], ah
|
||
0086BCCD 61 popa
|
||
0086BCCE 6E outsb
|
||
0086BCCF 6420412E and fs:[ecx+$2E], al
|
||
0086BCD3 43 inc ebx
|
||
0086BCD4 52 push edx
|
||
0086BCD5 54 push esp
|
||
0086BCD6 696D653C270000 imul ebp, [ebp+$65], $0000273C
|
||
0086BCDD 00803FFFFFFF add [eax+$FFFFFF3F], al
|
||
0086BCE3 FF1D00000020 call [$20000000]
|
||
0086BCE9 61 popa
|
||
0086BCEA 6E outsb
|
||
0086BCEB 64206973 and fs:[ecx+$73], ch
|
||
0086BCEF 6E outsb
|
||
0086BCF0 756C jnz 0086BD5E
|
||
0086BCF2 6C insb
|
||
0086BCF3 28412E sub [ecx+$2E], al
|
||
0086BCF6 7374 jnb 0086BD6C
|
||
0086BCF8 61 popa
|
||
0086BCF9 7475 jz 0086BD70
|
||
0086BCFB 732C jnb 0086BD29
|
||
0086BCFD 27 daa
|
||
0086BCFE 3027 xor [edi], ah
|
||
0086BD00 293D27312700 sub dword ptr [$00273127], edi
|
||
0086BD06 0000 add [eax], al
|
||
|
||
0086BD08 FFFF DB $FF, $FF //
|
||
0086BD0A FFFF DB $FF, $FF //
|
||
0086BD0C 1D00000020 sbb eax, $20000000
|
||
0086BD11 61 popa
|
||
0086BD12 6E outsb
|
||
0086BD13 64206973 and fs:[ecx+$73], ch
|
||
0086BD17 6E outsb
|
||
0086BD18 756C jnz 0086BD86
|
||
0086BD1A 6C insb
|
||
0086BD1B 28412E sub [ecx+$2E], al
|
||
0086BD1E 7374 jnb 0086BD94
|
||
0086BD20 61 popa
|
||
0086BD21 7475 jz 0086BD98
|
||
0086BD23 732C jnb 0086BD51
|
||
0086BD25 27 daa
|
||
0086BD26 3027 xor [edi], ah
|
||
0086BD28 293D27322700 sub dword ptr [$00273227], edi
|
||
0086BD2E 0000 add [eax], al
|
||
|
||
0086BD30 FFFF DB $FF, $FF //
|
||
0086BD32 FFFF DB $FF, $FF //
|
||
0086BD34 1E push ds
|
||
0086BD35 0000 add [eax], al
|
||
|
||
0086BD37 0020 add [eax], ah
|
||
0086BD39 61 popa
|
||
0086BD3A 6E outsb
|
||
0086BD3B 64206973 and fs:[ecx+$73], ch
|
||
0086BD3F 6E outsb
|
||
0086BD40 756C jnz 0086BDAE
|
||
0086BD42 6C insb
|
||
0086BD43 28412E sub [ecx+$2E], al
|
||
0086BD46 7374 jnb 0086BDBC
|
||
0086BD48 61 popa
|
||
0086BD49 7475 jz 0086BDC0
|
||
0086BD4B 732C jnb 0086BD79
|
||
0086BD4D 27 daa
|
||
0086BD4E 3027 xor [edi], ah
|
||
0086BD50 293C3E sub dword ptr [esi+edi], edi
|
||
0086BD53 27 daa
|
||
0086BD54 3027 xor [edi], ah
|
||
0086BD56 0000 add [eax], al
|
||
|
||
0086BD58 FFFF DB $FF, $FF //
|
||
0086BD5A FFFF DB $FF, $FF //
|
||
0086BD5C 0100 add [eax], eax
|
||
0086BD5E 0000 add [eax], al
|
||
|
||
0086BD60 3000 xor [eax], al
|
||
0086BD62 0000 add [eax], al
|
||
|
||
0086BD64 33C0 xor eax, eax
|
||
|
||
* Reference to GlobalVar_00895AAC
|
||
|
|
||
0086BD66 A3AC5A8900 mov dword ptr [$00895AAC], eax
|
||
0086BD6B C3 ret
|
||
|
||
0086BD6C C60102 mov byte ptr [ecx], $02
|
||
0086BD6F C3 ret
|
||
|
||
0086BD70 53 push ebx
|
||
0086BD71 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0086BD73 B99CBD8600 mov ecx, $0086BD9C
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086BD78 8B9388030000 mov edx, [ebx+$0388]
|
||
|
||
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>2'
|
||
|
|
||
0086BD7E B8B0BD8600 mov eax, $0086BDB0
|
||
|
||
|
|
||
0086BD83 E818BEF4FF call 007B7BA0
|
||
0086BD88 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
||
|
|
||
0086BD8A E809A2C3FF call 004A5F98
|
||
0086BD8F 5B pop ebx
|
||
0086BD90 C3 ret
|
||
|
||
0086BD91 0000 add [eax], al
|
||
|
||
0086BD93 00FF add bh, bh
|
||
0086BD95 FFFF DB $FF, $FF //
|
||
0086BD97 FF08 dec dword ptr [eax]
|
||
0086BD99 0000 add [eax], al
|
||
|
||
0086BD9B 00B2C6CEF1B9 add [edx+$B9F1CEC6], dh
|
||
0086BDA1 DCC0 fadd st(0), st(0)
|
||
0086BDA3 ED in eax, dx
|
||
0086BDA4 0000 add [eax], al
|
||
|
||
0086BDA6 0000 add [eax], al
|
||
|
||
0086BDA8 FFFF DB $FF, $FF //
|
||
0086BDAA FFFF DB $FF, $FF //
|
||
0086BDAC 0B00 or eax, [eax]
|
||
0086BDAE 0000 add [eax], al
|
||
|
||
0086BDB0 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
|
||
0086BDB6 B5C7 mov ch, $C7
|
||
0086BDB8 BCC7320055 mov esp, $550032C7
|
||
0086BDBD 8BEC mov ebp, esp
|
||
0086BDBF 33C9 xor ecx, ecx
|
||
0086BDC1 51 push ecx
|
||
0086BDC2 51 push ecx
|
||
0086BDC3 51 push ecx
|
||
0086BDC4 51 push ecx
|
||
0086BDC5 51 push ecx
|
||
0086BDC6 51 push ecx
|
||
0086BDC7 51 push ecx
|
||
0086BDC8 51 push ecx
|
||
0086BDC9 53 push ebx
|
||
0086BDCA 56 push esi
|
||
0086BDCB 57 push edi
|
||
0086BDCC 8945FC mov [ebp-$04], eax
|
||
0086BDCF 33C0 xor eax, eax
|
||
0086BDD1 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>,<2C><><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0086BDD2 68C3BF8600 push $0086BFC3
|
||
|
||
***** TRY
|
||
|
|
||
0086BDD7 64FF30 push dword ptr fs:[eax]
|
||
0086BDDA 648920 mov fs:[eax], esp
|
||
0086BDDD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086BDE0 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086BDE6 E8D5C0C5FF call 004C7EC0
|
||
0086BDEB 84C0 test al, al
|
||
0086BDED 0F85AD010000 jnz 0086BFA0
|
||
0086BDF3 A0D4BF8600 mov al, byte ptr [$0086BFD4]
|
||
0086BDF8 50 push eax
|
||
0086BDF9 8D45EC lea eax, [ebp-$14]
|
||
0086BDFC B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0086BDFE E861CFBAFF call 00418D64
|
||
0086BE03 8D4DEC lea ecx, [ebp-$14]
|
||
0086BE06 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086BE09 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0086BE0F BAE0BF8600 mov edx, $0086BFE0
|
||
0086BE14 8B18 mov ebx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_0244
|
||
|
|
||
0086BE16 FF9344020000 call dword ptr [ebx+$0244]
|
||
0086BE1C 84C0 test al, al
|
||
0086BE1E 751D jnz 0086BE3D
|
||
0086BE20 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086BE22 B9E8BF8600 mov ecx, $0086BFE8
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0086BE27 BAF0BF8600 mov edx, $0086BFF0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086C36D(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086C36D 8BEC mov ebp, esp
|
||
0086C36F B92B000000 mov ecx, $0000002B
|
||
0086C374 6A00 push $00
|
||
0086C376 6A00 push $00
|
||
0086C378 49 dec ecx
|
||
0086C379 75F9 jnz 0086C374
|
||
0086C37B 53 push ebx
|
||
0086C37C 56 push esi
|
||
0086C37D 57 push edi
|
||
0086C37E 8945FC mov [ebp-$04], eax
|
||
0086C381 33C0 xor eax, eax
|
||
0086C383 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><7F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0086C384 68F0CA8600 push $0086CAF0
|
||
|
||
***** TRY
|
||
|
|
||
0086C389 64FF30 push dword ptr fs:[eax]
|
||
0086C38C 648920 mov fs:[eax], esp
|
||
0086C38F 33C0 xor eax, eax
|
||
0086C391 55 push ebp
|
||
0086C392 68B5C98600 push $0086C9B5
|
||
|
||
***** TRY
|
||
|
|
||
0086C397 64FF30 push dword ptr fs:[eax]
|
||
0086C39A 648920 mov fs:[eax], esp
|
||
0086C39D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086C3A0 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
0086C3A6 E881FAC6FF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
||
|
|
||
0086C3AB E8E45EC6FF call 004D2294
|
||
|
||
* Possible String Reference to: 'YF_Money_CR'
|
||
|
|
||
0086C3B0 680CCB8600 push $0086CB0C
|
||
0086C3B5 6A04 push $04
|
||
0086C3B7 6A01 push $01
|
||
0086C3B9 8D55F8 lea edx, [ebp-$08]
|
||
0086C3BC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086C3BF 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Possible String Reference to: 'YS'
|
||
|
|
||
0086C3C5 B920CB8600 mov ecx, $0086CB20
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B7708()
|
||
|
|
||
0086C3CA E839B3F4FF call 007B7708
|
||
0086C3CF 84C0 test al, al
|
||
0086C3D1 753A jnz 0086C40D
|
||
0086C3D3 33DB xor ebx, ebx
|
||
0086C3D5 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmYSCR_PBSH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0086C3D8 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
0086C3DE E849FAC6FF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
||
|
|
||
0086C3E3 E8F85EC6FF call 004D22E0
|
||
0086C3E8 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086C3EA B924CB8600 mov ecx, $0086CB24
|
||
|
||
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
||
|
|
||
0086C3EF BA2CCB8600 mov edx, $0086CB2C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086CBAD(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086CBAD 7064 jo 0086CC13
|
||
0086CBAF 61 popa
|
||
0086CBB0 7465 jz 0086CC17
|
||
0086CBB2 205946 and [ecx+$46], bl
|
||
0086CBB5 5F pop edi
|
||
0086CBB6 4D dec ebp
|
||
0086CBB7 6F outsd
|
||
0086CBB8 6E outsb
|
||
0086CBB9 65795F jns 0086CC1B
|
||
0086CBBC 43 inc ebx
|
||
0086CBBD 52 push edx
|
||
0086CBBE 49 dec ecx
|
||
0086CBBF 44 inc esp
|
||
0086CBC0 207365 and [ebx+$65], dh
|
||
0086CBC3 7420 jz 0086CBE5
|
||
0086CBC5 43 inc ebx
|
||
0086CBC6 52 push edx
|
||
0086CBC7 49 dec ecx
|
||
0086CBC8 44 inc esp
|
||
0086CBC9 3D43524944 cmp eax, $44495243
|
||
0086CBCE 2B31 sub esi, dword ptr [ecx]
|
||
0086CBD0 0000 add [eax], al
|
||
|
||
0086CBD2 0000 add [eax], al
|
||
|
||
0086CBD4 FFFF DB $FF, $FF //
|
||
0086CBD6 FFFF DB $FF, $FF //
|
||
0086CBD8 1C00 sbb al, $00
|
||
0086CBDA 0000 add [eax], al
|
||
|
||
0086CBDC 7365 jnb 0086CC43
|
||
0086CBDE 6C insb
|
||
0086CBDF 656374202A arpl gs:[eax+$2A], si
|
||
0086CBE4 206672 and [esi+$72], ah
|
||
0086CBE7 6F outsd
|
||
0086CBE8 6D insd
|
||
0086CBE9 205946 and [ecx+$46], bl
|
||
0086CBEC 5F pop edi
|
||
0086CBED 4D dec ebp
|
||
0086CBEE 6F outsd
|
||
0086CBEF 6E outsb
|
||
0086CBF0 65795F jns 0086CC52
|
||
0086CBF3 43 inc ebx
|
||
0086CBF4 52 push edx
|
||
0086CBF5 49 dec ecx
|
||
0086CBF6 44 inc esp
|
||
0086CBF7 2000 and [eax], al
|
||
0086CBF9 0000 add [eax], al
|
||
|
||
0086CBFB 00FF add bh, bh
|
||
0086CBFD FFFF DB $FF, $FF //
|
||
0086CBFF FF2400 jmp dword ptr [eax+eax]
|
||
0086CC02 0000 add [eax], al
|
||
|
||
0086CC04 7365 jnb 0086CC6B
|
||
0086CC06 6C insb
|
||
0086CC07 656374202A arpl gs:[eax+$2A], si
|
||
0086CC0C 206672 and [esi+$72], ah
|
||
0086CC0F 6F outsd
|
||
0086CC10 6D insd
|
||
0086CC11 205946 and [ecx+$46], bl
|
||
0086CC14 5F pop edi
|
||
0086CC15 4D dec ebp
|
||
0086CC16 6F outsd
|
||
0086CC17 6E outsb
|
||
0086CC18 65795F jns 0086CC7A
|
||
0086CC1B 4B dec ebx
|
||
0086CC1C 43 inc ebx
|
||
0086CC1D 207768 and [edi+$68], dh
|
||
0086CC20 657265 jb 0086CC88
|
||
0086CC23 2031 and [ecx], dh
|
||
0086CC25 3C3E cmp al, $3E
|
||
0086CC27 3100 xor [eax], eax
|
||
0086CC29 0000 add [eax], al
|
||
|
||
0086CC2B 00FF add bh, bh
|
||
0086CC2D FFFF DB $FF, $FF //
|
||
0086CC2F FF09 dec dword ptr [ecx]
|
||
0086CC31 0000 add [eax], al
|
||
|
||
0086CC33 004661 add [esi+$61], al
|
||
0086CC36 63746F72 arpl [edi+ebp*2+$72], si
|
||
0086CC3A 794E jns 0086CC8A
|
||
0086CC3C 6F outsd
|
||
0086CC3D 0000 add [eax], al
|
||
|
||
0086CC3F 00FF add bh, bh
|
||
0086CC41 FFFF DB $FF, $FF //
|
||
0086CC43 FF07 inc dword ptr [edi]
|
||
0086CC45 0000 add [eax], al
|
||
|
||
0086CC47 005A64 add [edx+$64], bl
|
||
0086CC4A 7953 jns 0086CC9F
|
||
0086CC4C 7472 jz 0086CCC0
|
||
0086CC4E 3100 xor [eax], eax
|
||
0086CC50 FFFF DB $FF, $FF //
|
||
0086CC52 FFFF DB $FF, $FF //
|
||
0086CC54 06 push es
|
||
0086CC55 0000 add [eax], al
|
||
|
||
0086CC57 00D3 add bl, dl
|
||
0086CC59 A6 cmpsb
|
||
0086CC5A CA ret
|
||
|
||
0086CC5B D5 aad
|
||
0086CC5C CA ret
|
||
|
||
0086CC5D D5 aad
|
||
0086CC5E 0000 add [eax], al
|
||
|
||
0086CC60 FFFF DB $FF, $FF //
|
||
0086CC62 FFFF DB $FF, $FF //
|
||
0086CC64 2400 and al, $00
|
||
0086CC66 0000 add [eax], al
|
||
|
||
0086CC68 7365 jnb 0086CCCF
|
||
0086CC6A 6C insb
|
||
0086CC6B 656374202A arpl gs:[eax+$2A], si
|
||
0086CC70 206672 and [esi+$72], ah
|
||
0086CC73 6F outsd
|
||
0086CC74 6D insd
|
||
0086CC75 205946 and [ecx+$46], bl
|
||
0086CC78 5F pop edi
|
||
0086CC79 4D dec ebp
|
||
0086CC7A 6F outsd
|
||
0086CC7B 6E outsb
|
||
0086CC7C 65795F jns 0086CCDE
|
||
0086CC7F 43 inc ebx
|
||
0086CC80 52 push edx
|
||
0086CC81 207768 and [edi+$68], dh
|
||
0086CC84 657265 jb 0086CCEC
|
||
0086CC87 2031 and [ecx], dh
|
||
0086CC89 3C3E cmp al, $3E
|
||
0086CC8B 3100 xor [eax], eax
|
||
0086CC8D 0000 add [eax], al
|
||
|
||
0086CC8F 00FF add bh, bh
|
||
0086CC91 FFFF DB $FF, $FF //
|
||
0086CC93 FF0400 inc dword ptr [eax+eax]
|
||
0086CC96 0000 add [eax], al
|
||
|
||
0086CC98 59 pop ecx
|
||
0086CC99 46 inc esi
|
||
0086CC9A 49 dec ecx
|
||
0086CC9B 44 inc esp
|
||
0086CC9C 0000 add [eax], al
|
||
|
||
0086CC9E 0000 add [eax], al
|
||
|
||
0086CCA0 FFFF DB $FF, $FF //
|
||
0086CCA2 FFFF DB $FF, $FF //
|
||
0086CCA4 06 push es
|
||
0086CCA5 0000 add [eax], al
|
||
|
||
0086CCA7 004669 add [esi+$69], al
|
||
0086CCAA 6C insb
|
||
0086CCAB 6C insb
|
||
0086CCAC 657200 jb 0086CCAF
|
||
0086CCAF 00FF add bh, bh
|
||
0086CCB1 FFFF DB $FF, $FF //
|
||
0086CCB3 FF06 inc dword ptr [esi]
|
||
0086CCB5 0000 add [eax], al
|
||
|
||
0086CCB7 004352 add [ebx+$52], al
|
||
0086CCBA 54 push esp
|
||
0086CCBB 7970 jns 0086CD2D
|
||
0086CCBD 650000 add gs:[eax], al
|
||
0086CCC0 FFFF DB $FF, $FF //
|
||
0086CCC2 FFFF DB $FF, $FF //
|
||
0086CCC4 0A00 or al, byte ptr [eax]
|
||
0086CCC6 0000 add [eax], al
|
||
|
||
0086CCC8 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
|
||
0086CCCE B5C7 mov ch, $C7
|
||
0086CCD0 BCC70000FF mov esp, $FF0000C7
|
||
0086CCD5 FFFF DB $FF, $FF //
|
||
0086CCD7 FF06 inc dword ptr [esi]
|
||
0086CCD9 0000 add [eax], al
|
||
|
||
0086CCDB 004352 add [ebx+$52], al
|
||
0086CCDE 46 inc esi
|
||
0086CCDF 6C insb
|
||
0086CCE0 61 popa
|
||
0086CCE1 670000 add [bx+si], al
|
||
0086CCE4 FFFF DB $FF, $FF //
|
||
0086CCE6 FFFF DB $FF, $FF //
|
||
0086CCE8 07 pop es
|
||
0086CCE9 0000 add [eax], al
|
||
|
||
0086CCEB 005174 add [ecx+$74], dl
|
||
0086CCEE 7946 jns 0086CD36
|
||
0086CCF0 6C insb
|
||
0086CCF1 61 popa
|
||
0086CCF2 6700FF add bh, bh
|
||
0086CCF5 FFFF DB $FF, $FF //
|
||
0086CCF7 FF06 inc dword ptr [esi]
|
||
0086CCF9 0000 add [eax], al
|
||
|
||
0086CCFB 004352 add [ebx+$52], al
|
||
0086CCFE 54 push esp
|
||
0086CCFF 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
|
||
0086CD06 FFFF DB $FF, $FF //
|
||
0086CD08 0A00 or al, byte ptr [eax]
|
||
0086CD0A 0000 add [eax], al
|
||
|
||
0086CD0C 59 pop ecx
|
||
0086CD0D 46 inc esi
|
||
0086CD0E 44 inc esp
|
||
0086CD0F 656646 inc si
|
||
0086CD12 6C insb
|
||
0086CD13 61 popa
|
||
0086CD14 673100 xor [bx+si], eax
|
||
0086CD17 00FF add bh, bh
|
||
0086CD19 FFFF DB $FF, $FF //
|
||
0086CD1B FF06 inc dword ptr [esi]
|
||
0086CD1D 0000 add [eax], al
|
||
|
||
0086CD1F 007374 add [ebx+$74], dh
|
||
0086CD22 61 popa
|
||
0086CD23 7475 jz 0086CD9A
|
||
0086CD25 7300 jnb 0086CD27
|
||
0086CD27 00FF add bh, bh
|
||
0086CD29 FFFF DB $FF, $FF //
|
||
0086CD2B FF0400 inc dword ptr [eax+eax]
|
||
0086CD2E 0000 add [eax], al
|
||
|
||
0086CD30 59 pop ecx
|
||
0086CD31 46 inc esi
|
||
0086CD32 49 dec ecx
|
||
0086CD33 640000 add fs:[eax], al
|
||
0086CD36 0000 add [eax], al
|
||
|
||
0086CD38 D4 aam
|
||
0086CD39 F6D0 not al
|
||
0086CD3B D0CA ror dl, 1
|
||
0086CD3D A7 cmpsd
|
||
0086CD3E B0DC mov al, $DC
|
||
0086CD40 2100 and [eax], eax
|
||
0086CD42 0000 add [eax], al
|
||
|
||
0086CD44 55 push ebp
|
||
0086CD45 8BEC mov ebp, esp
|
||
0086CD47 B908000000 mov ecx, $00000008
|
||
0086CD4C 6A00 push $00
|
||
0086CD4E 6A00 push $00
|
||
0086CD50 49 dec ecx
|
||
0086CD51 75F9 jnz 0086CD4C
|
||
0086CD53 51 push ecx
|
||
0086CD54 53 push ebx
|
||
0086CD55 56 push esi
|
||
0086CD56 8BDA mov ebx, edx
|
||
0086CD58 8BF0 mov esi, eax
|
||
0086CD5A 33C0 xor eax, eax
|
||
0086CD5C 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>{<7B><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086CD5D 6852CF8600 push $0086CF52
|
||
|
||
***** TRY
|
||
|
|
||
0086CD62 64FF30 push dword ptr fs:[eax]
|
||
0086CD65 648920 mov fs:[eax], esp
|
||
0086CD68 8D55FC lea edx, [ebp-$04]
|
||
0086CD6B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086CD6D E84A29D2FF call 0058F6BC
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086CD72 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0086CD78 E8CFF5DEFF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086CD7D E8E24DDEFF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0086CD82 8B4050 mov eax, [eax+$50]
|
||
0086CD85 8D55F4 lea edx, [ebp-$0C]
|
||
0086CD88 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0086CD8A FF5110 call dword ptr [ecx+$10]
|
||
0086CD8D 8B45F4 mov eax, [ebp-$0C]
|
||
0086CD90 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CD93 E854DBB9FF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086CD98 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086CD9E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086CDA0 E89BB6C5FF call 004C8440
|
||
0086CDA5 8D55E0 lea edx, [ebp-$20]
|
||
0086CDA8 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CDAB E83CDBB9FF call 0040A8EC
|
||
0086CDB0 8B55E0 mov edx, [ebp-$20]
|
||
0086CDB3 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086CDB6 E80DC0BAFF call 00418DC8
|
||
0086CDBB 8D45E4 lea eax, [ebp-$1C]
|
||
0086CDBE 50 push eax
|
||
0086CDBF 8B55F8 mov edx, [ebp-$08]
|
||
0086CDC2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086CDC4 E8EB9DC5FF call 004C6BB4
|
||
0086CDC9 5A pop edx
|
||
0086CDCA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0086CDCC FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086CDD2 8BC3 mov eax, ebx
|
||
0086CDD4 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0086CDD6 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0086CDDC 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086CDE2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086CDE4 E8EB8AC5FF call 004C58D4
|
||
0086CDE9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086CDEB E8BC11C7FF call 004DDFAC
|
||
0086CDF0 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0086CDF2 FF5244 call dword ptr [edx+$44]
|
||
0086CDF5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086CDF7 E8B011C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
0086CDFC BA68CF8600 mov edx, $0086CF68
|
||
0086CE01 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086CE03 FF5138 call dword ptr [ecx+$38]
|
||
0086CE06 8D55DC lea edx, [ebp-$24]
|
||
0086CE09 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CE0C E8DBDAB9FF call 0040A8EC
|
||
0086CE11 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0086CE15 7440 jz 0086CE57
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086CE17 6884CF8600 push $0086CF84
|
||
0086CE1C FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0086CE1F 6894CF8600 push $0086CF94
|
||
0086CE24 8D55D4 lea edx, [ebp-$2C]
|
||
0086CE27 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086CE2A E8BDDAB9FF call 0040A8EC
|
||
0086CE2F FF75D4 push dword ptr [ebp-$2C]
|
||
0086CE32 68A0CF8600 push $0086CFA0
|
||
0086CE37 8D45D8 lea eax, [ebp-$28]
|
||
0086CE3A BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086CE3F E87088B9FF call 004056B4
|
||
0086CE44 8B45D8 mov eax, [ebp-$28]
|
||
0086CE47 50 push eax
|
||
0086CE48 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086CE4A E85D11C7FF call 004DDFAC
|
||
0086CE4F 5A pop edx
|
||
0086CE50 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086CE52 FF5138 call dword ptr [ecx+$38]
|
||
0086CE55 EB2B jmp 0086CE82
|
||
0086CE57 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086CE59 E84E11C7FF call 004DDFAC
|
||
0086CE5E 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086CE5F 6884CF8600 push $0086CF84
|
||
0086CE64 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0086CE67 68ACCF8600 push $0086CFAC
|
||
0086CE6C 8D45D0 lea eax, [ebp-$30]
|
||
0086CE6F BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086CE74 E83B88B9FF call 004056B4
|
||
0086CE79 8B55D0 mov edx, [ebp-$30]
|
||
0086CE7C 58 pop eax
|
||
0086CE7D 8B08 mov ecx, [eax]
|
||
0086CE7F FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086CE82 68BCCF8600 push $0086CFBC
|
||
0086CE87 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086CF69(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086CF69 50 push eax
|
||
0086CF6A 6461 popa
|
||
0086CF6C 7465 jz 0086CFD3
|
||
0086CF6E 205943 and [ecx+$43], bl
|
||
0086CF71 4C dec esp
|
||
0086CF72 5F pop edi
|
||
0086CF73 53 push ebx
|
||
0086CF74 47 inc edi
|
||
0086CF75 5F pop edi
|
||
0086CF76 48 dec eax
|
||
0086CF77 5A pop edx
|
||
0086CF78 2000 and [eax], al
|
||
0086CF7A 0000 add [eax], al
|
||
|
||
0086CF7C FFFF DB $FF, $FF //
|
||
0086CF7E FFFF DB $FF, $FF //
|
||
0086CF80 0500000020 add eax, +$20000000
|
||
0086CF85 53 push ebx
|
||
0086CF86 657420 jz 0086CFA9
|
||
0086CF89 0000 add [eax], al
|
||
|
||
0086CF8B 00FF add bh, bh
|
||
0086CF8D FFFF DB $FF, $FF //
|
||
0086CF8F FF02 inc dword ptr [edx]
|
||
0086CF91 0000 add [eax], al
|
||
|
||
0086CF93 003D270000FF add [$FF000027], bh
|
||
0086CF99 FFFF DB $FF, $FF //
|
||
0086CF9B FF01 inc dword ptr [ecx]
|
||
0086CF9D 0000 add [eax], al
|
||
|
||
0086CF9F 0027 add [edi], ah
|
||
0086CFA1 0000 add [eax], al
|
||
|
||
0086CFA3 00FF add bh, bh
|
||
0086CFA5 FFFF DB $FF, $FF //
|
||
0086CFA7 FF050000003D inc dword ptr [$3D000000]
|
||
0086CFAD 4E dec esi
|
||
0086CFAE 55 push ebp
|
||
0086CFAF 4C dec esp
|
||
0086CFB0 4C dec esp
|
||
0086CFB1 0000 add [eax], al
|
||
|
||
0086CFB3 00FF add bh, bh
|
||
0086CFB5 FFFF DB $FF, $FF //
|
||
0086CFB7 FF09 dec dword ptr [ecx]
|
||
0086CFB9 0000 add [eax], al
|
||
|
||
0086CFBB 002C4564697465 add [$65746964+eax*2], ch
|
||
0086CFC2 723D jb 0086D001
|
||
0086CFC4 27 daa
|
||
0086CFC5 0000 add [eax], al
|
||
|
||
0086CFC7 00FF add bh, bh
|
||
0086CFC9 FFFF DB $FF, $FF //
|
||
0086CFCB FF1400 call dword ptr [eax+eax]
|
||
0086CFCE 0000 add [eax], al
|
||
|
||
0086CFD0 2C45 sub al, $45
|
||
0086CFD2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086CFDB 657464 jz 0086D042
|
||
0086CFDE 61 popa
|
||
0086CFDF 7465 jz 0086D046
|
||
0086CFE1 2829 sub [ecx], ch
|
||
0086CFE3 2000 and [eax], al
|
||
0086CFE5 0000 add [eax], al
|
||
|
||
0086CFE7 00FF add bh, bh
|
||
0086CFE9 FFFF DB $FF, $FF //
|
||
0086CFEB FF0E dec dword ptr [esi]
|
||
0086CFED 0000 add [eax], al
|
||
|
||
0086CFEF 0020 add [eax], ah
|
||
0086CFF1 7768 jnbe 0086D05B
|
||
0086CFF3 657265 jb 0086D05B
|
||
0086CFF6 205375 and [ebx+$75], dl
|
||
0086CFF9 624964 bound ecx, qword ptr [ecx+$64]
|
||
0086CFFC 3D270000FF cmp eax, $FF000027
|
||
0086D001 FFFF DB $FF, $FF //
|
||
0086D003 FF0500000053 inc dword ptr [$53000000]
|
||
0086D009 7562 jnz 0086D06D
|
||
0086D00B 49 dec ecx
|
||
0086D00C 640000 add fs:[eax], al
|
||
0086D00F 00558B add [ebp-$75], dl
|
||
0086D012 EC in al, dx
|
||
0086D013 B91F000000 mov ecx, $0000001F
|
||
0086D018 6A00 push $00
|
||
0086D01A 6A00 push $00
|
||
0086D01C 49 dec ecx
|
||
0086D01D 75F9 jnz 0086D018
|
||
0086D01F 53 push ebx
|
||
0086D020 56 push esi
|
||
0086D021 8BF2 mov esi, edx
|
||
0086D023 8BD8 mov ebx, eax
|
||
0086D025 33C0 xor eax, eax
|
||
0086D027 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>s<EFBFBD><73><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086D028 680CD78600 push $0086D70C
|
||
|
||
***** TRY
|
||
|
|
||
0086D02D 64FF30 push dword ptr fs:[eax]
|
||
0086D030 648920 mov fs:[eax], esp
|
||
0086D033 8D55FC lea edx, [ebp-$04]
|
||
0086D036 8BC6 mov eax, esi
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086D038 E87F26D2FF call 0058F6BC
|
||
0086D03D 8D55DC lea edx, [ebp-$24]
|
||
0086D040 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D043 E8A4D8B9FF call 0040A8EC
|
||
0086D048 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0086D04C 750D jnz 0086D05B
|
||
0086D04E 8D45FC lea eax, [ebp-$04]
|
||
0086D051 BA24D78600 mov edx, $0086D724
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0086D056 E86183B9FF call 004053BC
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086D05B 8B8388030000 mov eax, [ebx+$0388]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0086D061 E8E6F2DEFF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086D066 E8F94ADEFF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0086D06B 8B4050 mov eax, [eax+$50]
|
||
0086D06E 8D55D8 lea edx, [ebp-$28]
|
||
0086D071 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0086D073 FF5110 call dword ptr [ecx+$10]
|
||
0086D076 8B45D8 mov eax, [ebp-$28]
|
||
0086D079 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D07C E86BD8B9FF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086D081 8BB34C030000 mov esi, [ebx+$034C]
|
||
0086D087 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086D089 E8B2B3C5FF call 004C8440
|
||
0086D08E 8D55C4 lea edx, [ebp-$3C]
|
||
0086D091 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D094 E853D8B9FF call 0040A8EC
|
||
0086D099 8B55C4 mov edx, [ebp-$3C]
|
||
0086D09C 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086D09F E824BDBAFF call 00418DC8
|
||
0086D0A4 8D45C8 lea eax, [ebp-$38]
|
||
0086D0A7 50 push eax
|
||
0086D0A8 8B55E0 mov edx, [ebp-$20]
|
||
0086D0AB 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086D0AD E8029BC5FF call 004C6BB4
|
||
0086D0B2 5A pop edx
|
||
0086D0B3 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0086D0B5 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086D0BB 8D55C0 lea edx, [ebp-$40]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086D7F1(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086D7F1 50 push eax
|
||
0086D7F2 6461 popa
|
||
0086D7F4 7465 jz 0086D85B
|
||
0086D7F6 205946 and [ecx+$46], bl
|
||
0086D7F9 5F pop edi
|
||
0086D7FA 4D dec ebp
|
||
0086D7FB 6F outsd
|
||
0086D7FC 6E outsb
|
||
0086D7FD 65795F jns 0086D85F
|
||
0086D800 43 inc ebx
|
||
0086D801 52 push edx
|
||
0086D802 2000 and [eax], al
|
||
0086D804 FFFF DB $FF, $FF //
|
||
0086D806 FFFF DB $FF, $FF //
|
||
0086D808 0500000020 add eax, +$20000000
|
||
0086D80D 53 push ebx
|
||
0086D80E 657420 jz 0086D831
|
||
0086D811 0000 add [eax], al
|
||
|
||
0086D813 00FF add bh, bh
|
||
0086D815 FFFF DB $FF, $FF //
|
||
0086D817 FF01 inc dword ptr [ecx]
|
||
0086D819 0000 add [eax], al
|
||
|
||
0086D81B 003D000000FF add [$FF000000], bh
|
||
0086D821 FFFF DB $FF, $FF //
|
||
0086D823 FF07 inc dword ptr [edi]
|
||
0086D825 0000 add [eax], al
|
||
|
||
0086D827 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
|
||
0086D82E 3D00FFFFFF cmp eax, $FFFFFF00
|
||
0086D833 FF09 dec dword ptr [ecx]
|
||
0086D835 0000 add [eax], al
|
||
|
||
0086D837 002C42 add [edx+eax*2], ch
|
||
0086D83A 42 inc edx
|
||
0086D83B 4D dec ebp
|
||
0086D83C 6F outsd
|
||
0086D83D 6E outsb
|
||
0086D83E 65793D jns 0086D87E
|
||
0086D841 0000 add [eax], al
|
||
|
||
0086D843 00FF add bh, bh
|
||
0086D845 FFFF DB $FF, $FF //
|
||
0086D847 FF09 dec dword ptr [ecx]
|
||
0086D849 0000 add [eax], al
|
||
|
||
0086D84B 002C4564697465 add [$65746964+eax*2], ch
|
||
0086D852 723D jb 0086D891
|
||
0086D854 27 daa
|
||
0086D855 0000 add [eax], al
|
||
|
||
0086D857 00FF add bh, bh
|
||
0086D859 FFFF DB $FF, $FF //
|
||
0086D85B FF1400 call dword ptr [eax+eax]
|
||
0086D85E 0000 add [eax], al
|
||
|
||
0086D860 2C45 sub al, $45
|
||
0086D862 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086D86B 657464 jz 0086D8D2
|
||
0086D86E 61 popa
|
||
0086D86F 7465 jz 0086D8D6
|
||
0086D871 2829 sub [ecx], ch
|
||
0086D873 2000 and [eax], al
|
||
0086D875 0000 add [eax], al
|
||
|
||
0086D877 00FF add bh, bh
|
||
0086D879 FFFF DB $FF, $FF //
|
||
0086D87B FF0D00000020 dec dword ptr [$20000000]
|
||
0086D881 7768 jnbe 0086D8EB
|
||
0086D883 657265 jb 0086D8EB
|
||
0086D886 205946 and [ecx+$46], bl
|
||
0086D889 49 dec ecx
|
||
0086D88A 643D27000000 cmp eax, $00000027
|
||
0086D890 FFFF DB $FF, $FF //
|
||
0086D892 FFFF DB $FF, $FF //
|
||
0086D894 0400 add al, +$00
|
||
0086D896 0000 add [eax], al
|
||
|
||
0086D898 59 pop ecx
|
||
0086D899 46 inc esi
|
||
0086D89A 49 dec ecx
|
||
0086D89B 640000 add fs:[eax], al
|
||
0086D89E 0000 add [eax], al
|
||
|
||
0086D8A0 FFFF DB $FF, $FF //
|
||
0086D8A2 FFFF DB $FF, $FF //
|
||
0086D8A4 2B00 sub eax, dword ptr [eax]
|
||
0086D8A6 0000 add [eax], al
|
||
|
||
0086D8A8 55 push ebp
|
||
0086D8A9 7064 jo 0086D90F
|
||
0086D8AB 61 popa
|
||
0086D8AC 7465 jz 0086D913
|
||
0086D8AE 205946 and [ecx+$46], bl
|
||
0086D8B1 5F pop edi
|
||
0086D8B2 4D dec ebp
|
||
0086D8B3 6F outsd
|
||
0086D8B4 6E outsb
|
||
0086D8B5 65795F jns 0086D917
|
||
0086D8B8 4B dec ebx
|
||
0086D8B9 43 inc ebx
|
||
0086D8BA 205365 and [ebx+$65], dl
|
||
0086D8BD 7420 jz 0086D8DF
|
||
0086D8BF 4B dec ebx
|
||
0086D8C0 43 inc ebx
|
||
0086D8C1 42 inc edx
|
||
0086D8C2 42 inc edx
|
||
0086D8C3 4D dec ebp
|
||
0086D8C4 6F outsd
|
||
0086D8C5 6E outsb
|
||
0086D8C6 65793D jns 0086D906
|
||
0086D8C9 4B dec ebx
|
||
0086D8CA 43 inc ebx
|
||
0086D8CB 42 inc edx
|
||
0086D8CC 42 inc edx
|
||
0086D8CD 4D dec ebp
|
||
0086D8CE 6F outsd
|
||
0086D8CF 6E outsb
|
||
0086D8D0 65792D jns 0086D900
|
||
0086D8D3 00FF add bh, bh
|
||
0086D8D5 FFFF DB $FF, $FF //
|
||
0086D8D7 FF01 inc dword ptr [ecx]
|
||
0086D8D9 0000 add [eax], al
|
||
|
||
0086D8DB 002B add [ebx], ch
|
||
0086D8DD 0000 add [eax], al
|
||
|
||
0086D8DF 00FF add bh, bh
|
||
0086D8E1 FFFF DB $FF, $FF //
|
||
0086D8E3 FF0D00000020 dec dword ptr [$20000000]
|
||
0086D8E9 7768 jnbe 0086D953
|
||
0086D8EB 657265 jb 0086D953
|
||
0086D8EE 204352 and [ebx+$52], al
|
||
0086D8F1 49 dec ecx
|
||
0086D8F2 44 inc esp
|
||
0086D8F3 3D27000000 cmp eax, $00000027
|
||
0086D8F8 FFFF DB $FF, $FF //
|
||
0086D8FA FFFF DB $FF, $FF //
|
||
0086D8FC 0400 add al, +$00
|
||
0086D8FE 0000 add [eax], al
|
||
|
||
0086D900 43 inc ebx
|
||
0086D901 52 push edx
|
||
0086D902 49 dec ecx
|
||
0086D903 44 inc esp
|
||
0086D904 0000 add [eax], al
|
||
|
||
0086D906 0000 add [eax], al
|
||
|
||
0086D908 55 push ebp
|
||
0086D909 8BEC mov ebp, esp
|
||
0086D90B B908000000 mov ecx, $00000008
|
||
0086D910 6A00 push $00
|
||
0086D912 6A00 push $00
|
||
0086D914 49 dec ecx
|
||
0086D915 75F9 jnz 0086D910
|
||
0086D917 51 push ecx
|
||
0086D918 53 push ebx
|
||
0086D919 56 push esi
|
||
0086D91A 8BDA mov ebx, edx
|
||
0086D91C 8BF0 mov esi, eax
|
||
0086D91E 33C0 xor eax, eax
|
||
0086D920 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>o<EFBFBD><6F><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086D921 6816DB8600 push $0086DB16
|
||
|
||
***** TRY
|
||
|
|
||
0086D926 64FF30 push dword ptr fs:[eax]
|
||
0086D929 648920 mov fs:[eax], esp
|
||
0086D92C 8D55FC lea edx, [ebp-$04]
|
||
0086D92F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086D931 E8861DD2FF call 0058F6BC
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086D936 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0086D93C E80BEADEFF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086D941 E81E42DEFF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0086D946 8B4050 mov eax, [eax+$50]
|
||
0086D949 8D55F4 lea edx, [ebp-$0C]
|
||
0086D94C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0086D94E FF5110 call dword ptr [ecx+$10]
|
||
0086D951 8B45F4 mov eax, [ebp-$0C]
|
||
0086D954 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D957 E890CFB9FF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086D95C 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086D962 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086D964 E8D7AAC5FF call 004C8440
|
||
0086D969 8D55E0 lea edx, [ebp-$20]
|
||
0086D96C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D96F E878CFB9FF call 0040A8EC
|
||
0086D974 8B55E0 mov edx, [ebp-$20]
|
||
0086D977 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086D97A E849B4BAFF call 00418DC8
|
||
0086D97F 8D45E4 lea eax, [ebp-$1C]
|
||
0086D982 50 push eax
|
||
0086D983 8B55F8 mov edx, [ebp-$08]
|
||
0086D986 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086D988 E82792C5FF call 004C6BB4
|
||
0086D98D 5A pop edx
|
||
0086D98E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0086D990 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086D996 8BC3 mov eax, ebx
|
||
0086D998 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0086D99A FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0086D9A0 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086D9A6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086D9A8 E8277FC5FF call 004C58D4
|
||
0086D9AD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086D9AF E8F805C7FF call 004DDFAC
|
||
0086D9B4 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0086D9B6 FF5244 call dword ptr [edx+$44]
|
||
0086D9B9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086D9BB E8EC05C7FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086D9C0 BA2CDB8600 mov edx, $0086DB2C
|
||
0086D9C5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086D9C7 FF5138 call dword ptr [ecx+$38]
|
||
0086D9CA 8D55DC lea edx, [ebp-$24]
|
||
0086D9CD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D9D0 E817CFB9FF call 0040A8EC
|
||
0086D9D5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
0086D9D9 7440 jz 0086DA1B
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086D9DB 6848DB8600 push $0086DB48
|
||
0086D9E0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0086D9E3 6858DB8600 push $0086DB58
|
||
0086D9E8 8D55D4 lea edx, [ebp-$2C]
|
||
0086D9EB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086D9EE E8F9CEB9FF call 0040A8EC
|
||
0086D9F3 FF75D4 push dword ptr [ebp-$2C]
|
||
0086D9F6 6864DB8600 push $0086DB64
|
||
0086D9FB 8D45D8 lea eax, [ebp-$28]
|
||
0086D9FE BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086DA03 E8AC7CB9FF call 004056B4
|
||
0086DA08 8B45D8 mov eax, [ebp-$28]
|
||
0086DA0B 50 push eax
|
||
0086DA0C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086DA0E E89905C7FF call 004DDFAC
|
||
0086DA13 5A pop edx
|
||
0086DA14 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086DA16 FF5138 call dword ptr [ecx+$38]
|
||
0086DA19 EB2B jmp 0086DA46
|
||
0086DA1B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086DA1D E88A05C7FF call 004DDFAC
|
||
0086DA22 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086DA23 6848DB8600 push $0086DB48
|
||
0086DA28 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0086DA2B 6870DB8600 push $0086DB70
|
||
0086DA30 8D45D0 lea eax, [ebp-$30]
|
||
0086DA33 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086DA38 E8777CB9FF call 004056B4
|
||
0086DA3D 8B55D0 mov edx, [ebp-$30]
|
||
0086DA40 58 pop eax
|
||
0086DA41 8B08 mov ecx, [eax]
|
||
0086DA43 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086DA46 6880DB8600 push $0086DB80
|
||
0086DA4B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086DB2D(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086DB2D 50 push eax
|
||
0086DB2E 6461 popa
|
||
0086DB30 7465 jz 0086DB97
|
||
0086DB32 205946 and [ecx+$46], bl
|
||
0086DB35 5F pop edi
|
||
0086DB36 4D dec ebp
|
||
0086DB37 6F outsd
|
||
0086DB38 6E outsb
|
||
0086DB39 65795F jns 0086DB9B
|
||
0086DB3C 43 inc ebx
|
||
0086DB3D 52 push edx
|
||
0086DB3E 2000 and [eax], al
|
||
0086DB40 FFFF DB $FF, $FF //
|
||
0086DB42 FFFF DB $FF, $FF //
|
||
0086DB44 0500000020 add eax, +$20000000
|
||
0086DB49 53 push ebx
|
||
0086DB4A 657420 jz 0086DB6D
|
||
0086DB4D 0000 add [eax], al
|
||
|
||
0086DB4F 00FF add bh, bh
|
||
0086DB51 FFFF DB $FF, $FF //
|
||
0086DB53 FF02 inc dword ptr [edx]
|
||
0086DB55 0000 add [eax], al
|
||
|
||
0086DB57 003D270000FF add [$FF000027], bh
|
||
0086DB5D FFFF DB $FF, $FF //
|
||
0086DB5F FF01 inc dword ptr [ecx]
|
||
0086DB61 0000 add [eax], al
|
||
|
||
0086DB63 0027 add [edi], ah
|
||
0086DB65 0000 add [eax], al
|
||
|
||
0086DB67 00FF add bh, bh
|
||
0086DB69 FFFF DB $FF, $FF //
|
||
0086DB6B FF050000003D inc dword ptr [$3D000000]
|
||
0086DB71 4E dec esi
|
||
0086DB72 55 push ebp
|
||
0086DB73 4C dec esp
|
||
0086DB74 4C dec esp
|
||
0086DB75 0000 add [eax], al
|
||
|
||
0086DB77 00FF add bh, bh
|
||
0086DB79 FFFF DB $FF, $FF //
|
||
0086DB7B FF09 dec dword ptr [ecx]
|
||
0086DB7D 0000 add [eax], al
|
||
|
||
0086DB7F 002C4564697465 add [$65746964+eax*2], ch
|
||
0086DB86 723D jb 0086DBC5
|
||
0086DB88 27 daa
|
||
0086DB89 0000 add [eax], al
|
||
|
||
0086DB8B 00FF add bh, bh
|
||
0086DB8D FFFF DB $FF, $FF //
|
||
0086DB8F FF1400 call dword ptr [eax+eax]
|
||
0086DB92 0000 add [eax], al
|
||
|
||
0086DB94 2C45 sub al, $45
|
||
0086DB96 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086DB9F 657464 jz 0086DC06
|
||
0086DBA2 61 popa
|
||
0086DBA3 7465 jz 0086DC0A
|
||
0086DBA5 2829 sub [ecx], ch
|
||
0086DBA7 2000 and [eax], al
|
||
0086DBA9 0000 add [eax], al
|
||
|
||
0086DBAB 00FF add bh, bh
|
||
0086DBAD FFFF DB $FF, $FF //
|
||
0086DBAF FF0D00000020 dec dword ptr [$20000000]
|
||
0086DBB5 7768 jnbe 0086DC1F
|
||
0086DBB7 657265 jb 0086DC1F
|
||
0086DBBA 205946 and [ecx+$46], bl
|
||
0086DBBD 49 dec ecx
|
||
0086DBBE 643D27000000 cmp eax, $00000027
|
||
0086DBC4 FFFF DB $FF, $FF //
|
||
0086DBC6 FFFF DB $FF, $FF //
|
||
0086DBC8 0400 add al, +$00
|
||
0086DBCA 0000 add [eax], al
|
||
|
||
0086DBCC 59 pop ecx
|
||
0086DBCD 46 inc esi
|
||
0086DBCE 49 dec ecx
|
||
0086DBCF 640000 add fs:[eax], al
|
||
0086DBD2 0000 add [eax], al
|
||
|
||
0086DBD4 55 push ebp
|
||
0086DBD5 8BEC mov ebp, esp
|
||
0086DBD7 B90C000000 mov ecx, $0000000C
|
||
0086DBDC 6A00 push $00
|
||
0086DBDE 6A00 push $00
|
||
0086DBE0 49 dec ecx
|
||
0086DBE1 75F9 jnz 0086DBDC
|
||
0086DBE3 51 push ecx
|
||
0086DBE4 53 push ebx
|
||
0086DBE5 56 push esi
|
||
0086DBE6 8BF0 mov esi, eax
|
||
0086DBE8 33C0 xor eax, eax
|
||
0086DBEA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>l<EFBFBD><6C><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086DBEB 680DDE8600 push $0086DE0D
|
||
|
||
***** TRY
|
||
|
|
||
0086DBF0 64FF30 push dword ptr fs:[eax]
|
||
0086DBF3 648920 mov fs:[eax], esp
|
||
0086DBF6 33C0 xor eax, eax
|
||
0086DBF8 55 push ebp
|
||
0086DBF9 68ABDD8600 push $0086DDAB
|
||
|
||
***** TRY
|
||
|
|
||
0086DBFE 64FF30 push dword ptr fs:[eax]
|
||
0086DC01 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086E2E9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086E2E9 50 push eax
|
||
0086E2EA 6461 popa
|
||
0086E2EC 7465 jz 0086E353
|
||
0086E2EE 205946 and [ecx+$46], bl
|
||
0086E2F1 5F pop edi
|
||
0086E2F2 4D dec ebp
|
||
0086E2F3 6F outsd
|
||
0086E2F4 6E outsb
|
||
0086E2F5 65795F jns 0086E357
|
||
0086E2F8 43 inc ebx
|
||
0086E2F9 52 push edx
|
||
0086E2FA 2000 and [eax], al
|
||
0086E2FC FFFF DB $FF, $FF //
|
||
0086E2FE FFFF DB $FF, $FF //
|
||
0086E300 0D00000020 or eax, $20000000
|
||
0086E305 53 push ebx
|
||
0086E306 657420 jz 0086E329
|
||
0086E309 59 pop ecx
|
||
0086E30A 46 inc esi
|
||
0086E30B 43 inc ebx
|
||
0086E30C 6F outsd
|
||
0086E30D 64653D27000000 cmp eax, $00000027
|
||
0086E314 FFFF DB $FF, $FF //
|
||
0086E316 FFFF DB $FF, $FF //
|
||
0086E318 0100 add [eax], eax
|
||
0086E31A 0000 add [eax], al
|
||
|
||
0086E31C 27 daa
|
||
0086E31D 0000 add [eax], al
|
||
|
||
0086E31F 00FF add bh, bh
|
||
0086E321 FFFF DB $FF, $FF //
|
||
0086E323 FF0A dec dword ptr [edx]
|
||
0086E325 0000 add [eax], al
|
||
|
||
0086E327 0020 add [eax], ah
|
||
0086E329 2C59 sub al, $59
|
||
0086E32B 46 inc esi
|
||
0086E32C 4E dec esi
|
||
0086E32D 61 popa
|
||
0086E32E 6D insd
|
||
0086E32F 653D270000FF cmp eax, $FF000027
|
||
0086E335 FFFF DB $FF, $FF //
|
||
0086E337 FF09 dec dword ptr [ecx]
|
||
0086E339 0000 add [eax], al
|
||
|
||
0086E33B 002C4564697465 add [$65746964+eax*2], ch
|
||
0086E342 723D jb 0086E381
|
||
0086E344 27 daa
|
||
0086E345 0000 add [eax], al
|
||
|
||
0086E347 00FF add bh, bh
|
||
0086E349 FFFF DB $FF, $FF //
|
||
0086E34B FF1400 call dword ptr [eax+eax]
|
||
0086E34E 0000 add [eax], al
|
||
|
||
0086E350 2C45 sub al, $45
|
||
0086E352 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086E35B 657464 jz 0086E3C2
|
||
0086E35E 61 popa
|
||
0086E35F 7465 jz 0086E3C6
|
||
0086E361 2829 sub [ecx], ch
|
||
0086E363 2000 and [eax], al
|
||
0086E365 0000 add [eax], al
|
||
|
||
0086E367 00FF add bh, bh
|
||
0086E369 FFFF DB $FF, $FF //
|
||
0086E36B FF0D00000020 dec dword ptr [$20000000]
|
||
0086E371 7768 jnbe 0086E3DB
|
||
0086E373 657265 jb 0086E3DB
|
||
0086E376 205946 and [ecx+$46], bl
|
||
0086E379 49 dec ecx
|
||
0086E37A 643D27000000 cmp eax, $00000027
|
||
0086E380 FFFF DB $FF, $FF //
|
||
0086E382 FFFF DB $FF, $FF //
|
||
0086E384 0400 add al, +$00
|
||
0086E386 0000 add [eax], al
|
||
|
||
0086E388 59 pop ecx
|
||
0086E389 46 inc esi
|
||
0086E38A 49 dec ecx
|
||
0086E38B 640000 add fs:[eax], al
|
||
0086E38E 0000 add [eax], al
|
||
|
||
0086E390 55 push ebp
|
||
0086E391 8BEC mov ebp, esp
|
||
0086E393 51 push ecx
|
||
0086E394 B907000000 mov ecx, $00000007
|
||
0086E399 6A00 push $00
|
||
0086E39B 6A00 push $00
|
||
0086E39D 49 dec ecx
|
||
0086E39E 75F9 jnz 0086E399
|
||
0086E3A0 51 push ecx
|
||
0086E3A1 874DFC xchg [ebp-$04], ecx
|
||
0086E3A4 53 push ebx
|
||
0086E3A5 56 push esi
|
||
0086E3A6 8BF0 mov esi, eax
|
||
0086E3A8 33C0 xor eax, eax
|
||
0086E3AA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>d<EFBFBD><64><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086E3AB 683CE68600 push $0086E63C
|
||
|
||
***** TRY
|
||
|
|
||
0086E3B0 64FF30 push dword ptr fs:[eax]
|
||
0086E3B3 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086E3B6 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086E3BC BA54E68600 mov edx, $0086E654
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086E3C1 E8EE87C5FF call 004C6BB4
|
||
0086E3C6 8D55F8 lea edx, [ebp-$08]
|
||
0086E3C9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0086E3CB FF5160 call dword ptr [ecx+$60]
|
||
0086E3CE 8B45F8 mov eax, [ebp-$08]
|
||
0086E3D1 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086E3D4 E813C5B9FF call 0040A8EC
|
||
0086E3D9 837DFC00 cmp dword ptr [ebp-$04], +$00
|
||
0086E3DD 741D jz 0086E3FC
|
||
0086E3DF 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086E3E1 B95CE68600 mov ecx, $0086E65C
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
||
|
|
||
0086E3E6 BA64E68600 mov edx, $0086E664
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086E68A(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086E68A 6E outsb
|
||
0086E68B 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
|
||
0086E693 FF08 dec dword ptr [eax]
|
||
0086E695 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086E6C0(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086E6C0 6E outsb
|
||
0086E6C1 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
|
||
0086E6C9 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086E6CD(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086E6CD 50 push eax
|
||
0086E6CE 6461 popa
|
||
0086E6D0 7465 jz 0086E737
|
||
0086E6D2 205946 and [ecx+$46], bl
|
||
0086E6D5 5F pop edi
|
||
0086E6D6 4D dec ebp
|
||
0086E6D7 6F outsd
|
||
0086E6D8 6E outsb
|
||
0086E6D9 65795F jns 0086E73B
|
||
0086E6DC 43 inc ebx
|
||
0086E6DD 52 push edx
|
||
0086E6DE 2000 and [eax], al
|
||
0086E6E0 FFFF DB $FF, $FF //
|
||
0086E6E2 FFFF DB $FF, $FF //
|
||
0086E6E4 0E push cs
|
||
0086E6E5 0000 add [eax], al
|
||
|
||
0086E6E7 0020 add [eax], ah
|
||
0086E6E9 53 push ebx
|
||
0086E6EA 657420 jz 0086E70D
|
||
0086E6ED 51 push ecx
|
||
0086E6EE 7479 jz 0086E769
|
||
0086E6F0 55 push ebp
|
||
0086E6F1 6E outsb
|
||
0086E6F2 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
|
||
0086E6FA FFFF DB $FF, $FF //
|
||
0086E6FC 07 pop es
|
||
0086E6FD 0000 add [eax], al
|
||
|
||
0086E6FF 005A64 add [edx+$64], bl
|
||
0086E702 794E jns 0086E752
|
||
0086E704 61 popa
|
||
0086E705 6D insd
|
||
0086E706 6500FF add bh, bh
|
||
0086E709 FFFF DB $FF, $FF //
|
||
0086E70B FF01 inc dword ptr [ecx]
|
||
0086E70D 0000 add [eax], al
|
||
|
||
0086E70F 0027 add [edi], ah
|
||
0086E711 0000 add [eax], al
|
||
|
||
0086E713 00FF add bh, bh
|
||
0086E715 FFFF DB $FF, $FF //
|
||
0086E717 FF09 dec dword ptr [ecx]
|
||
0086E719 0000 add [eax], al
|
||
|
||
0086E71B 002C4564697465 add [$65746964+eax*2], ch
|
||
0086E722 723D jb 0086E761
|
||
0086E724 27 daa
|
||
0086E725 0000 add [eax], al
|
||
|
||
0086E727 00FF add bh, bh
|
||
0086E729 FFFF DB $FF, $FF //
|
||
0086E72B FF1400 call dword ptr [eax+eax]
|
||
0086E72E 0000 add [eax], al
|
||
|
||
0086E730 2C45 sub al, $45
|
||
0086E732 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086E73B 657464 jz 0086E7A2
|
||
0086E73E 61 popa
|
||
0086E73F 7465 jz 0086E7A6
|
||
0086E741 2829 sub [ecx], ch
|
||
0086E743 2000 and [eax], al
|
||
0086E745 0000 add [eax], al
|
||
|
||
0086E747 00FF add bh, bh
|
||
0086E749 FFFF DB $FF, $FF //
|
||
0086E74B FF0D00000020 dec dword ptr [$20000000]
|
||
0086E751 7768 jnbe 0086E7BB
|
||
0086E753 657265 jb 0086E7BB
|
||
0086E756 205946 and [ecx+$46], bl
|
||
0086E759 49 dec ecx
|
||
0086E75A 643D27000000 cmp eax, $00000027
|
||
0086E760 FFFF DB $FF, $FF //
|
||
0086E762 FFFF DB $FF, $FF //
|
||
0086E764 0400 add al, +$00
|
||
0086E766 0000 add [eax], al
|
||
|
||
0086E768 59 pop ecx
|
||
0086E769 46 inc esi
|
||
0086E76A 49 dec ecx
|
||
0086E76B 640000 add fs:[eax], al
|
||
0086E76E 0000 add [eax], al
|
||
|
||
0086E770 55 push ebp
|
||
0086E771 8BEC mov ebp, esp
|
||
0086E773 51 push ecx
|
||
0086E774 B907000000 mov ecx, $00000007
|
||
0086E779 6A00 push $00
|
||
0086E77B 6A00 push $00
|
||
0086E77D 49 dec ecx
|
||
0086E77E 75F9 jnz 0086E779
|
||
0086E780 51 push ecx
|
||
0086E781 874DFC xchg [ebp-$04], ecx
|
||
0086E784 53 push ebx
|
||
0086E785 56 push esi
|
||
0086E786 8BF0 mov esi, eax
|
||
0086E788 33C0 xor eax, eax
|
||
0086E78A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>`<60><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086E78B 681CEA8600 push $0086EA1C
|
||
|
||
***** TRY
|
||
|
|
||
0086E790 64FF30 push dword ptr fs:[eax]
|
||
0086E793 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086E796 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086E79C BA34EA8600 mov edx, $0086EA34
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086E7A1 E80E84C5FF call 004C6BB4
|
||
0086E7A6 8D55F8 lea edx, [ebp-$08]
|
||
0086E7A9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0086E7AB FF5160 call dword ptr [ecx+$60]
|
||
0086E7AE 8B45F8 mov eax, [ebp-$08]
|
||
0086E7B1 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086E7B4 E833C1B9FF call 0040A8EC
|
||
0086E7B9 837DFC00 cmp dword ptr [ebp-$04], +$00
|
||
0086E7BD 741D jz 0086E7DC
|
||
0086E7BF 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086E7C1 B93CEA8600 mov ecx, $0086EA3C
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
||
|
|
||
0086E7C6 BA44EA8600 mov edx, $0086EA44
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086EA95(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086EA95 50 push eax
|
||
0086EA96 6461 popa
|
||
0086EA98 7465 jz 0086EAFF
|
||
0086EA9A 205946 and [ecx+$46], bl
|
||
0086EA9D 5F pop edi
|
||
0086EA9E 4D dec ebp
|
||
0086EA9F 6F outsd
|
||
0086EAA0 6E outsb
|
||
0086EAA1 65795F jns 0086EB03
|
||
0086EAA4 43 inc ebx
|
||
0086EAA5 52 push edx
|
||
0086EAA6 2000 and [eax], al
|
||
0086EAA8 FFFF DB $FF, $FF //
|
||
0086EAAA FFFF DB $FF, $FF //
|
||
0086EAAC 0D00000020 or eax, $20000000
|
||
0086EAB1 53 push ebx
|
||
0086EAB2 657420 jz 0086EAD5
|
||
0086EAB5 42 inc edx
|
||
0086EAB6 5A pop edx
|
||
0086EAB7 54 push esp
|
||
0086EAB8 7970 jns 0086EB2A
|
||
0086EABA 653D27000000 cmp eax, $00000027
|
||
0086EAC0 FFFF DB $FF, $FF //
|
||
0086EAC2 FFFF DB $FF, $FF //
|
||
0086EAC4 07 pop es
|
||
0086EAC5 0000 add [eax], al
|
||
|
||
0086EAC7 005A64 add [edx+$64], bl
|
||
0086EACA 794E jns 0086EB1A
|
||
0086EACC 61 popa
|
||
0086EACD 6D insd
|
||
0086EACE 6500FF add bh, bh
|
||
0086EAD1 FFFF DB $FF, $FF //
|
||
0086EAD3 FF01 inc dword ptr [ecx]
|
||
0086EAD5 0000 add [eax], al
|
||
|
||
0086EAD7 0027 add [edi], ah
|
||
0086EAD9 0000 add [eax], al
|
||
|
||
0086EADB 00FF add bh, bh
|
||
0086EADD FFFF DB $FF, $FF //
|
||
0086EADF FF09 dec dword ptr [ecx]
|
||
0086EAE1 0000 add [eax], al
|
||
|
||
0086EAE3 002C4564697465 add [$65746964+eax*2], ch
|
||
0086EAEA 723D jb 0086EB29
|
||
0086EAEC 27 daa
|
||
0086EAED 0000 add [eax], al
|
||
|
||
0086EAEF 00FF add bh, bh
|
||
0086EAF1 FFFF DB $FF, $FF //
|
||
0086EAF3 FF1400 call dword ptr [eax+eax]
|
||
0086EAF6 0000 add [eax], al
|
||
|
||
0086EAF8 2C45 sub al, $45
|
||
0086EAFA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086EB03 657464 jz 0086EB6A
|
||
0086EB06 61 popa
|
||
0086EB07 7465 jz 0086EB6E
|
||
0086EB09 2829 sub [ecx], ch
|
||
0086EB0B 2000 and [eax], al
|
||
0086EB0D 0000 add [eax], al
|
||
|
||
0086EB0F 00FF add bh, bh
|
||
0086EB11 FFFF DB $FF, $FF //
|
||
0086EB13 FF0D00000020 dec dword ptr [$20000000]
|
||
0086EB19 7768 jnbe 0086EB83
|
||
0086EB1B 657265 jb 0086EB83
|
||
0086EB1E 205946 and [ecx+$46], bl
|
||
0086EB21 49 dec ecx
|
||
0086EB22 643D27000000 cmp eax, $00000027
|
||
0086EB28 FFFF DB $FF, $FF //
|
||
0086EB2A FFFF DB $FF, $FF //
|
||
0086EB2C 0400 add al, +$00
|
||
0086EB2E 0000 add [eax], al
|
||
|
||
0086EB30 59 pop ecx
|
||
0086EB31 46 inc esi
|
||
0086EB32 49 dec ecx
|
||
0086EB33 640000 add fs:[eax], al
|
||
0086EB36 0000 add [eax], al
|
||
|
||
0086EB38 53 push ebx
|
||
0086EB39 8BD8 mov ebx, eax
|
||
|
||
* Reference to control ToolBar2 : N.A.
|
||
|
|
||
0086EB3B 8B831C030000 mov eax, [ebx+$031C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086EB41 E87A93C5FF call 004C7EC0
|
||
0086EB46 84C0 test al, al
|
||
0086EB48 7516 jnz 0086EB60
|
||
|
||
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>б<EFBFBD>'
|
||
|
|
||
0086EB4A B96CEB8600 mov ecx, $0086EB6C
|
||
|
||
* Reference to control ToolBar2 : N.A.
|
||
|
|
||
0086EB4F 8B931C030000 mov edx, [ebx+$031C]
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086EB55 8B8388030000 mov eax, [ebx+$0388]
|
||
|
||
|
|
||
0086EB5B E8D096F4FF call 007B8230
|
||
0086EB60 5B pop ebx
|
||
0086EB61 C3 ret
|
||
|
||
0086EB62 0000 add [eax], al
|
||
|
||
0086EB64 FFFF DB $FF, $FF //
|
||
0086EB66 FFFF DB $FF, $FF //
|
||
0086EB68 0A00 or al, byte ptr [eax]
|
||
0086EB6A 0000 add [eax], al
|
||
|
||
0086EB6C D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
|
||
0086EB72 C1D0B1 rcl eax, $B1
|
||
0086EB75 ED in eax, dx
|
||
0086EB76 0000 add [eax], al
|
||
|
||
0086EB78 55 push ebp
|
||
0086EB79 8BEC mov ebp, esp
|
||
0086EB7B 51 push ecx
|
||
0086EB7C B912000000 mov ecx, $00000012
|
||
0086EB81 6A00 push $00
|
||
0086EB83 6A00 push $00
|
||
0086EB85 49 dec ecx
|
||
0086EB86 75F9 jnz 0086EB81
|
||
0086EB88 51 push ecx
|
||
0086EB89 874DFC xchg [ebp-$04], ecx
|
||
0086EB8C 53 push ebx
|
||
0086EB8D 8945FC mov [ebp-$04], eax
|
||
0086EB90 33C0 xor eax, eax
|
||
0086EB92 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>Z<EFBFBD><5A><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
||
|
|
||
0086EB93 6831F08600 push $0086F031
|
||
|
||
***** TRY
|
||
|
|
||
0086EB98 64FF30 push dword ptr fs:[eax]
|
||
0086EB9B 648920 mov fs:[eax], esp
|
||
0086EB9E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086EBA1 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'YFType'
|
||
|
|
||
0086EBA7 BA48F08600 mov edx, $0086F048
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086EBAC E80380C5FF call 004C6BB4
|
||
0086EBB1 8D55F4 lea edx, [ebp-$0C]
|
||
0086EBB4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0086EBB6 FF5160 call dword ptr [ecx+$60]
|
||
0086EBB9 8B45F4 mov eax, [ebp-$0C]
|
||
0086EBBC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086EBBF E828BDB9FF call 0040A8EC
|
||
0086EBC4 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
0086EBC8 741D jz 0086EBE7
|
||
0086EBCA 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086EBCC B950F08600 mov ecx, $0086F050
|
||
|
||
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>ɾ<EFBFBD><C9BE>!'
|
||
|
|
||
0086EBD1 BA58F08600 mov edx, $0086F058
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086F0D5(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086F0D5 50 push eax
|
||
0086F0D6 6461 popa
|
||
0086F0D8 7465 jz 0086F13F
|
||
0086F0DA 205946 and [ecx+$46], bl
|
||
0086F0DD 5F pop edi
|
||
0086F0DE 4D dec ebp
|
||
0086F0DF 6F outsd
|
||
0086F0E0 6E outsb
|
||
0086F0E1 65795F jns 0086F143
|
||
0086F0E4 43 inc ebx
|
||
0086F0E5 52 push edx
|
||
0086F0E6 2000 and [eax], al
|
||
0086F0E8 FFFF DB $FF, $FF //
|
||
0086F0EA FFFF DB $FF, $FF //
|
||
0086F0EC 0D00000020 or eax, $20000000
|
||
0086F0F1 53 push ebx
|
||
0086F0F2 657420 jz 0086F115
|
||
0086F0F5 4D dec ebp
|
||
0086F0F6 61 popa
|
||
0086F0F7 696E49643D2700 imul ebp, [esi+$49], $00273D64
|
||
0086F0FE 0000 add [eax], al
|
||
|
||
0086F100 FFFF DB $FF, $FF //
|
||
0086F102 FFFF DB $FF, $FF //
|
||
0086F104 06 push es
|
||
0086F105 0000 add [eax], al
|
||
|
||
0086F107 004D61 add [ebp+$61], cl
|
||
0086F10A 696E49640000FF imul ebp, [esi+$49], $FF000064
|
||
0086F111 FFFF DB $FF, $FF //
|
||
0086F113 FF01 inc dword ptr [ecx]
|
||
0086F115 0000 add [eax], al
|
||
|
||
0086F117 0027 add [edi], ah
|
||
0086F119 0000 add [eax], al
|
||
|
||
0086F11B 00FF add bh, bh
|
||
0086F11D FFFF DB $FF, $FF //
|
||
0086F11F FF09 dec dword ptr [ecx]
|
||
0086F121 0000 add [eax], al
|
||
|
||
0086F123 0020 add [eax], ah
|
||
0086F125 2C53 sub al, $53
|
||
0086F127 7562 jnz 0086F18B
|
||
0086F129 49 dec ecx
|
||
0086F12A 643D27000000 cmp eax, $00000027
|
||
0086F130 FFFF DB $FF, $FF //
|
||
0086F132 FFFF DB $FF, $FF //
|
||
0086F134 0500000053 add eax, +$53000000
|
||
0086F139 7562 jnz 0086F19D
|
||
0086F13B 49 dec ecx
|
||
0086F13C 640000 add fs:[eax], al
|
||
0086F13F 00FF add bh, bh
|
||
0086F141 FFFF DB $FF, $FF //
|
||
0086F143 FF0E dec dword ptr [esi]
|
||
0086F145 0000 add [eax], al
|
||
|
||
0086F147 0020 add [eax], ah
|
||
0086F149 2C70 sub al, $70
|
||
0086F14B 5F pop edi
|
||
0086F14C 43 inc ebx
|
||
0086F14D 6F outsd
|
||
0086F14E 64654E dec esi
|
||
0086F151 61 popa
|
||
0086F152 6D insd
|
||
0086F153 653D270000FF cmp eax, $FF000027
|
||
0086F159 FFFF DB $FF, $FF //
|
||
0086F15B FF0B dec dword ptr [ebx]
|
||
0086F15D 0000 add [eax], al
|
||
|
||
0086F15F 0020 add [eax], ah
|
||
0086F161 2C70 sub al, $70
|
||
0086F163 5F pop edi
|
||
0086F164 43 inc ebx
|
||
0086F165 6F outsd
|
||
0086F166 6C insb
|
||
0086F167 6F outsd
|
||
0086F168 723D jb 0086F1A7
|
||
0086F16A 27 daa
|
||
0086F16B 00FF add bh, bh
|
||
0086F16D FFFF DB $FF, $FF //
|
||
0086F16F FF09 dec dword ptr [ecx]
|
||
0086F171 0000 add [eax], al
|
||
|
||
0086F173 002C4564697465 add [$65746964+eax*2], ch
|
||
0086F17A 723D jb 0086F1B9
|
||
0086F17C 27 daa
|
||
0086F17D 0000 add [eax], al
|
||
|
||
0086F17F 00FF add bh, bh
|
||
0086F181 FFFF DB $FF, $FF //
|
||
0086F183 FF1400 call dword ptr [eax+eax]
|
||
0086F186 0000 add [eax], al
|
||
|
||
0086F188 2C45 sub al, $45
|
||
0086F18A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086F193 657464 jz 0086F1FA
|
||
0086F196 61 popa
|
||
0086F197 7465 jz 0086F1FE
|
||
0086F199 2829 sub [ecx], ch
|
||
0086F19B 2000 and [eax], al
|
||
0086F19D 0000 add [eax], al
|
||
|
||
0086F19F 00FF add bh, bh
|
||
0086F1A1 FFFF DB $FF, $FF //
|
||
0086F1A3 FF0D00000020 dec dword ptr [$20000000]
|
||
0086F1A9 7768 jnbe 0086F213
|
||
0086F1AB 657265 jb 0086F213
|
||
0086F1AE 205946 and [ecx+$46], bl
|
||
0086F1B1 49 dec ecx
|
||
0086F1B2 643D27000000 cmp eax, $00000027
|
||
0086F1B8 FFFF DB $FF, $FF //
|
||
0086F1BA FFFF DB $FF, $FF //
|
||
0086F1BC 0400 add al, +$00
|
||
0086F1BE 0000 add [eax], al
|
||
|
||
0086F1C0 59 pop ecx
|
||
0086F1C1 46 inc esi
|
||
0086F1C2 49 dec ecx
|
||
0086F1C3 640000 add fs:[eax], al
|
||
0086F1C6 0000 add [eax], al
|
||
|
||
0086F1C8 55 push ebp
|
||
0086F1C9 8BEC mov ebp, esp
|
||
0086F1CB B908000000 mov ecx, $00000008
|
||
0086F1D0 6A00 push $00
|
||
0086F1D2 6A00 push $00
|
||
0086F1D4 49 dec ecx
|
||
0086F1D5 75F9 jnz 0086F1D0
|
||
0086F1D7 53 push ebx
|
||
0086F1D8 56 push esi
|
||
0086F1D9 8BDA mov ebx, edx
|
||
0086F1DB 8BF0 mov esi, eax
|
||
0086F1DD 33C0 xor eax, eax
|
||
0086F1DF 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>?W<><57><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086F1E0 68B0F38600 push $0086F3B0
|
||
|
||
***** TRY
|
||
|
|
||
0086F1E5 64FF30 push dword ptr fs:[eax]
|
||
0086F1E8 648920 mov fs:[eax], esp
|
||
0086F1EB 8D55FC lea edx, [ebp-$04]
|
||
0086F1EE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086F1F0 E8C704D2FF call 0058F6BC
|
||
0086F1F5 8D55F4 lea edx, [ebp-$0C]
|
||
0086F1F8 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F1FB E8ECB6B9FF call 0040A8EC
|
||
0086F200 837DF400 cmp dword ptr [ebp-$0C], +$00
|
||
0086F204 750D jnz 0086F213
|
||
0086F206 8D45FC lea eax, [ebp-$04]
|
||
0086F209 BAC8F38600 mov edx, $0086F3C8
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0086F20E E8A961B9FF call 004053BC
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086F213 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0086F219 E82ED1DEFF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086F21E E84129DEFF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0086F223 8B4050 mov eax, [eax+$50]
|
||
0086F226 8D55F0 lea edx, [ebp-$10]
|
||
0086F229 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0086F22B FF5110 call dword ptr [ecx+$10]
|
||
0086F22E 8B45F0 mov eax, [ebp-$10]
|
||
0086F231 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F234 E8B3B6B9FF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086F239 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086F23F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086F241 E8FA91C5FF call 004C8440
|
||
0086F246 8D55DC lea edx, [ebp-$24]
|
||
0086F249 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F24C E89BB6B9FF call 0040A8EC
|
||
0086F251 8B55DC mov edx, [ebp-$24]
|
||
0086F254 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086F257 E86C9BBAFF call 00418DC8
|
||
0086F25C 8D45E0 lea eax, [ebp-$20]
|
||
0086F25F 50 push eax
|
||
0086F260 8B55F8 mov edx, [ebp-$08]
|
||
0086F263 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F265 E84A79C5FF call 004C6BB4
|
||
0086F26A 5A pop edx
|
||
0086F26B 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0086F26D FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086F273 8BC3 mov eax, ebx
|
||
0086F275 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0086F277 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0086F27D 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086F283 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F285 E84A66C5FF call 004C58D4
|
||
0086F28A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F28C E81BEDC6FF call 004DDFAC
|
||
0086F291 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0086F293 FF5244 call dword ptr [edx+$44]
|
||
0086F296 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F298 E80FEDC6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086F29D BAD4F38600 mov edx, $0086F3D4
|
||
0086F2A2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086F2A4 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086F2A7 68F0F38600 push $0086F3F0
|
||
0086F2AC FF75F8 push dword ptr [ebp-$08]
|
||
0086F2AF 6800F48600 push $0086F400
|
||
0086F2B4 8D55D4 lea edx, [ebp-$2C]
|
||
0086F2B7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F2BA E82DB6B9FF call 0040A8EC
|
||
0086F2BF FF75D4 push dword ptr [ebp-$2C]
|
||
0086F2C2 8D45D8 lea eax, [ebp-$28]
|
||
0086F2C5 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F2CA E8E563B9FF call 004056B4
|
||
0086F2CF 8B45D8 mov eax, [ebp-$28]
|
||
0086F2D2 50 push eax
|
||
0086F2D3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F2D5 E8D2ECC6FF call 004DDFAC
|
||
0086F2DA 5A pop edx
|
||
0086F2DB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086F2DD FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086F2E0 680CF48600 push $0086F40C
|
||
0086F2E5 8D55CC lea edx, [ebp-$34]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086F3D5(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086F3D5 50 push eax
|
||
0086F3D6 6461 popa
|
||
0086F3D8 7465 jz 0086F43F
|
||
0086F3DA 205946 and [ecx+$46], bl
|
||
0086F3DD 5F pop edi
|
||
0086F3DE 4D dec ebp
|
||
0086F3DF 6F outsd
|
||
0086F3E0 6E outsb
|
||
0086F3E1 65795F jns 0086F443
|
||
0086F3E4 43 inc ebx
|
||
0086F3E5 52 push edx
|
||
0086F3E6 2000 and [eax], al
|
||
0086F3E8 FFFF DB $FF, $FF //
|
||
0086F3EA FFFF DB $FF, $FF //
|
||
0086F3EC 0500000020 add eax, +$20000000
|
||
0086F3F1 53 push ebx
|
||
0086F3F2 657420 jz 0086F415
|
||
0086F3F5 0000 add [eax], al
|
||
|
||
0086F3F7 00FF add bh, bh
|
||
0086F3F9 FFFF DB $FF, $FF //
|
||
0086F3FB FF01 inc dword ptr [ecx]
|
||
0086F3FD 0000 add [eax], al
|
||
|
||
0086F3FF 003D000000FF add [$FF000000], bh
|
||
0086F405 FFFF DB $FF, $FF //
|
||
0086F407 FF09 dec dword ptr [ecx]
|
||
0086F409 0000 add [eax], al
|
||
|
||
0086F40B 002C4564697465 add [$65746964+eax*2], ch
|
||
0086F412 723D jb 0086F451
|
||
0086F414 27 daa
|
||
0086F415 0000 add [eax], al
|
||
|
||
0086F417 00FF add bh, bh
|
||
0086F419 FFFF DB $FF, $FF //
|
||
0086F41B FF01 inc dword ptr [ecx]
|
||
0086F41D 0000 add [eax], al
|
||
|
||
0086F41F 0027 add [edi], ah
|
||
0086F421 0000 add [eax], al
|
||
|
||
0086F423 00FF add bh, bh
|
||
0086F425 FFFF DB $FF, $FF //
|
||
0086F427 FF1400 call dword ptr [eax+eax]
|
||
0086F42A 0000 add [eax], al
|
||
|
||
0086F42C 2C45 sub al, $45
|
||
0086F42E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086F437 657464 jz 0086F49E
|
||
0086F43A 61 popa
|
||
0086F43B 7465 jz 0086F4A2
|
||
0086F43D 2829 sub [ecx], ch
|
||
0086F43F 2000 and [eax], al
|
||
0086F441 0000 add [eax], al
|
||
|
||
0086F443 00FF add bh, bh
|
||
0086F445 FFFF DB $FF, $FF //
|
||
0086F447 FF0D00000020 dec dword ptr [$20000000]
|
||
0086F44D 7768 jnbe 0086F4B7
|
||
0086F44F 657265 jb 0086F4B7
|
||
0086F452 205946 and [ecx+$46], bl
|
||
0086F455 49 dec ecx
|
||
0086F456 643D27000000 cmp eax, $00000027
|
||
0086F45C FFFF DB $FF, $FF //
|
||
0086F45E FFFF DB $FF, $FF //
|
||
0086F460 0400 add al, +$00
|
||
0086F462 0000 add [eax], al
|
||
|
||
0086F464 59 pop ecx
|
||
0086F465 46 inc esi
|
||
0086F466 49 dec ecx
|
||
0086F467 640000 add fs:[eax], al
|
||
0086F46A 0000 add [eax], al
|
||
|
||
0086F46C 55 push ebp
|
||
0086F46D 8BEC mov ebp, esp
|
||
0086F46F B907000000 mov ecx, $00000007
|
||
0086F474 6A00 push $00
|
||
0086F476 6A00 push $00
|
||
0086F478 49 dec ecx
|
||
0086F479 75F9 jnz 0086F474
|
||
0086F47B 51 push ecx
|
||
0086F47C 53 push ebx
|
||
0086F47D 56 push esi
|
||
0086F47E 8BDA mov ebx, edx
|
||
0086F480 8BF0 mov esi, eax
|
||
0086F482 33C0 xor eax, eax
|
||
0086F484 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>T<EFBFBD><54><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0086F485 683CF68600 push $0086F63C
|
||
|
||
***** TRY
|
||
|
|
||
0086F48A 64FF30 push dword ptr fs:[eax]
|
||
0086F48D 648920 mov fs:[eax], esp
|
||
0086F490 8D55FC lea edx, [ebp-$04]
|
||
0086F493 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086F495 E82202D2FF call 0058F6BC
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086F49A 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0086F4A0 E8A7CEDEFF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086F4A5 E8BA26DEFF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0086F4AA 8B4050 mov eax, [eax+$50]
|
||
0086F4AD 8D55F4 lea edx, [ebp-$0C]
|
||
0086F4B0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0086F4B2 FF5110 call dword ptr [ecx+$10]
|
||
0086F4B5 8B45F4 mov eax, [ebp-$0C]
|
||
0086F4B8 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F4BB E82CB4B9FF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086F4C0 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086F4C6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086F4C8 E8738FC5FF call 004C8440
|
||
0086F4CD 8D55E0 lea edx, [ebp-$20]
|
||
0086F4D0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F4D3 E814B4B9FF call 0040A8EC
|
||
0086F4D8 8B55E0 mov edx, [ebp-$20]
|
||
0086F4DB 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086F4DE E8E598BAFF call 00418DC8
|
||
0086F4E3 8D45E4 lea eax, [ebp-$1C]
|
||
0086F4E6 50 push eax
|
||
0086F4E7 8B55F8 mov edx, [ebp-$08]
|
||
0086F4EA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F4EC E8C376C5FF call 004C6BB4
|
||
0086F4F1 5A pop edx
|
||
0086F4F2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0086F4F4 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086F4FA 8BC3 mov eax, ebx
|
||
0086F4FC 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0086F4FE FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0086F504 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086F50A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F50C E8C363C5FF call 004C58D4
|
||
0086F511 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F513 E894EAC6FF call 004DDFAC
|
||
0086F518 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0086F51A FF5244 call dword ptr [edx+$44]
|
||
0086F51D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F51F E888EAC6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086F524 BA54F68600 mov edx, $0086F654
|
||
0086F529 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086F52B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086F52E 6870F68600 push $0086F670
|
||
0086F533 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0086F536 6880F68600 push $0086F680
|
||
0086F53B 8D55D8 lea edx, [ebp-$28]
|
||
0086F53E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F541 E8A6B3B9FF call 0040A8EC
|
||
0086F546 FF75D8 push dword ptr [ebp-$28]
|
||
0086F549 688CF68600 push $0086F68C
|
||
0086F54E 8D45DC lea eax, [ebp-$24]
|
||
0086F551 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F556 E85961B9FF call 004056B4
|
||
0086F55B 8B45DC mov eax, [ebp-$24]
|
||
0086F55E 50 push eax
|
||
0086F55F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F561 E846EAC6FF call 004DDFAC
|
||
0086F566 5A pop edx
|
||
0086F567 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086F569 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086F56C 6898F68600 push $0086F698
|
||
0086F571 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086F655(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086F655 50 push eax
|
||
0086F656 6461 popa
|
||
0086F658 7465 jz 0086F6BF
|
||
0086F65A 205946 and [ecx+$46], bl
|
||
0086F65D 5F pop edi
|
||
0086F65E 4D dec ebp
|
||
0086F65F 6F outsd
|
||
0086F660 6E outsb
|
||
0086F661 65795F jns 0086F6C3
|
||
0086F664 43 inc ebx
|
||
0086F665 52 push edx
|
||
0086F666 2000 and [eax], al
|
||
0086F668 FFFF DB $FF, $FF //
|
||
0086F66A FFFF DB $FF, $FF //
|
||
0086F66C 0500000020 add eax, +$20000000
|
||
0086F671 53 push ebx
|
||
0086F672 657420 jz 0086F695
|
||
0086F675 0000 add [eax], al
|
||
|
||
0086F677 00FF add bh, bh
|
||
0086F679 FFFF DB $FF, $FF //
|
||
0086F67B FF02 inc dword ptr [edx]
|
||
0086F67D 0000 add [eax], al
|
||
|
||
0086F67F 003D270000FF add [$FF000027], bh
|
||
0086F685 FFFF DB $FF, $FF //
|
||
0086F687 FF01 inc dword ptr [ecx]
|
||
0086F689 0000 add [eax], al
|
||
|
||
0086F68B 0027 add [edi], ah
|
||
0086F68D 0000 add [eax], al
|
||
|
||
0086F68F 00FF add bh, bh
|
||
0086F691 FFFF DB $FF, $FF //
|
||
0086F693 FF09 dec dword ptr [ecx]
|
||
0086F695 0000 add [eax], al
|
||
|
||
0086F697 002C4564697465 add [$65746964+eax*2], ch
|
||
0086F69E 723D jb 0086F6DD
|
||
0086F6A0 27 daa
|
||
0086F6A1 0000 add [eax], al
|
||
|
||
0086F6A3 00FF add bh, bh
|
||
0086F6A5 FFFF DB $FF, $FF //
|
||
0086F6A7 FF1400 call dword ptr [eax+eax]
|
||
0086F6AA 0000 add [eax], al
|
||
|
||
0086F6AC 2C45 sub al, $45
|
||
0086F6AE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086F6B7 657464 jz 0086F71E
|
||
0086F6BA 61 popa
|
||
0086F6BB 7465 jz 0086F722
|
||
0086F6BD 2829 sub [ecx], ch
|
||
0086F6BF 2000 and [eax], al
|
||
0086F6C1 0000 add [eax], al
|
||
|
||
0086F6C3 00FF add bh, bh
|
||
0086F6C5 FFFF DB $FF, $FF //
|
||
0086F6C7 FF0D00000020 dec dword ptr [$20000000]
|
||
0086F6CD 7768 jnbe 0086F737
|
||
0086F6CF 657265 jb 0086F737
|
||
0086F6D2 205946 and [ecx+$46], bl
|
||
0086F6D5 49 dec ecx
|
||
0086F6D6 643D27000000 cmp eax, $00000027
|
||
0086F6DC FFFF DB $FF, $FF //
|
||
0086F6DE FFFF DB $FF, $FF //
|
||
0086F6E0 0400 add al, +$00
|
||
0086F6E2 0000 add [eax], al
|
||
|
||
0086F6E4 59 pop ecx
|
||
0086F6E5 46 inc esi
|
||
0086F6E6 49 dec ecx
|
||
0086F6E7 640000 add fs:[eax], al
|
||
0086F6EA 0000 add [eax], al
|
||
|
||
0086F6EC 55 push ebp
|
||
0086F6ED 8BEC mov ebp, esp
|
||
0086F6EF B90C000000 mov ecx, $0000000C
|
||
0086F6F4 6A00 push $00
|
||
0086F6F6 6A00 push $00
|
||
0086F6F8 49 dec ecx
|
||
0086F6F9 75F9 jnz 0086F6F4
|
||
0086F6FB 53 push ebx
|
||
0086F6FC 56 push esi
|
||
0086F6FD 8BDA mov ebx, edx
|
||
0086F6FF 8BF0 mov esi, eax
|
||
0086F701 33C0 xor eax, eax
|
||
0086F703 55 push ebp
|
||
0086F704 68E3F98600 push $0086F9E3
|
||
|
||
***** TRY
|
||
|
|
||
0086F709 64FF30 push dword ptr fs:[eax]
|
||
0086F70C 648920 mov fs:[eax], esp
|
||
0086F70F 8D55FC lea edx, [ebp-$04]
|
||
0086F712 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
|
||
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
|
||
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
|
||
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
|
||
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
|
||
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
||
|
|
||
0086F714 E8A3FFD1FF call 0058F6BC
|
||
0086F719 8D55EC lea edx, [ebp-$14]
|
||
0086F71C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F71F E8C8B1B9FF call 0040A8EC
|
||
0086F724 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
0086F728 750D jnz 0086F737
|
||
0086F72A 8D45FC lea eax, [ebp-$04]
|
||
0086F72D BAF8F98600 mov edx, $0086F9F8
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0086F732 E8855CB9FF call 004053BC
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0086F737 8B8688030000 mov eax, [esi+$0388]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0086F73D E80ACCDEFF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086F742 E81D24DEFF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0086F747 8B4050 mov eax, [eax+$50]
|
||
0086F74A 8D55E8 lea edx, [ebp-$18]
|
||
0086F74D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0086F74F FF5110 call dword ptr [ecx+$10]
|
||
0086F752 8B45E8 mov eax, [ebp-$18]
|
||
0086F755 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F758 E88FB1B9FF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086F75D 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0086F763 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0086F765 E8D68CC5FF call 004C8440
|
||
0086F76A 8D55D4 lea edx, [ebp-$2C]
|
||
0086F76D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F770 E877B1B9FF call 0040A8EC
|
||
0086F775 8B55D4 mov edx, [ebp-$2C]
|
||
0086F778 8D45D8 lea eax, [ebp-$28]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0086F77B E84896BAFF call 00418DC8
|
||
0086F780 8D45D8 lea eax, [ebp-$28]
|
||
0086F783 50 push eax
|
||
0086F784 8B55F0 mov edx, [ebp-$10]
|
||
0086F787 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F789 E82674C5FF call 004C6BB4
|
||
0086F78E 5A pop edx
|
||
0086F78F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0086F791 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0086F797 8BC3 mov eax, ebx
|
||
0086F799 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0086F79B FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0086F7A1 8B9E08030000 mov ebx, [esi+$0308]
|
||
0086F7A7 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F7A9 E82661C5FF call 004C58D4
|
||
0086F7AE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086F7B0 E8F7E7C6FF call 004DDFAC
|
||
0086F7B5 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0086F7B7 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0086F7BA 6804FA8600 push $0086FA04
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0086F7BF BA4CFA8600 mov edx, $0086FA4C
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086F7C4 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F7CA E8E573C5FF call 004C6BB4
|
||
0086F7CF 8D55CC lea edx, [ebp-$34]
|
||
0086F7D2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0086F7D4 FF5160 call dword ptr [ecx+$60]
|
||
0086F7D7 FF75CC push dword ptr [ebp-$34]
|
||
0086F7DA 685CFA8600 push $0086FA5C
|
||
0086F7DF 8D45D0 lea eax, [ebp-$30]
|
||
0086F7E2 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F7E7 E8C85EB9FF call 004056B4
|
||
0086F7EC 8B45D0 mov eax, [ebp-$30]
|
||
0086F7EF 50 push eax
|
||
0086F7F0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0086F7F2 E8B5E7C6FF call 004DDFAC
|
||
0086F7F7 5A pop edx
|
||
0086F7F8 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
0086F7FA FF5138 call dword ptr [ecx+$38]
|
||
0086F7FD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0086F7FF E8C460C5FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'KPMoney'
|
||
|
|
||
0086F804 BA68FA8600 mov edx, $0086FA68
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0086F809 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F80F E8A073C5FF call 004C6BB4
|
||
0086F814 8D55F4 lea edx, [ebp-$0C]
|
||
0086F817 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
0086F819 FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'KPMoney'
|
||
|
|
||
0086F81C BA68FA8600 mov edx, $0086FA68
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086F821 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0086F827 E88873C5FF call 004C6BB4
|
||
0086F82C 8D55F8 lea edx, [ebp-$08]
|
||
0086F82F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0086F831 FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0086F834 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0086F83A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0086F83C E89360C5FF call 004C58D4
|
||
0086F841 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F843 E864E7C6FF call 004DDFAC
|
||
0086F848 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0086F84A FF5244 call dword ptr [edx+$44]
|
||
0086F84D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F84F E858E7C6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0086F854 BA78FA8600 mov edx, $0086FA78
|
||
0086F859 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086F85B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0086F85E 6894FA8600 push $0086FA94
|
||
0086F863 FF75F0 push dword ptr [ebp-$10]
|
||
0086F866 68A4FA8600 push $0086FAA4
|
||
0086F86B 8D55C4 lea edx, [ebp-$3C]
|
||
0086F86E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0086F871 E876B0B9FF call 0040A8EC
|
||
0086F876 FF75C4 push dword ptr [ebp-$3C]
|
||
0086F879 8D45C8 lea eax, [ebp-$38]
|
||
0086F87C BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0086F881 E82E5EB9FF call 004056B4
|
||
0086F886 8B45C8 mov eax, [ebp-$38]
|
||
0086F889 50 push eax
|
||
0086F88A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0086F88C E81BE7C6FF call 004DDFAC
|
||
0086F891 5A pop edx
|
||
0086F892 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0086F894 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0086F897 68B0FA8600 push $0086FAB0
|
||
0086F89C 8D55BC lea edx, [ebp-$44]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0086FA79(Sender : TObject);
|
||
begin
|
||
(*
|
||
0086FA79 50 push eax
|
||
0086FA7A 6461 popa
|
||
0086FA7C 7465 jz 0086FAE3
|
||
0086FA7E 205946 and [ecx+$46], bl
|
||
0086FA81 5F pop edi
|
||
0086FA82 4D dec ebp
|
||
0086FA83 6F outsd
|
||
0086FA84 6E outsb
|
||
0086FA85 65795F jns 0086FAE7
|
||
0086FA88 43 inc ebx
|
||
0086FA89 52 push edx
|
||
0086FA8A 2000 and [eax], al
|
||
0086FA8C FFFF DB $FF, $FF //
|
||
0086FA8E FFFF DB $FF, $FF //
|
||
0086FA90 0500000020 add eax, +$20000000
|
||
0086FA95 53 push ebx
|
||
0086FA96 657420 jz 0086FAB9
|
||
0086FA99 0000 add [eax], al
|
||
|
||
0086FA9B 00FF add bh, bh
|
||
0086FA9D FFFF DB $FF, $FF //
|
||
0086FA9F FF01 inc dword ptr [ecx]
|
||
0086FAA1 0000 add [eax], al
|
||
|
||
0086FAA3 003D000000FF add [$FF000000], bh
|
||
0086FAA9 FFFF DB $FF, $FF //
|
||
0086FAAB FF09 dec dword ptr [ecx]
|
||
0086FAAD 0000 add [eax], al
|
||
|
||
0086FAAF 002C4564697465 add [$65746964+eax*2], ch
|
||
0086FAB6 723D jb 0086FAF5
|
||
0086FAB8 27 daa
|
||
0086FAB9 0000 add [eax], al
|
||
|
||
0086FABB 00FF add bh, bh
|
||
0086FABD FFFF DB $FF, $FF //
|
||
0086FABF FF1400 call dword ptr [eax+eax]
|
||
0086FAC2 0000 add [eax], al
|
||
|
||
0086FAC4 2C45 sub al, $45
|
||
0086FAC6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0086FACF 657464 jz 0086FB36
|
||
0086FAD2 61 popa
|
||
0086FAD3 7465 jz 0086FB3A
|
||
0086FAD5 2829 sub [ecx], ch
|
||
0086FAD7 2000 and [eax], al
|
||
0086FAD9 0000 add [eax], al
|
||
|
||
0086FADB 00FF add bh, bh
|
||
0086FADD FFFF DB $FF, $FF //
|
||
0086FADF FF0D00000020 dec dword ptr [$20000000]
|
||
0086FAE5 7768 jnbe 0086FB4F
|
||
0086FAE7 657265 jb 0086FB4F
|
||
0086FAEA 205946 and [ecx+$46], bl
|
||
0086FAED 49 dec ecx
|
||
0086FAEE 643D27000000 cmp eax, $00000027
|
||
0086FAF4 FFFF DB $FF, $FF //
|
||
0086FAF6 FFFF DB $FF, $FF //
|
||
0086FAF8 0400 add al, +$00
|
||
0086FAFA 0000 add [eax], al
|
||
|
||
0086FAFC 59 pop ecx
|
||
0086FAFD 46 inc esi
|
||
0086FAFE 49 dec ecx
|
||
0086FAFF 640000 add fs:[eax], al
|
||
0086FB02 0000 add [eax], al
|
||
|
||
0086FB04 FFFF DB $FF, $FF //
|
||
0086FB06 FFFF DB $FF, $FF //
|
||
0086FB08 2B00 sub eax, dword ptr [eax]
|
||
0086FB0A 0000 add [eax], al
|
||
|
||
0086FB0C 55 push ebp
|
||
0086FB0D 7064 jo 0086FB73
|
||
0086FB0F 61 popa
|
||
0086FB10 7465 jz 0086FB77
|
||
0086FB12 205946 and [ecx+$46], bl
|
||
0086FB15 5F pop edi
|
||
0086FB16 4D dec ebp
|
||
0086FB17 6F outsd
|
||
0086FB18 6E outsb
|
||
0086FB19 65795F jns 0086FB7B
|
||
0086FB1C 4B dec ebx
|
||
0086FB1D 43 inc ebx
|
||
0086FB1E 205365 and [ebx+$65], dl
|
||
0086FB21 7420 jz 0086FB43
|
||
0086FB23 4B dec ebx
|
||
0086FB24 43 inc ebx
|
||
0086FB25 4B dec ebx
|
||
0086FB26 50 push eax
|
||
0086FB27 4D dec ebp
|
||
0086FB28 6F outsd
|
||
0086FB29 6E outsb
|
||
0086FB2A 65793D jns 0086FB6A
|
||
0086FB2D 4B dec ebx
|
||
0086FB2E 43 inc ebx
|
||
0086FB2F 4B dec ebx
|
||
0086FB30 50 push eax
|
||
0086FB31 4D dec ebp
|
||
0086FB32 6F outsd
|
||
0086FB33 6E outsb
|
||
0086FB34 65792D jns 0086FB64
|
||
0086FB37 00FF add bh, bh
|
||
0086FB39 FFFF DB $FF, $FF //
|
||
0086FB3B FF01 inc dword ptr [ecx]
|
||
0086FB3D 0000 add [eax], al
|
||
|
||
0086FB3F 002B add [ebx], ch
|
||
0086FB41 0000 add [eax], al
|
||
|
||
0086FB43 00FF add bh, bh
|
||
0086FB45 FFFF DB $FF, $FF //
|
||
0086FB47 FF0D00000020 dec dword ptr [$20000000]
|
||
0086FB4D 7768 jnbe 0086FBB7
|
||
0086FB4F 657265 jb 0086FBB7
|
||
0086FB52 204352 and [ebx+$52], al
|
||
0086FB55 49 dec ecx
|
||
0086FB56 44 inc esp
|
||
0086FB57 3D27000000 cmp eax, $00000027
|
||
0086FB5C FFFF DB $FF, $FF //
|
||
0086FB5E FFFF DB $FF, $FF //
|
||
0086FB60 0400 add al, +$00
|
||
0086FB62 0000 add [eax], al
|
||
|
||
0086FB64 43 inc ebx
|
||
0086FB65 52 push edx
|
||
0086FB66 49 dec ecx
|
||
0086FB67 44 inc esp
|
||
0086FB68 0000 add [eax], al
|
||
|
||
0086FB6A 0000 add [eax], al
|
||
|
||
0086FB6C 55 push ebp
|
||
0086FB6D 8BEC mov ebp, esp
|
||
0086FB6F B910000000 mov ecx, $00000010
|
||
0086FB74 6A00 push $00
|
||
0086FB76 6A00 push $00
|
||
0086FB78 49 dec ecx
|
||
0086FB79 75F9 jnz 0086FB74
|
||
0086FB7B 51 push ecx
|
||
0086FB7C 53 push ebx
|
||
0086FB7D 56 push esi
|
||
0086FB7E 57 push edi
|
||
0086FB7F 8945FC mov [ebp-$04], eax
|
||
0086FB82 33C0 xor eax, eax
|
||
0086FB84 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>K<EFBFBD><4B><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0086FB85 68FDFE8600 push $0086FEFD
|
||
|
||
***** TRY
|
||
|
|
||
0086FB8A 64FF30 push dword ptr fs:[eax]
|
||
0086FB8D 648920 mov fs:[eax], esp
|
||
0086FB90 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086FB93 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0086FB99 E82283C5FF call 004C7EC0
|
||
0086FB9E 84C0 test al, al
|
||
0086FBA0 0F85F1020000 jnz 0086FE97
|
||
0086FBA6 A00CFF8600 mov al, byte ptr [$0086FF0C]
|
||
0086FBAB 50 push eax
|
||
0086FBAC 8D45EC lea eax, [ebp-$14]
|
||
0086FBAF B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0086FBB1 E8AE91BAFF call 00418D64
|
||
0086FBB6 8D4DEC lea ecx, [ebp-$14]
|
||
0086FBB9 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0086FBBC 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0086FBC2 BA18FF8600 mov edx, $0086FF18
|
||
0086FBC7 8B18 mov ebx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_0244
|
||
|
|
||
0086FBC9 FF9344020000 call dword ptr [ebx+$0244]
|
||
0086FBCF 84C0 test al, al
|
||
0086FBD1 751D jnz 0086FBF0
|
||
0086FBD3 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0086FBD5 B920FF8600 mov ecx, $0086FF20
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0086FBDA BA28FF8600 mov edx, $0086FF28
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_00871275(Sender : TObject);
|
||
begin
|
||
(*
|
||
00871275 8BEC mov ebp, esp
|
||
00871277 33C0 xor eax, eax
|
||
00871279 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>V8<56><38><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Z<EFBFBD>'
|
||
|
|
||
0087127A 6899128700 push $00871299
|
||
|
||
***** TRY
|
||
|
|
||
0087127F 64FF30 push dword ptr fs:[eax]
|
||
00871282 648920 mov fs:[eax], esp
|
||
00871285 FF05B05A8900 inc dword ptr [$00895AB0]
|
||
0087128B 33C0 xor eax, eax
|
||
0087128D 5A pop edx
|
||
0087128E 59 pop ecx
|
||
0087128F 59 pop ecx
|
||
00871290 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
||
|
|
||
00871293 68A0128700 push $008712A0
|
||
00871298 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00871299 E95638B9FF jmp 00404AF4
|
||
0087129E EBF8 jmp 00871298
|
||
|
||
****** END
|
||
|
|
||
008712A0 5D pop ebp
|
||
008712A1 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_008712A4(Sender : TObject);
|
||
begin
|
||
(*
|
||
008712A4 832DB05A890001 sub dword ptr [$00895AB0], +$01
|
||
008712AB C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_008712AC(Sender : TObject);
|
||
begin
|
||
(*
|
||
008712AC 55 push ebp
|
||
008712AD 8BEC mov ebp, esp
|
||
008712AF 33C0 xor eax, eax
|
||
008712B1 55 push ebp
|
||
008712B2 68D1128700 push $008712D1
|
||
|
||
***** TRY
|
||
|
|
||
008712B7 64FF30 push dword ptr fs:[eax]
|
||
008712BA 648920 mov fs:[eax], esp
|
||
008712BD FF05B45A8900 inc dword ptr [$00895AB4]
|
||
008712C3 33C0 xor eax, eax
|
||
008712C5 5A pop edx
|
||
008712C6 59 pop ecx
|
||
008712C7 59 pop ecx
|
||
008712C8 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
||
|
|
||
008712CB 68D8128700 push $008712D8
|
||
008712D0 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008712D1 E91E38B9FF jmp 00404AF4
|
||
008712D6 EBF8 jmp 008712D0
|
||
|
||
****** END
|
||
|
|
||
008712D8 5D pop ebp
|
||
008712D9 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_008712DC(Sender : TObject);
|
||
begin
|
||
(*
|
||
008712DC 832DB45A890001 sub dword ptr [$00895AB4], +$01
|
||
008712E3 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_008712E4(Sender : TObject);
|
||
begin
|
||
(*
|
||
008712E4 3013 xor [ebx], dl
|
||
008712E6 8700 xchg [eax], eax
|
||
008712E8 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmYSCR_PBSH._PROC_0087134A(Sender : TObject);
|
||
begin
|
||
(*
|
||
0087134A 48 dec eax
|
||
0087134B 0050D4 add [eax-$2C], dl
|
||
0087134E 42 inc edx
|
||
0087134F 0008 add [eax], cl
|
||
00871351 2D4A007CD0 sub eax, $D07C004A
|
||
00871356 42 inc edx
|
||
00871357 00F4 add ah, dh
|
||
00871359 6B4A00D0 imul ecx, [edx+$00], $D0
|
||
0087135D 1D4A0030F6 sbb eax, $F630004A
|
||
00871362 48 dec eax
|
||
00871363 004CFB48 add [ebx+edi*8+$48], cl
|
||
00871367 0098FA48000C add [eax+$C0048FA], bl
|
||
0087136D 7948 jns 008713B7
|
||
0087136F 00ACF04800E829 add [eax+esi*8+$29E80048], ch
|
||
00871376 4A dec edx
|
||
00871377 00E4 add ah, ah
|
||
00871379 ED in eax, dx
|
||
0087137A 48 dec eax
|
||
0087137B 00547848 add [eax+edi*2+$48], dl
|
||
0087137F 005878 add [eax+$78], bl
|
||
00871382 48 dec eax
|
||
00871383 00DC add ah, bl
|
||
00871385 2A4A00 sub cl, byte ptr [edx+$00]
|
||
00871388 3CA9 cmp al, $A9
|
||
0087138A 48 dec eax
|
||
0087138B 00C0 add al, al
|
||
0087138D 834800D0 or dword ptr [eax+$00], -$30
|
||
00871391 7948 jns 008713DB
|
||
00871393 004C8548 add [ebp+eax*4+$48], cl
|
||
00871397 00D0 add al, dl
|
||
00871399 2C4A sub al, $4A
|
||
0087139B 009C2B4A008486 add [ebx+ebp+$8684004A], bl
|
||
008713A2 48 dec eax
|
||
008713A3 00482D add [eax+$2D], cl
|
||
008713A6 4A dec edx
|
||
008713A7 00C0 add al, al
|
||
008713A9 A9480038EE test eax, $EE380048
|
||
008713AE 48 dec eax
|
||
008713AF 00F4 add ah, dh
|
||
008713B1 EE out dx, al
|
||
008713B2 48 dec eax
|
||
008713B3 00F0 add al, dh
|
||
008713B5 E94800D8EE jmp EF5F1402
|
||
008713BA 48 dec eax
|
||
008713BB 00D8 add al, bl
|
||
008713BD 1B4A00 sbb ecx, [edx+$00]
|
||
008713C0 EC in al, dx
|
||
008713C1 334A00 xor ecx, [edx+$00]
|
||
008713C4 20C4 and ah, al
|
||
008713C6 48 dec eax
|
||
008713C7 00B0404A0010 add [eax+$10004A40], dh
|
||
008713CD 44 inc esp
|
||
008713CE 4A dec edx
|
||
008713CF 00CC add ah, cl
|
||
008713D1 42 inc edx
|
||
008713D2 4A dec edx
|
||
008713D3 00B8C44800BC add [eax+$BC0048C4], bh
|
||
008713D9 C44800 les ecx, [eax+$00]
|
||
008713DC 48 dec eax
|
||
008713DD 45 inc ebp
|
||
008713DE 4A dec edx
|
||
008713DF 001CC3 add [ebx+eax*8], bl
|
||
008713E2 48 dec eax
|
||
008713E3 0018 add [eax], bl
|
||
008713E5 F0 lock
|
||
008713E6 48 dec eax
|
||
008713E7 00444C4A add [esp+ecx*2+$4A], al
|
||
008713EB 000C02 add [edx+eax], cl
|
||
008713EE 49 dec ecx
|
||
008713EF 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
|
||
008713F6 4A dec edx
|
||
008713F7 008C154A003C18 add [ebp+edx+$183C004A], cl
|
||
008713FE 4A dec edx
|
||
008713FF 0038 add [eax], bh
|
||
00871401 52 push edx
|
||
00871402 4A dec edx
|
||
00871403 005C224A add [edx+$4A], bl
|
||
00871407 00D8 add al, bl
|
||
00871409 224A00 and cl, byte ptr [edx+$00]
|
||
0087140C 7C68 jl 00871476
|
||
0087140E 4A dec edx
|
||
0087140F 00941F4A003C60 add [edi+ebx+$603C004A], dl
|
||
00871416 4A dec edx
|
||
00871417 001447 add [edi+eax*2], dl
|
||
0087141A 4A dec edx
|
||
0087141B 0034654A00CC2C add [$2CCC004A], dh
|
||
00871422 4A dec edx
|
||
00871423 000E add [esi], cl
|
||
00871425 0000 add [eax], al
|
||
|
||
00871427 0000 add [eax], al
|
||
|
||
00871429 0003 add [ebx], al
|
||
0087142B 0000 add [eax], al
|
||
|
||
0087142D 0020 add [eax], ah
|
||
0087142F 114000 adc [eax+$00], eax
|
||
00871432 AC lodsb
|
||
00871433 0300 add eax, [eax]
|
||
00871435 0020 add [eax], ah
|
||
00871437 114000 adc [eax+$00], eax
|
||
0087143A B003 mov al, $03
|
||
0087143C 0000 add [eax], al
|
||
|
||
0087143E 2011 and [ecx], dl
|
||
00871440 40 inc eax
|
||
00871441 00B40300002C00 add [ebx+eax+$2C0000], dh
|
||
00871448 06 push es
|
||
00871449 1B8700F80200 sbb eax, [edi+$2F800]
|
||
0087144F 0000 add [eax], al
|
||
|
||
00871451 0008 add [eax], cl
|
||
00871453 54 push esp
|
||
00871454 6F outsd
|
||
00871455 6F outsd
|
||
00871456 6C insb
|
||
00871457 42 inc edx
|
||
00871458 61 popa
|
||
00871459 7231 jb 0087148C
|
||
0087145B FC cld
|
||
0087145C 0200 add al, byte ptr [eax]
|
||
0087145E 0001 add [ecx], al
|
||
00871460 0009 add [ecx], cl
|
||
00871462 54 push esp
|
||
00871463 42 inc edx
|
||
00871464 52 push edx
|
||
00871465 61 popa
|
||
00871466 667265 jb 008714CE
|
||
00871469 7368 jnb 008714D3
|
||
0087146B 0003 add [ebx], al
|
||
0087146D 0000 add [eax], al
|
||
|
||
0087146F 0100 add [eax], eax
|
||
00871471 07 pop es
|
||
00871472 54 push esp
|
||
00871473 42 inc edx
|
||
00871474 43 inc ebx
|
||
00871475 6C insb
|
||
00871476 6F outsd
|
||
00871477 7365 jnb 008714DE
|
||
00871479 0403 add al, +$03
|
||
0087147B 0000 add [eax], al
|
||
|
||
0087147D 0200 add al, byte ptr [eax]
|
||
0087147F 0C41 or al, $41
|
||
00871481 44 inc esp
|
||
00871482 4F dec edi
|
||
00871483 51 push ecx
|
||
00871484 7565 jnz 008714EB
|
||
00871486 7279 jb 00871501
|
||
00871488 54 push esp
|
||
00871489 656D insd
|
||
0087148B 7008 jo 00871495
|
||
0087148D 0300 add eax, [eax]
|
||
0087148F 0002 add [edx], al
|
||
00871491 000B add [ebx], cl
|
||
00871493 41 inc ecx
|
||
00871494 44 inc esp
|
||
00871495 4F dec edi
|
||
00871496 51 push ecx
|
||
00871497 7565 jnz 008714FE
|
||
00871499 7279 jb 00871514
|
||
0087149B 43 inc ebx
|
||
0087149C 6D insd
|
||
0087149D 640C03 or al, $03
|
||
008714A0 0000 add [eax], al
|
||
|
||
008714A2 0300 add eax, [eax]
|
||
008714A4 06 push es
|
||
008714A5 50 push eax
|
||
008714A6 61 popa
|
||
008714A7 6E outsb
|
||
008714A8 656C insb
|
||
008714AA 3110 xor [eax], edx
|
||
008714AC 0300 add eax, [eax]
|
||
008714AE 0001 add [ecx], al
|
||
008714B0 000B add [ebx], cl
|
||
008714B2 54 push esp
|
||
008714B3 6F outsd
|
||
008714B4 6F outsd
|
||
008714B5 6C insb
|
||
008714B6 42 inc edx
|
||
008714B7 7574 jnz 0087152D
|
||
008714B9 746F jz 0087152A
|
||
008714BB 6E outsb
|
||
008714BC 321403 xor dl, byte ptr [ebx+eax]
|
||
008714BF 0000 add [eax], al
|
||
|
||
008714C1 0200 add al, byte ptr [eax]
|
||
008714C3 0C41 or al, $41
|
||
008714C5 44 inc esp
|
||
008714C6 4F dec edi
|
||
008714C7 51 push ecx
|
||
008714C8 7565 jnz 0087152F
|
||
008714CA 7279 jb 00871545
|
||
008714CC 4D dec ebp
|
||
008714CD 61 popa
|
||
008714CE 696E1803000001 imul ebp, [esi+$18], $01000003
|
||
008714D5 000B add [ebx], cl
|
||
008714D7 54 push esp
|
||
008714D8 6F outsd
|
||
008714D9 6F outsd
|
||
008714DA 6C insb
|
||
008714DB 42 inc edx
|
||
008714DC 7574 jnz 00871552
|
||
008714DE 746F jz 0087154F
|
||
008714E0 6E outsb
|
||
008714E1 311C03 xor [ebx+eax], ebx
|
||
008714E4 0000 add [eax], al
|
||
|
||
008714E6 0400 add al, +$00
|
||
008714E8 03524D add edx, [edx+$4D]
|
||
008714EB 3120 xor [eax], esp
|
||
008714ED 0300 add eax, [eax]
|
||
008714EF 00050009524D add [$4D520900], al
|
||
008714F5 44 inc esp
|
||
008714F6 42 inc edx
|
||
008714F7 5F pop edi
|
||
008714F8 4D dec ebp
|
||
008714F9 61 popa
|
||
008714FA 696E2403000006 imul ebp, [esi+$24], $06000003
|
||
00871501 0007 add [edi], al
|
||
00871503 637847 arpl [eax+$47], di
|
||
00871506 7269 jb 00871571
|
||
00871508 643228 xor ch, byte ptr fs:[eax]
|
||
0087150B 0300 add eax, [eax]
|
||
0087150D 0007 add [edi], al
|
||
0087150F 0003 add [ebx], al
|
||
00871511 54 push esp
|
||
00871512 7632 jbe 00871546
|
||
00871514 2C03 sub al, $03
|
||
00871516 0000 add [eax], al
|
||
|
||
00871518 0800 or [eax], al
|
||
0087151A 095631 or [esi+$31], edx
|
||
0087151D 42 inc edx
|
||
0087151E 656744 inc esp
|
||
00871521 61 popa
|
||
00871522 7465 jz 00871589
|
||
00871524 3003 xor [ebx], al
|
||
00871526 0000 add [eax], al
|
||
|
||
00871528 0800 or [eax], al
|
||
0087152A 07 pop es
|
||
0087152B 56 push esi
|
||
0087152C 314875 xor [eax+$75], ecx
|
||
0087152F 694C763403000009 imul ecx, [esi+esi*2+$34], $09000003
|
||
00871537 000C63 add [ebx], cl
|
||
0087153A 7847 js 00871583
|
||
0087153C 7269 jb 008715A7
|
||
0087153E 644C dec esp
|
||
00871540 657665 jbe 008715A8
|
||
00871543 6C insb
|
||
00871544 3138 xor [eax], edi
|
||
00871546 0300 add eax, [eax]
|
||
00871548 000A add [edx], cl
|
||
0087154A 0006 add [esi], al
|
||
0087154C 4C dec esp
|
||
0087154D 61 popa
|
||
0087154E 62656C bound esp, qword ptr [ebp+$6C]
|
||
00871551 323C03 xor bh, byte ptr [ebx+eax]
|
||
00871554 0000 add [eax], al
|
||
|
||
00871556 0B00 or eax, [eax]
|
||
00871558 07 pop es
|
||
00871559 626567 bound esp, qword ptr [ebp+$67]
|
||
0087155C 6461 popa
|
||
0087155E 7465 jz 008715C5
|
||
00871560 40 inc eax
|
||
00871561 0300 add eax, [eax]
|
||
00871563 000C00 add [eax+eax], cl
|
||
00871566 106378 adc [ebx+$78], ah
|
||
00871569 47 inc edi
|
||
0087156A 7269 jb 008715D5
|
||
0087156C 6450 push eax
|
||
0087156E 6F outsd
|
||
0087156F 7075 jo 008715E6
|
||
00871571 704D jo 008715C0
|
||
00871573 656E outsb
|
||
00871575 7532 jnz 008715A9
|
||
00871577 44 inc esp
|
||
00871578 0300 add eax, [eax]
|
||
0087157A 000D00054453 add [$53440500], cl
|
||
00871580 5F pop edi
|
||
00871581 48 dec eax
|
||
00871582 5A pop edx
|
||
00871583 48 dec eax
|
||
00871584 0300 add eax, [eax]
|
||
00871586 000E add [esi], cl
|
||
00871588 0006 add [esi], al
|
||
0087158A 43 inc ebx
|
||
0087158B 44 inc esp
|
||
0087158C 53 push ebx
|
||
0087158D 5F pop edi
|
||
0087158E 48 dec eax
|
||
0087158F 5A pop edx
|
||
00871590 4C dec esp
|
||
00871591 0300 add eax, [eax]
|
||
00871593 0008 add [eax], cl
|
||
00871595 0009 add [ecx], cl
|
||
00871597 7632 jbe 008715CB
|
||
00871599 45 inc ebp
|
||
0087159A 6E outsb
|
||
0087159B 6444 inc esp
|
||
0087159D 61 popa
|
||
0087159E 7465 jz 00871605
|
||
008715A0 50 push eax
|
||
008715A1 0300 add eax, [eax]
|
||
008715A3 0008 add [eax], cl
|
||
008715A5 0006 add [esi], al
|
||
008715A7 7632 jbe 008715DB
|
||
008715A9 7373 jnb 0087161E
|
||
008715AB 656C insb
|
||
008715AD 54 push esp
|
||
008715AE 0300 add eax, [eax]
|
||
008715B0 000F add [edi], cl
|
||
008715B2 000545646974 add [$74696445], al
|
||
008715B8 315803 xor [eax+$03], ebx
|
||
008715BB 0000 add [eax], al
|
||
|
||
008715BD 0A00 or al, byte ptr [eax]
|
||
008715BF 06 push es
|
||
008715C0 4C dec esp
|
||
008715C1 61 popa
|
||
008715C2 62656C bound esp, qword ptr [ebp+$6C]
|
||
008715C5 37 aaa
|
||
008715C6 5C pop esp
|
||
008715C7 0300 add eax, [eax]
|
||
008715C9 0010 add [eax], dl
|
||
008715CB 0007 add [edi], al
|
||
008715CD 42 inc edx
|
||
008715CE 7574 jnz 00871644
|
||
008715D0 746F jz 00871641
|
||
008715D2 6E outsb
|
||
008715D3 316003 xor [eax+$03], esp
|
||
008715D6 0000 add [eax], al
|
||
|
||
008715D8 0100 add [eax], eax
|
||
008715DA 0454 add al, +$54
|
||
008715DC 41 inc ecx
|
||
008715DD 44 inc esp
|
||
008715DE 44 inc esp
|
||
008715DF 640300 add eax, fs:[eax]
|
||
008715E2 0001 add [ecx], al
|
||
008715E4 000454 add [esp+edx*2], al
|
||
008715E7 44 inc esp
|
||
008715E8 656C insb
|
||
008715EA 6803000011 push $11000003
|
||
008715EF 0012 add [edx], dl
|
||
008715F1 637853 arpl [eax+$53], di
|
||
008715F4 7479 jz 0087166F
|
||
008715F6 6C insb
|
||
008715F7 6552 push edx
|
||
008715F9 65706F jo 0087166B
|
||
008715FC 7369 jnb 00871667
|
||
008715FE 746F jz 0087166F
|
||
00871600 7279 jb 0087167B
|
||
00871602 316C0300 xor [ebx+eax+$00], ebp
|
||
00871606 0012 add [edx], dl
|
||
00871608 0008 add [eax], cl
|
||
0087160A 637853 arpl [eax+$53], di
|
||
0087160D 7479 jz 00871688
|
||
0087160F 6C insb
|
||
00871610 65317003 xor gs:[eax+$03], esi
|
||
00871614 0000 add [eax], al
|
||
|
||
00871616 1300 adc eax, [eax]
|
||
00871618 0A506F or dl, byte ptr [eax+$6F]
|
||
0087161B 7075 jo 00871692
|
||
0087161D 704D jo 0087166C
|
||
0087161F 656E outsb
|
||
00871621 7531 jnz 00871654
|
||
00871623 7403 jz 00871628
|
||
00871625 0000 add [eax], al
|
||
|
||
00871627 1400 adc al, $00
|
||
00871629 024E31 add cl, byte ptr [esi+$31]
|
||
0087162C 7803 js 00871631
|
||
0087162E 0000 add [eax], al
|
||
|
||
00871630 1400 adc al, $00
|
||
00871632 024E32 add cl, byte ptr [esi+$32]
|
||
00871635 7C03 jl 0087163A
|
||
00871637 0000 add [eax], al
|
||
|
||
00871639 0100 add [eax], eax
|
||
0087163B 0454 add al, +$54
|
||
0087163D 53 push ebx
|
||
0087163E 656C insb
|
||
00871640 800300 add byte ptr [ebx], $00
|
||
00871643 0008 add [eax], cl
|
||
00871645 0008 add [eax], cl
|
||
00871647 7632 jbe 0087167B
|
||
00871649 46 inc esi
|
||
0087164A 696C6C6572840300 imul ebp, [esp+ebp*2+$65], $00038472
|
||
00871652 0008 add [eax], cl
|
||
00871654 0006 add [esi], al
|
||
00871656 7632 jbe 0087168A
|
||
00871658 4E dec esi
|
||
00871659 6F outsd
|
||
0087165A 7465 jz 008716C1
|
||
0087165C 8803 mov [ebx], al
|
||
0087165E 0000 add [eax], al
|
||
|
||
00871660 0A00 or al, byte ptr [eax]
|
||
00871662 06 push es
|
||
00871663 4C dec esp
|
||
00871664 61 popa
|
||
00871665 62656C bound esp, qword ptr [ebp+$6C]
|
||
00871668 318C0300000F00 xor [ebx+eax+$F0000], ecx
|
||
0087166F 054875694C add eax, +$4C697548
|
||
00871674 56 push esi
|
||
00871675 90 nop
|
||
00871676 0300 add eax, [eax]
|
||
00871678 0001 add [ecx], al
|
||
0087167A 000554536176 add [$76615354], al
|
||
00871680 6594 xchg eax, esp
|
||
00871682 0300 add eax, [eax]
|
||
00871684 0002 add [edx], al
|
||
00871686 0009 add [ecx], cl
|
||
00871688 41 inc ecx
|
||
00871689 44 inc esp
|
||
0087168A 4F dec edi
|
||
0087168B 51 push ecx
|
||
0087168C 7565 jnz 008716F3
|
||
0087168E 7279 jb 00871709
|
||
00871690 319803000008 xor [eax+$8000003], ebx
|
||
00871696 0008 add [eax], cl
|
||
00871698 7632 jbe 008716CC
|
||
0087169A 47 inc edi
|
||
0087169B 53 push ebx
|
||
0087169C 54 push esp
|
||
0087169D 7970 jns 0087170F
|
||
0087169F 659C pushf
|
||
008716A1 0300 add eax, [eax]
|
||
008716A3 000A add [edx], cl
|
||
008716A5 0006 add [esi], al
|
||
008716A7 4C dec esp
|
||
008716A8 61 popa
|
||
008716A9 62656C bound esp, qword ptr [ebp+$6C]
|
||
008716AC 33A00300000A xor esp, [eax+$A000003]
|
||
008716B2 0006 add [esi], al
|
||
008716B4 4C dec esp
|
||
008716B5 61 popa
|
||
008716B6 62656C bound esp, qword ptr [ebp+$6C]
|
||
008716B9 34A4 xor al, $A4
|
||
008716BB 0300 add eax, [eax]
|
||
008716BD 001500064753 add [$53470600], dl
|
||
008716C3 54 push esp
|
||
008716C4 7970 jns 00871736
|
||
008716C6 6525001200F8 and eax, $F8001200
|
||
008716CC 1D87000B46 sbb eax, $460B0087
|
||
008716D1 6F outsd
|
||
008716D2 726D jb 00871741
|
||
008716D4 44 inc esp
|
||
008716D5 657374 jnb 0087174C
|
||
008716D8 726F jb 00871749
|
||
008716DA 7910 jns 008716EC
|
||
008716DC 0000 add [eax], al
|
||
|
||
008716DE 1E push ds
|
||
008716DF 8700 xchg [eax], eax
|
||
008716E1 09466F or [esi+$6F], eax
|
||
008716E4 726D jb 00871753
|
||
008716E6 43 inc ebx
|
||
008716E7 6C insb
|
||
008716E8 6F outsd
|
||
008716E9 7365 jnb 00871750
|
||
008716EB 1300 adc eax, [eax]
|
||
008716ED 041E add al, +$1E
|
||
008716EF 8700 xchg [eax], eax
|
||
008716F1 0C54 or al, $54
|
||
008716F3 42 inc edx
|
||
008716F4 43 inc ebx
|
||
008716F5 6C insb
|
||
008716F6 6F outsd
|
||
008716F7 7365 jnb 0087175E
|
||
008716F9 43 inc ebx
|
||
008716FA 6C insb
|
||
008716FB 69636B0F00501E imul esp, [ebx+$6B], $1E50000F
|
||
00871702 8700 xchg [eax], eax
|
||
00871704 08466F or [esi+$6F], al
|
||
00871707 726D jb 00871776
|
||
00871709 53 push ebx
|
||
0087170A 686F771500 push $0015776F
|
||
0087170F C01E87 rcr byte ptr [esi], $87
|
||
00871712 000E add [esi], cl
|
||
00871714 54 push esp
|
||
00871715 42 inc edx
|
||
00871716 52 push edx
|
||
00871717 61 popa
|
||
00871718 667265 jb 00871780
|
||
0087171B 7368 jnb 00871785
|
||
0087171D 43 inc ebx
|
||
0087171E 6C insb
|
||
0087171F 69636B1700DC1E imul esp, [ebx+$6B], $1EDC0017
|
||
00871726 8700 xchg [eax], eax
|
||
00871728 10546F6F adc [edi+ebp*2+$6F], dl
|
||
0087172C 6C insb
|
||
0087172D 42 inc edx
|
||
0087172E 7574 jnz 008717A4
|
||
00871730 746F jz 008717A1
|
||
00871732 6E outsb
|
||
00871733 32436C xor al, byte ptr [ebx+$6C]
|
||
00871736 69636B18005C1F imul esp, [ebx+$6B], $1F5C0018
|
||
0087173D 8700 xchg [eax], eax
|
||
0087173F 114661 adc [esi+$61], eax
|
||
00871742 63746F72 arpl [edi+ebp*2+$72], si
|
||
00871746 794E jns 00871796
|
||
00871748 61 popa
|
||
00871749 6D insd
|
||
0087174A 6543 inc ebx
|
||
0087174C 68616E6765 push $65676E61
|
||
00871751 1300 adc eax, [eax]
|
||
00871753 701F jo 00871774
|
||
00871755 8700 xchg [eax], eax
|
||
00871757 0C42 or al, $42
|
||
00871759 7574 jnz 008717CF
|
||
0087175B 746F jz 008717CC
|
||
0087175D 6E outsb
|
||
0087175E 32436C xor al, byte ptr [ebx+$6C]
|
||
00871761 69636B3000EC20 imul esp, [ebx+$6B], $20EC0030
|
||
00871768 8700 xchg [eax], eax
|
||
0087176A 296378 sub dword ptr [ebx+$78], esp
|
||
0087176D 47 inc edi
|
||
0087176E 7269 jb 008717D9
|
||
00871770 6444 inc esp
|
||
00871772 42 inc edx
|
||
00871773 43 inc ebx
|
||
00871774 6F outsd
|
||
00871775 6C insb
|
||
00871776 756D jnz 008717E5
|
||
00871778 6E outsb
|
||
00871779 385072 cmp [eax+$72], dl
|
||
0087177C 6F outsd
|
||
0087177D 7065 jo 008717E4
|
||
0087177F 7274 jb 008717F5
|
||
00871781 69657345646974 imul esp, [ebp+$73], $74696445
|
||
00871788 56 push esi
|
||
00871789 61 popa
|
||
0087178A 6C insb
|
||
0087178B 7565 jnz 008717F2
|
||
0087178D 43 inc ebx
|
||
0087178E 68616E6765 push $65676E61
|
||
00871793 643000 xor fs:[eax], al
|
||
00871796 B823870029 mov eax, $29008723
|
||
0087179B 637847 arpl [eax+$47], di
|
||
0087179E 7269 jb 00871809
|
||
008717A0 6444 inc esp
|
||
008717A2 42 inc edx
|
||
008717A3 43 inc ebx
|
||
008717A4 6F outsd
|
||
008717A5 6C insb
|
||
008717A6 756D jnz 00871815
|
||
008717A8 6E outsb
|
||
008717A9 3550726F70 xor eax, $706F7250
|
||
008717AE 657274 jb 00871825
|
||
008717B1 69657345646974 imul esp, [ebp+$73], $74696445
|
||
008717B8 56 push esi
|
||
008717B9 61 popa
|
||
008717BA 6C insb
|
||
008717BB 7565 jnz 00871822
|
||
008717BD 43 inc ebx
|
||
008717BE 68616E6765 push $65676E61
|
||
008717C3 643000 xor fs:[eax], al
|
||
008717C6 60 pusha
|
||
008717C7 2D87002963 sub eax, $63290087
|
||
008717CC 7847 js 00871815
|
||
008717CE 7269 jb 00871839
|
||
008717D0 6444 inc esp
|
||
008717D2 42 inc edx
|
||
008717D3 43 inc ebx
|
||
008717D4 6F outsd
|
||
008717D5 6C insb
|
||
008717D6 756D jnz 00871845
|
||
008717D8 6E outsb
|
||
008717D9 315072 xor [eax+$72], edx
|
||
008717DC 6F outsd
|
||
008717DD 7065 jo 00871844
|
||
008717DF 7274 jb 00871855
|
||
008717E1 69657345646974 imul esp, [ebp+$73], $74696445
|
||
008717E8 56 push esi
|
||
008717E9 61 popa
|
||
008717EA 6C insb
|
||
008717EB 7565 jnz 00871852
|
||
008717ED 43 inc ebx
|
||
008717EE 68616E6765 push $65676E61
|
||
008717F3 642B00 sub eax, dword ptr fs:[eax]
|
||
008717F6 D830 fdiv dword ptr [eax]
|
||
008717F8 8700 xchg [eax], eax
|
||
008717FA 2463 and al, $63
|
||
008717FC 7847 js 00871845
|
||
008717FE 7269 jb 00871869
|
||
00871800 6444 inc esp
|
||
00871802 42 inc edx
|
||
00871803 43 inc ebx
|
||
00871804 6F outsd
|
||
00871805 6C insb
|
||
00871806 756D jnz 00871875
|
||
00871808 6E outsb
|
||
00871809 335072 xor edx, [eax+$72]
|
||
0087180C 6F outsd
|
||
0087180D 7065 jo 00871874
|
||
0087180F 7274 jb 00871885
|
||
00871811 69657342757474 imul esp, [ebp+$73], $74747542
|
||
00871818 6F outsd
|
||
00871819 6E outsb
|
||
0087181A 43 inc ebx
|
||
0087181B 6C insb
|
||
0087181C 69636B2B00F035 imul esp, [ebx+$6B], $35F0002B
|
||
00871823 8700 xchg [eax], eax
|
||
00871825 2463 and al, $63
|
||
00871827 7847 js 00871870
|
||
00871829 7269 jb 00871894
|
||
0087182B 6444 inc esp
|
||
0087182D 42 inc edx
|
||
0087182E 43 inc ebx
|
||
0087182F 6F outsd
|
||
00871830 6C insb
|
||
00871831 756D jnz 008718A0
|
||
00871833 6E outsb
|
||
00871834 3650 push eax
|
||
00871836 726F jb 008718A7
|
||
00871838 7065 jo 0087189F
|
||
0087183A 7274 jb 008718B0
|
||
0087183C 69657342757474 imul esp, [ebp+$73], $74747542
|
||
00871843 6F outsd
|
||
00871844 6E outsb
|
||
00871845 43 inc ebx
|
||
00871846 6C insb
|
||
00871847 69636B25004C39 imul esp, [ebx+$6B], $394C0025
|
||
0087184E 8700 xchg [eax], eax
|
||
00871850 1E push ds
|
||
00871851 7632 jbe 00871885
|
||
00871853 43 inc ebx
|
||
00871854 6F outsd
|
||
00871855 6C insb
|
||
00871856 756D jnz 008718C5
|
||
00871858 6E outsb
|
||
00871859 335072 xor edx, [eax+$72]
|
||
0087185C 6F outsd
|
||
0087185D 7065 jo 008718C4
|
||
0087185F 7274 jb 008718D5
|
||
00871861 69657342757474 imul esp, [ebp+$73], $74747542
|
||
00871868 6F outsd
|
||
00871869 6E outsb
|
||
0087186A 43 inc ebx
|
||
0087186B 6C insb
|
||
0087186C 69636B1700903C imul esp, [ebx+$6B], $3C900017
|
||
00871873 8700 xchg [eax], eax
|
||
00871875 10546F6F adc [edi+ebp*2+$6F], dl
|
||
00871879 6C insb
|
||
0087187A 42 inc edx
|
||
0087187B 7574 jnz 008718F1
|
||
0087187D 746F jz 008718EE
|
||
0087187F 6E outsb
|
||
00871880 31436C xor [ebx+$6C], eax
|
||
00871883 69636B2A00D03C imul esp, [ebx+$6B], $3CD0002A
|
||
0087188A 8700 xchg [eax], eax
|
||
0087188C 237632 and esi, [esi+$32]
|
||
0087188F 43 inc ebx
|
||
00871890 6F outsd
|
||
00871891 6C insb
|
||
00871892 756D jnz 00871901
|
||
00871894 6E outsb
|
||
00871895 325072 xor dl, byte ptr [eax+$72]
|
||
00871898 6F outsd
|
||
00871899 7065 jo 00871900
|
||
0087189B 7274 jb 00871911
|
||
0087189D 69657345646974 imul esp, [ebp+$73], $74696445
|
||
008718A4 56 push esi
|
||
008718A5 61 popa
|
||
008718A6 6C insb
|
||
008718A7 7565 jnz 0087190E
|
||
008718A9 43 inc ebx
|
||
008718AA 68616E6765 push $65676E61
|
||
008718AF 642500044087 and eax, $87400400
|
||
008718B5 001E add [esi], bl
|
||
008718B7 7632 jbe 008718EB
|
||
008718B9 50 push eax
|
||
008718BA 53 push ebx
|
||
008718BB 50 push eax
|
||
008718BC 726F jb 0087192D
|
||
008718BE 7065 jo 00871925
|
||
008718C0 7274 jb 00871936
|
||
008718C2 69657345646974 imul esp, [ebp+$73], $74696445
|
||
008718C9 56 push esi
|
||
008718CA 61 popa
|
||
008718CB 6C insb
|
||
008718CC 7565 jnz 00871933
|
||
008718CE 43 inc ebx
|
||
008718CF 68616E6765 push $65676E61
|
||
008718D4 642A00 sub al, byte ptr fs:[eax]
|
||
008718D7 A842 test al, $42
|
||
008718D9 8700 xchg [eax], eax
|
||
008718DB 237632 and esi, [esi+$32]
|
||
008718DE 42 inc edx
|
||
008718DF 61 popa
|
||
008718E0 7463 jz 00871945
|
||
008718E2 684E6F5072 push $72506F4E
|
||
008718E7 6F outsd
|
||
008718E8 7065 jo 0087194F
|
||
008718EA 7274 jb 00871960
|
||
008718EC 69657345646974 imul esp, [ebp+$73], $74696445
|
||
008718F3 56 push esi
|
||
008718F4 61 popa
|
||
008718F5 6C insb
|
||
008718F6 7565 jnz 0087195D
|
||
008718F8 43 inc ebx
|
||
008718F9 68616E6765 push $65676E61
|
||
008718FE 642500804687 and eax, $87468000
|
||
00871904 001E add [esi], bl
|
||
00871906 7632 jbe 0087193A
|
||
00871908 50 push eax
|
||
00871909 61 popa
|
||
0087190A 794D jns 00871959
|
||
0087190C 656E outsb
|
||
0087190E 7450 jz 00871960
|
||
00871910 726F jb 00871981
|
||
00871912 7065 jo 00871979
|
||
00871914 7274 jb 0087198A
|
||
00871916 69657342757474 imul esp, [ebp+$73], $74747542
|
||
0087191D 6F outsd
|
||
0087191E 6E outsb
|
||
0087191F 43 inc ebx
|
||
00871920 6C insb
|
||
00871921 69636B2800B449 imul esp, [ebx+$6B], $49B40028
|
||
00871928 8700 xchg [eax], eax
|
||
0087192A 217632 and [esi+$32], esi
|
||
0087192D 54 push esp
|
||
0087192E 5F pop edi
|
||
0087192F 7174 jno 008719A5
|
||
00871931 7950 jns 00871983
|
||
00871933 726F jb 008719A4
|
||
00871935 7065 jo 0087199C
|
||
00871937 7274 jb 008719AD
|
||
00871939 69657345646974 imul esp, [ebp+$73], $74696445
|
||
00871940 56 push esi
|
||
00871941 61 popa
|
||
00871942 6C insb
|
||
00871943 7565 jnz 008719AA
|
||
00871945 43 inc ebx
|
||
00871946 68616E6765 push $65676E61
|
||
0087194B 641300 adc eax, fs:[eax]
|
||
0087194E 44 inc esp
|
||
0087194F 4D dec ebp
|
||
00871950 8700 xchg [eax], eax
|
||
00871952 0C42 or al, $42
|
||
00871954 7574 jnz 008719CA
|
||
00871956 746F jz 008719C7
|
||
00871958 6E outsb
|
||
00871959 31436C xor [ebx+$6C], eax
|
||
0087195C 69636B2A00C051 imul esp, [ebx+$6B], $51C0002A
|
||
00871963 8700 xchg [eax], eax
|
||
00871965 237632 and esi, [esi+$32]
|
||
00871968 54 push esp
|
||
00871969 5F pop edi
|
||
0087196A 50 push eax
|
||
0087196B 7269 jb 008719D6
|
||
0087196D 636550 arpl [ebp+$50], sp
|
||
00871970 726F jb 008719E1
|
||
00871972 7065 jo 008719D9
|
||
00871974 7274 jb 008719EA
|
||
00871976 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0087197D 56 push esi
|
||
0087197E 61 popa
|
||
0087197F 6C insb
|
||
00871980 7565 jnz 008719E7
|
||
00871982 43 inc ebx
|
||
00871983 68616E6765 push $65676E61
|
||
00871988 642500505587 and eax, $87555000
|
||
0087198E 001E add [esi], bl
|
||
00871990 7632 jbe 008719C4
|
||
00871992 4F dec edi
|
||
00871993 7264 jb 008719F9
|
||
00871995 65724E jb 008719E6
|
||
00871998 4F dec edi
|
||
00871999 50 push eax
|
||
0087199A 726F jb 00871A0B
|
||
0087199C 7065 jo 00871A03
|
||
0087199E 7274 jb 00871A14
|
||
008719A0 69657342757474 imul esp, [ebp+$73], $74747542
|
||
008719A7 6F outsd
|
||
008719A8 6E outsb
|
||
008719A9 43 inc ebx
|
||
008719AA 6C insb
|
||
008719AB 69636B2700445A imul esp, [ebx+$6B], $5A440027
|
||
008719B2 8700 xchg [eax], eax
|
||
008719B4 207632 and [esi+$32], dh
|
||
008719B7 43 inc ebx
|
||
008719B8 6F outsd
|
||
008719B9 6D insd
|
||
008719BA 54 push esp
|
||
008719BB 61 popa
|
||
008719BC 69546F7550726F70 imul edx, [edi+ebp*2+$75], $706F7250
|
||
008719C4 657274 jb 00871A3B
|
||
008719C7 69657342757474 imul esp, [ebp+$73], $74747542
|
||
008719CE 6F outsd
|
||
008719CF 6E outsb
|
||
008719D0 43 inc ebx
|
||
008719D1 6C insb
|
||
008719D2 69636B2500805D imul esp, [ebx+$6B], $5D800025
|
||
008719D9 8700 xchg [eax], eax
|
||
008719DB 1E push ds
|
||
008719DC 7632 jbe 00871A10
|
||
008719DE 50 push eax
|
||
008719DF 5F pop edi
|
||
008719E0 43 inc ebx
|
||
008719E1 6F outsd
|
||
008719E2 6C insb
|
||
008719E3 6F outsd
|
||
008719E4 7250 jb 00871A36
|
||
008719E6 726F jb 00871A57
|
||
008719E8 7065 jo 00871A4F
|
||
008719EA 7274 jb 00871A60
|
||
008719EC 69657342757474 imul esp, [ebp+$73], $74747542
|
||
008719F3 6F outsd
|
||
008719F4 6E outsb
|
||
008719F5 43 inc ebx
|
||
008719F6 6C insb
|
||
008719F7 69636B10005061 imul esp, [ebx+$6B], $61500010
|
||
008719FE 8700 xchg [eax], eax
|
||
00871A00 09544144 or [ecx+eax*2+$44], edx
|
||
00871A04 44 inc esp
|
||
00871A05 43 inc ebx
|
||
00871A06 6C insb
|
||
00871A07 69636B10001062 imul esp, [ebx+$6B], $62100010
|
||
00871A0E 8700 xchg [eax], eax
|
||
00871A10 09544465 or [esp+eax*2+$65], edx
|
||
00871A14 6C insb
|
||
00871A15 43 inc ebx
|
||
00871A16 6C insb
|
||
00871A17 69636B0E000C64 imul esp, [ebx+$6B], $640C000E
|
||
00871A1E 8700 xchg [eax], eax
|
||
00871A20 07 pop es
|
||
00871A21 4E dec esi
|
||
00871A22 31436C xor [ebx+$6C], eax
|
||
00871A25 69636B0E001C64 imul esp, [ebx+$6B], $641C000E
|
||
00871A2C 8700 xchg [eax], eax
|
||
00871A2E 07 pop es
|
||
00871A2F 4E dec esi
|
||
00871A30 32436C xor al, byte ptr [ebx+$6C]
|
||
00871A33 69636B29002C64 imul esp, [ebx+$6B], $642C0029
|
||
00871A3A 8700 xchg [eax], eax
|
||
00871A3C 227632 and dh, byte ptr [esi+$32]
|
||
00871A3F 4B dec ebx
|
||
00871A40 50 push eax
|
||
00871A41 54 push esp
|
||
00871A42 7970 jns 00871AB4
|
||
00871A44 6550 push eax
|
||
00871A46 726F jb 00871AB7
|
||
00871A48 7065 jo 00871AAF
|
||
00871A4A 7274 jb 00871AC0
|
||
00871A4C 69657345646974 imul esp, [ebp+$73], $74696445
|
||
00871A53 56 push esi
|
||
00871A54 61 popa
|
||
00871A55 6C insb
|
||
00871A56 7565 jnz 00871ABD
|
||
00871A58 43 inc ebx
|
||
00871A59 68616E6765 push $65676E61
|
||
00871A5E 641A00 sbb al, byte ptr fs:[eax]
|
||
00871A61 FC cld
|
||
00871A62 658700 xchg gs:[eax], eax
|
||
00871A65 136378 adc esp, [ebx+$78]
|
||
00871A68 54 push esp
|
||
00871A69 61 popa
|
||
00871A6A 62436F bound eax, qword ptr [ebx+$6F]
|
||
00871A6D 6E outsb
|
||
00871A6E 7472 jz 00871AE2
|
||
00871A70 6F outsd
|
||
00871A71 6C insb
|
||
00871A72 324368 xor al, byte ptr [ebx+$68]
|
||
00871A75 61 popa
|
||
00871A76 6E outsb
|
||
00871A77 67651000 adc gs:[bx+si], al
|
||
00871A7B 0466 add al, +$66
|
||
00871A7D 8700 xchg [eax], eax
|
||
00871A7F 09545365 or [ebx+edx*2+$65], edx
|
||
00871A83 6C insb
|
||
00871A84 43 inc ebx
|
||
00871A85 6C insb
|
||
00871A86 69636B1200CC66 imul esp, [ebx+$6B], $66CC0012
|
||
00871A8D 8700 xchg [eax], eax
|
||
00871A8F 0B4875 or ecx, [eax+$75]
|
||
00871A92 694C564368616E67 imul ecx, [esi+edx*2+$43], $676E6168
|
||
00871A9A 651100 adc gs:[eax], eax
|
||
00871A9D E066 loopn +$66
|
||
00871A9F 8700 xchg [eax], eax
|
||
00871AA1 0A545361 or dl, byte ptr [ebx+edx*2+$61]
|
||
00871AA5 7665 jbe 00871B0C
|
||
00871AA7 43 inc ebx
|
||
00871AA8 6C insb
|
||
00871AA9 69636B2400C06A imul esp, [ebx+$6B], $6AC00024
|
||
00871AB0 8700 xchg [eax], eax
|
||
00871AB2 1D76324753 sbb eax, $53473276
|
||
00871AB7 54 push esp
|
||
00871AB8 7970 jns 00871B2A
|
||
00871ABA 6550 push eax
|
||
00871ABC 726F jb 00871B2D
|
||
00871ABE 7065 jo 00871B25
|
||
00871AC0 7274 jb 00871B36
|
||
00871AC2 69657342757474 imul esp, [ebp+$73], $74747542
|
||
00871AC9 6F outsd
|
||
00871ACA 6E outsb
|
||
00871ACB 43 inc ebx
|
||
00871ACC 6C insb
|
||
00871ACD 69636B1300286C imul esp, [ebx+$6B], $6C280013
|
||
00871AD4 8700 xchg [eax], eax
|
||
00871AD6 0C47 or al, $47
|
||
00871AD8 53 push ebx
|
||
00871AD9 54 push esp
|
||
00871ADA 7970 jns 00871B4C
|
||
00871ADC 6543 inc ebx
|
||
00871ADE 68616E6765 push $65676E61
|
||
00871AE3 1400 adc al, $00
|
||
00871AE5 3C6C cmp al, $6C
|
||
00871AE7 8700 xchg [eax], eax
|
||
00871AE9 0D62656764 or eax, $64676562
|
||
00871AEE 61 popa
|
||
00871AEF 7465 jz 00871B56
|
||
00871AF1 43 inc ebx
|
||
00871AF2 68616E6765 push $65676E61
|
||
00871AF7 0E push cs
|
||
00871AF8 54 push esp
|
||
00871AF9 66726D jb 00871B69
|
||
00871AFC 43 inc ebx
|
||
00871AFD 61 popa
|
||
00871AFE 6957754875694C imul edx, [edi+$75], $4C697548
|
||
00871B05 56 push esi
|
||
00871B06 16 push ss
|
||
00871B07 0028 add [eax], ch
|
||
00871B09 94 xchg eax, esp
|
||
00871B0A 45 inc ebp
|
||
00871B0B 00648A45 add [edx+ecx*4+$45], ah
|
||
00871B0F 00B8124D0020 add [eax+$20004D12], bh
|
||
00871B15 42 inc edx
|
||
00871B16 44 inc esp
|
||
00871B17 0064D378 add [ebx+edx*8+$78], ah
|
||
00871B1B 00A80A780000 add [eax+$780A], ch
|
||
00871B21 16 push ss
|
||
00871B22 6300 arpl [eax], ax
|
||
00871B24 F4 hlt
|
||
00871B25 B466 mov ah, $66
|
||
00871B27 0034B1 add [ecx+esi*4], dh
|
||
00871B2A 6600A40E64001C5F add [esi+ecx+$5F1C0064], ah
|
||
00871B32 47 inc edi
|
||
00871B33 00E0 add al, ah
|
||
00871B35 A5 movsd
|
||
00871B36 45 inc ebp
|
||
00871B37 005876 add [eax+$76], bl
|
||
00871B3A 7C00 jl 00871B3C
|
||
00871B3C 087F4B or [edi+$4B], bh
|
||
00871B3F 0088996A00B8 add [eax+$B8006A99], cl
|
||
00871B45 6747 inc edi
|
||
00871B47 0000 add [eax], al
|
||
|
||
00871B49 8E4700 mov es, word ptr [edi+$00]
|
||
00871B4C 9C pushf
|
||
00871B4D 6D insd
|
||
00871B4E 4F dec edi
|
||
00871B4F 005070 add [eax+$70], dl
|
||
00871B52 4F dec edi
|
||
00871B53 00887E49008C add [eax+$8C00497E], cl
|
||
00871B59 7649 jbe 00871BA4
|
||
00871B5B 00F4 add ah, dh
|
||
00871B5D 814700641B8700 add dword ptr [edi+$00], $00871B64
|
||
00871B64 07 pop es
|
||
00871B65 0E push cs
|
||
00871B66 54 push esp
|
||
00871B67 66726D jb 00871BD7
|
||
00871B6A 43 inc ebx
|
||
00871B6B 61 popa
|
||
00871B6C 6957754875694C imul edx, [edi+$75], $4C697548
|
||
00871B73 56 push esi
|
||
00871B74 3013 xor [ebx], dl
|
||
00871B76 8700 xchg [eax], eax
|
||
00871B78 D0F2 DB $D0, $F2 // dl, 1
|
||
00871B7A 49 dec ecx
|
||
00871B7B 005E00 add [esi+$00], bl
|
||
00871B7E 0C55 or al, $55
|
||
00871B80 5F pop edi
|
||
00871B81 43 inc ebx
|
||
00871B82 61 popa
|
||
00871B83 6957754875696C imul edx, [edi+$75], $6C697548
|
||
00871B8A 56 push esi
|
||
00871B8B 0000 add [eax], al
|
||
|
||
00871B8D 8D4000 lea eax, [eax+$00]
|
||
00871B90 55 push ebp
|
||
00871B91 8BEC mov ebp, esp
|
||
00871B93 33C9 xor ecx, ecx
|
||
00871B95 51 push ecx
|
||
00871B96 51 push ecx
|
||
00871B97 51 push ecx
|
||
00871B98 51 push ecx
|
||
00871B99 51 push ecx
|
||
00871B9A 53 push ebx
|
||
00871B9B 8945FC mov [ebp-$04], eax
|
||
00871B9E 33C0 xor eax, eax
|
||
00871BA0 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>-<2D><><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
||
|
|
||
00871BA1 683A1D8700 push $00871D3A
|
||
|
||
***** TRY
|
||
|
|
||
00871BA6 64FF30 push dword ptr fs:[eax]
|
||
00871BA9 648920 mov fs:[eax], esp
|
||
00871BAC 33C0 xor eax, eax
|
||
00871BAE 55 push ebp
|
||
00871BAF 68181D8700 push $00871D18
|
||
|
||
***** TRY
|
||
|
|
||
00871BB4 64FF30 push dword ptr fs:[eax]
|
||
00871BB7 648920 mov fs:[eax], esp
|
||
00871BBA 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
00871BBD 8B8014030000 mov eax, [eax+$0314]
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
00871BC3 E88C59C5FF call 004C7554
|
||
00871BC8 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
00871BCB 8B9814030000 mov ebx, [eax+$0314]
|
||
00871BD1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00871BD3 E8FC3CC5FF call 004C58D4
|
||
00871BD8 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00871BDA E8CDC3C6FF call 004DDFAC
|
||
00871BDF 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00871BE1 FF5244 call dword ptr [edx+$44]
|
||
00871BE4 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00871BE6 E8C1C3C6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select A.*'
|
||
|
|
||
00871BEB BA501D8700 mov edx, $00871D50
|
||
00871BF0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00871BF2 FF5138 call dword ptr [ecx+$38]
|
||
00871BF5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00871BF7 E8B0C3C6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from JYOrder_HuiLV A'
|
||
|
|
||
00871BFC BA641D8700 mov edx, $00871D64
|
||
00871C01 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00871C03 FF5138 call dword ptr [ecx+$38]
|
||
00871C06 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00871C08 E89FC3C6FF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' where 1=1 '
|
||
|
|
||
00871C0D BA841D8700 mov edx, $00871D84
|
||
00871C12 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00871C14 FF5138 call dword ptr [ecx+$38]
|
||
00871C17 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00871C1A 8B803C030000 mov eax, [eax+$033C]
|
||
|
||
* Reference to field N.A..OFFS_0252
|
||
|
|
||
00871C20 80B85202000001 cmp byte ptr [eax+$0252], $01
|
||
00871C27 0F859A000000 jnz 00871CC7
|
||
|
||
* Possible String Reference to: ' and A.BegDate<=''
|
||
|
|
||
00871C2D 68981D8700 push $00871D98
|
||
00871C32 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00871C35 8B803C030000 mov eax, [eax+$033C]
|
||
00871C3B FFB014020000 push dword ptr [eax+$0214]
|
||
00871C41 FFB010020000 push dword ptr [eax+$0210]
|
||
00871C47 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00871C4A B8B41D8700 mov eax, $00871DB4
|
||
|
||
|
|
||
00871C4F E868CFB9FF call 0040EBBC
|
||
00871C54 FF75F4 push dword ptr [ebp-$0C]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00871C57 68C81D8700 push $00871DC8
|
||
00871C5C 8D45F8 lea eax, [ebp-$08]
|
||
00871C5F BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00871C64 E84B3AB9FF call 004056B4
|
||
00871C69 8B45F8 mov eax, [ebp-$08]
|
||
00871C6C 50 push eax
|
||
00871C6D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00871C6F E838C3C6FF call 004DDFAC
|
||
00871C74 5A pop edx
|
||
00871C75 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00871C77 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and isnull(A.endDate,getdate())>''
|
||
|
|
||
00871C7A 68D41D8700 push $00871DD4
|
||
00871C7F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00871C82 8B803C030000 mov eax, [eax+$033C]
|
||
00871C88 FFB014020000 push dword ptr [eax+$0214]
|
||
00871C8E FFB010020000 push dword ptr [eax+$0210]
|
||
00871C94 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00871C97 B8B41D8700 mov eax, $00871DB4
|
||
|
||
|
|
||
00871C9C E81BCFB9FF call 0040EBBC
|
||
00871CA1 FF75EC push dword ptr [ebp-$14]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00871CA4 68C81D8700 push $00871DC8
|
||
00871CA9 8D45F0 lea eax, [ebp-$10]
|
||
00871CAC BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00871CB1 E8FE39B9FF call 004056B4
|
||
00871CB6 8B45F0 mov eax, [ebp-$10]
|
||
00871CB9 50 push eax
|
||
00871CBA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00871CBC E8EBC2C6FF call 004DDFAC
|
||
00871CC1 5A pop edx
|
||
00871CC2 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00871CC4 FF5138 call dword ptr [ecx+$38]
|
||
00871CC7 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
00871CC9 E8FA3BC5FF call 004C58C8
|
||
00871CCE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control Order_Sub : N.A.
|
||
|
|
||
00871CD1 8B9048030000 mov edx, [eax+$0348]
|
||
00871CD7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
00871CDA 8B8014030000 mov eax, [eax+$0314]
|
||
|
||
|
|
||
00871CE0 E8AB51F4FF call 007B6E90
|
||
00871CE5 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control Order_Sub : N.A.
|
||
|
|
||
00871CE8 8B9048030000 mov edx, [eax+$0348]
|
||
00871CEE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
00871CF1 8B8014030000 mov eax, [eax+$0314]
|
||
|
||
|
|
||
00871CF7 E81C53F4FF call 007B7018
|
||
00871CFC 33C0 xor eax, eax
|
||
00871CFE 5A pop edx
|
||
00871CFF 59 pop ecx
|
||
00871D00 59 pop ecx
|
||
00871D01 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00871D04 681F1D8700 push $00871D1F
|
||
00871D09 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
00871D0C 8B8014030000 mov eax, [eax+$0314]
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
00871D12 E85D58C5FF call 004C7574
|
||
00871D17 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00871D18 E9D72DB9FF jmp 00404AF4
|
||
00871D1D EBEA jmp 00871D09
|
||
|
||
****** END
|
||
|
|
||
00871D1F 33C0 xor eax, eax
|
||
00871D21 5A pop edx
|
||
00871D22 59 pop ecx
|
||
00871D23 59 pop ecx
|
||
00871D24 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '[<5B><>]<5D>'
|
||
|
|
||
00871D27 68411D8700 push $00871D41
|
||
00871D2C 8D45EC lea eax, [ebp-$14]
|
||
00871D2F BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00871D34 E80F36B9FF call 00405348
|
||
00871D39 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
end. |