10445 lines
391 KiB
ObjectPascal
10445 lines
391 KiB
ObjectPascal
unit U_SKCR;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics,
|
||
Controls, Forms, Dialogs, StdCtrls
|
||
type
|
||
TfrmSKCR=class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBDel: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
Panel1: TPanel;
|
||
ToolButton2: TToolButton;
|
||
Label1: TLabel;
|
||
YFName: TEdit;
|
||
ADOQueryMain: TADOQuery;
|
||
ToolButton1: TToolButton;
|
||
RM1: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
Label3: TLabel;
|
||
FactoryName: TEdit;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
Label2: TLabel;
|
||
Label6: TLabel;
|
||
begdate: TDateTimePicker;
|
||
Enddate: TDateTimePicker;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DS_HZ: TDataSource;
|
||
CDS_HZ: TClientDataSet;
|
||
VBZ: TcxGridDBColumn;
|
||
VYB: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
Label4: TLabel;
|
||
OrderNo: TEdit;
|
||
v2Column1: TcxGridDBColumn;
|
||
tchk: TToolButton;
|
||
tnochk: TToolButton;
|
||
cxTabControl1: TcxTabControl;
|
||
v2Ssel: TcxGridDBColumn;
|
||
v2ComTaitou: TcxGridDBColumn;
|
||
Label10: TLabel;
|
||
Label12: TLabel;
|
||
TSDFJ: TToolButton;
|
||
v2IFSD: TcxGridDBColumn;
|
||
Order_RL: TClientDataSet;
|
||
DataSource1: TDataSource;
|
||
v2HxNum: TcxGridDBColumn;
|
||
v2chkstatus: TcxGridDBColumn;
|
||
v2WHXMoney: TcxGridDBColumn;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
v2chknote: TcxGridDBColumn;
|
||
CheckBox1: TCheckBox;
|
||
v2KHDKMoney: TcxGridDBColumn;
|
||
v2SXMoney: TcxGridDBColumn;
|
||
Label5: TLabel;
|
||
v2GSType: TcxGridDBColumn;
|
||
Label7: TLabel;
|
||
Money: TEdit;
|
||
Label8: TLabel;
|
||
note: TEdit;
|
||
TZDHX: TToolButton;
|
||
TSDHX: TToolButton;
|
||
TSDAdd: TToolButton;
|
||
v2Huilv: TcxGridDBColumn;
|
||
v2KPNO: TcxGridDBColumn;
|
||
v2KPType: TcxGridDBColumn;
|
||
v2KPStatus: TcxGridDBColumn;
|
||
v2Filler: TcxGridDBColumn;
|
||
v2OrderNo: 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 v2Column4PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2Column1PropertiesButtonClick(Sender : TObject);
|
||
procedure VBBPropertiesEditValueChanged(Sender : TObject);
|
||
procedure OrderNoChange(Sender : TObject);
|
||
procedure v2Column1PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
procedure tchkClick(Sender : TObject);
|
||
procedure tnochkClick(Sender : TObject);
|
||
procedure cxTabControl1Change(Sender : TObject);
|
||
procedure v2ComTaitouPropertiesButtonClick(Sender : TObject);
|
||
procedure v2SselPropertiesChange(Sender : TObject);
|
||
procedure Tv2StylesGetContentStyle(Sender : TObject);
|
||
procedure TSDFJClick(Sender : TObject);
|
||
procedure N1Click(Sender : TObject);
|
||
procedure N2Click(Sender : TObject);
|
||
procedure v2FKTypePropertiesButtonClick(Sender : TObject);
|
||
procedure CheckBox1Click(Sender : TObject);
|
||
procedure MoneyChange(Sender : TObject);
|
||
procedure v2FKTaiTouPropertiesButtonClick(Sender : TObject);
|
||
procedure TZDHXClick(Sender : TObject);
|
||
procedure TSDHXClick(Sender : TObject);
|
||
procedure TSDAddClick(Sender : TObject);
|
||
procedure v2KPStatusPropertiesButtonClick(Sender : TObject);
|
||
procedure v2OrderNoPropertiesButtonClick(Sender : TObject);
|
||
procedure _PROC_00816C91(Sender : TObject);
|
||
procedure _PROC_0081786D(Sender : TObject);
|
||
procedure _PROC_00818411(Sender : TObject);
|
||
procedure _PROC_0081884D(Sender : TObject);
|
||
procedure _PROC_00819041(Sender : TObject);
|
||
procedure _PROC_00819395(Sender : TObject);
|
||
procedure _PROC_00819E99(Sender : TObject);
|
||
procedure _PROC_0081A1B6(Sender : TObject);
|
||
procedure _PROC_0081A1EC(Sender : TObject);
|
||
procedure _PROC_0081A1F9(Sender : TObject);
|
||
procedure _PROC_0081A53D(Sender : TObject);
|
||
procedure _PROC_0081AC69(Sender : TObject);
|
||
procedure _PROC_0081AD29(Sender : TObject);
|
||
procedure _PROC_0081B0D9(Sender : TObject);
|
||
procedure _PROC_0081B3F9(Sender : TObject);
|
||
procedure _PROC_0081B60D(Sender : TObject);
|
||
procedure _PROC_0081BFC1(Sender : TObject);
|
||
procedure _PROC_0081C4FD(Sender : TObject);
|
||
procedure _PROC_0081C999(Sender : TObject);
|
||
procedure _PROC_0081CCF7(Sender : TObject);
|
||
procedure _PROC_0081D381(Sender : TObject);
|
||
procedure _PROC_0081D6C1(Sender : TObject);
|
||
procedure _PROC_0081D7E2(Sender : TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end ;
|
||
|
||
var
|
||
frmSKCR: TfrmSKCR;
|
||
|
||
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TfrmSKCR.FormDestroy(Sender : TObject);
|
||
begin
|
||
(*
|
||
008171D4 33C0 xor eax, eax
|
||
|
||
* Reference to GlobalVar_008959A0
|
||
|
|
||
008171D6 A3A0598900 mov dword ptr [$008959A0], eax
|
||
008171DB C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.FormClose(Sender : TObject);
|
||
begin
|
||
(*
|
||
008171DC C60102 mov byte ptr [ecx], $02
|
||
008171DF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TBCloseClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
008171E0 53 push ebx
|
||
008171E1 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
008171E3 B90C728100 mov ecx, $0081720C
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
008171E8 8B933C030000 mov edx, [ebx+$033C]
|
||
|
||
* Possible String Reference to: '<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>666'
|
||
|
|
||
008171EE B820728100 mov eax, $00817220
|
||
|
||
|
|
||
008171F3 E8A809FAFF call 007B7BA0
|
||
008171F8 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
||
|
|
||
008171FA E899EDC8FF call 004A5F98
|
||
008171FF 5B pop ebx
|
||
00817200 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TBDelClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081722C 55 push ebp
|
||
0081722D 8BEC mov ebp, esp
|
||
0081722F 33C9 xor ecx, ecx
|
||
00817231 51 push ecx
|
||
00817232 51 push ecx
|
||
00817233 51 push ecx
|
||
00817234 51 push ecx
|
||
00817235 51 push ecx
|
||
00817236 51 push ecx
|
||
00817237 51 push ecx
|
||
00817238 51 push ecx
|
||
00817239 53 push ebx
|
||
0081723A 56 push esi
|
||
0081723B 57 push edi
|
||
0081723C 8945FC mov [ebp-$04], eax
|
||
0081723F 33C0 xor eax, eax
|
||
00817241 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>־<EFBFBD><D6BE><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00817242 6849748100 push $00817449
|
||
|
||
***** TRY
|
||
|
|
||
00817247 64FF30 push dword ptr fs:[eax]
|
||
0081724A 648920 mov fs:[eax], esp
|
||
0081724D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00817250 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00817256 E8650CCBFF call 004C7EC0
|
||
0081725B 84C0 test al, al
|
||
0081725D 0F85C3010000 jnz 00817426
|
||
00817263 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.cxTabControl1 : TcxTabControl
|
||
|
|
||
00817266 8B8088030000 mov eax, [eax+$0388]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0081726C 83B83C03000000 cmp dword ptr [eax+$033C], +$00
|
||
00817273 0F85AD010000 jnz 00817426
|
||
00817279 A058748100 mov al, byte ptr [$00817458]
|
||
0081727E 50 push eax
|
||
0081727F 8D45EC lea eax, [ebp-$14]
|
||
00817282 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00817284 E8DB1AC0FF call 00418D64
|
||
00817289 8D4DEC lea ecx, [ebp-$14]
|
||
0081728C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081728F 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00817295 BA64748100 mov edx, $00817464
|
||
0081729A 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0081729C FF9344020000 call dword ptr [ebx+$0244]
|
||
008172A2 84C0 test al, al
|
||
008172A4 751D jnz 008172C3
|
||
008172A6 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
008172A8 B96C748100 mov ecx, $0081746C
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
008172AD BA74748100 mov edx, $00817474
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.FormShow(Sender : TObject);
|
||
begin
|
||
(*
|
||
008174F4 55 push ebp
|
||
008174F5 8BEC mov ebp, esp
|
||
008174F7 6A00 push $00
|
||
008174F9 53 push ebx
|
||
008174FA 8BD8 mov ebx, eax
|
||
008174FC 33C0 xor eax, eax
|
||
008174FE 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>'վ<><D5BE><EFBFBD>[Y]<5D>'
|
||
|
|
||
008174FF 68C8758100 push $008175C8
|
||
|
||
***** TRY
|
||
|
|
||
00817504 64FF30 push dword ptr fs:[eax]
|
||
00817507 648920 mov fs:[eax], esp
|
||
0081750A 33C0 xor eax, eax
|
||
|
||
* Reference to field TfrmSKCR.OFFS_041C
|
||
|
|
||
0081750C 89831C040000 mov [ebx+$041C], eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
00817512 B9DC758100 mov ecx, $008175DC
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
00817517 8B933C030000 mov edx, [ebx+$033C]
|
||
|
||
* Possible String Reference to: '<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>666'
|
||
|
|
||
0081751D B8F0758100 mov eax, $008175F0
|
||
|
||
|
|
||
00817522 E87D04FAFF call 007B79A4
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
00817527 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
0081752D E856D4F9FF call 007B4988
|
||
00817532 83C4F8 add esp, -$08
|
||
00817535 DD1C24 fstp qword ptr [esp]
|
||
00817538 9B wait
|
||
|
||
* Reference to control TfrmSKCR.Enddate : TDateTimePicker
|
||
|
|
||
00817539 8B8358030000 mov eax, [ebx+$0358]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
0081753F E8E8ACC5FF call 0047222C
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
00817544 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
0081754A E839D4F9FF call 007B4988
|
||
0081754F D825FC758100 fsub dword ptr [$008175FC]
|
||
00817555 83C4F8 add esp, -$08
|
||
00817558 DD1C24 fstp qword ptr [esp]
|
||
0081755B 9B wait
|
||
|
||
* Reference to control TfrmSKCR.begdate : TDateTimePicker
|
||
|
|
||
0081755C 8B8354030000 mov eax, [ebx+$0354]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
00817562 E8C5ACC5FF call 0047222C
|
||
00817567 8D55FC lea edx, [ebp-$04]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TBRafreshClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00817614 53 push ebx
|
||
00817615 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmSKCR.ToolBar1 : TToolBar
|
||
|
|
||
00817617 8B83F8020000 mov eax, [ebx+$02F8]
|
||
0081761D 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
0081761F FF92C4000000 call dword ptr [edx+$00C4]
|
||
00817625 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00817627 E864F6FFFF call 00816C90
|
||
0081762C 5B pop ebx
|
||
0081762D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.ToolButton2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00817630 55 push ebp
|
||
00817631 8BEC mov ebp, esp
|
||
00817633 6A00 push $00
|
||
00817635 53 push ebx
|
||
00817636 8BD8 mov ebx, eax
|
||
00817638 33C0 xor eax, eax
|
||
0081763A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>+Ծ<><D4BE><EFBFBD>[Y]<5D>'
|
||
|
|
||
0081763B 68C4768100 push $008176C4
|
||
|
||
***** TRY
|
||
|
|
||
00817640 64FF30 push dword ptr fs:[eax]
|
||
00817643 648920 mov fs:[eax], esp
|
||
00817646 BAD8768100 mov edx, $008176D8
|
||
|
||
* Reference to control TfrmSKCR.Label12 : TLabel
|
||
|
|
||
0081764B 8B8398030000 mov eax, [ebx+$0398]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
00817651 E8CA0FC7FF call 00488620
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
00817656 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
||
|
|
||
0081765C E8B3E3CAFF call 004C5A14
|
||
00817661 84C0 test al, al
|
||
00817663 7449 jz 008176AE
|
||
00817665 8D45FC lea eax, [ebp-$04]
|
||
00817668 50 push eax
|
||
00817669 B902000000 mov ecx, $00000002
|
||
0081766E BA01000000 mov edx, $00000001
|
||
|
||
* Reference to control TfrmSKCR.Panel1 : TPanel
|
||
|
|
||
00817673 8B8310030000 mov eax, [ebx+$0310]
|
||
|
||
|
|
||
00817679 E832EAF9FF call 007B60B0
|
||
0081767E 8B55FC mov edx, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
00817681 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
00817687 E83CF6F9FF call 007B6CC8
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081768C 8B9364030000 mov edx, [ebx+$0364]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
00817692 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
00817698 E8F3F7F9FF call 007B6E90
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081769D 8B9364030000 mov edx, [ebx+$0364]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
008176A3 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
008176A9 E86AF9F9FF call 007B7018
|
||
008176AE 33C0 xor eax, eax
|
||
008176B0 5A pop edx
|
||
008176B1 59 pop ecx
|
||
008176B2 59 pop ecx
|
||
008176B3 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '[Y]<5D>'
|
||
|
|
||
008176B6 68CB768100 push $008176CB
|
||
008176BB 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
008176BE E861DCBEFF call 00405324
|
||
008176C3 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008176C4 E92BD4BEFF jmp 00404AF4
|
||
008176C9 EBF0 jmp 008176BB
|
||
|
||
****** END
|
||
|
|
||
008176CB 5B pop ebx
|
||
008176CC 59 pop ecx
|
||
008176CD 5D pop ebp
|
||
008176CE C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.FactoryNameChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
008176DC 56 push esi
|
||
|
||
* Reference to control TfrmSKCR.ToolButton2 : TToolButton
|
||
|
|
||
008176DD 8B8014030000 mov eax, [eax+$0314]
|
||
008176E3 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
008176E7 E868CEBEFF call 00404554
|
||
008176EC 5E pop esi
|
||
008176ED C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.Button2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
008176F0 55 push ebp
|
||
008176F1 8BEC mov ebp, esp
|
||
008176F3 33C9 xor ecx, ecx
|
||
008176F5 51 push ecx
|
||
008176F6 51 push ecx
|
||
008176F7 51 push ecx
|
||
008176F8 51 push ecx
|
||
008176F9 51 push ecx
|
||
008176FA 53 push ebx
|
||
008176FB 56 push esi
|
||
008176FC 8BD8 mov ebx, eax
|
||
008176FE 33C0 xor eax, eax
|
||
00817700 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>Ҿ<EFBFBD><D2BE><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00817701 68FD778100 push $008177FD
|
||
|
||
***** TRY
|
||
|
|
||
00817706 64FF30 push dword ptr fs:[eax]
|
||
00817709 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081770C 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00817712 E8A907CBFF call 004C7EC0
|
||
00817717 84C0 test al, al
|
||
00817719 0F85C3000000 jnz 008177E2
|
||
0081771F 6A24 push $24
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00817721 B90C788100 mov ecx, $0081780C
|
||
|
||
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
00817726 BA14788100 mov edx, $00817814
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00818628 55 push ebp
|
||
00818629 8BEC mov ebp, esp
|
||
0081862B B908000000 mov ecx, $00000008
|
||
00818630 6A00 push $00
|
||
00818632 6A00 push $00
|
||
00818634 49 dec ecx
|
||
00818635 75F9 jnz 00818630
|
||
00818637 51 push ecx
|
||
00818638 53 push ebx
|
||
00818639 56 push esi
|
||
0081863A 8BDA mov ebx, edx
|
||
0081863C 8BF0 mov esi, eax
|
||
0081863E 33C0 xor eax, eax
|
||
00818640 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>¾<EFBFBD><C2BE><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00818641 6836888100 push $00818836
|
||
|
||
***** TRY
|
||
|
|
||
00818646 64FF30 push dword ptr fs:[eax]
|
||
00818649 648920 mov fs:[eax], esp
|
||
0081864C 8D55FC lea edx, [ebp-$04]
|
||
0081864F 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;
|
||
|
|
||
00818651 E86670D7FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
00818656 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081865C E8EB3CE4FF 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;
|
||
|
|
||
00818661 E8FE94E3FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
00818666 8B4050 mov eax, [eax+$50]
|
||
00818669 8D55F4 lea edx, [ebp-$0C]
|
||
0081866C 8B08 mov ecx, [eax]
|
||
0081866E FF5110 call dword ptr [ecx+$10]
|
||
00818671 8B45F4 mov eax, [ebp-$0C]
|
||
00818674 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818677 E87022BFFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081867C 8B9E64030000 mov ebx, [esi+$0364]
|
||
00818682 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00818684 E8B7FDCAFF call 004C8440
|
||
00818689 8D55E0 lea edx, [ebp-$20]
|
||
0081868C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081868F E85822BFFF call 0040A8EC
|
||
00818694 8B55E0 mov edx, [ebp-$20]
|
||
00818697 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0081869A E82907C0FF call 00418DC8
|
||
0081869F 8D45E4 lea eax, [ebp-$1C]
|
||
008186A2 50 push eax
|
||
008186A3 8B55F8 mov edx, [ebp-$08]
|
||
008186A6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008186A8 E807E5CAFF call 004C6BB4
|
||
008186AD 5A pop edx
|
||
008186AE 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
008186B0 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
008186B6 8BC3 mov eax, ebx
|
||
008186B8 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
008186BA FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
008186C0 8B9E0C030000 mov ebx, [esi+$030C]
|
||
008186C6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008186C8 E807D2CAFF call 004C58D4
|
||
008186CD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008186CF E8D858CCFF call 004DDFAC
|
||
008186D4 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
008186D6 FF5244 call dword ptr [edx+$44]
|
||
008186D9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008186DB E8CC58CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
008186E0 BA4C888100 mov edx, $0081884C
|
||
008186E5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008186E7 FF5138 call dword ptr [ecx+$38]
|
||
008186EA 8D55DC lea edx, [ebp-$24]
|
||
008186ED 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008186F0 E8F721BFFF call 0040A8EC
|
||
008186F5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
008186F9 7440 jz 0081873B
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
008186FB 6868888100 push $00818868
|
||
00818700 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00818703 6878888100 push $00818878
|
||
00818708 8D55D4 lea edx, [ebp-$2C]
|
||
0081870B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081870E E8D921BFFF call 0040A8EC
|
||
00818713 FF75D4 push dword ptr [ebp-$2C]
|
||
00818716 6884888100 push $00818884
|
||
0081871B 8D45D8 lea eax, [ebp-$28]
|
||
0081871E BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00818723 E88CCFBEFF call 004056B4
|
||
00818728 8B45D8 mov eax, [ebp-$28]
|
||
0081872B 50 push eax
|
||
0081872C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081872E E87958CCFF call 004DDFAC
|
||
00818733 5A pop edx
|
||
00818734 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00818736 FF5138 call dword ptr [ecx+$38]
|
||
00818739 EB2B jmp 00818766
|
||
0081873B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081873D E86A58CCFF call 004DDFAC
|
||
00818742 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00818743 6868888100 push $00818868
|
||
00818748 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0081874B 6890888100 push $00818890
|
||
00818750 8D45D0 lea eax, [ebp-$30]
|
||
00818753 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00818758 E857CFBEFF call 004056B4
|
||
0081875D 8B55D0 mov edx, [ebp-$30]
|
||
00818760 58 pop eax
|
||
00818761 8B08 mov ecx, [eax]
|
||
00818763 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00818766 68A0888100 push $008188A0
|
||
0081876B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
008188F4 55 push ebp
|
||
008188F5 8BEC mov ebp, esp
|
||
008188F7 B91C000000 mov ecx, $0000001C
|
||
008188FC 6A00 push $00
|
||
008188FE 6A00 push $00
|
||
00818900 49 dec ecx
|
||
00818901 75F9 jnz 008188FC
|
||
00818903 51 push ecx
|
||
00818904 53 push ebx
|
||
00818905 56 push esi
|
||
00818906 8BF2 mov esi, edx
|
||
00818908 8BD8 mov ebx, eax
|
||
0081890A 33C0 xor eax, eax
|
||
0081890C 55 push ebp
|
||
0081890D 686F8F8100 push $00818F6F
|
||
|
||
***** TRY
|
||
|
|
||
00818912 64FF30 push dword ptr fs:[eax]
|
||
00818915 648920 mov fs:[eax], esp
|
||
00818918 8D55FC lea edx, [ebp-$04]
|
||
0081891B 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;
|
||
|
|
||
0081891D E89A6DD7FF call 0058F6BC
|
||
00818922 8D55DC lea edx, [ebp-$24]
|
||
00818925 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818928 E8BF1FBFFF call 0040A8EC
|
||
0081892D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00818931 750D jnz 00818940
|
||
00818933 8D45FC lea eax, [ebp-$04]
|
||
00818936 BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081893B E87CCABEFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
00818940 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
00818946 E8013AE4FF 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;
|
||
|
|
||
0081894B E81492E3FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
00818950 8B4050 mov eax, [eax+$50]
|
||
00818953 8D55D8 lea edx, [ebp-$28]
|
||
00818956 8B08 mov ecx, [eax]
|
||
00818958 FF5110 call dword ptr [ecx+$10]
|
||
0081895B 8B45D8 mov eax, [ebp-$28]
|
||
0081895E 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818961 E8861FBFFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818966 8BB364030000 mov esi, [ebx+$0364]
|
||
0081896C 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081896E E8CDFACAFF call 004C8440
|
||
00818973 8D55C4 lea edx, [ebp-$3C]
|
||
00818976 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818979 E86E1FBFFF call 0040A8EC
|
||
0081897E 8B55C4 mov edx, [ebp-$3C]
|
||
00818981 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
00818984 E83F04C0FF call 00418DC8
|
||
00818989 8D45C8 lea eax, [ebp-$38]
|
||
0081898C 50 push eax
|
||
0081898D 8B55E0 mov edx, [ebp-$20]
|
||
00818990 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818992 E81DE2CAFF call 004C6BB4
|
||
00818997 5A pop edx
|
||
00818998 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0081899A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
008189A0 8BC6 mov eax, esi
|
||
008189A2 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
008189A4 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
008189AA 8BB308030000 mov esi, [ebx+$0308]
|
||
008189B0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008189B2 E81DCFCAFF call 004C58D4
|
||
008189B7 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008189B9 E8EE55CCFF call 004DDFAC
|
||
008189BE 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
008189C0 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
008189C3 68908F8100 push $00818F90
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
008189C8 BAD88F8100 mov edx, $00818FD8
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
008189CD 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008189D3 E8DCE1CAFF call 004C6BB4
|
||
008189D8 8D55BC lea edx, [ebp-$44]
|
||
008189DB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
008189DD FF5160 call dword ptr [ecx+$60]
|
||
008189E0 FF75BC push dword ptr [ebp-$44]
|
||
008189E3 68E88F8100 push $00818FE8
|
||
008189E8 8D45C0 lea eax, [ebp-$40]
|
||
008189EB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008189F0 E8BFCCBEFF call 004056B4
|
||
008189F5 8B45C0 mov eax, [ebp-$40]
|
||
008189F8 50 push eax
|
||
008189F9 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008189FB E8AC55CCFF call 004DDFAC
|
||
00818A00 5A pop edx
|
||
00818A01 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00818A03 FF5138 call dword ptr [ecx+$38]
|
||
00818A06 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
00818A08 E8BBCECAFF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00818A0D BAF48F8100 mov edx, $00818FF4
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
00818A12 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818A18 E897E1CAFF call 004C6BB4
|
||
00818A1D 8D55E4 lea edx, [ebp-$1C]
|
||
00818A20 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
00818A22 FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
00818A25 BA04908100 mov edx, $00819004
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818A2A 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818A30 E87FE1CAFF call 004C6BB4
|
||
00818A35 8D55B8 lea edx, [ebp-$48]
|
||
00818A38 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00818A3A FF5160 call dword ptr [ecx+$60]
|
||
00818A3D 8B45B8 mov eax, [ebp-$48]
|
||
00818A40 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A43 E8A41EBFFF call 0040A8EC
|
||
00818A48 8D55B4 lea edx, [ebp-$4C]
|
||
00818A4B 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A4E E8991EBFFF call 0040A8EC
|
||
00818A53 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
00818A57 750D jnz 00818A66
|
||
00818A59 8D45F8 lea eax, [ebp-$08]
|
||
00818A5C BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818A61 E856C9BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Price'
|
||
|
|
||
00818A66 BA10908100 mov edx, $00819010
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818A6B 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818A71 E83EE1CAFF call 004C6BB4
|
||
00818A76 8D55B0 lea edx, [ebp-$50]
|
||
00818A79 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00818A7B FF5160 call dword ptr [ecx+$60]
|
||
00818A7E 8B45B0 mov eax, [ebp-$50]
|
||
00818A81 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A84 E8631EBFFF call 0040A8EC
|
||
00818A89 8D55AC lea edx, [ebp-$54]
|
||
00818A8C 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A8F E8581EBFFF call 0040A8EC
|
||
00818A94 837DAC00 cmp dword ptr [ebp-$54], +$00
|
||
00818A98 750D jnz 00818AA7
|
||
00818A9A 8D45F4 lea eax, [ebp-$0C]
|
||
00818A9D BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818AA2 E815C9BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
00818AA7 BA04908100 mov edx, $00819004
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818AAC 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818AB2 E8FDE0CAFF call 004C6BB4
|
||
00818AB7 8D55A8 lea edx, [ebp-$58]
|
||
00818ABA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00818ABC FF5160 call dword ptr [ecx+$60]
|
||
00818ABF 8B45A8 mov eax, [ebp-$58]
|
||
00818AC2 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818AC5 E8221EBFFF call 0040A8EC
|
||
00818ACA 8D55A4 lea edx, [ebp-$5C]
|
||
00818ACD 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818AD0 E8171EBFFF call 0040A8EC
|
||
00818AD5 837DA400 cmp dword ptr [ebp-$5C], +$00
|
||
00818AD9 750D jnz 00818AE8
|
||
00818ADB 8D45F8 lea eax, [ebp-$08]
|
||
00818ADE BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818AE3 E8D4C8BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818AE8 BA20908100 mov edx, $00819020
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818AED 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818AF3 E8BCE0CAFF call 004C6BB4
|
||
00818AF8 8D55A0 lea edx, [ebp-$60]
|
||
00818AFB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00818AFD FF5160 call dword ptr [ecx+$60]
|
||
00818B00 8B45A0 mov eax, [ebp-$60]
|
||
00818B03 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B06 E8E11DBFFF call 0040A8EC
|
||
00818B0B 8D559C lea edx, [ebp-$64]
|
||
00818B0E 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B11 E8D61DBFFF call 0040A8EC
|
||
00818B16 837D9C00 cmp dword ptr [ebp-$64], +$00
|
||
00818B1A 750D jnz 00818B29
|
||
00818B1C 8D45F0 lea eax, [ebp-$10]
|
||
00818B1F BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818B24 E893C8BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
00818B29 BA30908100 mov edx, $00819030
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818B2E 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818B34 E87BE0CAFF call 004C6BB4
|
||
00818B39 8D5598 lea edx, [ebp-$68]
|
||
00818B3C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00818B3E FF5160 call dword ptr [ecx+$60]
|
||
00818B41 8B4598 mov eax, [ebp-$68]
|
||
00818B44 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B47 E8A01DBFFF call 0040A8EC
|
||
00818B4C 8D5594 lea edx, [ebp-$6C]
|
||
00818B4F 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B52 E8951DBFFF call 0040A8EC
|
||
00818B57 837D9400 cmp dword ptr [ebp-$6C], +$00
|
||
00818B5B 750D jnz 00818B6A
|
||
00818B5D 8D45EC lea eax, [ebp-$14]
|
||
00818B60 BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818B65 E852C8BEFF call 004053BC
|
||
00818B6A 8D5590 lea edx, [ebp-$70]
|
||
00818B6D 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B70 E8771DBFFF call 0040A8EC
|
||
00818B75 8B4590 mov eax, [ebp-$70]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818B78 BA20908100 mov edx, $00819020
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00818B7D E8BECBBEFF call 00405740
|
||
00818B82 0F84AD000000 jz 00818C35
|
||
00818B88 8D558C lea edx, [ebp-$74]
|
||
00818B8B 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B8E E8591DBFFF call 0040A8EC
|
||
00818B93 8B458C mov eax, [ebp-$74]
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
00818B96 BA30908100 mov edx, $00819030
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00818B9B E8A0CBBEFF call 00405740
|
||
00818BA0 7469 jz 00818C0B
|
||
00818BA2 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BA5 E8824BBFFF call 0040D72C
|
||
00818BAA DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818BAD 9B wait
|
||
00818BAE 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BB1 E8764BBFFF call 0040D72C
|
||
00818BB6 DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818BB9 DEC9 fmulp st(1), st(0)
|
||
00818BBB DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
|
||
00818BC1 9B wait
|
||
00818BC2 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BC5 E8624BBFFF call 0040D72C
|
||
00818BCA DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
|
||
00818BD0 DEC9 fmulp st(1), st(0)
|
||
00818BD2 83C4F4 add esp, -$0C
|
||
00818BD5 DB3C24 fstp tbyte ptr [esp]
|
||
00818BD8 9B wait
|
||
00818BD9 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00818BDC E8CB49BFFF call 0040D5AC
|
||
00818BE1 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BE4 E8434BBFFF call 0040D72C
|
||
00818BE9 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818BEC 9B wait
|
||
00818BED 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BF0 E8374BBFFF call 0040D72C
|
||
00818BF5 DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818BF8 DEC9 fmulp st(1), st(0)
|
||
00818BFA 83C4F4 add esp, -$0C
|
||
00818BFD DB3C24 fstp tbyte ptr [esp]
|
||
00818C00 9B wait
|
||
00818C01 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
00818C04 E8A349BFFF call 0040D5AC
|
||
00818C09 EB52 jmp 00818C5D
|
||
00818C0B 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C0E E8194BBFFF call 0040D72C
|
||
00818C13 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818C16 9B wait
|
||
00818C17 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C1A E80D4BBFFF call 0040D72C
|
||
00818C1F DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818C22 DEC9 fmulp st(1), st(0)
|
||
00818C24 83C4F4 add esp, -$0C
|
||
00818C27 DB3C24 fstp tbyte ptr [esp]
|
||
00818C2A 9B wait
|
||
00818C2B 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00818C2E E87949BFFF call 0040D5AC
|
||
00818C33 EB28 jmp 00818C5D
|
||
00818C35 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C38 E8EF4ABFFF call 0040D72C
|
||
00818C3D DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818C40 9B wait
|
||
00818C41 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C44 E8E34ABFFF call 0040D72C
|
||
00818C49 DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818C4C DEC9 fmulp st(1), st(0)
|
||
00818C4E 83C4F4 add esp, -$0C
|
||
00818C51 DB3C24 fstp tbyte ptr [esp]
|
||
00818C54 9B wait
|
||
00818C55 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00818C58 E84F49BFFF call 0040D5AC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
00818C5D 8BB364030000 mov esi, [ebx+$0364]
|
||
00818C63 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00818C65 E8D6F7CAFF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818C6A BA20908100 mov edx, $00819020
|
||
00818C6F 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818C71 E83EDFCAFF call 004C6BB4
|
||
00818C76 50 push eax
|
||
00818C77 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C7A E8AD4ABFFF call 0040D72C
|
||
00818C7F 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00818C85 E80201C0FF call 00418D8C
|
||
00818C8A 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
|
||
00818C90 58 pop eax
|
||
00818C91 8B08 mov ecx, [eax]
|
||
00818C93 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00818C99 BAF48F8100 mov edx, $00818FF4
|
||
00818C9E 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818CA0 E80FDFCAFF call 004C6BB4
|
||
00818CA5 50 push eax
|
||
00818CA6 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818CA9 E87E4ABFFF call 0040D72C
|
||
00818CAE 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00818CB4 E8D300C0FF call 00418D8C
|
||
00818CB9 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
|
||
00818CBF 58 pop eax
|
||
00818CC0 8B08 mov ecx, [eax]
|
||
00818CC2 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00818CC8 8BC6 mov eax, esi
|
||
00818CCA 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00818CCC FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
00818CD2 8BB30C030000 mov esi, [ebx+$030C]
|
||
00818CD8 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00818CDA E8F5CBCAFF call 004C58D4
|
||
00818CDF 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00818CE1 E8C652CCFF call 004DDFAC
|
||
00818CE6 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00818CE8 FF5244 call dword ptr [edx+$44]
|
||
00818CEB 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00818CED E8BA52CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00818CF2 BA40908100 mov edx, $00819040
|
||
00818CF7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00818CF9 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00818CFC 685C908100 push $0081905C
|
||
00818D01 FF75E0 push dword ptr [ebp-$20]
|
||
00818D04 686C908100 push $0081906C
|
||
00818D09 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
|
||
00818D0F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818D12 E8D51BBFFF call 0040A8EC
|
||
00818D17 FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
|
||
00818D1D 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
|
||
00818D23 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00818D28 E887C9BEFF call 004056B4
|
||
00818D2D 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
|
||
00818D33 50 push eax
|
||
00818D34 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00818D36 E87152CCFF call 004DDFAC
|
||
00818D3B 5A pop edx
|
||
00818D3C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00818D3E FF5138 call dword ptr [ecx+$38]
|
||
00818D41 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
|
||
00818D47 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818D4A E89D1BBFFF call 0040A8EC
|
||
00818D4F 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818D55 BA20908100 mov edx, $00819020
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00818D5A E8E1C9BEFF call 00405740
|
||
00818D5F 7427 jz 00818D88
|
||
00818D61 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00818D63 E84452CCFF call 004DDFAC
|
||
00818D68 50 push eax
|
||
00818D69 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
|
||
00818D6F 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',Money='
|
||
|
|
||
00818D72 BA78908100 mov edx, $00819078
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00818D77 E8C4C8BEFF call 00405640
|
||
00818D7C 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
|
||
00818D82 58 pop eax
|
||
00818D83 8B08 mov ecx, [eax]
|
||
00818D85 FF5138 call dword ptr [ecx+$38]
|
||
00818D88 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00818D8A E81D52CCFF call 004DDFAC
|
||
00818D8F 50 push eax
|
||
00818D90 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
|
||
00818D96 8B4DE8 mov ecx, [ebp-$18]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
00818D99 BA88908100 mov edx, $00819088
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00818D9E E89DC8BEFF call 00405640
|
||
00818DA3 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
|
||
00818DA9 58 pop eax
|
||
00818DAA 8B08 mov ecx, [eax]
|
||
00818DAC FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00818DAF 689C908100 push $0081909C
|
||
00818DB4 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00819158 55 push ebp
|
||
00819159 8BEC mov ebp, esp
|
||
0081915B B908000000 mov ecx, $00000008
|
||
00819160 6A00 push $00
|
||
00819162 6A00 push $00
|
||
00819164 49 dec ecx
|
||
00819165 75F9 jnz 00819160
|
||
00819167 51 push ecx
|
||
00819168 53 push ebx
|
||
00819169 56 push esi
|
||
0081916A 8BDA mov ebx, edx
|
||
0081916C 8BF0 mov esi, eax
|
||
0081916E 33C0 xor eax, eax
|
||
00819170 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>q<EFBFBD><71><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00819171 687E938100 push $0081937E
|
||
|
||
***** TRY
|
||
|
|
||
00819176 64FF30 push dword ptr fs:[eax]
|
||
00819179 648920 mov fs:[eax], esp
|
||
0081917C 8D55FC lea edx, [ebp-$04]
|
||
0081917F 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;
|
||
|
|
||
00819181 E83665D7FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
00819186 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081918C E8BB31E4FF 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;
|
||
|
|
||
00819191 E8CE89E3FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
00819196 8B4050 mov eax, [eax+$50]
|
||
00819199 8D55F4 lea edx, [ebp-$0C]
|
||
0081919C 8B08 mov ecx, [eax]
|
||
0081919E FF5110 call dword ptr [ecx+$10]
|
||
008191A1 8B45F4 mov eax, [ebp-$0C]
|
||
008191A4 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008191A7 E84017BFFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
008191AC 8B9E64030000 mov ebx, [esi+$0364]
|
||
008191B2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
008191B4 E887F2CAFF call 004C8440
|
||
008191B9 8D55E0 lea edx, [ebp-$20]
|
||
008191BC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008191BF E82817BFFF call 0040A8EC
|
||
008191C4 8B55E0 mov edx, [ebp-$20]
|
||
008191C7 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
008191CA E8F9FBBFFF call 00418DC8
|
||
008191CF 8D45E4 lea eax, [ebp-$1C]
|
||
008191D2 50 push eax
|
||
008191D3 8B55F8 mov edx, [ebp-$08]
|
||
008191D6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008191D8 E8D7D9CAFF call 004C6BB4
|
||
008191DD 5A pop edx
|
||
008191DE 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
008191E0 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
008191E6 8BC3 mov eax, ebx
|
||
008191E8 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
008191EA FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
008191F0 8B9E0C030000 mov ebx, [esi+$030C]
|
||
008191F6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008191F8 E8D7C6CAFF call 004C58D4
|
||
008191FD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008191FF E8A84DCCFF call 004DDFAC
|
||
00819204 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00819206 FF5244 call dword ptr [edx+$44]
|
||
00819209 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081920B E89C4DCCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00819210 BA94938100 mov edx, $00819394
|
||
00819215 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00819217 FF5138 call dword ptr [ecx+$38]
|
||
0081921A 8D55DC lea edx, [ebp-$24]
|
||
0081921D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00819220 E8C716BFFF call 0040A8EC
|
||
00819225 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00819229 7440 jz 0081926B
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0081922B 68B0938100 push $008193B0
|
||
00819230 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00819233 68C0938100 push $008193C0
|
||
00819238 8D55D4 lea edx, [ebp-$2C]
|
||
0081923B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081923E E8A916BFFF call 0040A8EC
|
||
00819243 FF75D4 push dword ptr [ebp-$2C]
|
||
00819246 68CC938100 push $008193CC
|
||
0081924B 8D45D8 lea eax, [ebp-$28]
|
||
0081924E BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00819253 E85CC4BEFF call 004056B4
|
||
00819258 8B45D8 mov eax, [ebp-$28]
|
||
0081925B 50 push eax
|
||
0081925C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081925E E8494DCCFF call 004DDFAC
|
||
00819263 5A pop edx
|
||
00819264 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00819266 FF5138 call dword ptr [ecx+$38]
|
||
00819269 EB2B jmp 00819296
|
||
0081926B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081926D E83A4DCCFF call 004DDFAC
|
||
00819272 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00819273 68B0938100 push $008193B0
|
||
00819278 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0081927B 68D8938100 push $008193D8
|
||
00819280 8D45D0 lea eax, [ebp-$30]
|
||
00819283 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00819288 E827C4BEFF call 004056B4
|
||
0081928D 8B55D0 mov edx, [ebp-$30]
|
||
00819290 58 pop eax
|
||
00819291 8B08 mov ecx, [eax]
|
||
00819293 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00819296 68E8938100 push $008193E8
|
||
0081929B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.ToolButton3Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081943C 55 push ebp
|
||
0081943D 8BEC mov ebp, esp
|
||
0081943F B91E000000 mov ecx, $0000001E
|
||
00819444 6A00 push $00
|
||
00819446 6A00 push $00
|
||
00819448 49 dec ecx
|
||
00819449 75F9 jnz 00819444
|
||
0081944B 53 push ebx
|
||
0081944C 56 push esi
|
||
0081944D 8945FC mov [ebp-$04], eax
|
||
00819450 33C0 xor eax, eax
|
||
00819452 55 push ebp
|
||
00819453 68D4998100 push $008199D4
|
||
|
||
***** TRY
|
||
|
|
||
00819458 64FF30 push dword ptr fs:[eax]
|
||
0081945B 648920 mov fs:[eax], esp
|
||
0081945E 33C0 xor eax, eax
|
||
00819460 55 push ebp
|
||
00819461 68F6988100 push $008198F6
|
||
|
||
***** TRY
|
||
|
|
||
00819466 64FF30 push dword ptr fs:[eax]
|
||
00819469 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00819AF8 55 push ebp
|
||
00819AF9 8BEC mov ebp, esp
|
||
00819AFB 51 push ecx
|
||
00819AFC B90B000000 mov ecx, $0000000B
|
||
00819B01 6A00 push $00
|
||
00819B03 6A00 push $00
|
||
00819B05 49 dec ecx
|
||
00819B06 75F9 jnz 00819B01
|
||
00819B08 874DFC xchg [ebp-$04], ecx
|
||
00819B0B 53 push ebx
|
||
00819B0C 56 push esi
|
||
00819B0D 8BF0 mov esi, eax
|
||
00819B0F 33C0 xor eax, eax
|
||
00819B11 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Ӭ<EFBFBD><D3AC><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00819B12 681C9E8100 push $00819E1C
|
||
|
||
***** TRY
|
||
|
|
||
00819B17 64FF30 push dword ptr fs:[eax]
|
||
00819B1A 648920 mov fs:[eax], esp
|
||
00819B1D 33C0 xor eax, eax
|
||
00819B1F 55 push ebp
|
||
00819B20 68DD9D8100 push $00819DDD
|
||
|
||
***** TRY
|
||
|
|
||
00819B25 64FF30 push dword ptr fs:[eax]
|
||
00819B28 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00819F40 55 push ebp
|
||
00819F41 8BEC mov ebp, esp
|
||
00819F43 51 push ecx
|
||
00819F44 B906000000 mov ecx, $00000006
|
||
00819F49 6A00 push $00
|
||
00819F4B 6A00 push $00
|
||
00819F4D 49 dec ecx
|
||
00819F4E 75F9 jnz 00819F49
|
||
00819F50 51 push ecx
|
||
00819F51 874DFC xchg [ebp-$04], ecx
|
||
00819F54 53 push ebx
|
||
00819F55 56 push esi
|
||
00819F56 8BF0 mov esi, eax
|
||
00819F58 33C0 xor eax, eax
|
||
00819F5A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00819F5B 6899A18100 push $0081A199
|
||
|
||
***** TRY
|
||
|
|
||
00819F60 64FF30 push dword ptr fs:[eax]
|
||
00819F63 648920 mov fs:[eax], esp
|
||
00819F66 33C0 xor eax, eax
|
||
00819F68 55 push ebp
|
||
00819F69 686FA18100 push $0081A16F
|
||
|
||
***** TRY
|
||
|
|
||
00819F6E 64FF30 push dword ptr fs:[eax]
|
||
00819F71 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2Column3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A29C 55 push ebp
|
||
0081A29D 8BEC mov ebp, esp
|
||
0081A29F 51 push ecx
|
||
0081A2A0 B906000000 mov ecx, $00000006
|
||
0081A2A5 6A00 push $00
|
||
0081A2A7 6A00 push $00
|
||
0081A2A9 49 dec ecx
|
||
0081A2AA 75F9 jnz 0081A2A5
|
||
0081A2AC 51 push ecx
|
||
0081A2AD 874DFC xchg [ebp-$04], ecx
|
||
0081A2B0 53 push ebx
|
||
0081A2B1 56 push esi
|
||
0081A2B2 8BF0 mov esi, eax
|
||
0081A2B4 33C0 xor eax, eax
|
||
0081A2B6 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081A2B7 68F5A48100 push $0081A4F5
|
||
|
||
***** TRY
|
||
|
|
||
0081A2BC 64FF30 push dword ptr fs:[eax]
|
||
0081A2BF 648920 mov fs:[eax], esp
|
||
0081A2C2 33C0 xor eax, eax
|
||
0081A2C4 55 push ebp
|
||
0081A2C5 68CBA48100 push $0081A4CB
|
||
|
||
***** TRY
|
||
|
|
||
0081A2CA 64FF30 push dword ptr fs:[eax]
|
||
0081A2CD 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.ToolButton1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A5E0 53 push ebx
|
||
0081A5E1 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
0081A5E3 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081A5E9 E8D2D8CAFF call 004C7EC0
|
||
0081A5EE 84C0 test al, al
|
||
0081A5F0 7516 jnz 0081A608
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
||
|
|
||
0081A5F2 B914A68100 mov ecx, $0081A614
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
0081A5F7 8B9320030000 mov edx, [ebx+$0320]
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
0081A5FD 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
|
|
||
0081A603 E828DCF9FF call 007B8230
|
||
0081A608 5B pop ebx
|
||
0081A609 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2Column4PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A620 55 push ebp
|
||
0081A621 8BEC mov ebp, esp
|
||
0081A623 B919000000 mov ecx, $00000019
|
||
0081A628 6A00 push $00
|
||
0081A62A 6A00 push $00
|
||
0081A62C 49 dec ecx
|
||
0081A62D 75F9 jnz 0081A628
|
||
0081A62F 51 push ecx
|
||
0081A630 53 push ebx
|
||
0081A631 56 push esi
|
||
0081A632 8BF2 mov esi, edx
|
||
0081A634 8BD8 mov ebx, eax
|
||
0081A636 33C0 xor eax, eax
|
||
0081A638 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>a<EFBFBD><61><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081A639 688EAB8100 push $0081AB8E
|
||
|
||
***** TRY
|
||
|
|
||
0081A63E 64FF30 push dword ptr fs:[eax]
|
||
0081A641 648920 mov fs:[eax], esp
|
||
0081A644 8D55FC lea edx, [ebp-$04]
|
||
0081A647 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;
|
||
|
|
||
0081A649 E86E50D7FF call 0058F6BC
|
||
0081A64E 8D55E4 lea edx, [ebp-$1C]
|
||
0081A651 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A654 E89302BFFF call 0040A8EC
|
||
0081A659 837DE400 cmp dword ptr [ebp-$1C], +$00
|
||
0081A65D 750D jnz 0081A66C
|
||
0081A65F 8D45FC lea eax, [ebp-$04]
|
||
0081A662 BAA4AB8100 mov edx, $0081ABA4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081A667 E850ADBEFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
0081A66C 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081A672 E8D51CE4FF 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;
|
||
|
|
||
0081A677 E8E874E3FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0081A67C 8B4050 mov eax, [eax+$50]
|
||
0081A67F 8D55E0 lea edx, [ebp-$20]
|
||
0081A682 8B08 mov ecx, [eax]
|
||
0081A684 FF5110 call dword ptr [ecx+$10]
|
||
0081A687 8B45E0 mov eax, [ebp-$20]
|
||
0081A68A 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A68D E85A02BFFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081A692 8BB364030000 mov esi, [ebx+$0364]
|
||
0081A698 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081A69A E8A1DDCAFF call 004C8440
|
||
0081A69F 8D55CC lea edx, [ebp-$34]
|
||
0081A6A2 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A6A5 E84202BFFF call 0040A8EC
|
||
0081A6AA 8B55CC mov edx, [ebp-$34]
|
||
0081A6AD 8D45D0 lea eax, [ebp-$30]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0081A6B0 E813E7BFFF call 00418DC8
|
||
0081A6B5 8D45D0 lea eax, [ebp-$30]
|
||
0081A6B8 50 push eax
|
||
0081A6B9 8B55E8 mov edx, [ebp-$18]
|
||
0081A6BC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A6BE E8F1C4CAFF call 004C6BB4
|
||
0081A6C3 5A pop edx
|
||
0081A6C4 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0081A6C6 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081A6CC 8BC6 mov eax, esi
|
||
0081A6CE 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0081A6D0 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
0081A6D6 8BB308030000 mov esi, [ebx+$0308]
|
||
0081A6DC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081A6DE E8F1B1CAFF call 004C58D4
|
||
0081A6E3 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A6E5 E8C238CCFF call 004DDFAC
|
||
0081A6EA 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081A6EC FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0081A6EF 68B0AB8100 push $0081ABB0
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0081A6F4 BAF8AB8100 mov edx, $0081ABF8
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081A6F9 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A6FF E8B0C4CAFF call 004C6BB4
|
||
0081A704 8D55C4 lea edx, [ebp-$3C]
|
||
0081A707 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081A709 FF5160 call dword ptr [ecx+$60]
|
||
0081A70C FF75C4 push dword ptr [ebp-$3C]
|
||
0081A70F 6808AC8100 push $0081AC08
|
||
0081A714 8D45C8 lea eax, [ebp-$38]
|
||
0081A717 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081A71C E893AFBEFF call 004056B4
|
||
0081A721 8B45C8 mov eax, [ebp-$38]
|
||
0081A724 50 push eax
|
||
0081A725 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A727 E88038CCFF call 004DDFAC
|
||
0081A72C 5A pop edx
|
||
0081A72D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081A72F FF5138 call dword ptr [ecx+$38]
|
||
0081A732 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0081A734 E88FB1CAFF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081A739 BA14AC8100 mov edx, $0081AC14
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
0081A73E 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A744 E86BC4CAFF call 004C6BB4
|
||
0081A749 8D55EC lea edx, [ebp-$14]
|
||
0081A74C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
0081A74E FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081A751 BA24AC8100 mov edx, $0081AC24
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081A756 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A75C E853C4CAFF call 004C6BB4
|
||
0081A761 8D55C0 lea edx, [ebp-$40]
|
||
0081A764 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081A766 FF5160 call dword ptr [ecx+$60]
|
||
0081A769 8B45C0 mov eax, [ebp-$40]
|
||
0081A76C 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A76F E87801BFFF call 0040A8EC
|
||
0081A774 8D55BC lea edx, [ebp-$44]
|
||
0081A777 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A77A E86D01BFFF call 0040A8EC
|
||
0081A77F 837DBC00 cmp dword ptr [ebp-$44], +$00
|
||
0081A783 750D jnz 0081A792
|
||
0081A785 8D45F8 lea eax, [ebp-$08]
|
||
0081A788 BAA4AB8100 mov edx, $0081ABA4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081A78D E82AACBEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0081A792 BA34AC8100 mov edx, $0081AC34
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081A797 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A79D E812C4CAFF call 004C6BB4
|
||
0081A7A2 8D55B8 lea edx, [ebp-$48]
|
||
0081A7A5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081A7A7 FF5160 call dword ptr [ecx+$60]
|
||
0081A7AA 8B45B8 mov eax, [ebp-$48]
|
||
0081A7AD 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A7B0 E83701BFFF call 0040A8EC
|
||
0081A7B5 8D55B4 lea edx, [ebp-$4C]
|
||
0081A7B8 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A7BB E82C01BFFF call 0040A8EC
|
||
0081A7C0 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
0081A7C4 750D jnz 0081A7D3
|
||
0081A7C6 8D45F4 lea eax, [ebp-$0C]
|
||
0081A7C9 BAA4AB8100 mov edx, $0081ABA4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081A7CE E8E9ABBEFF call 004053BC
|
||
0081A7D3 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A7D6 E8512FBFFF call 0040D72C
|
||
0081A7DB DB7DA8 fstp tbyte ptr [ebp-$58]
|
||
0081A7DE 9B wait
|
||
0081A7DF 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A7E2 E8452FBFFF call 0040D72C
|
||
0081A7E7 DB6DA8 fld tbyte ptr [ebp-$58]
|
||
0081A7EA DEC9 fmulp st(1), st(0)
|
||
0081A7EC 83C4F4 add esp, -$0C
|
||
0081A7EF DB3C24 fstp tbyte ptr [esp]
|
||
0081A7F2 9B wait
|
||
0081A7F3 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
0081A7F6 E8B12DBFFF call 0040D5AC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081A7FB 8BB364030000 mov esi, [ebx+$0364]
|
||
0081A801 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081A803 E838DCCAFF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081A808 BA24AC8100 mov edx, $0081AC24
|
||
0081A80D 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A80F E8A0C3CAFF call 004C6BB4
|
||
0081A814 50 push eax
|
||
0081A815 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A818 E80F2FBFFF call 0040D72C
|
||
0081A81D 8D4598 lea eax, [ebp-$68]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081A820 E867E5BFFF call 00418D8C
|
||
0081A825 8D5598 lea edx, [ebp-$68]
|
||
0081A828 58 pop eax
|
||
0081A829 8B08 mov ecx, [eax]
|
||
0081A82B FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081A831 BA14AC8100 mov edx, $0081AC14
|
||
0081A836 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A838 E877C3CAFF call 004C6BB4
|
||
0081A83D 50 push eax
|
||
0081A83E 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A841 E8E62EBFFF call 0040D72C
|
||
0081A846 8D4588 lea eax, [ebp-$78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081A849 E83EE5BFFF call 00418D8C
|
||
0081A84E 8D5588 lea edx, [ebp-$78]
|
||
0081A851 58 pop eax
|
||
0081A852 8B08 mov ecx, [eax]
|
||
0081A854 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'SXMoney'
|
||
|
|
||
0081A85A BA44AC8100 mov edx, $0081AC44
|
||
0081A85F 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A861 E84EC3CAFF call 004C6BB4
|
||
0081A866 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_54
|
||
|
|
||
0081A868 FF5254 call dword ptr [edx+$54]
|
||
0081A86B DD9D70FFFFFF fstp qword ptr [ebp+$FFFFFF70]
|
||
0081A871 9B wait
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081A872 BA24AC8100 mov edx, $0081AC24
|
||
0081A877 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A879 E836C3CAFF call 004C6BB4
|
||
0081A87E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_54
|
||
|
|
||
0081A880 FF5254 call dword ptr [edx+$54]
|
||
0081A883 DC8570FFFFFF fadd qword ptr [ebp+$FFFFFF70]
|
||
0081A889 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081A88F E8F8E4BFFF call 00418D8C
|
||
0081A894 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]
|
||
0081A89A 50 push eax
|
||
|
||
* Possible String Reference to: 'KHDKMoney'
|
||
|
|
||
0081A89B BA54AC8100 mov edx, $0081AC54
|
||
0081A8A0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A8A2 E80DC3CAFF call 004C6BB4
|
||
0081A8A7 5A pop edx
|
||
0081A8A8 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0081A8AA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081A8B0 8BC6 mov eax, esi
|
||
0081A8B2 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0081A8B4 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
0081A8BA 8BB30C030000 mov esi, [ebx+$030C]
|
||
0081A8C0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081A8C2 E80DB0CAFF call 004C58D4
|
||
0081A8C7 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A8C9 E8DE36CCFF call 004DDFAC
|
||
0081A8CE 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081A8D0 FF5244 call dword ptr [edx+$44]
|
||
0081A8D3 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A8D5 E8D236CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081A8DA BA68AC8100 mov edx, $0081AC68
|
||
0081A8DF 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081A8E1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0081A8E4 6884AC8100 push $0081AC84
|
||
0081A8E9 FF75E8 push dword ptr [ebp-$18]
|
||
0081A8EC 6894AC8100 push $0081AC94
|
||
0081A8F1 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]
|
||
0081A8F7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A8FA E8EDFFBEFF call 0040A8EC
|
||
0081A8FF FFB568FFFFFF push dword ptr [ebp+$FFFFFF68]
|
||
0081A905 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
|
||
0081A90B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081A910 E89FADBEFF call 004056B4
|
||
0081A915 8B856CFFFFFF mov eax, [ebp+$FFFFFF6C]
|
||
0081A91B 50 push eax
|
||
0081A91C 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A91E E88936CCFF call 004DDFAC
|
||
0081A923 5A pop edx
|
||
0081A924 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081A926 FF5138 call dword ptr [ecx+$38]
|
||
0081A929 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081A92C BA14AC8100 mov edx, $0081AC14
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0081A931 E80AAEBEFF call 00405740
|
||
0081A936 7427 jz 0081A95F
|
||
0081A938 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A93A E86D36CCFF call 004DDFAC
|
||
0081A93F 50 push eax
|
||
0081A940 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
0081A946 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
0081A949 BAA0AC8100 mov edx, $0081ACA0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081A94E E8EDACBEFF call 00405640
|
||
0081A953 8B9564FFFFFF mov edx, [ebp+$FFFFFF64]
|
||
0081A959 58 pop eax
|
||
0081A95A 8B08 mov ecx, [eax]
|
||
0081A95C FF5138 call dword ptr [ecx+$38]
|
||
0081A95F 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Possible String Reference to: 'KHDKMoney'
|
||
|
|
||
0081A962 BA54AC8100 mov edx, $0081AC54
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0081A967 E8D4ADBEFF call 00405740
|
||
0081A96C 7460 jz 0081A9CE
|
||
|
||
* Possible String Reference to: ',KHDKMoney=''
|
||
|
|
||
0081A96E 68B4AC8100 push $0081ACB4
|
||
|
||
* Possible String Reference to: 'KHDKMoney'
|
||
|
|
||
0081A973 BA54AC8100 mov edx, $0081AC54
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081A978 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A97E E831C2CAFF call 004C6BB4
|
||
0081A983 8D9558FFFFFF lea edx, [ebp+$FFFFFF58]
|
||
0081A989 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081A98B FF5160 call dword ptr [ecx+$60]
|
||
0081A98E 8B8558FFFFFF mov eax, [ebp+$FFFFFF58]
|
||
0081A994 8D955CFFFFFF lea edx, [ebp+$FFFFFF5C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A99A E84DFFBEFF call 0040A8EC
|
||
0081A99F FFB55CFFFFFF push dword ptr [ebp+$FFFFFF5C]
|
||
0081A9A5 6808AC8100 push $0081AC08
|
||
0081A9AA 8D8560FFFFFF lea eax, [ebp+$FFFFFF60]
|
||
0081A9B0 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081A9B5 E8FAACBEFF call 004056B4
|
||
0081A9BA 8B8560FFFFFF mov eax, [ebp+$FFFFFF60]
|
||
0081A9C0 50 push eax
|
||
0081A9C1 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081A9C3 E8E435CCFF call 004DDFAC
|
||
0081A9C8 5A pop edx
|
||
0081A9C9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081A9CB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0081A9CE 68CCAC8100 push $0081ACCC
|
||
0081A9D3 8D9550FFFFFF lea edx, [ebp+$FFFFFF50]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2Column1PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081AD88 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.VBBPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081AD8C 55 push ebp
|
||
0081AD8D 8BEC mov ebp, esp
|
||
0081AD8F B909000000 mov ecx, $00000009
|
||
0081AD94 6A00 push $00
|
||
0081AD96 6A00 push $00
|
||
0081AD98 49 dec ecx
|
||
0081AD99 75F9 jnz 0081AD94
|
||
0081AD9B 51 push ecx
|
||
0081AD9C 53 push ebx
|
||
0081AD9D 56 push esi
|
||
0081AD9E 8BDA mov ebx, edx
|
||
0081ADA0 8BF0 mov esi, eax
|
||
0081ADA2 33C0 xor eax, eax
|
||
0081ADA4 55 push ebp
|
||
|
||
* Possible String Reference to: '魚<><E9AD9A><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081ADA5 6842B08100 push $0081B042
|
||
|
||
***** TRY
|
||
|
|
||
0081ADAA 64FF30 push dword ptr fs:[eax]
|
||
0081ADAD 648920 mov fs:[eax], esp
|
||
0081ADB0 8D55FC lea edx, [ebp-$04]
|
||
0081ADB3 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;
|
||
|
|
||
0081ADB5 E80249D7FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
0081ADBA 8B9E08030000 mov ebx, [esi+$0308]
|
||
0081ADC0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081ADC2 E80DABCAFF call 004C58D4
|
||
0081ADC7 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081ADC9 E8DE31CCFF call 004DDFAC
|
||
0081ADCE 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081ADD0 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0081ADD3 6858B08100 push $0081B058
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0081ADD8 BAA0B08100 mov edx, $0081B0A0
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081ADDD 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081ADE3 E8CCBDCAFF call 004C6BB4
|
||
0081ADE8 8D55F0 lea edx, [ebp-$10]
|
||
0081ADEB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081ADED FF5160 call dword ptr [ecx+$60]
|
||
0081ADF0 FF75F0 push dword ptr [ebp-$10]
|
||
0081ADF3 68B0B08100 push $0081B0B0
|
||
0081ADF8 8D45F4 lea eax, [ebp-$0C]
|
||
0081ADFB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081AE00 E8AFA8BEFF call 004056B4
|
||
0081AE05 8B45F4 mov eax, [ebp-$0C]
|
||
0081AE08 50 push eax
|
||
0081AE09 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081AE0B E89C31CCFF call 004DDFAC
|
||
0081AE10 5A pop edx
|
||
0081AE11 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081AE13 FF5138 call dword ptr [ecx+$38]
|
||
0081AE16 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0081AE18 E8ABAACAFF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081AE1D BABCB08100 mov edx, $0081B0BC
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryTemp : TADOQuery
|
||
|
|
||
0081AE22 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081AE28 E887BDCAFF call 004C6BB4
|
||
0081AE2D 8D55F8 lea edx, [ebp-$08]
|
||
0081AE30 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
0081AE32 FF5160 call dword ptr [ecx+$60]
|
||
0081AE35 8D55EC lea edx, [ebp-$14]
|
||
0081AE38 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081AE3B E8ACFABEFF call 0040A8EC
|
||
0081AE40 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
0081AE44 750D jnz 0081AE53
|
||
0081AE46 8D45FC lea eax, [ebp-$04]
|
||
0081AE49 BACCB08100 mov edx, $0081B0CC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081AE4E E869A5BEFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081AE53 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081AE59 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081AE5B E8E0D5CAFF call 004C8440
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081AE60 BABCB08100 mov edx, $0081B0BC
|
||
0081AE65 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081AE67 E848BDCAFF call 004C6BB4
|
||
0081AE6C 50 push eax
|
||
0081AE6D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081AE70 E8B728BFFF call 0040D72C
|
||
0081AE75 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081AE78 E80FDFBFFF call 00418D8C
|
||
0081AE7D 8D55DC lea edx, [ebp-$24]
|
||
0081AE80 58 pop eax
|
||
0081AE81 8B08 mov ecx, [eax]
|
||
0081AE83 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081AE89 8BC3 mov eax, ebx
|
||
0081AE8B 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0081AE8D FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
0081AE93 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081AE99 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081AE9B E834AACAFF call 004C58D4
|
||
0081AEA0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081AEA2 E80531CCFF call 004DDFAC
|
||
0081AEA7 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081AEA9 FF5244 call dword ptr [edx+$44]
|
||
0081AEAC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081AEAE E8F930CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081AEB3 BAD8B08100 mov edx, $0081B0D8
|
||
0081AEB8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081AEBA FF5138 call dword ptr [ecx+$38]
|
||
0081AEBD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081AEBF E8E830CCFF call 004DDFAC
|
||
0081AEC4 50 push eax
|
||
0081AEC5 8D45D8 lea eax, [ebp-$28]
|
||
0081AEC8 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set BBMoney='
|
||
|
|
||
0081AECB BAF4B08100 mov edx, $0081B0F4
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081AED0 E86BA7BEFF call 00405640
|
||
0081AED5 8B55D8 mov edx, [ebp-$28]
|
||
0081AED8 58 pop eax
|
||
0081AED9 8B08 mov ecx, [eax]
|
||
0081AEDB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0081AEDE 680CB18100 push $0081B10C
|
||
0081AEE3 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.OrderNoChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B1C8 55 push ebp
|
||
0081B1C9 8BEC mov ebp, esp
|
||
0081B1CB 6A00 push $00
|
||
0081B1CD 6A00 push $00
|
||
0081B1CF 53 push ebx
|
||
0081B1D0 56 push esi
|
||
0081B1D1 8BD8 mov ebx, eax
|
||
0081B1D3 33C0 xor eax, eax
|
||
0081B1D5 55 push ebp
|
||
|
||
* Possible String Reference to: '默<><E9BB98><EFBFBD><EFBFBD>^[YY]Í@'
|
||
|
|
||
0081B1D6 6834B28100 push $0081B234
|
||
|
||
***** TRY
|
||
|
|
||
0081B1DB 64FF30 push dword ptr fs:[eax]
|
||
0081B1DE 648920 mov fs:[eax], esp
|
||
0081B1E1 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to control TfrmSKCR.OrderNo : TEdit
|
||
|
|
||
0081B1E4 8B8378030000 mov eax, [ebx+$0378]
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0081B1EA E801D4C6FF call 004885F0
|
||
0081B1EF 8B45F8 mov eax, [ebp-$08]
|
||
0081B1F2 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B1F5 E8F2F6BEFF call 0040A8EC
|
||
0081B1FA 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrLen(String):Integer;
|
||
| or: System.@DynArrayLength;
|
||
| or: System.DynArraySize(Pointer):Integer;
|
||
| or: Variants.DynArraySize(Pointer):Integer;
|
||
|
|
||
0081B1FD E8F2A3BEFF call 004055F4
|
||
0081B202 83F803 cmp eax, +$03
|
||
0081B205 7C0F jl 0081B216
|
||
|
||
* Reference to control TfrmSKCR.ToolButton2 : TToolButton
|
||
|
|
||
0081B207 8B8314030000 mov eax, [ebx+$0314]
|
||
0081B20D 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0081B211 E83E93BEFF call 00404554
|
||
0081B216 33C0 xor eax, eax
|
||
0081B218 5A pop edx
|
||
0081B219 59 pop ecx
|
||
0081B21A 59 pop ecx
|
||
0081B21B 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[YY]Í@'
|
||
|
|
||
0081B21E 683BB28100 push $0081B23B
|
||
0081B223 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081B226 E8F9A0BEFF call 00405324
|
||
0081B22B 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081B22E E8F1A0BEFF call 00405324
|
||
0081B233 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0081B234 E9BB98BEFF jmp 00404AF4
|
||
0081B239 EBE8 jmp 0081B223
|
||
|
||
****** END
|
||
|
|
||
0081B23B 5E pop esi
|
||
0081B23C 5B pop ebx
|
||
0081B23D 59 pop ecx
|
||
0081B23E 59 pop ecx
|
||
0081B23F 5D pop ebp
|
||
0081B240 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2Column1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B244 55 push ebp
|
||
0081B245 8BEC mov ebp, esp
|
||
0081B247 B906000000 mov ecx, $00000006
|
||
0081B24C 6A00 push $00
|
||
0081B24E 6A00 push $00
|
||
0081B250 49 dec ecx
|
||
0081B251 75F9 jnz 0081B24C
|
||
0081B253 51 push ecx
|
||
0081B254 53 push ebx
|
||
0081B255 56 push esi
|
||
0081B256 8BDA mov ebx, edx
|
||
0081B258 8BF0 mov esi, eax
|
||
0081B25A 33C0 xor eax, eax
|
||
0081B25C 55 push ebp
|
||
0081B25D 68E1B38100 push $0081B3E1
|
||
|
||
***** TRY
|
||
|
|
||
0081B262 64FF30 push dword ptr fs:[eax]
|
||
0081B265 648920 mov fs:[eax], esp
|
||
0081B268 8D55FC lea edx, [ebp-$04]
|
||
0081B26B 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;
|
||
|
|
||
0081B26D E84A44D7FF call 0058F6BC
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
0081B272 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081B278 E8CF10E4FF 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;
|
||
|
|
||
0081B27D E8E268E3FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0081B282 8B4050 mov eax, [eax+$50]
|
||
0081B285 8D55F4 lea edx, [ebp-$0C]
|
||
0081B288 8B08 mov ecx, [eax]
|
||
0081B28A FF5110 call dword ptr [ecx+$10]
|
||
0081B28D 8B45F4 mov eax, [ebp-$0C]
|
||
0081B290 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B293 E854F6BEFF call 0040A8EC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081B298 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081B29E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081B2A0 E89BD1CAFF call 004C8440
|
||
0081B2A5 8D55E0 lea edx, [ebp-$20]
|
||
0081B2A8 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B2AB E83CF6BEFF call 0040A8EC
|
||
0081B2B0 8B55E0 mov edx, [ebp-$20]
|
||
0081B2B3 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0081B2B6 E80DDBBFFF call 00418DC8
|
||
0081B2BB 8D45E4 lea eax, [ebp-$1C]
|
||
0081B2BE 50 push eax
|
||
0081B2BF 8B55F8 mov edx, [ebp-$08]
|
||
0081B2C2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081B2C4 E8EBB8CAFF call 004C6BB4
|
||
0081B2C9 5A pop edx
|
||
0081B2CA 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0081B2CC FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081B2D2 8BC3 mov eax, ebx
|
||
0081B2D4 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0081B2D6 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
0081B2DC 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081B2E2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081B2E4 E8EBA5CAFF call 004C58D4
|
||
0081B2E9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B2EB E8BC2CCCFF call 004DDFAC
|
||
0081B2F0 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081B2F2 FF5244 call dword ptr [edx+$44]
|
||
0081B2F5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B2F7 E8B02CCCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081B2FC BAF8B38100 mov edx, $0081B3F8
|
||
0081B301 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081B303 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0081B306 6814B48100 push $0081B414
|
||
0081B30B FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
0081B30E 6824B48100 push $0081B424
|
||
0081B313 8D55D8 lea edx, [ebp-$28]
|
||
0081B316 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B319 E8CEF5BEFF call 0040A8EC
|
||
0081B31E FF75D8 push dword ptr [ebp-$28]
|
||
0081B321 6830B48100 push $0081B430
|
||
0081B326 8D45DC lea eax, [ebp-$24]
|
||
0081B329 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081B32E E881A3BEFF call 004056B4
|
||
0081B333 8B45DC mov eax, [ebp-$24]
|
||
0081B336 50 push eax
|
||
0081B337 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B339 E86E2CCCFF call 004DDFAC
|
||
0081B33E 5A pop edx
|
||
0081B33F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081B341 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0081B344 683CB48100 push $0081B43C
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0081B349 BA54B48100 mov edx, $0081B454
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081B34E 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081B354 E85BB8CAFF call 004C6BB4
|
||
0081B359 8D55CC lea edx, [ebp-$34]
|
||
0081B35C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081B35E FF5160 call dword ptr [ecx+$60]
|
||
0081B361 8B45CC mov eax, [ebp-$34]
|
||
0081B364 8D55D0 lea edx, [ebp-$30]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B367 E880F5BEFF call 0040A8EC
|
||
0081B36C FF75D0 push dword ptr [ebp-$30]
|
||
0081B36F 6830B48100 push $0081B430
|
||
0081B374 8D45D4 lea eax, [ebp-$2C]
|
||
0081B377 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081B37C E833A3BEFF call 004056B4
|
||
0081B381 8B45D4 mov eax, [ebp-$2C]
|
||
0081B384 50 push eax
|
||
0081B385 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B387 E8202CCCFF call 004DDFAC
|
||
0081B38C 5A pop edx
|
||
0081B38D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081B38F FF5138 call dword ptr [ecx+$38]
|
||
0081B392 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0081B394 E83B2BCCFF call 004DDED4
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
0081B399 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081B39F E8A80FE4FF call 0065C34C
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0080
|
||
|
|
||
0081B3A4 8B8080000000 mov eax, [eax+$0080]
|
||
0081B3AA 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0081B3AC E8AB53E0FF call 0062075C
|
||
0081B3B1 33C0 xor eax, eax
|
||
0081B3B3 5A pop edx
|
||
0081B3B4 59 pop ecx
|
||
0081B3B5 59 pop ecx
|
||
0081B3B6 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0081B3B9 68E8B38100 push $0081B3E8
|
||
0081B3BE 8D45CC lea eax, [ebp-$34]
|
||
0081B3C1 BA06000000 mov edx, $00000006
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0081B3C6 E87D9FBEFF call 00405348
|
||
0081B3CB 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0081B3CE E8A192BFFF call 00414674
|
||
0081B3D3 8D45F4 lea eax, [ebp-$0C]
|
||
0081B3D6 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0081B3DB E8689FBEFF call 00405348
|
||
0081B3E0 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0081B3E1 E90E97BEFF jmp 00404AF4
|
||
0081B3E6 EBD6 jmp 0081B3BE
|
||
|
||
****** END
|
||
|
|
||
0081B3E8 5E pop esi
|
||
0081B3E9 5B pop ebx
|
||
0081B3EA 8BE5 mov esp, ebp
|
||
0081B3EC 5D pop ebp
|
||
0081B3ED C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B45C 55 push ebp
|
||
0081B45D 8BEC mov ebp, esp
|
||
0081B45F B905000000 mov ecx, $00000005
|
||
0081B464 6A00 push $00
|
||
0081B466 6A00 push $00
|
||
0081B468 49 dec ecx
|
||
0081B469 75F9 jnz 0081B464
|
||
0081B46B 53 push ebx
|
||
0081B46C 56 push esi
|
||
0081B46D 8BDA mov ebx, edx
|
||
0081B46F 8BF0 mov esi, eax
|
||
0081B471 33C0 xor eax, eax
|
||
0081B473 55 push ebp
|
||
0081B474 68D5B58100 push $0081B5D5
|
||
|
||
***** TRY
|
||
|
|
||
0081B479 64FF30 push dword ptr fs:[eax]
|
||
0081B47C 648920 mov fs:[eax], esp
|
||
0081B47F 8D55FC lea edx, [ebp-$04]
|
||
0081B482 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;
|
||
|
|
||
0081B484 E83342D7FF call 0058F6BC
|
||
0081B489 8D55F8 lea edx, [ebp-$08]
|
||
0081B48C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B48F E858F4BEFF call 0040A8EC
|
||
0081B494 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
0081B498 750D jnz 0081B4A7
|
||
0081B49A 8D45FC lea eax, [ebp-$04]
|
||
0081B49D BAECB58100 mov edx, $0081B5EC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081B4A2 E8159FBEFF call 004053BC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081B4A7 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081B4AD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081B4AF E88CCFCAFF call 004C8440
|
||
0081B4B4 6A00 push $00
|
||
0081B4B6 6A00 push $00
|
||
0081B4B8 6A00 push $00
|
||
0081B4BA 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
||
|
|
||
0081B4BD E8A622BFFF call 0040D768
|
||
0081B4C2 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081B4C5 E8C2D8BFFF call 00418D8C
|
||
0081B4CA 8D45E8 lea eax, [ebp-$18]
|
||
0081B4CD 50 push eax
|
||
|
||
* Possible String Reference to: 'DerateMoney'
|
||
|
|
||
0081B4CE BAF8B58100 mov edx, $0081B5F8
|
||
0081B4D3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081B4D5 E8DAB6CAFF call 004C6BB4
|
||
0081B4DA 5A pop edx
|
||
0081B4DB 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0081B4DD FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081B4E3 8BC3 mov eax, ebx
|
||
0081B4E5 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0081B4E7 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
0081B4ED 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081B4F3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081B4F5 E8DAA3CAFF call 004C58D4
|
||
0081B4FA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B4FC E8AB2ACCFF call 004DDFAC
|
||
0081B501 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081B503 FF5244 call dword ptr [edx+$44]
|
||
0081B506 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B508 E89F2ACCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081B50D BA0CB68100 mov edx, $0081B60C
|
||
0081B512 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081B514 FF5138 call dword ptr [ecx+$38]
|
||
0081B517 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B519 E88E2ACCFF call 004DDFAC
|
||
0081B51E 50 push eax
|
||
0081B51F 8D45E4 lea eax, [ebp-$1C]
|
||
0081B522 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set DerateMoney='
|
||
|
|
||
0081B525 BA28B68100 mov edx, $0081B628
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081B52A E811A1BEFF call 00405640
|
||
0081B52F 8B55E4 mov edx, [ebp-$1C]
|
||
0081B532 58 pop eax
|
||
0081B533 8B08 mov ecx, [eax]
|
||
0081B535 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0081B538 6844B68100 push $0081B644
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0081B53D BA5CB68100 mov edx, $0081B65C
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081B542 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081B548 E867B6CAFF call 004C6BB4
|
||
0081B54D 8D55D8 lea edx, [ebp-$28]
|
||
0081B550 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081B552 FF5160 call dword ptr [ecx+$60]
|
||
0081B555 8B45D8 mov eax, [ebp-$28]
|
||
0081B558 8D55DC lea edx, [ebp-$24]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B55B E88CF3BEFF call 0040A8EC
|
||
0081B560 FF75DC push dword ptr [ebp-$24]
|
||
0081B563 686CB68100 push $0081B66C
|
||
0081B568 8D45E0 lea eax, [ebp-$20]
|
||
0081B56B BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081B570 E83FA1BEFF call 004056B4
|
||
0081B575 8B45E0 mov eax, [ebp-$20]
|
||
0081B578 50 push eax
|
||
0081B579 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081B57B E82C2ACCFF call 004DDFAC
|
||
0081B580 5A pop edx
|
||
0081B581 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081B583 FF5138 call dword ptr [ecx+$38]
|
||
0081B586 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0081B588 E84729CCFF call 004DDED4
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
0081B58D 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081B593 E8B40DE4FF call 0065C34C
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0080
|
||
|
|
||
0081B598 8B8080000000 mov eax, [eax+$0080]
|
||
0081B59E 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0081B5A0 E8B751E0FF call 0062075C
|
||
0081B5A5 33C0 xor eax, eax
|
||
0081B5A7 5A pop edx
|
||
0081B5A8 59 pop ecx
|
||
0081B5A9 59 pop ecx
|
||
0081B5AA 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0081B5AD 68DCB58100 push $0081B5DC
|
||
0081B5B2 8D45D8 lea eax, [ebp-$28]
|
||
0081B5B5 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0081B5BA E8899DBEFF call 00405348
|
||
0081B5BF 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0081B5C2 E8AD90BFFF call 00414674
|
||
0081B5C7 8D45F8 lea eax, [ebp-$08]
|
||
0081B5CA BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0081B5CF E8749DBEFF call 00405348
|
||
0081B5D4 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0081B5D5 E91A95BEFF jmp 00404AF4
|
||
0081B5DA EBD6 jmp 0081B5B2
|
||
|
||
****** END
|
||
|
|
||
0081B5DC 5E pop esi
|
||
0081B5DD 5B pop ebx
|
||
0081B5DE 8BE5 mov esp, ebp
|
||
0081B5E0 5D pop ebp
|
||
0081B5E1 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.tchkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B670 55 push ebp
|
||
0081B671 8BEC mov ebp, esp
|
||
0081B673 B905000000 mov ecx, $00000005
|
||
0081B678 6A00 push $00
|
||
0081B67A 6A00 push $00
|
||
0081B67C 49 dec ecx
|
||
0081B67D 75F9 jnz 0081B678
|
||
0081B67F 51 push ecx
|
||
0081B680 53 push ebx
|
||
0081B681 56 push esi
|
||
0081B682 57 push edi
|
||
0081B683 8945FC mov [ebp-$04], eax
|
||
0081B686 33C0 xor eax, eax
|
||
0081B688 55 push ebp
|
||
|
||
* Possible String Reference to: '鶑<><E9B691><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0081B689 6839B98100 push $0081B939
|
||
|
||
***** TRY
|
||
|
|
||
0081B68E 64FF30 push dword ptr fs:[eax]
|
||
0081B691 648920 mov fs:[eax], esp
|
||
0081B694 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081B697 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081B69D E81EC8CAFF call 004C7EC0
|
||
0081B6A2 84C0 test al, al
|
||
0081B6A4 0F856C020000 jnz 0081B916
|
||
0081B6AA A048B98100 mov al, byte ptr [$0081B948]
|
||
0081B6AF 50 push eax
|
||
0081B6B0 8D45EC lea eax, [ebp-$14]
|
||
0081B6B3 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0081B6B5 E8AAD6BFFF call 00418D64
|
||
0081B6BA 8D4DEC lea ecx, [ebp-$14]
|
||
0081B6BD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081B6C0 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0081B6C6 BA54B98100 mov edx, $0081B954
|
||
0081B6CB 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0081B6CD FF9344020000 call dword ptr [ebx+$0244]
|
||
0081B6D3 84C0 test al, al
|
||
0081B6D5 751D jnz 0081B6F4
|
||
0081B6D7 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0081B6D9 B95CB98100 mov ecx, $0081B95C
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0081B6DE BA64B98100 mov edx, $0081B964
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.tnochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081BA3C 55 push ebp
|
||
0081BA3D 8BEC mov ebp, esp
|
||
0081BA3F B904000000 mov ecx, $00000004
|
||
0081BA44 6A00 push $00
|
||
0081BA46 6A00 push $00
|
||
0081BA48 49 dec ecx
|
||
0081BA49 75F9 jnz 0081BA44
|
||
0081BA4B 51 push ecx
|
||
0081BA4C 53 push ebx
|
||
0081BA4D 56 push esi
|
||
0081BA4E 57 push edi
|
||
0081BA4F 8945FC mov [ebp-$04], eax
|
||
0081BA52 33C0 xor eax, eax
|
||
0081BA54 55 push ebp
|
||
|
||
* Possible String Reference to: '霎<><E99C8E><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0081BA55 6853BC8100 push $0081BC53
|
||
|
||
***** TRY
|
||
|
|
||
0081BA5A 64FF30 push dword ptr fs:[eax]
|
||
0081BA5D 648920 mov fs:[eax], esp
|
||
0081BA60 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081BA63 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081BA69 E852C4CAFF call 004C7EC0
|
||
0081BA6E 84C0 test al, al
|
||
0081BA70 0F85BA010000 jnz 0081BC30
|
||
0081BA76 A064BC8100 mov al, byte ptr [$0081BC64]
|
||
0081BA7B 50 push eax
|
||
0081BA7C 8D45EC lea eax, [ebp-$14]
|
||
0081BA7F B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0081BA81 E8DED2BFFF call 00418D64
|
||
0081BA86 8D4DEC lea ecx, [ebp-$14]
|
||
0081BA89 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081BA8C 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0081BA92 BA70BC8100 mov edx, $0081BC70
|
||
0081BA97 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
0081BA99 FF9344020000 call dword ptr [ebx+$0244]
|
||
0081BA9F 84C0 test al, al
|
||
0081BAA1 751D jnz 0081BAC0
|
||
0081BAA3 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0081BAA5 B978BC8100 mov ecx, $0081BC78
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0081BAAA BA80BC8100 mov edx, $0081BC80
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.cxTabControl1Change(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081BD08 53 push ebx
|
||
0081BD09 8BD8 mov ebx, eax
|
||
0081BD0B 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0081BD0D E816AEFFFF call 00816B28
|
||
0081BD12 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0081BD14 E877AFFFFF call 00816C90
|
||
0081BD19 5B pop ebx
|
||
0081BD1A C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2ComTaitouPropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081BD1C 55 push ebp
|
||
0081BD1D 8BEC mov ebp, esp
|
||
0081BD1F 51 push ecx
|
||
0081BD20 B906000000 mov ecx, $00000006
|
||
0081BD25 6A00 push $00
|
||
0081BD27 6A00 push $00
|
||
0081BD29 49 dec ecx
|
||
0081BD2A 75F9 jnz 0081BD25
|
||
0081BD2C 51 push ecx
|
||
0081BD2D 874DFC xchg [ebp-$04], ecx
|
||
0081BD30 53 push ebx
|
||
0081BD31 56 push esi
|
||
0081BD32 8BF0 mov esi, eax
|
||
0081BD34 33C0 xor eax, eax
|
||
0081BD36 55 push ebp
|
||
0081BD37 6873BF8100 push $0081BF73
|
||
|
||
***** TRY
|
||
|
|
||
0081BD3C 64FF30 push dword ptr fs:[eax]
|
||
0081BD3F 648920 mov fs:[eax], esp
|
||
0081BD42 33C0 xor eax, eax
|
||
0081BD44 55 push ebp
|
||
0081BD45 6849BF8100 push $0081BF49
|
||
|
||
***** TRY
|
||
|
|
||
0081BD4A 64FF30 push dword ptr fs:[eax]
|
||
0081BD4D 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2SselPropertiesChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C058 53 push ebx
|
||
0081C059 56 push esi
|
||
0081C05A 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmSKCR.ToolBar1 : TToolBar
|
||
|
|
||
0081C05C 8B83F8020000 mov eax, [ebx+$02F8]
|
||
0081C062 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
0081C064 FF92C4000000 call dword ptr [edx+$00C4]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081C06A BAA8C08100 mov edx, $0081C0A8
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081C06F 8BB364030000 mov esi, [ebx+$0364]
|
||
0081C075 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081C077 E838ABCAFF call 004C6BB4
|
||
0081C07C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
0081C07E FF524C call dword ptr [edx+$4C]
|
||
0081C081 D835B0C08100 fdiv dword ptr [$0081C0B0]
|
||
0081C087 83C4F8 add esp, -$08
|
||
0081C08A DD1C24 fstp qword ptr [esp]
|
||
0081C08D 9B wait
|
||
|
||
* Reference to control TfrmSKCR.Label12 : TLabel
|
||
|
|
||
0081C08E 8B9398030000 mov edx, [ebx+$0398]
|
||
0081C094 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
||
|
|
||
0081C096 E8F5ACF9FF call 007B6D90
|
||
0081C09B 5E pop esi
|
||
0081C09C 5B pop ebx
|
||
0081C09D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.Tv2StylesGetContentStyle(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C0B4 55 push ebp
|
||
0081C0B5 8BEC mov ebp, esp
|
||
0081C0B7 6A00 push $00
|
||
0081C0B9 6A00 push $00
|
||
0081C0BB 6A00 push $00
|
||
0081C0BD 6A00 push $00
|
||
0081C0BF 6A00 push $00
|
||
0081C0C1 6A00 push $00
|
||
0081C0C3 6A00 push $00
|
||
0081C0C5 6A00 push $00
|
||
0081C0C7 53 push ebx
|
||
0081C0C8 56 push esi
|
||
0081C0C9 8BF1 mov esi, ecx
|
||
0081C0CB 8BD8 mov ebx, eax
|
||
0081C0CD 33C0 xor eax, eax
|
||
0081C0CF 55 push ebp
|
||
0081C0D0 6846C18100 push $0081C146
|
||
|
||
***** TRY
|
||
|
|
||
0081C0D5 64FF30 push dword ptr fs:[eax]
|
||
0081C0D8 648920 mov fs:[eax], esp
|
||
|
||
* Possible String Reference to: 'ChkStatus'
|
||
|
|
||
0081C0DB BA60C18100 mov edx, $0081C160
|
||
|
||
* Reference to control TfrmSKCR.Tv2 : TcxGridDBTableView
|
||
|
|
||
0081C0E0 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint;
|
||
| or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect;
|
||
| or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer;
|
||
| or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString);
|
||
| or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode;
|
||
| or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString;
|
||
|
|
||
0081C0E6 E835F9E4FF call 0066BA20
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_006C
|
||
|
|
||
0081C0EB 8B586C mov ebx, [eax+$6C]
|
||
0081C0EE 8D4DF0 lea ecx, [ebp-$10]
|
||
0081C0F1 8BD3 mov edx, ebx
|
||
0081C0F3 8BC6 mov eax, esi
|
||
0081C0F5 8B18 mov ebx, [eax]
|
||
0081C0F7 FF5340 call dword ptr [ebx+$40]
|
||
0081C0FA 8D45F0 lea eax, [ebp-$10]
|
||
0081C0FD 50 push eax
|
||
0081C0FE 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Possible String Reference to: '<27><>ͨ<EFBFBD><CDA8>'
|
||
|
|
||
0081C101 BA74C18100 mov edx, $0081C174
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0081C106 E8BDCCBFFF call 00418DC8
|
||
0081C10B 8D55E0 lea edx, [ebp-$20]
|
||
0081C10E 58 pop eax
|
||
|
||
* Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData);
|
||
| or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData);
|
||
| or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData);
|
||
| or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData);
|
||
| or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData);
|
||
| or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData);
|
||
|
|
||
0081C10F E8D812C0FF call 0041D3EC
|
||
0081C114 750F jnz 0081C125
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TSDFJClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C17C 55 push ebp
|
||
0081C17D 8BEC mov ebp, esp
|
||
0081C17F 6A00 push $00
|
||
0081C181 6A00 push $00
|
||
0081C183 53 push ebx
|
||
0081C184 8BD8 mov ebx, eax
|
||
0081C186 33C0 xor eax, eax
|
||
0081C188 55 push ebp
|
||
|
||
* Possible String Reference to: '饈<><E9A588><EFBFBD><EFBFBD>[YY]<5D>'
|
||
|
|
||
0081C189 684AC28100 push $0081C24A
|
||
|
||
***** TRY
|
||
|
|
||
0081C18E 64FF30 push dword ptr fs:[eax]
|
||
0081C191 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081C194 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081C19A E821BDCAFF call 004C7EC0
|
||
0081C19F 84C0 test al, al
|
||
0081C1A1 0F8588000000 jnz 0081C22F
|
||
0081C1A7 8BCB mov ecx, ebx
|
||
0081C1A9 B201 mov dl, $01
|
||
|
||
* Reference to class TfrmFjList10
|
||
|
|
||
0081C1AB A188338100 mov eax, dword ptr [$00813388]
|
||
|
||
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
|
|
||
0081C1B0 E81B5CC8FF call 004A1DD0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.N1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C274 B201 mov dl, $01
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081C276 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
||
|
|
||
0081C27C E823C2F9FF call 007B84A4
|
||
0081C281 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.N2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C284 33D2 xor edx, edx
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081C286 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
||
|
|
||
0081C28C E813C2F9FF call 007B84A4
|
||
0081C291 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2FKTypePropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C294 55 push ebp
|
||
0081C295 8BEC mov ebp, esp
|
||
0081C297 51 push ecx
|
||
0081C298 B905000000 mov ecx, $00000005
|
||
0081C29D 6A00 push $00
|
||
0081C29F 6A00 push $00
|
||
0081C2A1 49 dec ecx
|
||
0081C2A2 75F9 jnz 0081C29D
|
||
0081C2A4 51 push ecx
|
||
0081C2A5 874DFC xchg [ebp-$04], ecx
|
||
0081C2A8 53 push ebx
|
||
0081C2A9 56 push esi
|
||
0081C2AA 8BF0 mov esi, eax
|
||
0081C2AC 33C0 xor eax, eax
|
||
0081C2AE 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>O<EFBFBD><4F><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081C2AF 68A0C48100 push $0081C4A0
|
||
|
||
***** TRY
|
||
|
|
||
0081C2B4 64FF30 push dword ptr fs:[eax]
|
||
0081C2B7 648920 mov fs:[eax], esp
|
||
0081C2BA 33C0 xor eax, eax
|
||
0081C2BC 55 push ebp
|
||
0081C2BD 6876C48100 push $0081C476
|
||
|
||
***** TRY
|
||
|
|
||
0081C2C2 64FF30 push dword ptr fs:[eax]
|
||
0081C2C5 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.CheckBox1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C55C 55 push ebp
|
||
0081C55D 8BEC mov ebp, esp
|
||
0081C55F 33C9 xor ecx, ecx
|
||
0081C561 51 push ecx
|
||
0081C562 51 push ecx
|
||
0081C563 51 push ecx
|
||
0081C564 51 push ecx
|
||
0081C565 51 push ecx
|
||
0081C566 51 push ecx
|
||
0081C567 51 push ecx
|
||
0081C568 51 push ecx
|
||
0081C569 53 push ebx
|
||
0081C56A 56 push esi
|
||
0081C56B 57 push edi
|
||
0081C56C 8BF0 mov esi, eax
|
||
0081C56E 33C0 xor eax, eax
|
||
0081C570 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>D<EFBFBD><44><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0081C571 68ABC68100 push $0081C6AB
|
||
|
||
***** TRY
|
||
|
|
||
0081C576 64FF30 push dword ptr fs:[eax]
|
||
0081C579 648920 mov fs:[eax], esp
|
||
0081C57C BAC4C68100 mov edx, $0081C6C4
|
||
|
||
* Reference to control TfrmSKCR.Label12 : TLabel
|
||
|
|
||
0081C581 8B8698030000 mov eax, [esi+$0398]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0081C587 E894C0C6FF call 00488620
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081C58C 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081C592 E829B9CAFF call 004C7EC0
|
||
0081C597 84C0 test al, al
|
||
0081C599 0F85E6000000 jnz 0081C685
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081C59F 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081C5A5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
0081C5A7 E8A8AFCAFF call 004C7554
|
||
0081C5AC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0081C5AE E87DBACAFF call 004C8030
|
||
0081C5B3 E9B2000000 jmp 0081C66A
|
||
0081C5B8 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081C5BA E881BECAFF call 004C8440
|
||
|
||
* Reference to control TfrmSKCR.CheckBox1 : TCheckBox
|
||
|
|
||
0081C5BF 8B86D0030000 mov eax, [esi+$03D0]
|
||
0081C5C5 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
0081C5C7 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0081C5CD 8BD0 mov edx, eax
|
||
0081C5CF 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0081C5D2 E88DC7BFFF call 00418D64
|
||
0081C5D7 8D45F0 lea eax, [ebp-$10]
|
||
0081C5DA 50 push eax
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0081C5DB BAD0C68100 mov edx, $0081C6D0
|
||
0081C5E0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081C5E2 E8CDA5CAFF call 004C6BB4
|
||
0081C5E7 5A pop edx
|
||
0081C5E8 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0081C5EA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Reference to control TfrmSKCR.CheckBox1 : TCheckBox
|
||
|
|
||
0081C5F0 8B86D0030000 mov eax, [esi+$03D0]
|
||
0081C5F6 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
0081C5F8 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0081C5FE 3C01 cmp al, $01
|
||
0081C600 7557 jnz 0081C659
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081C602 BAE0C68100 mov edx, $0081C6E0
|
||
0081C607 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081C609 E8A6A5CAFF call 004C6BB4
|
||
0081C60E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
0081C610 FF524C call dword ptr [edx+$4C]
|
||
0081C613 DF7DE4 fistp qword ptr [ebp-$1C]
|
||
0081C616 9B wait
|
||
0081C617 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to control TfrmSKCR.Label12 : TLabel
|
||
|
|
||
0081C61A 8BBE98030000 mov edi, [esi+$0398]
|
||
0081C620 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0081C622 E8C9BFC6FF call 004885F0
|
||
0081C627 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081C62A E8FD10BFFF call 0040D72C
|
||
0081C62F D80DE8C68100 fmul dword ptr [$0081C6E8]
|
||
0081C635 DF6DE4 fild qword ptr [ebp-$1C]
|
||
0081C638 DEC1 faddp st(1), st(0)
|
||
0081C63A D835E8C68100 fdiv dword ptr [$0081C6E8]
|
||
0081C640 83C4F4 add esp, -$0C
|
||
0081C643 DB3C24 fstp tbyte ptr [esp]
|
||
0081C646 9B wait
|
||
0081C647 8D45EC lea eax, [ebp-$14]
|
||
|
||
|
|
||
0081C64A E85D0FBFFF call 0040D5AC
|
||
0081C64F 8B55EC mov edx, [ebp-$14]
|
||
0081C652 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0081C654 E8C7BFC6FF call 00488620
|
||
0081C659 8BC3 mov eax, ebx
|
||
0081C65B 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0081C65D FF924C020000 call dword ptr [edx+$024C]
|
||
0081C663 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Next(TDataSet);
|
||
|
|
||
0081C665 E8E2BCCAFF call 004C834C
|
||
|
||
* Reference to field TClientDataSet.Eof : Boolean
|
||
|
|
||
0081C66A 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
|
||
0081C671 0F8441FFFFFF jz 0081C5B8
|
||
0081C677 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0081C679 E8B2B9CAFF call 004C8030
|
||
0081C67E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
0081C680 E8EFAECAFF call 004C7574
|
||
0081C685 33C0 xor eax, eax
|
||
0081C687 5A pop edx
|
||
0081C688 59 pop ecx
|
||
0081C689 59 pop ecx
|
||
0081C68A 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '_^[<5B><>]<5D>'
|
||
|
|
||
0081C68D 68B2C68100 push $0081C6B2
|
||
0081C692 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081C695 E88A8CBEFF call 00405324
|
||
0081C69A 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081C69D E8828CBEFF call 00405324
|
||
0081C6A2 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0081C6A5 E8CA7FBFFF call 00414674
|
||
0081C6AA C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0081C6AB E94484BEFF jmp 00404AF4
|
||
0081C6B0 EBE0 jmp 0081C692
|
||
|
||
****** END
|
||
|
|
||
0081C6B2 5F pop edi
|
||
0081C6B3 5E pop esi
|
||
0081C6B4 5B pop ebx
|
||
0081C6B5 8BE5 mov esp, ebp
|
||
0081C6B7 5D pop ebp
|
||
0081C6B8 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.MoneyChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
|
||
|
|
||
0081C6EC E89FA5FFFF call 00816C90
|
||
0081C6F1 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2FKTaiTouPropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C6F4 55 push ebp
|
||
0081C6F5 8BEC mov ebp, esp
|
||
0081C6F7 51 push ecx
|
||
0081C6F8 B906000000 mov ecx, $00000006
|
||
0081C6FD 6A00 push $00
|
||
0081C6FF 6A00 push $00
|
||
0081C701 49 dec ecx
|
||
0081C702 75F9 jnz 0081C6FD
|
||
0081C704 51 push ecx
|
||
0081C705 874DFC xchg [ebp-$04], ecx
|
||
0081C708 53 push ebx
|
||
0081C709 56 push esi
|
||
0081C70A 8BF0 mov esi, eax
|
||
0081C70C 33C0 xor eax, eax
|
||
0081C70E 55 push ebp
|
||
0081C70F 684BC98100 push $0081C94B
|
||
|
||
***** TRY
|
||
|
|
||
0081C714 64FF30 push dword ptr fs:[eax]
|
||
0081C717 648920 mov fs:[eax], esp
|
||
0081C71A 33C0 xor eax, eax
|
||
0081C71C 55 push ebp
|
||
0081C71D 6821C98100 push $0081C921
|
||
|
||
***** TRY
|
||
|
|
||
0081C722 64FF30 push dword ptr fs:[eax]
|
||
0081C725 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TZDHXClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081CA2C 55 push ebp
|
||
0081CA2D 8BEC mov ebp, esp
|
||
0081CA2F B908000000 mov ecx, $00000008
|
||
0081CA34 6A00 push $00
|
||
0081CA36 6A00 push $00
|
||
0081CA38 49 dec ecx
|
||
0081CA39 75F9 jnz 0081CA34
|
||
0081CA3B 53 push ebx
|
||
0081CA3C 56 push esi
|
||
0081CA3D 8BF0 mov esi, eax
|
||
0081CA3F 33C0 xor eax, eax
|
||
0081CA41 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>~<7E><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081CA42 6850CC8100 push $0081CC50
|
||
|
||
***** TRY
|
||
|
|
||
0081CA47 64FF30 push dword ptr fs:[eax]
|
||
0081CA4A 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081CA4D 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081CA53 E868B4CAFF call 004C7EC0
|
||
0081CA58 84C0 test al, al
|
||
0081CA5A 0F85D5010000 jnz 0081CC35
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
0081CA60 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081CA66 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081CA68 E8678ECAFF call 004C58D4
|
||
0081CA6D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081CA6F E83815CCFF call 004DDFAC
|
||
0081CA74 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0081CA76 FF5244 call dword ptr [edx+$44]
|
||
0081CA79 33D2 xor edx, edx
|
||
0081CA7B 8BC3 mov eax, ebx
|
||
0081CA7D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_0190
|
||
|
|
||
0081CA7F FF9190010000 call dword ptr [ecx+$0190]
|
||
0081CA85 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081CA87 E82015CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'EXEC P_Do_Yshx_Zd'
|
||
|
|
||
0081CA8C BA68CC8100 mov edx, $0081CC68
|
||
0081CA91 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081CA93 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0081CA96 BA84CC8100 mov edx, $0081CC84
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081CA9B 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081CAA1 E80EA1CAFF call 004C6BB4
|
||
0081CAA6 8D55F0 lea edx, [ebp-$10]
|
||
0081CAA9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081CAAB FF5160 call dword ptr [ecx+$60]
|
||
0081CAAE 8B45F0 mov eax, [ebp-$10]
|
||
0081CAB1 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081CAB4 E833DEBEFF call 0040A8EC
|
||
0081CAB9 8B45F4 mov eax, [ebp-$0C]
|
||
0081CABC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
||
|
|
||
0081CABF E830DFBEFF call 0040A9F4
|
||
0081CAC4 8B4DF8 mov ecx, [ebp-$08]
|
||
0081CAC7 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Possible String Reference to: '@skAutoID = '
|
||
|
|
||
0081CACA BA94CC8100 mov edx, $0081CC94
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081CACF E86C8BBEFF call 00405640
|
||
0081CAD4 8B45FC mov eax, [ebp-$04]
|
||
0081CAD7 50 push eax
|
||
0081CAD8 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081CADA E8CD14CCFF call 004DDFAC
|
||
0081CADF 5A pop edx
|
||
0081CAE0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081CAE2 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'factoryName'
|
||
|
|
||
0081CAE5 BAACCC8100 mov edx, $0081CCAC
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081CAEA 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081CAF0 E8BFA0CAFF call 004C6BB4
|
||
0081CAF5 8D55E0 lea edx, [ebp-$20]
|
||
0081CAF8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
0081CAFA FF5160 call dword ptr [ecx+$60]
|
||
0081CAFD 8B45E0 mov eax, [ebp-$20]
|
||
0081CB00 8D55E4 lea edx, [ebp-$1C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081CB03 E8E4DDBEFF call 0040A8EC
|
||
0081CB08 8B45E4 mov eax, [ebp-$1C]
|
||
0081CB0B 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
||
|
|
||
0081CB0E E8E1DEBEFF call 0040A9F4
|
||
0081CB13 8B4DE8 mov ecx, [ebp-$18]
|
||
0081CB16 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Possible String Reference to: ',@factoryName = '
|
||
|
|
||
0081CB19 BAC0CC8100 mov edx, $0081CCC0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081CB1E E81D8BBEFF call 00405640
|
||
0081CB23 8B45EC mov eax, [ebp-$14]
|
||
0081CB26 50 push eax
|
||
0081CB27 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081CB29 E87E14CCFF call 004DDFAC
|
||
0081CB2E 5A pop edx
|
||
0081CB2F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081CB31 FF5138 call dword ptr [ecx+$38]
|
||
0081CB34 6A00 push $00
|
||
0081CB36 6A00 push $00
|
||
0081CB38 6A00 push $00
|
||
0081CB3A 8D45D8 lea eax, [ebp-$28]
|
||
|
||
|
|
||
0081CB3D E86A0ABFFF call 0040D5AC
|
||
0081CB42 8B4DD8 mov ecx, [ebp-$28]
|
||
0081CB45 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Possible String Reference to: ',@hxMoney = '
|
||
|
|
||
0081CB48 BADCCC8100 mov edx, $0081CCDC
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081CB4D E8EE8ABEFF call 00405640
|
||
0081CB52 8B45DC mov eax, [ebp-$24]
|
||
0081CB55 50 push eax
|
||
0081CB56 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0081CB58 E84F14CCFF call 004DDFAC
|
||
0081CB5D 5A pop edx
|
||
0081CB5E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0081CB60 FF5138 call dword ptr [ecx+$38]
|
||
0081CB63 8D55CC lea edx, [ebp-$34]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TSDHXClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081CD54 55 push ebp
|
||
0081CD55 8BEC mov ebp, esp
|
||
0081CD57 6A00 push $00
|
||
0081CD59 6A00 push $00
|
||
0081CD5B 53 push ebx
|
||
0081CD5C 8BD8 mov ebx, eax
|
||
0081CD5E 33C0 xor eax, eax
|
||
0081CD60 55 push ebp
|
||
0081CD61 6824CE8100 push $0081CE24
|
||
|
||
***** TRY
|
||
|
|
||
0081CD66 64FF30 push dword ptr fs:[eax]
|
||
0081CD69 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmSKCR.CDS_HZ : TClientDataSet
|
||
|
|
||
0081CD6C 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081CD72 E849B1CAFF call 004C7EC0
|
||
0081CD77 84C0 test al, al
|
||
0081CD79 0F858A000000 jnz 0081CE09
|
||
0081CD7F 8BCB mov ecx, ebx
|
||
0081CD81 B201 mov dl, $01
|
||
|
||
* Reference to class TfrmskHx
|
||
|
|
||
0081CD83 A1E0498100 mov eax, dword ptr [$008149E0]
|
||
|
||
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
|
|
||
0081CD88 E84350C8FF call 004A1DD0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.TSDAddClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081CE54 55 push ebp
|
||
0081CE55 8BEC mov ebp, esp
|
||
0081CE57 B90C000000 mov ecx, $0000000C
|
||
0081CE5C 6A00 push $00
|
||
0081CE5E 6A00 push $00
|
||
0081CE60 49 dec ecx
|
||
0081CE61 75F9 jnz 0081CE5C
|
||
0081CE63 51 push ecx
|
||
0081CE64 56 push esi
|
||
0081CE65 57 push edi
|
||
0081CE66 8BF8 mov edi, eax
|
||
0081CE68 33C0 xor eax, eax
|
||
0081CE6A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>_z<5F><7A><EFBFBD><EFBFBD>_^<5E><>]<5D>'
|
||
|
|
||
0081CE6B 6890D08100 push $0081D090
|
||
|
||
***** TRY
|
||
|
|
||
0081CE70 64FF30 push dword ptr fs:[eax]
|
||
0081CE73 648920 mov fs:[eax], esp
|
||
0081CE76 33C0 xor eax, eax
|
||
0081CE78 55 push ebp
|
||
0081CE79 682ED08100 push $0081D02E
|
||
|
||
***** TRY
|
||
|
|
||
0081CE7E 64FF30 push dword ptr fs:[eax]
|
||
0081CE81 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2KPStatusPropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081D124 55 push ebp
|
||
0081D125 8BEC mov ebp, esp
|
||
0081D127 51 push ecx
|
||
0081D128 B905000000 mov ecx, $00000005
|
||
0081D12D 6A00 push $00
|
||
0081D12F 6A00 push $00
|
||
0081D131 49 dec ecx
|
||
0081D132 75F9 jnz 0081D12D
|
||
0081D134 51 push ecx
|
||
0081D135 874DFC xchg [ebp-$04], ecx
|
||
0081D138 53 push ebx
|
||
0081D139 56 push esi
|
||
0081D13A 8BF0 mov esi, eax
|
||
0081D13C 33C0 xor eax, eax
|
||
0081D13E 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>w<EFBFBD><77><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081D13F 6830D38100 push $0081D330
|
||
|
||
***** TRY
|
||
|
|
||
0081D144 64FF30 push dword ptr fs:[eax]
|
||
0081D147 648920 mov fs:[eax], esp
|
||
0081D14A 33C0 xor eax, eax
|
||
0081D14C 55 push ebp
|
||
0081D14D 6806D38100 push $0081D306
|
||
|
||
***** TRY
|
||
|
|
||
0081D152 64FF30 push dword ptr fs:[eax]
|
||
0081D155 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR.v2OrderNoPropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081D3E0 55 push ebp
|
||
0081D3E1 8BEC mov ebp, esp
|
||
0081D3E3 51 push ecx
|
||
0081D3E4 B90A000000 mov ecx, $0000000A
|
||
0081D3E9 6A00 push $00
|
||
0081D3EB 6A00 push $00
|
||
0081D3ED 49 dec ecx
|
||
0081D3EE 75F9 jnz 0081D3E9
|
||
0081D3F0 874DFC xchg [ebp-$04], ecx
|
||
0081D3F3 53 push ebx
|
||
0081D3F4 56 push esi
|
||
0081D3F5 8BF0 mov esi, eax
|
||
0081D3F7 33C0 xor eax, eax
|
||
0081D3F9 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>gt<67><74><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081D3FA 6888D68100 push $0081D688
|
||
|
||
***** TRY
|
||
|
|
||
0081D3FF 64FF30 push dword ptr fs:[eax]
|
||
0081D402 648920 mov fs:[eax], esp
|
||
0081D405 33C0 xor eax, eax
|
||
0081D407 55 push ebp
|
||
0081D408 6849D68100 push $0081D649
|
||
|
||
***** TRY
|
||
|
|
||
0081D40D 64FF30 push dword ptr fs:[eax]
|
||
0081D410 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_00816C91(Sender : TObject);
|
||
begin
|
||
(*
|
||
00816C91 8BEC mov ebp, esp
|
||
00816C93 B907000000 mov ecx, $00000007
|
||
00816C98 6A00 push $00
|
||
00816C9A 6A00 push $00
|
||
00816C9C 49 dec ecx
|
||
00816C9D 75F9 jnz 00816C98
|
||
00816C9F 53 push ebx
|
||
00816CA0 56 push esi
|
||
00816CA1 8945FC mov [ebp-$04], eax
|
||
00816CA4 33C0 xor eax, eax
|
||
00816CA6 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>?۾<><DBBE><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00816CA7 68B06F8100 push $00816FB0
|
||
|
||
***** TRY
|
||
|
|
||
00816CAC 64FF30 push dword ptr fs:[eax]
|
||
00816CAF 648920 mov fs:[eax], esp
|
||
00816CB2 33C0 xor eax, eax
|
||
00816CB4 55 push ebp
|
||
00816CB5 68716F8100 push $00816F71
|
||
|
||
***** TRY
|
||
|
|
||
00816CBA 64FF30 push dword ptr fs:[eax]
|
||
00816CBD 648920 mov fs:[eax], esp
|
||
00816CC0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
00816CC3 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
00816CC9 E88608CBFF call 004C7554
|
||
00816CCE 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryMain : TADOQuery
|
||
|
|
||
00816CD1 8B9820030000 mov ebx, [eax+$0320]
|
||
00816CD7 33D2 xor edx, edx
|
||
00816CD9 8BC3 mov eax, ebx
|
||
00816CDB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_0190
|
||
|
|
||
00816CDD FF9190010000 call dword ptr [ecx+$0190]
|
||
00816CE3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00816CE5 E8EAEBCAFF call 004C58D4
|
||
00816CEA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816CEC E8BB72CCFF call 004DDFAC
|
||
00816CF1 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00816CF3 FF5244 call dword ptr [edx+$44]
|
||
00816CF6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816CF8 E8AF72CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select A.*,WHXMoney=A.KHDKMoney-is
|
||
| null(A.HxNum,0),'
|
||
|
|
||
00816CFD BAC86F8100 mov edx, $00816FC8
|
||
00816D02 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816D04 FF5138 call dword ptr [ecx+$38]
|
||
00816D07 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816D09 E89E72CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'IFSD=cast((case when isnull((select
|
||
| T.TFID from TP_File T where T.WBID
|
||
| =A.YFID and T.TFType='SD'),'')='' t
|
||
| hen 0 else 1 end) as bit)'
|
||
|
|
||
00816D0E BA04708100 mov edx, $00817004
|
||
00816D13 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816D15 FF5138 call dword ptr [ecx+$38]
|
||
00816D18 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816D1A E88D72CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A'
|
||
|
|
||
00816D1F BA90708100 mov edx, $00817090
|
||
00816D24 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816D26 FF5138 call dword ptr [ecx+$38]
|
||
00816D29 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816D2B E87C72CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' left join YF_Money_KC B on A.CRID=
|
||
| B.CRID'
|
||
|
|
||
00816D30 BAAC708100 mov edx, $008170AC
|
||
00816D35 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816D37 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where A.CRTime>=''
|
||
|
|
||
00816D3A 68E0708100 push $008170E0
|
||
00816D3F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.begdate : TDateTimePicker
|
||
|
|
||
00816D42 8B8054030000 mov eax, [eax+$0354]
|
||
00816D48 FFB014020000 push dword ptr [eax+$0214]
|
||
00816D4E FFB010020000 push dword ptr [eax+$0210]
|
||
00816D54 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00816D57 B8FC708100 mov eax, $008170FC
|
||
|
||
|
|
||
00816D5C E85B7EBFFF call 0040EBBC
|
||
00816D61 FF75F4 push dword ptr [ebp-$0C]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00816D64 6810718100 push $00817110
|
||
00816D69 8D45F8 lea eax, [ebp-$08]
|
||
00816D6C BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00816D71 E83EE9BEFF call 004056B4
|
||
00816D76 8B45F8 mov eax, [ebp-$08]
|
||
00816D79 50 push eax
|
||
00816D7A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816D7C E82B72CCFF call 004DDFAC
|
||
00816D81 5A pop edx
|
||
00816D82 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816D84 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and CRTime<''
|
||
|
|
||
00816D87 681C718100 push $0081711C
|
||
00816D8C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.Enddate : TDateTimePicker
|
||
|
|
||
00816D8F 8B8058030000 mov eax, [eax+$0358]
|
||
00816D95 DD8010020000 fld qword ptr [eax+$0210]
|
||
00816D9B D8052C718100 fadd dword ptr [$0081712C]
|
||
00816DA1 83C4F8 add esp, -$08
|
||
00816DA4 DD1C24 fstp qword ptr [esp]
|
||
00816DA7 9B wait
|
||
00816DA8 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
00816DAB B8FC708100 mov eax, $008170FC
|
||
|
||
|
|
||
00816DB0 E8077EBFFF call 0040EBBC
|
||
00816DB5 FF75EC push dword ptr [ebp-$14]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00816DB8 6810718100 push $00817110
|
||
00816DBD 8D45F0 lea eax, [ebp-$10]
|
||
00816DC0 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00816DC5 E8EAE8BEFF call 004056B4
|
||
00816DCA 8B45F0 mov eax, [ebp-$10]
|
||
00816DCD 50 push eax
|
||
00816DCE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816DD0 E8D771CCFF call 004DDFAC
|
||
00816DD5 5A pop edx
|
||
00816DD6 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816DD8 FF5138 call dword ptr [ecx+$38]
|
||
00816DDB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00816DDD E8CA71CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.CRType='<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
||
|
|
||
00816DE2 BA38718100 mov edx, $00817138
|
||
00816DE7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00816DE9 FF5138 call dword ptr [ecx+$38]
|
||
00816DEC 8D55E8 lea edx, [ebp-$18]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081786D(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081786D 8BEC mov ebp, esp
|
||
0081786F B941000000 mov ecx, $00000041
|
||
00817874 6A00 push $00
|
||
00817876 6A00 push $00
|
||
00817878 49 dec ecx
|
||
00817879 75F9 jnz 00817874
|
||
0081787B 53 push ebx
|
||
0081787C 56 push esi
|
||
0081787D 57 push edi
|
||
0081787E 8945FC mov [ebp-$04], eax
|
||
00817881 33C0 xor eax, eax
|
||
00817883 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>Ǿ<EFBFBD><C7BE>G<EFBFBD><47><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00817884 6853838100 push $00818353
|
||
|
||
***** TRY
|
||
|
|
||
00817889 64FF30 push dword ptr fs:[eax]
|
||
0081788C 648920 mov fs:[eax], esp
|
||
0081788F 33C0 xor eax, eax
|
||
00817891 55 push ebp
|
||
00817892 6860818100 push $00818160
|
||
|
||
***** TRY
|
||
|
|
||
00817897 64FF30 push dword ptr fs:[eax]
|
||
0081789A 648920 mov fs:[eax], esp
|
||
0081789D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
008178A0 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
008178A6 E88145CCFF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
||
|
|
||
008178AB E8E4A9CBFF call 004D2294
|
||
|
||
* Possible String Reference to: 'YF_Money_CR'
|
||
|
|
||
008178B0 6870838100 push $00818370
|
||
008178B5 6A04 push $04
|
||
008178B7 6A01 push $01
|
||
008178B9 8D55F8 lea edx, [ebp-$08]
|
||
008178BC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
008178BF 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Possible String Reference to: 'FK'
|
||
|
|
||
008178C5 B984838100 mov ecx, $00818384
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B7708()
|
||
|
|
||
008178CA E839FEF9FF call 007B7708
|
||
008178CF 84C0 test al, al
|
||
008178D1 753A jnz 0081790D
|
||
008178D3 33DB xor ebx, ebx
|
||
008178D5 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmSKCR.ADOQueryCmd : TADOQuery
|
||
|
|
||
008178D8 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
008178DE E84945CCFF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
||
|
|
||
008178E3 E8F8A9CBFF call 004D22E0
|
||
008178E8 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
008178EA B988838100 mov ecx, $00818388
|
||
|
||
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
||
|
|
||
008178EF BA90838100 mov edx, $00818390
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_00818411(Sender : TObject);
|
||
begin
|
||
(*
|
||
00818411 7064 jo 00818477
|
||
00818413 61 popa
|
||
00818414 7465 jz 0081847B
|
||
00818416 205946 and [ecx+$46], bl
|
||
00818419 5F pop edi
|
||
0081841A 4D dec ebp
|
||
0081841B 6F outsd
|
||
0081841C 6E outsb
|
||
0081841D 65795F jns 0081847F
|
||
00818420 43 inc ebx
|
||
00818421 52 push edx
|
||
00818422 49 dec ecx
|
||
00818423 44 inc esp
|
||
00818424 207365 and [ebx+$65], dh
|
||
00818427 7420 jz 00818449
|
||
00818429 43 inc ebx
|
||
0081842A 52 push edx
|
||
0081842B 49 dec ecx
|
||
0081842C 44 inc esp
|
||
0081842D 3D43524944 cmp eax, $44495243
|
||
00818432 2B31 sub esi, dword ptr [ecx]
|
||
00818434 0000 add [eax], al
|
||
|
||
00818436 0000 add [eax], al
|
||
|
||
00818438 FFFF DB $FF, $FF //
|
||
0081843A FFFF DB $FF, $FF //
|
||
0081843C 1C00 sbb al, $00
|
||
0081843E 0000 add [eax], al
|
||
|
||
00818440 7365 jnb 008184A7
|
||
00818442 6C insb
|
||
00818443 656374202A arpl gs:[eax+$2A], si
|
||
00818448 206672 and [esi+$72], ah
|
||
0081844B 6F outsd
|
||
0081844C 6D insd
|
||
0081844D 205946 and [ecx+$46], bl
|
||
00818450 5F pop edi
|
||
00818451 4D dec ebp
|
||
00818452 6F outsd
|
||
00818453 6E outsb
|
||
00818454 65795F jns 008184B6
|
||
00818457 43 inc ebx
|
||
00818458 52 push edx
|
||
00818459 49 dec ecx
|
||
0081845A 44 inc esp
|
||
0081845B 2000 and [eax], al
|
||
0081845D 0000 add [eax], al
|
||
|
||
0081845F 00FF add bh, bh
|
||
00818461 FFFF DB $FF, $FF //
|
||
00818463 FF23 jmp dword ptr [ebx]
|
||
00818465 0000 add [eax], al
|
||
|
||
00818467 007365 add [ebx+$65], dh
|
||
0081846A 6C insb
|
||
0081846B 656374202A arpl gs:[eax+$2A], si
|
||
00818470 206672 and [esi+$72], ah
|
||
00818473 6F outsd
|
||
00818474 6D insd
|
||
00818475 205946 and [ecx+$46], bl
|
||
00818478 5F pop edi
|
||
00818479 4D dec ebp
|
||
0081847A 6F outsd
|
||
0081847B 6E outsb
|
||
0081847C 65795F jns 008184DE
|
||
0081847F 4B dec ebx
|
||
00818480 43 inc ebx
|
||
00818481 207768 and [edi+$68], dh
|
||
00818484 657265 jb 008184EC
|
||
00818487 2031 and [ecx], dh
|
||
00818489 3D3200FFFF cmp eax, $FFFF0032
|
||
0081848E FFFF DB $FF, $FF //
|
||
00818490 0900 or [eax], eax
|
||
00818492 0000 add [eax], al
|
||
|
||
00818494 46 inc esi
|
||
00818495 61 popa
|
||
00818496 63746F72 arpl [edi+ebp*2+$72], si
|
||
0081849A 794E jns 008184EA
|
||
0081849C 6F outsd
|
||
0081849D 0000 add [eax], al
|
||
|
||
0081849F 00FF add bh, bh
|
||
008184A1 FFFF DB $FF, $FF //
|
||
008184A3 FF07 inc dword ptr [edi]
|
||
008184A5 0000 add [eax], al
|
||
|
||
008184A7 005A64 add [edx+$64], bl
|
||
008184AA 7953 jns 008184FF
|
||
008184AC 7472 jz 00818520
|
||
008184AE 3100 xor [eax], eax
|
||
008184B0 FFFF DB $FF, $FF //
|
||
008184B2 FFFF DB $FF, $FF //
|
||
008184B4 06 push es
|
||
008184B5 0000 add [eax], al
|
||
|
||
008184B7 00D3 add bl, dl
|
||
008184B9 A6 cmpsb
|
||
008184BA CA ret
|
||
|
||
008184BB D5 aad
|
||
008184BC CA ret
|
||
|
||
008184BD D5 aad
|
||
008184BE 0000 add [eax], al
|
||
|
||
008184C0 FFFF DB $FF, $FF //
|
||
008184C2 FFFF DB $FF, $FF //
|
||
008184C4 2300 and eax, [eax]
|
||
008184C6 0000 add [eax], al
|
||
|
||
008184C8 7365 jnb 0081852F
|
||
008184CA 6C insb
|
||
008184CB 656374202A arpl gs:[eax+$2A], si
|
||
008184D0 206672 and [esi+$72], ah
|
||
008184D3 6F outsd
|
||
008184D4 6D insd
|
||
008184D5 205946 and [ecx+$46], bl
|
||
008184D8 5F pop edi
|
||
008184D9 4D dec ebp
|
||
008184DA 6F outsd
|
||
008184DB 6E outsb
|
||
008184DC 65795F jns 0081853E
|
||
008184DF 43 inc ebx
|
||
008184E0 52 push edx
|
||
008184E1 207768 and [edi+$68], dh
|
||
008184E4 657265 jb 0081854C
|
||
008184E7 2031 and [ecx], dh
|
||
008184E9 3D3200FFFF cmp eax, $FFFF0032
|
||
008184EE FFFF DB $FF, $FF //
|
||
008184F0 0400 add al, +$00
|
||
008184F2 0000 add [eax], al
|
||
|
||
008184F4 59 pop ecx
|
||
008184F5 46 inc esi
|
||
008184F6 49 dec ecx
|
||
008184F7 44 inc esp
|
||
008184F8 0000 add [eax], al
|
||
|
||
008184FA 0000 add [eax], al
|
||
|
||
008184FC FFFF DB $FF, $FF //
|
||
008184FE FFFF DB $FF, $FF //
|
||
00818500 06 push es
|
||
00818501 0000 add [eax], al
|
||
|
||
00818503 004669 add [esi+$69], al
|
||
00818506 6C insb
|
||
00818507 6C insb
|
||
00818508 657200 jb 0081850B
|
||
0081850B 00FF add bh, bh
|
||
0081850D FFFF DB $FF, $FF //
|
||
0081850F FF06 inc dword ptr [esi]
|
||
00818511 0000 add [eax], al
|
||
|
||
00818513 004352 add [ebx+$52], al
|
||
00818516 54 push esp
|
||
00818517 7970 jns 00818589
|
||
00818519 650000 add gs:[eax], al
|
||
0081851C FFFF DB $FF, $FF //
|
||
0081851E FFFF DB $FF, $FF //
|
||
00818520 0800 or [eax], al
|
||
00818522 0000 add [eax], al
|
||
|
||
00818524 CA ret
|
||
|
||
00818525 D5 aad
|
||
00818526 BFEEB5C7BC mov edi, $BCC7B5EE
|
||
0081852B C700000000FF mov dword ptr [eax], $FF000000
|
||
00818531 FFFF DB $FF, $FF //
|
||
00818533 FF06 inc dword ptr [esi]
|
||
00818535 0000 add [eax], al
|
||
|
||
00818537 004352 add [ebx+$52], al
|
||
0081853A 46 inc esi
|
||
0081853B 6C insb
|
||
0081853C 61 popa
|
||
0081853D 670000 add [bx+si], al
|
||
00818540 FFFF DB $FF, $FF //
|
||
00818542 FFFF DB $FF, $FF //
|
||
00818544 07 pop es
|
||
00818545 0000 add [eax], al
|
||
|
||
00818547 005174 add [ecx+$74], dl
|
||
0081854A 7946 jns 00818592
|
||
0081854C 6C insb
|
||
0081854D 61 popa
|
||
0081854E 6700FF add bh, bh
|
||
00818551 FFFF DB $FF, $FF //
|
||
00818553 FF06 inc dword ptr [esi]
|
||
00818555 0000 add [eax], al
|
||
|
||
00818557 005946 add [ecx+$46], bl
|
||
0081855A 4E dec esi
|
||
0081855B 61 popa
|
||
0081855C 6D insd
|
||
0081855D 650000 add gs:[eax], al
|
||
00818560 FFFF DB $FF, $FF //
|
||
00818562 FFFF DB $FF, $FF //
|
||
00818564 06 push es
|
||
00818565 0000 add [eax], al
|
||
|
||
00818567 004352 add [ebx+$52], al
|
||
0081856A 54 push esp
|
||
0081856B 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
|
||
00818572 FFFF DB $FF, $FF //
|
||
00818574 0A00 or al, byte ptr [eax]
|
||
00818576 0000 add [eax], al
|
||
|
||
00818578 7979 jns 008185F3
|
||
0081857A 7979 jns 008185F5
|
||
0081857C 2D4D4D2D64 sub eax, $642D4D4D
|
||
00818581 640000 add fs:[eax], al
|
||
00818584 FFFF DB $FF, $FF //
|
||
00818586 FFFF DB $FF, $FF //
|
||
00818588 06 push es
|
||
00818589 0000 add [eax], al
|
||
|
||
0081858B 00425A add [edx+$5A], al
|
||
0081858E 54 push esp
|
||
0081858F 7970 jns 00818601
|
||
00818591 650000 add gs:[eax], al
|
||
00818594 FFFF DB $FF, $FF //
|
||
00818596 FFFF DB $FF, $FF //
|
||
00818598 0A00 or al, byte ptr [eax]
|
||
0081859A 0000 add [eax], al
|
||
|
||
0081859C 59 pop ecx
|
||
0081859D 46 inc esi
|
||
0081859E 44 inc esp
|
||
0081859F 656646 inc si
|
||
008185A2 6C insb
|
||
008185A3 61 popa
|
||
008185A4 673100 xor [bx+si], eax
|
||
008185A7 00FF add bh, bh
|
||
008185A9 FFFF DB $FF, $FF //
|
||
008185AB FF06 inc dword ptr [esi]
|
||
008185AD 0000 add [eax], al
|
||
|
||
008185AF 007374 add [ebx+$74], dh
|
||
008185B2 61 popa
|
||
008185B3 7475 jz 0081862A
|
||
008185B5 7300 jnb 008185B7
|
||
008185B7 00FF add bh, bh
|
||
008185B9 FFFF DB $FF, $FF //
|
||
008185BB FF06 inc dword ptr [esi]
|
||
008185BD 0000 add [eax], al
|
||
|
||
008185BF 00535A add [ebx+$5A], dl
|
||
008185C2 59 pop ecx
|
||
008185C3 46 inc esi
|
||
008185C4 49 dec ecx
|
||
008185C5 44 inc esp
|
||
008185C6 0000 add [eax], al
|
||
|
||
008185C8 FFFF DB $FF, $FF //
|
||
008185CA FFFF DB $FF, $FF //
|
||
008185CC 0900 or [eax], eax
|
||
008185CE 0000 add [eax], al
|
||
|
||
008185D0 43 inc ebx
|
||
008185D1 6F outsd
|
||
008185D2 6D insd
|
||
008185D3 54 push esp
|
||
008185D4 61 popa
|
||
008185D5 69746F75000000FF imul esi, [edi+ebp*2+$75], $FF000000
|
||
008185DD FFFF DB $FF, $FF //
|
||
008185DF FF0400 inc dword ptr [eax+eax]
|
||
008185E2 0000 add [eax], al
|
||
|
||
008185E4 4E dec esi
|
||
008185E5 6F outsd
|
||
008185E6 7465 jz 0081864D
|
||
008185E8 0000 add [eax], al
|
||
|
||
008185EA 0000 add [eax], al
|
||
|
||
008185EC FFFF DB $FF, $FF //
|
||
008185EE FFFF DB $FF, $FF //
|
||
008185F0 050000004D add eax, +$4D000000
|
||
008185F5 6F outsd
|
||
008185F6 6E outsb
|
||
008185F7 657900 jns 008185FA
|
||
008185FA 0000 add [eax], al
|
||
|
||
008185FC FFFF DB $FF, $FF //
|
||
008185FE FFFF DB $FF, $FF //
|
||
00818600 0500000048 add eax, +$48000000
|
||
00818605 7569 jnz 00818670
|
||
00818607 4C dec esp
|
||
00818608 7600 jbe 0081860A
|
||
0081860A 0000 add [eax], al
|
||
|
||
0081860C FFFF DB $FF, $FF //
|
||
0081860E FFFF DB $FF, $FF //
|
||
00818610 0400 add al, +$00
|
||
00818612 0000 add [eax], al
|
||
|
||
00818614 59 pop ecx
|
||
00818615 46 inc esi
|
||
00818616 49 dec ecx
|
||
00818617 640000 add fs:[eax], al
|
||
0081861A 0000 add [eax], al
|
||
|
||
0081861C D4 aam
|
||
0081861D F6D0 not al
|
||
0081861F D0CA ror dl, 1
|
||
00818621 A7 cmpsd
|
||
00818622 B0DC mov al, $DC
|
||
00818624 2100 and [eax], eax
|
||
00818626 0000 add [eax], al
|
||
|
||
00818628 55 push ebp
|
||
00818629 8BEC mov ebp, esp
|
||
0081862B B908000000 mov ecx, $00000008
|
||
00818630 6A00 push $00
|
||
00818632 6A00 push $00
|
||
00818634 49 dec ecx
|
||
00818635 75F9 jnz 00818630
|
||
00818637 51 push ecx
|
||
00818638 53 push ebx
|
||
00818639 56 push esi
|
||
0081863A 8BDA mov ebx, edx
|
||
0081863C 8BF0 mov esi, eax
|
||
0081863E 33C0 xor eax, eax
|
||
00818640 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>¾<EFBFBD><C2BE><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00818641 6836888100 push $00818836
|
||
|
||
***** TRY
|
||
|
|
||
00818646 64FF30 push dword ptr fs:[eax]
|
||
00818649 648920 mov fs:[eax], esp
|
||
0081864C 8D55FC lea edx, [ebp-$04]
|
||
0081864F 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;
|
||
|
|
||
00818651 E86670D7FF call 0058F6BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00818656 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081865C E8EB3CE4FF 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;
|
||
|
|
||
00818661 E8FE94E3FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
00818666 8B4050 mov eax, [eax+$50]
|
||
00818669 8D55F4 lea edx, [ebp-$0C]
|
||
0081866C 8B08 mov ecx, [eax]
|
||
0081866E FF5110 call dword ptr [ecx+$10]
|
||
00818671 8B45F4 mov eax, [ebp-$0C]
|
||
00818674 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818677 E87022BFFF call 0040A8EC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081867C 8B9E64030000 mov ebx, [esi+$0364]
|
||
00818682 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00818684 E8B7FDCAFF call 004C8440
|
||
00818689 8D55E0 lea edx, [ebp-$20]
|
||
0081868C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081868F E85822BFFF call 0040A8EC
|
||
00818694 8B55E0 mov edx, [ebp-$20]
|
||
00818697 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0081869A E82907C0FF call 00418DC8
|
||
0081869F 8D45E4 lea eax, [ebp-$1C]
|
||
008186A2 50 push eax
|
||
008186A3 8B55F8 mov edx, [ebp-$08]
|
||
008186A6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008186A8 E807E5CAFF call 004C6BB4
|
||
008186AD 5A pop edx
|
||
008186AE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
008186B0 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
008186B6 8BC3 mov eax, ebx
|
||
008186B8 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
008186BA FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
008186C0 8B9E0C030000 mov ebx, [esi+$030C]
|
||
008186C6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008186C8 E807D2CAFF call 004C58D4
|
||
008186CD 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;
|
||
|
|
||
008186CF E8D858CCFF call 004DDFAC
|
||
008186D4 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
008186D6 FF5244 call dword ptr [edx+$44]
|
||
008186D9 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;
|
||
|
|
||
008186DB E8CC58CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
008186E0 BA4C888100 mov edx, $0081884C
|
||
008186E5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008186E7 FF5138 call dword ptr [ecx+$38]
|
||
008186EA 8D55DC lea edx, [ebp-$24]
|
||
008186ED 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008186F0 E8F721BFFF call 0040A8EC
|
||
008186F5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
008186F9 7440 jz 0081873B
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
008186FB 6868888100 push $00818868
|
||
00818700 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00818703 6878888100 push $00818878
|
||
00818708 8D55D4 lea edx, [ebp-$2C]
|
||
0081870B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081870E E8D921BFFF call 0040A8EC
|
||
00818713 FF75D4 push dword ptr [ebp-$2C]
|
||
00818716 6884888100 push $00818884
|
||
0081871B 8D45D8 lea eax, [ebp-$28]
|
||
0081871E BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00818723 E88CCFBEFF call 004056B4
|
||
00818728 8B45D8 mov eax, [ebp-$28]
|
||
0081872B 50 push eax
|
||
0081872C 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;
|
||
|
|
||
0081872E E87958CCFF call 004DDFAC
|
||
00818733 5A pop edx
|
||
00818734 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00818736 FF5138 call dword ptr [ecx+$38]
|
||
00818739 EB2B jmp 00818766
|
||
0081873B 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;
|
||
|
|
||
0081873D E86A58CCFF call 004DDFAC
|
||
00818742 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00818743 6868888100 push $00818868
|
||
00818748 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0081874B 6890888100 push $00818890
|
||
00818750 8D45D0 lea eax, [ebp-$30]
|
||
00818753 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00818758 E857CFBEFF call 004056B4
|
||
0081875D 8B55D0 mov edx, [ebp-$30]
|
||
00818760 58 pop eax
|
||
00818761 8B08 mov ecx, [eax]
|
||
00818763 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00818766 68A0888100 push $008188A0
|
||
0081876B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081884D(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081884D 50 push eax
|
||
0081884E 6461 popa
|
||
00818850 7465 jz 008188B7
|
||
00818852 205943 and [ecx+$43], bl
|
||
00818855 4C dec esp
|
||
00818856 5F pop edi
|
||
00818857 53 push ebx
|
||
00818858 47 inc edi
|
||
00818859 5F pop edi
|
||
0081885A 48 dec eax
|
||
0081885B 5A pop edx
|
||
0081885C 2000 and [eax], al
|
||
0081885E 0000 add [eax], al
|
||
|
||
00818860 FFFF DB $FF, $FF //
|
||
00818862 FFFF DB $FF, $FF //
|
||
00818864 0500000020 add eax, +$20000000
|
||
00818869 53 push ebx
|
||
0081886A 657420 jz 0081888D
|
||
0081886D 0000 add [eax], al
|
||
|
||
0081886F 00FF add bh, bh
|
||
00818871 FFFF DB $FF, $FF //
|
||
00818873 FF02 inc dword ptr [edx]
|
||
00818875 0000 add [eax], al
|
||
|
||
00818877 003D270000FF add [$FF000027], bh
|
||
0081887D FFFF DB $FF, $FF //
|
||
0081887F FF01 inc dword ptr [ecx]
|
||
00818881 0000 add [eax], al
|
||
|
||
00818883 0027 add [edi], ah
|
||
00818885 0000 add [eax], al
|
||
|
||
00818887 00FF add bh, bh
|
||
00818889 FFFF DB $FF, $FF //
|
||
0081888B FF050000003D inc dword ptr [$3D000000]
|
||
00818891 4E dec esi
|
||
00818892 55 push ebp
|
||
00818893 4C dec esp
|
||
00818894 4C dec esp
|
||
00818895 0000 add [eax], al
|
||
|
||
00818897 00FF add bh, bh
|
||
00818899 FFFF DB $FF, $FF //
|
||
0081889B FF09 dec dword ptr [ecx]
|
||
0081889D 0000 add [eax], al
|
||
|
||
0081889F 002C4564697465 add [$65746964+eax*2], ch
|
||
008188A6 723D jb 008188E5
|
||
008188A8 27 daa
|
||
008188A9 0000 add [eax], al
|
||
|
||
008188AB 00FF add bh, bh
|
||
008188AD FFFF DB $FF, $FF //
|
||
008188AF FF1400 call dword ptr [eax+eax]
|
||
008188B2 0000 add [eax], al
|
||
|
||
008188B4 2C45 sub al, $45
|
||
008188B6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
008188BF 657464 jz 00818926
|
||
008188C2 61 popa
|
||
008188C3 7465 jz 0081892A
|
||
008188C5 2829 sub [ecx], ch
|
||
008188C7 2000 and [eax], al
|
||
008188C9 0000 add [eax], al
|
||
|
||
008188CB 00FF add bh, bh
|
||
008188CD FFFF DB $FF, $FF //
|
||
008188CF FF0E dec dword ptr [esi]
|
||
008188D1 0000 add [eax], al
|
||
|
||
008188D3 0020 add [eax], ah
|
||
008188D5 7768 jnbe 0081893F
|
||
008188D7 657265 jb 0081893F
|
||
008188DA 205375 and [ebx+$75], dl
|
||
008188DD 624964 bound ecx, qword ptr [ecx+$64]
|
||
008188E0 3D270000FF cmp eax, $FF000027
|
||
008188E5 FFFF DB $FF, $FF //
|
||
008188E7 FF0500000053 inc dword ptr [$53000000]
|
||
008188ED 7562 jnz 00818951
|
||
008188EF 49 dec ecx
|
||
008188F0 640000 add fs:[eax], al
|
||
008188F3 00558B add [ebp-$75], dl
|
||
008188F6 EC in al, dx
|
||
008188F7 B91C000000 mov ecx, $0000001C
|
||
008188FC 6A00 push $00
|
||
008188FE 6A00 push $00
|
||
00818900 49 dec ecx
|
||
00818901 75F9 jnz 008188FC
|
||
00818903 51 push ecx
|
||
00818904 53 push ebx
|
||
00818905 56 push esi
|
||
00818906 8BF2 mov esi, edx
|
||
00818908 8BD8 mov ebx, eax
|
||
0081890A 33C0 xor eax, eax
|
||
0081890C 55 push ebp
|
||
0081890D 686F8F8100 push $00818F6F
|
||
|
||
***** TRY
|
||
|
|
||
00818912 64FF30 push dword ptr fs:[eax]
|
||
00818915 648920 mov fs:[eax], esp
|
||
00818918 8D55FC lea edx, [ebp-$04]
|
||
0081891B 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;
|
||
|
|
||
0081891D E89A6DD7FF call 0058F6BC
|
||
00818922 8D55DC lea edx, [ebp-$24]
|
||
00818925 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818928 E8BF1FBFFF call 0040A8EC
|
||
0081892D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00818931 750D jnz 00818940
|
||
00818933 8D45FC lea eax, [ebp-$04]
|
||
00818936 BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081893B E87CCABEFF call 004053BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00818940 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
00818946 E8013AE4FF 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;
|
||
|
|
||
0081894B E81492E3FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
00818950 8B4050 mov eax, [eax+$50]
|
||
00818953 8D55D8 lea edx, [ebp-$28]
|
||
00818956 8B08 mov ecx, [eax]
|
||
00818958 FF5110 call dword ptr [ecx+$10]
|
||
0081895B 8B45D8 mov eax, [ebp-$28]
|
||
0081895E 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818961 E8861FBFFF call 0040A8EC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818966 8BB364030000 mov esi, [ebx+$0364]
|
||
0081896C 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081896E E8CDFACAFF call 004C8440
|
||
00818973 8D55C4 lea edx, [ebp-$3C]
|
||
00818976 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818979 E86E1FBFFF call 0040A8EC
|
||
0081897E 8B55C4 mov edx, [ebp-$3C]
|
||
00818981 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
00818984 E83F04C0FF call 00418DC8
|
||
00818989 8D45C8 lea eax, [ebp-$38]
|
||
0081898C 50 push eax
|
||
0081898D 8B55E0 mov edx, [ebp-$20]
|
||
00818990 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818992 E81DE2CAFF call 004C6BB4
|
||
00818997 5A pop edx
|
||
00818998 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0081899A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
008189A0 8BC6 mov eax, esi
|
||
008189A2 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
008189A4 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
008189AA 8BB308030000 mov esi, [ebx+$0308]
|
||
008189B0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008189B2 E81DCFCAFF call 004C58D4
|
||
008189B7 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
008189B9 E8EE55CCFF call 004DDFAC
|
||
008189BE 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
008189C0 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
008189C3 68908F8100 push $00818F90
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
008189C8 BAD88F8100 mov edx, $00818FD8
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
008189CD 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008189D3 E8DCE1CAFF call 004C6BB4
|
||
008189D8 8D55BC lea edx, [ebp-$44]
|
||
008189DB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
008189DD FF5160 call dword ptr [ecx+$60]
|
||
008189E0 FF75BC push dword ptr [ebp-$44]
|
||
008189E3 68E88F8100 push $00818FE8
|
||
008189E8 8D45C0 lea eax, [ebp-$40]
|
||
008189EB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008189F0 E8BFCCBEFF call 004056B4
|
||
008189F5 8B45C0 mov eax, [ebp-$40]
|
||
008189F8 50 push eax
|
||
008189F9 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
008189FB E8AC55CCFF call 004DDFAC
|
||
00818A00 5A pop edx
|
||
00818A01 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
00818A03 FF5138 call dword ptr [ecx+$38]
|
||
00818A06 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
00818A08 E8BBCECAFF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00818A0D BAF48F8100 mov edx, $00818FF4
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
00818A12 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818A18 E897E1CAFF call 004C6BB4
|
||
00818A1D 8D55E4 lea edx, [ebp-$1C]
|
||
00818A20 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
00818A22 FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
00818A25 BA04908100 mov edx, $00819004
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818A2A 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818A30 E87FE1CAFF call 004C6BB4
|
||
00818A35 8D55B8 lea edx, [ebp-$48]
|
||
00818A38 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00818A3A FF5160 call dword ptr [ecx+$60]
|
||
00818A3D 8B45B8 mov eax, [ebp-$48]
|
||
00818A40 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A43 E8A41EBFFF call 0040A8EC
|
||
00818A48 8D55B4 lea edx, [ebp-$4C]
|
||
00818A4B 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A4E E8991EBFFF call 0040A8EC
|
||
00818A53 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
00818A57 750D jnz 00818A66
|
||
00818A59 8D45F8 lea eax, [ebp-$08]
|
||
00818A5C BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818A61 E856C9BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Price'
|
||
|
|
||
00818A66 BA10908100 mov edx, $00819010
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818A6B 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818A71 E83EE1CAFF call 004C6BB4
|
||
00818A76 8D55B0 lea edx, [ebp-$50]
|
||
00818A79 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00818A7B FF5160 call dword ptr [ecx+$60]
|
||
00818A7E 8B45B0 mov eax, [ebp-$50]
|
||
00818A81 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A84 E8631EBFFF call 0040A8EC
|
||
00818A89 8D55AC lea edx, [ebp-$54]
|
||
00818A8C 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818A8F E8581EBFFF call 0040A8EC
|
||
00818A94 837DAC00 cmp dword ptr [ebp-$54], +$00
|
||
00818A98 750D jnz 00818AA7
|
||
00818A9A 8D45F4 lea eax, [ebp-$0C]
|
||
00818A9D BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818AA2 E815C9BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
00818AA7 BA04908100 mov edx, $00819004
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818AAC 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818AB2 E8FDE0CAFF call 004C6BB4
|
||
00818AB7 8D55A8 lea edx, [ebp-$58]
|
||
00818ABA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00818ABC FF5160 call dword ptr [ecx+$60]
|
||
00818ABF 8B45A8 mov eax, [ebp-$58]
|
||
00818AC2 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818AC5 E8221EBFFF call 0040A8EC
|
||
00818ACA 8D55A4 lea edx, [ebp-$5C]
|
||
00818ACD 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818AD0 E8171EBFFF call 0040A8EC
|
||
00818AD5 837DA400 cmp dword ptr [ebp-$5C], +$00
|
||
00818AD9 750D jnz 00818AE8
|
||
00818ADB 8D45F8 lea eax, [ebp-$08]
|
||
00818ADE BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818AE3 E8D4C8BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818AE8 BA20908100 mov edx, $00819020
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818AED 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818AF3 E8BCE0CAFF call 004C6BB4
|
||
00818AF8 8D55A0 lea edx, [ebp-$60]
|
||
00818AFB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00818AFD FF5160 call dword ptr [ecx+$60]
|
||
00818B00 8B45A0 mov eax, [ebp-$60]
|
||
00818B03 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B06 E8E11DBFFF call 0040A8EC
|
||
00818B0B 8D559C lea edx, [ebp-$64]
|
||
00818B0E 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B11 E8D61DBFFF call 0040A8EC
|
||
00818B16 837D9C00 cmp dword ptr [ebp-$64], +$00
|
||
00818B1A 750D jnz 00818B29
|
||
00818B1C 8D45F0 lea eax, [ebp-$10]
|
||
00818B1F BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818B24 E893C8BEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
00818B29 BA30908100 mov edx, $00819030
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818B2E 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818B34 E87BE0CAFF call 004C6BB4
|
||
00818B39 8D5598 lea edx, [ebp-$68]
|
||
00818B3C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00818B3E FF5160 call dword ptr [ecx+$60]
|
||
00818B41 8B4598 mov eax, [ebp-$68]
|
||
00818B44 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B47 E8A01DBFFF call 0040A8EC
|
||
00818B4C 8D5594 lea edx, [ebp-$6C]
|
||
00818B4F 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B52 E8951DBFFF call 0040A8EC
|
||
00818B57 837D9400 cmp dword ptr [ebp-$6C], +$00
|
||
00818B5B 750D jnz 00818B6A
|
||
00818B5D 8D45EC lea eax, [ebp-$14]
|
||
00818B60 BA848F8100 mov edx, $00818F84
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00818B65 E852C8BEFF call 004053BC
|
||
00818B6A 8D5590 lea edx, [ebp-$70]
|
||
00818B6D 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B70 E8771DBFFF call 0040A8EC
|
||
00818B75 8B4590 mov eax, [ebp-$70]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818B78 BA20908100 mov edx, $00819020
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00818B7D E8BECBBEFF call 00405740
|
||
00818B82 0F84AD000000 jz 00818C35
|
||
00818B88 8D558C lea edx, [ebp-$74]
|
||
00818B8B 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818B8E E8591DBFFF call 0040A8EC
|
||
00818B93 8B458C mov eax, [ebp-$74]
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
00818B96 BA30908100 mov edx, $00819030
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00818B9B E8A0CBBEFF call 00405740
|
||
00818BA0 7469 jz 00818C0B
|
||
00818BA2 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BA5 E8824BBFFF call 0040D72C
|
||
00818BAA DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818BAD 9B wait
|
||
00818BAE 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BB1 E8764BBFFF call 0040D72C
|
||
00818BB6 DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818BB9 DEC9 fmulp st(1), st(0)
|
||
00818BBB DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
|
||
00818BC1 9B wait
|
||
00818BC2 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BC5 E8624BBFFF call 0040D72C
|
||
00818BCA DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
|
||
00818BD0 DEC9 fmulp st(1), st(0)
|
||
00818BD2 83C4F4 add esp, -$0C
|
||
00818BD5 DB3C24 fstp tbyte ptr [esp]
|
||
00818BD8 9B wait
|
||
00818BD9 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00818BDC E8CB49BFFF call 0040D5AC
|
||
00818BE1 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BE4 E8434BBFFF call 0040D72C
|
||
00818BE9 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818BEC 9B wait
|
||
00818BED 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818BF0 E8374BBFFF call 0040D72C
|
||
00818BF5 DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818BF8 DEC9 fmulp st(1), st(0)
|
||
00818BFA 83C4F4 add esp, -$0C
|
||
00818BFD DB3C24 fstp tbyte ptr [esp]
|
||
00818C00 9B wait
|
||
00818C01 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
00818C04 E8A349BFFF call 0040D5AC
|
||
00818C09 EB52 jmp 00818C5D
|
||
00818C0B 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C0E E8194BBFFF call 0040D72C
|
||
00818C13 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818C16 9B wait
|
||
00818C17 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C1A E80D4BBFFF call 0040D72C
|
||
00818C1F DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818C22 DEC9 fmulp st(1), st(0)
|
||
00818C24 83C4F4 add esp, -$0C
|
||
00818C27 DB3C24 fstp tbyte ptr [esp]
|
||
00818C2A 9B wait
|
||
00818C2B 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00818C2E E87949BFFF call 0040D5AC
|
||
00818C33 EB28 jmp 00818C5D
|
||
00818C35 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C38 E8EF4ABFFF call 0040D72C
|
||
00818C3D DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00818C40 9B wait
|
||
00818C41 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C44 E8E34ABFFF call 0040D72C
|
||
00818C49 DB6D80 fld tbyte ptr [ebp-$80]
|
||
00818C4C DEC9 fmulp st(1), st(0)
|
||
00818C4E 83C4F4 add esp, -$0C
|
||
00818C51 DB3C24 fstp tbyte ptr [esp]
|
||
00818C54 9B wait
|
||
00818C55 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00818C58 E84F49BFFF call 0040D5AC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
00818C5D 8BB364030000 mov esi, [ebx+$0364]
|
||
00818C63 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00818C65 E8D6F7CAFF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818C6A BA20908100 mov edx, $00819020
|
||
00818C6F 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818C71 E83EDFCAFF call 004C6BB4
|
||
00818C76 50 push eax
|
||
00818C77 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818C7A E8AD4ABFFF call 0040D72C
|
||
00818C7F 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00818C85 E80201C0FF call 00418D8C
|
||
00818C8A 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
|
||
00818C90 58 pop eax
|
||
00818C91 8B08 mov ecx, [eax]
|
||
00818C93 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00818C99 BAF48F8100 mov edx, $00818FF4
|
||
00818C9E 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00818CA0 E80FDFCAFF call 004C6BB4
|
||
00818CA5 50 push eax
|
||
00818CA6 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00818CA9 E87E4ABFFF call 0040D72C
|
||
00818CAE 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00818CB4 E8D300C0FF call 00418D8C
|
||
00818CB9 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
|
||
00818CBF 58 pop eax
|
||
00818CC0 8B08 mov ecx, [eax]
|
||
00818CC2 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00818CC8 8BC6 mov eax, esi
|
||
00818CCA 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
00818CCC FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00818CD2 8BB30C030000 mov esi, [ebx+$030C]
|
||
00818CD8 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00818CDA E8F5CBCAFF call 004C58D4
|
||
00818CDF 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00818CE1 E8C652CCFF call 004DDFAC
|
||
00818CE6 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00818CE8 FF5244 call dword ptr [edx+$44]
|
||
00818CEB 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00818CED E8BA52CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00818CF2 BA40908100 mov edx, $00819040
|
||
00818CF7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00818CF9 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00818CFC 685C908100 push $0081905C
|
||
00818D01 FF75E0 push dword ptr [ebp-$20]
|
||
00818D04 686C908100 push $0081906C
|
||
00818D09 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
|
||
00818D0F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818D12 E8D51BBFFF call 0040A8EC
|
||
00818D17 FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
|
||
00818D1D 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
|
||
00818D23 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00818D28 E887C9BEFF call 004056B4
|
||
00818D2D 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
|
||
00818D33 50 push eax
|
||
00818D34 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00818D36 E87152CCFF call 004DDFAC
|
||
00818D3B 5A pop edx
|
||
00818D3C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00818D3E FF5138 call dword ptr [ecx+$38]
|
||
00818D41 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
|
||
00818D47 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00818D4A E89D1BBFFF call 0040A8EC
|
||
00818D4F 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00818D55 BA20908100 mov edx, $00819020
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00818D5A E8E1C9BEFF call 00405740
|
||
00818D5F 7427 jz 00818D88
|
||
00818D61 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00818D63 E84452CCFF call 004DDFAC
|
||
00818D68 50 push eax
|
||
00818D69 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
|
||
00818D6F 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',Money='
|
||
|
|
||
00818D72 BA78908100 mov edx, $00819078
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00818D77 E8C4C8BEFF call 00405640
|
||
00818D7C 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
|
||
00818D82 58 pop eax
|
||
00818D83 8B08 mov ecx, [eax]
|
||
00818D85 FF5138 call dword ptr [ecx+$38]
|
||
00818D88 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
00818D8A E81D52CCFF call 004DDFAC
|
||
00818D8F 50 push eax
|
||
00818D90 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
|
||
00818D96 8B4DE8 mov ecx, [ebp-$18]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
00818D99 BA88908100 mov edx, $00819088
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00818D9E E89DC8BEFF call 00405640
|
||
00818DA3 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
|
||
00818DA9 58 pop eax
|
||
00818DAA 8B08 mov ecx, [eax]
|
||
00818DAC FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00818DAF 689C908100 push $0081909C
|
||
00818DB4 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_00819041(Sender : TObject);
|
||
begin
|
||
(*
|
||
00819041 50 push eax
|
||
00819042 6461 popa
|
||
00819044 7465 jz 008190AB
|
||
00819046 205946 and [ecx+$46], bl
|
||
00819049 5F pop edi
|
||
0081904A 4D dec ebp
|
||
0081904B 6F outsd
|
||
0081904C 6E outsb
|
||
0081904D 65795F jns 008190AF
|
||
00819050 43 inc ebx
|
||
00819051 52 push edx
|
||
00819052 2000 and [eax], al
|
||
00819054 FFFF DB $FF, $FF //
|
||
00819056 FFFF DB $FF, $FF //
|
||
00819058 0500000020 add eax, +$20000000
|
||
0081905D 53 push ebx
|
||
0081905E 657420 jz 00819081
|
||
00819061 0000 add [eax], al
|
||
|
||
00819063 00FF add bh, bh
|
||
00819065 FFFF DB $FF, $FF //
|
||
00819067 FF01 inc dword ptr [ecx]
|
||
00819069 0000 add [eax], al
|
||
|
||
0081906B 003D000000FF add [$FF000000], bh
|
||
00819071 FFFF DB $FF, $FF //
|
||
00819073 FF07 inc dword ptr [edi]
|
||
00819075 0000 add [eax], al
|
||
|
||
00819077 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
|
||
0081907E 3D00FFFFFF cmp eax, $FFFFFF00
|
||
00819083 FF09 dec dword ptr [ecx]
|
||
00819085 0000 add [eax], al
|
||
|
||
00819087 002C42 add [edx+eax*2], ch
|
||
0081908A 42 inc edx
|
||
0081908B 4D dec ebp
|
||
0081908C 6F outsd
|
||
0081908D 6E outsb
|
||
0081908E 65793D jns 008190CE
|
||
00819091 0000 add [eax], al
|
||
|
||
00819093 00FF add bh, bh
|
||
00819095 FFFF DB $FF, $FF //
|
||
00819097 FF09 dec dword ptr [ecx]
|
||
00819099 0000 add [eax], al
|
||
|
||
0081909B 002C4564697465 add [$65746964+eax*2], ch
|
||
008190A2 723D jb 008190E1
|
||
008190A4 27 daa
|
||
008190A5 0000 add [eax], al
|
||
|
||
008190A7 00FF add bh, bh
|
||
008190A9 FFFF DB $FF, $FF //
|
||
008190AB FF1400 call dword ptr [eax+eax]
|
||
008190AE 0000 add [eax], al
|
||
|
||
008190B0 2C45 sub al, $45
|
||
008190B2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
008190BB 657464 jz 00819122
|
||
008190BE 61 popa
|
||
008190BF 7465 jz 00819126
|
||
008190C1 2829 sub [ecx], ch
|
||
008190C3 2000 and [eax], al
|
||
008190C5 0000 add [eax], al
|
||
|
||
008190C7 00FF add bh, bh
|
||
008190C9 FFFF DB $FF, $FF //
|
||
008190CB FF0D00000020 dec dword ptr [$20000000]
|
||
008190D1 7768 jnbe 0081913B
|
||
008190D3 657265 jb 0081913B
|
||
008190D6 205946 and [ecx+$46], bl
|
||
008190D9 49 dec ecx
|
||
008190DA 643D27000000 cmp eax, $00000027
|
||
008190E0 FFFF DB $FF, $FF //
|
||
008190E2 FFFF DB $FF, $FF //
|
||
008190E4 0400 add al, +$00
|
||
008190E6 0000 add [eax], al
|
||
|
||
008190E8 59 pop ecx
|
||
008190E9 46 inc esi
|
||
008190EA 49 dec ecx
|
||
008190EB 640000 add fs:[eax], al
|
||
008190EE 0000 add [eax], al
|
||
|
||
008190F0 FFFF DB $FF, $FF //
|
||
008190F2 FFFF DB $FF, $FF //
|
||
008190F4 2B00 sub eax, dword ptr [eax]
|
||
008190F6 0000 add [eax], al
|
||
|
||
008190F8 55 push ebp
|
||
008190F9 7064 jo 0081915F
|
||
008190FB 61 popa
|
||
008190FC 7465 jz 00819163
|
||
008190FE 205946 and [ecx+$46], bl
|
||
00819101 5F pop edi
|
||
00819102 4D dec ebp
|
||
00819103 6F outsd
|
||
00819104 6E outsb
|
||
00819105 65795F jns 00819167
|
||
00819108 4B dec ebx
|
||
00819109 43 inc ebx
|
||
0081910A 205365 and [ebx+$65], dl
|
||
0081910D 7420 jz 0081912F
|
||
0081910F 4B dec ebx
|
||
00819110 43 inc ebx
|
||
00819111 42 inc edx
|
||
00819112 42 inc edx
|
||
00819113 4D dec ebp
|
||
00819114 6F outsd
|
||
00819115 6E outsb
|
||
00819116 65793D jns 00819156
|
||
00819119 4B dec ebx
|
||
0081911A 43 inc ebx
|
||
0081911B 42 inc edx
|
||
0081911C 42 inc edx
|
||
0081911D 4D dec ebp
|
||
0081911E 6F outsd
|
||
0081911F 6E outsb
|
||
00819120 65792D jns 00819150
|
||
00819123 00FF add bh, bh
|
||
00819125 FFFF DB $FF, $FF //
|
||
00819127 FF01 inc dword ptr [ecx]
|
||
00819129 0000 add [eax], al
|
||
|
||
0081912B 002B add [ebx], ch
|
||
0081912D 0000 add [eax], al
|
||
|
||
0081912F 00FF add bh, bh
|
||
00819131 FFFF DB $FF, $FF //
|
||
00819133 FF0D00000020 dec dword ptr [$20000000]
|
||
00819139 7768 jnbe 008191A3
|
||
0081913B 657265 jb 008191A3
|
||
0081913E 204352 and [ebx+$52], al
|
||
00819141 49 dec ecx
|
||
00819142 44 inc esp
|
||
00819143 3D27000000 cmp eax, $00000027
|
||
00819148 FFFF DB $FF, $FF //
|
||
0081914A FFFF DB $FF, $FF //
|
||
0081914C 0400 add al, +$00
|
||
0081914E 0000 add [eax], al
|
||
|
||
00819150 43 inc ebx
|
||
00819151 52 push edx
|
||
00819152 49 dec ecx
|
||
00819153 44 inc esp
|
||
00819154 0000 add [eax], al
|
||
|
||
00819156 0000 add [eax], al
|
||
|
||
00819158 55 push ebp
|
||
00819159 8BEC mov ebp, esp
|
||
0081915B B908000000 mov ecx, $00000008
|
||
00819160 6A00 push $00
|
||
00819162 6A00 push $00
|
||
00819164 49 dec ecx
|
||
00819165 75F9 jnz 00819160
|
||
00819167 51 push ecx
|
||
00819168 53 push ebx
|
||
00819169 56 push esi
|
||
0081916A 8BDA mov ebx, edx
|
||
0081916C 8BF0 mov esi, eax
|
||
0081916E 33C0 xor eax, eax
|
||
00819170 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>q<EFBFBD><71><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00819171 687E938100 push $0081937E
|
||
|
||
***** TRY
|
||
|
|
||
00819176 64FF30 push dword ptr fs:[eax]
|
||
00819179 648920 mov fs:[eax], esp
|
||
0081917C 8D55FC lea edx, [ebp-$04]
|
||
0081917F 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;
|
||
|
|
||
00819181 E83665D7FF call 0058F6BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00819186 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081918C E8BB31E4FF 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;
|
||
|
|
||
00819191 E8CE89E3FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
00819196 8B4050 mov eax, [eax+$50]
|
||
00819199 8D55F4 lea edx, [ebp-$0C]
|
||
0081919C 8B08 mov ecx, [eax]
|
||
0081919E FF5110 call dword ptr [ecx+$10]
|
||
008191A1 8B45F4 mov eax, [ebp-$0C]
|
||
008191A4 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008191A7 E84017BFFF call 0040A8EC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
008191AC 8B9E64030000 mov ebx, [esi+$0364]
|
||
008191B2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
008191B4 E887F2CAFF call 004C8440
|
||
008191B9 8D55E0 lea edx, [ebp-$20]
|
||
008191BC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008191BF E82817BFFF call 0040A8EC
|
||
008191C4 8B55E0 mov edx, [ebp-$20]
|
||
008191C7 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
008191CA E8F9FBBFFF call 00418DC8
|
||
008191CF 8D45E4 lea eax, [ebp-$1C]
|
||
008191D2 50 push eax
|
||
008191D3 8B55F8 mov edx, [ebp-$08]
|
||
008191D6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008191D8 E8D7D9CAFF call 004C6BB4
|
||
008191DD 5A pop edx
|
||
008191DE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
008191E0 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
008191E6 8BC3 mov eax, ebx
|
||
008191E8 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
008191EA FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
008191F0 8B9E0C030000 mov ebx, [esi+$030C]
|
||
008191F6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008191F8 E8D7C6CAFF call 004C58D4
|
||
008191FD 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;
|
||
|
|
||
008191FF E8A84DCCFF call 004DDFAC
|
||
00819204 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00819206 FF5244 call dword ptr [edx+$44]
|
||
00819209 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;
|
||
|
|
||
0081920B E89C4DCCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00819210 BA94938100 mov edx, $00819394
|
||
00819215 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00819217 FF5138 call dword ptr [ecx+$38]
|
||
0081921A 8D55DC lea edx, [ebp-$24]
|
||
0081921D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00819220 E8C716BFFF call 0040A8EC
|
||
00819225 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00819229 7440 jz 0081926B
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0081922B 68B0938100 push $008193B0
|
||
00819230 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00819233 68C0938100 push $008193C0
|
||
00819238 8D55D4 lea edx, [ebp-$2C]
|
||
0081923B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081923E E8A916BFFF call 0040A8EC
|
||
00819243 FF75D4 push dword ptr [ebp-$2C]
|
||
00819246 68CC938100 push $008193CC
|
||
0081924B 8D45D8 lea eax, [ebp-$28]
|
||
0081924E BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00819253 E85CC4BEFF call 004056B4
|
||
00819258 8B45D8 mov eax, [ebp-$28]
|
||
0081925B 50 push eax
|
||
0081925C 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;
|
||
|
|
||
0081925E E8494DCCFF call 004DDFAC
|
||
00819263 5A pop edx
|
||
00819264 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00819266 FF5138 call dword ptr [ecx+$38]
|
||
00819269 EB2B jmp 00819296
|
||
0081926B 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;
|
||
|
|
||
0081926D E83A4DCCFF call 004DDFAC
|
||
00819272 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00819273 68B0938100 push $008193B0
|
||
00819278 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0081927B 68D8938100 push $008193D8
|
||
00819280 8D45D0 lea eax, [ebp-$30]
|
||
00819283 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00819288 E827C4BEFF call 004056B4
|
||
0081928D 8B55D0 mov edx, [ebp-$30]
|
||
00819290 58 pop eax
|
||
00819291 8B08 mov ecx, [eax]
|
||
00819293 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00819296 68E8938100 push $008193E8
|
||
0081929B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_00819395(Sender : TObject);
|
||
begin
|
||
(*
|
||
00819395 50 push eax
|
||
00819396 6461 popa
|
||
00819398 7465 jz 008193FF
|
||
0081939A 205946 and [ecx+$46], bl
|
||
0081939D 5F pop edi
|
||
0081939E 4D dec ebp
|
||
0081939F 6F outsd
|
||
008193A0 6E outsb
|
||
008193A1 65795F jns 00819403
|
||
008193A4 43 inc ebx
|
||
008193A5 52 push edx
|
||
008193A6 2000 and [eax], al
|
||
008193A8 FFFF DB $FF, $FF //
|
||
008193AA FFFF DB $FF, $FF //
|
||
008193AC 0500000020 add eax, +$20000000
|
||
008193B1 53 push ebx
|
||
008193B2 657420 jz 008193D5
|
||
008193B5 0000 add [eax], al
|
||
|
||
008193B7 00FF add bh, bh
|
||
008193B9 FFFF DB $FF, $FF //
|
||
008193BB FF02 inc dword ptr [edx]
|
||
008193BD 0000 add [eax], al
|
||
|
||
008193BF 003D270000FF add [$FF000027], bh
|
||
008193C5 FFFF DB $FF, $FF //
|
||
008193C7 FF01 inc dword ptr [ecx]
|
||
008193C9 0000 add [eax], al
|
||
|
||
008193CB 0027 add [edi], ah
|
||
008193CD 0000 add [eax], al
|
||
|
||
008193CF 00FF add bh, bh
|
||
008193D1 FFFF DB $FF, $FF //
|
||
008193D3 FF050000003D inc dword ptr [$3D000000]
|
||
008193D9 4E dec esi
|
||
008193DA 55 push ebp
|
||
008193DB 4C dec esp
|
||
008193DC 4C dec esp
|
||
008193DD 0000 add [eax], al
|
||
|
||
008193DF 00FF add bh, bh
|
||
008193E1 FFFF DB $FF, $FF //
|
||
008193E3 FF09 dec dword ptr [ecx]
|
||
008193E5 0000 add [eax], al
|
||
|
||
008193E7 002C4564697465 add [$65746964+eax*2], ch
|
||
008193EE 723D jb 0081942D
|
||
008193F0 27 daa
|
||
008193F1 0000 add [eax], al
|
||
|
||
008193F3 00FF add bh, bh
|
||
008193F5 FFFF DB $FF, $FF //
|
||
008193F7 FF1400 call dword ptr [eax+eax]
|
||
008193FA 0000 add [eax], al
|
||
|
||
008193FC 2C45 sub al, $45
|
||
008193FE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
00819407 657464 jz 0081946E
|
||
0081940A 61 popa
|
||
0081940B 7465 jz 00819472
|
||
0081940D 2829 sub [ecx], ch
|
||
0081940F 2000 and [eax], al
|
||
00819411 0000 add [eax], al
|
||
|
||
00819413 00FF add bh, bh
|
||
00819415 FFFF DB $FF, $FF //
|
||
00819417 FF0D00000020 dec dword ptr [$20000000]
|
||
0081941D 7768 jnbe 00819487
|
||
0081941F 657265 jb 00819487
|
||
00819422 205946 and [ecx+$46], bl
|
||
00819425 49 dec ecx
|
||
00819426 643D27000000 cmp eax, $00000027
|
||
0081942C FFFF DB $FF, $FF //
|
||
0081942E FFFF DB $FF, $FF //
|
||
00819430 0400 add al, +$00
|
||
00819432 0000 add [eax], al
|
||
|
||
00819434 59 pop ecx
|
||
00819435 46 inc esi
|
||
00819436 49 dec ecx
|
||
00819437 640000 add fs:[eax], al
|
||
0081943A 0000 add [eax], al
|
||
|
||
0081943C 55 push ebp
|
||
0081943D 8BEC mov ebp, esp
|
||
0081943F B91E000000 mov ecx, $0000001E
|
||
00819444 6A00 push $00
|
||
00819446 6A00 push $00
|
||
00819448 49 dec ecx
|
||
00819449 75F9 jnz 00819444
|
||
0081944B 53 push ebx
|
||
0081944C 56 push esi
|
||
0081944D 8945FC mov [ebp-$04], eax
|
||
00819450 33C0 xor eax, eax
|
||
00819452 55 push ebp
|
||
00819453 68D4998100 push $008199D4
|
||
|
||
***** TRY
|
||
|
|
||
00819458 64FF30 push dword ptr fs:[eax]
|
||
0081945B 648920 mov fs:[eax], esp
|
||
0081945E 33C0 xor eax, eax
|
||
00819460 55 push ebp
|
||
00819461 68F6988100 push $008198F6
|
||
|
||
***** TRY
|
||
|
|
||
00819466 64FF30 push dword ptr fs:[eax]
|
||
00819469 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_00819E99(Sender : TObject);
|
||
begin
|
||
(*
|
||
00819E99 50 push eax
|
||
00819E9A 6461 popa
|
||
00819E9C 7465 jz 00819F03
|
||
00819E9E 205946 and [ecx+$46], bl
|
||
00819EA1 5F pop edi
|
||
00819EA2 4D dec ebp
|
||
00819EA3 6F outsd
|
||
00819EA4 6E outsb
|
||
00819EA5 65795F jns 00819F07
|
||
00819EA8 43 inc ebx
|
||
00819EA9 52 push edx
|
||
00819EAA 2000 and [eax], al
|
||
00819EAC FFFF DB $FF, $FF //
|
||
00819EAE FFFF DB $FF, $FF //
|
||
00819EB0 0D00000020 or eax, $20000000
|
||
00819EB5 53 push ebx
|
||
00819EB6 657420 jz 00819ED9
|
||
00819EB9 59 pop ecx
|
||
00819EBA 46 inc esi
|
||
00819EBB 43 inc ebx
|
||
00819EBC 6F outsd
|
||
00819EBD 64653D27000000 cmp eax, $00000027
|
||
00819EC4 FFFF DB $FF, $FF //
|
||
00819EC6 FFFF DB $FF, $FF //
|
||
00819EC8 0100 add [eax], eax
|
||
00819ECA 0000 add [eax], al
|
||
|
||
00819ECC 27 daa
|
||
00819ECD 0000 add [eax], al
|
||
|
||
00819ECF 00FF add bh, bh
|
||
00819ED1 FFFF DB $FF, $FF //
|
||
00819ED3 FF0A dec dword ptr [edx]
|
||
00819ED5 0000 add [eax], al
|
||
|
||
00819ED7 0020 add [eax], ah
|
||
00819ED9 2C59 sub al, $59
|
||
00819EDB 46 inc esi
|
||
00819EDC 4E dec esi
|
||
00819EDD 61 popa
|
||
00819EDE 6D insd
|
||
00819EDF 653D270000FF cmp eax, $FF000027
|
||
00819EE5 FFFF DB $FF, $FF //
|
||
00819EE7 FF09 dec dword ptr [ecx]
|
||
00819EE9 0000 add [eax], al
|
||
|
||
00819EEB 002C4564697465 add [$65746964+eax*2], ch
|
||
00819EF2 723D jb 00819F31
|
||
00819EF4 27 daa
|
||
00819EF5 0000 add [eax], al
|
||
|
||
00819EF7 00FF add bh, bh
|
||
00819EF9 FFFF DB $FF, $FF //
|
||
00819EFB FF1400 call dword ptr [eax+eax]
|
||
00819EFE 0000 add [eax], al
|
||
|
||
00819F00 2C45 sub al, $45
|
||
00819F02 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
00819F0B 657464 jz 00819F72
|
||
00819F0E 61 popa
|
||
00819F0F 7465 jz 00819F76
|
||
00819F11 2829 sub [ecx], ch
|
||
00819F13 2000 and [eax], al
|
||
00819F15 0000 add [eax], al
|
||
|
||
00819F17 00FF add bh, bh
|
||
00819F19 FFFF DB $FF, $FF //
|
||
00819F1B FF0D00000020 dec dword ptr [$20000000]
|
||
00819F21 7768 jnbe 00819F8B
|
||
00819F23 657265 jb 00819F8B
|
||
00819F26 205946 and [ecx+$46], bl
|
||
00819F29 49 dec ecx
|
||
00819F2A 643D27000000 cmp eax, $00000027
|
||
00819F30 FFFF DB $FF, $FF //
|
||
00819F32 FFFF DB $FF, $FF //
|
||
00819F34 0400 add al, +$00
|
||
00819F36 0000 add [eax], al
|
||
|
||
00819F38 59 pop ecx
|
||
00819F39 46 inc esi
|
||
00819F3A 49 dec ecx
|
||
00819F3B 640000 add fs:[eax], al
|
||
00819F3E 0000 add [eax], al
|
||
|
||
00819F40 55 push ebp
|
||
00819F41 8BEC mov ebp, esp
|
||
00819F43 51 push ecx
|
||
00819F44 B906000000 mov ecx, $00000006
|
||
00819F49 6A00 push $00
|
||
00819F4B 6A00 push $00
|
||
00819F4D 49 dec ecx
|
||
00819F4E 75F9 jnz 00819F49
|
||
00819F50 51 push ecx
|
||
00819F51 874DFC xchg [ebp-$04], ecx
|
||
00819F54 53 push ebx
|
||
00819F55 56 push esi
|
||
00819F56 8BF0 mov esi, eax
|
||
00819F58 33C0 xor eax, eax
|
||
00819F5A 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00819F5B 6899A18100 push $0081A199
|
||
|
||
***** TRY
|
||
|
|
||
00819F60 64FF30 push dword ptr fs:[eax]
|
||
00819F63 648920 mov fs:[eax], esp
|
||
00819F66 33C0 xor eax, eax
|
||
00819F68 55 push ebp
|
||
00819F69 686FA18100 push $0081A16F
|
||
|
||
***** TRY
|
||
|
|
||
00819F6E 64FF30 push dword ptr fs:[eax]
|
||
00819F71 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081A1B6(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A1B6 6E outsb
|
||
0081A1B7 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
|
||
0081A1BF FF08 dec dword ptr [eax]
|
||
0081A1C1 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081A1EC(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A1EC 6E outsb
|
||
0081A1ED 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
|
||
0081A1F5 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081A1F9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A1F9 50 push eax
|
||
0081A1FA 6461 popa
|
||
0081A1FC 7465 jz 0081A263
|
||
0081A1FE 205946 and [ecx+$46], bl
|
||
0081A201 5F pop edi
|
||
0081A202 4D dec ebp
|
||
0081A203 6F outsd
|
||
0081A204 6E outsb
|
||
0081A205 65795F jns 0081A267
|
||
0081A208 43 inc ebx
|
||
0081A209 52 push edx
|
||
0081A20A 2000 and [eax], al
|
||
0081A20C FFFF DB $FF, $FF //
|
||
0081A20E FFFF DB $FF, $FF //
|
||
0081A210 0E push cs
|
||
0081A211 0000 add [eax], al
|
||
|
||
0081A213 0020 add [eax], ah
|
||
0081A215 53 push ebx
|
||
0081A216 657420 jz 0081A239
|
||
0081A219 51 push ecx
|
||
0081A21A 7479 jz 0081A295
|
||
0081A21C 55 push ebp
|
||
0081A21D 6E outsb
|
||
0081A21E 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
|
||
0081A226 FFFF DB $FF, $FF //
|
||
0081A228 07 pop es
|
||
0081A229 0000 add [eax], al
|
||
|
||
0081A22B 005A64 add [edx+$64], bl
|
||
0081A22E 794E jns 0081A27E
|
||
0081A230 61 popa
|
||
0081A231 6D insd
|
||
0081A232 6500FF add bh, bh
|
||
0081A235 FFFF DB $FF, $FF //
|
||
0081A237 FF01 inc dword ptr [ecx]
|
||
0081A239 0000 add [eax], al
|
||
|
||
0081A23B 0027 add [edi], ah
|
||
0081A23D 0000 add [eax], al
|
||
|
||
0081A23F 00FF add bh, bh
|
||
0081A241 FFFF DB $FF, $FF //
|
||
0081A243 FF09 dec dword ptr [ecx]
|
||
0081A245 0000 add [eax], al
|
||
|
||
0081A247 002C4564697465 add [$65746964+eax*2], ch
|
||
0081A24E 723D jb 0081A28D
|
||
0081A250 27 daa
|
||
0081A251 0000 add [eax], al
|
||
|
||
0081A253 00FF add bh, bh
|
||
0081A255 FFFF DB $FF, $FF //
|
||
0081A257 FF1400 call dword ptr [eax+eax]
|
||
0081A25A 0000 add [eax], al
|
||
|
||
0081A25C 2C45 sub al, $45
|
||
0081A25E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0081A267 657464 jz 0081A2CE
|
||
0081A26A 61 popa
|
||
0081A26B 7465 jz 0081A2D2
|
||
0081A26D 2829 sub [ecx], ch
|
||
0081A26F 2000 and [eax], al
|
||
0081A271 0000 add [eax], al
|
||
|
||
0081A273 00FF add bh, bh
|
||
0081A275 FFFF DB $FF, $FF //
|
||
0081A277 FF0D00000020 dec dword ptr [$20000000]
|
||
0081A27D 7768 jnbe 0081A2E7
|
||
0081A27F 657265 jb 0081A2E7
|
||
0081A282 205946 and [ecx+$46], bl
|
||
0081A285 49 dec ecx
|
||
0081A286 643D27000000 cmp eax, $00000027
|
||
0081A28C FFFF DB $FF, $FF //
|
||
0081A28E FFFF DB $FF, $FF //
|
||
0081A290 0400 add al, +$00
|
||
0081A292 0000 add [eax], al
|
||
|
||
0081A294 59 pop ecx
|
||
0081A295 46 inc esi
|
||
0081A296 49 dec ecx
|
||
0081A297 640000 add fs:[eax], al
|
||
0081A29A 0000 add [eax], al
|
||
|
||
0081A29C 55 push ebp
|
||
0081A29D 8BEC mov ebp, esp
|
||
0081A29F 51 push ecx
|
||
0081A2A0 B906000000 mov ecx, $00000006
|
||
0081A2A5 6A00 push $00
|
||
0081A2A7 6A00 push $00
|
||
0081A2A9 49 dec ecx
|
||
0081A2AA 75F9 jnz 0081A2A5
|
||
0081A2AC 51 push ecx
|
||
0081A2AD 874DFC xchg [ebp-$04], ecx
|
||
0081A2B0 53 push ebx
|
||
0081A2B1 56 push esi
|
||
0081A2B2 8BF0 mov esi, eax
|
||
0081A2B4 33C0 xor eax, eax
|
||
0081A2B6 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081A2B7 68F5A48100 push $0081A4F5
|
||
|
||
***** TRY
|
||
|
|
||
0081A2BC 64FF30 push dword ptr fs:[eax]
|
||
0081A2BF 648920 mov fs:[eax], esp
|
||
0081A2C2 33C0 xor eax, eax
|
||
0081A2C4 55 push ebp
|
||
0081A2C5 68CBA48100 push $0081A4CB
|
||
|
||
***** TRY
|
||
|
|
||
0081A2CA 64FF30 push dword ptr fs:[eax]
|
||
0081A2CD 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081A53D(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081A53D 50 push eax
|
||
0081A53E 6461 popa
|
||
0081A540 7465 jz 0081A5A7
|
||
0081A542 205946 and [ecx+$46], bl
|
||
0081A545 5F pop edi
|
||
0081A546 4D dec ebp
|
||
0081A547 6F outsd
|
||
0081A548 6E outsb
|
||
0081A549 65795F jns 0081A5AB
|
||
0081A54C 43 inc ebx
|
||
0081A54D 52 push edx
|
||
0081A54E 2000 and [eax], al
|
||
0081A550 FFFF DB $FF, $FF //
|
||
0081A552 FFFF DB $FF, $FF //
|
||
0081A554 0D00000020 or eax, $20000000
|
||
0081A559 53 push ebx
|
||
0081A55A 657420 jz 0081A57D
|
||
0081A55D 42 inc edx
|
||
0081A55E 5A pop edx
|
||
0081A55F 54 push esp
|
||
0081A560 7970 jns 0081A5D2
|
||
0081A562 653D27000000 cmp eax, $00000027
|
||
0081A568 FFFF DB $FF, $FF //
|
||
0081A56A FFFF DB $FF, $FF //
|
||
0081A56C 07 pop es
|
||
0081A56D 0000 add [eax], al
|
||
|
||
0081A56F 005A64 add [edx+$64], bl
|
||
0081A572 794E jns 0081A5C2
|
||
0081A574 61 popa
|
||
0081A575 6D insd
|
||
0081A576 6500FF add bh, bh
|
||
0081A579 FFFF DB $FF, $FF //
|
||
0081A57B FF01 inc dword ptr [ecx]
|
||
0081A57D 0000 add [eax], al
|
||
|
||
0081A57F 0027 add [edi], ah
|
||
0081A581 0000 add [eax], al
|
||
|
||
0081A583 00FF add bh, bh
|
||
0081A585 FFFF DB $FF, $FF //
|
||
0081A587 FF09 dec dword ptr [ecx]
|
||
0081A589 0000 add [eax], al
|
||
|
||
0081A58B 002C4564697465 add [$65746964+eax*2], ch
|
||
0081A592 723D jb 0081A5D1
|
||
0081A594 27 daa
|
||
0081A595 0000 add [eax], al
|
||
|
||
0081A597 00FF add bh, bh
|
||
0081A599 FFFF DB $FF, $FF //
|
||
0081A59B FF1400 call dword ptr [eax+eax]
|
||
0081A59E 0000 add [eax], al
|
||
|
||
0081A5A0 2C45 sub al, $45
|
||
0081A5A2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0081A5AB 657464 jz 0081A612
|
||
0081A5AE 61 popa
|
||
0081A5AF 7465 jz 0081A616
|
||
0081A5B1 2829 sub [ecx], ch
|
||
0081A5B3 2000 and [eax], al
|
||
0081A5B5 0000 add [eax], al
|
||
|
||
0081A5B7 00FF add bh, bh
|
||
0081A5B9 FFFF DB $FF, $FF //
|
||
0081A5BB FF0D00000020 dec dword ptr [$20000000]
|
||
0081A5C1 7768 jnbe 0081A62B
|
||
0081A5C3 657265 jb 0081A62B
|
||
0081A5C6 205946 and [ecx+$46], bl
|
||
0081A5C9 49 dec ecx
|
||
0081A5CA 643D27000000 cmp eax, $00000027
|
||
0081A5D0 FFFF DB $FF, $FF //
|
||
0081A5D2 FFFF DB $FF, $FF //
|
||
0081A5D4 0400 add al, +$00
|
||
0081A5D6 0000 add [eax], al
|
||
|
||
0081A5D8 59 pop ecx
|
||
0081A5D9 46 inc esi
|
||
0081A5DA 49 dec ecx
|
||
0081A5DB 640000 add fs:[eax], al
|
||
0081A5DE 0000 add [eax], al
|
||
|
||
0081A5E0 53 push ebx
|
||
0081A5E1 8BD8 mov ebx, eax
|
||
|
||
* Reference to control ToolButton1 : TToolButton
|
||
|
|
||
0081A5E3 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081A5E9 E8D2D8CAFF call 004C7EC0
|
||
0081A5EE 84C0 test al, al
|
||
0081A5F0 7516 jnz 0081A608
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
||
|
|
||
0081A5F2 B914A68100 mov ecx, $0081A614
|
||
|
||
* Reference to control ToolButton1 : TToolButton
|
||
|
|
||
0081A5F7 8B9320030000 mov edx, [ebx+$0320]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0081A5FD 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
|
|
||
0081A603 E828DCF9FF call 007B8230
|
||
0081A608 5B pop ebx
|
||
0081A609 C3 ret
|
||
|
||
0081A60A 0000 add [eax], al
|
||
|
||
0081A60C FFFF DB $FF, $FF //
|
||
0081A60E FFFF DB $FF, $FF //
|
||
0081A610 0800 or [eax], al
|
||
0081A612 0000 add [eax], al
|
||
|
||
0081A614 B8B6BFEEC1 mov eax, $C1EEBFB6
|
||
0081A619 D0B1ED000000 DB $D0, $B1, $ED, $00, $00, $00 // byte ptr [ecx+$00ED], 1
|
||
0081A61F 00558B add [ebp-$75], dl
|
||
0081A622 EC in al, dx
|
||
0081A623 B919000000 mov ecx, $00000019
|
||
0081A628 6A00 push $00
|
||
0081A62A 6A00 push $00
|
||
0081A62C 49 dec ecx
|
||
0081A62D 75F9 jnz 0081A628
|
||
0081A62F 51 push ecx
|
||
0081A630 53 push ebx
|
||
0081A631 56 push esi
|
||
0081A632 8BF2 mov esi, edx
|
||
0081A634 8BD8 mov ebx, eax
|
||
0081A636 33C0 xor eax, eax
|
||
0081A638 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>a<EFBFBD><61><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081A639 688EAB8100 push $0081AB8E
|
||
|
||
***** TRY
|
||
|
|
||
0081A63E 64FF30 push dword ptr fs:[eax]
|
||
0081A641 648920 mov fs:[eax], esp
|
||
0081A644 8D55FC lea edx, [ebp-$04]
|
||
0081A647 8BC6 mov eax, esi
|
||
|
||
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
|
||
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
||
|
|
||
0081A649 E86E50D7FF call 0058F6BC
|
||
0081A64E 8D55E4 lea edx, [ebp-$1C]
|
||
0081A651 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A654 E89302BFFF call 0040A8EC
|
||
0081A659 837DE400 cmp dword ptr [ebp-$1C], +$00
|
||
0081A65D 750D jnz 0081A66C
|
||
0081A65F 8D45FC lea eax, [ebp-$04]
|
||
0081A662 BAA4AB8100 mov edx, $0081ABA4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081A667 E850ADBEFF call 004053BC
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0081A66C 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081A672 E8D51CE4FF 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;
|
||
|
|
||
0081A677 E8E874E3FF call 00651B64
|
||
|
||
* Reference to field N.A..OFFS_0050
|
||
|
|
||
0081A67C 8B4050 mov eax, [eax+$50]
|
||
0081A67F 8D55E0 lea edx, [ebp-$20]
|
||
0081A682 8B08 mov ecx, [eax]
|
||
0081A684 FF5110 call dword ptr [ecx+$10]
|
||
0081A687 8B45E0 mov eax, [ebp-$20]
|
||
0081A68A 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A68D E85A02BFFF call 0040A8EC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081A692 8BB364030000 mov esi, [ebx+$0364]
|
||
0081A698 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081A69A E8A1DDCAFF call 004C8440
|
||
0081A69F 8D55CC lea edx, [ebp-$34]
|
||
0081A6A2 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A6A5 E84202BFFF call 0040A8EC
|
||
0081A6AA 8B55CC mov edx, [ebp-$34]
|
||
0081A6AD 8D45D0 lea eax, [ebp-$30]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0081A6B0 E813E7BFFF call 00418DC8
|
||
0081A6B5 8D45D0 lea eax, [ebp-$30]
|
||
0081A6B8 50 push eax
|
||
0081A6B9 8B55E8 mov edx, [ebp-$18]
|
||
0081A6BC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A6BE E8F1C4CAFF call 004C6BB4
|
||
0081A6C3 5A pop edx
|
||
0081A6C4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0081A6C6 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081A6CC 8BC6 mov eax, esi
|
||
0081A6CE 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0081A6D0 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0081A6D6 8BB308030000 mov esi, [ebx+$0308]
|
||
0081A6DC 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081A6DE E8F1B1CAFF call 004C58D4
|
||
0081A6E3 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0081A6E5 E8C238CCFF call 004DDFAC
|
||
0081A6EA 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0081A6EC FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0081A6EF 68B0AB8100 push $0081ABB0
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0081A6F4 BAF8AB8100 mov edx, $0081ABF8
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081A6F9 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A6FF E8B0C4CAFF call 004C6BB4
|
||
0081A704 8D55C4 lea edx, [ebp-$3C]
|
||
0081A707 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081A709 FF5160 call dword ptr [ecx+$60]
|
||
0081A70C FF75C4 push dword ptr [ebp-$3C]
|
||
0081A70F 6808AC8100 push $0081AC08
|
||
0081A714 8D45C8 lea eax, [ebp-$38]
|
||
0081A717 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081A71C E893AFBEFF call 004056B4
|
||
0081A721 8B45C8 mov eax, [ebp-$38]
|
||
0081A724 50 push eax
|
||
0081A725 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0081A727 E88038CCFF call 004DDFAC
|
||
0081A72C 5A pop edx
|
||
0081A72D 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
0081A72F FF5138 call dword ptr [ecx+$38]
|
||
0081A732 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0081A734 E88FB1CAFF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081A739 BA14AC8100 mov edx, $0081AC14
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0081A73E 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A744 E86BC4CAFF call 004C6BB4
|
||
0081A749 8D55EC lea edx, [ebp-$14]
|
||
0081A74C 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
0081A74E FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081A751 BA24AC8100 mov edx, $0081AC24
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081A756 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A75C E853C4CAFF call 004C6BB4
|
||
0081A761 8D55C0 lea edx, [ebp-$40]
|
||
0081A764 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081A766 FF5160 call dword ptr [ecx+$60]
|
||
0081A769 8B45C0 mov eax, [ebp-$40]
|
||
0081A76C 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A76F E87801BFFF call 0040A8EC
|
||
0081A774 8D55BC lea edx, [ebp-$44]
|
||
0081A777 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A77A E86D01BFFF call 0040A8EC
|
||
0081A77F 837DBC00 cmp dword ptr [ebp-$44], +$00
|
||
0081A783 750D jnz 0081A792
|
||
0081A785 8D45F8 lea eax, [ebp-$08]
|
||
0081A788 BAA4AB8100 mov edx, $0081ABA4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081A78D E82AACBEFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0081A792 BA34AC8100 mov edx, $0081AC34
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081A797 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A79D E812C4CAFF call 004C6BB4
|
||
0081A7A2 8D55B8 lea edx, [ebp-$48]
|
||
0081A7A5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081A7A7 FF5160 call dword ptr [ecx+$60]
|
||
0081A7AA 8B45B8 mov eax, [ebp-$48]
|
||
0081A7AD 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A7B0 E83701BFFF call 0040A8EC
|
||
0081A7B5 8D55B4 lea edx, [ebp-$4C]
|
||
0081A7B8 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A7BB E82C01BFFF call 0040A8EC
|
||
0081A7C0 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
0081A7C4 750D jnz 0081A7D3
|
||
0081A7C6 8D45F4 lea eax, [ebp-$0C]
|
||
0081A7C9 BAA4AB8100 mov edx, $0081ABA4
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081A7CE E8E9ABBEFF call 004053BC
|
||
0081A7D3 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A7D6 E8512FBFFF call 0040D72C
|
||
0081A7DB DB7DA8 fstp tbyte ptr [ebp-$58]
|
||
0081A7DE 9B wait
|
||
0081A7DF 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A7E2 E8452FBFFF call 0040D72C
|
||
0081A7E7 DB6DA8 fld tbyte ptr [ebp-$58]
|
||
0081A7EA DEC9 fmulp st(1), st(0)
|
||
0081A7EC 83C4F4 add esp, -$0C
|
||
0081A7EF DB3C24 fstp tbyte ptr [esp]
|
||
0081A7F2 9B wait
|
||
0081A7F3 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
0081A7F6 E8B12DBFFF call 0040D5AC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081A7FB 8BB364030000 mov esi, [ebx+$0364]
|
||
0081A801 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081A803 E838DCCAFF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081A808 BA24AC8100 mov edx, $0081AC24
|
||
0081A80D 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A80F E8A0C3CAFF call 004C6BB4
|
||
0081A814 50 push eax
|
||
0081A815 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A818 E80F2FBFFF call 0040D72C
|
||
0081A81D 8D4598 lea eax, [ebp-$68]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081A820 E867E5BFFF call 00418D8C
|
||
0081A825 8D5598 lea edx, [ebp-$68]
|
||
0081A828 58 pop eax
|
||
0081A829 8B08 mov ecx, [eax]
|
||
0081A82B FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081A831 BA14AC8100 mov edx, $0081AC14
|
||
0081A836 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A838 E877C3CAFF call 004C6BB4
|
||
0081A83D 50 push eax
|
||
0081A83E 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081A841 E8E62EBFFF call 0040D72C
|
||
0081A846 8D4588 lea eax, [ebp-$78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081A849 E83EE5BFFF call 00418D8C
|
||
0081A84E 8D5588 lea edx, [ebp-$78]
|
||
0081A851 58 pop eax
|
||
0081A852 8B08 mov ecx, [eax]
|
||
0081A854 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'SXMoney'
|
||
|
|
||
0081A85A BA44AC8100 mov edx, $0081AC44
|
||
0081A85F 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A861 E84EC3CAFF call 004C6BB4
|
||
0081A866 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_54
|
||
|
|
||
0081A868 FF5254 call dword ptr [edx+$54]
|
||
0081A86B DD9D70FFFFFF fstp qword ptr [ebp+$FFFFFF70]
|
||
0081A871 9B wait
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081A872 BA24AC8100 mov edx, $0081AC24
|
||
0081A877 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A879 E836C3CAFF call 004C6BB4
|
||
0081A87E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_54
|
||
|
|
||
0081A880 FF5254 call dword ptr [edx+$54]
|
||
0081A883 DC8570FFFFFF fadd qword ptr [ebp+$FFFFFF70]
|
||
0081A889 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081A88F E8F8E4BFFF call 00418D8C
|
||
0081A894 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]
|
||
0081A89A 50 push eax
|
||
|
||
* Possible String Reference to: 'KHDKMoney'
|
||
|
|
||
0081A89B BA54AC8100 mov edx, $0081AC54
|
||
0081A8A0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A8A2 E80DC3CAFF call 004C6BB4
|
||
0081A8A7 5A pop edx
|
||
0081A8A8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0081A8AA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081A8B0 8BC6 mov eax, esi
|
||
0081A8B2 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0081A8B4 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0081A8BA 8BB30C030000 mov esi, [ebx+$030C]
|
||
0081A8C0 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081A8C2 E80DB0CAFF call 004C58D4
|
||
0081A8C7 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0081A8C9 E8DE36CCFF call 004DDFAC
|
||
0081A8CE 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0081A8D0 FF5244 call dword ptr [edx+$44]
|
||
0081A8D3 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0081A8D5 E8D236CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081A8DA BA68AC8100 mov edx, $0081AC68
|
||
0081A8DF 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081A8E1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0081A8E4 6884AC8100 push $0081AC84
|
||
0081A8E9 FF75E8 push dword ptr [ebp-$18]
|
||
0081A8EC 6894AC8100 push $0081AC94
|
||
0081A8F1 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]
|
||
0081A8F7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A8FA E8EDFFBEFF call 0040A8EC
|
||
0081A8FF FFB568FFFFFF push dword ptr [ebp+$FFFFFF68]
|
||
0081A905 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
|
||
0081A90B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081A910 E89FADBEFF call 004056B4
|
||
0081A915 8B856CFFFFFF mov eax, [ebp+$FFFFFF6C]
|
||
0081A91B 50 push eax
|
||
0081A91C 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0081A91E E88936CCFF call 004DDFAC
|
||
0081A923 5A pop edx
|
||
0081A924 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081A926 FF5138 call dword ptr [ecx+$38]
|
||
0081A929 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081A92C BA14AC8100 mov edx, $0081AC14
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0081A931 E80AAEBEFF call 00405740
|
||
0081A936 7427 jz 0081A95F
|
||
0081A938 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0081A93A E86D36CCFF call 004DDFAC
|
||
0081A93F 50 push eax
|
||
0081A940 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
0081A946 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
0081A949 BAA0AC8100 mov edx, $0081ACA0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081A94E E8EDACBEFF call 00405640
|
||
0081A953 8B9564FFFFFF mov edx, [ebp+$FFFFFF64]
|
||
0081A959 58 pop eax
|
||
0081A95A 8B08 mov ecx, [eax]
|
||
0081A95C FF5138 call dword ptr [ecx+$38]
|
||
0081A95F 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Possible String Reference to: 'KHDKMoney'
|
||
|
|
||
0081A962 BA54AC8100 mov edx, $0081AC54
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0081A967 E8D4ADBEFF call 00405740
|
||
0081A96C 7460 jz 0081A9CE
|
||
|
||
* Possible String Reference to: ',KHDKMoney=''
|
||
|
|
||
0081A96E 68B4AC8100 push $0081ACB4
|
||
|
||
* Possible String Reference to: 'KHDKMoney'
|
||
|
|
||
0081A973 BA54AC8100 mov edx, $0081AC54
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081A978 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081A97E E831C2CAFF call 004C6BB4
|
||
0081A983 8D9558FFFFFF lea edx, [ebp+$FFFFFF58]
|
||
0081A989 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081A98B FF5160 call dword ptr [ecx+$60]
|
||
0081A98E 8B8558FFFFFF mov eax, [ebp+$FFFFFF58]
|
||
0081A994 8D955CFFFFFF lea edx, [ebp+$FFFFFF5C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081A99A E84DFFBEFF call 0040A8EC
|
||
0081A99F FFB55CFFFFFF push dword ptr [ebp+$FFFFFF5C]
|
||
0081A9A5 6808AC8100 push $0081AC08
|
||
0081A9AA 8D8560FFFFFF lea eax, [ebp+$FFFFFF60]
|
||
0081A9B0 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081A9B5 E8FAACBEFF call 004056B4
|
||
0081A9BA 8B8560FFFFFF mov eax, [ebp+$FFFFFF60]
|
||
0081A9C0 50 push eax
|
||
0081A9C1 8BC6 mov eax, esi
|
||
|
||
* 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;
|
||
|
|
||
0081A9C3 E8E435CCFF call 004DDFAC
|
||
0081A9C8 5A pop edx
|
||
0081A9C9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081A9CB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0081A9CE 68CCAC8100 push $0081ACCC
|
||
0081A9D3 8D9550FFFFFF lea edx, [ebp+$FFFFFF50]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081AC69(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081AC69 50 push eax
|
||
0081AC6A 6461 popa
|
||
0081AC6C 7465 jz 0081ACD3
|
||
0081AC6E 205946 and [ecx+$46], bl
|
||
0081AC71 5F pop edi
|
||
0081AC72 4D dec ebp
|
||
0081AC73 6F outsd
|
||
0081AC74 6E outsb
|
||
0081AC75 65795F jns 0081ACD7
|
||
0081AC78 43 inc ebx
|
||
0081AC79 52 push edx
|
||
0081AC7A 2000 and [eax], al
|
||
0081AC7C FFFF DB $FF, $FF //
|
||
0081AC7E FFFF DB $FF, $FF //
|
||
0081AC80 0500000020 add eax, +$20000000
|
||
0081AC85 53 push ebx
|
||
0081AC86 657420 jz 0081ACA9
|
||
0081AC89 0000 add [eax], al
|
||
|
||
0081AC8B 00FF add bh, bh
|
||
0081AC8D FFFF DB $FF, $FF //
|
||
0081AC8F FF01 inc dword ptr [ecx]
|
||
0081AC91 0000 add [eax], al
|
||
|
||
0081AC93 003D000000FF add [$FF000000], bh
|
||
0081AC99 FFFF DB $FF, $FF //
|
||
0081AC9B FF09 dec dword ptr [ecx]
|
||
0081AC9D 0000 add [eax], al
|
||
|
||
0081AC9F 002C42 add [edx+eax*2], ch
|
||
0081ACA2 42 inc edx
|
||
0081ACA3 4D dec ebp
|
||
0081ACA4 6F outsd
|
||
0081ACA5 6E outsb
|
||
0081ACA6 65793D jns 0081ACE6
|
||
0081ACA9 0000 add [eax], al
|
||
|
||
0081ACAB 00FF add bh, bh
|
||
0081ACAD FFFF DB $FF, $FF //
|
||
0081ACAF FF0C00 dec dword ptr [eax+eax]
|
||
0081ACB2 0000 add [eax], al
|
||
|
||
0081ACB4 2C4B sub al, $4B
|
||
0081ACB6 48 dec eax
|
||
0081ACB7 44 inc esp
|
||
0081ACB8 4B dec ebx
|
||
0081ACB9 4D dec ebp
|
||
0081ACBA 6F outsd
|
||
0081ACBB 6E outsb
|
||
0081ACBC 65793D jns 0081ACFC
|
||
0081ACBF 27 daa
|
||
0081ACC0 0000 add [eax], al
|
||
|
||
0081ACC2 0000 add [eax], al
|
||
|
||
0081ACC4 FFFF DB $FF, $FF //
|
||
0081ACC6 FFFF DB $FF, $FF //
|
||
0081ACC8 0900 or [eax], eax
|
||
0081ACCA 0000 add [eax], al
|
||
|
||
0081ACCC 2C45 sub al, $45
|
||
0081ACCE 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
|
||
0081ACD7 00FF add bh, bh
|
||
0081ACD9 FFFF DB $FF, $FF //
|
||
0081ACDB FF1400 call dword ptr [eax+eax]
|
||
0081ACDE 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081AD29(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081AD29 7064 jo 0081AD8F
|
||
0081AD2B 61 popa
|
||
0081AD2C 7465 jz 0081AD93
|
||
0081AD2E 205946 and [ecx+$46], bl
|
||
0081AD31 5F pop edi
|
||
0081AD32 4D dec ebp
|
||
0081AD33 6F outsd
|
||
0081AD34 6E outsb
|
||
0081AD35 65795F jns 0081AD97
|
||
0081AD38 4B dec ebx
|
||
0081AD39 43 inc ebx
|
||
0081AD3A 205365 and [ebx+$65], dl
|
||
0081AD3D 7420 jz 0081AD5F
|
||
0081AD3F 4B dec ebx
|
||
0081AD40 43 inc ebx
|
||
0081AD41 42 inc edx
|
||
0081AD42 42 inc edx
|
||
0081AD43 4D dec ebp
|
||
0081AD44 6F outsd
|
||
0081AD45 6E outsb
|
||
0081AD46 65793D jns 0081AD86
|
||
0081AD49 4B dec ebx
|
||
0081AD4A 43 inc ebx
|
||
0081AD4B 42 inc edx
|
||
0081AD4C 42 inc edx
|
||
0081AD4D 4D dec ebp
|
||
0081AD4E 6F outsd
|
||
0081AD4F 6E outsb
|
||
0081AD50 65792B jns 0081AD7E
|
||
0081AD53 00FF add bh, bh
|
||
0081AD55 FFFF DB $FF, $FF //
|
||
0081AD57 FF01 inc dword ptr [ecx]
|
||
0081AD59 0000 add [eax], al
|
||
|
||
0081AD5B 002D000000FF add [$FF000000], ch
|
||
0081AD61 FFFF DB $FF, $FF //
|
||
0081AD63 FF0D00000020 dec dword ptr [$20000000]
|
||
0081AD69 7768 jnbe 0081ADD3
|
||
0081AD6B 657265 jb 0081ADD3
|
||
0081AD6E 204352 and [ebx+$52], al
|
||
0081AD71 49 dec ecx
|
||
0081AD72 44 inc esp
|
||
0081AD73 3D27000000 cmp eax, $00000027
|
||
0081AD78 FFFF DB $FF, $FF //
|
||
0081AD7A FFFF DB $FF, $FF //
|
||
0081AD7C 0400 add al, +$00
|
||
0081AD7E 0000 add [eax], al
|
||
|
||
0081AD80 43 inc ebx
|
||
0081AD81 52 push edx
|
||
0081AD82 49 dec ecx
|
||
0081AD83 44 inc esp
|
||
0081AD84 0000 add [eax], al
|
||
|
||
0081AD86 0000 add [eax], al
|
||
|
||
0081AD88 C3 ret
|
||
|
||
0081AD89 8D4000 lea eax, [eax+$00]
|
||
0081AD8C 55 push ebp
|
||
0081AD8D 8BEC mov ebp, esp
|
||
0081AD8F B909000000 mov ecx, $00000009
|
||
0081AD94 6A00 push $00
|
||
0081AD96 6A00 push $00
|
||
0081AD98 49 dec ecx
|
||
0081AD99 75F9 jnz 0081AD94
|
||
0081AD9B 51 push ecx
|
||
0081AD9C 53 push ebx
|
||
0081AD9D 56 push esi
|
||
0081AD9E 8BDA mov ebx, edx
|
||
0081ADA0 8BF0 mov esi, eax
|
||
0081ADA2 33C0 xor eax, eax
|
||
0081ADA4 55 push ebp
|
||
|
||
* Possible String Reference to: '魚<><E9AD9A><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081ADA5 6842B08100 push $0081B042
|
||
|
||
***** TRY
|
||
|
|
||
0081ADAA 64FF30 push dword ptr fs:[eax]
|
||
0081ADAD 648920 mov fs:[eax], esp
|
||
0081ADB0 8D55FC lea edx, [ebp-$04]
|
||
0081ADB3 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;
|
||
|
|
||
0081ADB5 E80249D7FF call 0058F6BC
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0081ADBA 8B9E08030000 mov ebx, [esi+$0308]
|
||
0081ADC0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081ADC2 E80DABCAFF call 004C58D4
|
||
0081ADC7 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0081ADC9 E8DE31CCFF call 004DDFAC
|
||
0081ADCE 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0081ADD0 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0081ADD3 6858B08100 push $0081B058
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0081ADD8 BAA0B08100 mov edx, $0081B0A0
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081ADDD 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081ADE3 E8CCBDCAFF call 004C6BB4
|
||
0081ADE8 8D55F0 lea edx, [ebp-$10]
|
||
0081ADEB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081ADED FF5160 call dword ptr [ecx+$60]
|
||
0081ADF0 FF75F0 push dword ptr [ebp-$10]
|
||
0081ADF3 68B0B08100 push $0081B0B0
|
||
0081ADF8 8D45F4 lea eax, [ebp-$0C]
|
||
0081ADFB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081AE00 E8AFA8BEFF call 004056B4
|
||
0081AE05 8B45F4 mov eax, [ebp-$0C]
|
||
0081AE08 50 push eax
|
||
0081AE09 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0081AE0B E89C31CCFF call 004DDFAC
|
||
0081AE10 5A pop edx
|
||
0081AE11 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
0081AE13 FF5138 call dword ptr [ecx+$38]
|
||
0081AE16 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
0081AE18 E8ABAACAFF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081AE1D BABCB08100 mov edx, $0081B0BC
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0081AE22 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081AE28 E887BDCAFF call 004C6BB4
|
||
0081AE2D 8D55F8 lea edx, [ebp-$08]
|
||
0081AE30 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
0081AE32 FF5160 call dword ptr [ecx+$60]
|
||
0081AE35 8D55EC lea edx, [ebp-$14]
|
||
0081AE38 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081AE3B E8ACFABEFF call 0040A8EC
|
||
0081AE40 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
0081AE44 750D jnz 0081AE53
|
||
0081AE46 8D45FC lea eax, [ebp-$04]
|
||
0081AE49 BACCB08100 mov edx, $0081B0CC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081AE4E E869A5BEFF call 004053BC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081AE53 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081AE59 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081AE5B E8E0D5CAFF call 004C8440
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
0081AE60 BABCB08100 mov edx, $0081B0BC
|
||
0081AE65 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081AE67 E848BDCAFF call 004C6BB4
|
||
0081AE6C 50 push eax
|
||
0081AE6D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081AE70 E8B728BFFF call 0040D72C
|
||
0081AE75 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081AE78 E80FDFBFFF call 00418D8C
|
||
0081AE7D 8D55DC lea edx, [ebp-$24]
|
||
0081AE80 58 pop eax
|
||
0081AE81 8B08 mov ecx, [eax]
|
||
0081AE83 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081AE89 8BC3 mov eax, ebx
|
||
0081AE8B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0081AE8D FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0081AE93 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081AE99 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081AE9B E834AACAFF call 004C58D4
|
||
0081AEA0 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;
|
||
|
|
||
0081AEA2 E80531CCFF call 004DDFAC
|
||
0081AEA7 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0081AEA9 FF5244 call dword ptr [edx+$44]
|
||
0081AEAC 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;
|
||
|
|
||
0081AEAE E8F930CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081AEB3 BAD8B08100 mov edx, $0081B0D8
|
||
0081AEB8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081AEBA FF5138 call dword ptr [ecx+$38]
|
||
0081AEBD 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;
|
||
|
|
||
0081AEBF E8E830CCFF call 004DDFAC
|
||
0081AEC4 50 push eax
|
||
0081AEC5 8D45D8 lea eax, [ebp-$28]
|
||
0081AEC8 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set BBMoney='
|
||
|
|
||
0081AECB BAF4B08100 mov edx, $0081B0F4
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081AED0 E86BA7BEFF call 00405640
|
||
0081AED5 8B55D8 mov edx, [ebp-$28]
|
||
0081AED8 58 pop eax
|
||
0081AED9 8B08 mov ecx, [eax]
|
||
0081AEDB FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
0081AEDE 680CB18100 push $0081B10C
|
||
0081AEE3 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081B0D9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B0D9 50 push eax
|
||
0081B0DA 6461 popa
|
||
0081B0DC 7465 jz 0081B143
|
||
0081B0DE 205946 and [ecx+$46], bl
|
||
0081B0E1 5F pop edi
|
||
0081B0E2 4D dec ebp
|
||
0081B0E3 6F outsd
|
||
0081B0E4 6E outsb
|
||
0081B0E5 65795F jns 0081B147
|
||
0081B0E8 43 inc ebx
|
||
0081B0E9 52 push edx
|
||
0081B0EA 2000 and [eax], al
|
||
0081B0EC FFFF DB $FF, $FF //
|
||
0081B0EE FFFF DB $FF, $FF //
|
||
0081B0F0 0D00000020 or eax, $20000000
|
||
0081B0F5 7365 jnb 0081B15C
|
||
0081B0F7 7420 jz 0081B119
|
||
0081B0F9 42 inc edx
|
||
0081B0FA 42 inc edx
|
||
0081B0FB 4D dec ebp
|
||
0081B0FC 6F outsd
|
||
0081B0FD 6E outsb
|
||
0081B0FE 65793D jns 0081B13E
|
||
0081B101 0000 add [eax], al
|
||
|
||
0081B103 00FF add bh, bh
|
||
0081B105 FFFF DB $FF, $FF //
|
||
0081B107 FF09 dec dword ptr [ecx]
|
||
0081B109 0000 add [eax], al
|
||
|
||
0081B10B 002C4564697465 add [$65746964+eax*2], ch
|
||
0081B112 723D jb 0081B151
|
||
0081B114 27 daa
|
||
0081B115 0000 add [eax], al
|
||
|
||
0081B117 00FF add bh, bh
|
||
0081B119 FFFF DB $FF, $FF //
|
||
0081B11B FF1400 call dword ptr [eax+eax]
|
||
0081B11E 0000 add [eax], al
|
||
|
||
0081B120 2C45 sub al, $45
|
||
0081B122 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0081B12B 657464 jz 0081B192
|
||
0081B12E 61 popa
|
||
0081B12F 7465 jz 0081B196
|
||
0081B131 2829 sub [ecx], ch
|
||
0081B133 2000 and [eax], al
|
||
0081B135 0000 add [eax], al
|
||
|
||
0081B137 00FF add bh, bh
|
||
0081B139 FFFF DB $FF, $FF //
|
||
0081B13B FF0D00000020 dec dword ptr [$20000000]
|
||
0081B141 7768 jnbe 0081B1AB
|
||
0081B143 657265 jb 0081B1AB
|
||
0081B146 205946 and [ecx+$46], bl
|
||
0081B149 49 dec ecx
|
||
0081B14A 643D27000000 cmp eax, $00000027
|
||
0081B150 FFFF DB $FF, $FF //
|
||
0081B152 FFFF DB $FF, $FF //
|
||
0081B154 0400 add al, +$00
|
||
0081B156 0000 add [eax], al
|
||
|
||
0081B158 59 pop ecx
|
||
0081B159 46 inc esi
|
||
0081B15A 49 dec ecx
|
||
0081B15B 640000 add fs:[eax], al
|
||
0081B15E 0000 add [eax], al
|
||
|
||
0081B160 FFFF DB $FF, $FF //
|
||
0081B162 FFFF DB $FF, $FF //
|
||
0081B164 2B00 sub eax, dword ptr [eax]
|
||
0081B166 0000 add [eax], al
|
||
|
||
0081B168 55 push ebp
|
||
0081B169 7064 jo 0081B1CF
|
||
0081B16B 61 popa
|
||
0081B16C 7465 jz 0081B1D3
|
||
0081B16E 205946 and [ecx+$46], bl
|
||
0081B171 5F pop edi
|
||
0081B172 4D dec ebp
|
||
0081B173 6F outsd
|
||
0081B174 6E outsb
|
||
0081B175 65795F jns 0081B1D7
|
||
0081B178 4B dec ebx
|
||
0081B179 43 inc ebx
|
||
0081B17A 205365 and [ebx+$65], dl
|
||
0081B17D 7420 jz 0081B19F
|
||
0081B17F 4B dec ebx
|
||
0081B180 43 inc ebx
|
||
0081B181 42 inc edx
|
||
0081B182 42 inc edx
|
||
0081B183 4D dec ebp
|
||
0081B184 6F outsd
|
||
0081B185 6E outsb
|
||
0081B186 65793D jns 0081B1C6
|
||
0081B189 4B dec ebx
|
||
0081B18A 43 inc ebx
|
||
0081B18B 42 inc edx
|
||
0081B18C 42 inc edx
|
||
0081B18D 4D dec ebp
|
||
0081B18E 6F outsd
|
||
0081B18F 6E outsb
|
||
0081B190 65792B jns 0081B1BE
|
||
0081B193 00FF add bh, bh
|
||
0081B195 FFFF DB $FF, $FF //
|
||
0081B197 FF01 inc dword ptr [ecx]
|
||
0081B199 0000 add [eax], al
|
||
|
||
0081B19B 002D000000FF add [$FF000000], ch
|
||
0081B1A1 FFFF DB $FF, $FF //
|
||
0081B1A3 FF0D00000020 dec dword ptr [$20000000]
|
||
0081B1A9 7768 jnbe 0081B213
|
||
0081B1AB 657265 jb 0081B213
|
||
0081B1AE 204352 and [ebx+$52], al
|
||
0081B1B1 49 dec ecx
|
||
0081B1B2 44 inc esp
|
||
0081B1B3 3D27000000 cmp eax, $00000027
|
||
0081B1B8 FFFF DB $FF, $FF //
|
||
0081B1BA FFFF DB $FF, $FF //
|
||
0081B1BC 0400 add al, +$00
|
||
0081B1BE 0000 add [eax], al
|
||
|
||
0081B1C0 43 inc ebx
|
||
0081B1C1 52 push edx
|
||
0081B1C2 49 dec ecx
|
||
0081B1C3 44 inc esp
|
||
0081B1C4 0000 add [eax], al
|
||
|
||
0081B1C6 0000 add [eax], al
|
||
|
||
0081B1C8 55 push ebp
|
||
0081B1C9 8BEC mov ebp, esp
|
||
0081B1CB 6A00 push $00
|
||
0081B1CD 6A00 push $00
|
||
0081B1CF 53 push ebx
|
||
0081B1D0 56 push esi
|
||
0081B1D1 8BD8 mov ebx, eax
|
||
0081B1D3 33C0 xor eax, eax
|
||
0081B1D5 55 push ebp
|
||
|
||
* Possible String Reference to: '默<><E9BB98><EFBFBD><EFBFBD>^[YY]Í@'
|
||
|
|
||
0081B1D6 6834B28100 push $0081B234
|
||
|
||
***** TRY
|
||
|
|
||
0081B1DB 64FF30 push dword ptr fs:[eax]
|
||
0081B1DE 648920 mov fs:[eax], esp
|
||
0081B1E1 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to control v1XHNo : N.A.
|
||
|
|
||
0081B1E4 8B8378030000 mov eax, [ebx+$0378]
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0081B1EA E801D4C6FF call 004885F0
|
||
0081B1EF 8B45F8 mov eax, [ebp-$08]
|
||
0081B1F2 8D55FC lea edx, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B1F5 E8F2F6BEFF call 0040A8EC
|
||
0081B1FA 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrLen(String):Integer;
|
||
| or: System.@DynArrayLength;
|
||
| or: System.DynArraySize(Pointer):Integer;
|
||
| or: Variants.DynArraySize(Pointer):Integer;
|
||
|
|
||
0081B1FD E8F2A3BEFF call 004055F4
|
||
0081B202 83F803 cmp eax, +$03
|
||
0081B205 7C0F jl 0081B216
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
0081B207 8B8314030000 mov eax, [ebx+$0314]
|
||
0081B20D 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0081B211 E83E93BEFF call 00404554
|
||
0081B216 33C0 xor eax, eax
|
||
0081B218 5A pop edx
|
||
0081B219 59 pop ecx
|
||
0081B21A 59 pop ecx
|
||
0081B21B 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[YY]Í@'
|
||
|
|
||
0081B21E 683BB28100 push $0081B23B
|
||
0081B223 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081B226 E8F9A0BEFF call 00405324
|
||
0081B22B 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081B22E E8F1A0BEFF call 00405324
|
||
0081B233 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081B3F9(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B3F9 50 push eax
|
||
0081B3FA 6461 popa
|
||
0081B3FC 7465 jz 0081B463
|
||
0081B3FE 205946 and [ecx+$46], bl
|
||
0081B401 5F pop edi
|
||
0081B402 4D dec ebp
|
||
0081B403 6F outsd
|
||
0081B404 6E outsb
|
||
0081B405 65795F jns 0081B467
|
||
0081B408 43 inc ebx
|
||
0081B409 52 push edx
|
||
0081B40A 2000 and [eax], al
|
||
0081B40C FFFF DB $FF, $FF //
|
||
0081B40E FFFF DB $FF, $FF //
|
||
0081B410 0500000020 add eax, +$20000000
|
||
0081B415 53 push ebx
|
||
0081B416 657420 jz 0081B439
|
||
0081B419 0000 add [eax], al
|
||
|
||
0081B41B 00FF add bh, bh
|
||
0081B41D FFFF DB $FF, $FF //
|
||
0081B41F FF02 inc dword ptr [edx]
|
||
0081B421 0000 add [eax], al
|
||
|
||
0081B423 003D270000FF add [$FF000027], bh
|
||
0081B429 FFFF DB $FF, $FF //
|
||
0081B42B FF01 inc dword ptr [ecx]
|
||
0081B42D 0000 add [eax], al
|
||
|
||
0081B42F 0027 add [edi], ah
|
||
0081B431 0000 add [eax], al
|
||
|
||
0081B433 00FF add bh, bh
|
||
0081B435 FFFF DB $FF, $FF //
|
||
0081B437 FF0D00000020 dec dword ptr [$20000000]
|
||
0081B43D 7768 jnbe 0081B4A7
|
||
0081B43F 657265 jb 0081B4A7
|
||
0081B442 205946 and [ecx+$46], bl
|
||
0081B445 49 dec ecx
|
||
0081B446 643D27000000 cmp eax, $00000027
|
||
0081B44C FFFF DB $FF, $FF //
|
||
0081B44E FFFF DB $FF, $FF //
|
||
0081B450 0400 add al, +$00
|
||
0081B452 0000 add [eax], al
|
||
|
||
0081B454 59 pop ecx
|
||
0081B455 46 inc esi
|
||
0081B456 49 dec ecx
|
||
0081B457 640000 add fs:[eax], al
|
||
0081B45A 0000 add [eax], al
|
||
|
||
0081B45C 55 push ebp
|
||
0081B45D 8BEC mov ebp, esp
|
||
0081B45F B905000000 mov ecx, $00000005
|
||
0081B464 6A00 push $00
|
||
0081B466 6A00 push $00
|
||
0081B468 49 dec ecx
|
||
0081B469 75F9 jnz 0081B464
|
||
0081B46B 53 push ebx
|
||
0081B46C 56 push esi
|
||
0081B46D 8BDA mov ebx, edx
|
||
0081B46F 8BF0 mov esi, eax
|
||
0081B471 33C0 xor eax, eax
|
||
0081B473 55 push ebp
|
||
0081B474 68D5B58100 push $0081B5D5
|
||
|
||
***** TRY
|
||
|
|
||
0081B479 64FF30 push dword ptr fs:[eax]
|
||
0081B47C 648920 mov fs:[eax], esp
|
||
0081B47F 8D55FC lea edx, [ebp-$04]
|
||
0081B482 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;
|
||
|
|
||
0081B484 E83342D7FF call 0058F6BC
|
||
0081B489 8D55F8 lea edx, [ebp-$08]
|
||
0081B48C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B48F E858F4BEFF call 0040A8EC
|
||
0081B494 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
0081B498 750D jnz 0081B4A7
|
||
0081B49A 8D45FC lea eax, [ebp-$04]
|
||
0081B49D BAECB58100 mov edx, $0081B5EC
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0081B4A2 E8159FBEFF call 004053BC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081B4A7 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081B4AD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081B4AF E88CCFCAFF call 004C8440
|
||
0081B4B4 6A00 push $00
|
||
0081B4B6 6A00 push $00
|
||
0081B4B8 6A00 push $00
|
||
0081B4BA 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
||
|
|
||
0081B4BD E8A622BFFF call 0040D768
|
||
0081B4C2 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0081B4C5 E8C2D8BFFF call 00418D8C
|
||
0081B4CA 8D45E8 lea eax, [ebp-$18]
|
||
0081B4CD 50 push eax
|
||
|
||
* Possible String Reference to: 'DerateMoney'
|
||
|
|
||
0081B4CE BAF8B58100 mov edx, $0081B5F8
|
||
0081B4D3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081B4D5 E8DAB6CAFF call 004C6BB4
|
||
0081B4DA 5A pop edx
|
||
0081B4DB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0081B4DD FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0081B4E3 8BC3 mov eax, ebx
|
||
0081B4E5 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0081B4E7 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0081B4ED 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081B4F3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081B4F5 E8DAA3CAFF call 004C58D4
|
||
0081B4FA 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;
|
||
|
|
||
0081B4FC E8AB2ACCFF call 004DDFAC
|
||
0081B501 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0081B503 FF5244 call dword ptr [edx+$44]
|
||
0081B506 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;
|
||
|
|
||
0081B508 E89F2ACCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0081B50D BA0CB68100 mov edx, $0081B60C
|
||
0081B512 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081B514 FF5138 call dword ptr [ecx+$38]
|
||
0081B517 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;
|
||
|
|
||
0081B519 E88E2ACCFF call 004DDFAC
|
||
0081B51E 50 push eax
|
||
0081B51F 8D45E4 lea eax, [ebp-$1C]
|
||
0081B522 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set DerateMoney='
|
||
|
|
||
0081B525 BA28B68100 mov edx, $0081B628
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081B52A E811A1BEFF call 00405640
|
||
0081B52F 8B55E4 mov edx, [ebp-$1C]
|
||
0081B532 58 pop eax
|
||
0081B533 8B08 mov ecx, [eax]
|
||
0081B535 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
0081B538 6844B68100 push $0081B644
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
0081B53D BA5CB68100 mov edx, $0081B65C
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081B542 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081B548 E867B6CAFF call 004C6BB4
|
||
0081B54D 8D55D8 lea edx, [ebp-$28]
|
||
0081B550 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081B552 FF5160 call dword ptr [ecx+$60]
|
||
0081B555 8B45D8 mov eax, [ebp-$28]
|
||
0081B558 8D55DC lea edx, [ebp-$24]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081B55B E88CF3BEFF call 0040A8EC
|
||
0081B560 FF75DC push dword ptr [ebp-$24]
|
||
0081B563 686CB68100 push $0081B66C
|
||
0081B568 8D45E0 lea eax, [ebp-$20]
|
||
0081B56B BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
0081B570 E83FA1BEFF call 004056B4
|
||
0081B575 8B45E0 mov eax, [ebp-$20]
|
||
0081B578 50 push eax
|
||
0081B579 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;
|
||
|
|
||
0081B57B E82C2ACCFF call 004DDFAC
|
||
0081B580 5A pop edx
|
||
0081B581 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081B583 FF5138 call dword ptr [ecx+$38]
|
||
0081B586 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
0081B588 E84729CCFF call 004DDED4
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0081B58D 8B863C030000 mov eax, [esi+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0081B593 E8B40DE4FF call 0065C34C
|
||
|
||
* Reference to field N.A..OFFS_0080
|
||
|
|
||
0081B598 8B8080000000 mov eax, [eax+$0080]
|
||
0081B59E 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
||
|
|
||
0081B5A0 E8B751E0FF call 0062075C
|
||
0081B5A5 33C0 xor eax, eax
|
||
0081B5A7 5A pop edx
|
||
0081B5A8 59 pop ecx
|
||
0081B5A9 59 pop ecx
|
||
0081B5AA 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
0081B5AD 68DCB58100 push $0081B5DC
|
||
0081B5B2 8D45D8 lea eax, [ebp-$28]
|
||
0081B5B5 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0081B5BA E8899DBEFF call 00405348
|
||
0081B5BF 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0081B5C2 E8AD90BFFF call 00414674
|
||
0081B5C7 8D45F8 lea eax, [ebp-$08]
|
||
0081B5CA BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0081B5CF E8749DBEFF call 00405348
|
||
0081B5D4 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081B60D(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081B60D 50 push eax
|
||
0081B60E 6461 popa
|
||
0081B610 7465 jz 0081B677
|
||
0081B612 205946 and [ecx+$46], bl
|
||
0081B615 5F pop edi
|
||
0081B616 4D dec ebp
|
||
0081B617 6F outsd
|
||
0081B618 6E outsb
|
||
0081B619 65795F jns 0081B67B
|
||
0081B61C 43 inc ebx
|
||
0081B61D 52 push edx
|
||
0081B61E 2000 and [eax], al
|
||
0081B620 FFFF DB $FF, $FF //
|
||
0081B622 FFFF DB $FF, $FF //
|
||
0081B624 1100 adc [eax], eax
|
||
0081B626 0000 add [eax], al
|
||
|
||
0081B628 207365 and [ebx+$65], dh
|
||
0081B62B 7420 jz 0081B64D
|
||
0081B62D 44 inc esp
|
||
0081B62E 657261 jb 0081B692
|
||
0081B631 7465 jz 0081B698
|
||
0081B633 4D dec ebp
|
||
0081B634 6F outsd
|
||
0081B635 6E outsb
|
||
0081B636 65793D jns 0081B676
|
||
0081B639 0000 add [eax], al
|
||
|
||
0081B63B 00FF add bh, bh
|
||
0081B63D FFFF DB $FF, $FF //
|
||
0081B63F FF0D00000020 dec dword ptr [$20000000]
|
||
0081B645 7768 jnbe 0081B6AF
|
||
0081B647 657265 jb 0081B6AF
|
||
0081B64A 205946 and [ecx+$46], bl
|
||
0081B64D 49 dec ecx
|
||
0081B64E 643D27000000 cmp eax, $00000027
|
||
0081B654 FFFF DB $FF, $FF //
|
||
0081B656 FFFF DB $FF, $FF //
|
||
0081B658 0400 add al, +$00
|
||
0081B65A 0000 add [eax], al
|
||
|
||
0081B65C 59 pop ecx
|
||
0081B65D 46 inc esi
|
||
0081B65E 49 dec ecx
|
||
0081B65F 640000 add fs:[eax], al
|
||
0081B662 0000 add [eax], al
|
||
|
||
0081B664 FFFF DB $FF, $FF //
|
||
0081B666 FFFF DB $FF, $FF //
|
||
0081B668 0100 add [eax], eax
|
||
0081B66A 0000 add [eax], al
|
||
|
||
0081B66C 27 daa
|
||
0081B66D 0000 add [eax], al
|
||
|
||
0081B66F 00558B add [ebp-$75], dl
|
||
0081B672 EC in al, dx
|
||
0081B673 B905000000 mov ecx, $00000005
|
||
0081B678 6A00 push $00
|
||
0081B67A 6A00 push $00
|
||
0081B67C 49 dec ecx
|
||
0081B67D 75F9 jnz 0081B678
|
||
0081B67F 51 push ecx
|
||
0081B680 53 push ebx
|
||
0081B681 56 push esi
|
||
0081B682 57 push edi
|
||
0081B683 8945FC mov [ebp-$04], eax
|
||
0081B686 33C0 xor eax, eax
|
||
0081B688 55 push ebp
|
||
|
||
* Possible String Reference to: '鶑<><E9B691><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0081B689 6839B98100 push $0081B939
|
||
|
||
***** TRY
|
||
|
|
||
0081B68E 64FF30 push dword ptr fs:[eax]
|
||
0081B691 648920 mov fs:[eax], esp
|
||
0081B694 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081B697 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081B69D E81EC8CAFF call 004C7EC0
|
||
0081B6A2 84C0 test al, al
|
||
0081B6A4 0F856C020000 jnz 0081B916
|
||
0081B6AA A048B98100 mov al, byte ptr [$0081B948]
|
||
0081B6AF 50 push eax
|
||
0081B6B0 8D45EC lea eax, [ebp-$14]
|
||
0081B6B3 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0081B6B5 E8AAD6BFFF call 00418D64
|
||
0081B6BA 8D4DEC lea ecx, [ebp-$14]
|
||
0081B6BD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081B6C0 8B8064030000 mov eax, [eax+$0364]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0081B6C6 BA54B98100 mov edx, $0081B954
|
||
0081B6CB 8B18 mov ebx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_0244
|
||
|
|
||
0081B6CD FF9344020000 call dword ptr [ebx+$0244]
|
||
0081B6D3 84C0 test al, al
|
||
0081B6D5 751D jnz 0081B6F4
|
||
0081B6D7 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
0081B6D9 B95CB98100 mov ecx, $0081B95C
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
0081B6DE BA64B98100 mov edx, $0081B964
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081BFC1(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081BFC1 50 push eax
|
||
0081BFC2 6461 popa
|
||
0081BFC4 7465 jz 0081C02B
|
||
0081BFC6 205946 and [ecx+$46], bl
|
||
0081BFC9 5F pop edi
|
||
0081BFCA 4D dec ebp
|
||
0081BFCB 6F outsd
|
||
0081BFCC 6E outsb
|
||
0081BFCD 65795F jns 0081C02F
|
||
0081BFD0 43 inc ebx
|
||
0081BFD1 52 push edx
|
||
0081BFD2 2000 and [eax], al
|
||
0081BFD4 FFFF DB $FF, $FF //
|
||
0081BFD6 FFFF DB $FF, $FF //
|
||
0081BFD8 1000 adc [eax], al
|
||
0081BFDA 0000 add [eax], al
|
||
|
||
0081BFDC 205365 and [ebx+$65], dl
|
||
0081BFDF 7420 jz 0081C001
|
||
0081BFE1 43 inc ebx
|
||
0081BFE2 6F outsd
|
||
0081BFE3 6D insd
|
||
0081BFE4 54 push esp
|
||
0081BFE5 61 popa
|
||
0081BFE6 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
|
||
0081BFEE 0000 add [eax], al
|
||
|
||
0081BFF0 FFFF DB $FF, $FF //
|
||
0081BFF2 FFFF DB $FF, $FF //
|
||
0081BFF4 0100 add [eax], eax
|
||
0081BFF6 0000 add [eax], al
|
||
|
||
0081BFF8 27 daa
|
||
0081BFF9 0000 add [eax], al
|
||
|
||
0081BFFB 00FF add bh, bh
|
||
0081BFFD FFFF DB $FF, $FF //
|
||
0081BFFF FF09 dec dword ptr [ecx]
|
||
0081C001 0000 add [eax], al
|
||
|
||
0081C003 002C4564697465 add [$65746964+eax*2], ch
|
||
0081C00A 723D jb 0081C049
|
||
0081C00C 27 daa
|
||
0081C00D 0000 add [eax], al
|
||
|
||
0081C00F 00FF add bh, bh
|
||
0081C011 FFFF DB $FF, $FF //
|
||
0081C013 FF1400 call dword ptr [eax+eax]
|
||
0081C016 0000 add [eax], al
|
||
|
||
0081C018 2C45 sub al, $45
|
||
0081C01A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0081C023 657464 jz 0081C08A
|
||
0081C026 61 popa
|
||
0081C027 7465 jz 0081C08E
|
||
0081C029 2829 sub [ecx], ch
|
||
0081C02B 2000 and [eax], al
|
||
0081C02D 0000 add [eax], al
|
||
|
||
0081C02F 00FF add bh, bh
|
||
0081C031 FFFF DB $FF, $FF //
|
||
0081C033 FF0D00000020 dec dword ptr [$20000000]
|
||
0081C039 7768 jnbe 0081C0A3
|
||
0081C03B 657265 jb 0081C0A3
|
||
0081C03E 205946 and [ecx+$46], bl
|
||
0081C041 49 dec ecx
|
||
0081C042 643D27000000 cmp eax, $00000027
|
||
0081C048 FFFF DB $FF, $FF //
|
||
0081C04A FFFF DB $FF, $FF //
|
||
0081C04C 0400 add al, +$00
|
||
0081C04E 0000 add [eax], al
|
||
|
||
0081C050 59 pop ecx
|
||
0081C051 46 inc esi
|
||
0081C052 49 dec ecx
|
||
0081C053 640000 add fs:[eax], al
|
||
0081C056 0000 add [eax], al
|
||
|
||
0081C058 53 push ebx
|
||
0081C059 56 push esi
|
||
0081C05A 8BD8 mov ebx, eax
|
||
|
||
* Reference to control ToolBar1 : TToolBar
|
||
|
|
||
0081C05C 8B83F8020000 mov eax, [ebx+$02F8]
|
||
0081C062 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
0081C064 FF92C4000000 call dword ptr [edx+$00C4]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081C06A BAA8C08100 mov edx, $0081C0A8
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081C06F 8BB364030000 mov esi, [ebx+$0364]
|
||
0081C075 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081C077 E838ABCAFF call 004C6BB4
|
||
0081C07C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_4C
|
||
|
|
||
0081C07E FF524C call dword ptr [edx+$4C]
|
||
0081C081 D835B0C08100 fdiv dword ptr [$0081C0B0]
|
||
0081C087 83C4F8 add esp, -$08
|
||
0081C08A DD1C24 fstp qword ptr [esp]
|
||
0081C08D 9B wait
|
||
|
||
* Reference to control Label15 : N.A.
|
||
|
|
||
0081C08E 8B9398030000 mov edx, [ebx+$0398]
|
||
0081C094 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
||
|
|
||
0081C096 E8F5ACF9FF call 007B6D90
|
||
0081C09B 5E pop esi
|
||
0081C09C 5B pop ebx
|
||
0081C09D C3 ret
|
||
|
||
0081C09E 0000 add [eax], al
|
||
|
||
0081C0A0 FFFF DB $FF, $FF //
|
||
0081C0A2 FFFF DB $FF, $FF //
|
||
0081C0A4 050000004D add eax, +$4D000000
|
||
0081C0A9 6F outsd
|
||
0081C0AA 6E outsb
|
||
0081C0AB 657900 jns 0081C0AE
|
||
0081C0AE 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081C4FD(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C4FD 50 push eax
|
||
0081C4FE 6461 popa
|
||
0081C500 7465 jz 0081C567
|
||
0081C502 205946 and [ecx+$46], bl
|
||
0081C505 5F pop edi
|
||
0081C506 4D dec ebp
|
||
0081C507 6F outsd
|
||
0081C508 6E outsb
|
||
0081C509 65795F jns 0081C56B
|
||
0081C50C 43 inc ebx
|
||
0081C50D 52 push edx
|
||
0081C50E 2000 and [eax], al
|
||
0081C510 FFFF DB $FF, $FF //
|
||
0081C512 FFFF DB $FF, $FF //
|
||
0081C514 0D00000020 or eax, $20000000
|
||
0081C519 53 push ebx
|
||
0081C51A 657420 jz 0081C53D
|
||
0081C51D 46 inc esi
|
||
0081C51E 4B dec ebx
|
||
0081C51F 54 push esp
|
||
0081C520 7970 jns 0081C592
|
||
0081C522 653D27000000 cmp eax, $00000027
|
||
0081C528 FFFF DB $FF, $FF //
|
||
0081C52A FFFF DB $FF, $FF //
|
||
0081C52C 0100 add [eax], eax
|
||
0081C52E 0000 add [eax], al
|
||
|
||
0081C530 27 daa
|
||
0081C531 0000 add [eax], al
|
||
|
||
0081C533 00FF add bh, bh
|
||
0081C535 FFFF DB $FF, $FF //
|
||
0081C537 FF0D00000020 dec dword ptr [$20000000]
|
||
0081C53D 7768 jnbe 0081C5A7
|
||
0081C53F 657265 jb 0081C5A7
|
||
0081C542 205946 and [ecx+$46], bl
|
||
0081C545 49 dec ecx
|
||
0081C546 643D27000000 cmp eax, $00000027
|
||
0081C54C FFFF DB $FF, $FF //
|
||
0081C54E FFFF DB $FF, $FF //
|
||
0081C550 0400 add al, +$00
|
||
0081C552 0000 add [eax], al
|
||
|
||
0081C554 59 pop ecx
|
||
0081C555 46 inc esi
|
||
0081C556 49 dec ecx
|
||
0081C557 640000 add fs:[eax], al
|
||
0081C55A 0000 add [eax], al
|
||
|
||
0081C55C 55 push ebp
|
||
0081C55D 8BEC mov ebp, esp
|
||
0081C55F 33C9 xor ecx, ecx
|
||
0081C561 51 push ecx
|
||
0081C562 51 push ecx
|
||
0081C563 51 push ecx
|
||
0081C564 51 push ecx
|
||
0081C565 51 push ecx
|
||
0081C566 51 push ecx
|
||
0081C567 51 push ecx
|
||
0081C568 51 push ecx
|
||
0081C569 53 push ebx
|
||
0081C56A 56 push esi
|
||
0081C56B 57 push edi
|
||
0081C56C 8BF0 mov esi, eax
|
||
0081C56E 33C0 xor eax, eax
|
||
0081C570 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>D<EFBFBD><44><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0081C571 68ABC68100 push $0081C6AB
|
||
|
||
***** TRY
|
||
|
|
||
0081C576 64FF30 push dword ptr fs:[eax]
|
||
0081C579 648920 mov fs:[eax], esp
|
||
0081C57C BAC4C68100 mov edx, $0081C6C4
|
||
|
||
* Reference to control Label15 : N.A.
|
||
|
|
||
0081C581 8B8698030000 mov eax, [esi+$0398]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0081C587 E894C0C6FF call 00488620
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081C58C 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081C592 E829B9CAFF call 004C7EC0
|
||
0081C597 84C0 test al, al
|
||
0081C599 0F85E6000000 jnz 0081C685
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081C59F 8B9E64030000 mov ebx, [esi+$0364]
|
||
0081C5A5 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
0081C5A7 E8A8AFCAFF call 004C7554
|
||
0081C5AC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0081C5AE E87DBACAFF call 004C8030
|
||
0081C5B3 E9B2000000 jmp 0081C66A
|
||
0081C5B8 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0081C5BA E881BECAFF call 004C8440
|
||
|
||
* Reference to control v1Column3 : N.A.
|
||
|
|
||
0081C5BF 8B86D0030000 mov eax, [esi+$03D0]
|
||
0081C5C5 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00C8
|
||
|
|
||
0081C5C7 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0081C5CD 8BD0 mov edx, eax
|
||
0081C5CF 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0081C5D2 E88DC7BFFF call 00418D64
|
||
0081C5D7 8D45F0 lea eax, [ebp-$10]
|
||
0081C5DA 50 push eax
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0081C5DB BAD0C68100 mov edx, $0081C6D0
|
||
0081C5E0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081C5E2 E8CDA5CAFF call 004C6BB4
|
||
0081C5E7 5A pop edx
|
||
0081C5E8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
0081C5EA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Reference to control v1Column3 : N.A.
|
||
|
|
||
0081C5F0 8B86D0030000 mov eax, [esi+$03D0]
|
||
0081C5F6 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00C8
|
||
|
|
||
0081C5F8 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0081C5FE 3C01 cmp al, $01
|
||
0081C600 7557 jnz 0081C659
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
0081C602 BAE0C68100 mov edx, $0081C6E0
|
||
0081C607 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081C609 E8A6A5CAFF call 004C6BB4
|
||
0081C60E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_4C
|
||
|
|
||
0081C610 FF524C call dword ptr [edx+$4C]
|
||
0081C613 DF7DE4 fistp qword ptr [ebp-$1C]
|
||
0081C616 9B wait
|
||
0081C617 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to control Label15 : N.A.
|
||
|
|
||
0081C61A 8BBE98030000 mov edi, [esi+$0398]
|
||
0081C620 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
0081C622 E8C9BFC6FF call 004885F0
|
||
0081C627 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0081C62A E8FD10BFFF call 0040D72C
|
||
0081C62F D80DE8C68100 fmul dword ptr [$0081C6E8]
|
||
0081C635 DF6DE4 fild qword ptr [ebp-$1C]
|
||
0081C638 DEC1 faddp st(1), st(0)
|
||
0081C63A D835E8C68100 fdiv dword ptr [$0081C6E8]
|
||
0081C640 83C4F4 add esp, -$0C
|
||
0081C643 DB3C24 fstp tbyte ptr [esp]
|
||
0081C646 9B wait
|
||
0081C647 8D45EC lea eax, [ebp-$14]
|
||
|
||
|
|
||
0081C64A E85D0FBFFF call 0040D5AC
|
||
0081C64F 8B55EC mov edx, [ebp-$14]
|
||
0081C652 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
0081C654 E8C7BFC6FF call 00488620
|
||
0081C659 8BC3 mov eax, ebx
|
||
0081C65B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0081C65D FF924C020000 call dword ptr [edx+$024C]
|
||
0081C663 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Next(TDataSet);
|
||
|
|
||
0081C665 E8E2BCCAFF call 004C834C
|
||
|
||
* Reference to field N.A..OFFS_00A1
|
||
|
|
||
0081C66A 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
|
||
0081C671 0F8441FFFFFF jz 0081C5B8
|
||
0081C677 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0081C679 E8B2B9CAFF call 004C8030
|
||
0081C67E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
0081C680 E8EFAECAFF call 004C7574
|
||
0081C685 33C0 xor eax, eax
|
||
0081C687 5A pop edx
|
||
0081C688 59 pop ecx
|
||
0081C689 59 pop ecx
|
||
0081C68A 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '_^[<5B><>]<5D>'
|
||
|
|
||
0081C68D 68B2C68100 push $0081C6B2
|
||
0081C692 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081C695 E88A8CBEFF call 00405324
|
||
0081C69A 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0081C69D E8828CBEFF call 00405324
|
||
0081C6A2 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
0081C6A5 E8CA7FBFFF call 00414674
|
||
0081C6AA C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081C999(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081C999 50 push eax
|
||
0081C99A 6461 popa
|
||
0081C99C 7465 jz 0081CA03
|
||
0081C99E 205946 and [ecx+$46], bl
|
||
0081C9A1 5F pop edi
|
||
0081C9A2 4D dec ebp
|
||
0081C9A3 6F outsd
|
||
0081C9A4 6E outsb
|
||
0081C9A5 65795F jns 0081CA07
|
||
0081C9A8 43 inc ebx
|
||
0081C9A9 52 push edx
|
||
0081C9AA 2000 and [eax], al
|
||
0081C9AC FFFF DB $FF, $FF //
|
||
0081C9AE FFFF DB $FF, $FF //
|
||
0081C9B0 0F0000 sldt word ptr [eax]
|
||
0081C9B3 0020 add [eax], ah
|
||
0081C9B5 53 push ebx
|
||
0081C9B6 657420 jz 0081C9D9
|
||
0081C9B9 46 inc esi
|
||
0081C9BA 4B dec ebx
|
||
0081C9BB 54 push esp
|
||
0081C9BC 61 popa
|
||
0081C9BD 69546F753D2700FF imul edx, [edi+ebp*2+$75], $FF00273D
|
||
0081C9C5 FFFF DB $FF, $FF //
|
||
0081C9C7 FF01 inc dword ptr [ecx]
|
||
0081C9C9 0000 add [eax], al
|
||
|
||
0081C9CB 0027 add [edi], ah
|
||
0081C9CD 0000 add [eax], al
|
||
|
||
0081C9CF 00FF add bh, bh
|
||
0081C9D1 FFFF DB $FF, $FF //
|
||
0081C9D3 FF09 dec dword ptr [ecx]
|
||
0081C9D5 0000 add [eax], al
|
||
|
||
0081C9D7 002C4564697465 add [$65746964+eax*2], ch
|
||
0081C9DE 723D jb 0081CA1D
|
||
0081C9E0 27 daa
|
||
0081C9E1 0000 add [eax], al
|
||
|
||
0081C9E3 00FF add bh, bh
|
||
0081C9E5 FFFF DB $FF, $FF //
|
||
0081C9E7 FF1400 call dword ptr [eax+eax]
|
||
0081C9EA 0000 add [eax], al
|
||
|
||
0081C9EC 2C45 sub al, $45
|
||
0081C9EE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0081C9F7 657464 jz 0081CA5E
|
||
0081C9FA 61 popa
|
||
0081C9FB 7465 jz 0081CA62
|
||
0081C9FD 2829 sub [ecx], ch
|
||
0081C9FF 2000 and [eax], al
|
||
0081CA01 0000 add [eax], al
|
||
|
||
0081CA03 00FF add bh, bh
|
||
0081CA05 FFFF DB $FF, $FF //
|
||
0081CA07 FF0D00000020 dec dword ptr [$20000000]
|
||
0081CA0D 7768 jnbe 0081CA77
|
||
0081CA0F 657265 jb 0081CA77
|
||
0081CA12 205946 and [ecx+$46], bl
|
||
0081CA15 49 dec ecx
|
||
0081CA16 643D27000000 cmp eax, $00000027
|
||
0081CA1C FFFF DB $FF, $FF //
|
||
0081CA1E FFFF DB $FF, $FF //
|
||
0081CA20 0400 add al, +$00
|
||
0081CA22 0000 add [eax], al
|
||
|
||
0081CA24 59 pop ecx
|
||
0081CA25 46 inc esi
|
||
0081CA26 49 dec ecx
|
||
0081CA27 640000 add fs:[eax], al
|
||
0081CA2A 0000 add [eax], al
|
||
|
||
0081CA2C 55 push ebp
|
||
0081CA2D 8BEC mov ebp, esp
|
||
0081CA2F B908000000 mov ecx, $00000008
|
||
0081CA34 6A00 push $00
|
||
0081CA36 6A00 push $00
|
||
0081CA38 49 dec ecx
|
||
0081CA39 75F9 jnz 0081CA34
|
||
0081CA3B 53 push ebx
|
||
0081CA3C 56 push esi
|
||
0081CA3D 8BF0 mov esi, eax
|
||
0081CA3F 33C0 xor eax, eax
|
||
0081CA41 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>~<7E><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081CA42 6850CC8100 push $0081CC50
|
||
|
||
***** TRY
|
||
|
|
||
0081CA47 64FF30 push dword ptr fs:[eax]
|
||
0081CA4A 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081CA4D 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081CA53 E868B4CAFF call 004C7EC0
|
||
0081CA58 84C0 test al, al
|
||
0081CA5A 0F85D5010000 jnz 0081CC35
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0081CA60 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0081CA66 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0081CA68 E8678ECAFF call 004C58D4
|
||
0081CA6D 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;
|
||
|
|
||
0081CA6F E83815CCFF call 004DDFAC
|
||
0081CA74 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0081CA76 FF5244 call dword ptr [edx+$44]
|
||
0081CA79 33D2 xor edx, edx
|
||
0081CA7B 8BC3 mov eax, ebx
|
||
0081CA7D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_0190
|
||
|
|
||
0081CA7F FF9190010000 call dword ptr [ecx+$0190]
|
||
0081CA85 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;
|
||
|
|
||
0081CA87 E82015CCFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'EXEC P_Do_Yshx_Zd'
|
||
|
|
||
0081CA8C BA68CC8100 mov edx, $0081CC68
|
||
0081CA91 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081CA93 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0081CA96 BA84CC8100 mov edx, $0081CC84
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081CA9B 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081CAA1 E80EA1CAFF call 004C6BB4
|
||
0081CAA6 8D55F0 lea edx, [ebp-$10]
|
||
0081CAA9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081CAAB FF5160 call dword ptr [ecx+$60]
|
||
0081CAAE 8B45F0 mov eax, [ebp-$10]
|
||
0081CAB1 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081CAB4 E833DEBEFF call 0040A8EC
|
||
0081CAB9 8B45F4 mov eax, [ebp-$0C]
|
||
0081CABC 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
||
|
|
||
0081CABF E830DFBEFF call 0040A9F4
|
||
0081CAC4 8B4DF8 mov ecx, [ebp-$08]
|
||
0081CAC7 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Possible String Reference to: '@skAutoID = '
|
||
|
|
||
0081CACA BA94CC8100 mov edx, $0081CC94
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081CACF E86C8BBEFF call 00405640
|
||
0081CAD4 8B45FC mov eax, [ebp-$04]
|
||
0081CAD7 50 push eax
|
||
0081CAD8 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;
|
||
|
|
||
0081CADA E8CD14CCFF call 004DDFAC
|
||
0081CADF 5A pop edx
|
||
0081CAE0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081CAE2 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'factoryName'
|
||
|
|
||
0081CAE5 BAACCC8100 mov edx, $0081CCAC
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081CAEA 8B8664030000 mov eax, [esi+$0364]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0081CAF0 E8BFA0CAFF call 004C6BB4
|
||
0081CAF5 8D55E0 lea edx, [ebp-$20]
|
||
0081CAF8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
0081CAFA FF5160 call dword ptr [ecx+$60]
|
||
0081CAFD 8B45E0 mov eax, [ebp-$20]
|
||
0081CB00 8D55E4 lea edx, [ebp-$1C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0081CB03 E8E4DDBEFF call 0040A8EC
|
||
0081CB08 8B45E4 mov eax, [ebp-$1C]
|
||
0081CB0B 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
||
|
|
||
0081CB0E E8E1DEBEFF call 0040A9F4
|
||
0081CB13 8B4DE8 mov ecx, [ebp-$18]
|
||
0081CB16 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Possible String Reference to: ',@factoryName = '
|
||
|
|
||
0081CB19 BAC0CC8100 mov edx, $0081CCC0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081CB1E E81D8BBEFF call 00405640
|
||
0081CB23 8B45EC mov eax, [ebp-$14]
|
||
0081CB26 50 push eax
|
||
0081CB27 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;
|
||
|
|
||
0081CB29 E87E14CCFF call 004DDFAC
|
||
0081CB2E 5A pop edx
|
||
0081CB2F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081CB31 FF5138 call dword ptr [ecx+$38]
|
||
0081CB34 6A00 push $00
|
||
0081CB36 6A00 push $00
|
||
0081CB38 6A00 push $00
|
||
0081CB3A 8D45D8 lea eax, [ebp-$28]
|
||
|
||
|
|
||
0081CB3D E86A0ABFFF call 0040D5AC
|
||
0081CB42 8B4DD8 mov ecx, [ebp-$28]
|
||
0081CB45 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Possible String Reference to: ',@hxMoney = '
|
||
|
|
||
0081CB48 BADCCC8100 mov edx, $0081CCDC
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0081CB4D E8EE8ABEFF call 00405640
|
||
0081CB52 8B45DC mov eax, [ebp-$24]
|
||
0081CB55 50 push eax
|
||
0081CB56 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;
|
||
|
|
||
0081CB58 E84F14CCFF call 004DDFAC
|
||
0081CB5D 5A pop edx
|
||
0081CB5E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0081CB60 FF5138 call dword ptr [ecx+$38]
|
||
0081CB63 8D55CC lea edx, [ebp-$34]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081CCF7(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081CCF7 7365 jnb 0081CD5E
|
||
0081CCF9 7249 jb 0081CD44
|
||
0081CCFB 44 inc esp
|
||
0081CCFC 203D2000FFFF and [$FFFF0020], bh
|
||
0081CD02 FFFF DB $FF, $FF //
|
||
0081CD04 0900 or [eax], eax
|
||
0081CD06 0000 add [eax], al
|
||
|
||
0081CD08 2C40 sub al, $40
|
||
0081CD0A 50 push eax
|
||
0081CD0B 5A pop edx
|
||
0081CD0C 4E dec esi
|
||
0081CD0D 6F outsd
|
||
0081CD0E 203D20000000 and [$00000020], bh
|
||
0081CD14 FFFF DB $FF, $FF //
|
||
0081CD16 FFFF DB $FF, $FF //
|
||
0081CD18 0900 or [eax], eax
|
||
0081CD1A 0000 add [eax], al
|
||
|
||
0081CD1C 696E7452657475 imul ebp, [esi+$74], $75746552
|
||
0081CD23 726E jb 0081CD93
|
||
0081CD25 0000 add [eax], al
|
||
|
||
0081CD27 00CC add ah, cl
|
||
0081CD29 E1CA loope -$36
|
||
0081CD2B BED0C5CFA2 mov esi, $A2CFC5D0
|
||
0081CD30 0000 add [eax], al
|
||
|
||
0081CD32 0000 add [eax], al
|
||
|
||
0081CD34 D7 xlat
|
||
0081CD35 D4 aam
|
||
0081CD36 B6AF mov dh, $AF
|
||
0081CD38 BACBCFFACA mov edx, $CAFACFCB
|
||
0081CD3D A7 cmpsd
|
||
0081CD3E B0DC mov al, $DC
|
||
0081CD40 A3A10000D7 mov dword ptr [$D70000A1], eax
|
||
0081CD45 D4 aam
|
||
0081CD46 B6AF mov dh, $AF
|
||
0081CD48 BACBCFFAB3 mov edx, $B3FACFCB
|
||
0081CD4D C9 leave
|
||
0081CD4E B9A6A3A100 mov ecx, $00A1A3A6
|
||
0081CD53 00558B add [ebp-$75], dl
|
||
0081CD56 EC in al, dx
|
||
0081CD57 6A00 push $00
|
||
0081CD59 6A00 push $00
|
||
0081CD5B 53 push ebx
|
||
0081CD5C 8BD8 mov ebx, eax
|
||
0081CD5E 33C0 xor eax, eax
|
||
0081CD60 55 push ebp
|
||
0081CD61 6824CE8100 push $0081CE24
|
||
|
||
***** TRY
|
||
|
|
||
0081CD66 64FF30 push dword ptr fs:[eax]
|
||
0081CD69 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control Label11 : N.A.
|
||
|
|
||
0081CD6C 8B8364030000 mov eax, [ebx+$0364]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0081CD72 E849B1CAFF call 004C7EC0
|
||
0081CD77 84C0 test al, al
|
||
0081CD79 0F858A000000 jnz 0081CE09
|
||
0081CD7F 8BCB mov ecx, ebx
|
||
0081CD81 B201 mov dl, $01
|
||
|
||
* Reference to class TfrmskHx
|
||
|
|
||
0081CD83 A1E0498100 mov eax, dword ptr [$008149E0]
|
||
|
||
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
||
|
|
||
0081CD88 E84350C8FF call 004A1DD0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081D381(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081D381 50 push eax
|
||
0081D382 6461 popa
|
||
0081D384 7465 jz 0081D3EB
|
||
0081D386 205946 and [ecx+$46], bl
|
||
0081D389 5F pop edi
|
||
0081D38A 4D dec ebp
|
||
0081D38B 6F outsd
|
||
0081D38C 6E outsb
|
||
0081D38D 65795F jns 0081D3EF
|
||
0081D390 43 inc ebx
|
||
0081D391 52 push edx
|
||
0081D392 2000 and [eax], al
|
||
0081D394 FFFF DB $FF, $FF //
|
||
0081D396 FFFF DB $FF, $FF //
|
||
0081D398 0F0000 sldt word ptr [eax]
|
||
0081D39B 0020 add [eax], ah
|
||
0081D39D 53 push ebx
|
||
0081D39E 657420 jz 0081D3C1
|
||
0081D3A1 4B dec ebx
|
||
0081D3A2 50 push eax
|
||
0081D3A3 53 push ebx
|
||
0081D3A4 7461 jz 0081D407
|
||
0081D3A6 7475 jz 0081D41D
|
||
0081D3A8 733D jnb 0081D3E7
|
||
0081D3AA 27 daa
|
||
0081D3AB 00FF add bh, bh
|
||
0081D3AD FFFF DB $FF, $FF //
|
||
0081D3AF FF01 inc dword ptr [ecx]
|
||
0081D3B1 0000 add [eax], al
|
||
|
||
0081D3B3 0027 add [edi], ah
|
||
0081D3B5 0000 add [eax], al
|
||
|
||
0081D3B7 00FF add bh, bh
|
||
0081D3B9 FFFF DB $FF, $FF //
|
||
0081D3BB FF0D00000020 dec dword ptr [$20000000]
|
||
0081D3C1 7768 jnbe 0081D42B
|
||
0081D3C3 657265 jb 0081D42B
|
||
0081D3C6 205946 and [ecx+$46], bl
|
||
0081D3C9 49 dec ecx
|
||
0081D3CA 643D27000000 cmp eax, $00000027
|
||
0081D3D0 FFFF DB $FF, $FF //
|
||
0081D3D2 FFFF DB $FF, $FF //
|
||
0081D3D4 0400 add al, +$00
|
||
0081D3D6 0000 add [eax], al
|
||
|
||
0081D3D8 59 pop ecx
|
||
0081D3D9 46 inc esi
|
||
0081D3DA 49 dec ecx
|
||
0081D3DB 640000 add fs:[eax], al
|
||
0081D3DE 0000 add [eax], al
|
||
|
||
0081D3E0 55 push ebp
|
||
0081D3E1 8BEC mov ebp, esp
|
||
0081D3E3 51 push ecx
|
||
0081D3E4 B90A000000 mov ecx, $0000000A
|
||
0081D3E9 6A00 push $00
|
||
0081D3EB 6A00 push $00
|
||
0081D3ED 49 dec ecx
|
||
0081D3EE 75F9 jnz 0081D3E9
|
||
0081D3F0 874DFC xchg [ebp-$04], ecx
|
||
0081D3F3 53 push ebx
|
||
0081D3F4 56 push esi
|
||
0081D3F5 8BF0 mov esi, eax
|
||
0081D3F7 33C0 xor eax, eax
|
||
0081D3F9 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>gt<67><74><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
0081D3FA 6888D68100 push $0081D688
|
||
|
||
***** TRY
|
||
|
|
||
0081D3FF 64FF30 push dword ptr fs:[eax]
|
||
0081D402 648920 mov fs:[eax], esp
|
||
0081D405 33C0 xor eax, eax
|
||
0081D407 55 push ebp
|
||
0081D408 6849D68100 push $0081D649
|
||
|
||
***** TRY
|
||
|
|
||
0081D40D 64FF30 push dword ptr fs:[eax]
|
||
0081D410 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081D6C1(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081D6C1 50 push eax
|
||
0081D6C2 6461 popa
|
||
0081D6C4 7465 jz 0081D72B
|
||
0081D6C6 205946 and [ecx+$46], bl
|
||
0081D6C9 5F pop edi
|
||
0081D6CA 4D dec ebp
|
||
0081D6CB 6F outsd
|
||
0081D6CC 6E outsb
|
||
0081D6CD 65795F jns 0081D72F
|
||
0081D6D0 43 inc ebx
|
||
0081D6D1 52 push edx
|
||
0081D6D2 2000 and [eax], al
|
||
0081D6D4 FFFF DB $FF, $FF //
|
||
0081D6D6 FFFF DB $FF, $FF //
|
||
0081D6D8 0E push cs
|
||
0081D6D9 0000 add [eax], al
|
||
|
||
0081D6DB 0020 add [eax], ah
|
||
0081D6DD 53 push ebx
|
||
0081D6DE 657420 jz 0081D701
|
||
0081D6E1 4F dec edi
|
||
0081D6E2 7264 jb 0081D748
|
||
0081D6E4 65724E jb 0081D735
|
||
0081D6E7 4F dec edi
|
||
0081D6E8 3D270000FF cmp eax, $FF000027
|
||
0081D6ED FFFF DB $FF, $FF //
|
||
0081D6EF FF07 inc dword ptr [edi]
|
||
0081D6F1 0000 add [eax], al
|
||
|
||
0081D6F3 004F72 add [edi+$72], cl
|
||
0081D6F6 6465724E jb 0081D748
|
||
0081D6FA 4F dec edi
|
||
0081D6FB 00FF add bh, bh
|
||
0081D6FD FFFF DB $FF, $FF //
|
||
0081D6FF FF01 inc dword ptr [ecx]
|
||
0081D701 0000 add [eax], al
|
||
|
||
0081D703 0027 add [edi], ah
|
||
0081D705 0000 add [eax], al
|
||
|
||
0081D707 00FF add bh, bh
|
||
0081D709 FFFF DB $FF, $FF //
|
||
0081D70B FF09 dec dword ptr [ecx]
|
||
0081D70D 0000 add [eax], al
|
||
|
||
0081D70F 0020 add [eax], ah
|
||
0081D711 2C43 sub al, $43
|
||
0081D713 6F outsd
|
||
0081D714 6E outsb
|
||
0081D715 4E dec esi
|
||
0081D716 4F dec edi
|
||
0081D717 3D27000000 cmp eax, $00000027
|
||
0081D71C FFFF DB $FF, $FF //
|
||
0081D71E FFFF DB $FF, $FF //
|
||
0081D720 0D00000020 or eax, $20000000
|
||
0081D725 7768 jnbe 0081D78F
|
||
0081D727 657265 jb 0081D78F
|
||
0081D72A 205946 and [ecx+$46], bl
|
||
0081D72D 49 dec ecx
|
||
0081D72E 643D27000000 cmp eax, $00000027
|
||
0081D734 FFFF DB $FF, $FF //
|
||
0081D736 FFFF DB $FF, $FF //
|
||
0081D738 0400 add al, +$00
|
||
0081D73A 0000 add [eax], al
|
||
|
||
0081D73C 59 pop ecx
|
||
0081D73D 46 inc esi
|
||
0081D73E 49 dec ecx
|
||
0081D73F 640000 add fs:[eax], al
|
||
0081D742 0000 add [eax], al
|
||
|
||
0081D744 55 push ebp
|
||
0081D745 8BEC mov ebp, esp
|
||
0081D747 33C0 xor eax, eax
|
||
0081D749 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>s<EFBFBD><73><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
0081D74A 6869D78100 push $0081D769
|
||
|
||
***** TRY
|
||
|
|
||
0081D74F 64FF30 push dword ptr fs:[eax]
|
||
0081D752 648920 mov fs:[eax], esp
|
||
0081D755 FF05A4598900 inc dword ptr [$008959A4]
|
||
0081D75B 33C0 xor eax, eax
|
||
0081D75D 5A pop edx
|
||
0081D75E 59 pop ecx
|
||
0081D75F 59 pop ecx
|
||
0081D760 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
0081D763 6870D78100 push $0081D770
|
||
0081D768 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0081D769 E98673BEFF jmp 00404AF4
|
||
0081D76E EBF8 jmp 0081D768
|
||
|
||
****** END
|
||
|
|
||
0081D770 5D pop ebp
|
||
0081D771 C3 ret
|
||
|
||
0081D772 8BC0 mov eax, eax
|
||
0081D774 832DA459890001 sub dword ptr [$008959A4], +$01
|
||
0081D77B C3 ret
|
||
|
||
0081D77C C8D7 enter , $D7
|
||
0081D77E 810000000000 add dword ptr [eax], $00000000
|
||
0081D784 0000 add [eax], al
|
||
|
||
0081D786 0000 add [eax], al
|
||
|
||
0081D788 BCD8810030 mov esp, $300081D8
|
||
0081D78D DE8100E6D881 fiadd word ptr [ecx+$81D8E600]
|
||
0081D793 000B add [ebx], cl
|
||
0081D795 DD8100000000 fld qword ptr [ecx+$0000]
|
||
0081D79B 00D2 add dl, dl
|
||
0081D79D DD8100140400 fld qword ptr [ecx+$41400]
|
||
0081D7A3 0088F1490028 add [eax+$280049F1], cl
|
||
0081D7A9 D4 aam
|
||
0081D7AA 42 inc edx
|
||
0081D7AB 005C1F4A add [edi+ebx+$4A], bl
|
||
0081D7AF 0010 add [eax], dl
|
||
0081D7B1 214A00 and [edx+$00], ecx
|
||
0081D7B4 BC4540008C mov esp, $8C004045
|
||
0081D7B9 45 inc ebp
|
||
0081D7BA 4A dec edx
|
||
0081D7BB 00E4 add ah, ah
|
||
0081D7BD 42 inc edx
|
||
0081D7BE 40 inc eax
|
||
0081D7BF 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmSKCR._PROC_0081D7E2(Sender : TObject);
|
||
begin
|
||
(*
|
||
0081D7E2 48 dec eax
|
||
0081D7E3 0050D4 add [eax-$2C], dl
|
||
0081D7E6 42 inc edx
|
||
0081D7E7 0008 add [eax], cl
|
||
0081D7E9 2D4A007CD0 sub eax, $D07C004A
|
||
0081D7EE 42 inc edx
|
||
0081D7EF 00F4 add ah, dh
|
||
0081D7F1 6B4A00D0 imul ecx, [edx+$00], $D0
|
||
0081D7F5 1D4A0030F6 sbb eax, $F630004A
|
||
0081D7FA 48 dec eax
|
||
0081D7FB 004CFB48 add [ebx+edi*8+$48], cl
|
||
0081D7FF 0098FA48000C add [eax+$C0048FA], bl
|
||
0081D805 7948 jns 0081D84F
|
||
0081D807 00ACF04800E829 add [eax+esi*8+$29E80048], ch
|
||
0081D80E 4A dec edx
|
||
0081D80F 00E4 add ah, ah
|
||
0081D811 ED in eax, dx
|
||
0081D812 48 dec eax
|
||
0081D813 00547848 add [eax+edi*2+$48], dl
|
||
0081D817 005878 add [eax+$78], bl
|
||
0081D81A 48 dec eax
|
||
0081D81B 00DC add ah, bl
|
||
0081D81D 2A4A00 sub cl, byte ptr [edx+$00]
|
||
0081D820 3CA9 cmp al, $A9
|
||
0081D822 48 dec eax
|
||
0081D823 00C0 add al, al
|
||
0081D825 834800D0 or dword ptr [eax+$00], -$30
|
||
0081D829 7948 jns 0081D873
|
||
0081D82B 004C8548 add [ebp+eax*4+$48], cl
|
||
0081D82F 00D0 add al, dl
|
||
0081D831 2C4A sub al, $4A
|
||
0081D833 009C2B4A008486 add [ebx+ebp+$8684004A], bl
|
||
0081D83A 48 dec eax
|
||
0081D83B 00482D add [eax+$2D], cl
|
||
0081D83E 4A dec edx
|
||
0081D83F 00C0 add al, al
|
||
0081D841 A9480038EE test eax, $EE380048
|
||
0081D846 48 dec eax
|
||
0081D847 00F4 add ah, dh
|
||
0081D849 EE out dx, al
|
||
0081D84A 48 dec eax
|
||
0081D84B 00F0 add al, dh
|
||
0081D84D E94800D8EE jmp EF59D89A
|
||
0081D852 48 dec eax
|
||
0081D853 00D8 add al, bl
|
||
0081D855 1B4A00 sbb ecx, [edx+$00]
|
||
0081D858 EC in al, dx
|
||
0081D859 334A00 xor ecx, [edx+$00]
|
||
0081D85C 20C4 and ah, al
|
||
0081D85E 48 dec eax
|
||
0081D85F 00B0404A0010 add [eax+$10004A40], dh
|
||
0081D865 44 inc esp
|
||
0081D866 4A dec edx
|
||
0081D867 00CC add ah, cl
|
||
0081D869 42 inc edx
|
||
0081D86A 4A dec edx
|
||
0081D86B 00B8C44800BC add [eax+$BC0048C4], bh
|
||
0081D871 C44800 les ecx, [eax+$00]
|
||
0081D874 48 dec eax
|
||
0081D875 45 inc ebp
|
||
0081D876 4A dec edx
|
||
0081D877 001CC3 add [ebx+eax*8], bl
|
||
0081D87A 48 dec eax
|
||
0081D87B 0018 add [eax], bl
|
||
0081D87D F0 lock
|
||
0081D87E 48 dec eax
|
||
0081D87F 00444C4A add [esp+ecx*2+$4A], al
|
||
0081D883 000C02 add [edx+eax], cl
|
||
0081D886 49 dec ecx
|
||
0081D887 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
|
||
0081D88E 4A dec edx
|
||
0081D88F 008C154A003C18 add [ebp+edx+$183C004A], cl
|
||
0081D896 4A dec edx
|
||
0081D897 0038 add [eax], bh
|
||
0081D899 52 push edx
|
||
0081D89A 4A dec edx
|
||
0081D89B 005C224A add [edx+$4A], bl
|
||
0081D89F 00D8 add al, bl
|
||
0081D8A1 224A00 and cl, byte ptr [edx+$00]
|
||
0081D8A4 7C68 jl 0081D90E
|
||
0081D8A6 4A dec edx
|
||
0081D8A7 00941F4A003C60 add [edi+ebx+$603C004A], dl
|
||
0081D8AE 4A dec edx
|
||
0081D8AF 001447 add [edi+eax*2], dl
|
||
0081D8B2 4A dec edx
|
||
0081D8B3 0034654A00CC2C add [$2CCC004A], dh
|
||
0081D8BA 4A dec edx
|
||
0081D8BB 000E add [esi], cl
|
||
0081D8BD 0000 add [eax], al
|
||
|
||
0081D8BF 0000 add [eax], al
|
||
|
||
0081D8C1 000400 add [eax+eax], al
|
||
0081D8C4 0000 add [eax], al
|
||
|
||
0081D8C6 2011 and [ecx], dl
|
||
0081D8C8 40 inc eax
|
||
0081D8C9 000404 add [esp+eax], al
|
||
0081D8CC 0000 add [eax], al
|
||
|
||
0081D8CE 2011 and [ecx], dl
|
||
0081D8D0 40 inc eax
|
||
0081D8D1 0008 add [eax], cl
|
||
0081D8D3 0400 add al, +$00
|
||
0081D8D5 0020 add [eax], ah
|
||
0081D8D7 114000 adc [eax+$00], eax
|
||
0081D8DA 0C04 or al, $04
|
||
0081D8DC 0000 add [eax], al
|
||
|
||
0081D8DE 2011 and [ecx], dl
|
||
0081D8E0 40 inc eax
|
||
0081D8E1 0010 add [eax], dl
|
||
0081D8E3 0400 add al, +$00
|
||
0081D8E5 004300 add [ebx+$00], al
|
||
0081D8E8 E2DD loop -$23
|
||
0081D8EA 8100F8020000 add dword ptr [eax], $000002F8
|
||
0081D8F0 0000 add [eax], al
|
||
|
||
0081D8F2 08546F6F or [edi+ebp*2+$6F], dl
|
||
0081D8F6 6C insb
|
||
0081D8F7 42 inc edx
|
||
0081D8F8 61 popa
|
||
0081D8F9 7231 jb 0081D92C
|
||
0081D8FB FC cld
|
||
0081D8FC 0200 add al, byte ptr [eax]
|
||
0081D8FE 0001 add [ecx], al
|
||
0081D900 0009 add [ecx], cl
|
||
0081D902 54 push esp
|
||
0081D903 42 inc edx
|
||
0081D904 52 push edx
|
||
0081D905 61 popa
|
||
0081D906 667265 jb 0081D96E
|
||
0081D909 7368 jnb 0081D973
|
||
0081D90B 0003 add [ebx], al
|
||
0081D90D 0000 add [eax], al
|
||
|
||
0081D90F 0100 add [eax], eax
|
||
0081D911 07 pop es
|
||
0081D912 54 push esp
|
||
0081D913 42 inc edx
|
||
0081D914 43 inc ebx
|
||
0081D915 6C insb
|
||
0081D916 6F outsd
|
||
0081D917 7365 jnb 0081D97E
|
||
0081D919 0403 add al, +$03
|
||
0081D91B 0000 add [eax], al
|
||
|
||
0081D91D 0200 add al, byte ptr [eax]
|
||
0081D91F 0C41 or al, $41
|
||
0081D921 44 inc esp
|
||
0081D922 4F dec edi
|
||
0081D923 51 push ecx
|
||
0081D924 7565 jnz 0081D98B
|
||
0081D926 7279 jb 0081D9A1
|
||
0081D928 54 push esp
|
||
0081D929 656D insd
|
||
0081D92B 7008 jo 0081D935
|
||
0081D92D 0300 add eax, [eax]
|
||
0081D92F 0002 add [edx], al
|
||
0081D931 000B add [ebx], cl
|
||
0081D933 41 inc ecx
|
||
0081D934 44 inc esp
|
||
0081D935 4F dec edi
|
||
0081D936 51 push ecx
|
||
0081D937 7565 jnz 0081D99E
|
||
0081D939 7279 jb 0081D9B4
|
||
0081D93B 43 inc ebx
|
||
0081D93C 6D insd
|
||
0081D93D 640C03 or al, $03
|
||
0081D940 0000 add [eax], al
|
||
|
||
0081D942 0300 add eax, [eax]
|
||
0081D944 06 push es
|
||
0081D945 50 push eax
|
||
0081D946 61 popa
|
||
0081D947 6E outsb
|
||
0081D948 656C insb
|
||
0081D94A 3110 xor [eax], edx
|
||
0081D94C 0300 add eax, [eax]
|
||
0081D94E 0001 add [ecx], al
|
||
0081D950 000B add [ebx], cl
|
||
0081D952 54 push esp
|
||
0081D953 6F outsd
|
||
0081D954 6F outsd
|
||
0081D955 6C insb
|
||
0081D956 42 inc edx
|
||
0081D957 7574 jnz 0081D9CD
|
||
0081D959 746F jz 0081D9CA
|
||
0081D95B 6E outsb
|
||
0081D95C 321403 xor dl, byte ptr [ebx+eax]
|
||
0081D95F 0000 add [eax], al
|
||
|
||
0081D961 0200 add al, byte ptr [eax]
|
||
0081D963 0C41 or al, $41
|
||
0081D965 44 inc esp
|
||
0081D966 4F dec edi
|
||
0081D967 51 push ecx
|
||
0081D968 7565 jnz 0081D9CF
|
||
0081D96A 7279 jb 0081D9E5
|
||
0081D96C 4D dec ebp
|
||
0081D96D 61 popa
|
||
0081D96E 696E1803000001 imul ebp, [esi+$18], $01000003
|
||
0081D975 000B add [ebx], cl
|
||
0081D977 54 push esp
|
||
0081D978 6F outsd
|
||
0081D979 6F outsd
|
||
0081D97A 6C insb
|
||
0081D97B 42 inc edx
|
||
0081D97C 7574 jnz 0081D9F2
|
||
0081D97E 746F jz 0081D9EF
|
||
0081D980 6E outsb
|
||
0081D981 311C03 xor [ebx+eax], ebx
|
||
0081D984 0000 add [eax], al
|
||
|
||
0081D986 0400 add al, +$00
|
||
0081D988 03524D add edx, [edx+$4D]
|
||
0081D98B 3120 xor [eax], esp
|
||
0081D98D 0300 add eax, [eax]
|
||
0081D98F 00050009524D add [$4D520900], al
|
||
0081D995 44 inc esp
|
||
0081D996 42 inc edx
|
||
0081D997 5F pop edi
|
||
0081D998 4D dec ebp
|
||
0081D999 61 popa
|
||
0081D99A 696E2403000006 imul ebp, [esi+$24], $06000003
|
||
0081D9A1 0006 add [esi], al
|
||
0081D9A3 4C dec esp
|
||
0081D9A4 61 popa
|
||
0081D9A5 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081D9A8 3328 xor ebp, [eax]
|
||
0081D9AA 0300 add eax, [eax]
|
||
0081D9AC 0006 add [esi], al
|
||
0081D9AE 0006 add [esi], al
|
||
0081D9B0 4C dec esp
|
||
0081D9B1 61 popa
|
||
0081D9B2 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081D9B5 322C03 xor ch, byte ptr [ebx+eax]
|
||
0081D9B8 0000 add [eax], al
|
||
|
||
0081D9BA 06 push es
|
||
0081D9BB 0006 add [esi], al
|
||
0081D9BD 4C dec esp
|
||
0081D9BE 61 popa
|
||
0081D9BF 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081D9C2 363003 xor ss:[ebx], al
|
||
0081D9C5 0000 add [eax], al
|
||
|
||
0081D9C7 07 pop es
|
||
0081D9C8 0007 add [edi], al
|
||
0081D9CA 626567 bound esp, qword ptr [ebp+$67]
|
||
0081D9CD 6461 popa
|
||
0081D9CF 7465 jz 0081DA36
|
||
0081D9D1 3403 xor al, $03
|
||
0081D9D3 0000 add [eax], al
|
||
|
||
0081D9D5 07 pop es
|
||
0081D9D6 0007 add [edi], al
|
||
0081D9D8 45 inc ebp
|
||
0081D9D9 6E outsb
|
||
0081D9DA 646461 popa
|
||
0081D9DD 7465 jz 0081DA44
|
||
0081D9DF 3803 cmp [ebx], al
|
||
0081D9E1 0000 add [eax], al
|
||
|
||
0081D9E3 0800 or [eax], al
|
||
0081D9E5 106378 adc [ebx+$78], ah
|
||
0081D9E8 47 inc edi
|
||
0081D9E9 7269 jb 0081DA54
|
||
0081D9EB 6450 push eax
|
||
0081D9ED 6F outsd
|
||
0081D9EE 7075 jo 0081DA65
|
||
0081D9F0 704D jo 0081DA3F
|
||
0081D9F2 656E outsb
|
||
0081D9F4 7532 jnz 0081DA28
|
||
0081D9F6 3C03 cmp al, $03
|
||
0081D9F8 0000 add [eax], al
|
||
|
||
0081D9FA 0900 or [eax], eax
|
||
0081D9FC 0544535F48 add eax, +$485F5344
|
||
0081DA01 5A pop edx
|
||
0081DA02 40 inc eax
|
||
0081DA03 0300 add eax, [eax]
|
||
0081DA05 000A add [edx], cl
|
||
0081DA07 0006 add [esi], al
|
||
0081DA09 43 inc ebx
|
||
0081DA0A 44 inc esp
|
||
0081DA0B 53 push ebx
|
||
0081DA0C 5F pop edi
|
||
0081DA0D 48 dec eax
|
||
0081DA0E 5A pop edx
|
||
0081DA0F 44 inc esp
|
||
0081DA10 0300 add eax, [eax]
|
||
0081DA12 000B add [ebx], cl
|
||
0081DA14 0007 add [edi], al
|
||
0081DA16 637847 arpl [eax+$47], di
|
||
0081DA19 7269 jb 0081DA84
|
||
0081DA1B 64314803 xor fs:[eax+$03], ecx
|
||
0081DA1F 0000 add [eax], al
|
||
|
||
0081DA21 0C00 or al, $00
|
||
0081DA23 03545631 add edx, [esi+edx*2+$31]
|
||
0081DA27 4C dec esp
|
||
0081DA28 0300 add eax, [eax]
|
||
0081DA2A 000D000F6378 add [$78630F00], cl
|
||
0081DA30 47 inc edi
|
||
0081DA31 7269 jb 0081DA9C
|
||
0081DA33 6444 inc esp
|
||
0081DA35 42 inc edx
|
||
0081DA36 43 inc ebx
|
||
0081DA37 6F outsd
|
||
0081DA38 6C insb
|
||
0081DA39 756D jnz 0081DAA8
|
||
0081DA3B 6E outsb
|
||
0081DA3C 385003 cmp [eax+$03], dl
|
||
0081DA3F 0000 add [eax], al
|
||
|
||
0081DA41 0D00106378 or eax, $78631000
|
||
0081DA46 47 inc edi
|
||
0081DA47 7269 jb 0081DAB2
|
||
0081DA49 6444 inc esp
|
||
0081DA4B 42 inc edx
|
||
0081DA4C 43 inc ebx
|
||
0081DA4D 6F outsd
|
||
0081DA4E 6C insb
|
||
0081DA4F 756D jnz 0081DABE
|
||
0081DA51 6E outsb
|
||
0081DA52 3130 xor [eax], esi
|
||
0081DA54 54 push esp
|
||
0081DA55 0300 add eax, [eax]
|
||
0081DA57 000D00106378 add [$78631000], cl
|
||
0081DA5D 47 inc edi
|
||
0081DA5E 7269 jb 0081DAC9
|
||
0081DA60 6444 inc esp
|
||
0081DA62 42 inc edx
|
||
0081DA63 43 inc ebx
|
||
0081DA64 6F outsd
|
||
0081DA65 6C insb
|
||
0081DA66 756D jnz 0081DAD5
|
||
0081DA68 6E outsb
|
||
0081DA69 3131 xor [ecx], esi
|
||
0081DA6B 58 pop eax
|
||
0081DA6C 0300 add eax, [eax]
|
||
0081DA6E 000D00106378 add [$78631000], cl
|
||
0081DA74 47 inc edi
|
||
0081DA75 7269 jb 0081DAE0
|
||
0081DA77 6444 inc esp
|
||
0081DA79 42 inc edx
|
||
0081DA7A 43 inc ebx
|
||
0081DA7B 6F outsd
|
||
0081DA7C 6C insb
|
||
0081DA7D 756D jnz 0081DAEC
|
||
0081DA7F 6E outsb
|
||
0081DA80 3132 xor [edx], esi
|
||
0081DA82 5C pop esp
|
||
0081DA83 0300 add eax, [eax]
|
||
0081DA85 000E add [esi], cl
|
||
0081DA87 000C63 add [ebx], cl
|
||
0081DA8A 7847 js 0081DAD3
|
||
0081DA8C 7269 jb 0081DAF7
|
||
0081DA8E 644C dec esp
|
||
0081DA90 657665 jbe 0081DAF8
|
||
0081DA93 6C insb
|
||
0081DA94 326003 xor ah, byte ptr [eax+$03]
|
||
0081DA97 0000 add [eax], al
|
||
|
||
0081DA99 0D000D5631 or eax, $31560D00
|
||
0081DA9E 46 inc esi
|
||
0081DA9F 61 popa
|
||
0081DAA0 63746F72 arpl [edi+ebp*2+$72], si
|
||
0081DAA4 794E jns 0081DAF4
|
||
0081DAA6 61 popa
|
||
0081DAA7 6D insd
|
||
0081DAA8 65640300 add eax, fs:[eax]
|
||
0081DAAC 000F add [edi], cl
|
||
0081DAAE 000B add [ebx], cl
|
||
0081DAB0 637853 arpl [eax+$53], di
|
||
0081DAB3 706C jo 0081DB21
|
||
0081DAB5 6974746572316803 imul esi, [esp+esi*2+$65], $03683172
|
||
0081DABD 0000 add [eax], al
|
||
|
||
0081DABF 1000 adc [eax], al
|
||
0081DAC1 0B4661 or eax, [esi+$61]
|
||
0081DAC4 63746F72 arpl [edi+ebp*2+$72], si
|
||
0081DAC8 794E jns 0081DB18
|
||
0081DACA 61 popa
|
||
0081DACB 6D insd
|
||
0081DACC 656C insb
|
||
0081DACE 0300 add eax, [eax]
|
||
0081DAD0 000B add [ebx], cl
|
||
0081DAD2 0007 add [edi], al
|
||
0081DAD4 637847 arpl [eax+$47], di
|
||
0081DAD7 7269 jb 0081DB42
|
||
0081DAD9 64327003 xor dh, byte ptr fs:[eax+$03]
|
||
0081DADD 0000 add [eax], al
|
||
|
||
0081DADF 0C00 or al, $00
|
||
0081DAE1 03547632 add edx, [esi+esi*2+$32]
|
||
0081DAE5 7403 jz 0081DAEA
|
||
0081DAE7 0000 add [eax], al
|
||
|
||
0081DAE9 0D00097632 or eax, $32760900
|
||
0081DAEE 43 inc ebx
|
||
0081DAEF 6F outsd
|
||
0081DAF0 6C insb
|
||
0081DAF1 756D jnz 0081DB60
|
||
0081DAF3 6E outsb
|
||
0081DAF4 327803 xor bh, byte ptr [eax+$03]
|
||
0081DAF7 0000 add [eax], al
|
||
|
||
0081DAF9 0D00087632 or eax, $32760800
|
||
0081DAFE 59 pop ecx
|
||
0081DAFF 46 inc esi
|
||
0081DB00 4E dec esi
|
||
0081DB01 61 popa
|
||
0081DB02 6D insd
|
||
0081DB03 657C03 jl 0081DB09
|
||
0081DB06 0000 add [eax], al
|
||
|
||
0081DB08 0D000D7632 or eax, $32760D00
|
||
0081DB0D 6661 popa
|
||
0081DB0F 63746F72 arpl [edi+ebp*2+$72], si
|
||
0081DB13 794E jns 0081DB63
|
||
0081DB15 61 popa
|
||
0081DB16 6D insd
|
||
0081DB17 65800300 add byte ptr gs:[ebx], $00
|
||
0081DB1B 000D000B7632 add [$32760B00], cl
|
||
0081DB21 43 inc ebx
|
||
0081DB22 6F outsd
|
||
0081DB23 6D insd
|
||
0081DB24 54 push esp
|
||
0081DB25 61 popa
|
||
0081DB26 69546F7584030000 imul edx, [edi+ebp*2+$75], $00000384
|
||
0081DB2E 0D00097632 or eax, $32760900
|
||
0081DB33 43 inc ebx
|
||
0081DB34 6F outsd
|
||
0081DB35 6C insb
|
||
0081DB36 756D jnz 0081DBA5
|
||
0081DB38 6E outsb
|
||
0081DB39 3588030000 xor eax, $00000388
|
||
0081DB3E 0D00087632 or eax, $32760800
|
||
0081DB43 50 push eax
|
||
0081DB44 5F pop edi
|
||
0081DB45 53 push ebx
|
||
0081DB46 7065 jo 0081DBAD
|
||
0081DB48 638C0300000D00 arpl [ebx+eax+$D0000], cx
|
||
0081DB4F 087632 or [esi+$32], dh
|
||
0081DB52 46 inc esi
|
||
0081DB53 4B dec ebx
|
||
0081DB54 54 push esp
|
||
0081DB55 7970 jns 0081DBC7
|
||
0081DB57 6590 nop
|
||
0081DB59 0300 add eax, [eax]
|
||
0081DB5B 000D00097632 add [$32760900], cl
|
||
0081DB61 43 inc ebx
|
||
0081DB62 6F outsd
|
||
0081DB63 6C insb
|
||
0081DB64 756D jnz 0081DBD3
|
||
0081DB66 6E outsb
|
||
0081DB67 3694 xchg eax, esp
|
||
0081DB69 0300 add eax, [eax]
|
||
0081DB6B 000D00097632 add [$32760900], cl
|
||
0081DB71 43 inc ebx
|
||
0081DB72 6F outsd
|
||
0081DB73 6C insb
|
||
0081DB74 756D jnz 0081DBE3
|
||
0081DB76 6E outsb
|
||
0081DB77 37 aaa
|
||
0081DB78 98 cwde
|
||
0081DB79 0300 add eax, [eax]
|
||
0081DB7B 000D00097632 add [$32760900], cl
|
||
0081DB81 4B dec ebx
|
||
0081DB82 50 push eax
|
||
0081DB83 4D dec ebp
|
||
0081DB84 6F outsd
|
||
0081DB85 6E outsb
|
||
0081DB86 65799C jns 0081DB25
|
||
0081DB89 0300 add eax, [eax]
|
||
0081DB8B 000D00077632 add [$32760700], cl
|
||
0081DB91 4D dec ebp
|
||
0081DB92 6F outsd
|
||
0081DB93 6E outsb
|
||
0081DB94 6579A0 jns 0081DB37
|
||
0081DB97 0300 add eax, [eax]
|
||
0081DB99 000D00097632 add [$32760900], cl
|
||
0081DB9F 51 push ecx
|
||
0081DBA0 7479 jz 0081DC1B
|
||
0081DBA2 55 push ebp
|
||
0081DBA3 6E outsb
|
||
0081DBA4 6974A40300000D00 imul esi, [esp+$03], $000D0000
|
||
0081DBAC 0A7632 or dh, byte ptr [esi+$32]
|
||
0081DBAF 43 inc ebx
|
||
0081DBB0 6F outsd
|
||
0081DBB1 6C insb
|
||
0081DBB2 756D jnz 0081DC21
|
||
0081DBB4 6E outsb
|
||
0081DBB5 3130 xor [eax], esi
|
||
0081DBB7 A803 test al, $03
|
||
0081DBB9 0000 add [eax], al
|
||
|
||
0081DBBB 0E push cs
|
||
0081DBBC 000C63 add [ebx], cl
|
||
0081DBBF 7847 js 0081DC08
|
||
0081DBC1 7269 jb 0081DC2C
|
||
0081DBC3 644C dec esp
|
||
0081DBC5 657665 jbe 0081DC2D
|
||
0081DBC8 6C insb
|
||
0081DBC9 31AC0300000D00 xor [ebx+eax+$D0000], ebp
|
||
0081DBD0 0A7632 or dh, byte ptr [esi+$32]
|
||
0081DBD3 46 inc esi
|
||
0081DBD4 4B dec ebx
|
||
0081DBD5 54 push esp
|
||
0081DBD6 61 popa
|
||
0081DBD7 69746F75B0030000 imul esi, [edi+ebp*2+$75], $000003B0
|
||
0081DBDF 0A00 or al, byte ptr [eax]
|
||
0081DBE1 0B5946 or ebx, [ecx+$46]
|
||
0081DBE4 6F outsd
|
||
0081DBE5 7264 jb 0081DC4B
|
||
0081DBE7 65725F jb 0081DC49
|
||
0081DBEA 53 push ebx
|
||
0081DBEB 7562 jnz 0081DC4F
|
||
0081DBED B403 mov ah, $03
|
||
0081DBEF 0000 add [eax], al
|
||
|
||
0081DBF1 0900 or [eax], eax
|
||
0081DBF3 0B446174 or eax, [ecx+$74]
|
||
0081DBF7 61 popa
|
||
0081DBF8 53 push ebx
|
||
0081DBF9 6F outsd
|
||
0081DBFA 7572 jnz 0081DC6E
|
||
0081DBFC 636531 arpl [ebp+$31], sp
|
||
0081DBFF B80300000D mov eax, $0D000003
|
||
0081DC04 000A add [edx], cl
|
||
0081DC06 56 push esi
|
||
0081DC07 31464B xor [esi+$4B], eax
|
||
0081DC0A 54 push esp
|
||
0081DC0B 61 popa
|
||
0081DC0C 69746F75BC030000 imul esi, [edi+ebp*2+$75], $000003BC
|
||
0081DC14 06 push es
|
||
0081DC15 0006 add [esi], al
|
||
0081DC17 4C dec esp
|
||
0081DC18 61 popa
|
||
0081DC19 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081DC1C 37 aaa
|
||
0081DC1D C00300 rol byte ptr [ebx], $00
|
||
0081DC20 0011 add [ecx], dl
|
||
0081DC22 0008 add [eax], cl
|
||
0081DC24 46 inc esi
|
||
0081DC25 4B dec ebx
|
||
0081DC26 54 push esp
|
||
0081DC27 61 popa
|
||
0081DC28 69746F75C4030000 imul esi, [edi+ebp*2+$75], $000003C4
|
||
0081DC30 0D000C5631 or eax, $31560C00
|
||
0081DC35 52 push edx
|
||
0081DC36 4D dec ebp
|
||
0081DC37 42 inc edx
|
||
0081DC38 53 push ebx
|
||
0081DC39 51 push ecx
|
||
0081DC3A 4D dec ebp
|
||
0081DC3B 6F outsd
|
||
0081DC3C 6E outsb
|
||
0081DC3D 6579C8 jns 0081DC08
|
||
0081DC40 0300 add eax, [eax]
|
||
0081DC42 0003 add [ebx], al
|
||
0081DC44 0006 add [esi], al
|
||
0081DC46 50 push eax
|
||
0081DC47 61 popa
|
||
0081DC48 6E outsb
|
||
0081DC49 656C insb
|
||
0081DC4B 33CC xor ecx, esp
|
||
0081DC4D 0300 add eax, [eax]
|
||
0081DC4F 0006 add [esi], al
|
||
0081DC51 0007 add [edi], al
|
||
0081DC53 4C dec esp
|
||
0081DC54 61 popa
|
||
0081DC55 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081DC58 3133 xor [ebx], esi
|
||
0081DC5A D003 rol byte ptr [ebx], 1
|
||
0081DC5C 0000 add [eax], al
|
||
|
||
0081DC5E 06 push es
|
||
0081DC5F 0007 add [edi], al
|
||
0081DC61 4C dec esp
|
||
0081DC62 61 popa
|
||
0081DC63 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081DC66 3134D4 xor [esp+edx*8], esi
|
||
0081DC69 0300 add eax, [eax]
|
||
0081DC6B 0006 add [esi], al
|
||
0081DC6D 0007 add [edi], al
|
||
0081DC6F 4C dec esp
|
||
0081DC70 61 popa
|
||
0081DC71 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081DC74 3135D8030000 xor [$000003D8], esi
|
||
0081DC7A 06 push es
|
||
0081DC7B 0007 add [edi], al
|
||
0081DC7D 4C dec esp
|
||
0081DC7E 61 popa
|
||
0081DC7F 62656C bound esp, qword ptr [ebp+$6C]
|
||
0081DC82 3137 xor [edi], esi
|
||
0081DC84 DC03 fadd qword ptr [ebx]
|
||
0081DC86 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
end. |