Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
ece69a5ac1
D7myChuangpin/YSYF/U_FKCR.pas
“ddf” ece69a5ac1 1
2024-07-23 20:18:14 +08:00

11365 lines
427 KiB
ObjectPascal
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

unit U_FKCR;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmFKCR=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;
VHL: TcxGridDBColumn;
VBZ: TcxGridDBColumn;
VYB: TcxGridDBColumn;
VBB: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
Label4: TLabel;
conNo: TEdit;
v2Column1: TcxGridDBColumn;
v2Ssel: TcxGridDBColumn;
v2ComTaiTou: TcxGridDBColumn;
Label5: TLabel;
ComTaiTou: TEdit;
Label10: TLabel;
Label12: TLabel;
v2Chkstatus: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
v2FKType: TcxGridDBColumn;
v2chknote: TcxGridDBColumn;
CheckBox1: TCheckBox;
Label7: TLabel;
FKType: TEdit;
v2BankName: TcxGridDBColumn;
v2BankNo: TcxGridDBColumn;
Label8: TLabel;
BankName: TEdit;
ADOQuery1: TADOQuery;
TPrint: TToolButton;
Order_FK: TClientDataSet;
CheckBox2: TCheckBox;
TSsel: TToolButton;
RMXLSExport1: TRMXLSExport;
v2FXMoney: TcxGridDBColumn;
v2SXMoney: TcxGridDBColumn;
TTJ: TToolButton;
TCXTJ: TToolButton;
cxTabControl1: TcxTabControl;
TSDADD: TToolButton;
v2FKTaitou: TcxGridDBColumn;
v2HuiLv: TcxGridDBColumn;
v2KPType: TcxGridDBColumn;
v2KPStatus: TcxGridDBColumn;
v2OrderNO: TcxGridDBColumn;
Label9: TLabel;
OrderNO: TEdit;
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 conNoChange(Sender : TObject);
procedure v2Column1PropertiesEditValueChanged(Sender : TObject);
procedure v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
procedure v2fstr1PropertiesEditValueChanged(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 THXClick(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure v2FKTypePropertiesButtonClick(Sender : TObject);
procedure CheckBox1Click(Sender : TObject);
procedure v2BankNamePropertiesButtonClick(Sender : TObject);
procedure v2BankNoPropertiesButtonClick(Sender : TObject);
procedure v2FKTaiTouPropertiesButtonClick(Sender : TObject);
procedure TPrintClick(Sender : TObject);
procedure v2QtyPropertiesEditValueChanged(Sender : TObject);
procedure v2PricePropertiesEditValueChanged(Sender : TObject);
procedure v2SQPerponPropertiesButtonClick(Sender : TObject);
procedure TSselClick(Sender : TObject);
procedure TTJClick(Sender : TObject);
procedure TCXTJClick(Sender : TObject);
procedure TSDADDClick(Sender : TObject);
procedure v2KPStatusPropertiesButtonClick(Sender : TObject);
procedure v2OrderNOPropertiesButtonClick(Sender : TObject);
procedure _PROC_007FD3BD(Sender : TObject);
procedure _PROC_007FDDA9(Sender : TObject);
procedure _PROC_007FEA55(Sender : TObject);
procedure _PROC_007FEEC5(Sender : TObject);
procedure _PROC_007FF6A1(Sender : TObject);
procedure _PROC_007FF9DD(Sender : TObject);
procedure _PROC_008006E9(Sender : TObject);
procedure _PROC_00800A06(Sender : TObject);
procedure _PROC_00800A3C(Sender : TObject);
procedure _PROC_00800A49(Sender : TObject);
procedure _PROC_00800D8D(Sender : TObject);
procedure _PROC_008013E1(Sender : TObject);
procedure _PROC_008018A1(Sender : TObject);
procedure _PROC_00801C8D(Sender : TObject);
procedure _PROC_0080205D(Sender : TObject);
procedure _PROC_0080228D(Sender : TObject);
procedure _PROC_00802401(Sender : TObject);
procedure _PROC_00802CFD(Sender : TObject);
procedure _PROC_0080344D(Sender : TObject);
procedure _PROC_00803A45(Sender : TObject);
procedure _PROC_00803DB1(Sender : TObject);
procedure _PROC_0080427D(Sender : TObject);
procedure _PROC_00804FD1(Sender : TObject);
procedure _PROC_008052D5(Sender : TObject);
procedure _PROC_008055C1(Sender : TObject);
procedure _PROC_00806151(Sender : TObject);
procedure _PROC_00806491(Sender : TObject);
procedure _PROC_008065B2(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmFKCR: TfrmFKCR;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmFKCR.FormDestroy(Sender : TObject);
begin
(*
007FD7A8 33C0 xor eax, eax
* Reference to GlobalVar_00893CE8
|
007FD7AA A3E83C8900 mov dword ptr [$00893CE8], eax
007FD7AF C3 ret
*)
end;
procedure TfrmFKCR.FormClose(Sender : TObject);
begin
(*
007FD7B0 C60102 mov byte ptr [ecx], $02
007FD7B3 C3 ret
*)
end;
procedure TfrmFKCR.TBCloseClick(Sender : TObject);
begin
(*
007FD7B4 53 push ebx
007FD7B5 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007FD7B7 B9E0D77F00 mov ecx, $007FD7E0
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
007FD7BC 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'
|
007FD7C2 B8F4D77F00 mov eax, $007FD7F4
|
007FD7C7 E8D4A3FBFF call 007B7BA0
007FD7CC 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007FD7CE E8C587CAFF call 004A5F98
007FD7D3 5B pop ebx
007FD7D4 C3 ret
*)
end;
procedure TfrmFKCR.TBDelClick(Sender : TObject);
begin
(*
007FD800 55 push ebp
007FD801 8BEC mov ebp, esp
007FD803 33C9 xor ecx, ecx
007FD805 51 push ecx
007FD806 51 push ecx
007FD807 51 push ecx
007FD808 51 push ecx
007FD809 51 push ecx
007FD80A 51 push ecx
007FD80B 51 push ecx
007FD80C 51 push ecx
007FD80D 53 push ebx
007FD80E 56 push esi
007FD80F 57 push edi
007FD810 8945FC mov [ebp-$04], eax
007FD813 33C0 xor eax, eax
007FD815 55 push ebp
* Possible String Reference to: '<27><>p<EFBFBD><70><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007FD816 6807DA7F00 push $007FDA07
***** TRY
|
007FD81B 64FF30 push dword ptr fs:[eax]
007FD81E 648920 mov fs:[eax], esp
007FD821 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FD824 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007FD82A E891A6CCFF call 004C7EC0
007FD82F 84C0 test al, al
007FD831 0F85AD010000 jnz 007FD9E4
007FD837 A018DA7F00 mov al, byte ptr [$007FDA18]
007FD83C 50 push eax
007FD83D 8D45EC lea eax, [ebp-$14]
007FD840 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007FD842 E81DB5C1FF call 00418D64
007FD847 8D4DEC lea ecx, [ebp-$14]
007FD84A 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FD84D 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007FD853 BA24DA7F00 mov edx, $007FDA24
007FD858 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007FD85A FF9344020000 call dword ptr [ebx+$0244]
007FD860 84C0 test al, al
007FD862 751D jnz 007FD881
007FD864 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007FD866 B92CDA7F00 mov ecx, $007FDA2C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007FD86B BA34DA7F00 mov edx, $007FDA34
*)
end;
procedure TfrmFKCR.FormShow(Sender : TObject);
begin
(*
007FDAB4 53 push ebx
007FDAB5 8BD8 mov ebx, eax
007FDAB7 33C0 xor eax, eax
* Reference to field TfrmFKCR.OFFS_0420
|
007FDAB9 898320040000 mov [ebx+$0420], eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007FDABF B92CDB7F00 mov ecx, $007FDB2C
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
007FDAC4 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'
|
007FDACA B840DB7F00 mov eax, $007FDB40
|
007FDACF E8D09EFBFF call 007B79A4
* Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery
|
007FDAD4 8B8308030000 mov eax, [ebx+$0308]
|
007FDADA E8A96EFBFF call 007B4988
007FDADF 83C4F8 add esp, -$08
007FDAE2 DD1C24 fstp qword ptr [esp]
007FDAE5 9B wait
* Reference to control TfrmFKCR.Enddate : TDateTimePicker
|
007FDAE6 8B8358030000 mov eax, [ebx+$0358]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007FDAEC E83B47C7FF call 0047222C
* Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery
|
007FDAF1 8B8308030000 mov eax, [ebx+$0308]
|
007FDAF7 E88C6EFBFF call 007B4988
007FDAFC D8254CDB7F00 fsub dword ptr [$007FDB4C]
007FDB02 83C4F8 add esp, -$08
007FDB05 DD1C24 fstp qword ptr [esp]
007FDB08 9B wait
* Reference to control TfrmFKCR.begdate : TDateTimePicker
|
007FDB09 8B8354030000 mov eax, [ebx+$0354]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007FDB0F E81847C7FF call 0047222C
007FDB14 8BC3 mov eax, ebx
|
007FDB16 E849F7FFFF call 007FD264
007FDB1B 8BC3 mov eax, ebx
|
007FDB1D E89AF8FFFF call 007FD3BC
007FDB22 5B pop ebx
007FDB23 C3 ret
*)
end;
procedure TfrmFKCR.TBRafreshClick(Sender : TObject);
begin
(*
007FDB50 53 push ebx
007FDB51 8BD8 mov ebx, eax
* Reference to control TfrmFKCR.ToolBar1 : TToolBar
|
007FDB53 8B83F8020000 mov eax, [ebx+$02F8]
007FDB59 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
007FDB5B FF92C4000000 call dword ptr [edx+$00C4]
007FDB61 8BC3 mov eax, ebx
|
007FDB63 E854F8FFFF call 007FD3BC
007FDB68 5B pop ebx
007FDB69 C3 ret
*)
end;
procedure TfrmFKCR.ToolButton2Click(Sender : TObject);
begin
(*
007FDB6C 55 push ebp
007FDB6D 8BEC mov ebp, esp
007FDB6F 6A00 push $00
007FDB71 53 push ebx
007FDB72 8BD8 mov ebx, eax
007FDB74 33C0 xor eax, eax
007FDB76 55 push ebp
* Possible String Reference to: '<27><>n<EFBFBD><6E><EFBFBD><EFBFBD>[Y]<5D>'
|
007FDB77 6800DC7F00 push $007FDC00
***** TRY
|
007FDB7C 64FF30 push dword ptr fs:[eax]
007FDB7F 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FDB82 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
007FDB88 E8877ECCFF call 004C5A14
007FDB8D 84C0 test al, al
007FDB8F 7459 jz 007FDBEA
007FDB91 BA14DC7F00 mov edx, $007FDC14
* Reference to control TfrmFKCR.Label12 : TLabel
|
007FDB96 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007FDB9C E87FAAC8FF call 00488620
007FDBA1 8D45FC lea eax, [ebp-$04]
007FDBA4 50 push eax
007FDBA5 B902000000 mov ecx, $00000002
007FDBAA BA01000000 mov edx, $00000001
* Reference to control TfrmFKCR.Panel1 : TPanel
|
007FDBAF 8B8310030000 mov eax, [ebx+$0310]
|
007FDBB5 E8F684FBFF call 007B60B0
007FDBBA 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FDBBD 8B8320030000 mov eax, [ebx+$0320]
|
007FDBC3 E80091FBFF call 007B6CC8
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FDBC8 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FDBCE 8B8320030000 mov eax, [ebx+$0320]
|
007FDBD4 E8B792FBFF call 007B6E90
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FDBD9 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FDBDF 8B8320030000 mov eax, [ebx+$0320]
|
007FDBE5 E82E94FBFF call 007B7018
007FDBEA 33C0 xor eax, eax
007FDBEC 5A pop edx
007FDBED 59 pop ecx
007FDBEE 59 pop ecx
007FDBEF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
007FDBF2 6807DC7F00 push $007FDC07
007FDBF7 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007FDBFA E82577C0FF call 00405324
007FDBFF C3 ret
* Reference to: System.@HandleFinally;
|
007FDC00 E9EF6EC0FF jmp 00404AF4
007FDC05 EBF0 jmp 007FDBF7
****** END
|
007FDC07 5B pop ebx
007FDC08 59 pop ecx
007FDC09 5D pop ebp
007FDC0A C3 ret
*)
end;
procedure TfrmFKCR.FactoryNameChange(Sender : TObject);
begin
(*
007FDC18 56 push esi
* Reference to control TfrmFKCR.ToolButton2 : TToolButton
|
007FDC19 8B8014030000 mov eax, [eax+$0314]
007FDC1F 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007FDC23 E82C69C0FF call 00404554
007FDC28 5E pop esi
007FDC29 C3 ret
*)
end;
procedure TfrmFKCR.Button2Click(Sender : TObject);
begin
(*
007FDC2C 55 push ebp
007FDC2D 8BEC mov ebp, esp
007FDC2F 33C9 xor ecx, ecx
007FDC31 51 push ecx
007FDC32 51 push ecx
007FDC33 51 push ecx
007FDC34 51 push ecx
007FDC35 51 push ecx
007FDC36 53 push ebx
007FDC37 56 push esi
007FDC38 8BD8 mov ebx, eax
007FDC3A 33C0 xor eax, eax
007FDC3C 55 push ebp
* Possible String Reference to: '<27><>m<EFBFBD><6D><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FDC3D 6839DD7F00 push $007FDD39
***** TRY
|
007FDC42 64FF30 push dword ptr fs:[eax]
007FDC45 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FDC48 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007FDC4E E86DA2CCFF call 004C7EC0
007FDC53 84C0 test al, al
007FDC55 0F85C3000000 jnz 007FDD1E
007FDC5B 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
007FDC5D B948DD7F00 mov ecx, $007FDD48
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007FDC62 BA50DD7F00 mov edx, $007FDD50
*)
end;
procedure TfrmFKCR.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
007FECA0 55 push ebp
007FECA1 8BEC mov ebp, esp
007FECA3 B908000000 mov ecx, $00000008
007FECA8 6A00 push $00
007FECAA 6A00 push $00
007FECAC 49 dec ecx
007FECAD 75F9 jnz 007FECA8
007FECAF 51 push ecx
007FECB0 53 push ebx
007FECB1 56 push esi
007FECB2 8BDA mov ebx, edx
007FECB4 8BF0 mov esi, eax
007FECB6 33C0 xor eax, eax
007FECB8 55 push ebp
* Possible String Reference to: '<27>A\<5C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FECB9 68AEEE7F00 push $007FEEAE
***** TRY
|
007FECBE 64FF30 push dword ptr fs:[eax]
007FECC1 648920 mov fs:[eax], esp
007FECC4 8D55FC lea edx, [ebp-$04]
007FECC7 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;
|
007FECC9 E8EE09D9FF call 0058F6BC
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
007FECCE 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;
|
007FECD4 E873D6E5FF 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;
|
007FECD9 E8862EE5FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007FECDE 8B4050 mov eax, [eax+$50]
007FECE1 8D55F4 lea edx, [ebp-$0C]
007FECE4 8B08 mov ecx, [eax]
007FECE6 FF5110 call dword ptr [ecx+$10]
007FECE9 8B45F4 mov eax, [ebp-$0C]
007FECEC 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FECEF E8F8BBC0FF call 0040A8EC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FECF4 8B9E64030000 mov ebx, [esi+$0364]
007FECFA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FECFC E83F97CCFF call 004C8440
007FED01 8D55E0 lea edx, [ebp-$20]
007FED04 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FED07 E8E0BBC0FF call 0040A8EC
007FED0C 8B55E0 mov edx, [ebp-$20]
007FED0F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007FED12 E8B1A0C1FF call 00418DC8
007FED17 8D45E4 lea eax, [ebp-$1C]
007FED1A 50 push eax
007FED1B 8B55F8 mov edx, [ebp-$08]
007FED1E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FED20 E88F7ECCFF call 004C6BB4
007FED25 5A pop edx
007FED26 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007FED28 FF91B4000000 call dword ptr [ecx+$00B4]
007FED2E 8BC3 mov eax, ebx
007FED30 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007FED32 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
007FED38 8B9E0C030000 mov ebx, [esi+$030C]
007FED3E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FED40 E88F6BCCFF call 004C58D4
007FED45 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FED47 E860F2CDFF call 004DDFAC
007FED4C 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007FED4E FF5244 call dword ptr [edx+$44]
007FED51 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FED53 E854F2CDFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
007FED58 BAC4EE7F00 mov edx, $007FEEC4
007FED5D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FED5F FF5138 call dword ptr [ecx+$38]
007FED62 8D55DC lea edx, [ebp-$24]
007FED65 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FED68 E87FBBC0FF call 0040A8EC
007FED6D 837DDC00 cmp dword ptr [ebp-$24], +$00
007FED71 7440 jz 007FEDB3
* Possible String Reference to: ' Set '
|
007FED73 68E0EE7F00 push $007FEEE0
007FED78 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007FED7B 68F0EE7F00 push $007FEEF0
007FED80 8D55D4 lea edx, [ebp-$2C]
007FED83 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FED86 E861BBC0FF call 0040A8EC
007FED8B FF75D4 push dword ptr [ebp-$2C]
007FED8E 68FCEE7F00 push $007FEEFC
007FED93 8D45D8 lea eax, [ebp-$28]
007FED96 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007FED9B E81469C0FF call 004056B4
007FEDA0 8B45D8 mov eax, [ebp-$28]
007FEDA3 50 push eax
007FEDA4 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FEDA6 E801F2CDFF call 004DDFAC
007FEDAB 5A pop edx
007FEDAC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FEDAE FF5138 call dword ptr [ecx+$38]
007FEDB1 EB2B jmp 007FEDDE
007FEDB3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FEDB5 E8F2F1CDFF call 004DDFAC
007FEDBA 50 push eax
* Possible String Reference to: ' Set '
|
007FEDBB 68E0EE7F00 push $007FEEE0
007FEDC0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
007FEDC3 6808EF7F00 push $007FEF08
007FEDC8 8D45D0 lea eax, [ebp-$30]
007FEDCB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FEDD0 E8DF68C0FF call 004056B4
007FEDD5 8B55D0 mov edx, [ebp-$30]
007FEDD8 58 pop eax
007FEDD9 8B08 mov ecx, [eax]
007FEDDB FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007FEDDE 6818EF7F00 push $007FEF18
007FEDE3 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmFKCR.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
007FEF6C 55 push ebp
007FEF6D 8BEC mov ebp, esp
007FEF6F B91C000000 mov ecx, $0000001C
007FEF74 6A00 push $00
007FEF76 6A00 push $00
007FEF78 49 dec ecx
007FEF79 75F9 jnz 007FEF74
007FEF7B 51 push ecx
007FEF7C 53 push ebx
007FEF7D 56 push esi
007FEF7E 8BF2 mov esi, edx
007FEF80 8BD8 mov ebx, eax
007FEF82 33C0 xor eax, eax
007FEF84 55 push ebp
007FEF85 68CFF57F00 push $007FF5CF
***** TRY
|
007FEF8A 64FF30 push dword ptr fs:[eax]
007FEF8D 648920 mov fs:[eax], esp
007FEF90 8D55FC lea edx, [ebp-$04]
007FEF93 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;
|
007FEF95 E82207D9FF call 0058F6BC
007FEF9A 8D55DC lea edx, [ebp-$24]
007FEF9D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FEFA0 E847B9C0FF call 0040A8EC
007FEFA5 837DDC00 cmp dword ptr [ebp-$24], +$00
007FEFA9 750D jnz 007FEFB8
007FEFAB 8D45FC lea eax, [ebp-$04]
007FEFAE BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FEFB3 E80464C0FF call 004053BC
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
007FEFB8 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;
|
007FEFBE E889D3E5FF 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;
|
007FEFC3 E89C2BE5FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007FEFC8 8B4050 mov eax, [eax+$50]
007FEFCB 8D55D8 lea edx, [ebp-$28]
007FEFCE 8B08 mov ecx, [eax]
007FEFD0 FF5110 call dword ptr [ecx+$10]
007FEFD3 8B45D8 mov eax, [ebp-$28]
007FEFD6 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FEFD9 E80EB9C0FF call 0040A8EC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FEFDE 8BB364030000 mov esi, [ebx+$0364]
007FEFE4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FEFE6 E85594CCFF call 004C8440
007FEFEB 8D55C4 lea edx, [ebp-$3C]
007FEFEE 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FEFF1 E8F6B8C0FF call 0040A8EC
007FEFF6 8B55C4 mov edx, [ebp-$3C]
007FEFF9 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007FEFFC E8C79DC1FF call 00418DC8
007FF001 8D45C8 lea eax, [ebp-$38]
007FF004 50 push eax
007FF005 8B55E0 mov edx, [ebp-$20]
007FF008 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF00A E8A57BCCFF call 004C6BB4
007FF00F 5A pop edx
007FF010 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007FF012 FF91B4000000 call dword ptr [ecx+$00B4]
007FF018 8BC6 mov eax, esi
007FF01A 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007FF01C FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery
|
007FF022 8BB308030000 mov esi, [ebx+$0308]
007FF028 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FF02A E8A568CCFF call 004C58D4
007FF02F 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF031 E876EFCDFF call 004DDFAC
007FF036 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007FF038 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
007FF03B 68F0F57F00 push $007FF5F0
* Possible String Reference to: 'YFID'
|
007FF040 BA38F67F00 mov edx, $007FF638
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF045 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF04B E8647BCCFF call 004C6BB4
007FF050 8D55BC lea edx, [ebp-$44]
007FF053 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007FF055 FF5160 call dword ptr [ecx+$60]
007FF058 FF75BC push dword ptr [ebp-$44]
007FF05B 6848F67F00 push $007FF648
007FF060 8D45C0 lea eax, [ebp-$40]
007FF063 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FF068 E84766C0FF call 004056B4
007FF06D 8B45C0 mov eax, [ebp-$40]
007FF070 50 push eax
007FF071 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF073 E834EFCDFF call 004DDFAC
007FF078 5A pop edx
007FF079 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FF07B FF5138 call dword ptr [ecx+$38]
007FF07E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007FF080 E84368CCFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
007FF085 BA54F67F00 mov edx, $007FF654
* Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery
|
007FF08A 8B8308030000 mov eax, [ebx+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF090 E81F7BCCFF call 004C6BB4
007FF095 8D55E4 lea edx, [ebp-$1C]
007FF098 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
007FF09A FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
007FF09D BA64F67F00 mov edx, $007FF664
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF0A2 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF0A8 E8077BCCFF call 004C6BB4
007FF0AD 8D55B8 lea edx, [ebp-$48]
007FF0B0 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007FF0B2 FF5160 call dword ptr [ecx+$60]
007FF0B5 8B45B8 mov eax, [ebp-$48]
007FF0B8 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF0BB E82CB8C0FF call 0040A8EC
007FF0C0 8D55B4 lea edx, [ebp-$4C]
007FF0C3 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF0C6 E821B8C0FF call 0040A8EC
007FF0CB 837DB400 cmp dword ptr [ebp-$4C], +$00
007FF0CF 750D jnz 007FF0DE
007FF0D1 8D45F8 lea eax, [ebp-$08]
007FF0D4 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF0D9 E8DE62C0FF call 004053BC
* Possible String Reference to: 'Price'
|
007FF0DE BA70F67F00 mov edx, $007FF670
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF0E3 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF0E9 E8C67ACCFF call 004C6BB4
007FF0EE 8D55B0 lea edx, [ebp-$50]
007FF0F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007FF0F3 FF5160 call dword ptr [ecx+$60]
007FF0F6 8B45B0 mov eax, [ebp-$50]
007FF0F9 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF0FC E8EBB7C0FF call 0040A8EC
007FF101 8D55AC lea edx, [ebp-$54]
007FF104 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF107 E8E0B7C0FF call 0040A8EC
007FF10C 837DAC00 cmp dword ptr [ebp-$54], +$00
007FF110 750D jnz 007FF11F
007FF112 8D45F4 lea eax, [ebp-$0C]
007FF115 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF11A E89D62C0FF call 004053BC
* Possible String Reference to: 'Qty'
|
007FF11F BA64F67F00 mov edx, $007FF664
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF124 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF12A E8857ACCFF call 004C6BB4
007FF12F 8D55A8 lea edx, [ebp-$58]
007FF132 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007FF134 FF5160 call dword ptr [ecx+$60]
007FF137 8B45A8 mov eax, [ebp-$58]
007FF13A 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF13D E8AAB7C0FF call 0040A8EC
007FF142 8D55A4 lea edx, [ebp-$5C]
007FF145 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF148 E89FB7C0FF call 0040A8EC
007FF14D 837DA400 cmp dword ptr [ebp-$5C], +$00
007FF151 750D jnz 007FF160
007FF153 8D45F8 lea eax, [ebp-$08]
007FF156 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF15B E85C62C0FF call 004053BC
* Possible String Reference to: 'Money'
|
007FF160 BA80F67F00 mov edx, $007FF680
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF165 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF16B E8447ACCFF call 004C6BB4
007FF170 8D55A0 lea edx, [ebp-$60]
007FF173 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007FF175 FF5160 call dword ptr [ecx+$60]
007FF178 8B45A0 mov eax, [ebp-$60]
007FF17B 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF17E E869B7C0FF call 0040A8EC
007FF183 8D559C lea edx, [ebp-$64]
007FF186 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF189 E85EB7C0FF call 0040A8EC
007FF18E 837D9C00 cmp dword ptr [ebp-$64], +$00
007FF192 750D jnz 007FF1A1
007FF194 8D45F0 lea eax, [ebp-$10]
007FF197 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF19C E81B62C0FF call 004053BC
* Possible String Reference to: 'HuiLv'
|
007FF1A1 BA90F67F00 mov edx, $007FF690
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF1A6 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF1AC E8037ACCFF call 004C6BB4
007FF1B1 8D5598 lea edx, [ebp-$68]
007FF1B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007FF1B6 FF5160 call dword ptr [ecx+$60]
007FF1B9 8B4598 mov eax, [ebp-$68]
007FF1BC 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF1BF E828B7C0FF call 0040A8EC
007FF1C4 8D5594 lea edx, [ebp-$6C]
007FF1C7 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF1CA E81DB7C0FF call 0040A8EC
007FF1CF 837D9400 cmp dword ptr [ebp-$6C], +$00
007FF1D3 750D jnz 007FF1E2
007FF1D5 8D45EC lea eax, [ebp-$14]
007FF1D8 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF1DD E8DA61C0FF call 004053BC
007FF1E2 8D5590 lea edx, [ebp-$70]
007FF1E5 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF1E8 E8FFB6C0FF call 0040A8EC
007FF1ED 8B4590 mov eax, [ebp-$70]
* Possible String Reference to: 'Money'
|
007FF1F0 BA80F67F00 mov edx, $007FF680
* Reference to: System.@LStrCmp;
|
007FF1F5 E84665C0FF call 00405740
007FF1FA 0F84AD000000 jz 007FF2AD
007FF200 8D558C lea edx, [ebp-$74]
007FF203 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF206 E8E1B6C0FF call 0040A8EC
007FF20B 8B458C mov eax, [ebp-$74]
* Possible String Reference to: 'HuiLv'
|
007FF20E BA90F67F00 mov edx, $007FF690
* Reference to: System.@LStrCmp;
|
007FF213 E82865C0FF call 00405740
007FF218 7469 jz 007FF283
007FF21A 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF21D E80AE5C0FF call 0040D72C
007FF222 DB7D80 fstp tbyte ptr [ebp-$80]
007FF225 9B wait
007FF226 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF229 E8FEE4C0FF call 0040D72C
007FF22E DB6D80 fld tbyte ptr [ebp-$80]
007FF231 DEC9 fmulp st(1), st(0)
007FF233 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
007FF239 9B wait
007FF23A 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF23D E8EAE4C0FF call 0040D72C
007FF242 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
007FF248 DEC9 fmulp st(1), st(0)
007FF24A 83C4F4 add esp, -$0C
007FF24D DB3C24 fstp tbyte ptr [esp]
007FF250 9B wait
007FF251 8D45E8 lea eax, [ebp-$18]
|
007FF254 E853E3C0FF call 0040D5AC
007FF259 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF25C E8CBE4C0FF call 0040D72C
007FF261 DB7D80 fstp tbyte ptr [ebp-$80]
007FF264 9B wait
007FF265 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF268 E8BFE4C0FF call 0040D72C
007FF26D DB6D80 fld tbyte ptr [ebp-$80]
007FF270 DEC9 fmulp st(1), st(0)
007FF272 83C4F4 add esp, -$0C
007FF275 DB3C24 fstp tbyte ptr [esp]
007FF278 9B wait
007FF279 8D45F0 lea eax, [ebp-$10]
|
007FF27C E82BE3C0FF call 0040D5AC
007FF281 EB52 jmp 007FF2D5
007FF283 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF286 E8A1E4C0FF call 0040D72C
007FF28B DB7D80 fstp tbyte ptr [ebp-$80]
007FF28E 9B wait
007FF28F 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF292 E895E4C0FF call 0040D72C
007FF297 DB6D80 fld tbyte ptr [ebp-$80]
007FF29A DEC9 fmulp st(1), st(0)
007FF29C 83C4F4 add esp, -$0C
007FF29F DB3C24 fstp tbyte ptr [esp]
007FF2A2 9B wait
007FF2A3 8D45E8 lea eax, [ebp-$18]
|
007FF2A6 E801E3C0FF call 0040D5AC
007FF2AB EB28 jmp 007FF2D5
007FF2AD 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF2B0 E877E4C0FF call 0040D72C
007FF2B5 DB7D80 fstp tbyte ptr [ebp-$80]
007FF2B8 9B wait
007FF2B9 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF2BC E86BE4C0FF call 0040D72C
007FF2C1 DB6D80 fld tbyte ptr [ebp-$80]
007FF2C4 DEC9 fmulp st(1), st(0)
007FF2C6 83C4F4 add esp, -$0C
007FF2C9 DB3C24 fstp tbyte ptr [esp]
007FF2CC 9B wait
007FF2CD 8D45E8 lea eax, [ebp-$18]
|
007FF2D0 E8D7E2C0FF call 0040D5AC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF2D5 8BB364030000 mov esi, [ebx+$0364]
007FF2DB 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FF2DD E85E91CCFF call 004C8440
* Possible String Reference to: 'Money'
|
007FF2E2 BA80F67F00 mov edx, $007FF680
007FF2E7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF2E9 E8C678CCFF call 004C6BB4
007FF2EE 50 push eax
007FF2EF 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF2F2 E835E4C0FF call 0040D72C
007FF2F7 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
* Reference to: Variants.@VarFromReal;
|
007FF2FD E88A9AC1FF call 00418D8C
007FF302 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
007FF308 58 pop eax
007FF309 8B08 mov ecx, [eax]
007FF30B FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
007FF311 BA54F67F00 mov edx, $007FF654
007FF316 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF318 E89778CCFF call 004C6BB4
007FF31D 50 push eax
007FF31E 8B45E8 mov eax, [ebp-$18]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF321 E806E4C0FF call 0040D72C
007FF326 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
* Reference to: Variants.@VarFromReal;
|
007FF32C E85B9AC1FF call 00418D8C
007FF331 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
007FF337 58 pop eax
007FF338 8B08 mov ecx, [eax]
007FF33A FF91B4000000 call dword ptr [ecx+$00B4]
007FF340 8BC6 mov eax, esi
007FF342 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007FF344 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
007FF34A 8BB30C030000 mov esi, [ebx+$030C]
007FF350 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FF352 E87D65CCFF call 004C58D4
007FF357 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF359 E84EECCDFF call 004DDFAC
007FF35E 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007FF360 FF5244 call dword ptr [edx+$44]
007FF363 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF365 E842ECCDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007FF36A BAA0F67F00 mov edx, $007FF6A0
007FF36F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FF371 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007FF374 68BCF67F00 push $007FF6BC
007FF379 FF75E0 push dword ptr [ebp-$20]
007FF37C 68CCF67F00 push $007FF6CC
007FF381 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
007FF387 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF38A E85DB5C0FF call 0040A8EC
007FF38F FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
007FF395 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
007FF39B BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007FF3A0 E80F63C0FF call 004056B4
007FF3A5 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
007FF3AB 50 push eax
007FF3AC 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF3AE E8F9EBCDFF call 004DDFAC
007FF3B3 5A pop edx
007FF3B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FF3B6 FF5138 call dword ptr [ecx+$38]
007FF3B9 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
007FF3BF 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF3C2 E825B5C0FF call 0040A8EC
007FF3C7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
* Possible String Reference to: 'Money'
|
007FF3CD BA80F67F00 mov edx, $007FF680
* Reference to: System.@LStrCmp;
|
007FF3D2 E86963C0FF call 00405740
007FF3D7 7427 jz 007FF400
007FF3D9 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF3DB E8CCEBCDFF call 004DDFAC
007FF3E0 50 push eax
007FF3E1 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
007FF3E7 8B4DF0 mov ecx, [ebp-$10]
* Possible String Reference to: ',Money='
|
007FF3EA BAD8F67F00 mov edx, $007FF6D8
* Reference to: System.@LStrCat3;
|
007FF3EF E84C62C0FF call 00405640
007FF3F4 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
007FF3FA 58 pop eax
007FF3FB 8B08 mov ecx, [eax]
007FF3FD FF5138 call dword ptr [ecx+$38]
007FF400 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF402 E8A5EBCDFF call 004DDFAC
007FF407 50 push eax
007FF408 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
007FF40E 8B4DE8 mov ecx, [ebp-$18]
* Possible String Reference to: ',BBMoney='
|
007FF411 BAE8F67F00 mov edx, $007FF6E8
* Reference to: System.@LStrCat3;
|
007FF416 E82562C0FF call 00405640
007FF41B 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
007FF421 58 pop eax
007FF422 8B08 mov ecx, [eax]
007FF424 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007FF427 68FCF67F00 push $007FF6FC
007FF42C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
*)
end;
procedure TfrmFKCR.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
007FF7B8 55 push ebp
007FF7B9 8BEC mov ebp, esp
007FF7BB B908000000 mov ecx, $00000008
007FF7C0 6A00 push $00
007FF7C2 6A00 push $00
007FF7C4 49 dec ecx
007FF7C5 75F9 jnz 007FF7C0
007FF7C7 51 push ecx
007FF7C8 53 push ebx
007FF7C9 56 push esi
007FF7CA 8BDA mov ebx, edx
007FF7CC 8BF0 mov esi, eax
007FF7CE 33C0 xor eax, eax
007FF7D0 55 push ebp
* Possible String Reference to: '<27>)Q<><51><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FF7D1 68C6F97F00 push $007FF9C6
***** TRY
|
007FF7D6 64FF30 push dword ptr fs:[eax]
007FF7D9 648920 mov fs:[eax], esp
007FF7DC 8D55FC lea edx, [ebp-$04]
007FF7DF 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;
|
007FF7E1 E8D6FED8FF call 0058F6BC
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
007FF7E6 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;
|
007FF7EC E85BCBE5FF 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;
|
007FF7F1 E86E23E5FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007FF7F6 8B4050 mov eax, [eax+$50]
007FF7F9 8D55F4 lea edx, [ebp-$0C]
007FF7FC 8B08 mov ecx, [eax]
007FF7FE FF5110 call dword ptr [ecx+$10]
007FF801 8B45F4 mov eax, [ebp-$0C]
007FF804 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF807 E8E0B0C0FF call 0040A8EC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FF80C 8B9E64030000 mov ebx, [esi+$0364]
007FF812 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FF814 E8278CCCFF call 004C8440
007FF819 8D55E0 lea edx, [ebp-$20]
007FF81C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF81F E8C8B0C0FF call 0040A8EC
007FF824 8B55E0 mov edx, [ebp-$20]
007FF827 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007FF82A E89995C1FF call 00418DC8
007FF82F 8D45E4 lea eax, [ebp-$1C]
007FF832 50 push eax
007FF833 8B55F8 mov edx, [ebp-$08]
007FF836 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF838 E87773CCFF call 004C6BB4
007FF83D 5A pop edx
007FF83E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007FF840 FF91B4000000 call dword ptr [ecx+$00B4]
007FF846 8BC3 mov eax, ebx
007FF848 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007FF84A FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
007FF850 8B9E0C030000 mov ebx, [esi+$030C]
007FF856 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FF858 E87760CCFF call 004C58D4
007FF85D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF85F E848E7CDFF call 004DDFAC
007FF864 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007FF866 FF5244 call dword ptr [edx+$44]
007FF869 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF86B E83CE7CDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007FF870 BADCF97F00 mov edx, $007FF9DC
007FF875 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FF877 FF5138 call dword ptr [ecx+$38]
007FF87A 8D55DC lea edx, [ebp-$24]
007FF87D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF880 E867B0C0FF call 0040A8EC
007FF885 837DDC00 cmp dword ptr [ebp-$24], +$00
007FF889 7440 jz 007FF8CB
* Possible String Reference to: ' Set '
|
007FF88B 68F8F97F00 push $007FF9F8
007FF890 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007FF893 6808FA7F00 push $007FFA08
007FF898 8D55D4 lea edx, [ebp-$2C]
007FF89B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF89E E849B0C0FF call 0040A8EC
007FF8A3 FF75D4 push dword ptr [ebp-$2C]
007FF8A6 6814FA7F00 push $007FFA14
007FF8AB 8D45D8 lea eax, [ebp-$28]
007FF8AE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007FF8B3 E8FC5DC0FF call 004056B4
007FF8B8 8B45D8 mov eax, [ebp-$28]
007FF8BB 50 push eax
007FF8BC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF8BE E8E9E6CDFF call 004DDFAC
007FF8C3 5A pop edx
007FF8C4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FF8C6 FF5138 call dword ptr [ecx+$38]
007FF8C9 EB2B jmp 007FF8F6
007FF8CB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FF8CD E8DAE6CDFF call 004DDFAC
007FF8D2 50 push eax
* Possible String Reference to: ' Set '
|
007FF8D3 68F8F97F00 push $007FF9F8
007FF8D8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
007FF8DB 6820FA7F00 push $007FFA20
007FF8E0 8D45D0 lea eax, [ebp-$30]
007FF8E3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FF8E8 E8C75DC0FF call 004056B4
007FF8ED 8B55D0 mov edx, [ebp-$30]
007FF8F0 58 pop eax
007FF8F1 8B08 mov ecx, [eax]
007FF8F3 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007FF8F6 6830FA7F00 push $007FFA30
007FF8FB 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmFKCR.ToolButton3Click(Sender : TObject);
begin
(*
007FFA84 55 push ebp
007FFA85 8BEC mov ebp, esp
007FFA87 B927000000 mov ecx, $00000027
007FFA8C 6A00 push $00
007FFA8E 6A00 push $00
007FFA90 49 dec ecx
007FFA91 75F9 jnz 007FFA8C
007FFA93 53 push ebx
007FFA94 56 push esi
007FFA95 8945FC mov [ebp-$04], eax
007FFA98 33C0 xor eax, eax
007FFA9A 55 push ebp
* Possible String Reference to: '<27>}I<><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FFA9B 6872018000 push $00800172
***** TRY
|
007FFAA0 64FF30 push dword ptr fs:[eax]
007FFAA3 648920 mov fs:[eax], esp
007FFAA6 33C0 xor eax, eax
007FFAA8 55 push ebp
007FFAA9 684C008000 push $0080004C
***** TRY
|
007FFAAE 64FF30 push dword ptr fs:[eax]
007FFAB1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
008002BC 55 push ebp
008002BD 8BEC mov ebp, esp
008002BF 51 push ecx
008002C0 B90C000000 mov ecx, $0000000C
008002C5 6A00 push $00
008002C7 6A00 push $00
008002C9 49 dec ecx
008002CA 75F9 jnz 008002C5
008002CC 874DFC xchg [ebp-$04], ecx
008002CF 53 push ebx
008002D0 56 push esi
008002D1 8BF0 mov esi, eax
008002D3 33C0 xor eax, eax
008002D5 55 push ebp
* Possible String Reference to: '<27><>D<EFBFBD><44><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008002D6 6840068000 push $00800640
***** TRY
|
008002DB 64FF30 push dword ptr fs:[eax]
008002DE 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008002E1 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Filler'
|
008002E7 BA58068000 mov edx, $00800658
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008002EC E8C368CCFF call 004C6BB4
008002F1 8D55FC lea edx, [ebp-$04]
008002F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008002F6 FF5160 call dword ptr [ecx+$60]
008002F9 8B45FC mov eax, [ebp-$04]
008002FC 50 push eax
008002FD 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
00800790 55 push ebp
00800791 8BEC mov ebp, esp
00800793 51 push ecx
00800794 B906000000 mov ecx, $00000006
00800799 6A00 push $00
0080079B 6A00 push $00
0080079D 49 dec ecx
0080079E 75F9 jnz 00800799
008007A0 51 push ecx
008007A1 874DFC xchg [ebp-$04], ecx
008007A4 53 push ebx
008007A5 56 push esi
008007A6 8BF0 mov esi, eax
008007A8 33C0 xor eax, eax
008007AA 55 push ebp
008007AB 68E9098000 push $008009E9
***** TRY
|
008007B0 64FF30 push dword ptr fs:[eax]
008007B3 648920 mov fs:[eax], esp
008007B6 33C0 xor eax, eax
008007B8 55 push ebp
008007B9 68BF098000 push $008009BF
***** TRY
|
008007BE 64FF30 push dword ptr fs:[eax]
008007C1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
00800AEC 55 push ebp
00800AED 8BEC mov ebp, esp
00800AEF 51 push ecx
00800AF0 B906000000 mov ecx, $00000006
00800AF5 6A00 push $00
00800AF7 6A00 push $00
00800AF9 49 dec ecx
00800AFA 75F9 jnz 00800AF5
00800AFC 51 push ecx
00800AFD 874DFC xchg [ebp-$04], ecx
00800B00 53 push ebx
00800B01 56 push esi
00800B02 8BF0 mov esi, eax
00800B04 33C0 xor eax, eax
00800B06 55 push ebp
* Possible String Reference to: '<27><>=<3D><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00800B07 68450D8000 push $00800D45
***** TRY
|
00800B0C 64FF30 push dword ptr fs:[eax]
00800B0F 648920 mov fs:[eax], esp
00800B12 33C0 xor eax, eax
00800B14 55 push ebp
00800B15 681B0D8000 push $00800D1B
***** TRY
|
00800B1A 64FF30 push dword ptr fs:[eax]
00800B1D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.ToolButton1Click(Sender : TObject);
begin
(*
00800E30 53 push ebx
00800E31 8BD8 mov ebx, eax
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
00800E33 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00800E39 E88270CCFF call 004C7EC0
00800E3E 84C0 test al, al
00800E40 7516 jnz 00800E58
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
00800E42 B9640E8000 mov ecx, $00800E64
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
00800E47 8B9320030000 mov edx, [ebx+$0320]
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
00800E4D 8B833C030000 mov eax, [ebx+$033C]
|
00800E53 E8D873FBFF call 007B8230
00800E58 5B pop ebx
00800E59 C3 ret
*)
end;
procedure TfrmFKCR.v2Column4PropertiesEditValueChanged(Sender : TObject);
begin
(*
00800E70 55 push ebp
00800E71 8BEC mov ebp, esp
00800E73 B915000000 mov ecx, $00000015
00800E78 6A00 push $00
00800E7A 6A00 push $00
00800E7C 49 dec ecx
00800E7D 75F9 jnz 00800E78
00800E7F 53 push ebx
00800E80 56 push esi
00800E81 8BF2 mov esi, edx
00800E83 8BD8 mov ebx, eax
00800E85 33C0 xor eax, eax
00800E87 55 push ebp
* Possible String Reference to: '<27><>7<EFBFBD><37><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00800E88 6801138000 push $00801301
***** TRY
|
00800E8D 64FF30 push dword ptr fs:[eax]
00800E90 648920 mov fs:[eax], esp
* Possible String Reference to: 'Filler'
|
00800E93 BA18138000 mov edx, $00801318
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00800E98 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00800E9E E8115DCCFF call 004C6BB4
00800EA3 8D55E4 lea edx, [ebp-$1C]
00800EA6 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00800EA8 FF5160 call dword ptr [ecx+$60]
00800EAB 8B45E4 mov eax, [ebp-$1C]
00800EAE 50 push eax
00800EAF 8D55E0 lea edx, [ebp-$20]
*)
end;
procedure TfrmFKCR.v2Column1PropertiesButtonClick(Sender : TObject);
begin
(*
008014E8 55 push ebp
008014E9 8BEC mov ebp, esp
008014EB 51 push ecx
008014EC B90E000000 mov ecx, $0000000E
008014F1 6A00 push $00
008014F3 6A00 push $00
008014F5 49 dec ecx
008014F6 75F9 jnz 008014F1
008014F8 51 push ecx
008014F9 874DFC xchg [ebp-$04], ecx
008014FC 53 push ebx
008014FD 8945FC mov [ebp-$04], eax
00801500 33C0 xor eax, eax
00801502 55 push ebp
* Possible String Reference to: '<27><>2<EFBFBD><32><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00801503 6859188000 push $00801859
***** TRY
|
00801508 64FF30 push dword ptr fs:[eax]
0080150B 648920 mov fs:[eax], esp
0080150E 33C0 xor eax, eax
00801510 55 push ebp
00801511 6805188000 push $00801805
***** TRY
|
00801516 64FF30 push dword ptr fs:[eax]
00801519 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.VBBPropertiesEditValueChanged(Sender : TObject);
begin
(*
00801958 55 push ebp
00801959 8BEC mov ebp, esp
0080195B B909000000 mov ecx, $00000009
00801960 6A00 push $00
00801962 6A00 push $00
00801964 49 dec ecx
00801965 75F9 jnz 00801960
00801967 51 push ecx
00801968 53 push ebx
00801969 56 push esi
0080196A 8BDA mov ebx, edx
0080196C 8BF0 mov esi, eax
0080196E 33C0 xor eax, eax
00801970 55 push ebp
* Possible String Reference to: '<27><>.<2E><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00801971 68F61B8000 push $00801BF6
***** TRY
|
00801976 64FF30 push dword ptr fs:[eax]
00801979 648920 mov fs:[eax], esp
0080197C 8D55FC lea edx, [ebp-$04]
0080197F 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;
|
00801981 E836DDD8FF call 0058F6BC
* Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery
|
00801986 8B9E08030000 mov ebx, [esi+$0308]
0080198C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080198E E8413FCCFF call 004C58D4
00801993 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00801995 E812C6CDFF call 004DDFAC
0080199A 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0080199C FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
0080199F 680C1C8000 push $00801C0C
* Possible String Reference to: 'YFID'
|
008019A4 BA541C8000 mov edx, $00801C54
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008019A9 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008019AF E80052CCFF call 004C6BB4
008019B4 8D55F0 lea edx, [ebp-$10]
008019B7 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008019B9 FF5160 call dword ptr [ecx+$60]
008019BC FF75F0 push dword ptr [ebp-$10]
008019BF 68641C8000 push $00801C64
008019C4 8D45F4 lea eax, [ebp-$0C]
008019C7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008019CC E8E33CC0FF call 004056B4
008019D1 8B45F4 mov eax, [ebp-$0C]
008019D4 50 push eax
008019D5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008019D7 E8D0C5CDFF call 004DDFAC
008019DC 5A pop edx
008019DD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008019DF FF5138 call dword ptr [ecx+$38]
008019E2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
008019E4 E8DF3ECCFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
008019E9 BA701C8000 mov edx, $00801C70
* Reference to control TfrmFKCR.ADOQueryTemp : TADOQuery
|
008019EE 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008019F4 E8BB51CCFF call 004C6BB4
008019F9 8D55F8 lea edx, [ebp-$08]
008019FC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
008019FE FF5160 call dword ptr [ecx+$60]
00801A01 8D55EC lea edx, [ebp-$14]
00801A04 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00801A07 E8E08EC0FF call 0040A8EC
00801A0C 837DEC00 cmp dword ptr [ebp-$14], +$00
00801A10 750D jnz 00801A1F
00801A12 8D45FC lea eax, [ebp-$04]
00801A15 BA801C8000 mov edx, $00801C80
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00801A1A E89D39C0FF call 004053BC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00801A1F 8B9E64030000 mov ebx, [esi+$0364]
00801A25 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00801A27 E8146ACCFF call 004C8440
* Possible String Reference to: 'BBMoney'
|
00801A2C BA701C8000 mov edx, $00801C70
00801A31 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00801A33 E87C51CCFF call 004C6BB4
00801A38 50 push eax
00801A39 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00801A3C E8EBBCC0FF call 0040D72C
00801A41 8D45DC lea eax, [ebp-$24]
* Reference to: Variants.@VarFromReal;
|
00801A44 E84373C1FF call 00418D8C
00801A49 8D55DC lea edx, [ebp-$24]
00801A4C 58 pop eax
00801A4D 8B08 mov ecx, [eax]
00801A4F FF91B4000000 call dword ptr [ecx+$00B4]
00801A55 8BC3 mov eax, ebx
00801A57 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00801A59 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
00801A5F 8B9E0C030000 mov ebx, [esi+$030C]
00801A65 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00801A67 E8683ECCFF call 004C58D4
00801A6C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00801A6E E839C5CDFF call 004DDFAC
00801A73 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00801A75 FF5244 call dword ptr [edx+$44]
00801A78 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00801A7A E82DC5CDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00801A7F BA8C1C8000 mov edx, $00801C8C
00801A84 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00801A86 FF5138 call dword ptr [ecx+$38]
00801A89 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00801A8B E81CC5CDFF call 004DDFAC
00801A90 50 push eax
00801A91 8D45D8 lea eax, [ebp-$28]
00801A94 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set BBMoney='
|
00801A97 BAA81C8000 mov edx, $00801CA8
* Reference to: System.@LStrCat3;
|
00801A9C E89F3BC0FF call 00405640
00801AA1 8B55D8 mov edx, [ebp-$28]
00801AA4 58 pop eax
00801AA5 8B08 mov ecx, [eax]
00801AA7 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00801AAA 68C01C8000 push $00801CC0
00801AAF 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmFKCR.conNoChange(Sender : TObject);
begin
(*
00801D7C 55 push ebp
00801D7D 8BEC mov ebp, esp
00801D7F 6A00 push $00
00801D81 6A00 push $00
00801D83 53 push ebx
00801D84 56 push esi
00801D85 8BD8 mov ebx, eax
00801D87 33C0 xor eax, eax
00801D89 55 push ebp
00801D8A 68E81D8000 push $00801DE8
***** TRY
|
00801D8F 64FF30 push dword ptr fs:[eax]
00801D92 648920 mov fs:[eax], esp
00801D95 8D55F8 lea edx, [ebp-$08]
* Reference to control TfrmFKCR.conNo : TEdit
|
00801D98 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00801D9E E84D68C8FF call 004885F0
00801DA3 8B45F8 mov eax, [ebp-$08]
00801DA6 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00801DA9 E83E8BC0FF call 0040A8EC
00801DAE 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
00801DB1 E83E38C0FF call 004055F4
00801DB6 83F803 cmp eax, +$03
00801DB9 7C0F jl 00801DCA
* Reference to control TfrmFKCR.ToolButton2 : TToolButton
|
00801DBB 8B8314030000 mov eax, [ebx+$0314]
00801DC1 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00801DC5 E88A27C0FF call 00404554
00801DCA 33C0 xor eax, eax
00801DCC 5A pop edx
00801DCD 59 pop ecx
00801DCE 59 pop ecx
00801DCF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[YY]Í@'
|
00801DD2 68EF1D8000 push $00801DEF
00801DD7 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
00801DDA E84535C0FF call 00405324
00801DDF 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00801DE2 E83D35C0FF call 00405324
00801DE7 C3 ret
* Reference to: System.@HandleFinally;
|
00801DE8 E9072DC0FF jmp 00404AF4
00801DED EBE8 jmp 00801DD7
****** END
|
00801DEF 5E pop esi
00801DF0 5B pop ebx
00801DF1 59 pop ecx
00801DF2 59 pop ecx
00801DF3 5D pop ebp
00801DF4 C3 ret
*)
end;
procedure TfrmFKCR.v2Column1PropertiesEditValueChanged(Sender : TObject);
begin
(*
00801DF8 55 push ebp
00801DF9 8BEC mov ebp, esp
00801DFB B908000000 mov ecx, $00000008
00801E00 6A00 push $00
00801E02 6A00 push $00
00801E04 49 dec ecx
00801E05 75F9 jnz 00801E00
00801E07 51 push ecx
00801E08 53 push ebx
00801E09 56 push esi
00801E0A 8BDA mov ebx, edx
00801E0C 8BF0 mov esi, eax
00801E0E 33C0 xor eax, eax
00801E10 55 push ebp
00801E11 681B208000 push $0080201B
***** TRY
|
00801E16 64FF30 push dword ptr fs:[eax]
00801E19 648920 mov fs:[eax], esp
* Possible String Reference to: 'Filler'
|
00801E1C BA30208000 mov edx, $00802030
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00801E21 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00801E27 E8884DCCFF call 004C6BB4
00801E2C 8D55F4 lea edx, [ebp-$0C]
00801E2F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00801E31 FF5160 call dword ptr [ecx+$60]
00801E34 8B45F4 mov eax, [ebp-$0C]
00801E37 50 push eax
00801E38 8D55F0 lea edx, [ebp-$10]
*)
end;
procedure TfrmFKCR.v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
begin
(*
008020F4 55 push ebp
008020F5 8BEC mov ebp, esp
008020F7 B905000000 mov ecx, $00000005
008020FC 6A00 push $00
008020FE 6A00 push $00
00802100 49 dec ecx
00802101 75F9 jnz 008020FC
00802103 53 push ebx
00802104 56 push esi
00802105 8BDA mov ebx, edx
00802107 8BF0 mov esi, eax
00802109 33C0 xor eax, eax
0080210B 55 push ebp
* Possible String Reference to: '<27><>(<28><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0080210C 6855228000 push $00802255
***** TRY
|
00802111 64FF30 push dword ptr fs:[eax]
00802114 648920 mov fs:[eax], esp
00802117 8D55FC lea edx, [ebp-$04]
0080211A 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;
|
0080211C E89BD5D8FF call 0058F6BC
00802121 8D55F8 lea edx, [ebp-$08]
00802124 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00802127 E8C087C0FF call 0040A8EC
0080212C 837DF800 cmp dword ptr [ebp-$08], +$00
00802130 750D jnz 0080213F
00802132 8D45FC lea eax, [ebp-$04]
00802135 BA6C228000 mov edx, $0080226C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0080213A E87D32C0FF call 004053BC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
0080213F 8B9E64030000 mov ebx, [esi+$0364]
00802145 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00802147 E8F462CCFF call 004C8440
0080214C 6A00 push $00
0080214E 6A00 push $00
00802150 6A00 push $00
00802152 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
00802155 E80EB6C0FF call 0040D768
0080215A 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromReal;
|
0080215D E82A6CC1FF call 00418D8C
00802162 8D45E8 lea eax, [ebp-$18]
00802165 50 push eax
* Possible String Reference to: 'DerateMoney'
|
00802166 BA78228000 mov edx, $00802278
0080216B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0080216D E8424ACCFF call 004C6BB4
00802172 5A pop edx
00802173 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00802175 FF91B4000000 call dword ptr [ecx+$00B4]
0080217B 8BC3 mov eax, ebx
0080217D 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0080217F FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
00802185 8B9E0C030000 mov ebx, [esi+$030C]
0080218B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080218D E84237CCFF call 004C58D4
00802192 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00802194 E813BECDFF call 004DDFAC
00802199 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0080219B FF5244 call dword ptr [edx+$44]
0080219E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008021A0 E807BECDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008021A5 BA8C228000 mov edx, $0080228C
008021AA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008021AC FF5138 call dword ptr [ecx+$38]
008021AF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008021B1 E8F6BDCDFF call 004DDFAC
008021B6 50 push eax
008021B7 8D45E4 lea eax, [ebp-$1C]
008021BA 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set DerateMoney='
|
008021BD BAA8228000 mov edx, $008022A8
* Reference to: System.@LStrCat3;
|
008021C2 E87934C0FF call 00405640
008021C7 8B55E4 mov edx, [ebp-$1C]
008021CA 58 pop eax
008021CB 8B08 mov ecx, [eax]
008021CD FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008021D0 68C4228000 push $008022C4
* Possible String Reference to: 'YFId'
|
008021D5 BADC228000 mov edx, $008022DC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008021DA 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008021E0 E8CF49CCFF call 004C6BB4
008021E5 8D55D8 lea edx, [ebp-$28]
008021E8 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008021EA FF5160 call dword ptr [ecx+$60]
008021ED 8B45D8 mov eax, [ebp-$28]
008021F0 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008021F3 E8F486C0FF call 0040A8EC
008021F8 FF75DC push dword ptr [ebp-$24]
008021FB 68EC228000 push $008022EC
00802200 8D45E0 lea eax, [ebp-$20]
00802203 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00802208 E8A734C0FF call 004056B4
0080220D 8B45E0 mov eax, [ebp-$20]
00802210 50 push eax
00802211 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00802213 E894BDCDFF call 004DDFAC
00802218 5A pop edx
00802219 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0080221B FF5138 call dword ptr [ecx+$38]
0080221E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00802220 E8AFBCCDFF call 004DDED4
00802225 33C0 xor eax, eax
00802227 5A pop edx
00802228 59 pop ecx
00802229 59 pop ecx
0080222A 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
0080222D 685C228000 push $0080225C
00802232 8D45D8 lea eax, [ebp-$28]
00802235 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0080223A E80931C0FF call 00405348
0080223F 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00802242 E82D24C1FF call 00414674
00802247 8D45F8 lea eax, [ebp-$08]
0080224A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0080224F E8F430C0FF call 00405348
00802254 C3 ret
* Reference to: System.@HandleFinally;
|
00802255 E99A28C0FF jmp 00404AF4
0080225A EBD6 jmp 00802232
****** END
|
0080225C 5E pop esi
0080225D 5B pop ebx
0080225E 8BE5 mov esp, ebp
00802260 5D pop ebp
00802261 C3 ret
*)
end;
procedure TfrmFKCR.v2fstr1PropertiesEditValueChanged(Sender : TObject);
begin
(*
008022F0 55 push ebp
008022F1 8BEC mov ebp, esp
008022F3 33C9 xor ecx, ecx
008022F5 51 push ecx
008022F6 51 push ecx
008022F7 51 push ecx
008022F8 51 push ecx
008022F9 51 push ecx
008022FA 51 push ecx
008022FB 51 push ecx
008022FC 53 push ebx
008022FD 56 push esi
008022FE 8BDA mov ebx, edx
00802300 8BF0 mov esi, eax
00802302 33C0 xor eax, eax
00802304 55 push ebp
00802305 68EB238000 push $008023EB
***** TRY
|
0080230A 64FF30 push dword ptr fs:[eax]
0080230D 648920 mov fs:[eax], esp
00802310 8D55FC lea edx, [ebp-$04]
00802313 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;
|
00802315 E8A2D3D8FF call 0058F6BC
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
0080231A 8B9E0C030000 mov ebx, [esi+$030C]
00802320 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00802322 E8AD35CCFF call 004C58D4
00802327 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00802329 E87EBCCDFF call 004DDFAC
0080232E 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00802330 FF5244 call dword ptr [edx+$44]
00802333 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00802335 E872BCCDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0080233A BA00248000 mov edx, $00802400
0080233F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00802341 FF5138 call dword ptr [ecx+$38]
00802344 8D55F0 lea edx, [ebp-$10]
00802347 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0080234A E89D85C0FF call 0040A8EC
0080234F 8B45F0 mov eax, [ebp-$10]
00802352 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00802355 E89A86C0FF call 0040A9F4
0080235A 8B4DF4 mov ecx, [ebp-$0C]
0080235D 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: ' set fstr1='
|
00802360 BA1C248000 mov edx, $0080241C
* Reference to: System.@LStrCat3;
|
00802365 E8D632C0FF call 00405640
0080236A 8B45F8 mov eax, [ebp-$08]
0080236D 50 push eax
0080236E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00802370 E837BCCDFF call 004DDFAC
00802375 5A pop edx
00802376 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00802378 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
0080237B 6830248000 push $00802430
* Possible String Reference to: 'YFId'
|
00802380 BA48248000 mov edx, $00802448
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00802385 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0080238B E82448CCFF call 004C6BB4
00802390 8D55E4 lea edx, [ebp-$1C]
00802393 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00802395 FF5160 call dword ptr [ecx+$60]
00802398 8B45E4 mov eax, [ebp-$1C]
0080239B 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0080239E E84985C0FF call 0040A8EC
008023A3 FF75E8 push dword ptr [ebp-$18]
008023A6 6858248000 push $00802458
008023AB 8D45EC lea eax, [ebp-$14]
008023AE BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008023B3 E8FC32C0FF call 004056B4
008023B8 8B45EC mov eax, [ebp-$14]
008023BB 50 push eax
008023BC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008023BE E8E9BBCDFF call 004DDFAC
008023C3 5A pop edx
008023C4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008023C6 FF5138 call dword ptr [ecx+$38]
008023C9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008023CB E804BBCDFF call 004DDED4
008023D0 33C0 xor eax, eax
008023D2 5A pop edx
008023D3 59 pop ecx
008023D4 59 pop ecx
008023D5 648910 mov fs:[eax], edx
****** FINALLY
|
008023D8 68F2238000 push $008023F2
008023DD 8D45E4 lea eax, [ebp-$1C]
008023E0 BA07000000 mov edx, $00000007
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008023E5 E85E2FC0FF call 00405348
008023EA C3 ret
* Reference to: System.@HandleFinally;
|
008023EB E90427C0FF jmp 00404AF4
008023F0 EBEB jmp 008023DD
****** END
|
008023F2 5E pop esi
008023F3 5B pop ebx
008023F4 8BE5 mov esp, ebp
008023F6 5D pop ebp
008023F7 C3 ret
*)
end;
procedure TfrmFKCR.TchkClick(Sender : TObject);
begin
(*
0080245C 55 push ebp
0080245D 8BEC mov ebp, esp
0080245F B904000000 mov ecx, $00000004
00802464 6A00 push $00
00802466 6A00 push $00
00802468 49 dec ecx
00802469 75F9 jnz 00802464
0080246B 51 push ecx
0080246C 53 push ebx
0080246D 56 push esi
0080246E 57 push edi
0080246F 8945FC mov [ebp-$04], eax
00802472 33C0 xor eax, eax
00802474 55 push ebp
* Possible String Reference to: '<27><>$<24><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00802475 685B268000 push $0080265B
***** TRY
|
0080247A 64FF30 push dword ptr fs:[eax]
0080247D 648920 mov fs:[eax], esp
00802480 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00802483 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00802489 E8325ACCFF call 004C7EC0
0080248E 84C0 test al, al
00802490 0F85A2010000 jnz 00802638
00802496 A06C268000 mov al, byte ptr [$0080266C]
0080249B 50 push eax
0080249C 8D45EC lea eax, [ebp-$14]
0080249F B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008024A1 E8BE68C1FF call 00418D64
008024A6 8D4DEC lea ecx, [ebp-$14]
008024A9 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008024AC 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
008024B2 BA78268000 mov edx, $00802678
008024B7 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008024B9 FF9344020000 call dword ptr [ebx+$0244]
008024BF 84C0 test al, al
008024C1 751D jnz 008024E0
008024C3 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008024C5 B980268000 mov ecx, $00802680
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008024CA BA88268000 mov edx, $00802688
*)
end;
procedure TfrmFKCR.TNochkClick(Sender : TObject);
begin
(*
00802710 55 push ebp
00802711 8BEC mov ebp, esp
00802713 B904000000 mov ecx, $00000004
00802718 6A00 push $00
0080271A 6A00 push $00
0080271C 49 dec ecx
0080271D 75F9 jnz 00802718
0080271F 51 push ecx
00802720 53 push ebx
00802721 56 push esi
00802722 57 push edi
00802723 8945FC mov [ebp-$04], eax
00802726 33C0 xor eax, eax
00802728 55 push ebp
* Possible String Reference to: '<27><>!<21><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00802729 680F298000 push $0080290F
***** TRY
|
0080272E 64FF30 push dword ptr fs:[eax]
00802731 648920 mov fs:[eax], esp
00802734 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00802737 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0080273D E87E57CCFF call 004C7EC0
00802742 84C0 test al, al
00802744 0F85A2010000 jnz 008028EC
0080274A A020298000 mov al, byte ptr [$00802920]
0080274F 50 push eax
00802750 8D45EC lea eax, [ebp-$14]
00802753 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00802755 E80A66C1FF call 00418D64
0080275A 8D4DEC lea ecx, [ebp-$14]
0080275D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00802760 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
00802766 BA2C298000 mov edx, $0080292C
0080276B 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0080276D FF9344020000 call dword ptr [ebx+$0244]
00802773 84C0 test al, al
00802775 751D jnz 00802794
00802777 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00802779 B934298000 mov ecx, $00802934
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0080277E BA3C298000 mov edx, $0080293C
*)
end;
procedure TfrmFKCR.cxTabControl1Change(Sender : TObject);
begin
(*
008029B8 53 push ebx
008029B9 8BD8 mov ebx, eax
008029BB 8BC3 mov eax, ebx
|
008029BD E8A2A8FFFF call 007FD264
008029C2 8BC3 mov eax, ebx
|
008029C4 E8F3A9FFFF call 007FD3BC
008029C9 5B pop ebx
008029CA C3 ret
*)
end;
procedure TfrmFKCR.v2ComTaiTouPropertiesButtonClick(Sender : TObject);
begin
(*
008029CC 55 push ebp
008029CD 8BEC mov ebp, esp
008029CF 51 push ecx
008029D0 B907000000 mov ecx, $00000007
008029D5 6A00 push $00
008029D7 6A00 push $00
008029D9 49 dec ecx
008029DA 75F9 jnz 008029D5
008029DC 51 push ecx
008029DD 874DFC xchg [ebp-$04], ecx
008029E0 53 push ebx
008029E1 56 push esi
008029E2 8BF0 mov esi, eax
008029E4 33C0 xor eax, eax
008029E6 55 push ebp
008029E7 68832C8000 push $00802C83
***** TRY
|
008029EC 64FF30 push dword ptr fs:[eax]
008029EF 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008029F2 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Filler'
|
008029F8 BA982C8000 mov edx, $00802C98
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008029FD E8B241CCFF call 004C6BB4
00802A02 8D55FC lea edx, [ebp-$04]
00802A05 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00802A07 FF5160 call dword ptr [ecx+$60]
00802A0A 8B45FC mov eax, [ebp-$04]
00802A0D 50 push eax
00802A0E 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR.v2SselPropertiesChange(Sender : TObject);
begin
(*
00802D94 53 push ebx
00802D95 56 push esi
00802D96 8BD8 mov ebx, eax
* Possible String Reference to: 'Money'
|
00802D98 BAD42D8000 mov edx, $00802DD4
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00802D9D 8BB364030000 mov esi, [ebx+$0364]
00802DA3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00802DA5 E80A3ECCFF call 004C6BB4
00802DAA 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00802DAC FF524C call dword ptr [edx+$4C]
00802DAF D835DC2D8000 fdiv dword ptr [$00802DDC]
00802DB5 83C4F8 add esp, -$08
00802DB8 DD1C24 fstp qword ptr [esp]
00802DBB 9B wait
* Reference to control TfrmFKCR.Label12 : TLabel
|
00802DBC 8B939C030000 mov edx, [ebx+$039C]
00802DC2 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00802DC4 E8C73FFBFF call 007B6D90
00802DC9 5E pop esi
00802DCA 5B pop ebx
00802DCB C3 ret
*)
end;
procedure TfrmFKCR.Tv2StylesGetContentStyle(Sender : TObject);
begin
(*
00802DE0 55 push ebp
00802DE1 8BEC mov ebp, esp
00802DE3 6A00 push $00
00802DE5 6A00 push $00
00802DE7 6A00 push $00
00802DE9 6A00 push $00
00802DEB 6A00 push $00
00802DED 6A00 push $00
00802DEF 6A00 push $00
00802DF1 6A00 push $00
00802DF3 53 push ebx
00802DF4 56 push esi
00802DF5 8BF1 mov esi, ecx
00802DF7 8BD8 mov ebx, eax
00802DF9 33C0 xor eax, eax
00802DFB 55 push ebp
00802DFC 68722E8000 push $00802E72
***** TRY
|
00802E01 64FF30 push dword ptr fs:[eax]
00802E04 648920 mov fs:[eax], esp
* Possible String Reference to: 'ChkStatus'
|
00802E07 BA8C2E8000 mov edx, $00802E8C
* Reference to control TfrmFKCR.Tv2 : TcxGridDBTableView
|
00802E0C 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;
|
00802E12 E8098CE6FF call 0066BA20
* Reference to field TcxGridDBTableView.OFFS_006C
|
00802E17 8B586C mov ebx, [eax+$6C]
00802E1A 8D4DF0 lea ecx, [ebp-$10]
00802E1D 8BD3 mov edx, ebx
00802E1F 8BC6 mov eax, esi
00802E21 8B18 mov ebx, [eax]
00802E23 FF5340 call dword ptr [ebx+$40]
00802E26 8D45F0 lea eax, [ebp-$10]
00802E29 50 push eax
00802E2A 8D45E0 lea eax, [ebp-$20]
* Possible String Reference to: '<27><>ͨ<EFBFBD><CDA8>'
|
00802E2D BAA02E8000 mov edx, $00802EA0
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00802E32 E8915FC1FF call 00418DC8
00802E37 8D55E0 lea edx, [ebp-$20]
00802E3A 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);
|
00802E3B E8ACA5C1FF call 0041D3EC
00802E40 750F jnz 00802E51
*)
end;
procedure TfrmFKCR.THXClick(Sender : TObject);
begin
(*
00802EA8 55 push ebp
00802EA9 8BEC mov ebp, esp
00802EAB B904000000 mov ecx, $00000004
00802EB0 6A00 push $00
00802EB2 6A00 push $00
00802EB4 49 dec ecx
00802EB5 75F9 jnz 00802EB0
00802EB7 51 push ecx
00802EB8 53 push ebx
00802EB9 56 push esi
00802EBA 8BD8 mov ebx, eax
00802EBC 33C0 xor eax, eax
00802EBE 55 push ebp
00802EBF 6862308000 push $00803062
***** TRY
|
00802EC4 64FF30 push dword ptr fs:[eax]
00802EC7 648920 mov fs:[eax], esp
00802ECA 8BCB mov ecx, ebx
00802ECC B201 mov dl, $01
* Reference to class TfrmYFFP_HX
|
00802ECE A1B88D7E00 mov eax, dword ptr [$007E8DB8]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00802ED3 E8F8EEC9FF call 004A1DD0
*)
end;
procedure TfrmFKCR.N1Click(Sender : TObject);
begin
(*
00803148 B201 mov dl, $01
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
0080314A 8B8064030000 mov eax, [eax+$0364]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00803150 E84F53FBFF call 007B84A4
00803155 C3 ret
*)
end;
procedure TfrmFKCR.N2Click(Sender : TObject);
begin
(*
00803158 33D2 xor edx, edx
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
0080315A 8B8064030000 mov eax, [eax+$0364]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00803160 E83F53FBFF call 007B84A4
00803165 C3 ret
*)
end;
procedure TfrmFKCR.v2FKTypePropertiesButtonClick(Sender : TObject);
begin
(*
00803168 55 push ebp
00803169 8BEC mov ebp, esp
0080316B 51 push ecx
0080316C B906000000 mov ecx, $00000006
00803171 6A00 push $00
00803173 6A00 push $00
00803175 49 dec ecx
00803176 75F9 jnz 00803171
00803178 51 push ecx
00803179 874DFC xchg [ebp-$04], ecx
0080317C 53 push ebx
0080317D 56 push esi
0080317E 8BF0 mov esi, eax
00803180 33C0 xor eax, eax
00803182 55 push ebp
00803183 68D4338000 push $008033D4
***** TRY
|
00803188 64FF30 push dword ptr fs:[eax]
0080318B 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
0080318E 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Filler'
|
00803194 BAEC338000 mov edx, $008033EC
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803199 E8163ACCFF call 004C6BB4
0080319E 8D55FC lea edx, [ebp-$04]
008031A1 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008031A3 FF5160 call dword ptr [ecx+$60]
008031A6 8B45FC mov eax, [ebp-$04]
008031A9 50 push eax
008031AA 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR.CheckBox1Click(Sender : TObject);
begin
(*
008034AC 55 push ebp
008034AD 8BEC mov ebp, esp
008034AF 33C9 xor ecx, ecx
008034B1 51 push ecx
008034B2 51 push ecx
008034B3 51 push ecx
008034B4 51 push ecx
008034B5 51 push ecx
008034B6 51 push ecx
008034B7 51 push ecx
008034B8 51 push ecx
008034B9 53 push ebx
008034BA 56 push esi
008034BB 57 push edi
008034BC 8BF0 mov esi, eax
008034BE 33C0 xor eax, eax
008034C0 55 push ebp
008034C1 68FB358000 push $008035FB
***** TRY
|
008034C6 64FF30 push dword ptr fs:[eax]
008034C9 648920 mov fs:[eax], esp
008034CC BA14368000 mov edx, $00803614
* Reference to control TfrmFKCR.Label12 : TLabel
|
008034D1 8B869C030000 mov eax, [esi+$039C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008034D7 E84451C8FF call 00488620
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008034DC 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008034E2 E8D949CCFF call 004C7EC0
008034E7 84C0 test al, al
008034E9 0F85E6000000 jnz 008035D5
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008034EF 8B9E64030000 mov ebx, [esi+$0364]
008034F5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
008034F7 E85840CCFF call 004C7554
008034FC 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
008034FE E82D4BCCFF call 004C8030
00803503 E9B2000000 jmp 008035BA
00803508 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0080350A E8314FCCFF call 004C8440
* Reference to control TfrmFKCR.CheckBox1 : TCheckBox
|
0080350F 8B86B8030000 mov eax, [esi+$03B8]
00803515 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00803517 FF92C8000000 call dword ptr [edx+$00C8]
0080351D 8BD0 mov edx, eax
0080351F 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00803522 E83D58C1FF call 00418D64
00803527 8D45F0 lea eax, [ebp-$10]
0080352A 50 push eax
* Possible String Reference to: 'ssel'
|
0080352B BA20368000 mov edx, $00803620
00803530 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803532 E87D36CCFF call 004C6BB4
00803537 5A pop edx
00803538 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0080353A FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmFKCR.CheckBox1 : TCheckBox
|
00803540 8B86B8030000 mov eax, [esi+$03B8]
00803546 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00803548 FF92C8000000 call dword ptr [edx+$00C8]
0080354E 3C01 cmp al, $01
00803550 7557 jnz 008035A9
* Possible String Reference to: 'Money'
|
00803552 BA30368000 mov edx, $00803630
00803557 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803559 E85636CCFF call 004C6BB4
0080355E 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00803560 FF524C call dword ptr [edx+$4C]
00803563 DF7DE4 fistp qword ptr [ebp-$1C]
00803566 9B wait
00803567 8D55E0 lea edx, [ebp-$20]
* Reference to control TfrmFKCR.Label12 : TLabel
|
0080356A 8BBE9C030000 mov edi, [esi+$039C]
00803570 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00803572 E87950C8FF call 004885F0
00803577 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0080357A E8ADA1C0FF call 0040D72C
0080357F D80D38368000 fmul dword ptr [$00803638]
00803585 DF6DE4 fild qword ptr [ebp-$1C]
00803588 DEC1 faddp st(1), st(0)
0080358A D83538368000 fdiv dword ptr [$00803638]
00803590 83C4F4 add esp, -$0C
00803593 DB3C24 fstp tbyte ptr [esp]
00803596 9B wait
00803597 8D45EC lea eax, [ebp-$14]
|
0080359A E80DA0C0FF call 0040D5AC
0080359F 8B55EC mov edx, [ebp-$14]
008035A2 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008035A4 E87750C8FF call 00488620
008035A9 8BC3 mov eax, ebx
008035AB 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008035AD FF924C020000 call dword ptr [edx+$024C]
008035B3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
008035B5 E8924DCCFF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
008035BA 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
008035C1 0F8441FFFFFF jz 00803508
008035C7 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
008035C9 E8624ACCFF call 004C8030
008035CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008035D0 E89F3FCCFF call 004C7574
008035D5 33C0 xor eax, eax
008035D7 5A pop edx
008035D8 59 pop ecx
008035D9 59 pop ecx
008035DA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
008035DD 6802368000 push $00803602
008035E2 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
008035E5 E83A1DC0FF call 00405324
008035EA 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
008035ED E8321DC0FF call 00405324
008035F2 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008035F5 E87A10C1FF call 00414674
008035FA C3 ret
* Reference to: System.@HandleFinally;
|
008035FB E9F414C0FF jmp 00404AF4
00803600 EBE0 jmp 008035E2
****** END
|
00803602 5F pop edi
00803603 5E pop esi
00803604 5B pop ebx
00803605 8BE5 mov esp, ebp
00803607 5D pop ebp
00803608 C3 ret
*)
end;
procedure TfrmFKCR.v2BankNamePropertiesButtonClick(Sender : TObject);
begin
(*
0080363C 55 push ebp
0080363D 8BEC mov ebp, esp
0080363F 51 push ecx
00803640 B90B000000 mov ecx, $0000000B
00803645 6A00 push $00
00803647 6A00 push $00
00803649 49 dec ecx
0080364A 75F9 jnz 00803645
0080364C 874DFC xchg [ebp-$04], ecx
0080364F 53 push ebx
00803650 56 push esi
00803651 8BF0 mov esi, eax
00803653 33C0 xor eax, eax
00803655 55 push ebp
00803656 6884398000 push $00803984
***** TRY
|
0080365B 64FF30 push dword ptr fs:[eax]
0080365E 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00803661 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Filler'
|
00803667 BA9C398000 mov edx, $0080399C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0080366C E84335CCFF call 004C6BB4
00803671 8D55FC lea edx, [ebp-$04]
00803674 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00803676 FF5160 call dword ptr [ecx+$60]
00803679 8B45FC mov eax, [ebp-$04]
0080367C 50 push eax
0080367D 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR.v2BankNoPropertiesButtonClick(Sender : TObject);
begin
(*
00803AB8 55 push ebp
00803AB9 8BEC mov ebp, esp
00803ABB 51 push ecx
00803ABC B906000000 mov ecx, $00000006
00803AC1 6A00 push $00
00803AC3 6A00 push $00
00803AC5 49 dec ecx
00803AC6 75F9 jnz 00803AC1
00803AC8 51 push ecx
00803AC9 874DFC xchg [ebp-$04], ecx
00803ACC 53 push ebx
00803ACD 56 push esi
00803ACE 8BF0 mov esi, eax
00803AD0 33C0 xor eax, eax
00803AD2 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00803AD3 68243D8000 push $00803D24
***** TRY
|
00803AD8 64FF30 push dword ptr fs:[eax]
00803ADB 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00803ADE 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Filler'
|
00803AE4 BA3C3D8000 mov edx, $00803D3C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803AE9 E8C630CCFF call 004C6BB4
00803AEE 8D55FC lea edx, [ebp-$04]
00803AF1 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00803AF3 FF5160 call dword ptr [ecx+$60]
00803AF6 8B45FC mov eax, [ebp-$04]
00803AF9 50 push eax
00803AFA 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR.v2FKTaiTouPropertiesButtonClick(Sender : TObject);
begin
(*
00803E10 55 push ebp
00803E11 8BEC mov ebp, esp
00803E13 51 push ecx
00803E14 B909000000 mov ecx, $00000009
00803E19 6A00 push $00
00803E1B 6A00 push $00
00803E1D 49 dec ecx
00803E1E 75F9 jnz 00803E19
00803E20 874DFC xchg [ebp-$04], ecx
00803E23 53 push ebx
00803E24 56 push esi
00803E25 8BD8 mov ebx, eax
00803E27 33C0 xor eax, eax
00803E29 55 push ebp
00803E2A 685A418000 push $0080415A
***** TRY
|
00803E2F 64FF30 push dword ptr fs:[eax]
00803E32 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00803E35 8B8364030000 mov eax, [ebx+$0364]
* Possible String Reference to: 'Filler'
|
00803E3B BA70418000 mov edx, $00804170
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803E40 E86F2DCCFF call 004C6BB4
00803E45 8D55FC lea edx, [ebp-$04]
00803E48 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00803E4A FF5160 call dword ptr [ecx+$60]
00803E4D 8B45FC mov eax, [ebp-$04]
00803E50 50 push eax
00803E51 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR.TPrintClick(Sender : TObject);
begin
(*
008042D0 55 push ebp
008042D1 8BEC mov ebp, esp
008042D3 B923000000 mov ecx, $00000023
008042D8 6A00 push $00
008042DA 6A00 push $00
008042DC 49 dec ecx
008042DD 75F9 jnz 008042D8
008042DF 51 push ecx
008042E0 53 push ebx
008042E1 56 push esi
008042E2 8BD8 mov ebx, eax
008042E4 33C0 xor eax, eax
008042E6 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>^[<5B><>]<5D>'
|
008042E7 68354B8000 push $00804B35
***** TRY
|
008042EC 64FF30 push dword ptr fs:[eax]
008042EF 648920 mov fs:[eax], esp
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008042F2 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008042F8 E8C33BCCFF call 004C7EC0
008042FD 84C0 test al, al
008042FF 0F857B070000 jnz 00804A80
00804305 A0484B8000 mov al, byte ptr [$00804B48]
0080430A 50 push eax
0080430B 8D45D4 lea eax, [ebp-$2C]
0080430E B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00804310 E84F4AC1FF call 00418D64
00804315 8D4DD4 lea ecx, [ebp-$2C]
* Possible String Reference to: 'Ssel'
|
00804318 BA544B8000 mov edx, $00804B54
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
0080431D 8B8364030000 mov eax, [ebx+$0364]
00804323 8B30 mov esi, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00804325 FF9644020000 call dword ptr [esi+$0244]
0080432B 84C0 test al, al
0080432D 751D jnz 0080434C
0080432F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00804331 B95C4B8000 mov ecx, $00804B5C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00804336 BA644B8000 mov edx, $00804B64
*)
end;
procedure TfrmFKCR.v2QtyPropertiesEditValueChanged(Sender : TObject);
begin
(*
00804D5C 55 push ebp
00804D5D 8BEC mov ebp, esp
00804D5F B90A000000 mov ecx, $0000000A
00804D64 6A00 push $00
00804D66 6A00 push $00
00804D68 49 dec ecx
00804D69 75F9 jnz 00804D64
00804D6B 51 push ecx
00804D6C 53 push ebx
00804D6D 56 push esi
00804D6E 8BDA mov ebx, edx
00804D70 8BF0 mov esi, eax
00804D72 33C0 xor eax, eax
00804D74 55 push ebp
* Possible String Reference to: '<27>m<EFBFBD><6D><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00804D75 68824F8000 push $00804F82
***** TRY
|
00804D7A 64FF30 push dword ptr fs:[eax]
00804D7D 648920 mov fs:[eax], esp
00804D80 8D55FC lea edx, [ebp-$04]
00804D83 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;
|
00804D85 E832A9D8FF call 0058F6BC
00804D8A 8D55F8 lea edx, [ebp-$08]
00804D8D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00804D90 E8575BC0FF call 0040A8EC
00804D95 837DF800 cmp dword ptr [ebp-$08], +$00
00804D99 750D jnz 00804DA8
00804D9B 8D45FC lea eax, [ebp-$04]
00804D9E BA984F8000 mov edx, $00804F98
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00804DA3 E81406C0FF call 004053BC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00804DA8 8B9E64030000 mov ebx, [esi+$0364]
00804DAE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00804DB0 E88B36CCFF call 004C8440
00804DB5 8D55E4 lea edx, [ebp-$1C]
00804DB8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00804DBB E82C5BC0FF call 0040A8EC
00804DC0 8B55E4 mov edx, [ebp-$1C]
00804DC3 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00804DC6 E8FD3FC1FF call 00418DC8
00804DCB 8D45E8 lea eax, [ebp-$18]
00804DCE 50 push eax
* Possible String Reference to: 'Qty'
|
00804DCF BAA44F8000 mov edx, $00804FA4
00804DD4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00804DD6 E8D91DCCFF call 004C6BB4
00804DDB 5A pop edx
00804DDC 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00804DDE FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'Qty'
|
00804DE4 BAA44F8000 mov edx, $00804FA4
00804DE9 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00804DEB E8C41DCCFF call 004C6BB4
00804DF0 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00804DF2 FF5254 call dword ptr [edx+$54]
00804DF5 DD5DCC fstp qword ptr [ebp-$34]
00804DF8 9B wait
* Possible String Reference to: 'Price'
|
00804DF9 BAB04F8000 mov edx, $00804FB0
00804DFE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00804E00 E8AF1DCCFF call 004C6BB4
00804E05 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00804E07 FF5254 call dword ptr [edx+$54]
00804E0A DC4DCC fmul qword ptr [ebp-$34]
00804E0D 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarFromReal;
|
00804E10 E8773FC1FF call 00418D8C
00804E15 8D45D4 lea eax, [ebp-$2C]
00804E18 50 push eax
* Possible String Reference to: 'Money'
|
00804E19 BAC04F8000 mov edx, $00804FC0
00804E1E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00804E20 E88F1DCCFF call 004C6BB4
00804E25 5A pop edx
00804E26 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00804E28 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
00804E2E 8B9E0C030000 mov ebx, [esi+$030C]
00804E34 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00804E36 E8990ACCFF call 004C58D4
00804E3B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00804E3D E86A91CDFF call 004DDFAC
00804E42 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00804E44 FF5244 call dword ptr [edx+$44]
00804E47 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00804E49 E85E91CDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00804E4E BAD04F8000 mov edx, $00804FD0
00804E53 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00804E55 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set Qty=''
|
00804E58 68EC4F8000 push $00804FEC
00804E5D 8D55C4 lea edx, [ebp-$3C]
00804E60 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00804E63 E8845AC0FF call 0040A8EC
00804E68 FF75C4 push dword ptr [ebp-$3C]
00804E6B 6800508000 push $00805000
00804E70 8D45C8 lea eax, [ebp-$38]
00804E73 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00804E78 E83708C0FF call 004056B4
00804E7D 8B45C8 mov eax, [ebp-$38]
00804E80 50 push eax
00804E81 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00804E83 E82491CDFF call 004DDFAC
00804E88 5A pop edx
00804E89 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00804E8B FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Money=''
|
00804E8E 680C508000 push $0080500C
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00804E93 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Money'
|
00804E99 BAC04F8000 mov edx, $00804FC0
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00804E9E E8111DCCFF call 004C6BB4
00804EA3 8D55B8 lea edx, [ebp-$48]
00804EA6 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00804EA8 FF5160 call dword ptr [ecx+$60]
00804EAB 8B45B8 mov eax, [ebp-$48]
00804EAE 8D55BC lea edx, [ebp-$44]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00804EB1 E8365AC0FF call 0040A8EC
00804EB6 FF75BC push dword ptr [ebp-$44]
00804EB9 6800508000 push $00805000
00804EBE 8D45C0 lea eax, [ebp-$40]
00804EC1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00804EC6 E8E907C0FF call 004056B4
00804ECB 8B45C0 mov eax, [ebp-$40]
00804ECE 50 push eax
00804ECF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00804ED1 E8D690CDFF call 004DDFAC
00804ED6 5A pop edx
00804ED7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00804ED9 FF5138 call dword ptr [ecx+$38]
00804EDC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00804EDE E8C990CDFF call 004DDFAC
* Possible String Reference to: ',Edittime=getdate() '
|
00804EE3 BA20508000 mov edx, $00805020
00804EE8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00804EEA FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00804EED 6840508000 push $00805040
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00804EF2 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'YFId'
|
00804EF8 BA58508000 mov edx, $00805058
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00804EFD E8B21CCCFF call 004C6BB4
00804F02 8D55AC lea edx, [ebp-$54]
00804F05 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00804F07 FF5160 call dword ptr [ecx+$60]
00804F0A 8B45AC mov eax, [ebp-$54]
00804F0D 8D55B0 lea edx, [ebp-$50]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00804F10 E8D759C0FF call 0040A8EC
00804F15 FF75B0 push dword ptr [ebp-$50]
00804F18 6800508000 push $00805000
00804F1D 8D45B4 lea eax, [ebp-$4C]
00804F20 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00804F25 E88A07C0FF call 004056B4
00804F2A 8B45B4 mov eax, [ebp-$4C]
00804F2D 50 push eax
00804F2E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00804F30 E87790CDFF call 004DDFAC
00804F35 5A pop edx
00804F36 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00804F38 FF5138 call dword ptr [ecx+$38]
00804F3B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00804F3D E8928FCDFF call 004DDED4
00804F42 33C0 xor eax, eax
00804F44 5A pop edx
00804F45 59 pop ecx
00804F46 59 pop ecx
00804F47 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00804F4A 68894F8000 push $00804F89
00804F4F 8D45AC lea eax, [ebp-$54]
00804F52 BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00804F57 E8EC03C0FF call 00405348
00804F5C 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00804F5F E810F7C0FF call 00414674
00804F64 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
00804F67 E8B803C0FF call 00405324
00804F6C 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00804F6F E800F7C0FF call 00414674
00804F74 8D45F8 lea eax, [ebp-$08]
00804F77 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00804F7C E8C703C0FF call 00405348
00804F81 C3 ret
* Reference to: System.@HandleFinally;
|
00804F82 E96DFBBFFF jmp 00404AF4
00804F87 EBC6 jmp 00804F4F
****** END
|
00804F89 5E pop esi
00804F8A 5B pop ebx
00804F8B 8BE5 mov esp, ebp
00804F8D 5D pop ebp
00804F8E C3 ret
*)
end;
procedure TfrmFKCR.v2PricePropertiesEditValueChanged(Sender : TObject);
begin
(*
00805060 55 push ebp
00805061 8BEC mov ebp, esp
00805063 B90A000000 mov ecx, $0000000A
00805068 6A00 push $00
0080506A 6A00 push $00
0080506C 49 dec ecx
0080506D 75F9 jnz 00805068
0080506F 51 push ecx
00805070 53 push ebx
00805071 56 push esi
00805072 8BDA mov ebx, edx
00805074 8BF0 mov esi, eax
00805076 33C0 xor eax, eax
00805078 55 push ebp
* Possible String Reference to: '<27>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00805079 6886528000 push $00805286
***** TRY
|
0080507E 64FF30 push dword ptr fs:[eax]
00805081 648920 mov fs:[eax], esp
00805084 8D55FC lea edx, [ebp-$04]
00805087 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;
|
00805089 E82EA6D8FF call 0058F6BC
0080508E 8D55F8 lea edx, [ebp-$08]
00805091 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00805094 E85358C0FF call 0040A8EC
00805099 837DF800 cmp dword ptr [ebp-$08], +$00
0080509D 750D jnz 008050AC
0080509F 8D45FC lea eax, [ebp-$04]
008050A2 BA9C528000 mov edx, $0080529C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008050A7 E81003C0FF call 004053BC
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008050AC 8B9E64030000 mov ebx, [esi+$0364]
008050B2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008050B4 E88733CCFF call 004C8440
008050B9 8D55E4 lea edx, [ebp-$1C]
008050BC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008050BF E82858C0FF call 0040A8EC
008050C4 8B55E4 mov edx, [ebp-$1C]
008050C7 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008050CA E8F93CC1FF call 00418DC8
008050CF 8D45E8 lea eax, [ebp-$18]
008050D2 50 push eax
* Possible String Reference to: 'Price'
|
008050D3 BAA8528000 mov edx, $008052A8
008050D8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008050DA E8D51ACCFF call 004C6BB4
008050DF 5A pop edx
008050E0 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008050E2 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'Qty'
|
008050E8 BAB8528000 mov edx, $008052B8
008050ED 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008050EF E8C01ACCFF call 004C6BB4
008050F4 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
008050F6 FF5254 call dword ptr [edx+$54]
008050F9 DD5DCC fstp qword ptr [ebp-$34]
008050FC 9B wait
* Possible String Reference to: 'Price'
|
008050FD BAA8528000 mov edx, $008052A8
00805102 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00805104 E8AB1ACCFF call 004C6BB4
00805109 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
0080510B FF5254 call dword ptr [edx+$54]
0080510E DC4DCC fmul qword ptr [ebp-$34]
00805111 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarFromReal;
|
00805114 E8733CC1FF call 00418D8C
00805119 8D45D4 lea eax, [ebp-$2C]
0080511C 50 push eax
* Possible String Reference to: 'Money'
|
0080511D BAC4528000 mov edx, $008052C4
00805122 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00805124 E88B1ACCFF call 004C6BB4
00805129 5A pop edx
0080512A 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0080512C FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
00805132 8B9E0C030000 mov ebx, [esi+$030C]
00805138 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080513A E89507CCFF call 004C58D4
0080513F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00805141 E8668ECDFF call 004DDFAC
00805146 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00805148 FF5244 call dword ptr [edx+$44]
0080514B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0080514D E85A8ECDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00805152 BAD4528000 mov edx, $008052D4
00805157 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00805159 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set Price=''
|
0080515C 68F0528000 push $008052F0
00805161 8D55C4 lea edx, [ebp-$3C]
00805164 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00805167 E88057C0FF call 0040A8EC
0080516C FF75C4 push dword ptr [ebp-$3C]
0080516F 6808538000 push $00805308
00805174 8D45C8 lea eax, [ebp-$38]
00805177 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0080517C E83305C0FF call 004056B4
00805181 8B45C8 mov eax, [ebp-$38]
00805184 50 push eax
00805185 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00805187 E8208ECDFF call 004DDFAC
0080518C 5A pop edx
0080518D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0080518F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Money=''
|
00805192 6814538000 push $00805314
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00805197 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Money'
|
0080519D BAC4528000 mov edx, $008052C4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008051A2 E80D1ACCFF call 004C6BB4
008051A7 8D55B8 lea edx, [ebp-$48]
008051AA 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008051AC FF5160 call dword ptr [ecx+$60]
008051AF 8B45B8 mov eax, [ebp-$48]
008051B2 8D55BC lea edx, [ebp-$44]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008051B5 E83257C0FF call 0040A8EC
008051BA FF75BC push dword ptr [ebp-$44]
008051BD 6808538000 push $00805308
008051C2 8D45C0 lea eax, [ebp-$40]
008051C5 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008051CA E8E504C0FF call 004056B4
008051CF 8B45C0 mov eax, [ebp-$40]
008051D2 50 push eax
008051D3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008051D5 E8D28DCDFF call 004DDFAC
008051DA 5A pop edx
008051DB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008051DD FF5138 call dword ptr [ecx+$38]
008051E0 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008051E2 E8C58DCDFF call 004DDFAC
* Possible String Reference to: ',Edittime=getdate() '
|
008051E7 BA28538000 mov edx, $00805328
008051EC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008051EE FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008051F1 6848538000 push $00805348
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
008051F6 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'YFId'
|
008051FC BA60538000 mov edx, $00805360
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00805201 E8AE19CCFF call 004C6BB4
00805206 8D55AC lea edx, [ebp-$54]
00805209 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0080520B FF5160 call dword ptr [ecx+$60]
0080520E 8B45AC mov eax, [ebp-$54]
00805211 8D55B0 lea edx, [ebp-$50]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00805214 E8D356C0FF call 0040A8EC
00805219 FF75B0 push dword ptr [ebp-$50]
0080521C 6808538000 push $00805308
00805221 8D45B4 lea eax, [ebp-$4C]
00805224 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00805229 E88604C0FF call 004056B4
0080522E 8B45B4 mov eax, [ebp-$4C]
00805231 50 push eax
00805232 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00805234 E8738DCDFF call 004DDFAC
00805239 5A pop edx
0080523A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0080523C FF5138 call dword ptr [ecx+$38]
0080523F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00805241 E88E8CCDFF call 004DDED4
00805246 33C0 xor eax, eax
00805248 5A pop edx
00805249 59 pop ecx
0080524A 59 pop ecx
0080524B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
0080524E 688D528000 push $0080528D
00805253 8D45AC lea eax, [ebp-$54]
00805256 BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0080525B E8E800C0FF call 00405348
00805260 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00805263 E80CF4C0FF call 00414674
00805268 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
0080526B E8B400C0FF call 00405324
00805270 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00805273 E8FCF3C0FF call 00414674
00805278 8D45F8 lea eax, [ebp-$08]
0080527B BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00805280 E8C300C0FF call 00405348
00805285 C3 ret
* Reference to: System.@HandleFinally;
|
00805286 E969F8BFFF jmp 00404AF4
0080528B EBC6 jmp 00805253
****** END
|
0080528D 5E pop esi
0080528E 5B pop ebx
0080528F 8BE5 mov esp, ebp
00805291 5D pop ebp
00805292 C3 ret
*)
end;
procedure TfrmFKCR.v2SQPerponPropertiesButtonClick(Sender : TObject);
begin
(*
00805368 55 push ebp
00805369 8BEC mov ebp, esp
0080536B 51 push ecx
0080536C B905000000 mov ecx, $00000005
00805371 6A00 push $00
00805373 6A00 push $00
00805375 49 dec ecx
00805376 75F9 jnz 00805371
00805378 51 push ecx
00805379 874DFC xchg [ebp-$04], ecx
0080537C 53 push ebx
0080537D 56 push esi
0080537E 8BF0 mov esi, eax
00805380 33C0 xor eax, eax
00805382 55 push ebp
* Possible String Reference to: '<27>{<7B><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00805383 6874558000 push $00805574
***** TRY
|
00805388 64FF30 push dword ptr fs:[eax]
0080538B 648920 mov fs:[eax], esp
0080538E 33C0 xor eax, eax
00805390 55 push ebp
00805391 684A558000 push $0080554A
***** TRY
|
00805396 64FF30 push dword ptr fs:[eax]
00805399 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.TSselClick(Sender : TObject);
begin
(*
00805620 53 push ebx
00805621 8BD8 mov ebx, eax
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00805623 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00805629 E89228CCFF call 004C7EC0
0080562E 84C0 test al, al
00805630 750A jnz 0080563C
* Reference to field TfrmFKCR.ModalResult : TModalResult
|
00805632 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001
0080563C 5B pop ebx
0080563D C3 ret
*)
end;
procedure TfrmFKCR.TTJClick(Sender : TObject);
begin
(*
00805640 55 push ebp
00805641 8BEC mov ebp, esp
00805643 B904000000 mov ecx, $00000004
00805648 6A00 push $00
0080564A 6A00 push $00
0080564C 49 dec ecx
0080564D 75F9 jnz 00805648
0080564F 51 push ecx
00805650 53 push ebx
00805651 56 push esi
00805652 57 push edi
00805653 8945FC mov [ebp-$04], eax
00805656 33C0 xor eax, eax
00805658 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00805659 683F588000 push $0080583F
***** TRY
|
0080565E 64FF30 push dword ptr fs:[eax]
00805661 648920 mov fs:[eax], esp
00805664 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00805667 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0080566D E84E28CCFF call 004C7EC0
00805672 84C0 test al, al
00805674 0F85A2010000 jnz 0080581C
0080567A A050588000 mov al, byte ptr [$00805850]
0080567F 50 push eax
00805680 8D45EC lea eax, [ebp-$14]
00805683 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00805685 E8DA36C1FF call 00418D64
0080568A 8D4DEC lea ecx, [ebp-$14]
0080568D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00805690 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
00805696 BA5C588000 mov edx, $0080585C
0080569B 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0080569D FF9344020000 call dword ptr [ebx+$0244]
008056A3 84C0 test al, al
008056A5 751D jnz 008056C4
008056A7 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008056A9 B964588000 mov ecx, $00805864
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008056AE BA6C588000 mov edx, $0080586C
*)
end;
procedure TfrmFKCR.TCXTJClick(Sender : TObject);
begin
(*
008058E8 55 push ebp
008058E9 8BEC mov ebp, esp
008058EB B904000000 mov ecx, $00000004
008058F0 6A00 push $00
008058F2 6A00 push $00
008058F4 49 dec ecx
008058F5 75F9 jnz 008058F0
008058F7 51 push ecx
008058F8 53 push ebx
008058F9 56 push esi
008058FA 57 push edi
008058FB 8945FC mov [ebp-$04], eax
008058FE 33C0 xor eax, eax
00805900 55 push ebp
00805901 68E75A8000 push $00805AE7
***** TRY
|
00805906 64FF30 push dword ptr fs:[eax]
00805909 648920 mov fs:[eax], esp
0080590C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
0080590F 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00805915 E8A625CCFF call 004C7EC0
0080591A 84C0 test al, al
0080591C 0F85A2010000 jnz 00805AC4
00805922 A0F85A8000 mov al, byte ptr [$00805AF8]
00805927 50 push eax
00805928 8D45EC lea eax, [ebp-$14]
0080592B B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0080592D E83234C1FF call 00418D64
00805932 8D4DEC lea ecx, [ebp-$14]
00805935 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
00805938 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
0080593E BA045B8000 mov edx, $00805B04
00805943 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00805945 FF9344020000 call dword ptr [ebx+$0244]
0080594B 84C0 test al, al
0080594D 751D jnz 0080596C
0080594F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00805951 B90C5B8000 mov ecx, $00805B0C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00805956 BA145B8000 mov edx, $00805B14
*)
end;
procedure TfrmFKCR.TSDADDClick(Sender : TObject);
begin
(*
00805B90 55 push ebp
00805B91 8BEC mov ebp, esp
00805B93 B911000000 mov ecx, $00000011
00805B98 6A00 push $00
00805B9A 6A00 push $00
00805B9C 49 dec ecx
00805B9D 75F9 jnz 00805B98
00805B9F 56 push esi
00805BA0 8945FC mov [ebp-$04], eax
00805BA3 33C0 xor eax, eax
00805BA5 55 push ebp
00805BA6 68345E8000 push $00805E34
***** TRY
|
00805BAB 64FF30 push dword ptr fs:[eax]
00805BAE 648920 mov fs:[eax], esp
00805BB1 33C0 xor eax, eax
00805BB3 55 push ebp
00805BB4 68A95D8000 push $00805DA9
***** TRY
|
00805BB9 64FF30 push dword ptr fs:[eax]
00805BBC 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.v2KPStatusPropertiesButtonClick(Sender : TObject);
begin
(*
00805EF4 55 push ebp
00805EF5 8BEC mov ebp, esp
00805EF7 51 push ecx
00805EF8 B905000000 mov ecx, $00000005
00805EFD 6A00 push $00
00805EFF 6A00 push $00
00805F01 49 dec ecx
00805F02 75F9 jnz 00805EFD
00805F04 51 push ecx
00805F05 874DFC xchg [ebp-$04], ecx
00805F08 53 push ebx
00805F09 56 push esi
00805F0A 8BF0 mov esi, eax
00805F0C 33C0 xor eax, eax
00805F0E 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00805F0F 6800618000 push $00806100
***** TRY
|
00805F14 64FF30 push dword ptr fs:[eax]
00805F17 648920 mov fs:[eax], esp
00805F1A 33C0 xor eax, eax
00805F1C 55 push ebp
00805F1D 68D6608000 push $008060D6
***** TRY
|
00805F22 64FF30 push dword ptr fs:[eax]
00805F25 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR.v2OrderNOPropertiesButtonClick(Sender : TObject);
begin
(*
008061B0 55 push ebp
008061B1 8BEC mov ebp, esp
008061B3 51 push ecx
008061B4 B90A000000 mov ecx, $0000000A
008061B9 6A00 push $00
008061BB 6A00 push $00
008061BD 49 dec ecx
008061BE 75F9 jnz 008061B9
008061C0 874DFC xchg [ebp-$04], ecx
008061C3 53 push ebx
008061C4 56 push esi
008061C5 8BF0 mov esi, eax
008061C7 33C0 xor eax, eax
008061C9 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008061CA 6858648000 push $00806458
***** TRY
|
008061CF 64FF30 push dword ptr fs:[eax]
008061D2 648920 mov fs:[eax], esp
008061D5 33C0 xor eax, eax
008061D7 55 push ebp
008061D8 6819648000 push $00806419
***** TRY
|
008061DD 64FF30 push dword ptr fs:[eax]
008061E0 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_007FD3BD(Sender : TObject);
begin
(*
007FD3BD 8BEC mov ebp, esp
007FD3BF 33C9 xor ecx, ecx
007FD3C1 51 push ecx
007FD3C2 51 push ecx
007FD3C3 51 push ecx
007FD3C4 51 push ecx
007FD3C5 51 push ecx
007FD3C6 53 push ebx
007FD3C7 56 push esi
007FD3C8 8945FC mov [ebp-$04], eax
007FD3CB 33C0 xor eax, eax
007FD3CD 55 push ebp
* Possible String Reference to: '<27><>t<EFBFBD><74><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FD3CE 6814D67F00 push $007FD614
***** TRY
|
007FD3D3 64FF30 push dword ptr fs:[eax]
007FD3D6 648920 mov fs:[eax], esp
007FD3D9 33C0 xor eax, eax
007FD3DB 55 push ebp
007FD3DC 68F2D57F00 push $007FD5F2
***** TRY
|
007FD3E1 64FF30 push dword ptr fs:[eax]
007FD3E4 648920 mov fs:[eax], esp
007FD3E7 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FD3EA 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007FD3F0 E85FA1CCFF call 004C7554
007FD3F5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FD3F8 8B9820030000 mov ebx, [eax+$0320]
007FD3FE 33D2 xor edx, edx
007FD400 8BC3 mov eax, ebx
007FD402 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
007FD404 FF9190010000 call dword ptr [ecx+$0190]
007FD40A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FD40C E8C384CCFF call 004C58D4
007FD411 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD413 E8940BCEFF call 004DDFAC
007FD418 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007FD41A FF5244 call dword ptr [edx+$44]
007FD41D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD41F E8880BCEFF call 004DDFAC
* Possible String Reference to: ' select A.*'
|
007FD424 BA2CD67F00 mov edx, $007FD62C
007FD429 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD42B FF5138 call dword ptr [ecx+$38]
007FD42E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD430 E8770BCEFF call 004DDFAC
* Possible String Reference to: ',WKFPMoney=(isnull(A.Money,0)-isnul
| l(A.YKFPMoney,0))'
|
007FD435 BA40D67F00 mov edx, $007FD640
007FD43A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD43C FF5138 call dword ptr [ecx+$38]
007FD43F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD441 E8660BCEFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
007FD446 BA80D67F00 mov edx, $007FD680
007FD44B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD44D FF5138 call dword ptr [ecx+$38]
007FD450 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD452 E8550BCEFF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
| =B.CRID'
|
007FD457 BAA0D67F00 mov edx, $007FD6A0
007FD45C 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD45E FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where A.CRTime>=''
|
007FD461 68D4D67F00 push $007FD6D4
007FD466 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.begdate : TDateTimePicker
|
007FD469 8B8054030000 mov eax, [eax+$0354]
007FD46F FFB014020000 push dword ptr [eax+$0214]
007FD475 FFB010020000 push dword ptr [eax+$0210]
007FD47B 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: 'yyyy-MM-dd'
|
007FD47E B8F0D67F00 mov eax, $007FD6F0
|
007FD483 E83417C1FF call 0040EBBC
007FD488 FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: '' '
|
007FD48B 6804D77F00 push $007FD704
007FD490 8D45F8 lea eax, [ebp-$08]
007FD493 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FD498 E81782C0FF call 004056B4
007FD49D 8B45F8 mov eax, [ebp-$08]
007FD4A0 50 push eax
007FD4A1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD4A3 E8040BCEFF call 004DDFAC
007FD4A8 5A pop edx
007FD4A9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD4AB FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and CRTime<''
|
007FD4AE 6810D77F00 push $007FD710
007FD4B3 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.Enddate : TDateTimePicker
|
007FD4B6 8B8058030000 mov eax, [eax+$0358]
007FD4BC DD8010020000 fld qword ptr [eax+$0210]
007FD4C2 D80520D77F00 fadd dword ptr [$007FD720]
007FD4C8 83C4F8 add esp, -$08
007FD4CB DD1C24 fstp qword ptr [esp]
007FD4CE 9B wait
007FD4CF 8D55EC lea edx, [ebp-$14]
* Possible String Reference to: 'yyyy-MM-dd'
|
007FD4D2 B8F0D67F00 mov eax, $007FD6F0
|
007FD4D7 E8E016C1FF call 0040EBBC
007FD4DC FF75EC push dword ptr [ebp-$14]
* Possible String Reference to: '' '
|
007FD4DF 6804D77F00 push $007FD704
007FD4E4 8D45F0 lea eax, [ebp-$10]
007FD4E7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FD4EC E8C381C0FF call 004056B4
007FD4F1 8B45F0 mov eax, [ebp-$10]
007FD4F4 50 push eax
007FD4F5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD4F7 E8B00ACEFF call 004DDFAC
007FD4FC 5A pop edx
007FD4FD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD4FF FF5138 call dword ptr [ecx+$38]
007FD502 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD504 E8A30ACEFF call 004DDFAC
* Possible String Reference to: ' and A.CRType='<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
007FD509 BA2CD77F00 mov edx, $007FD72C
007FD50E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD510 FF5138 call dword ptr [ecx+$38]
007FD513 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.cxTabControl1 : TcxTabControl
|
007FD516 8B80FC030000 mov eax, [eax+$03FC]
* Reference to control ADOTemp : N.A.
|
007FD51C 83B83C03000000 cmp dword ptr [eax+$033C], +$00
007FD523 7511 jnz 007FD536
007FD525 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD527 E8800ACEFF call 004DDFAC
* Possible String Reference to: ' and A.status='0' '
|
007FD52C BA50D77F00 mov edx, $007FD750
007FD531 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD533 FF5138 call dword ptr [ecx+$38]
007FD536 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.cxTabControl1 : TcxTabControl
|
007FD539 8B80FC030000 mov eax, [eax+$03FC]
* Reference to control ADOTemp : N.A.
|
007FD53F 83B83C03000001 cmp dword ptr [eax+$033C], +$01
007FD546 7511 jnz 007FD559
007FD548 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD54A E85D0ACEFF call 004DDFAC
* Possible String Reference to: ' and A.status='1' '
|
007FD54F BA6CD77F00 mov edx, $007FD76C
007FD554 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD556 FF5138 call dword ptr [ecx+$38]
007FD559 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.cxTabControl1 : TcxTabControl
|
007FD55C 8B80FC030000 mov eax, [eax+$03FC]
* Reference to control ADOTemp : N.A.
|
007FD562 83B83C03000002 cmp dword ptr [eax+$033C], +$02
007FD569 7511 jnz 007FD57C
007FD56B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007FD56D E83A0ACEFF call 004DDFAC
* Possible String Reference to: ' and A.status='2' '
|
007FD572 BA88D77F00 mov edx, $007FD788
007FD577 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007FD579 FF5138 call dword ptr [ecx+$38]
007FD57C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007FD57E E84583CCFF call 004C58C8
007FD583 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FD586 8B9064030000 mov edx, [eax+$0364]
007FD58C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FD58F 8B8020030000 mov eax, [eax+$0320]
|
007FD595 E8F698FBFF call 007B6E90
007FD59A 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.CDS_HZ : TClientDataSet
|
007FD59D 8B9064030000 mov edx, [eax+$0364]
007FD5A3 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FD5A6 8B8020030000 mov eax, [eax+$0320]
|
007FD5AC E8679AFBFF call 007B7018
007FD5B1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.Label12 : TLabel
|
007FD5B4 8B809C030000 mov eax, [eax+$039C]
007FD5BA BAA4D77F00 mov edx, $007FD7A4
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007FD5BF E85CB0C8FF call 00488620
007FD5C4 33C0 xor eax, eax
007FD5C6 5A pop edx
007FD5C7 59 pop ecx
007FD5C8 59 pop ecx
007FD5C9 648910 mov fs:[eax], edx
****** FINALLY
|
007FD5CC 68F9D57F00 push $007FD5F9
007FD5D1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryMain : TADOQuery
|
007FD5D4 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007FD5DA E8959FCCFF call 004C7574
007FD5DF 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ToolButton2 : TToolButton
|
007FD5E2 8B8014030000 mov eax, [eax+$0314]
007FD5E8 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007FD5EC E8636FC0FF call 00404554
007FD5F1 C3 ret
* Reference to: System.@HandleFinally;
|
007FD5F2 E9FD74C0FF jmp 00404AF4
007FD5F7 EBD8 jmp 007FD5D1
****** END
|
007FD5F9 33C0 xor eax, eax
007FD5FB 5A pop edx
007FD5FC 59 pop ecx
007FD5FD 59 pop ecx
007FD5FE 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007FD601 681BD67F00 push $007FD61B
007FD606 8D45EC lea eax, [ebp-$14]
007FD609 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007FD60E E8357DC0FF call 00405348
007FD613 C3 ret
* Reference to: System.@HandleFinally;
|
007FD614 E9DB74C0FF jmp 00404AF4
007FD619 EBEB jmp 007FD606
****** END
|
007FD61B 5E pop esi
007FD61C 5B pop ebx
007FD61D 8BE5 mov esp, ebp
007FD61F 5D pop ebp
007FD620 C3 ret
*)
end;
procedure TfrmFKCR._PROC_007FDDA9(Sender : TObject);
begin
(*
007FDDA9 8BEC mov ebp, esp
007FDDAB B947000000 mov ecx, $00000047
007FDDB0 6A00 push $00
007FDDB2 6A00 push $00
007FDDB4 49 dec ecx
007FDDB5 75F9 jnz 007FDDB0
007FDDB7 51 push ecx
007FDDB8 53 push ebx
007FDDB9 56 push esi
007FDDBA 57 push edi
007FDDBB 8945FC mov [ebp-$04], eax
007FDDBE 33C0 xor eax, eax
007FDDC0 55 push ebp
007FDDC1 6898E97F00 push $007FE998
***** TRY
|
007FDDC6 64FF30 push dword ptr fs:[eax]
007FDDC9 648920 mov fs:[eax], esp
007FDDCC 33C0 xor eax, eax
007FDDCE 55 push ebp
007FDDCF 6864E77F00 push $007FE764
***** TRY
|
007FDDD4 64FF30 push dword ptr fs:[eax]
007FDDD7 648920 mov fs:[eax], esp
007FDDDA 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
007FDDDD 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007FDDE3 E844E0CDFF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
007FDDE8 E8A744CDFF call 004D2294
* Possible String Reference to: 'YF_Money_CR'
|
007FDDED 68B4E97F00 push $007FE9B4
007FDDF2 6A04 push $04
007FDDF4 6A01 push $01
007FDDF6 8D55F8 lea edx, [ebp-$08]
007FDDF9 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
007FDDFC 8B800C030000 mov eax, [eax+$030C]
* Possible String Reference to: 'FK'
|
007FDE02 B9C8E97F00 mov ecx, $007FE9C8
* Reference to : TfrmSelExportField._PROC_007B7708()
|
007FDE07 E8FC98FBFF call 007B7708
007FDE0C 84C0 test al, al
007FDE0E 753A jnz 007FDE4A
007FDE10 33DB xor ebx, ebx
007FDE12 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmFKCR.ADOQueryCmd : TADOQuery
|
007FDE15 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007FDE1B E80CE0CDFF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
007FDE20 E8BB44CDFF call 004D22E0
007FDE25 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007FDE27 B9CCE97F00 mov ecx, $007FE9CC
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
007FDE2C BAD4E97F00 mov edx, $007FE9D4
*)
end;
procedure TfrmFKCR._PROC_007FEA55(Sender : TObject);
begin
(*
007FEA55 7064 jo 007FEABB
007FEA57 61 popa
007FEA58 7465 jz 007FEABF
007FEA5A 205946 and [ecx+$46], bl
007FEA5D 5F pop edi
007FEA5E 4D dec ebp
007FEA5F 6F outsd
007FEA60 6E outsb
007FEA61 65795F jns 007FEAC3
007FEA64 43 inc ebx
007FEA65 52 push edx
007FEA66 49 dec ecx
007FEA67 44 inc esp
007FEA68 207365 and [ebx+$65], dh
007FEA6B 7420 jz 007FEA8D
007FEA6D 43 inc ebx
007FEA6E 52 push edx
007FEA6F 49 dec ecx
007FEA70 44 inc esp
007FEA71 3D43524944 cmp eax, $44495243
007FEA76 2B31 sub esi, dword ptr [ecx]
007FEA78 0000 add [eax], al
007FEA7A 0000 add [eax], al
007FEA7C FFFF DB $FF, $FF //
007FEA7E FFFF DB $FF, $FF //
007FEA80 1C00 sbb al, $00
007FEA82 0000 add [eax], al
007FEA84 7365 jnb 007FEAEB
007FEA86 6C insb
007FEA87 656374202A arpl gs:[eax+$2A], si
007FEA8C 206672 and [esi+$72], ah
007FEA8F 6F outsd
007FEA90 6D insd
007FEA91 205946 and [ecx+$46], bl
007FEA94 5F pop edi
007FEA95 4D dec ebp
007FEA96 6F outsd
007FEA97 6E outsb
007FEA98 65795F jns 007FEAFA
007FEA9B 43 inc ebx
007FEA9C 52 push edx
007FEA9D 49 dec ecx
007FEA9E 44 inc esp
007FEA9F 2000 and [eax], al
007FEAA1 0000 add [eax], al
007FEAA3 00FF add bh, bh
007FEAA5 FFFF DB $FF, $FF //
007FEAA7 FF23 jmp dword ptr [ebx]
007FEAA9 0000 add [eax], al
007FEAAB 007365 add [ebx+$65], dh
007FEAAE 6C insb
007FEAAF 656374202A arpl gs:[eax+$2A], si
007FEAB4 206672 and [esi+$72], ah
007FEAB7 6F outsd
007FEAB8 6D insd
007FEAB9 205946 and [ecx+$46], bl
007FEABC 5F pop edi
007FEABD 4D dec ebp
007FEABE 6F outsd
007FEABF 6E outsb
007FEAC0 65795F jns 007FEB22
007FEAC3 4B dec ebx
007FEAC4 43 inc ebx
007FEAC5 207768 and [edi+$68], dh
007FEAC8 657265 jb 007FEB30
007FEACB 2031 and [ecx], dh
007FEACD 3D3200FFFF cmp eax, $FFFF0032
007FEAD2 FFFF DB $FF, $FF //
007FEAD4 0900 or [eax], eax
007FEAD6 0000 add [eax], al
007FEAD8 46 inc esi
007FEAD9 61 popa
007FEADA 63746F72 arpl [edi+ebp*2+$72], si
007FEADE 794E jns 007FEB2E
007FEAE0 6F outsd
007FEAE1 0000 add [eax], al
007FEAE3 00FF add bh, bh
007FEAE5 FFFF DB $FF, $FF //
007FEAE7 FF07 inc dword ptr [edi]
007FEAE9 0000 add [eax], al
007FEAEB 005A64 add [edx+$64], bl
007FEAEE 7953 jns 007FEB43
007FEAF0 7472 jz 007FEB64
007FEAF2 3100 xor [eax], eax
007FEAF4 FFFF DB $FF, $FF //
007FEAF6 FFFF DB $FF, $FF //
007FEAF8 06 push es
007FEAF9 0000 add [eax], al
007FEAFB 00D3 add bl, dl
007FEAFD A6 cmpsb
007FEAFE B8B6B8B600 mov eax, $00B6B8B6
007FEB03 00FF add bh, bh
007FEB05 FFFF DB $FF, $FF //
007FEB07 FF23 jmp dword ptr [ebx]
007FEB09 0000 add [eax], al
007FEB0B 007365 add [ebx+$65], dh
007FEB0E 6C insb
007FEB0F 656374202A arpl gs:[eax+$2A], si
007FEB14 206672 and [esi+$72], ah
007FEB17 6F outsd
007FEB18 6D insd
007FEB19 205946 and [ecx+$46], bl
007FEB1C 5F pop edi
007FEB1D 4D dec ebp
007FEB1E 6F outsd
007FEB1F 6E outsb
007FEB20 65795F jns 007FEB82
007FEB23 43 inc ebx
007FEB24 52 push edx
007FEB25 207768 and [edi+$68], dh
007FEB28 657265 jb 007FEB90
007FEB2B 2031 and [ecx], dh
007FEB2D 3D3200FFFF cmp eax, $FFFF0032
007FEB32 FFFF DB $FF, $FF //
007FEB34 0400 add al, +$00
007FEB36 0000 add [eax], al
007FEB38 59 pop ecx
007FEB39 46 inc esi
007FEB3A 49 dec ecx
007FEB3B 44 inc esp
007FEB3C 0000 add [eax], al
007FEB3E 0000 add [eax], al
007FEB40 FFFF DB $FF, $FF //
007FEB42 FFFF DB $FF, $FF //
007FEB44 06 push es
007FEB45 0000 add [eax], al
007FEB47 004669 add [esi+$69], al
007FEB4A 6C insb
007FEB4B 6C insb
007FEB4C 657200 jb 007FEB4F
007FEB4F 00FF add bh, bh
007FEB51 FFFF DB $FF, $FF //
007FEB53 FF06 inc dword ptr [esi]
007FEB55 0000 add [eax], al
007FEB57 004352 add [ebx+$52], al
007FEB5A 54 push esp
007FEB5B 7970 jns 007FEBCD
007FEB5D 650000 add gs:[eax], al
007FEB60 FFFF DB $FF, $FF //
007FEB62 FFFF DB $FF, $FF //
007FEB64 0800 or [eax], al
007FEB66 0000 add [eax], al
007FEB68 B8B6BFEEB5 mov eax, $B5EEBFB6
007FEB6D C7BCC700000000FFFFFFFF mov dword ptr [edi+eax*8+$0000], $FFFFFFFF
007FEB78 06 push es
007FEB79 0000 add [eax], al
007FEB7B 00425A add [edx+$5A], al
007FEB7E 54 push esp
007FEB7F 7970 jns 007FEBF1
007FEB81 650000 add gs:[eax], al
007FEB84 FFFF DB $FF, $FF //
007FEB86 FFFF DB $FF, $FF //
007FEB88 0200 add al, byte ptr [eax]
007FEB8A 0000 add [eax], al
007FEB8C A3A40000FF mov dword ptr [$FF0000A4], eax
007FEB91 FFFF DB $FF, $FF //
007FEB93 FF06 inc dword ptr [esi]
007FEB95 0000 add [eax], al
007FEB97 004352 add [ebx+$52], al
007FEB9A 46 inc esi
007FEB9B 6C insb
007FEB9C 61 popa
007FEB9D 670000 add [bx+si], al
007FEBA0 FFFF DB $FF, $FF //
007FEBA2 FFFF DB $FF, $FF //
007FEBA4 07 pop es
007FEBA5 0000 add [eax], al
007FEBA7 005174 add [ecx+$74], dl
007FEBAA 7946 jns 007FEBF2
007FEBAC 6C insb
007FEBAD 61 popa
007FEBAE 6700FF add bh, bh
007FEBB1 FFFF DB $FF, $FF //
007FEBB3 FF06 inc dword ptr [esi]
007FEBB5 0000 add [eax], al
007FEBB7 005946 add [ecx+$46], bl
007FEBBA 4E dec esi
007FEBBB 61 popa
007FEBBC 6D insd
007FEBBD 650000 add gs:[eax], al
007FEBC0 FFFF DB $FF, $FF //
007FEBC2 FFFF DB $FF, $FF //
007FEBC4 0800 or [eax], al
007FEBC6 0000 add [eax], al
007FEBC8 42 inc edx
007FEBC9 61 popa
007FEBCA 6E outsb
007FEBCB 6B4E616D imul ecx, [esi+$61], $6D
007FEBCF 650000 add gs:[eax], al
007FEBD2 0000 add [eax], al
007FEBD4 FFFF DB $FF, $FF //
007FEBD6 FFFF DB $FF, $FF //
007FEBD8 06 push es
007FEBD9 0000 add [eax], al
007FEBDB 004261 add [edx+$61], al
007FEBDE 6E outsb
007FEBDF 6B4E6F00 imul ecx, [esi+$6F], $00
007FEBE3 00FF add bh, bh
007FEBE5 FFFF DB $FF, $FF //
007FEBE7 FF08 dec dword ptr [eax]
007FEBE9 0000 add [eax], al
007FEBEB 00464B add [esi+$4B], al
007FEBEE 54 push esp
007FEBEF 61 popa
007FEBF0 69546F7500000000 imul edx, [edi+ebp*2+$75], $00000000
007FEBF8 FFFF DB $FF, $FF //
007FEBFA FFFF DB $FF, $FF //
007FEBFC 06 push es
007FEBFD 0000 add [eax], al
*)
end;
procedure TfrmFKCR._PROC_007FEEC5(Sender : TObject);
begin
(*
007FEEC5 50 push eax
007FEEC6 6461 popa
007FEEC8 7465 jz 007FEF2F
007FEECA 205943 and [ecx+$43], bl
007FEECD 4C dec esp
007FEECE 5F pop edi
007FEECF 53 push ebx
007FEED0 47 inc edi
007FEED1 5F pop edi
007FEED2 48 dec eax
007FEED3 5A pop edx
007FEED4 2000 and [eax], al
007FEED6 0000 add [eax], al
007FEED8 FFFF DB $FF, $FF //
007FEEDA FFFF DB $FF, $FF //
007FEEDC 0500000020 add eax, +$20000000
007FEEE1 53 push ebx
007FEEE2 657420 jz 007FEF05
007FEEE5 0000 add [eax], al
007FEEE7 00FF add bh, bh
007FEEE9 FFFF DB $FF, $FF //
007FEEEB FF02 inc dword ptr [edx]
007FEEED 0000 add [eax], al
007FEEEF 003D270000FF add [$FF000027], bh
007FEEF5 FFFF DB $FF, $FF //
007FEEF7 FF01 inc dword ptr [ecx]
007FEEF9 0000 add [eax], al
007FEEFB 0027 add [edi], ah
007FEEFD 0000 add [eax], al
007FEEFF 00FF add bh, bh
007FEF01 FFFF DB $FF, $FF //
007FEF03 FF050000003D inc dword ptr [$3D000000]
007FEF09 4E dec esi
007FEF0A 55 push ebp
007FEF0B 4C dec esp
007FEF0C 4C dec esp
007FEF0D 0000 add [eax], al
007FEF0F 00FF add bh, bh
007FEF11 FFFF DB $FF, $FF //
007FEF13 FF09 dec dword ptr [ecx]
007FEF15 0000 add [eax], al
007FEF17 002C4564697465 add [$65746964+eax*2], ch
007FEF1E 723D jb 007FEF5D
007FEF20 27 daa
007FEF21 0000 add [eax], al
007FEF23 00FF add bh, bh
007FEF25 FFFF DB $FF, $FF //
007FEF27 FF1400 call dword ptr [eax+eax]
007FEF2A 0000 add [eax], al
007FEF2C 2C45 sub al, $45
007FEF2E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007FEF37 657464 jz 007FEF9E
007FEF3A 61 popa
007FEF3B 7465 jz 007FEFA2
007FEF3D 2829 sub [ecx], ch
007FEF3F 2000 and [eax], al
007FEF41 0000 add [eax], al
007FEF43 00FF add bh, bh
007FEF45 FFFF DB $FF, $FF //
007FEF47 FF0E dec dword ptr [esi]
007FEF49 0000 add [eax], al
007FEF4B 0020 add [eax], ah
007FEF4D 7768 jnbe 007FEFB7
007FEF4F 657265 jb 007FEFB7
007FEF52 205375 and [ebx+$75], dl
007FEF55 624964 bound ecx, qword ptr [ecx+$64]
007FEF58 3D270000FF cmp eax, $FF000027
007FEF5D FFFF DB $FF, $FF //
007FEF5F FF0500000053 inc dword ptr [$53000000]
007FEF65 7562 jnz 007FEFC9
007FEF67 49 dec ecx
007FEF68 640000 add fs:[eax], al
007FEF6B 00558B add [ebp-$75], dl
007FEF6E EC in al, dx
007FEF6F B91C000000 mov ecx, $0000001C
007FEF74 6A00 push $00
007FEF76 6A00 push $00
007FEF78 49 dec ecx
007FEF79 75F9 jnz 007FEF74
007FEF7B 51 push ecx
007FEF7C 53 push ebx
007FEF7D 56 push esi
007FEF7E 8BF2 mov esi, edx
007FEF80 8BD8 mov ebx, eax
007FEF82 33C0 xor eax, eax
007FEF84 55 push ebp
007FEF85 68CFF57F00 push $007FF5CF
***** TRY
|
007FEF8A 64FF30 push dword ptr fs:[eax]
007FEF8D 648920 mov fs:[eax], esp
007FEF90 8D55FC lea edx, [ebp-$04]
007FEF93 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;
|
007FEF95 E82207D9FF call 0058F6BC
007FEF9A 8D55DC lea edx, [ebp-$24]
007FEF9D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FEFA0 E847B9C0FF call 0040A8EC
007FEFA5 837DDC00 cmp dword ptr [ebp-$24], +$00
007FEFA9 750D jnz 007FEFB8
007FEFAB 8D45FC lea eax, [ebp-$04]
007FEFAE BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FEFB3 E80464C0FF call 004053BC
* Reference to control ADOTemp : N.A.
|
007FEFB8 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;
|
007FEFBE E889D3E5FF 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;
|
007FEFC3 E89C2BE5FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007FEFC8 8B4050 mov eax, [eax+$50]
007FEFCB 8D55D8 lea edx, [ebp-$28]
007FEFCE 8B08 mov ecx, [eax]
007FEFD0 FF5110 call dword ptr [ecx+$10]
007FEFD3 8B45D8 mov eax, [ebp-$28]
007FEFD6 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FEFD9 E80EB9C0FF call 0040A8EC
* Reference to control Label11 : N.A.
|
007FEFDE 8BB364030000 mov esi, [ebx+$0364]
007FEFE4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FEFE6 E85594CCFF call 004C8440
007FEFEB 8D55C4 lea edx, [ebp-$3C]
007FEFEE 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FEFF1 E8F6B8C0FF call 0040A8EC
007FEFF6 8B55C4 mov edx, [ebp-$3C]
007FEFF9 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007FEFFC E8C79DC1FF call 00418DC8
007FF001 8D45C8 lea eax, [ebp-$38]
007FF004 50 push eax
007FF005 8B55E0 mov edx, [ebp-$20]
007FF008 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF00A E8A57BCCFF call 004C6BB4
007FF00F 5A pop edx
007FF010 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
007FF012 FF91B4000000 call dword ptr [ecx+$00B4]
007FF018 8BC6 mov eax, esi
007FF01A 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
007FF01C FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
007FF022 8BB308030000 mov esi, [ebx+$0308]
007FF028 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FF02A E8A568CCFF call 004C58D4
007FF02F 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007FF031 E876EFCDFF call 004DDFAC
007FF036 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
007FF038 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
007FF03B 68F0F57F00 push $007FF5F0
* Possible String Reference to: 'YFID'
|
007FF040 BA38F67F00 mov edx, $007FF638
* Reference to control Label11 : N.A.
|
007FF045 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF04B E8647BCCFF call 004C6BB4
007FF050 8D55BC lea edx, [ebp-$44]
007FF053 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
007FF055 FF5160 call dword ptr [ecx+$60]
007FF058 FF75BC push dword ptr [ebp-$44]
007FF05B 6848F67F00 push $007FF648
007FF060 8D45C0 lea eax, [ebp-$40]
007FF063 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FF068 E84766C0FF call 004056B4
007FF06D 8B45C0 mov eax, [ebp-$40]
007FF070 50 push eax
007FF071 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007FF073 E834EFCDFF call 004DDFAC
007FF078 5A pop edx
007FF079 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007FF07B FF5138 call dword ptr [ecx+$38]
007FF07E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007FF080 E84368CCFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
007FF085 BA54F67F00 mov edx, $007FF654
* Reference to control Label3 : TLabel
|
007FF08A 8B8308030000 mov eax, [ebx+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF090 E81F7BCCFF call 004C6BB4
007FF095 8D55E4 lea edx, [ebp-$1C]
007FF098 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007FF09A FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
007FF09D BA64F67F00 mov edx, $007FF664
* Reference to control Label11 : N.A.
|
007FF0A2 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF0A8 E8077BCCFF call 004C6BB4
007FF0AD 8D55B8 lea edx, [ebp-$48]
007FF0B0 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
007FF0B2 FF5160 call dword ptr [ecx+$60]
007FF0B5 8B45B8 mov eax, [ebp-$48]
007FF0B8 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF0BB E82CB8C0FF call 0040A8EC
007FF0C0 8D55B4 lea edx, [ebp-$4C]
007FF0C3 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF0C6 E821B8C0FF call 0040A8EC
007FF0CB 837DB400 cmp dword ptr [ebp-$4C], +$00
007FF0CF 750D jnz 007FF0DE
007FF0D1 8D45F8 lea eax, [ebp-$08]
007FF0D4 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF0D9 E8DE62C0FF call 004053BC
* Possible String Reference to: 'Price'
|
007FF0DE BA70F67F00 mov edx, $007FF670
* Reference to control Label11 : N.A.
|
007FF0E3 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF0E9 E8C67ACCFF call 004C6BB4
007FF0EE 8D55B0 lea edx, [ebp-$50]
007FF0F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
007FF0F3 FF5160 call dword ptr [ecx+$60]
007FF0F6 8B45B0 mov eax, [ebp-$50]
007FF0F9 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF0FC E8EBB7C0FF call 0040A8EC
007FF101 8D55AC lea edx, [ebp-$54]
007FF104 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF107 E8E0B7C0FF call 0040A8EC
007FF10C 837DAC00 cmp dword ptr [ebp-$54], +$00
007FF110 750D jnz 007FF11F
007FF112 8D45F4 lea eax, [ebp-$0C]
007FF115 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF11A E89D62C0FF call 004053BC
* Possible String Reference to: 'Qty'
|
007FF11F BA64F67F00 mov edx, $007FF664
* Reference to control Label11 : N.A.
|
007FF124 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF12A E8857ACCFF call 004C6BB4
007FF12F 8D55A8 lea edx, [ebp-$58]
007FF132 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
007FF134 FF5160 call dword ptr [ecx+$60]
007FF137 8B45A8 mov eax, [ebp-$58]
007FF13A 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF13D E8AAB7C0FF call 0040A8EC
007FF142 8D55A4 lea edx, [ebp-$5C]
007FF145 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF148 E89FB7C0FF call 0040A8EC
007FF14D 837DA400 cmp dword ptr [ebp-$5C], +$00
007FF151 750D jnz 007FF160
007FF153 8D45F8 lea eax, [ebp-$08]
007FF156 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF15B E85C62C0FF call 004053BC
* Possible String Reference to: 'Money'
|
007FF160 BA80F67F00 mov edx, $007FF680
* Reference to control Label11 : N.A.
|
007FF165 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF16B E8447ACCFF call 004C6BB4
007FF170 8D55A0 lea edx, [ebp-$60]
007FF173 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
007FF175 FF5160 call dword ptr [ecx+$60]
007FF178 8B45A0 mov eax, [ebp-$60]
007FF17B 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF17E E869B7C0FF call 0040A8EC
007FF183 8D559C lea edx, [ebp-$64]
007FF186 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF189 E85EB7C0FF call 0040A8EC
007FF18E 837D9C00 cmp dword ptr [ebp-$64], +$00
007FF192 750D jnz 007FF1A1
007FF194 8D45F0 lea eax, [ebp-$10]
007FF197 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF19C E81B62C0FF call 004053BC
* Possible String Reference to: 'HuiLv'
|
007FF1A1 BA90F67F00 mov edx, $007FF690
* Reference to control Label11 : N.A.
|
007FF1A6 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF1AC E8037ACCFF call 004C6BB4
007FF1B1 8D5598 lea edx, [ebp-$68]
007FF1B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
007FF1B6 FF5160 call dword ptr [ecx+$60]
007FF1B9 8B4598 mov eax, [ebp-$68]
007FF1BC 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF1BF E828B7C0FF call 0040A8EC
007FF1C4 8D5594 lea edx, [ebp-$6C]
007FF1C7 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF1CA E81DB7C0FF call 0040A8EC
007FF1CF 837D9400 cmp dword ptr [ebp-$6C], +$00
007FF1D3 750D jnz 007FF1E2
007FF1D5 8D45EC lea eax, [ebp-$14]
007FF1D8 BAE4F57F00 mov edx, $007FF5E4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007FF1DD E8DA61C0FF call 004053BC
007FF1E2 8D5590 lea edx, [ebp-$70]
007FF1E5 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF1E8 E8FFB6C0FF call 0040A8EC
007FF1ED 8B4590 mov eax, [ebp-$70]
* Possible String Reference to: 'Money'
|
007FF1F0 BA80F67F00 mov edx, $007FF680
* Reference to: System.@LStrCmp;
|
007FF1F5 E84665C0FF call 00405740
007FF1FA 0F84AD000000 jz 007FF2AD
007FF200 8D558C lea edx, [ebp-$74]
007FF203 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF206 E8E1B6C0FF call 0040A8EC
007FF20B 8B458C mov eax, [ebp-$74]
* Possible String Reference to: 'HuiLv'
|
007FF20E BA90F67F00 mov edx, $007FF690
* Reference to: System.@LStrCmp;
|
007FF213 E82865C0FF call 00405740
007FF218 7469 jz 007FF283
007FF21A 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF21D E80AE5C0FF call 0040D72C
007FF222 DB7D80 fstp tbyte ptr [ebp-$80]
007FF225 9B wait
007FF226 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF229 E8FEE4C0FF call 0040D72C
007FF22E DB6D80 fld tbyte ptr [ebp-$80]
007FF231 DEC9 fmulp st(1), st(0)
007FF233 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
007FF239 9B wait
007FF23A 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF23D E8EAE4C0FF call 0040D72C
007FF242 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
007FF248 DEC9 fmulp st(1), st(0)
007FF24A 83C4F4 add esp, -$0C
007FF24D DB3C24 fstp tbyte ptr [esp]
007FF250 9B wait
007FF251 8D45E8 lea eax, [ebp-$18]
|
007FF254 E853E3C0FF call 0040D5AC
007FF259 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF25C E8CBE4C0FF call 0040D72C
007FF261 DB7D80 fstp tbyte ptr [ebp-$80]
007FF264 9B wait
007FF265 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF268 E8BFE4C0FF call 0040D72C
007FF26D DB6D80 fld tbyte ptr [ebp-$80]
007FF270 DEC9 fmulp st(1), st(0)
007FF272 83C4F4 add esp, -$0C
007FF275 DB3C24 fstp tbyte ptr [esp]
007FF278 9B wait
007FF279 8D45F0 lea eax, [ebp-$10]
|
007FF27C E82BE3C0FF call 0040D5AC
007FF281 EB52 jmp 007FF2D5
007FF283 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF286 E8A1E4C0FF call 0040D72C
007FF28B DB7D80 fstp tbyte ptr [ebp-$80]
007FF28E 9B wait
007FF28F 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF292 E895E4C0FF call 0040D72C
007FF297 DB6D80 fld tbyte ptr [ebp-$80]
007FF29A DEC9 fmulp st(1), st(0)
007FF29C 83C4F4 add esp, -$0C
007FF29F DB3C24 fstp tbyte ptr [esp]
007FF2A2 9B wait
007FF2A3 8D45E8 lea eax, [ebp-$18]
|
007FF2A6 E801E3C0FF call 0040D5AC
007FF2AB EB28 jmp 007FF2D5
007FF2AD 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF2B0 E877E4C0FF call 0040D72C
007FF2B5 DB7D80 fstp tbyte ptr [ebp-$80]
007FF2B8 9B wait
007FF2B9 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF2BC E86BE4C0FF call 0040D72C
007FF2C1 DB6D80 fld tbyte ptr [ebp-$80]
007FF2C4 DEC9 fmulp st(1), st(0)
007FF2C6 83C4F4 add esp, -$0C
007FF2C9 DB3C24 fstp tbyte ptr [esp]
007FF2CC 9B wait
007FF2CD 8D45E8 lea eax, [ebp-$18]
|
007FF2D0 E8D7E2C0FF call 0040D5AC
* Reference to control Label11 : N.A.
|
007FF2D5 8BB364030000 mov esi, [ebx+$0364]
007FF2DB 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FF2DD E85E91CCFF call 004C8440
* Possible String Reference to: 'Money'
|
007FF2E2 BA80F67F00 mov edx, $007FF680
007FF2E7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF2E9 E8C678CCFF call 004C6BB4
007FF2EE 50 push eax
007FF2EF 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF2F2 E835E4C0FF call 0040D72C
007FF2F7 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
* Reference to: Variants.@VarFromReal;
|
007FF2FD E88A9AC1FF call 00418D8C
007FF302 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
007FF308 58 pop eax
007FF309 8B08 mov ecx, [eax]
007FF30B FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
007FF311 BA54F67F00 mov edx, $007FF654
007FF316 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF318 E89778CCFF call 004C6BB4
007FF31D 50 push eax
007FF31E 8B45E8 mov eax, [ebp-$18]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007FF321 E806E4C0FF call 0040D72C
007FF326 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
* Reference to: Variants.@VarFromReal;
|
007FF32C E85B9AC1FF call 00418D8C
007FF331 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
007FF337 58 pop eax
007FF338 8B08 mov ecx, [eax]
007FF33A FF91B4000000 call dword ptr [ecx+$00B4]
007FF340 8BC6 mov eax, esi
007FF342 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
007FF344 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
007FF34A 8BB30C030000 mov esi, [ebx+$030C]
007FF350 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FF352 E87D65CCFF call 004C58D4
007FF357 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;
|
007FF359 E84EECCDFF call 004DDFAC
007FF35E 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007FF360 FF5244 call dword ptr [edx+$44]
007FF363 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;
|
007FF365 E842ECCDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007FF36A BAA0F67F00 mov edx, $007FF6A0
007FF36F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007FF371 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007FF374 68BCF67F00 push $007FF6BC
007FF379 FF75E0 push dword ptr [ebp-$20]
007FF37C 68CCF67F00 push $007FF6CC
007FF381 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
007FF387 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF38A E85DB5C0FF call 0040A8EC
007FF38F FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
007FF395 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
007FF39B BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007FF3A0 E80F63C0FF call 004056B4
007FF3A5 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
007FF3AB 50 push eax
007FF3AC 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;
|
007FF3AE E8F9EBCDFF call 004DDFAC
007FF3B3 5A pop edx
007FF3B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007FF3B6 FF5138 call dword ptr [ecx+$38]
007FF3B9 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
007FF3BF 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF3C2 E825B5C0FF call 0040A8EC
007FF3C7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
* Possible String Reference to: 'Money'
|
007FF3CD BA80F67F00 mov edx, $007FF680
* Reference to: System.@LStrCmp;
|
007FF3D2 E86963C0FF call 00405740
007FF3D7 7427 jz 007FF400
007FF3D9 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;
|
007FF3DB E8CCEBCDFF call 004DDFAC
007FF3E0 50 push eax
007FF3E1 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
007FF3E7 8B4DF0 mov ecx, [ebp-$10]
* Possible String Reference to: ',Money='
|
007FF3EA BAD8F67F00 mov edx, $007FF6D8
* Reference to: System.@LStrCat3;
|
007FF3EF E84C62C0FF call 00405640
007FF3F4 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
007FF3FA 58 pop eax
007FF3FB 8B08 mov ecx, [eax]
007FF3FD FF5138 call dword ptr [ecx+$38]
007FF400 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;
|
007FF402 E8A5EBCDFF call 004DDFAC
007FF407 50 push eax
007FF408 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
007FF40E 8B4DE8 mov ecx, [ebp-$18]
* Possible String Reference to: ',BBMoney='
|
007FF411 BAE8F67F00 mov edx, $007FF6E8
* Reference to: System.@LStrCat3;
|
007FF416 E82562C0FF call 00405640
007FF41B 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
007FF421 58 pop eax
007FF422 8B08 mov ecx, [eax]
007FF424 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007FF427 68FCF67F00 push $007FF6FC
007FF42C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
*)
end;
procedure TfrmFKCR._PROC_007FF6A1(Sender : TObject);
begin
(*
007FF6A1 50 push eax
007FF6A2 6461 popa
007FF6A4 7465 jz 007FF70B
007FF6A6 205946 and [ecx+$46], bl
007FF6A9 5F pop edi
007FF6AA 4D dec ebp
007FF6AB 6F outsd
007FF6AC 6E outsb
007FF6AD 65795F jns 007FF70F
007FF6B0 43 inc ebx
007FF6B1 52 push edx
007FF6B2 2000 and [eax], al
007FF6B4 FFFF DB $FF, $FF //
007FF6B6 FFFF DB $FF, $FF //
007FF6B8 0500000020 add eax, +$20000000
007FF6BD 53 push ebx
007FF6BE 657420 jz 007FF6E1
007FF6C1 0000 add [eax], al
007FF6C3 00FF add bh, bh
007FF6C5 FFFF DB $FF, $FF //
007FF6C7 FF01 inc dword ptr [ecx]
007FF6C9 0000 add [eax], al
007FF6CB 003D000000FF add [$FF000000], bh
007FF6D1 FFFF DB $FF, $FF //
007FF6D3 FF07 inc dword ptr [edi]
007FF6D5 0000 add [eax], al
007FF6D7 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
007FF6DE 3D00FFFFFF cmp eax, $FFFFFF00
007FF6E3 FF09 dec dword ptr [ecx]
007FF6E5 0000 add [eax], al
007FF6E7 002C42 add [edx+eax*2], ch
007FF6EA 42 inc edx
007FF6EB 4D dec ebp
007FF6EC 6F outsd
007FF6ED 6E outsb
007FF6EE 65793D jns 007FF72E
007FF6F1 0000 add [eax], al
007FF6F3 00FF add bh, bh
007FF6F5 FFFF DB $FF, $FF //
007FF6F7 FF09 dec dword ptr [ecx]
007FF6F9 0000 add [eax], al
007FF6FB 002C4564697465 add [$65746964+eax*2], ch
007FF702 723D jb 007FF741
007FF704 27 daa
007FF705 0000 add [eax], al
007FF707 00FF add bh, bh
007FF709 FFFF DB $FF, $FF //
007FF70B FF1400 call dword ptr [eax+eax]
007FF70E 0000 add [eax], al
007FF710 2C45 sub al, $45
007FF712 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007FF71B 657464 jz 007FF782
007FF71E 61 popa
007FF71F 7465 jz 007FF786
007FF721 2829 sub [ecx], ch
007FF723 2000 and [eax], al
007FF725 0000 add [eax], al
007FF727 00FF add bh, bh
007FF729 FFFF DB $FF, $FF //
007FF72B FF0D00000020 dec dword ptr [$20000000]
007FF731 7768 jnbe 007FF79B
007FF733 657265 jb 007FF79B
007FF736 205946 and [ecx+$46], bl
007FF739 49 dec ecx
007FF73A 643D27000000 cmp eax, $00000027
007FF740 FFFF DB $FF, $FF //
007FF742 FFFF DB $FF, $FF //
007FF744 0400 add al, +$00
007FF746 0000 add [eax], al
007FF748 59 pop ecx
007FF749 46 inc esi
007FF74A 49 dec ecx
007FF74B 640000 add fs:[eax], al
007FF74E 0000 add [eax], al
007FF750 FFFF DB $FF, $FF //
007FF752 FFFF DB $FF, $FF //
007FF754 2B00 sub eax, dword ptr [eax]
007FF756 0000 add [eax], al
007FF758 55 push ebp
007FF759 7064 jo 007FF7BF
007FF75B 61 popa
007FF75C 7465 jz 007FF7C3
007FF75E 205946 and [ecx+$46], bl
007FF761 5F pop edi
007FF762 4D dec ebp
007FF763 6F outsd
007FF764 6E outsb
007FF765 65795F jns 007FF7C7
007FF768 4B dec ebx
007FF769 43 inc ebx
007FF76A 205365 and [ebx+$65], dl
007FF76D 7420 jz 007FF78F
007FF76F 4B dec ebx
007FF770 43 inc ebx
007FF771 42 inc edx
007FF772 42 inc edx
007FF773 4D dec ebp
007FF774 6F outsd
007FF775 6E outsb
007FF776 65793D jns 007FF7B6
007FF779 4B dec ebx
007FF77A 43 inc ebx
007FF77B 42 inc edx
007FF77C 42 inc edx
007FF77D 4D dec ebp
007FF77E 6F outsd
007FF77F 6E outsb
007FF780 65792D jns 007FF7B0
007FF783 00FF add bh, bh
007FF785 FFFF DB $FF, $FF //
007FF787 FF01 inc dword ptr [ecx]
007FF789 0000 add [eax], al
007FF78B 002B add [ebx], ch
007FF78D 0000 add [eax], al
007FF78F 00FF add bh, bh
007FF791 FFFF DB $FF, $FF //
007FF793 FF0D00000020 dec dword ptr [$20000000]
007FF799 7768 jnbe 007FF803
007FF79B 657265 jb 007FF803
007FF79E 204352 and [ebx+$52], al
007FF7A1 49 dec ecx
007FF7A2 44 inc esp
007FF7A3 3D27000000 cmp eax, $00000027
007FF7A8 FFFF DB $FF, $FF //
007FF7AA FFFF DB $FF, $FF //
007FF7AC 0400 add al, +$00
007FF7AE 0000 add [eax], al
007FF7B0 43 inc ebx
007FF7B1 52 push edx
007FF7B2 49 dec ecx
007FF7B3 44 inc esp
007FF7B4 0000 add [eax], al
007FF7B6 0000 add [eax], al
007FF7B8 55 push ebp
007FF7B9 8BEC mov ebp, esp
007FF7BB B908000000 mov ecx, $00000008
007FF7C0 6A00 push $00
007FF7C2 6A00 push $00
007FF7C4 49 dec ecx
007FF7C5 75F9 jnz 007FF7C0
007FF7C7 51 push ecx
007FF7C8 53 push ebx
007FF7C9 56 push esi
007FF7CA 8BDA mov ebx, edx
007FF7CC 8BF0 mov esi, eax
007FF7CE 33C0 xor eax, eax
007FF7D0 55 push ebp
* Possible String Reference to: '<27>)Q<><51><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FF7D1 68C6F97F00 push $007FF9C6
***** TRY
|
007FF7D6 64FF30 push dword ptr fs:[eax]
007FF7D9 648920 mov fs:[eax], esp
007FF7DC 8D55FC lea edx, [ebp-$04]
007FF7DF 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;
|
007FF7E1 E8D6FED8FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
007FF7E6 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;
|
007FF7EC E85BCBE5FF 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;
|
007FF7F1 E86E23E5FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007FF7F6 8B4050 mov eax, [eax+$50]
007FF7F9 8D55F4 lea edx, [ebp-$0C]
007FF7FC 8B08 mov ecx, [eax]
007FF7FE FF5110 call dword ptr [ecx+$10]
007FF801 8B45F4 mov eax, [ebp-$0C]
007FF804 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF807 E8E0B0C0FF call 0040A8EC
* Reference to control Label11 : N.A.
|
007FF80C 8B9E64030000 mov ebx, [esi+$0364]
007FF812 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007FF814 E8278CCCFF call 004C8440
007FF819 8D55E0 lea edx, [ebp-$20]
007FF81C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF81F E8C8B0C0FF call 0040A8EC
007FF824 8B55E0 mov edx, [ebp-$20]
007FF827 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007FF82A E89995C1FF call 00418DC8
007FF82F 8D45E4 lea eax, [ebp-$1C]
007FF832 50 push eax
007FF833 8B55F8 mov edx, [ebp-$08]
007FF836 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007FF838 E87773CCFF call 004C6BB4
007FF83D 5A pop edx
007FF83E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
007FF840 FF91B4000000 call dword ptr [ecx+$00B4]
007FF846 8BC3 mov eax, ebx
007FF848 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
007FF84A FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
007FF850 8B9E0C030000 mov ebx, [esi+$030C]
007FF856 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007FF858 E87760CCFF call 004C58D4
007FF85D 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;
|
007FF85F E848E7CDFF call 004DDFAC
007FF864 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007FF866 FF5244 call dword ptr [edx+$44]
007FF869 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;
|
007FF86B E83CE7CDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007FF870 BADCF97F00 mov edx, $007FF9DC
007FF875 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007FF877 FF5138 call dword ptr [ecx+$38]
007FF87A 8D55DC lea edx, [ebp-$24]
007FF87D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF880 E867B0C0FF call 0040A8EC
007FF885 837DDC00 cmp dword ptr [ebp-$24], +$00
007FF889 7440 jz 007FF8CB
* Possible String Reference to: ' Set '
|
007FF88B 68F8F97F00 push $007FF9F8
007FF890 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007FF893 6808FA7F00 push $007FFA08
007FF898 8D55D4 lea edx, [ebp-$2C]
007FF89B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007FF89E E849B0C0FF call 0040A8EC
007FF8A3 FF75D4 push dword ptr [ebp-$2C]
007FF8A6 6814FA7F00 push $007FFA14
007FF8AB 8D45D8 lea eax, [ebp-$28]
007FF8AE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007FF8B3 E8FC5DC0FF call 004056B4
007FF8B8 8B45D8 mov eax, [ebp-$28]
007FF8BB 50 push eax
007FF8BC 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;
|
007FF8BE E8E9E6CDFF call 004DDFAC
007FF8C3 5A pop edx
007FF8C4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007FF8C6 FF5138 call dword ptr [ecx+$38]
007FF8C9 EB2B jmp 007FF8F6
007FF8CB 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;
|
007FF8CD E8DAE6CDFF call 004DDFAC
007FF8D2 50 push eax
* Possible String Reference to: ' Set '
|
007FF8D3 68F8F97F00 push $007FF9F8
007FF8D8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
007FF8DB 6820FA7F00 push $007FFA20
007FF8E0 8D45D0 lea eax, [ebp-$30]
007FF8E3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007FF8E8 E8C75DC0FF call 004056B4
007FF8ED 8B55D0 mov edx, [ebp-$30]
007FF8F0 58 pop eax
007FF8F1 8B08 mov ecx, [eax]
007FF8F3 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007FF8F6 6830FA7F00 push $007FFA30
007FF8FB 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmFKCR._PROC_007FF9DD(Sender : TObject);
begin
(*
007FF9DD 50 push eax
007FF9DE 6461 popa
007FF9E0 7465 jz 007FFA47
007FF9E2 205946 and [ecx+$46], bl
007FF9E5 5F pop edi
007FF9E6 4D dec ebp
007FF9E7 6F outsd
007FF9E8 6E outsb
007FF9E9 65795F jns 007FFA4B
007FF9EC 43 inc ebx
007FF9ED 52 push edx
007FF9EE 2000 and [eax], al
007FF9F0 FFFF DB $FF, $FF //
007FF9F2 FFFF DB $FF, $FF //
007FF9F4 0500000020 add eax, +$20000000
007FF9F9 53 push ebx
007FF9FA 657420 jz 007FFA1D
007FF9FD 0000 add [eax], al
007FF9FF 00FF add bh, bh
007FFA01 FFFF DB $FF, $FF //
007FFA03 FF02 inc dword ptr [edx]
007FFA05 0000 add [eax], al
007FFA07 003D270000FF add [$FF000027], bh
007FFA0D FFFF DB $FF, $FF //
007FFA0F FF01 inc dword ptr [ecx]
007FFA11 0000 add [eax], al
007FFA13 0027 add [edi], ah
007FFA15 0000 add [eax], al
007FFA17 00FF add bh, bh
007FFA19 FFFF DB $FF, $FF //
007FFA1B FF050000003D inc dword ptr [$3D000000]
007FFA21 4E dec esi
007FFA22 55 push ebp
007FFA23 4C dec esp
007FFA24 4C dec esp
007FFA25 0000 add [eax], al
007FFA27 00FF add bh, bh
007FFA29 FFFF DB $FF, $FF //
007FFA2B FF09 dec dword ptr [ecx]
007FFA2D 0000 add [eax], al
007FFA2F 002C4564697465 add [$65746964+eax*2], ch
007FFA36 723D jb 007FFA75
007FFA38 27 daa
007FFA39 0000 add [eax], al
007FFA3B 00FF add bh, bh
007FFA3D FFFF DB $FF, $FF //
007FFA3F FF1400 call dword ptr [eax+eax]
007FFA42 0000 add [eax], al
007FFA44 2C45 sub al, $45
007FFA46 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007FFA4F 657464 jz 007FFAB6
007FFA52 61 popa
007FFA53 7465 jz 007FFABA
007FFA55 2829 sub [ecx], ch
007FFA57 2000 and [eax], al
007FFA59 0000 add [eax], al
007FFA5B 00FF add bh, bh
007FFA5D FFFF DB $FF, $FF //
007FFA5F FF0D00000020 dec dword ptr [$20000000]
007FFA65 7768 jnbe 007FFACF
007FFA67 657265 jb 007FFACF
007FFA6A 205946 and [ecx+$46], bl
007FFA6D 49 dec ecx
007FFA6E 643D27000000 cmp eax, $00000027
007FFA74 FFFF DB $FF, $FF //
007FFA76 FFFF DB $FF, $FF //
007FFA78 0400 add al, +$00
007FFA7A 0000 add [eax], al
007FFA7C 59 pop ecx
007FFA7D 46 inc esi
007FFA7E 49 dec ecx
007FFA7F 640000 add fs:[eax], al
007FFA82 0000 add [eax], al
007FFA84 55 push ebp
007FFA85 8BEC mov ebp, esp
007FFA87 B927000000 mov ecx, $00000027
007FFA8C 6A00 push $00
007FFA8E 6A00 push $00
007FFA90 49 dec ecx
007FFA91 75F9 jnz 007FFA8C
007FFA93 53 push ebx
007FFA94 56 push esi
007FFA95 8945FC mov [ebp-$04], eax
007FFA98 33C0 xor eax, eax
007FFA9A 55 push ebp
* Possible String Reference to: '<27>}I<><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007FFA9B 6872018000 push $00800172
***** TRY
|
007FFAA0 64FF30 push dword ptr fs:[eax]
007FFAA3 648920 mov fs:[eax], esp
007FFAA6 33C0 xor eax, eax
007FFAA8 55 push ebp
007FFAA9 684C008000 push $0080004C
***** TRY
|
007FFAAE 64FF30 push dword ptr fs:[eax]
007FFAB1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_008006E9(Sender : TObject);
begin
(*
008006E9 50 push eax
008006EA 6461 popa
008006EC 7465 jz 00800753
008006EE 205946 and [ecx+$46], bl
008006F1 5F pop edi
008006F2 4D dec ebp
008006F3 6F outsd
008006F4 6E outsb
008006F5 65795F jns 00800757
008006F8 43 inc ebx
008006F9 52 push edx
008006FA 2000 and [eax], al
008006FC FFFF DB $FF, $FF //
008006FE FFFF DB $FF, $FF //
00800700 0D00000020 or eax, $20000000
00800705 53 push ebx
00800706 657420 jz 00800729
00800709 59 pop ecx
0080070A 46 inc esi
0080070B 43 inc ebx
0080070C 6F outsd
0080070D 64653D27000000 cmp eax, $00000027
00800714 FFFF DB $FF, $FF //
00800716 FFFF DB $FF, $FF //
00800718 0100 add [eax], eax
0080071A 0000 add [eax], al
0080071C 27 daa
0080071D 0000 add [eax], al
0080071F 00FF add bh, bh
00800721 FFFF DB $FF, $FF //
00800723 FF0A dec dword ptr [edx]
00800725 0000 add [eax], al
00800727 0020 add [eax], ah
00800729 2C59 sub al, $59
0080072B 46 inc esi
0080072C 4E dec esi
0080072D 61 popa
0080072E 6D insd
0080072F 653D270000FF cmp eax, $FF000027
00800735 FFFF DB $FF, $FF //
00800737 FF09 dec dword ptr [ecx]
00800739 0000 add [eax], al
0080073B 002C4564697465 add [$65746964+eax*2], ch
00800742 723D jb 00800781
00800744 27 daa
00800745 0000 add [eax], al
00800747 00FF add bh, bh
00800749 FFFF DB $FF, $FF //
0080074B FF1400 call dword ptr [eax+eax]
0080074E 0000 add [eax], al
00800750 2C45 sub al, $45
00800752 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0080075B 657464 jz 008007C2
0080075E 61 popa
0080075F 7465 jz 008007C6
00800761 2829 sub [ecx], ch
00800763 2000 and [eax], al
00800765 0000 add [eax], al
00800767 00FF add bh, bh
00800769 FFFF DB $FF, $FF //
0080076B FF0D00000020 dec dword ptr [$20000000]
00800771 7768 jnbe 008007DB
00800773 657265 jb 008007DB
00800776 205946 and [ecx+$46], bl
00800779 49 dec ecx
0080077A 643D27000000 cmp eax, $00000027
00800780 FFFF DB $FF, $FF //
00800782 FFFF DB $FF, $FF //
00800784 0400 add al, +$00
00800786 0000 add [eax], al
00800788 59 pop ecx
00800789 46 inc esi
0080078A 49 dec ecx
0080078B 640000 add fs:[eax], al
0080078E 0000 add [eax], al
00800790 55 push ebp
00800791 8BEC mov ebp, esp
00800793 51 push ecx
00800794 B906000000 mov ecx, $00000006
00800799 6A00 push $00
0080079B 6A00 push $00
0080079D 49 dec ecx
0080079E 75F9 jnz 00800799
008007A0 51 push ecx
008007A1 874DFC xchg [ebp-$04], ecx
008007A4 53 push ebx
008007A5 56 push esi
008007A6 8BF0 mov esi, eax
008007A8 33C0 xor eax, eax
008007AA 55 push ebp
008007AB 68E9098000 push $008009E9
***** TRY
|
008007B0 64FF30 push dword ptr fs:[eax]
008007B3 648920 mov fs:[eax], esp
008007B6 33C0 xor eax, eax
008007B8 55 push ebp
008007B9 68BF098000 push $008009BF
***** TRY
|
008007BE 64FF30 push dword ptr fs:[eax]
008007C1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_00800A06(Sender : TObject);
begin
(*
00800A06 6E outsb
00800A07 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
00800A0F FF08 dec dword ptr [eax]
00800A11 0000 add [eax], al
*)
end;
procedure TfrmFKCR._PROC_00800A3C(Sender : TObject);
begin
(*
00800A3C 6E outsb
00800A3D 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
00800A45 0000 add [eax], al
*)
end;
procedure TfrmFKCR._PROC_00800A49(Sender : TObject);
begin
(*
00800A49 50 push eax
00800A4A 6461 popa
00800A4C 7465 jz 00800AB3
00800A4E 205946 and [ecx+$46], bl
00800A51 5F pop edi
00800A52 4D dec ebp
00800A53 6F outsd
00800A54 6E outsb
00800A55 65795F jns 00800AB7
00800A58 43 inc ebx
00800A59 52 push edx
00800A5A 2000 and [eax], al
00800A5C FFFF DB $FF, $FF //
00800A5E FFFF DB $FF, $FF //
00800A60 0E push cs
00800A61 0000 add [eax], al
00800A63 0020 add [eax], ah
00800A65 53 push ebx
00800A66 657420 jz 00800A89
00800A69 51 push ecx
00800A6A 7479 jz 00800AE5
00800A6C 55 push ebp
00800A6D 6E outsb
00800A6E 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
00800A76 FFFF DB $FF, $FF //
00800A78 07 pop es
00800A79 0000 add [eax], al
00800A7B 005A64 add [edx+$64], bl
00800A7E 794E jns 00800ACE
00800A80 61 popa
00800A81 6D insd
00800A82 6500FF add bh, bh
00800A85 FFFF DB $FF, $FF //
00800A87 FF01 inc dword ptr [ecx]
00800A89 0000 add [eax], al
00800A8B 0027 add [edi], ah
00800A8D 0000 add [eax], al
00800A8F 00FF add bh, bh
00800A91 FFFF DB $FF, $FF //
00800A93 FF09 dec dword ptr [ecx]
00800A95 0000 add [eax], al
00800A97 002C4564697465 add [$65746964+eax*2], ch
00800A9E 723D jb 00800ADD
00800AA0 27 daa
00800AA1 0000 add [eax], al
00800AA3 00FF add bh, bh
00800AA5 FFFF DB $FF, $FF //
00800AA7 FF1400 call dword ptr [eax+eax]
00800AAA 0000 add [eax], al
00800AAC 2C45 sub al, $45
00800AAE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00800AB7 657464 jz 00800B1E
00800ABA 61 popa
00800ABB 7465 jz 00800B22
00800ABD 2829 sub [ecx], ch
00800ABF 2000 and [eax], al
00800AC1 0000 add [eax], al
00800AC3 00FF add bh, bh
00800AC5 FFFF DB $FF, $FF //
00800AC7 FF0D00000020 dec dword ptr [$20000000]
00800ACD 7768 jnbe 00800B37
00800ACF 657265 jb 00800B37
00800AD2 205946 and [ecx+$46], bl
00800AD5 49 dec ecx
00800AD6 643D27000000 cmp eax, $00000027
00800ADC FFFF DB $FF, $FF //
00800ADE FFFF DB $FF, $FF //
00800AE0 0400 add al, +$00
00800AE2 0000 add [eax], al
00800AE4 59 pop ecx
00800AE5 46 inc esi
00800AE6 49 dec ecx
00800AE7 640000 add fs:[eax], al
00800AEA 0000 add [eax], al
00800AEC 55 push ebp
00800AED 8BEC mov ebp, esp
00800AEF 51 push ecx
00800AF0 B906000000 mov ecx, $00000006
00800AF5 6A00 push $00
00800AF7 6A00 push $00
00800AF9 49 dec ecx
00800AFA 75F9 jnz 00800AF5
00800AFC 51 push ecx
00800AFD 874DFC xchg [ebp-$04], ecx
00800B00 53 push ebx
00800B01 56 push esi
00800B02 8BF0 mov esi, eax
00800B04 33C0 xor eax, eax
00800B06 55 push ebp
* Possible String Reference to: '<27><>=<3D><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00800B07 68450D8000 push $00800D45
***** TRY
|
00800B0C 64FF30 push dword ptr fs:[eax]
00800B0F 648920 mov fs:[eax], esp
00800B12 33C0 xor eax, eax
00800B14 55 push ebp
00800B15 681B0D8000 push $00800D1B
***** TRY
|
00800B1A 64FF30 push dword ptr fs:[eax]
00800B1D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_00800D8D(Sender : TObject);
begin
(*
00800D8D 50 push eax
00800D8E 6461 popa
00800D90 7465 jz 00800DF7
00800D92 205946 and [ecx+$46], bl
00800D95 5F pop edi
00800D96 4D dec ebp
00800D97 6F outsd
00800D98 6E outsb
00800D99 65795F jns 00800DFB
00800D9C 43 inc ebx
00800D9D 52 push edx
00800D9E 2000 and [eax], al
00800DA0 FFFF DB $FF, $FF //
00800DA2 FFFF DB $FF, $FF //
00800DA4 0D00000020 or eax, $20000000
00800DA9 53 push ebx
00800DAA 657420 jz 00800DCD
00800DAD 42 inc edx
00800DAE 5A pop edx
00800DAF 54 push esp
00800DB0 7970 jns 00800E22
00800DB2 653D27000000 cmp eax, $00000027
00800DB8 FFFF DB $FF, $FF //
00800DBA FFFF DB $FF, $FF //
00800DBC 07 pop es
00800DBD 0000 add [eax], al
00800DBF 005A64 add [edx+$64], bl
00800DC2 794E jns 00800E12
00800DC4 61 popa
00800DC5 6D insd
00800DC6 6500FF add bh, bh
00800DC9 FFFF DB $FF, $FF //
00800DCB FF01 inc dword ptr [ecx]
00800DCD 0000 add [eax], al
00800DCF 0027 add [edi], ah
00800DD1 0000 add [eax], al
00800DD3 00FF add bh, bh
00800DD5 FFFF DB $FF, $FF //
00800DD7 FF09 dec dword ptr [ecx]
00800DD9 0000 add [eax], al
00800DDB 002C4564697465 add [$65746964+eax*2], ch
00800DE2 723D jb 00800E21
00800DE4 27 daa
00800DE5 0000 add [eax], al
00800DE7 00FF add bh, bh
00800DE9 FFFF DB $FF, $FF //
00800DEB FF1400 call dword ptr [eax+eax]
00800DEE 0000 add [eax], al
00800DF0 2C45 sub al, $45
00800DF2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00800DFB 657464 jz 00800E62
00800DFE 61 popa
00800DFF 7465 jz 00800E66
00800E01 2829 sub [ecx], ch
00800E03 2000 and [eax], al
00800E05 0000 add [eax], al
00800E07 00FF add bh, bh
00800E09 FFFF DB $FF, $FF //
00800E0B FF0D00000020 dec dword ptr [$20000000]
00800E11 7768 jnbe 00800E7B
00800E13 657265 jb 00800E7B
00800E16 205946 and [ecx+$46], bl
00800E19 49 dec ecx
00800E1A 643D27000000 cmp eax, $00000027
00800E20 FFFF DB $FF, $FF //
00800E22 FFFF DB $FF, $FF //
00800E24 0400 add al, +$00
00800E26 0000 add [eax], al
00800E28 59 pop ecx
00800E29 46 inc esi
00800E2A 49 dec ecx
00800E2B 640000 add fs:[eax], al
00800E2E 0000 add [eax], al
00800E30 53 push ebx
00800E31 8BD8 mov ebx, eax
* Reference to control ToolButton1 : TToolButton
|
00800E33 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00800E39 E88270CCFF call 004C7EC0
00800E3E 84C0 test al, al
00800E40 7516 jnz 00800E58
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
00800E42 B9640E8000 mov ecx, $00800E64
* Reference to control ToolButton1 : TToolButton
|
00800E47 8B9320030000 mov edx, [ebx+$0320]
* Reference to control ADOTemp : N.A.
|
00800E4D 8B833C030000 mov eax, [ebx+$033C]
|
00800E53 E8D873FBFF call 007B8230
00800E58 5B pop ebx
00800E59 C3 ret
00800E5A 0000 add [eax], al
00800E5C FFFF DB $FF, $FF //
00800E5E FFFF DB $FF, $FF //
00800E60 0800 or [eax], al
00800E62 0000 add [eax], al
00800E64 B8B6BFEEC1 mov eax, $C1EEBFB6
00800E69 D0B1ED000000 DB $D0, $B1, $ED, $00, $00, $00 // byte ptr [ecx+$00ED], 1
00800E6F 00558B add [ebp-$75], dl
00800E72 EC in al, dx
00800E73 B915000000 mov ecx, $00000015
00800E78 6A00 push $00
00800E7A 6A00 push $00
00800E7C 49 dec ecx
00800E7D 75F9 jnz 00800E78
00800E7F 53 push ebx
00800E80 56 push esi
00800E81 8BF2 mov esi, edx
00800E83 8BD8 mov ebx, eax
00800E85 33C0 xor eax, eax
00800E87 55 push ebp
* Possible String Reference to: '<27><>7<EFBFBD><37><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00800E88 6801138000 push $00801301
***** TRY
|
00800E8D 64FF30 push dword ptr fs:[eax]
00800E90 648920 mov fs:[eax], esp
* Possible String Reference to: 'Filler'
|
00800E93 BA18138000 mov edx, $00801318
* Reference to control Label11 : N.A.
|
00800E98 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00800E9E E8115DCCFF call 004C6BB4
00800EA3 8D55E4 lea edx, [ebp-$1C]
00800EA6 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00800EA8 FF5160 call dword ptr [ecx+$60]
00800EAB 8B45E4 mov eax, [ebp-$1C]
00800EAE 50 push eax
00800EAF 8D55E0 lea edx, [ebp-$20]
*)
end;
procedure TfrmFKCR._PROC_008013E1(Sender : TObject);
begin
(*
008013E1 50 push eax
008013E2 6461 popa
008013E4 7465 jz 0080144B
008013E6 205946 and [ecx+$46], bl
008013E9 5F pop edi
008013EA 4D dec ebp
008013EB 6F outsd
008013EC 6E outsb
008013ED 65795F jns 0080144F
008013F0 43 inc ebx
008013F1 52 push edx
008013F2 2000 and [eax], al
008013F4 FFFF DB $FF, $FF //
008013F6 FFFF DB $FF, $FF //
008013F8 0500000020 add eax, +$20000000
008013FD 53 push ebx
008013FE 657420 jz 00801421
00801401 0000 add [eax], al
00801403 00FF add bh, bh
00801405 FFFF DB $FF, $FF //
00801407 FF01 inc dword ptr [ecx]
00801409 0000 add [eax], al
0080140B 003D000000FF add [$FF000000], bh
00801411 FFFF DB $FF, $FF //
00801413 FF09 dec dword ptr [ecx]
00801415 0000 add [eax], al
00801417 002C42 add [edx+eax*2], ch
0080141A 42 inc edx
0080141B 4D dec ebp
0080141C 6F outsd
0080141D 6E outsb
0080141E 65793D jns 0080145E
00801421 0000 add [eax], al
00801423 00FF add bh, bh
00801425 FFFF DB $FF, $FF //
00801427 FF09 dec dword ptr [ecx]
00801429 0000 add [eax], al
0080142B 002C4564697465 add [$65746964+eax*2], ch
00801432 723D jb 00801471
00801434 27 daa
00801435 0000 add [eax], al
00801437 00FF add bh, bh
00801439 FFFF DB $FF, $FF //
0080143B FF1400 call dword ptr [eax+eax]
0080143E 0000 add [eax], al
00801440 2C45 sub al, $45
00801442 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0080144B 657464 jz 008014B2
0080144E 61 popa
0080144F 7465 jz 008014B6
00801451 2829 sub [ecx], ch
00801453 2000 and [eax], al
00801455 0000 add [eax], al
00801457 00FF add bh, bh
00801459 FFFF DB $FF, $FF //
0080145B FF0D00000020 dec dword ptr [$20000000]
00801461 7768 jnbe 008014CB
00801463 657265 jb 008014CB
00801466 205946 and [ecx+$46], bl
00801469 49 dec ecx
0080146A 643D27000000 cmp eax, $00000027
00801470 FFFF DB $FF, $FF //
00801472 FFFF DB $FF, $FF //
00801474 0400 add al, +$00
00801476 0000 add [eax], al
00801478 59 pop ecx
00801479 46 inc esi
0080147A 49 dec ecx
0080147B 640000 add fs:[eax], al
0080147E 0000 add [eax], al
00801480 FFFF DB $FF, $FF //
00801482 FFFF DB $FF, $FF //
00801484 2B00 sub eax, dword ptr [eax]
00801486 0000 add [eax], al
00801488 55 push ebp
00801489 7064 jo 008014EF
0080148B 61 popa
0080148C 7465 jz 008014F3
0080148E 205946 and [ecx+$46], bl
00801491 5F pop edi
00801492 4D dec ebp
00801493 6F outsd
00801494 6E outsb
00801495 65795F jns 008014F7
00801498 4B dec ebx
00801499 43 inc ebx
0080149A 205365 and [ebx+$65], dl
0080149D 7420 jz 008014BF
0080149F 4B dec ebx
008014A0 43 inc ebx
008014A1 42 inc edx
008014A2 42 inc edx
008014A3 4D dec ebp
008014A4 6F outsd
008014A5 6E outsb
008014A6 65793D jns 008014E6
008014A9 4B dec ebx
008014AA 43 inc ebx
008014AB 42 inc edx
008014AC 42 inc edx
008014AD 4D dec ebp
008014AE 6F outsd
008014AF 6E outsb
008014B0 65792B jns 008014DE
008014B3 00FF add bh, bh
008014B5 FFFF DB $FF, $FF //
008014B7 FF01 inc dword ptr [ecx]
008014B9 0000 add [eax], al
008014BB 002D000000FF add [$FF000000], ch
008014C1 FFFF DB $FF, $FF //
008014C3 FF0D00000020 dec dword ptr [$20000000]
008014C9 7768 jnbe 00801533
008014CB 657265 jb 00801533
008014CE 204352 and [ebx+$52], al
008014D1 49 dec ecx
008014D2 44 inc esp
008014D3 3D27000000 cmp eax, $00000027
008014D8 FFFF DB $FF, $FF //
008014DA FFFF DB $FF, $FF //
008014DC 0400 add al, +$00
008014DE 0000 add [eax], al
008014E0 43 inc ebx
008014E1 52 push edx
008014E2 49 dec ecx
008014E3 44 inc esp
008014E4 0000 add [eax], al
008014E6 0000 add [eax], al
008014E8 55 push ebp
008014E9 8BEC mov ebp, esp
008014EB 51 push ecx
008014EC B90E000000 mov ecx, $0000000E
008014F1 6A00 push $00
008014F3 6A00 push $00
008014F5 49 dec ecx
008014F6 75F9 jnz 008014F1
008014F8 51 push ecx
008014F9 874DFC xchg [ebp-$04], ecx
008014FC 53 push ebx
008014FD 8945FC mov [ebp-$04], eax
00801500 33C0 xor eax, eax
00801502 55 push ebp
* Possible String Reference to: '<27><>2<EFBFBD><32><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00801503 6859188000 push $00801859
***** TRY
|
00801508 64FF30 push dword ptr fs:[eax]
0080150B 648920 mov fs:[eax], esp
0080150E 33C0 xor eax, eax
00801510 55 push ebp
00801511 6805188000 push $00801805
***** TRY
|
00801516 64FF30 push dword ptr fs:[eax]
00801519 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_008018A1(Sender : TObject);
begin
(*
008018A1 50 push eax
008018A2 6461 popa
008018A4 7465 jz 0080190B
008018A6 205946 and [ecx+$46], bl
008018A9 5F pop edi
008018AA 4D dec ebp
008018AB 6F outsd
008018AC 6E outsb
008018AD 65795F jns 0080190F
008018B0 43 inc ebx
008018B1 52 push edx
008018B2 2000 and [eax], al
008018B4 FFFF DB $FF, $FF //
008018B6 FFFF DB $FF, $FF //
008018B8 0D00000020 or eax, $20000000
008018BD 53 push ebx
008018BE 657420 jz 008018E1
008018C1 4D dec ebp
008018C2 61 popa
008018C3 696E49643D2700 imul ebp, [esi+$49], $00273D64
008018CA 0000 add [eax], al
008018CC FFFF DB $FF, $FF //
008018CE FFFF DB $FF, $FF //
008018D0 0100 add [eax], eax
008018D2 0000 add [eax], al
008018D4 27 daa
008018D5 0000 add [eax], al
008018D7 00FF add bh, bh
008018D9 FFFF DB $FF, $FF //
008018DB FF09 dec dword ptr [ecx]
008018DD 0000 add [eax], al
008018DF 0020 add [eax], ah
008018E1 2C53 sub al, $53
008018E3 7562 jnz 00801947
008018E5 49 dec ecx
008018E6 643D27000000 cmp eax, $00000027
008018EC FFFF DB $FF, $FF //
008018EE FFFF DB $FF, $FF //
008018F0 0500000053 add eax, +$53000000
008018F5 7562 jnz 00801959
008018F7 49 dec ecx
008018F8 640000 add fs:[eax], al
008018FB 00FF add bh, bh
008018FD FFFF DB $FF, $FF //
008018FF FF09 dec dword ptr [ecx]
00801901 0000 add [eax], al
00801903 002C4564697465 add [$65746964+eax*2], ch
0080190A 723D jb 00801949
0080190C 27 daa
0080190D 0000 add [eax], al
0080190F 00FF add bh, bh
00801911 FFFF DB $FF, $FF //
00801913 FF1400 call dword ptr [eax+eax]
00801916 0000 add [eax], al
00801918 2C45 sub al, $45
0080191A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00801923 657464 jz 0080198A
00801926 61 popa
00801927 7465 jz 0080198E
00801929 2829 sub [ecx], ch
0080192B 2000 and [eax], al
0080192D 0000 add [eax], al
0080192F 00FF add bh, bh
00801931 FFFF DB $FF, $FF //
00801933 FF0D00000020 dec dword ptr [$20000000]
00801939 7768 jnbe 008019A3
0080193B 657265 jb 008019A3
0080193E 205946 and [ecx+$46], bl
00801941 49 dec ecx
00801942 643D27000000 cmp eax, $00000027
00801948 FFFF DB $FF, $FF //
0080194A FFFF DB $FF, $FF //
0080194C 0400 add al, +$00
0080194E 0000 add [eax], al
00801950 59 pop ecx
00801951 46 inc esi
00801952 49 dec ecx
00801953 640000 add fs:[eax], al
00801956 0000 add [eax], al
00801958 55 push ebp
00801959 8BEC mov ebp, esp
0080195B B909000000 mov ecx, $00000009
00801960 6A00 push $00
00801962 6A00 push $00
00801964 49 dec ecx
00801965 75F9 jnz 00801960
00801967 51 push ecx
00801968 53 push ebx
00801969 56 push esi
0080196A 8BDA mov ebx, edx
0080196C 8BF0 mov esi, eax
0080196E 33C0 xor eax, eax
00801970 55 push ebp
* Possible String Reference to: '<27><>.<2E><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00801971 68F61B8000 push $00801BF6
***** TRY
|
00801976 64FF30 push dword ptr fs:[eax]
00801979 648920 mov fs:[eax], esp
0080197C 8D55FC lea edx, [ebp-$04]
0080197F 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;
|
00801981 E836DDD8FF call 0058F6BC
* Reference to control Label3 : TLabel
|
00801986 8B9E08030000 mov ebx, [esi+$0308]
0080198C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080198E E8413FCCFF call 004C58D4
00801993 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00801995 E812C6CDFF call 004DDFAC
0080199A 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
0080199C FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
0080199F 680C1C8000 push $00801C0C
* Possible String Reference to: 'YFID'
|
008019A4 BA541C8000 mov edx, $00801C54
* Reference to control Label11 : N.A.
|
008019A9 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008019AF E80052CCFF call 004C6BB4
008019B4 8D55F0 lea edx, [ebp-$10]
008019B7 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008019B9 FF5160 call dword ptr [ecx+$60]
008019BC FF75F0 push dword ptr [ebp-$10]
008019BF 68641C8000 push $00801C64
008019C4 8D45F4 lea eax, [ebp-$0C]
008019C7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008019CC E8E33CC0FF call 004056B4
008019D1 8B45F4 mov eax, [ebp-$0C]
008019D4 50 push eax
008019D5 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008019D7 E8D0C5CDFF call 004DDFAC
008019DC 5A pop edx
008019DD 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008019DF FF5138 call dword ptr [ecx+$38]
008019E2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
008019E4 E8DF3ECCFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
008019E9 BA701C8000 mov edx, $00801C70
* Reference to control Label3 : TLabel
|
008019EE 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008019F4 E8BB51CCFF call 004C6BB4
008019F9 8D55F8 lea edx, [ebp-$08]
008019FC 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
008019FE FF5160 call dword ptr [ecx+$60]
00801A01 8D55EC lea edx, [ebp-$14]
00801A04 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00801A07 E8E08EC0FF call 0040A8EC
00801A0C 837DEC00 cmp dword ptr [ebp-$14], +$00
00801A10 750D jnz 00801A1F
00801A12 8D45FC lea eax, [ebp-$04]
00801A15 BA801C8000 mov edx, $00801C80
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00801A1A E89D39C0FF call 004053BC
* Reference to control Label11 : N.A.
|
00801A1F 8B9E64030000 mov ebx, [esi+$0364]
00801A25 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00801A27 E8146ACCFF call 004C8440
* Possible String Reference to: 'BBMoney'
|
00801A2C BA701C8000 mov edx, $00801C70
00801A31 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00801A33 E87C51CCFF call 004C6BB4
00801A38 50 push eax
00801A39 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00801A3C E8EBBCC0FF call 0040D72C
00801A41 8D45DC lea eax, [ebp-$24]
* Reference to: Variants.@VarFromReal;
|
00801A44 E84373C1FF call 00418D8C
00801A49 8D55DC lea edx, [ebp-$24]
00801A4C 58 pop eax
00801A4D 8B08 mov ecx, [eax]
00801A4F FF91B4000000 call dword ptr [ecx+$00B4]
00801A55 8BC3 mov eax, ebx
00801A57 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00801A59 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00801A5F 8B9E0C030000 mov ebx, [esi+$030C]
00801A65 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00801A67 E8683ECCFF call 004C58D4
00801A6C 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;
|
00801A6E E839C5CDFF call 004DDFAC
00801A73 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00801A75 FF5244 call dword ptr [edx+$44]
00801A78 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;
|
00801A7A E82DC5CDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00801A7F BA8C1C8000 mov edx, $00801C8C
00801A84 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00801A86 FF5138 call dword ptr [ecx+$38]
00801A89 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;
|
00801A8B E81CC5CDFF call 004DDFAC
00801A90 50 push eax
00801A91 8D45D8 lea eax, [ebp-$28]
00801A94 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set BBMoney='
|
00801A97 BAA81C8000 mov edx, $00801CA8
* Reference to: System.@LStrCat3;
|
00801A9C E89F3BC0FF call 00405640
00801AA1 8B55D8 mov edx, [ebp-$28]
00801AA4 58 pop eax
00801AA5 8B08 mov ecx, [eax]
00801AA7 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00801AAA 68C01C8000 push $00801CC0
00801AAF 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmFKCR._PROC_00801C8D(Sender : TObject);
begin
(*
00801C8D 50 push eax
00801C8E 6461 popa
00801C90 7465 jz 00801CF7
00801C92 205946 and [ecx+$46], bl
00801C95 5F pop edi
00801C96 4D dec ebp
00801C97 6F outsd
00801C98 6E outsb
00801C99 65795F jns 00801CFB
00801C9C 43 inc ebx
00801C9D 52 push edx
00801C9E 2000 and [eax], al
00801CA0 FFFF DB $FF, $FF //
00801CA2 FFFF DB $FF, $FF //
00801CA4 0D00000020 or eax, $20000000
00801CA9 7365 jnb 00801D10
00801CAB 7420 jz 00801CCD
00801CAD 42 inc edx
00801CAE 42 inc edx
00801CAF 4D dec ebp
00801CB0 6F outsd
00801CB1 6E outsb
00801CB2 65793D jns 00801CF2
00801CB5 0000 add [eax], al
00801CB7 00FF add bh, bh
00801CB9 FFFF DB $FF, $FF //
00801CBB FF09 dec dword ptr [ecx]
00801CBD 0000 add [eax], al
00801CBF 002C4564697465 add [$65746964+eax*2], ch
00801CC6 723D jb 00801D05
00801CC8 27 daa
00801CC9 0000 add [eax], al
00801CCB 00FF add bh, bh
00801CCD FFFF DB $FF, $FF //
00801CCF FF1400 call dword ptr [eax+eax]
00801CD2 0000 add [eax], al
00801CD4 2C45 sub al, $45
00801CD6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00801CDF 657464 jz 00801D46
00801CE2 61 popa
00801CE3 7465 jz 00801D4A
00801CE5 2829 sub [ecx], ch
00801CE7 2000 and [eax], al
00801CE9 0000 add [eax], al
00801CEB 00FF add bh, bh
00801CED FFFF DB $FF, $FF //
00801CEF FF0D00000020 dec dword ptr [$20000000]
00801CF5 7768 jnbe 00801D5F
00801CF7 657265 jb 00801D5F
00801CFA 205946 and [ecx+$46], bl
00801CFD 49 dec ecx
00801CFE 643D27000000 cmp eax, $00000027
00801D04 FFFF DB $FF, $FF //
00801D06 FFFF DB $FF, $FF //
00801D08 0400 add al, +$00
00801D0A 0000 add [eax], al
00801D0C 59 pop ecx
00801D0D 46 inc esi
00801D0E 49 dec ecx
00801D0F 640000 add fs:[eax], al
00801D12 0000 add [eax], al
00801D14 FFFF DB $FF, $FF //
00801D16 FFFF DB $FF, $FF //
00801D18 2B00 sub eax, dword ptr [eax]
00801D1A 0000 add [eax], al
00801D1C 55 push ebp
00801D1D 7064 jo 00801D83
00801D1F 61 popa
00801D20 7465 jz 00801D87
00801D22 205946 and [ecx+$46], bl
00801D25 5F pop edi
00801D26 4D dec ebp
00801D27 6F outsd
00801D28 6E outsb
00801D29 65795F jns 00801D8B
00801D2C 4B dec ebx
00801D2D 43 inc ebx
00801D2E 205365 and [ebx+$65], dl
00801D31 7420 jz 00801D53
00801D33 4B dec ebx
00801D34 43 inc ebx
00801D35 42 inc edx
00801D36 42 inc edx
00801D37 4D dec ebp
00801D38 6F outsd
00801D39 6E outsb
00801D3A 65793D jns 00801D7A
00801D3D 4B dec ebx
00801D3E 43 inc ebx
00801D3F 42 inc edx
00801D40 42 inc edx
00801D41 4D dec ebp
00801D42 6F outsd
00801D43 6E outsb
00801D44 65792B jns 00801D72
00801D47 00FF add bh, bh
00801D49 FFFF DB $FF, $FF //
00801D4B FF01 inc dword ptr [ecx]
00801D4D 0000 add [eax], al
00801D4F 002D000000FF add [$FF000000], ch
00801D55 FFFF DB $FF, $FF //
00801D57 FF0D00000020 dec dword ptr [$20000000]
00801D5D 7768 jnbe 00801DC7
00801D5F 657265 jb 00801DC7
00801D62 204352 and [ebx+$52], al
00801D65 49 dec ecx
00801D66 44 inc esp
00801D67 3D27000000 cmp eax, $00000027
00801D6C FFFF DB $FF, $FF //
00801D6E FFFF DB $FF, $FF //
00801D70 0400 add al, +$00
00801D72 0000 add [eax], al
00801D74 43 inc ebx
00801D75 52 push edx
00801D76 49 dec ecx
00801D77 44 inc esp
00801D78 0000 add [eax], al
00801D7A 0000 add [eax], al
00801D7C 55 push ebp
00801D7D 8BEC mov ebp, esp
00801D7F 6A00 push $00
00801D81 6A00 push $00
00801D83 53 push ebx
00801D84 56 push esi
00801D85 8BD8 mov ebx, eax
00801D87 33C0 xor eax, eax
00801D89 55 push ebp
00801D8A 68E81D8000 push $00801DE8
***** TRY
|
00801D8F 64FF30 push dword ptr fs:[eax]
00801D92 648920 mov fs:[eax], esp
00801D95 8D55F8 lea edx, [ebp-$08]
* Reference to control v1OrderUnit : N.A.
|
00801D98 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00801D9E E84D68C8FF call 004885F0
00801DA3 8B45F8 mov eax, [ebp-$08]
00801DA6 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00801DA9 E83E8BC0FF call 0040A8EC
00801DAE 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
00801DB1 E83E38C0FF call 004055F4
00801DB6 83F803 cmp eax, +$03
00801DB9 7C0F jl 00801DCA
* Reference to control DlyDate : N.A.
|
00801DBB 8B8314030000 mov eax, [ebx+$0314]
00801DC1 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00801DC5 E88A27C0FF call 00404554
00801DCA 33C0 xor eax, eax
00801DCC 5A pop edx
00801DCD 59 pop ecx
00801DCE 59 pop ecx
00801DCF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[YY]Í@'
|
00801DD2 68EF1D8000 push $00801DEF
00801DD7 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
00801DDA E84535C0FF call 00405324
00801DDF 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00801DE2 E83D35C0FF call 00405324
00801DE7 C3 ret
*)
end;
procedure TfrmFKCR._PROC_0080205D(Sender : TObject);
begin
(*
0080205D 50 push eax
0080205E 6461 popa
00802060 7465 jz 008020C7
00802062 205946 and [ecx+$46], bl
00802065 5F pop edi
00802066 4D dec ebp
00802067 6F outsd
00802068 6E outsb
00802069 65795F jns 008020CB
0080206C 43 inc ebx
0080206D 52 push edx
0080206E 2000 and [eax], al
00802070 FFFF DB $FF, $FF //
00802072 FFFF DB $FF, $FF //
00802074 0500000020 add eax, +$20000000
00802079 53 push ebx
0080207A 657420 jz 0080209D
0080207D 0000 add [eax], al
0080207F 00FF add bh, bh
00802081 FFFF DB $FF, $FF //
00802083 FF02 inc dword ptr [edx]
00802085 0000 add [eax], al
00802087 003D270000FF add [$FF000027], bh
0080208D FFFF DB $FF, $FF //
0080208F FF01 inc dword ptr [ecx]
00802091 0000 add [eax], al
00802093 0027 add [edi], ah
00802095 0000 add [eax], al
00802097 00FF add bh, bh
00802099 FFFF DB $FF, $FF //
0080209B FF09 dec dword ptr [ecx]
0080209D 0000 add [eax], al
0080209F 002C4564697465 add [$65746964+eax*2], ch
008020A6 723D jb 008020E5
008020A8 27 daa
008020A9 0000 add [eax], al
008020AB 00FF add bh, bh
008020AD FFFF DB $FF, $FF //
008020AF FF1400 call dword ptr [eax+eax]
008020B2 0000 add [eax], al
008020B4 2C45 sub al, $45
008020B6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008020BF 657464 jz 00802126
008020C2 61 popa
008020C3 7465 jz 0080212A
008020C5 2829 sub [ecx], ch
008020C7 2000 and [eax], al
008020C9 0000 add [eax], al
008020CB 00FF add bh, bh
008020CD FFFF DB $FF, $FF //
008020CF FF0D00000020 dec dword ptr [$20000000]
008020D5 7768 jnbe 0080213F
008020D7 657265 jb 0080213F
008020DA 205946 and [ecx+$46], bl
008020DD 49 dec ecx
008020DE 643D27000000 cmp eax, $00000027
008020E4 FFFF DB $FF, $FF //
008020E6 FFFF DB $FF, $FF //
008020E8 0400 add al, +$00
008020EA 0000 add [eax], al
008020EC 59 pop ecx
008020ED 46 inc esi
008020EE 49 dec ecx
008020EF 640000 add fs:[eax], al
008020F2 0000 add [eax], al
008020F4 55 push ebp
008020F5 8BEC mov ebp, esp
008020F7 B905000000 mov ecx, $00000005
008020FC 6A00 push $00
008020FE 6A00 push $00
00802100 49 dec ecx
00802101 75F9 jnz 008020FC
00802103 53 push ebx
00802104 56 push esi
00802105 8BDA mov ebx, edx
00802107 8BF0 mov esi, eax
00802109 33C0 xor eax, eax
0080210B 55 push ebp
* Possible String Reference to: '<27><>(<28><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0080210C 6855228000 push $00802255
***** TRY
|
00802111 64FF30 push dword ptr fs:[eax]
00802114 648920 mov fs:[eax], esp
00802117 8D55FC lea edx, [ebp-$04]
0080211A 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;
|
0080211C E89BD5D8FF call 0058F6BC
00802121 8D55F8 lea edx, [ebp-$08]
00802124 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00802127 E8C087C0FF call 0040A8EC
0080212C 837DF800 cmp dword ptr [ebp-$08], +$00
00802130 750D jnz 0080213F
00802132 8D45FC lea eax, [ebp-$04]
00802135 BA6C228000 mov edx, $0080226C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0080213A E87D32C0FF call 004053BC
* Reference to control Label11 : N.A.
|
0080213F 8B9E64030000 mov ebx, [esi+$0364]
00802145 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00802147 E8F462CCFF call 004C8440
0080214C 6A00 push $00
0080214E 6A00 push $00
00802150 6A00 push $00
00802152 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
00802155 E80EB6C0FF call 0040D768
0080215A 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromReal;
|
0080215D E82A6CC1FF call 00418D8C
00802162 8D45E8 lea eax, [ebp-$18]
00802165 50 push eax
* Possible String Reference to: 'DerateMoney'
|
00802166 BA78228000 mov edx, $00802278
0080216B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0080216D E8424ACCFF call 004C6BB4
00802172 5A pop edx
00802173 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00802175 FF91B4000000 call dword ptr [ecx+$00B4]
0080217B 8BC3 mov eax, ebx
0080217D 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
0080217F FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00802185 8B9E0C030000 mov ebx, [esi+$030C]
0080218B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080218D E84237CCFF call 004C58D4
00802192 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;
|
00802194 E813BECDFF call 004DDFAC
00802199 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0080219B FF5244 call dword ptr [edx+$44]
0080219E 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;
|
008021A0 E807BECDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008021A5 BA8C228000 mov edx, $0080228C
008021AA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008021AC FF5138 call dword ptr [ecx+$38]
008021AF 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;
|
008021B1 E8F6BDCDFF call 004DDFAC
008021B6 50 push eax
008021B7 8D45E4 lea eax, [ebp-$1C]
008021BA 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set DerateMoney='
|
008021BD BAA8228000 mov edx, $008022A8
* Reference to: System.@LStrCat3;
|
008021C2 E87934C0FF call 00405640
008021C7 8B55E4 mov edx, [ebp-$1C]
008021CA 58 pop eax
008021CB 8B08 mov ecx, [eax]
008021CD FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008021D0 68C4228000 push $008022C4
* Possible String Reference to: 'YFId'
|
008021D5 BADC228000 mov edx, $008022DC
* Reference to control Label11 : N.A.
|
008021DA 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008021E0 E8CF49CCFF call 004C6BB4
008021E5 8D55D8 lea edx, [ebp-$28]
008021E8 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008021EA FF5160 call dword ptr [ecx+$60]
008021ED 8B45D8 mov eax, [ebp-$28]
008021F0 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008021F3 E8F486C0FF call 0040A8EC
008021F8 FF75DC push dword ptr [ebp-$24]
008021FB 68EC228000 push $008022EC
00802200 8D45E0 lea eax, [ebp-$20]
00802203 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00802208 E8A734C0FF call 004056B4
0080220D 8B45E0 mov eax, [ebp-$20]
00802210 50 push eax
00802211 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;
|
00802213 E894BDCDFF call 004DDFAC
00802218 5A pop edx
00802219 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0080221B FF5138 call dword ptr [ecx+$38]
0080221E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00802220 E8AFBCCDFF call 004DDED4
00802225 33C0 xor eax, eax
00802227 5A pop edx
00802228 59 pop ecx
00802229 59 pop ecx
0080222A 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
0080222D 685C228000 push $0080225C
00802232 8D45D8 lea eax, [ebp-$28]
00802235 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0080223A E80931C0FF call 00405348
0080223F 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00802242 E82D24C1FF call 00414674
00802247 8D45F8 lea eax, [ebp-$08]
0080224A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0080224F E8F430C0FF call 00405348
00802254 C3 ret
*)
end;
procedure TfrmFKCR._PROC_0080228D(Sender : TObject);
begin
(*
0080228D 50 push eax
0080228E 6461 popa
00802290 7465 jz 008022F7
00802292 205946 and [ecx+$46], bl
00802295 5F pop edi
00802296 4D dec ebp
00802297 6F outsd
00802298 6E outsb
00802299 65795F jns 008022FB
0080229C 43 inc ebx
0080229D 52 push edx
0080229E 2000 and [eax], al
008022A0 FFFF DB $FF, $FF //
008022A2 FFFF DB $FF, $FF //
008022A4 1100 adc [eax], eax
008022A6 0000 add [eax], al
008022A8 207365 and [ebx+$65], dh
008022AB 7420 jz 008022CD
008022AD 44 inc esp
008022AE 657261 jb 00802312
008022B1 7465 jz 00802318
008022B3 4D dec ebp
008022B4 6F outsd
008022B5 6E outsb
008022B6 65793D jns 008022F6
008022B9 0000 add [eax], al
008022BB 00FF add bh, bh
008022BD FFFF DB $FF, $FF //
008022BF FF0D00000020 dec dword ptr [$20000000]
008022C5 7768 jnbe 0080232F
008022C7 657265 jb 0080232F
008022CA 205946 and [ecx+$46], bl
008022CD 49 dec ecx
008022CE 643D27000000 cmp eax, $00000027
008022D4 FFFF DB $FF, $FF //
008022D6 FFFF DB $FF, $FF //
008022D8 0400 add al, +$00
008022DA 0000 add [eax], al
008022DC 59 pop ecx
008022DD 46 inc esi
008022DE 49 dec ecx
008022DF 640000 add fs:[eax], al
008022E2 0000 add [eax], al
008022E4 FFFF DB $FF, $FF //
008022E6 FFFF DB $FF, $FF //
008022E8 0100 add [eax], eax
008022EA 0000 add [eax], al
008022EC 27 daa
008022ED 0000 add [eax], al
008022EF 00558B add [ebp-$75], dl
008022F2 EC in al, dx
008022F3 33C9 xor ecx, ecx
008022F5 51 push ecx
008022F6 51 push ecx
008022F7 51 push ecx
008022F8 51 push ecx
008022F9 51 push ecx
008022FA 51 push ecx
008022FB 51 push ecx
008022FC 53 push ebx
008022FD 56 push esi
008022FE 8BDA mov ebx, edx
00802300 8BF0 mov esi, eax
00802302 33C0 xor eax, eax
00802304 55 push ebp
00802305 68EB238000 push $008023EB
***** TRY
|
0080230A 64FF30 push dword ptr fs:[eax]
0080230D 648920 mov fs:[eax], esp
00802310 8D55FC lea edx, [ebp-$04]
00802313 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;
|
00802315 E8A2D3D8FF call 0058F6BC
* Reference to control OrdDate : N.A.
|
0080231A 8B9E0C030000 mov ebx, [esi+$030C]
00802320 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00802322 E8AD35CCFF call 004C58D4
00802327 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;
|
00802329 E87EBCCDFF call 004DDFAC
0080232E 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00802330 FF5244 call dword ptr [edx+$44]
00802333 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;
|
00802335 E872BCCDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0080233A BA00248000 mov edx, $00802400
0080233F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00802341 FF5138 call dword ptr [ecx+$38]
00802344 8D55F0 lea edx, [ebp-$10]
00802347 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0080234A E89D85C0FF call 0040A8EC
0080234F 8B45F0 mov eax, [ebp-$10]
00802352 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00802355 E89A86C0FF call 0040A9F4
0080235A 8B4DF4 mov ecx, [ebp-$0C]
0080235D 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: ' set fstr1='
|
00802360 BA1C248000 mov edx, $0080241C
* Reference to: System.@LStrCat3;
|
00802365 E8D632C0FF call 00405640
0080236A 8B45F8 mov eax, [ebp-$08]
0080236D 50 push eax
0080236E 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;
|
00802370 E837BCCDFF call 004DDFAC
00802375 5A pop edx
00802376 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00802378 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
0080237B 6830248000 push $00802430
* Possible String Reference to: 'YFId'
|
00802380 BA48248000 mov edx, $00802448
* Reference to control Label11 : N.A.
|
00802385 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0080238B E82448CCFF call 004C6BB4
00802390 8D55E4 lea edx, [ebp-$1C]
00802393 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00802395 FF5160 call dword ptr [ecx+$60]
00802398 8B45E4 mov eax, [ebp-$1C]
0080239B 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0080239E E84985C0FF call 0040A8EC
008023A3 FF75E8 push dword ptr [ebp-$18]
008023A6 6858248000 push $00802458
008023AB 8D45EC lea eax, [ebp-$14]
008023AE BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008023B3 E8FC32C0FF call 004056B4
008023B8 8B45EC mov eax, [ebp-$14]
008023BB 50 push eax
008023BC 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;
|
008023BE E8E9BBCDFF call 004DDFAC
008023C3 5A pop edx
008023C4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008023C6 FF5138 call dword ptr [ecx+$38]
008023C9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008023CB E804BBCDFF call 004DDED4
008023D0 33C0 xor eax, eax
008023D2 5A pop edx
008023D3 59 pop ecx
008023D4 59 pop ecx
008023D5 648910 mov fs:[eax], edx
****** FINALLY
|
008023D8 68F2238000 push $008023F2
008023DD 8D45E4 lea eax, [ebp-$1C]
008023E0 BA07000000 mov edx, $00000007
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008023E5 E85E2FC0FF call 00405348
008023EA C3 ret
*)
end;
procedure TfrmFKCR._PROC_00802401(Sender : TObject);
begin
(*
00802401 50 push eax
00802402 6461 popa
00802404 7465 jz 0080246B
00802406 205946 and [ecx+$46], bl
00802409 5F pop edi
0080240A 4D dec ebp
0080240B 6F outsd
0080240C 6E outsb
0080240D 65795F jns 0080246F
00802410 43 inc ebx
00802411 52 push edx
00802412 2000 and [eax], al
00802414 FFFF DB $FF, $FF //
00802416 FFFF DB $FF, $FF //
00802418 0B00 or eax, [eax]
0080241A 0000 add [eax], al
0080241C 207365 and [ebx+$65], dh
0080241F 7420 jz 00802441
00802421 667374 jnb 00802498
00802424 7231 jb 00802457
00802426 3D00FFFFFF cmp eax, $FFFFFF00
0080242B FF0D00000020 dec dword ptr [$20000000]
00802431 7768 jnbe 0080249B
00802433 657265 jb 0080249B
00802436 205946 and [ecx+$46], bl
00802439 49 dec ecx
0080243A 643D27000000 cmp eax, $00000027
00802440 FFFF DB $FF, $FF //
00802442 FFFF DB $FF, $FF //
00802444 0400 add al, +$00
00802446 0000 add [eax], al
00802448 59 pop ecx
00802449 46 inc esi
0080244A 49 dec ecx
0080244B 640000 add fs:[eax], al
0080244E 0000 add [eax], al
00802450 FFFF DB $FF, $FF //
00802452 FFFF DB $FF, $FF //
00802454 0100 add [eax], eax
00802456 0000 add [eax], al
00802458 27 daa
00802459 0000 add [eax], al
0080245B 00558B add [ebp-$75], dl
0080245E EC in al, dx
0080245F B904000000 mov ecx, $00000004
00802464 6A00 push $00
00802466 6A00 push $00
00802468 49 dec ecx
00802469 75F9 jnz 00802464
0080246B 51 push ecx
0080246C 53 push ebx
0080246D 56 push esi
0080246E 57 push edi
0080246F 8945FC mov [ebp-$04], eax
00802472 33C0 xor eax, eax
00802474 55 push ebp
* Possible String Reference to: '<27><>$<24><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00802475 685B268000 push $0080265B
***** TRY
|
0080247A 64FF30 push dword ptr fs:[eax]
0080247D 648920 mov fs:[eax], esp
00802480 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : N.A.
|
00802483 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00802489 E8325ACCFF call 004C7EC0
0080248E 84C0 test al, al
00802490 0F85A2010000 jnz 00802638
00802496 A06C268000 mov al, byte ptr [$0080266C]
0080249B 50 push eax
0080249C 8D45EC lea eax, [ebp-$14]
0080249F B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008024A1 E8BE68C1FF call 00418D64
008024A6 8D4DEC lea ecx, [ebp-$14]
008024A9 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : N.A.
|
008024AC 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
008024B2 BA78268000 mov edx, $00802678
008024B7 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
008024B9 FF9344020000 call dword ptr [ebx+$0244]
008024BF 84C0 test al, al
008024C1 751D jnz 008024E0
008024C3 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008024C5 B980268000 mov ecx, $00802680
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008024CA BA88268000 mov edx, $00802688
*)
end;
procedure TfrmFKCR._PROC_00802CFD(Sender : TObject);
begin
(*
00802CFD 50 push eax
00802CFE 6461 popa
00802D00 7465 jz 00802D67
00802D02 205946 and [ecx+$46], bl
00802D05 5F pop edi
00802D06 4D dec ebp
00802D07 6F outsd
00802D08 6E outsb
00802D09 65795F jns 00802D6B
00802D0C 43 inc ebx
00802D0D 52 push edx
00802D0E 2000 and [eax], al
00802D10 FFFF DB $FF, $FF //
00802D12 FFFF DB $FF, $FF //
00802D14 1000 adc [eax], al
00802D16 0000 add [eax], al
00802D18 205365 and [ebx+$65], dl
00802D1B 7420 jz 00802D3D
00802D1D 43 inc ebx
00802D1E 6F outsd
00802D1F 6D insd
00802D20 54 push esp
00802D21 61 popa
00802D22 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
00802D2A 0000 add [eax], al
00802D2C FFFF DB $FF, $FF //
00802D2E FFFF DB $FF, $FF //
00802D30 0100 add [eax], eax
00802D32 0000 add [eax], al
00802D34 27 daa
00802D35 0000 add [eax], al
00802D37 00FF add bh, bh
00802D39 FFFF DB $FF, $FF //
00802D3B FF09 dec dword ptr [ecx]
00802D3D 0000 add [eax], al
00802D3F 002C4564697465 add [$65746964+eax*2], ch
00802D46 723D jb 00802D85
00802D48 27 daa
00802D49 0000 add [eax], al
00802D4B 00FF add bh, bh
00802D4D FFFF DB $FF, $FF //
00802D4F FF1400 call dword ptr [eax+eax]
00802D52 0000 add [eax], al
00802D54 2C45 sub al, $45
00802D56 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00802D5F 657464 jz 00802DC6
00802D62 61 popa
00802D63 7465 jz 00802DCA
00802D65 2829 sub [ecx], ch
00802D67 2000 and [eax], al
00802D69 0000 add [eax], al
00802D6B 00FF add bh, bh
00802D6D FFFF DB $FF, $FF //
00802D6F FF0D00000020 dec dword ptr [$20000000]
00802D75 7768 jnbe 00802DDF
00802D77 657265 jb 00802DDF
00802D7A 205946 and [ecx+$46], bl
00802D7D 49 dec ecx
00802D7E 643D27000000 cmp eax, $00000027
00802D84 FFFF DB $FF, $FF //
00802D86 FFFF DB $FF, $FF //
00802D88 0400 add al, +$00
00802D8A 0000 add [eax], al
00802D8C 59 pop ecx
00802D8D 46 inc esi
00802D8E 49 dec ecx
00802D8F 640000 add fs:[eax], al
00802D92 0000 add [eax], al
00802D94 53 push ebx
00802D95 56 push esi
00802D96 8BD8 mov ebx, eax
* Possible String Reference to: 'Money'
|
00802D98 BAD42D8000 mov edx, $00802DD4
* Reference to control Label11 : N.A.
|
00802D9D 8BB364030000 mov esi, [ebx+$0364]
00802DA3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00802DA5 E80A3ECCFF call 004C6BB4
00802DAA 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
00802DAC FF524C call dword ptr [edx+$4C]
00802DAF D835DC2D8000 fdiv dword ptr [$00802DDC]
00802DB5 83C4F8 add esp, -$08
00802DB8 DD1C24 fstp qword ptr [esp]
00802DBB 9B wait
* Reference to control Payment : N.A.
|
00802DBC 8B939C030000 mov edx, [ebx+$039C]
00802DC2 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00802DC4 E8C73FFBFF call 007B6D90
00802DC9 5E pop esi
00802DCA 5B pop ebx
00802DCB C3 ret
00802DCC FFFF DB $FF, $FF //
00802DCE FFFF DB $FF, $FF //
00802DD0 050000004D add eax, +$4D000000
00802DD5 6F outsd
00802DD6 6E outsb
00802DD7 657900 jns 00802DDA
00802DDA 0000 add [eax], al
00802DDC 00401C add [eax+$1C], al
00802DDF 46 inc esi
00802DE0 55 push ebp
00802DE1 8BEC mov ebp, esp
00802DE3 6A00 push $00
00802DE5 6A00 push $00
00802DE7 6A00 push $00
00802DE9 6A00 push $00
00802DEB 6A00 push $00
00802DED 6A00 push $00
00802DEF 6A00 push $00
00802DF1 6A00 push $00
00802DF3 53 push ebx
00802DF4 56 push esi
00802DF5 8BF1 mov esi, ecx
00802DF7 8BD8 mov ebx, eax
00802DF9 33C0 xor eax, eax
00802DFB 55 push ebp
00802DFC 68722E8000 push $00802E72
***** TRY
|
00802E01 64FF30 push dword ptr fs:[eax]
00802E04 648920 mov fs:[eax], esp
* Possible String Reference to: 'ChkStatus'
|
00802E07 BA8C2E8000 mov edx, $00802E8C
* Reference to control ADOTemp : N.A.
|
00802E0C 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;
|
00802E12 E8098CE6FF call 0066BA20
* Reference to field N.A..OFFS_006C
|
00802E17 8B586C mov ebx, [eax+$6C]
00802E1A 8D4DF0 lea ecx, [ebp-$10]
00802E1D 8BD3 mov edx, ebx
00802E1F 8BC6 mov eax, esi
00802E21 8B18 mov ebx, [eax]
00802E23 FF5340 call dword ptr [ebx+$40]
00802E26 8D45F0 lea eax, [ebp-$10]
00802E29 50 push eax
00802E2A 8D45E0 lea eax, [ebp-$20]
* Possible String Reference to: '<27><>ͨ<EFBFBD><CDA8>'
|
00802E2D BAA02E8000 mov edx, $00802EA0
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00802E32 E8915FC1FF call 00418DC8
00802E37 8D55E0 lea edx, [ebp-$20]
00802E3A 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);
|
00802E3B E8ACA5C1FF call 0041D3EC
00802E40 750F jnz 00802E51
*)
end;
procedure TfrmFKCR._PROC_0080344D(Sender : TObject);
begin
(*
0080344D 50 push eax
0080344E 6461 popa
00803450 7465 jz 008034B7
00803452 205946 and [ecx+$46], bl
00803455 5F pop edi
00803456 4D dec ebp
00803457 6F outsd
00803458 6E outsb
00803459 65795F jns 008034BB
0080345C 43 inc ebx
0080345D 52 push edx
0080345E 2000 and [eax], al
00803460 FFFF DB $FF, $FF //
00803462 FFFF DB $FF, $FF //
00803464 0D00000020 or eax, $20000000
00803469 53 push ebx
0080346A 657420 jz 0080348D
0080346D 46 inc esi
0080346E 4B dec ebx
0080346F 54 push esp
00803470 7970 jns 008034E2
00803472 653D27000000 cmp eax, $00000027
00803478 FFFF DB $FF, $FF //
0080347A FFFF DB $FF, $FF //
0080347C 0100 add [eax], eax
0080347E 0000 add [eax], al
00803480 27 daa
00803481 0000 add [eax], al
00803483 00FF add bh, bh
00803485 FFFF DB $FF, $FF //
00803487 FF0D00000020 dec dword ptr [$20000000]
0080348D 7768 jnbe 008034F7
0080348F 657265 jb 008034F7
00803492 205946 and [ecx+$46], bl
00803495 49 dec ecx
00803496 643D27000000 cmp eax, $00000027
0080349C FFFF DB $FF, $FF //
0080349E FFFF DB $FF, $FF //
008034A0 0400 add al, +$00
008034A2 0000 add [eax], al
008034A4 59 pop ecx
008034A5 46 inc esi
008034A6 49 dec ecx
008034A7 640000 add fs:[eax], al
008034AA 0000 add [eax], al
008034AC 55 push ebp
008034AD 8BEC mov ebp, esp
008034AF 33C9 xor ecx, ecx
008034B1 51 push ecx
008034B2 51 push ecx
008034B3 51 push ecx
008034B4 51 push ecx
008034B5 51 push ecx
008034B6 51 push ecx
008034B7 51 push ecx
008034B8 51 push ecx
008034B9 53 push ebx
008034BA 56 push esi
008034BB 57 push edi
008034BC 8BF0 mov esi, eax
008034BE 33C0 xor eax, eax
008034C0 55 push ebp
008034C1 68FB358000 push $008035FB
***** TRY
|
008034C6 64FF30 push dword ptr fs:[eax]
008034C9 648920 mov fs:[eax], esp
008034CC BA14368000 mov edx, $00803614
* Reference to control Payment : N.A.
|
008034D1 8B869C030000 mov eax, [esi+$039C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008034D7 E84451C8FF call 00488620
* Reference to control Label11 : N.A.
|
008034DC 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008034E2 E8D949CCFF call 004C7EC0
008034E7 84C0 test al, al
008034E9 0F85E6000000 jnz 008035D5
* Reference to control Label11 : N.A.
|
008034EF 8B9E64030000 mov ebx, [esi+$0364]
008034F5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
008034F7 E85840CCFF call 004C7554
008034FC 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
008034FE E82D4BCCFF call 004C8030
00803503 E9B2000000 jmp 008035BA
00803508 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0080350A E8314FCCFF call 004C8440
* Reference to control Label19 : N.A.
|
0080350F 8B86B8030000 mov eax, [esi+$03B8]
00803515 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_00C8
|
00803517 FF92C8000000 call dword ptr [edx+$00C8]
0080351D 8BD0 mov edx, eax
0080351F 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00803522 E83D58C1FF call 00418D64
00803527 8D45F0 lea eax, [ebp-$10]
0080352A 50 push eax
* Possible String Reference to: 'ssel'
|
0080352B BA20368000 mov edx, $00803620
00803530 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803532 E87D36CCFF call 004C6BB4
00803537 5A pop edx
00803538 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0080353A FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control Label19 : N.A.
|
00803540 8B86B8030000 mov eax, [esi+$03B8]
00803546 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_00C8
|
00803548 FF92C8000000 call dword ptr [edx+$00C8]
0080354E 3C01 cmp al, $01
00803550 7557 jnz 008035A9
* Possible String Reference to: 'Money'
|
00803552 BA30368000 mov edx, $00803630
00803557 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803559 E85636CCFF call 004C6BB4
0080355E 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
00803560 FF524C call dword ptr [edx+$4C]
00803563 DF7DE4 fistp qword ptr [ebp-$1C]
00803566 9B wait
00803567 8D55E0 lea edx, [ebp-$20]
* Reference to control Payment : N.A.
|
0080356A 8BBE9C030000 mov edi, [esi+$039C]
00803570 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00803572 E87950C8FF call 004885F0
00803577 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0080357A E8ADA1C0FF call 0040D72C
0080357F D80D38368000 fmul dword ptr [$00803638]
00803585 DF6DE4 fild qword ptr [ebp-$1C]
00803588 DEC1 faddp st(1), st(0)
0080358A D83538368000 fdiv dword ptr [$00803638]
00803590 83C4F4 add esp, -$0C
00803593 DB3C24 fstp tbyte ptr [esp]
00803596 9B wait
00803597 8D45EC lea eax, [ebp-$14]
|
0080359A E80DA0C0FF call 0040D5AC
0080359F 8B55EC mov edx, [ebp-$14]
008035A2 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008035A4 E87750C8FF call 00488620
008035A9 8BC3 mov eax, ebx
008035AB 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008035AD FF924C020000 call dword ptr [edx+$024C]
008035B3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
008035B5 E8924DCCFF call 004C834C
* Reference to field N.A..OFFS_00A1
|
008035BA 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
008035C1 0F8441FFFFFF jz 00803508
008035C7 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
008035C9 E8624ACCFF call 004C8030
008035CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008035D0 E89F3FCCFF call 004C7574
008035D5 33C0 xor eax, eax
008035D7 5A pop edx
008035D8 59 pop ecx
008035D9 59 pop ecx
008035DA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
008035DD 6802368000 push $00803602
008035E2 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
008035E5 E83A1DC0FF call 00405324
008035EA 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
008035ED E8321DC0FF call 00405324
008035F2 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008035F5 E87A10C1FF call 00414674
008035FA C3 ret
*)
end;
procedure TfrmFKCR._PROC_00803A45(Sender : TObject);
begin
(*
00803A45 50 push eax
00803A46 6461 popa
00803A48 7465 jz 00803AAF
00803A4A 205946 and [ecx+$46], bl
00803A4D 5F pop edi
00803A4E 4D dec ebp
00803A4F 6F outsd
00803A50 6E outsb
00803A51 65795F jns 00803AB3
00803A54 43 inc ebx
00803A55 52 push edx
00803A56 2000 and [eax], al
00803A58 FFFF DB $FF, $FF //
00803A5A FFFF DB $FF, $FF //
00803A5C 0F0000 sldt word ptr [eax]
00803A5F 0020 add [eax], ah
00803A61 53 push ebx
00803A62 657420 jz 00803A85
00803A65 42 inc edx
00803A66 61 popa
00803A67 6E outsb
00803A68 6B4E616D imul ecx, [esi+$61], $6D
00803A6C 653D2700FFFF cmp eax, $FFFF0027
00803A72 FFFF DB $FF, $FF //
00803A74 0100 add [eax], eax
00803A76 0000 add [eax], al
00803A78 27 daa
00803A79 0000 add [eax], al
00803A7B 00FF add bh, bh
00803A7D FFFF DB $FF, $FF //
00803A7F FF09 dec dword ptr [ecx]
00803A81 0000 add [eax], al
00803A83 002C42 add [edx+eax*2], ch
00803A86 61 popa
00803A87 6E outsb
00803A88 6B4E6F3D imul ecx, [esi+$6F], $3D
00803A8C 27 daa
00803A8D 0000 add [eax], al
00803A8F 00FF add bh, bh
00803A91 FFFF DB $FF, $FF //
00803A93 FF0D00000020 dec dword ptr [$20000000]
00803A99 7768 jnbe 00803B03
00803A9B 657265 jb 00803B03
00803A9E 205946 and [ecx+$46], bl
00803AA1 49 dec ecx
00803AA2 643D27000000 cmp eax, $00000027
00803AA8 FFFF DB $FF, $FF //
00803AAA FFFF DB $FF, $FF //
00803AAC 0400 add al, +$00
00803AAE 0000 add [eax], al
00803AB0 59 pop ecx
00803AB1 46 inc esi
00803AB2 49 dec ecx
00803AB3 640000 add fs:[eax], al
00803AB6 0000 add [eax], al
00803AB8 55 push ebp
00803AB9 8BEC mov ebp, esp
00803ABB 51 push ecx
00803ABC B906000000 mov ecx, $00000006
00803AC1 6A00 push $00
00803AC3 6A00 push $00
00803AC5 49 dec ecx
00803AC6 75F9 jnz 00803AC1
00803AC8 51 push ecx
00803AC9 874DFC xchg [ebp-$04], ecx
00803ACC 53 push ebx
00803ACD 56 push esi
00803ACE 8BF0 mov esi, eax
00803AD0 33C0 xor eax, eax
00803AD2 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00803AD3 68243D8000 push $00803D24
***** TRY
|
00803AD8 64FF30 push dword ptr fs:[eax]
00803ADB 648920 mov fs:[eax], esp
* Reference to control Label11 : N.A.
|
00803ADE 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Filler'
|
00803AE4 BA3C3D8000 mov edx, $00803D3C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803AE9 E8C630CCFF call 004C6BB4
00803AEE 8D55FC lea edx, [ebp-$04]
00803AF1 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00803AF3 FF5160 call dword ptr [ecx+$60]
00803AF6 8B45FC mov eax, [ebp-$04]
00803AF9 50 push eax
00803AFA 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR._PROC_00803DB1(Sender : TObject);
begin
(*
00803DB1 50 push eax
00803DB2 6461 popa
00803DB4 7465 jz 00803E1B
00803DB6 205946 and [ecx+$46], bl
00803DB9 5F pop edi
00803DBA 4D dec ebp
00803DBB 6F outsd
00803DBC 6E outsb
00803DBD 65795F jns 00803E1F
00803DC0 43 inc ebx
00803DC1 52 push edx
00803DC2 2000 and [eax], al
00803DC4 FFFF DB $FF, $FF //
00803DC6 FFFF DB $FF, $FF //
00803DC8 0D00000020 or eax, $20000000
00803DCD 53 push ebx
00803DCE 657420 jz 00803DF1
00803DD1 42 inc edx
00803DD2 61 popa
00803DD3 6E outsb
00803DD4 6B4E6F3D imul ecx, [esi+$6F], $3D
00803DD8 27 daa
00803DD9 0000 add [eax], al
00803DDB 00FF add bh, bh
00803DDD FFFF DB $FF, $FF //
00803DDF FF01 inc dword ptr [ecx]
00803DE1 0000 add [eax], al
00803DE3 0027 add [edi], ah
00803DE5 0000 add [eax], al
00803DE7 00FF add bh, bh
00803DE9 FFFF DB $FF, $FF //
00803DEB FF0D00000020 dec dword ptr [$20000000]
00803DF1 7768 jnbe 00803E5B
00803DF3 657265 jb 00803E5B
00803DF6 205946 and [ecx+$46], bl
00803DF9 49 dec ecx
00803DFA 643D27000000 cmp eax, $00000027
00803E00 FFFF DB $FF, $FF //
00803E02 FFFF DB $FF, $FF //
00803E04 0400 add al, +$00
00803E06 0000 add [eax], al
00803E08 59 pop ecx
00803E09 46 inc esi
00803E0A 49 dec ecx
00803E0B 640000 add fs:[eax], al
00803E0E 0000 add [eax], al
00803E10 55 push ebp
00803E11 8BEC mov ebp, esp
00803E13 51 push ecx
00803E14 B909000000 mov ecx, $00000009
00803E19 6A00 push $00
00803E1B 6A00 push $00
00803E1D 49 dec ecx
00803E1E 75F9 jnz 00803E19
00803E20 874DFC xchg [ebp-$04], ecx
00803E23 53 push ebx
00803E24 56 push esi
00803E25 8BD8 mov ebx, eax
00803E27 33C0 xor eax, eax
00803E29 55 push ebp
00803E2A 685A418000 push $0080415A
***** TRY
|
00803E2F 64FF30 push dword ptr fs:[eax]
00803E32 648920 mov fs:[eax], esp
* Reference to control Label11 : N.A.
|
00803E35 8B8364030000 mov eax, [ebx+$0364]
* Possible String Reference to: 'Filler'
|
00803E3B BA70418000 mov edx, $00804170
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00803E40 E86F2DCCFF call 004C6BB4
00803E45 8D55FC lea edx, [ebp-$04]
00803E48 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00803E4A FF5160 call dword ptr [ecx+$60]
00803E4D 8B45FC mov eax, [ebp-$04]
00803E50 50 push eax
00803E51 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmFKCR._PROC_0080427D(Sender : TObject);
begin
(*
0080427D 50 push eax
0080427E 6461 popa
00804280 7465 jz 008042E7
00804282 205946 and [ecx+$46], bl
00804285 5F pop edi
00804286 4D dec ebp
00804287 6F outsd
00804288 6E outsb
00804289 65795F jns 008042EB
0080428C 43 inc ebx
0080428D 52 push edx
0080428E 2000 and [eax], al
00804290 FFFF DB $FF, $FF //
00804292 FFFF DB $FF, $FF //
00804294 0F0000 sldt word ptr [eax]
00804297 0020 add [eax], ah
00804299 53 push ebx
0080429A 657420 jz 008042BD
0080429D 46 inc esi
0080429E 4B dec ebx
0080429F 54 push esp
008042A0 61 popa
008042A1 69746F753D2700FF imul esi, [edi+ebp*2+$75], $FF00273D
008042A9 FFFF DB $FF, $FF //
008042AB FF0D00000020 dec dword ptr [$20000000]
008042B1 7768 jnbe 0080431B
008042B3 657265 jb 0080431B
008042B6 205946 and [ecx+$46], bl
008042B9 49 dec ecx
008042BA 643D27000000 cmp eax, $00000027
008042C0 FFFF DB $FF, $FF //
008042C2 FFFF DB $FF, $FF //
008042C4 0400 add al, +$00
008042C6 0000 add [eax], al
008042C8 59 pop ecx
008042C9 46 inc esi
008042CA 49 dec ecx
008042CB 640000 add fs:[eax], al
008042CE 0000 add [eax], al
008042D0 55 push ebp
008042D1 8BEC mov ebp, esp
008042D3 B923000000 mov ecx, $00000023
008042D8 6A00 push $00
008042DA 6A00 push $00
008042DC 49 dec ecx
008042DD 75F9 jnz 008042D8
008042DF 51 push ecx
008042E0 53 push ebx
008042E1 56 push esi
008042E2 8BD8 mov ebx, eax
008042E4 33C0 xor eax, eax
008042E6 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>N<EFBFBD><4E><EFBFBD>^[<5B><>]<5D>'
|
008042E7 68354B8000 push $00804B35
***** TRY
|
008042EC 64FF30 push dword ptr fs:[eax]
008042EF 648920 mov fs:[eax], esp
* Reference to control Label11 : N.A.
|
008042F2 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008042F8 E8C33BCCFF call 004C7EC0
008042FD 84C0 test al, al
008042FF 0F857B070000 jnz 00804A80
00804305 A0484B8000 mov al, byte ptr [$00804B48]
0080430A 50 push eax
0080430B 8D45D4 lea eax, [ebp-$2C]
0080430E B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00804310 E84F4AC1FF call 00418D64
00804315 8D4DD4 lea ecx, [ebp-$2C]
* Possible String Reference to: 'Ssel'
|
00804318 BA544B8000 mov edx, $00804B54
* Reference to control Label11 : N.A.
|
0080431D 8B8364030000 mov eax, [ebx+$0364]
00804323 8B30 mov esi, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
00804325 FF9644020000 call dword ptr [esi+$0244]
0080432B 84C0 test al, al
0080432D 751D jnz 0080434C
0080432F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00804331 B95C4B8000 mov ecx, $00804B5C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00804336 BA644B8000 mov edx, $00804B64
*)
end;
procedure TfrmFKCR._PROC_00804FD1(Sender : TObject);
begin
(*
00804FD1 50 push eax
00804FD2 6461 popa
00804FD4 7465 jz 0080503B
00804FD6 205946 and [ecx+$46], bl
00804FD9 5F pop edi
00804FDA 4D dec ebp
00804FDB 6F outsd
00804FDC 6E outsb
00804FDD 65795F jns 0080503F
00804FE0 43 inc ebx
00804FE1 52 push edx
00804FE2 2000 and [eax], al
00804FE4 FFFF DB $FF, $FF //
00804FE6 FFFF DB $FF, $FF //
00804FE8 0A00 or al, byte ptr [eax]
00804FEA 0000 add [eax], al
00804FEC 205365 and [ebx+$65], dl
00804FEF 7420 jz 00805011
00804FF1 51 push ecx
00804FF2 7479 jz 0080506D
00804FF4 3D270000FF cmp eax, $FF000027
00804FF9 FFFF DB $FF, $FF //
00804FFB FF01 inc dword ptr [ecx]
00804FFD 0000 add [eax], al
00804FFF 0027 add [edi], ah
00805001 0000 add [eax], al
00805003 00FF add bh, bh
00805005 FFFF DB $FF, $FF //
00805007 FF08 dec dword ptr [eax]
00805009 0000 add [eax], al
0080500B 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
00805012 3D27000000 cmp eax, $00000027
00805017 00FF add bh, bh
00805019 FFFF DB $FF, $FF //
0080501B FF1400 call dword ptr [eax+eax]
0080501E 0000 add [eax], al
00805020 2C45 sub al, $45
00805022 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0080502B 657464 jz 00805092
0080502E 61 popa
0080502F 7465 jz 00805096
00805031 2829 sub [ecx], ch
00805033 2000 and [eax], al
00805035 0000 add [eax], al
00805037 00FF add bh, bh
00805039 FFFF DB $FF, $FF //
0080503B FF0D00000020 dec dword ptr [$20000000]
00805041 7768 jnbe 008050AB
00805043 657265 jb 008050AB
00805046 205946 and [ecx+$46], bl
00805049 49 dec ecx
0080504A 643D27000000 cmp eax, $00000027
00805050 FFFF DB $FF, $FF //
00805052 FFFF DB $FF, $FF //
00805054 0400 add al, +$00
00805056 0000 add [eax], al
00805058 59 pop ecx
00805059 46 inc esi
0080505A 49 dec ecx
0080505B 640000 add fs:[eax], al
0080505E 0000 add [eax], al
00805060 55 push ebp
00805061 8BEC mov ebp, esp
00805063 B90A000000 mov ecx, $0000000A
00805068 6A00 push $00
0080506A 6A00 push $00
0080506C 49 dec ecx
0080506D 75F9 jnz 00805068
0080506F 51 push ecx
00805070 53 push ebx
00805071 56 push esi
00805072 8BDA mov ebx, edx
00805074 8BF0 mov esi, eax
00805076 33C0 xor eax, eax
00805078 55 push ebp
* Possible String Reference to: '<27>i<EFBFBD><69><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00805079 6886528000 push $00805286
***** TRY
|
0080507E 64FF30 push dword ptr fs:[eax]
00805081 648920 mov fs:[eax], esp
00805084 8D55FC lea edx, [ebp-$04]
00805087 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;
|
00805089 E82EA6D8FF call 0058F6BC
0080508E 8D55F8 lea edx, [ebp-$08]
00805091 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00805094 E85358C0FF call 0040A8EC
00805099 837DF800 cmp dword ptr [ebp-$08], +$00
0080509D 750D jnz 008050AC
0080509F 8D45FC lea eax, [ebp-$04]
008050A2 BA9C528000 mov edx, $0080529C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008050A7 E81003C0FF call 004053BC
* Reference to control Label11 : N.A.
|
008050AC 8B9E64030000 mov ebx, [esi+$0364]
008050B2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008050B4 E88733CCFF call 004C8440
008050B9 8D55E4 lea edx, [ebp-$1C]
008050BC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008050BF E82858C0FF call 0040A8EC
008050C4 8B55E4 mov edx, [ebp-$1C]
008050C7 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008050CA E8F93CC1FF call 00418DC8
008050CF 8D45E8 lea eax, [ebp-$18]
008050D2 50 push eax
* Possible String Reference to: 'Price'
|
008050D3 BAA8528000 mov edx, $008052A8
008050D8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008050DA E8D51ACCFF call 004C6BB4
008050DF 5A pop edx
008050E0 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008050E2 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'Qty'
|
008050E8 BAB8528000 mov edx, $008052B8
008050ED 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008050EF E8C01ACCFF call 004C6BB4
008050F4 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
008050F6 FF5254 call dword ptr [edx+$54]
008050F9 DD5DCC fstp qword ptr [ebp-$34]
008050FC 9B wait
* Possible String Reference to: 'Price'
|
008050FD BAA8528000 mov edx, $008052A8
00805102 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00805104 E8AB1ACCFF call 004C6BB4
00805109 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
0080510B FF5254 call dword ptr [edx+$54]
0080510E DC4DCC fmul qword ptr [ebp-$34]
00805111 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarFromReal;
|
00805114 E8733CC1FF call 00418D8C
00805119 8D45D4 lea eax, [ebp-$2C]
0080511C 50 push eax
* Possible String Reference to: 'Money'
|
0080511D BAC4528000 mov edx, $008052C4
00805122 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00805124 E88B1ACCFF call 004C6BB4
00805129 5A pop edx
0080512A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0080512C FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control OrdDate : N.A.
|
00805132 8B9E0C030000 mov ebx, [esi+$030C]
00805138 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0080513A E89507CCFF call 004C58D4
0080513F 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;
|
00805141 E8668ECDFF call 004DDFAC
00805146 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00805148 FF5244 call dword ptr [edx+$44]
0080514B 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;
|
0080514D E85A8ECDFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00805152 BAD4528000 mov edx, $008052D4
00805157 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00805159 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set Price=''
|
0080515C 68F0528000 push $008052F0
00805161 8D55C4 lea edx, [ebp-$3C]
00805164 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00805167 E88057C0FF call 0040A8EC
0080516C FF75C4 push dword ptr [ebp-$3C]
0080516F 6808538000 push $00805308
00805174 8D45C8 lea eax, [ebp-$38]
00805177 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0080517C E83305C0FF call 004056B4
00805181 8B45C8 mov eax, [ebp-$38]
00805184 50 push eax
00805185 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;
|
00805187 E8208ECDFF call 004DDFAC
0080518C 5A pop edx
0080518D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0080518F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Money=''
|
00805192 6814538000 push $00805314
* Reference to control Label11 : N.A.
|
00805197 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'Money'
|
0080519D BAC4528000 mov edx, $008052C4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008051A2 E80D1ACCFF call 004C6BB4
008051A7 8D55B8 lea edx, [ebp-$48]
008051AA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008051AC FF5160 call dword ptr [ecx+$60]
008051AF 8B45B8 mov eax, [ebp-$48]
008051B2 8D55BC lea edx, [ebp-$44]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008051B5 E83257C0FF call 0040A8EC
008051BA FF75BC push dword ptr [ebp-$44]
008051BD 6808538000 push $00805308
008051C2 8D45C0 lea eax, [ebp-$40]
008051C5 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008051CA E8E504C0FF call 004056B4
008051CF 8B45C0 mov eax, [ebp-$40]
008051D2 50 push eax
008051D3 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;
|
008051D5 E8D28DCDFF call 004DDFAC
008051DA 5A pop edx
008051DB 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008051DD FF5138 call dword ptr [ecx+$38]
008051E0 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;
|
008051E2 E8C58DCDFF call 004DDFAC
* Possible String Reference to: ',Edittime=getdate() '
|
008051E7 BA28538000 mov edx, $00805328
008051EC 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008051EE FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008051F1 6848538000 push $00805348
* Reference to control Label11 : N.A.
|
008051F6 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'YFId'
|
008051FC BA60538000 mov edx, $00805360
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00805201 E8AE19CCFF call 004C6BB4
00805206 8D55AC lea edx, [ebp-$54]
00805209 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0080520B FF5160 call dword ptr [ecx+$60]
0080520E 8B45AC mov eax, [ebp-$54]
00805211 8D55B0 lea edx, [ebp-$50]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00805214 E8D356C0FF call 0040A8EC
00805219 FF75B0 push dword ptr [ebp-$50]
0080521C 6808538000 push $00805308
00805221 8D45B4 lea eax, [ebp-$4C]
00805224 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00805229 E88604C0FF call 004056B4
0080522E 8B45B4 mov eax, [ebp-$4C]
00805231 50 push eax
00805232 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;
|
00805234 E8738DCDFF call 004DDFAC
00805239 5A pop edx
0080523A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0080523C FF5138 call dword ptr [ecx+$38]
0080523F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00805241 E88E8CCDFF call 004DDED4
00805246 33C0 xor eax, eax
00805248 5A pop edx
00805249 59 pop ecx
0080524A 59 pop ecx
0080524B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
0080524E 688D528000 push $0080528D
00805253 8D45AC lea eax, [ebp-$54]
00805256 BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0080525B E8E800C0FF call 00405348
00805260 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00805263 E80CF4C0FF call 00414674
00805268 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
0080526B E8B400C0FF call 00405324
00805270 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00805273 E8FCF3C0FF call 00414674
00805278 8D45F8 lea eax, [ebp-$08]
0080527B BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00805280 E8C300C0FF call 00405348
00805285 C3 ret
*)
end;
procedure TfrmFKCR._PROC_008052D5(Sender : TObject);
begin
(*
008052D5 50 push eax
008052D6 6461 popa
008052D8 7465 jz 0080533F
008052DA 205946 and [ecx+$46], bl
008052DD 5F pop edi
008052DE 4D dec ebp
008052DF 6F outsd
008052E0 6E outsb
008052E1 65795F jns 00805343
008052E4 43 inc ebx
008052E5 52 push edx
008052E6 2000 and [eax], al
008052E8 FFFF DB $FF, $FF //
008052EA FFFF DB $FF, $FF //
008052EC 0C00 or al, $00
008052EE 0000 add [eax], al
008052F0 205365 and [ebx+$65], dl
008052F3 7420 jz 00805315
008052F5 50 push eax
008052F6 7269 jb 00805361
008052F8 63653D arpl [ebp+$3D], sp
008052FB 27 daa
008052FC 0000 add [eax], al
008052FE 0000 add [eax], al
00805300 FFFF DB $FF, $FF //
00805302 FFFF DB $FF, $FF //
00805304 0100 add [eax], eax
00805306 0000 add [eax], al
00805308 27 daa
00805309 0000 add [eax], al
0080530B 00FF add bh, bh
0080530D FFFF DB $FF, $FF //
0080530F FF08 dec dword ptr [eax]
00805311 0000 add [eax], al
00805313 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
0080531A 3D27000000 cmp eax, $00000027
0080531F 00FF add bh, bh
00805321 FFFF DB $FF, $FF //
00805323 FF1400 call dword ptr [eax+eax]
00805326 0000 add [eax], al
00805328 2C45 sub al, $45
0080532A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00805333 657464 jz 0080539A
00805336 61 popa
00805337 7465 jz 0080539E
00805339 2829 sub [ecx], ch
0080533B 2000 and [eax], al
0080533D 0000 add [eax], al
0080533F 00FF add bh, bh
00805341 FFFF DB $FF, $FF //
00805343 FF0D00000020 dec dword ptr [$20000000]
00805349 7768 jnbe 008053B3
0080534B 657265 jb 008053B3
0080534E 205946 and [ecx+$46], bl
00805351 49 dec ecx
00805352 643D27000000 cmp eax, $00000027
00805358 FFFF DB $FF, $FF //
0080535A FFFF DB $FF, $FF //
0080535C 0400 add al, +$00
0080535E 0000 add [eax], al
00805360 59 pop ecx
00805361 46 inc esi
00805362 49 dec ecx
00805363 640000 add fs:[eax], al
00805366 0000 add [eax], al
00805368 55 push ebp
00805369 8BEC mov ebp, esp
0080536B 51 push ecx
0080536C B905000000 mov ecx, $00000005
00805371 6A00 push $00
00805373 6A00 push $00
00805375 49 dec ecx
00805376 75F9 jnz 00805371
00805378 51 push ecx
00805379 874DFC xchg [ebp-$04], ecx
0080537C 53 push ebx
0080537D 56 push esi
0080537E 8BF0 mov esi, eax
00805380 33C0 xor eax, eax
00805382 55 push ebp
* Possible String Reference to: '<27>{<7B><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00805383 6874558000 push $00805574
***** TRY
|
00805388 64FF30 push dword ptr fs:[eax]
0080538B 648920 mov fs:[eax], esp
0080538E 33C0 xor eax, eax
00805390 55 push ebp
00805391 684A558000 push $0080554A
***** TRY
|
00805396 64FF30 push dword ptr fs:[eax]
00805399 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_008055C1(Sender : TObject);
begin
(*
008055C1 50 push eax
008055C2 6461 popa
008055C4 7465 jz 0080562B
008055C6 205946 and [ecx+$46], bl
008055C9 5F pop edi
008055CA 4D dec ebp
008055CB 6F outsd
008055CC 6E outsb
008055CD 65795F jns 0080562F
008055D0 43 inc ebx
008055D1 52 push edx
008055D2 2000 and [eax], al
008055D4 FFFF DB $FF, $FF //
008055D6 FFFF DB $FF, $FF //
008055D8 0F0000 sldt word ptr [eax]
008055DB 0020 add [eax], ah
008055DD 53 push ebx
008055DE 657420 jz 00805601
008055E1 53 push ebx
008055E2 51 push ecx
008055E3 50 push eax
008055E4 657270 jb 00805657
008055E7 6F outsd
008055E8 6E outsb
008055E9 3D2700FFFF cmp eax, $FFFF0027
008055EE FFFF DB $FF, $FF //
008055F0 0100 add [eax], eax
008055F2 0000 add [eax], al
008055F4 27 daa
008055F5 0000 add [eax], al
008055F7 00FF add bh, bh
008055F9 FFFF DB $FF, $FF //
008055FB FF0D00000020 dec dword ptr [$20000000]
00805601 7768 jnbe 0080566B
00805603 657265 jb 0080566B
00805606 205946 and [ecx+$46], bl
00805609 49 dec ecx
0080560A 643D27000000 cmp eax, $00000027
00805610 FFFF DB $FF, $FF //
00805612 FFFF DB $FF, $FF //
00805614 0400 add al, +$00
00805616 0000 add [eax], al
00805618 59 pop ecx
00805619 46 inc esi
0080561A 49 dec ecx
0080561B 640000 add fs:[eax], al
0080561E 0000 add [eax], al
00805620 53 push ebx
00805621 8BD8 mov ebx, eax
* Reference to control Label11 : N.A.
|
00805623 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00805629 E89228CCFF call 004C7EC0
0080562E 84C0 test al, al
00805630 750A jnz 0080563C
00805632 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001
0080563C 5B pop ebx
0080563D C3 ret
0080563E 8BC0 mov eax, eax
00805640 55 push ebp
00805641 8BEC mov ebp, esp
00805643 B904000000 mov ecx, $00000004
00805648 6A00 push $00
0080564A 6A00 push $00
0080564C 49 dec ecx
0080564D 75F9 jnz 00805648
0080564F 51 push ecx
00805650 53 push ebx
00805651 56 push esi
00805652 57 push edi
00805653 8945FC mov [ebp-$04], eax
00805656 33C0 xor eax, eax
00805658 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00805659 683F588000 push $0080583F
***** TRY
|
0080565E 64FF30 push dword ptr fs:[eax]
00805661 648920 mov fs:[eax], esp
00805664 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : N.A.
|
00805667 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0080566D E84E28CCFF call 004C7EC0
00805672 84C0 test al, al
00805674 0F85A2010000 jnz 0080581C
0080567A A050588000 mov al, byte ptr [$00805850]
0080567F 50 push eax
00805680 8D45EC lea eax, [ebp-$14]
00805683 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00805685 E8DA36C1FF call 00418D64
0080568A 8D4DEC lea ecx, [ebp-$14]
0080568D 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : N.A.
|
00805690 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
00805696 BA5C588000 mov edx, $0080585C
0080569B 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
0080569D FF9344020000 call dword ptr [ebx+$0244]
008056A3 84C0 test al, al
008056A5 751D jnz 008056C4
008056A7 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008056A9 B964588000 mov ecx, $00805864
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008056AE BA6C588000 mov edx, $0080586C
*)
end;
procedure TfrmFKCR._PROC_00806151(Sender : TObject);
begin
(*
00806151 50 push eax
00806152 6461 popa
00806154 7465 jz 008061BB
00806156 205946 and [ecx+$46], bl
00806159 5F pop edi
0080615A 4D dec ebp
0080615B 6F outsd
0080615C 6E outsb
0080615D 65795F jns 008061BF
00806160 43 inc ebx
00806161 52 push edx
00806162 2000 and [eax], al
00806164 FFFF DB $FF, $FF //
00806166 FFFF DB $FF, $FF //
00806168 0F0000 sldt word ptr [eax]
0080616B 0020 add [eax], ah
0080616D 53 push ebx
0080616E 657420 jz 00806191
00806171 4B dec ebx
00806172 50 push eax
00806173 53 push ebx
00806174 7461 jz 008061D7
00806176 7475 jz 008061ED
00806178 733D jnb 008061B7
0080617A 27 daa
0080617B 00FF add bh, bh
0080617D FFFF DB $FF, $FF //
0080617F FF01 inc dword ptr [ecx]
00806181 0000 add [eax], al
00806183 0027 add [edi], ah
00806185 0000 add [eax], al
00806187 00FF add bh, bh
00806189 FFFF DB $FF, $FF //
0080618B FF0D00000020 dec dword ptr [$20000000]
00806191 7768 jnbe 008061FB
00806193 657265 jb 008061FB
00806196 205946 and [ecx+$46], bl
00806199 49 dec ecx
0080619A 643D27000000 cmp eax, $00000027
008061A0 FFFF DB $FF, $FF //
008061A2 FFFF DB $FF, $FF //
008061A4 0400 add al, +$00
008061A6 0000 add [eax], al
008061A8 59 pop ecx
008061A9 46 inc esi
008061AA 49 dec ecx
008061AB 640000 add fs:[eax], al
008061AE 0000 add [eax], al
008061B0 55 push ebp
008061B1 8BEC mov ebp, esp
008061B3 51 push ecx
008061B4 B90A000000 mov ecx, $0000000A
008061B9 6A00 push $00
008061BB 6A00 push $00
008061BD 49 dec ecx
008061BE 75F9 jnz 008061B9
008061C0 874DFC xchg [ebp-$04], ecx
008061C3 53 push ebx
008061C4 56 push esi
008061C5 8BF0 mov esi, eax
008061C7 33C0 xor eax, eax
008061C9 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008061CA 6858648000 push $00806458
***** TRY
|
008061CF 64FF30 push dword ptr fs:[eax]
008061D2 648920 mov fs:[eax], esp
008061D5 33C0 xor eax, eax
008061D7 55 push ebp
008061D8 6819648000 push $00806419
***** TRY
|
008061DD 64FF30 push dword ptr fs:[eax]
008061E0 648920 mov fs:[eax], esp
*)
end;
procedure TfrmFKCR._PROC_00806491(Sender : TObject);
begin
(*
00806491 50 push eax
00806492 6461 popa
00806494 7465 jz 008064FB
00806496 205946 and [ecx+$46], bl
00806499 5F pop edi
0080649A 4D dec ebp
0080649B 6F outsd
0080649C 6E outsb
0080649D 65795F jns 008064FF
008064A0 43 inc ebx
008064A1 52 push edx
008064A2 2000 and [eax], al
008064A4 FFFF DB $FF, $FF //
008064A6 FFFF DB $FF, $FF //
008064A8 0E push cs
008064A9 0000 add [eax], al
008064AB 0020 add [eax], ah
008064AD 53 push ebx
008064AE 657420 jz 008064D1
008064B1 4F dec edi
008064B2 7264 jb 00806518
008064B4 65724E jb 00806505
008064B7 4F dec edi
008064B8 3D270000FF cmp eax, $FF000027
008064BD FFFF DB $FF, $FF //
008064BF FF07 inc dword ptr [edi]
008064C1 0000 add [eax], al
008064C3 004F72 add [edi+$72], cl
008064C6 6465724E jb 00806518
008064CA 4F dec edi
008064CB 00FF add bh, bh
008064CD FFFF DB $FF, $FF //
008064CF FF01 inc dword ptr [ecx]
008064D1 0000 add [eax], al
008064D3 0027 add [edi], ah
008064D5 0000 add [eax], al
008064D7 00FF add bh, bh
008064D9 FFFF DB $FF, $FF //
008064DB FF09 dec dword ptr [ecx]
008064DD 0000 add [eax], al
008064DF 0020 add [eax], ah
008064E1 2C43 sub al, $43
008064E3 6F outsd
008064E4 6E outsb
008064E5 4E dec esi
008064E6 4F dec edi
008064E7 3D27000000 cmp eax, $00000027
008064EC FFFF DB $FF, $FF //
008064EE FFFF DB $FF, $FF //
008064F0 0D00000020 or eax, $20000000
008064F5 7768 jnbe 0080655F
008064F7 657265 jb 0080655F
008064FA 205946 and [ecx+$46], bl
008064FD 49 dec ecx
008064FE 643D27000000 cmp eax, $00000027
00806504 FFFF DB $FF, $FF //
00806506 FFFF DB $FF, $FF //
00806508 0400 add al, +$00
0080650A 0000 add [eax], al
0080650C 59 pop ecx
0080650D 46 inc esi
0080650E 49 dec ecx
0080650F 640000 add fs:[eax], al
00806512 0000 add [eax], al
00806514 55 push ebp
00806515 8BEC mov ebp, esp
00806517 33C0 xor eax, eax
00806519 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D><<3C>'
|
0080651A 6839658000 push $00806539
***** TRY
|
0080651F 64FF30 push dword ptr fs:[eax]
00806522 648920 mov fs:[eax], esp
00806525 FF05EC3C8900 inc dword ptr [$00893CEC]
0080652B 33C0 xor eax, eax
0080652D 5A pop edx
0080652E 59 pop ecx
0080652F 59 pop ecx
00806530 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
00806533 6840658000 push $00806540
00806538 C3 ret
* Reference to: System.@HandleFinally;
|
00806539 E9B6E5BFFF jmp 00404AF4
0080653E EBF8 jmp 00806538
****** END
|
00806540 5D pop ebp
00806541 C3 ret
00806542 8BC0 mov eax, eax
00806544 832DEC3C890001 sub dword ptr [$00893CEC], +$01
0080654B C3 ret
0080654C 98 cwde
0080654D 65800000 add byte ptr gs:[eax], $00
00806551 0000 add [eax], al
00806553 0000 add [eax], al
00806555 0000 add [eax], al
00806557 008C668000206C add [esi+$6C200080], cl
0080655E 8000B6 add byte ptr [eax], $B6
00806561 668000F9 add byte ptr [eax], $F9
00806565 6A80 push $80
00806567 0000 add [eax], al
*)
end;
procedure TfrmFKCR._PROC_008065B2(Sender : TObject);
begin
(*
008065B2 48 dec eax
008065B3 0050D4 add [eax-$2C], dl
008065B6 42 inc edx
008065B7 0008 add [eax], cl
008065B9 2D4A007CD0 sub eax, $D07C004A
008065BE 42 inc edx
008065BF 00F4 add ah, dh
008065C1 6B4A00D0 imul ecx, [edx+$00], $D0
008065C5 1D4A0030F6 sbb eax, $F630004A
008065CA 48 dec eax
008065CB 004CFB48 add [ebx+edi*8+$48], cl
008065CF 0098FA48000C add [eax+$C0048FA], bl
008065D5 7948 jns 0080661F
008065D7 00ACF04800E829 add [eax+esi*8+$29E80048], ch
008065DE 4A dec edx
008065DF 00E4 add ah, ah
008065E1 ED in eax, dx
008065E2 48 dec eax
008065E3 00547848 add [eax+edi*2+$48], dl
008065E7 005878 add [eax+$78], bl
008065EA 48 dec eax
008065EB 00DC add ah, bl
008065ED 2A4A00 sub cl, byte ptr [edx+$00]
008065F0 3CA9 cmp al, $A9
008065F2 48 dec eax
008065F3 00C0 add al, al
008065F5 834800D0 or dword ptr [eax+$00], -$30
008065F9 7948 jns 00806643
008065FB 004C8548 add [ebp+eax*4+$48], cl
008065FF 00D0 add al, dl
00806601 2C4A sub al, $4A
00806603 009C2B4A008486 add [ebx+ebp+$8684004A], bl
0080660A 48 dec eax
0080660B 00482D add [eax+$2D], cl
0080660E 4A dec edx
0080660F 00C0 add al, al
00806611 A9480038EE test eax, $EE380048
00806616 48 dec eax
00806617 00F4 add ah, dh
00806619 EE out dx, al
0080661A 48 dec eax
0080661B 00F0 add al, dh
0080661D E94800D8EE jmp EF58666A
00806622 48 dec eax
00806623 00D8 add al, bl
00806625 1B4A00 sbb ecx, [edx+$00]
00806628 EC in al, dx
00806629 334A00 xor ecx, [edx+$00]
0080662C 20C4 and ah, al
0080662E 48 dec eax
0080662F 00B0404A0010 add [eax+$10004A40], dh
00806635 44 inc esp
00806636 4A dec edx
00806637 00CC add ah, cl
00806639 42 inc edx
0080663A 4A dec edx
0080663B 00B8C44800BC add [eax+$BC0048C4], bh
00806641 C44800 les ecx, [eax+$00]
00806644 48 dec eax
00806645 45 inc ebp
00806646 4A dec edx
00806647 001CC3 add [ebx+eax*8], bl
0080664A 48 dec eax
0080664B 0018 add [eax], bl
0080664D F0 lock
0080664E 48 dec eax
0080664F 00444C4A add [esp+ecx*2+$4A], al
00806653 000C02 add [edx+eax], cl
00806656 49 dec ecx
00806657 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
0080665E 4A dec edx
0080665F 008C154A003C18 add [ebp+edx+$183C004A], cl
00806666 4A dec edx
00806667 0038 add [eax], bh
00806669 52 push edx
0080666A 4A dec edx
0080666B 005C224A add [edx+$4A], bl
0080666F 00D8 add al, bl
00806671 224A00 and cl, byte ptr [edx+$00]
00806674 7C68 jl 008066DE
00806676 4A dec edx
00806677 00941F4A003C60 add [edi+ebx+$603C004A], dl
0080667E 4A dec edx
0080667F 001447 add [edi+eax*2], dl
00806682 4A dec edx
00806683 0034654A00CC2C add [$2CCC004A], dh
0080668A 4A dec edx
0080668B 000E add [esi], cl
0080668D 0000 add [eax], al
0080668F 0000 add [eax], al
00806691 000400 add [eax+eax], al
00806694 0000 add [eax], al
00806696 2011 and [ecx], dl
00806698 40 inc eax
00806699 000C04 add [esp+eax], cl
0080669C 0000 add [eax], al
0080669E 2011 and [ecx], dl
008066A0 40 inc eax
008066A1 0010 add [eax], dl
008066A3 0400 add al, +$00
008066A5 0020 add [eax], ah
008066A7 114000 adc [eax+$00], eax
008066AA 1404 adc al, $04
008066AC 0000 add [eax], al
008066AE 2011 and [ecx], dl
008066B0 40 inc eax
008066B1 0018 add [eax], bl
008066B3 0400 add al, +$00
008066B5 004500 add [ebp+$00], al
008066B8 D26B80 shr byte ptr [ebx-$80], cl
008066BB 00F8 add al, bh
008066BD 0200 add al, byte ptr [eax]
008066BF 0000 add [eax], al
008066C1 0008 add [eax], cl
008066C3 54 push esp
008066C4 6F outsd
008066C5 6F outsd
008066C6 6C insb
008066C7 42 inc edx
008066C8 61 popa
008066C9 7231 jb 008066FC
008066CB FC cld
008066CC 0200 add al, byte ptr [eax]
008066CE 0001 add [ecx], al
008066D0 0009 add [ecx], cl
008066D2 54 push esp
008066D3 42 inc edx
008066D4 52 push edx
008066D5 61 popa
008066D6 667265 jb 0080673E
008066D9 7368 jnb 00806743
008066DB 0003 add [ebx], al
008066DD 0000 add [eax], al
008066DF 0100 add [eax], eax
008066E1 07 pop es
008066E2 54 push esp
008066E3 42 inc edx
008066E4 43 inc ebx
008066E5 6C insb
008066E6 6F outsd
008066E7 7365 jnb 0080674E
008066E9 0403 add al, +$03
008066EB 0000 add [eax], al
008066ED 0200 add al, byte ptr [eax]
008066EF 0C41 or al, $41
008066F1 44 inc esp
008066F2 4F dec edi
008066F3 51 push ecx
008066F4 7565 jnz 0080675B
008066F6 7279 jb 00806771
008066F8 54 push esp
008066F9 656D insd
008066FB 7008 jo 00806705
008066FD 0300 add eax, [eax]
008066FF 0002 add [edx], al
00806701 000B add [ebx], cl
00806703 41 inc ecx
00806704 44 inc esp
00806705 4F dec edi
00806706 51 push ecx
00806707 7565 jnz 0080676E
00806709 7279 jb 00806784
0080670B 43 inc ebx
0080670C 6D insd
0080670D 640C03 or al, $03
00806710 0000 add [eax], al
00806712 0300 add eax, [eax]
00806714 06 push es
00806715 50 push eax
00806716 61 popa
00806717 6E outsb
00806718 656C insb
0080671A 3110 xor [eax], edx
0080671C 0300 add eax, [eax]
0080671E 0001 add [ecx], al
00806720 000B add [ebx], cl
00806722 54 push esp
00806723 6F outsd
00806724 6F outsd
00806725 6C insb
00806726 42 inc edx
00806727 7574 jnz 0080679D
00806729 746F jz 0080679A
0080672B 6E outsb
0080672C 321403 xor dl, byte ptr [ebx+eax]
0080672F 0000 add [eax], al
00806731 0200 add al, byte ptr [eax]
00806733 0C41 or al, $41
00806735 44 inc esp
00806736 4F dec edi
00806737 51 push ecx
00806738 7565 jnz 0080679F
0080673A 7279 jb 008067B5
0080673C 4D dec ebp
0080673D 61 popa
0080673E 696E1803000001 imul ebp, [esi+$18], $01000003
00806745 000B add [ebx], cl
00806747 54 push esp
00806748 6F outsd
00806749 6F outsd
0080674A 6C insb
0080674B 42 inc edx
0080674C 7574 jnz 008067C2
0080674E 746F jz 008067BF
00806750 6E outsb
00806751 311C03 xor [ebx+eax], ebx
00806754 0000 add [eax], al
00806756 0400 add al, +$00
00806758 03524D add edx, [edx+$4D]
0080675B 3120 xor [eax], esp
0080675D 0300 add eax, [eax]
0080675F 00050009524D add [$4D520900], al
00806765 44 inc esp
00806766 42 inc edx
00806767 5F pop edi
00806768 4D dec ebp
00806769 61 popa
0080676A 696E2403000006 imul ebp, [esi+$24], $06000003
00806771 0006 add [esi], al
00806773 4C dec esp
00806774 61 popa
00806775 62656C bound esp, qword ptr [ebp+$6C]
00806778 3328 xor ebp, [eax]
0080677A 0300 add eax, [eax]
0080677C 0006 add [esi], al
0080677E 0006 add [esi], al
00806780 4C dec esp
00806781 61 popa
00806782 62656C bound esp, qword ptr [ebp+$6C]
00806785 322C03 xor ch, byte ptr [ebx+eax]
00806788 0000 add [eax], al
0080678A 06 push es
0080678B 0006 add [esi], al
0080678D 4C dec esp
0080678E 61 popa
0080678F 62656C bound esp, qword ptr [ebp+$6C]
00806792 363003 xor ss:[ebx], al
00806795 0000 add [eax], al
00806797 07 pop es
00806798 0007 add [edi], al
0080679A 626567 bound esp, qword ptr [ebp+$67]
0080679D 6461 popa
0080679F 7465 jz 00806806
008067A1 3403 xor al, $03
008067A3 0000 add [eax], al
008067A5 07 pop es
008067A6 0007 add [edi], al
008067A8 45 inc ebp
008067A9 6E outsb
008067AA 646461 popa
008067AD 7465 jz 00806814
008067AF 3803 cmp [ebx], al
008067B1 0000 add [eax], al
008067B3 0800 or [eax], al
008067B5 106378 adc [ebx+$78], ah
008067B8 47 inc edi
008067B9 7269 jb 00806824
008067BB 6450 push eax
008067BD 6F outsd
008067BE 7075 jo 00806835
008067C0 704D jo 0080680F
008067C2 656E outsb
008067C4 7532 jnz 008067F8
008067C6 3C03 cmp al, $03
008067C8 0000 add [eax], al
008067CA 0900 or [eax], eax
008067CC 0544535F48 add eax, +$485F5344
008067D1 5A pop edx
008067D2 40 inc eax
008067D3 0300 add eax, [eax]
008067D5 000A add [edx], cl
008067D7 0006 add [esi], al
008067D9 43 inc ebx
008067DA 44 inc esp
008067DB 53 push ebx
008067DC 5F pop edi
008067DD 48 dec eax
008067DE 5A pop edx
008067DF 44 inc esp
008067E0 0300 add eax, [eax]
008067E2 000B add [ebx], cl
008067E4 0007 add [edi], al
008067E6 637847 arpl [eax+$47], di
008067E9 7269 jb 00806854
008067EB 64314803 xor fs:[eax+$03], ecx
008067EF 0000 add [eax], al
008067F1 0C00 or al, $00
008067F3 03545631 add edx, [esi+edx*2+$31]
008067F7 4C dec esp
008067F8 0300 add eax, [eax]
008067FA 000D000F6378 add [$78630F00], cl
00806800 47 inc edi
00806801 7269 jb 0080686C
00806803 6444 inc esp
00806805 42 inc edx
00806806 43 inc ebx
00806807 6F outsd
00806808 6C insb
00806809 756D jnz 00806878
0080680B 6E outsb
0080680C 385003 cmp [eax+$03], dl
0080680F 0000 add [eax], al
00806811 0D00106378 or eax, $78631000
00806816 47 inc edi
00806817 7269 jb 00806882
00806819 6444 inc esp
0080681B 42 inc edx
0080681C 43 inc ebx
0080681D 6F outsd
0080681E 6C insb
0080681F 756D jnz 0080688E
00806821 6E outsb
00806822 3130 xor [eax], esi
00806824 54 push esp
00806825 0300 add eax, [eax]
00806827 000D00106378 add [$78631000], cl
0080682D 47 inc edi
0080682E 7269 jb 00806899
00806830 6444 inc esp
00806832 42 inc edx
00806833 43 inc ebx
00806834 6F outsd
00806835 6C insb
00806836 756D jnz 008068A5
00806838 6E outsb
00806839 3131 xor [ecx], esi
0080683B 58 pop eax
0080683C 0300 add eax, [eax]
0080683E 000E add [esi], cl
00806840 000C63 add [ebx], cl
00806843 7847 js 0080688C
00806845 7269 jb 008068B0
00806847 644C dec esp
00806849 657665 jbe 008068B1
0080684C 6C insb
0080684D 325C0300 xor bl, byte ptr [ebx+eax+$00]
00806851 000D000D5631 add [$31560D00], cl
00806857 46 inc esi
00806858 61 popa
00806859 63746F72 arpl [edi+ebp*2+$72], si
0080685D 794E jns 008068AD
0080685F 61 popa
00806860 6D insd
00806861 6560 pusha
00806863 0300 add eax, [eax]
00806865 000F add [edi], cl
00806867 000B add [ebx], cl
00806869 637853 arpl [eax+$53], di
0080686C 706C jo 008068DA
0080686E 6974746572316403 imul esi, [esp+esi*2+$65], $03643172
00806876 0000 add [eax], al
00806878 1000 adc [eax], al
0080687A 0B4661 or eax, [esi+$61]
0080687D 63746F72 arpl [edi+ebp*2+$72], si
00806881 794E jns 008068D1
00806883 61 popa
00806884 6D insd
00806885 65680300000A push $0A000003
0080688B 000B add [ebx], cl
0080688D 59 pop ecx
0080688E 46 inc esi
0080688F 6F outsd
00806890 7264 jb 008068F6
00806892 65725F jb 008068F4
00806895 53 push ebx
00806896 7562 jnz 008068FA
00806898 6C insb
00806899 0300 add eax, [eax]
0080689B 0009 add [ecx], cl
0080689D 000B add [ebx], cl
0080689F 44 inc esp
008068A0 61 popa
008068A1 7461 jz 00806904
008068A3 53 push ebx
008068A4 6F outsd
008068A5 7572 jnz 00806919
008068A7 636531 arpl [ebp+$31], sp
008068AA 7003 jo 008068AF
008068AC 0000 add [eax], al
008068AE 06 push es
008068AF 0006 add [esi], al
008068B1 4C dec esp
008068B2 61 popa
008068B3 62656C bound esp, qword ptr [ebp+$6C]
008068B6 37 aaa
008068B7 7403 jz 008068BC
008068B9 0000 add [eax], al
008068BB 1100 adc [eax], eax
008068BD 08464B or [esi+$4B], al
008068C0 54 push esp
008068C1 61 popa
008068C2 69746F7578030000 imul esi, [edi+ebp*2+$75], $00000378
008068CA 0D000C5631 or eax, $31560C00
008068CF 52 push edx
008068D0 4D dec ebp
008068D1 42 inc edx
008068D2 53 push ebx
008068D3 51 push ecx
008068D4 4D dec ebp
008068D5 6F outsd
008068D6 6E outsb
008068D7 65797C jns 00806956
008068DA 0300 add eax, [eax]
008068DC 0003 add [ebx], al
008068DE 0006 add [esi], al
008068E0 50 push eax
008068E1 61 popa
008068E2 6E outsb
008068E3 656C insb
008068E5 32800300000B xor al, byte ptr [eax+$B000003]
008068EB 0007 add [edi], al
008068ED 637847 arpl [eax+$47], di
008068F0 7269 jb 0080695B
008068F2 6432840300000C00 xor al, byte ptr fs:[ebx+eax+$C0000]
008068FA 03547632 add edx, [esi+esi*2+$32]
008068FE 8803 mov [ebx], al
00806900 0000 add [eax], al
00806902 0D00097632 or eax, $32760900
00806907 43 inc ebx
00806908 6F outsd
00806909 6C insb
0080690A 756D jnz 00806979
0080690C 6E outsb
0080690D 328C0300000D00 xor cl, byte ptr [ebx+eax+$D0000]
00806914 0D76326661 or eax, $61663276
00806919 63746F72 arpl [edi+ebp*2+$72], si
0080691D 794E jns 0080696D
0080691F 61 popa
00806920 6D insd
00806921 6590 nop
00806923 0300 add eax, [eax]
00806925 000D00087632 add [$32760800], cl
0080692B 59 pop ecx
0080692C 46 inc esi
0080692D 4E dec esi
0080692E 61 popa
0080692F 6D insd
00806930 6594 xchg eax, esp
00806932 0300 add eax, [eax]
00806934 000D000B7632 add [$32760B00], cl
0080693A 43 inc ebx
0080693B 6F outsd
0080693C 6D insd
0080693D 54 push esp
0080693E 61 popa
0080693F 69546F7598030000 imul edx, [edi+ebp*2+$75], $00000398
00806947 0D00097632 or eax, $32760900
0080694C 43 inc ebx
0080694D 6F outsd
0080694E 6C insb
0080694F 756D jnz 008069BE
00806951 6E outsb
00806952 359C030000 xor eax, $0000039C
00806957 0D00087632 or eax, $32760800
0080695C 50 push eax
0080695D 5F pop edi
0080695E 53 push ebx
0080695F 7065 jo 008069C6
00806961 63A00300000D arpl [eax+$D000003], sp
00806967 0008 add [eax], cl
00806969 7632 jbe 0080699D
0080696B 46 inc esi
0080696C 4B dec ebx
0080696D 54 push esp
0080696E 7970 jns 008069E0
00806970 65A4 movsb
00806972 0300 add eax, [eax]
00806974 000D00097632 add [$32760900], cl
0080697A 43 inc ebx
0080697B 6F outsd
0080697C 6C insb
0080697D 756D jnz 008069EC
0080697F 6E outsb
00806980 36A803 test al, $03
00806983 0000 add [eax], al
00806985 0D00097632 or eax, $32760900
0080698A 51 push ecx
0080698B 7479 jz 00806A06
0080698D 55 push ebp
0080698E 6E outsb
0080698F 6974AC0300000D00 imul esi, [esp+ebp*4+$03], $000D0000
00806997 097632 or [esi+$32], esi
0080699A 43 inc ebx
0080699B 6F outsd
0080699C 6C insb
0080699D 756D jnz 00806A0C
0080699F 6E outsb
008069A0 37 aaa
008069A1 B003 mov al, $03
008069A3 0000 add [eax], al
008069A5 0D00097632 or eax, $32760900
008069AA 4B dec ebx
008069AB 50 push eax
008069AC 4D dec ebp
008069AD 6F outsd
008069AE 6E outsb
008069AF 6579B4 jns 00806966
008069B2 0300 add eax, [eax]
008069B4 000D00077632 add [$32760700], cl
008069BA 4D dec ebp
008069BB 6F outsd
008069BC 6E outsb
008069BD 6579B8 jns 00806978
008069C0 0300 add eax, [eax]
008069C2 000D000A7632 add [$32760A00], cl
008069C8 43 inc ebx
008069C9 6F outsd
008069CA 6C insb
008069CB 756D jnz 00806A3A
008069CD 6E outsb
008069CE 3130 xor [eax], esi
008069D0 BC0300000E mov esp, $0E000003
008069D5 000C63 add [ebx], cl
008069D8 7847 js 00806A21
008069DA 7269 jb 00806A45
008069DC 644C dec esp
008069DE 657665 jbe 00806A46
008069E1 6C insb
008069E2 31C0 xor eax, eax
008069E4 0300 add eax, [eax]
008069E6 0003 add [ebx], al
008069E8 0006 add [esi], al
008069EA 50 push eax
008069EB 61 popa
008069EC 6E outsb
008069ED 656C insb
008069EF 33C4 xor eax, esp
008069F1 0300 add eax, [eax]
008069F3 0006 add [esi], al
008069F5 0007 add [edi], al
008069F7 4C dec esp
008069F8 61 popa
008069F9 62656C bound esp, qword ptr [ebp+$6C]
008069FC 3133 xor [ebx], esi
008069FE C803 enter , $03
00806A00 0000 add [eax], al
00806A02 06 push es
00806A03 0007 add [edi], al
00806A05 4C dec esp
00806A06 61 popa
00806A07 62656C bound esp, qword ptr [ebp+$6C]
00806A0A 3134CC xor [esp+ecx*8], esi
00806A0D 0300 add eax, [eax]
00806A0F 0006 add [esi], al
00806A11 0007 add [edi], al
00806A13 4C dec esp
00806A14 61 popa
00806A15 62656C bound esp, qword ptr [ebp+$6C]
00806A18 3135D0030000 xor [$000003D0], esi
00806A1E 06 push es
00806A1F 0007 add [edi], al
00806A21 4C dec esp
00806A22 61 popa
00806A23 62656C bound esp, qword ptr [ebp+$6C]
00806A26 3137 xor [edi], esi
00806A28 D4 aam
00806A29 0300 add eax, [eax]
00806A2B 0006 add [esi], al
00806A2D 0007 add [edi], al
00806A2F 4C dec esp
00806A30 61 popa
00806A31 62656C bound esp, qword ptr [ebp+$6C]
00806A34 3138 xor [eax], edi
00806A36 D803 fadd dword ptr [ebx]
00806A38 0000 add [eax], al
00806A3A 1100 adc [eax], eax
00806A3C 0545646974 add eax, +$74696445
00806A41 33DC xor ebx, esp
00806A43 0300 add eax, [eax]
00806A45 0011 add [ecx], dl
00806A47 000545646974 add [$74696445], al
00806A4D 34E0 xor al, $E0
00806A4F 0300 add eax, [eax]
00806A51 0011 add [ecx], dl
00806A53 000545646974 add [$74696445], al
00806A59 35E4030000 xor eax, $000003E4
00806A5E 1100 adc [eax], eax
00806A60 09436F or [ebx+$6F], eax
00806A63 6D insd
00806A64 54 push esp
00806A65 61 popa
00806A66 69546F75E8030000 imul edx, [edi+ebp*2+$75], $000003E8
00806A6E 1100 adc [eax], eax
00806A70 06 push es
00806A71 59 pop ecx
00806A72 46 inc esi
00806A73 4E dec esi
00806A74 61 popa
00806A75 6D insd
00806A76 65EC in al, dx
00806A78 0300 add eax, [eax]
00806A7A 0006 add [esi], al
00806A7C 0006 add [esi], al
00806A7E 4C dec esp
00806A7F 61 popa
00806A80 62656C bound esp, qword ptr [ebp+$6C]
00806A83 31F0 xor eax, esi
00806A85 0300 add eax, [eax]
00806A87 0011 add [ecx], dl
00806A89 000A add [edx], cl
00806A8B 50 push eax
00806A8C 5F pop edi
00806A8D 43 inc ebx
00806A8E 6F outsd
00806A8F 64654E dec esi
00806A92 61 popa
00806A93 6D insd
00806A94 65F4 hlt
00806A96 0300 add eax, [eax]
00806A98 0006 add [esi], al
00806A9A 0006 add [esi], al
00806A9C 4C dec esp
00806A9D 61 popa
00806A9E 62656C bound esp, qword ptr [ebp+$6C]
00806AA1 34F8 xor al, $F8
00806AA3 0300 add eax, [eax]
00806AA5 0011 add [ecx], dl
00806AA7 0006 add [esi], al
00806AA9 50 push eax
00806AAA 5F pop edi
00806AAB 53 push ebx
00806AAC 7065 jo 00806B13
00806AAE 63FC arpl sp, di
00806AB0 0300 add eax, [eax]
00806AB2 000D000A5631 add [$31560A00], cl
00806AB8 52 push edx
00806AB9 4D dec ebp
00806ABA 42 inc edx
00806ABB 4B dec ebx
00806ABC 50 push eax
00806ABD 57 push edi
00806ABE 53 push ebx
00806ABF 4B dec ebx
00806AC0 000400 add [eax+eax], al
00806AC3 0008 add [eax], cl
00806AC5 0010 add [eax], dl
00806AC7 637847 arpl [eax+$47], di
00806ACA 7269 jb 00806B35
00806ACC 6450 push eax
00806ACE 6F outsd
00806ACF 7075 jo 00806B46
00806AD1 704D jo 00806B20
00806AD3 656E outsb
00806AD5 7531 jnz 00806B08
00806AD7 0404 add al, +$04
00806AD9 0000 add [eax], al
00806ADB 0D000A7632 or eax, $32760A00
00806AE0 46 inc esi
00806AE1 4B dec ebx
00806AE2 54 push esp
00806AE3 61 popa
00806AE4 69746F7508040000 imul esi, [edi+ebp*2+$75], $00000408
00806AEC 0D000A5631 or eax, $31560A00
00806AF1 46 inc esi
00806AF2 4B dec ebx
00806AF3 54 push esp
00806AF4 61 popa
00806AF5 69746F750A001200 imul esi, [edi+ebp*2+$75], $0012000A
00806AFD 1C77 sbb al, $77
00806AFF 80000B add byte ptr [eax], $0B
00806B02 46 inc esi
00806B03 6F outsd
00806B04 726D jb 00806B73
00806B06 44 inc esp
00806B07 657374 jnb 00806B7E
00806B0A 726F jb 00806B7B
00806B0C 7910 jns 00806B1E
00806B0E 002477 add [edi+esi*2], ah
00806B11 800009 add byte ptr [eax], $09
00806B14 46 inc esi
00806B15 6F outsd
00806B16 726D jb 00806B85
00806B18 43 inc ebx
00806B19 6C insb
00806B1A 6F outsd
00806B1B 7365 jnb 00806B82
00806B1D 1300 adc eax, [eax]
00806B1F 287780 sub [edi-$80], dh
00806B22 000C54 add [esp+edx*2], cl
00806B25 42 inc edx
00806B26 43 inc ebx
00806B27 6C insb
00806B28 6F outsd
00806B29 7365 jnb 00806B90
00806B2B 43 inc ebx
00806B2C 6C insb
00806B2D 69636B0F00A477 imul esp, [ebx+$6B], $77A4000F
00806B34 800008 add byte ptr [eax], $08
00806B37 46 inc esi
00806B38 6F outsd
00806B39 726D jb 00806BA8
00806B3B 53 push ebx
00806B3C 686F771500 push $0015776F
00806B41 40 inc eax
00806B42 7980 jns 00806AC4
00806B44 000E add [esi], cl
00806B46 54 push esp
00806B47 42 inc edx
00806B48 52 push edx
00806B49 61 popa
00806B4A 667265 jb 00806BB2
00806B4D 7368 jnb 00806BB7
00806B4F 43 inc ebx
00806B50 6C insb
00806B51 69636B17004879 imul esp, [ebx+$6B], $79480017
00806B58 800010 add byte ptr [eax], $10
00806B5B 54 push esp
00806B5C 6F outsd
00806B5D 6F outsd
00806B5E 6C insb
00806B5F 42 inc edx
00806B60 7574 jnz 00806BD6
00806B62 746F jz 00806BD3
00806B64 6E outsb
00806B65 32436C xor al, byte ptr [ebx+$6C]
00806B68 69636B18007879 imul esp, [ebx+$6B], $79780018
00806B6F 800011 add byte ptr [eax], $11
00806B72 46 inc esi
00806B73 61 popa
00806B74 63746F72 arpl [edi+ebp*2+$72], si
00806B78 794E jns 00806BC8
00806B7A 61 popa
00806B7B 6D insd
00806B7C 6543 inc ebx
00806B7E 68616E6765 push $65676E61
00806B83 17 pop ss
00806B84 008C7980001054 add [ecx+edi*2+$54100080], cl
00806B8B 6F outsd
00806B8C 6F outsd
00806B8D 6C insb
00806B8E 42 inc edx
00806B8F 7574 jnz 00806C05
00806B91 746F jz 00806C02
00806B93 6E outsb
00806B94 31436C xor [ebx+$6C], eax
00806B97 69636B1300D479 imul esp, [ebx+$6B], $79D40013
00806B9E 80000C add byte ptr [eax], $0C
00806BA1 54 push esp
00806BA2 56 push esi
00806BA3 314365 xor [ebx+$65], eax
00806BA6 6C insb
00806BA7 6C insb
00806BA8 43 inc ebx
00806BA9 6C insb
00806BAA 69636B1300507E imul esp, [ebx+$6B], $7E500013
00806BB1 80000C add byte ptr [eax], $0C
00806BB4 59 pop ecx
00806BB5 46 inc esi
00806BB6 4E dec esi
00806BB7 61 popa
00806BB8 6D insd
00806BB9 6543 inc ebx
00806BBB 68616E6765 push $65676E61
00806BC0 11546672 adc [esi+$72], edx
00806BC4 6D insd
00806BC5 59 pop ecx
00806BC6 53 push ebx
00806BC7 53 push ebx
00806BC8 4B dec ebx
00806BC9 4C dec esp
00806BCA 6973745F4B5046 imul esi, [ebx+$74], $46504B5F
00806BD1 4B dec ebx
00806BD2 1200 adc al, byte ptr [eax]
00806BD4 28944500648A45 sub [ebp+eax*2+$458A6400], dl
00806BDB 00B8124D0020 add [eax+$20004D12], bh
00806BE1 42 inc edx
00806BE2 44 inc esp
00806BE3 0064D378 add [ebx+edx*8+$78], ah
00806BE7 00A80A78001C add [eax+$1C00780A], ch
00806BED 5F pop edi
00806BEE 47 inc edi
00806BEF 00E0 add al, ah
00806BF1 A5 movsd
00806BF2 45 inc ebp
00806BF3 005876 add [eax+$76], bl
00806BF6 7C00 jl 00806BF8
00806BF8 087F4B or [edi+$4B], bh
00806BFB 0088996A0000 add [eax+$6A99], cl
00806C01 16 push ss
00806C02 6300 arpl [eax], ax
00806C04 F4 hlt
00806C05 B466 mov ah, $66
00806C07 0034B1 add [ecx+esi*4], dh
00806C0A 6600A40E640050BF add [esi+ecx+$BF500064], ah
00806C12 7B00 jnp 00806C14
00806C14 F4 hlt
00806C15 814700B8674700 add dword ptr [edi+$00], $004767B8
00806C1C 206C8000 and [eax+eax*4+$00], ch
00806C20 07 pop es
00806C21 11546672 adc [esi+$72], edx
00806C25 6D insd
00806C26 59 pop ecx
00806C27 53 push ebx
00806C28 53 push ebx
00806C29 4B dec ebx
00806C2A 4C dec esp
00806C2B 6973745F4B5046 imul esi, [ebx+$74], $46504B5F
00806C32 4B dec ebx
00806C33 98 cwde
00806C34 658000D0 add byte ptr gs:[eax], $D0
00806C38 F2 repne
00806C39 49 dec ecx
00806C3A 005E00 add [esi+$00], bl
00806C3D 0F55 DB $0F, $55 //
00806C3F 5F pop edi
00806C40 59 pop ecx
00806C41 53 push ebx
00806C42 53 push ebx
00806C43 4B dec ebx
00806C44 4C dec esp
00806C45 6973745F4B5046 imul esi, [ebx+$74], $46504B5F
00806C4C 4B dec ebx
00806C4D 0000 add [eax], al
*)
end;
end.
Reference in New Issue View Git Blame Copy Permalink