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

11983 lines
456 KiB
ObjectPascal
Raw Permalink 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_YFCR;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYFCR=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
Label1: TLabel;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
FactoryName: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
ToolButton3: TToolButton;
v2Price: TcxGridDBColumn;
VBZ: TcxGridDBColumn;
VYB: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2PayMent: TcxGridDBColumn;
v2Note: TcxGridDBColumn;
v2C_CodeName: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2ssel: TcxGridDBColumn;
P_CodeName: TEdit;
Label4: TLabel;
Label5: TLabel;
P_spec: TEdit;
Edit1: TEdit;
Label7: TLabel;
Button1: TToolButton;
CheckBox1: TCheckBox;
cxTabControl1: TcxTabControl;
Tchk: TToolButton;
Tnochk: TToolButton;
ToolButton4: TToolButton;
v2OrderNO: TcxGridDBColumn;
v2ComTaiTou: TcxGridDBColumn;
v2Qty: TcxGridDBColumn;
v2PBNote: TcxGridDBColumn;
Label8: TLabel;
OrderNO: TEdit;
Label9: TLabel;
ComTaiTou: TEdit;
YFName: TEdit;
v2P_Color: TcxGridDBColumn;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
v2ChkStatus: TcxGridDBColumn;
TKP: TToolButton;
TCXKP: TToolButton;
v2KPType: TcxGridDBColumn;
v2KPStatus: TcxGridDBColumn;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label14: TLabel;
Label15: TLabel;
KPType: TComboBox;
KPStatusH: TComboBox;
v2chknote: TcxGridDBColumn;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
ConNo: TEdit;
v2ConNo: TcxGridDBColumn;
v2MQty: TcxGridDBColumn;
v2PBPrice: TcxGridDBColumn;
Label16: TLabel;
P_Color: TEdit;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
FFYType: TComboBox;
Label17: TLabel;
FYType: TComboBox;
v2FYType: TcxGridDBColumn;
v2HuiLv: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure TBDelClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure v2Column2PropertiesEditValueChanged(Sender : TObject);
procedure v2PSPropertiesEditValueChanged(Sender : TObject);
procedure v2BatchNoPropertiesEditValueChanged(Sender : TObject);
procedure v2PayMentPropertiesButtonClick(Sender : TObject);
procedure v2T_qtyPropertiesEditValueChanged(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure CheckBox1Click(Sender : TObject);
procedure v2T_PricePropertiesEditValueChanged(Sender : TObject);
procedure cxTabControl1Change(Sender : TObject);
procedure TchkClick(Sender : TObject);
procedure TnochkClick(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure v2OrderNOPropertiesButtonClick(Sender : TObject);
procedure v2ComTaiTouPropertiesButtonClick(Sender : TObject);
procedure v2P_ColorPropertiesButtonClick(Sender : TObject);
procedure v2sselPropertiesChange(Sender : TObject);
procedure Tv2StylesGetContentStyle(Sender : TObject);
procedure TKPClick(Sender : TObject);
procedure TCXKPClick(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure v2KPTypePropertiesEditValueChanged(Sender : TObject);
procedure cxTabControl2Change(Sender : TObject);
procedure ToolButton5Click(Sender : TObject);
procedure ToolButton6Click(Sender : TObject);
procedure v2ConNoPropertiesButtonClick(Sender : TObject);
procedure _PROC_007E1005(Sender : TObject);
procedure _PROC_007E14C4(Sender : TObject);
procedure _PROC_007E1DE5(Sender : TObject);
procedure _PROC_007E2701(Sender : TObject);
procedure _PROC_007E2AF5(Sender : TObject);
procedure _PROC_007E341D(Sender : TObject);
procedure _PROC_007E3819(Sender : TObject);
procedure _PROC_007E408D(Sender : TObject);
procedure _PROC_007E43AA(Sender : TObject);
procedure _PROC_007E43E0(Sender : TObject);
procedure _PROC_007E43ED(Sender : TObject);
procedure _PROC_007E4731(Sender : TObject);
procedure _PROC_007E4AB1(Sender : TObject);
procedure _PROC_007E4D55(Sender : TObject);
procedure _PROC_007E5135(Sender : TObject);
procedure _PROC_007E5465(Sender : TObject);
procedure _PROC_007E5811(Sender : TObject);
procedure _PROC_007E6235(Sender : TObject);
procedure _PROC_007E7239(Sender : TObject);
procedure _PROC_007E75A5(Sender : TObject);
procedure _PROC_007E7979(Sender : TObject);
procedure _PROC_007E82D9(Sender : TObject);
procedure _PROC_007E8CD9(Sender : TObject);
procedure _PROC_007E8E1E(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYFCR: TfrmYFCR;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYFCR.FormDestroy(Sender : TObject);
begin
(*
007E16D8 33C0 xor eax, eax
* Reference to GlobalVar_00893CC8
|
007E16DA A3C83C8900 mov dword ptr [$00893CC8], eax
007E16DF C3 ret
*)
end;
procedure TfrmYFCR.FormClose(Sender : TObject);
begin
(*
007E16E0 C60102 mov byte ptr [ecx], $02
007E16E3 C3 ret
*)
end;
procedure TfrmYFCR.TBCloseClick(Sender : TObject);
begin
(*
007E16E4 53 push ebx
007E16E5 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007E16E7 B910177E00 mov ecx, $007E1710
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E16EC 8B9338030000 mov edx, [ebx+$0338]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>ww'
|
007E16F2 B824177E00 mov eax, $007E1724
|
007E16F7 E8A464FDFF call 007B7BA0
007E16FC 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007E16FE E89548CCFF call 004A5F98
007E1703 5B pop ebx
007E1704 C3 ret
*)
end;
procedure TfrmYFCR.TBDelClick(Sender : TObject);
begin
(*
007E1734 55 push ebp
007E1735 8BEC mov ebp, esp
007E1737 B904000000 mov ecx, $00000004
007E173C 6A00 push $00
007E173E 6A00 push $00
007E1740 49 dec ecx
007E1741 75F9 jnz 007E173C
007E1743 51 push ecx
007E1744 53 push ebx
007E1745 56 push esi
007E1746 57 push edi
007E1747 8945FC mov [ebp-$04], eax
007E174A 33C0 xor eax, eax
007E174C 55 push ebp
* Possible String Reference to: '<27>$1<><31><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E174D 68CB197E00 push $007E19CB
***** TRY
|
007E1752 64FF30 push dword ptr fs:[eax]
007E1755 648920 mov fs:[eax], esp
007E1758 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E175B 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E1761 E85A67CEFF call 004C7EC0
007E1766 84C0 test al, al
007E1768 0F853A020000 jnz 007E19A8
007E176E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.cxTabControl1 : TcxTabControl
|
007E1771 8B80B4030000 mov eax, [eax+$03B4]
* Reference to control ADOTemp : N.A.
|
007E1777 83B83C03000000 cmp dword ptr [eax+$033C], +$00
007E177E 0F8524020000 jnz 007E19A8
007E1784 A0DC197E00 mov al, byte ptr [$007E19DC]
007E1789 50 push eax
007E178A 8D45EC lea eax, [ebp-$14]
007E178D B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E178F E8D075C3FF call 00418D64
007E1794 8D4DEC lea ecx, [ebp-$14]
007E1797 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E179A 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E17A0 BAE8197E00 mov edx, $007E19E8
007E17A5 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E17A7 FF9344020000 call dword ptr [ebx+$0244]
007E17AD 84C0 test al, al
007E17AF 751D jnz 007E17CE
007E17B1 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E17B3 B9F0197E00 mov ecx, $007E19F0
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E17B8 BAF8197E00 mov edx, $007E19F8
*)
end;
procedure TfrmYFCR.FormShow(Sender : TObject);
begin
(*
007E1AC0 53 push ebx
007E1AC1 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007E1AC3 B9441B7E00 mov ecx, $007E1B44
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E1AC8 8B9338030000 mov edx, [ebx+$0338]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>ww'
|
007E1ACE B8581B7E00 mov eax, $007E1B58
|
007E1AD3 E8CC5EFDFF call 007B79A4
* Reference to control TfrmYFCR.ADOQueryTemp : TADOQuery
|
007E1AD8 8B8308030000 mov eax, [ebx+$0308]
|
007E1ADE E8A52EFDFF call 007B4988
007E1AE3 83C4F8 add esp, -$08
007E1AE6 DD1C24 fstp qword ptr [esp]
007E1AE9 9B wait
* Reference to control TfrmYFCR.Enddate : TDateTimePicker
|
007E1AEA 8B8358030000 mov eax, [ebx+$0358]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007E1AF0 E83707C9FF call 0047222C
* Reference to control TfrmYFCR.ADOQueryTemp : TADOQuery
|
007E1AF5 8B8308030000 mov eax, [ebx+$0308]
|
007E1AFB E8882EFDFF call 007B4988
007E1B00 D825681B7E00 fsub dword ptr [$007E1B68]
007E1B06 83C4F8 add esp, -$08
007E1B09 DD1C24 fstp qword ptr [esp]
007E1B0C 9B wait
* Reference to control TfrmYFCR.begdate : TDateTimePicker
|
007E1B0D 8B8354030000 mov eax, [ebx+$0354]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007E1B13 E81407C9FF call 0047222C
007E1B18 33D2 xor edx, edx
* Reference to control TfrmYFCR.TKP : TToolButton
|
007E1B1A 8B8300040000 mov eax, [ebx+$0400]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E1B20 E8EB69CAFF call 00488510
007E1B25 33D2 xor edx, edx
* Reference to control TfrmYFCR.TCXKP : TToolButton
|
007E1B27 8B8304040000 mov eax, [ebx+$0404]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E1B2D E8DE69CAFF call 00488510
007E1B32 8BC3 mov eax, ebx
|
007E1B34 E80FF7FFFF call 007E1248
007E1B39 5B pop ebx
007E1B3A C3 ret
*)
end;
procedure TfrmYFCR.TBRafreshClick(Sender : TObject);
begin
(*
007E1B6C 53 push ebx
007E1B6D 8BD8 mov ebx, eax
* Reference to control TfrmYFCR.ToolBar1 : TToolBar
|
007E1B6F 8B83F8020000 mov eax, [ebx+$02F8]
007E1B75 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
007E1B77 FF92C4000000 call dword ptr [edx+$00C4]
007E1B7D 8BC3 mov eax, ebx
|
007E1B7F E8C4F6FFFF call 007E1248
007E1B84 5B pop ebx
007E1B85 C3 ret
*)
end;
procedure TfrmYFCR.ToolButton2Click(Sender : TObject);
begin
(*
007E1B88 55 push ebp
007E1B89 8BEC mov ebp, esp
007E1B8B 6A00 push $00
007E1B8D 53 push ebx
007E1B8E 8BD8 mov ebx, eax
007E1B90 33C0 xor eax, eax
007E1B92 55 push ebp
* Possible String Reference to: '<27><>.<2E><><EFBFBD><EFBFBD>[Y]<5D>'
|
007E1B93 683C1C7E00 push $007E1C3C
***** TRY
|
007E1B98 64FF30 push dword ptr fs:[eax]
007E1B9B 648920 mov fs:[eax], esp
007E1B9E BA501C7E00 mov edx, $007E1C50
* Reference to control TfrmYFCR.Label12 : TLabel
|
007E1BA3 8B83F4030000 mov eax, [ebx+$03F4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E1BA9 E8726ACAFF call 00488620
007E1BAE BA501C7E00 mov edx, $007E1C50
* Reference to control TfrmYFCR.Label13 : TLabel
|
007E1BB3 8B83F8030000 mov eax, [ebx+$03F8]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E1BB9 E8626ACAFF call 00488620
007E1BBE BA501C7E00 mov edx, $007E1C50
* Reference to control TfrmYFCR.Label19 : TLabel
|
007E1BC3 8B833C040000 mov eax, [ebx+$043C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E1BC9 E8526ACAFF call 00488620
* Reference to control TfrmYFCR.ADOQueryMain : TADOQuery
|
007E1BCE 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
007E1BD4 E83B3ECEFF call 004C5A14
007E1BD9 84C0 test al, al
007E1BDB 7449 jz 007E1C26
007E1BDD 8D45FC lea eax, [ebp-$04]
007E1BE0 50 push eax
007E1BE1 B902000000 mov ecx, $00000002
007E1BE6 BA01000000 mov edx, $00000001
* Reference to control TfrmYFCR.Panel1 : TPanel
|
007E1BEB 8B8310030000 mov eax, [ebx+$0310]
|
007E1BF1 E8BA44FDFF call 007B60B0
007E1BF6 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYFCR.ADOQueryMain : TADOQuery
|
007E1BF9 8B831C030000 mov eax, [ebx+$031C]
|
007E1BFF E8C450FDFF call 007B6CC8
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E1C04 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmYFCR.ADOQueryMain : TADOQuery
|
007E1C0A 8B831C030000 mov eax, [ebx+$031C]
|
007E1C10 E87B52FDFF call 007B6E90
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E1C15 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmYFCR.ADOQueryMain : TADOQuery
|
007E1C1B 8B831C030000 mov eax, [ebx+$031C]
|
007E1C21 E8F253FDFF call 007B7018
007E1C26 33C0 xor eax, eax
007E1C28 5A pop edx
007E1C29 59 pop ecx
007E1C2A 59 pop ecx
007E1C2B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
007E1C2E 68431C7E00 push $007E1C43
007E1C33 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007E1C36 E8E936C2FF call 00405324
007E1C3B C3 ret
* Reference to: System.@HandleFinally;
|
007E1C3C E9B32EC2FF jmp 00404AF4
007E1C41 EBF0 jmp 007E1C33
****** END
|
007E1C43 5B pop ebx
007E1C44 59 pop ecx
007E1C45 5D pop ebp
007E1C46 C3 ret
*)
end;
procedure TfrmYFCR.FactoryNameChange(Sender : TObject);
begin
(*
007E1C54 56 push esi
* Reference to control TfrmYFCR.ToolButton2 : TToolButton
|
007E1C55 8B8014030000 mov eax, [eax+$0314]
007E1C5B 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007E1C5F E8F028C2FF call 00404554
007E1C64 5E pop esi
007E1C65 C3 ret
*)
end;
procedure TfrmYFCR.Button2Click(Sender : TObject);
begin
(*
007E1C68 55 push ebp
007E1C69 8BEC mov ebp, esp
007E1C6B 33C9 xor ecx, ecx
007E1C6D 51 push ecx
007E1C6E 51 push ecx
007E1C6F 51 push ecx
007E1C70 51 push ecx
007E1C71 51 push ecx
007E1C72 53 push ebx
007E1C73 56 push esi
007E1C74 8BD8 mov ebx, eax
007E1C76 33C0 xor eax, eax
007E1C78 55 push ebp
* Possible String Reference to: '<27>z-<2D><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E1C79 68751D7E00 push $007E1D75
***** TRY
|
007E1C7E 64FF30 push dword ptr fs:[eax]
007E1C81 648920 mov fs:[eax], esp
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E1C84 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E1C8A E83162CEFF call 004C7EC0
007E1C8F 84C0 test al, al
007E1C91 0F85C3000000 jnz 007E1D5A
007E1C97 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
007E1C99 B9841D7E00 mov ecx, $007E1D84
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007E1C9E BA8C1D7E00 mov edx, $007E1D8C
*)
end;
procedure TfrmYFCR.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
007E28D0 55 push ebp
007E28D1 8BEC mov ebp, esp
007E28D3 B908000000 mov ecx, $00000008
007E28D8 6A00 push $00
007E28DA 6A00 push $00
007E28DC 49 dec ecx
007E28DD 75F9 jnz 007E28D8
007E28DF 51 push ecx
007E28E0 53 push ebx
007E28E1 56 push esi
007E28E2 8BDA mov ebx, edx
007E28E4 8BF0 mov esi, eax
007E28E6 33C0 xor eax, eax
007E28E8 55 push ebp
007E28E9 68DE2A7E00 push $007E2ADE
***** TRY
|
007E28EE 64FF30 push dword ptr fs:[eax]
007E28F1 648920 mov fs:[eax], esp
007E28F4 8D55FC lea edx, [ebp-$04]
007E28F7 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;
|
007E28F9 E8BECDDAFF call 0058F6BC
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E28FE 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E2904 E8439AE7FF 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;
|
007E2909 E856F2E6FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007E290E 8B4050 mov eax, [eax+$50]
007E2911 8D55F4 lea edx, [ebp-$0C]
007E2914 8B08 mov ecx, [eax]
007E2916 FF5110 call dword ptr [ecx+$10]
007E2919 8B45F4 mov eax, [ebp-$0C]
007E291C 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E291F E8C87FC2FF call 0040A8EC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2924 8B9E64030000 mov ebx, [esi+$0364]
007E292A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E292C E80F5BCEFF call 004C8440
007E2931 8D55E0 lea edx, [ebp-$20]
007E2934 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2937 E8B07FC2FF call 0040A8EC
007E293C 8B55E0 mov edx, [ebp-$20]
007E293F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E2942 E88164C3FF call 00418DC8
007E2947 8D45E4 lea eax, [ebp-$1C]
007E294A 50 push eax
007E294B 8B55F8 mov edx, [ebp-$08]
007E294E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2950 E85F42CEFF call 004C6BB4
007E2955 5A pop edx
007E2956 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E2958 FF91B4000000 call dword ptr [ecx+$00B4]
007E295E 8BC3 mov eax, ebx
007E2960 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007E2962 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E2968 8B9E0C030000 mov ebx, [esi+$030C]
007E296E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E2970 E85F2FCEFF call 004C58D4
007E2975 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E2977 E830B6CFFF call 004DDFAC
007E297C 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E297E FF5244 call dword ptr [edx+$44]
007E2981 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E2983 E824B6CFFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
007E2988 BAF42A7E00 mov edx, $007E2AF4
007E298D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E298F FF5138 call dword ptr [ecx+$38]
007E2992 8D55DC lea edx, [ebp-$24]
007E2995 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2998 E84F7FC2FF call 0040A8EC
007E299D 837DDC00 cmp dword ptr [ebp-$24], +$00
007E29A1 7440 jz 007E29E3
* Possible String Reference to: ' Set '
|
007E29A3 68102B7E00 push $007E2B10
007E29A8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007E29AB 68202B7E00 push $007E2B20
007E29B0 8D55D4 lea edx, [ebp-$2C]
007E29B3 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E29B6 E8317FC2FF call 0040A8EC
007E29BB FF75D4 push dword ptr [ebp-$2C]
007E29BE 682C2B7E00 push $007E2B2C
007E29C3 8D45D8 lea eax, [ebp-$28]
007E29C6 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007E29CB E8E42CC2FF call 004056B4
007E29D0 8B45D8 mov eax, [ebp-$28]
007E29D3 50 push eax
007E29D4 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E29D6 E8D1B5CFFF call 004DDFAC
007E29DB 5A pop edx
007E29DC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E29DE FF5138 call dword ptr [ecx+$38]
007E29E1 EB2B jmp 007E2A0E
007E29E3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E29E5 E8C2B5CFFF call 004DDFAC
007E29EA 50 push eax
* Possible String Reference to: ' Set '
|
007E29EB 68102B7E00 push $007E2B10
007E29F0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
007E29F3 68382B7E00 push $007E2B38
007E29F8 8D45D0 lea eax, [ebp-$30]
007E29FB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E2A00 E8AF2CC2FF call 004056B4
007E2A05 8B55D0 mov edx, [ebp-$30]
007E2A08 58 pop eax
007E2A09 8B08 mov ecx, [eax]
007E2A0B FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007E2A0E 68482B7E00 push $007E2B48
007E2A13 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFCR.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
007E2B9C 55 push ebp
007E2B9D 8BEC mov ebp, esp
007E2B9F B921000000 mov ecx, $00000021
007E2BA4 6A00 push $00
007E2BA6 6A00 push $00
007E2BA8 49 dec ecx
007E2BA9 75F9 jnz 007E2BA4
007E2BAB 51 push ecx
007E2BAC 53 push ebx
007E2BAD 56 push esi
007E2BAE 8BF2 mov esi, edx
007E2BB0 8BD8 mov ebx, eax
007E2BB2 33C0 xor eax, eax
007E2BB4 55 push ebp
007E2BB5 683A337E00 push $007E333A
***** TRY
|
007E2BBA 64FF30 push dword ptr fs:[eax]
007E2BBD 648920 mov fs:[eax], esp
007E2BC0 8D55FC lea edx, [ebp-$04]
007E2BC3 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;
|
007E2BC5 E8F2CADAFF call 0058F6BC
007E2BCA 8D55DC lea edx, [ebp-$24]
007E2BCD 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2BD0 E8177DC2FF call 0040A8EC
007E2BD5 837DDC00 cmp dword ptr [ebp-$24], +$00
007E2BD9 750D jnz 007E2BE8
007E2BDB 8D45FC lea eax, [ebp-$04]
007E2BDE BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2BE3 E8D427C2FF call 004053BC
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E2BE8 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E2BEE E85997E7FF 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;
|
007E2BF3 E86CEFE6FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007E2BF8 8B4050 mov eax, [eax+$50]
007E2BFB 8D55D8 lea edx, [ebp-$28]
007E2BFE 8B08 mov ecx, [eax]
007E2C00 FF5110 call dword ptr [ecx+$10]
007E2C03 8B45D8 mov eax, [ebp-$28]
007E2C06 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C09 E8DE7CC2FF call 0040A8EC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2C0E 8BB364030000 mov esi, [ebx+$0364]
007E2C14 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E2C16 E82558CEFF call 004C8440
007E2C1B 8D55C4 lea edx, [ebp-$3C]
007E2C1E 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C21 E8C67CC2FF call 0040A8EC
007E2C26 8B55C4 mov edx, [ebp-$3C]
007E2C29 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E2C2C E89761C3FF call 00418DC8
007E2C31 8D45C8 lea eax, [ebp-$38]
007E2C34 50 push eax
007E2C35 8B55E0 mov edx, [ebp-$20]
007E2C38 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2C3A E8753FCEFF call 004C6BB4
007E2C3F 5A pop edx
007E2C40 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E2C42 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'HuiLv'
|
007E2C48 BA5C337E00 mov edx, $007E335C
007E2C4D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2C4F E8603FCEFF call 004C6BB4
007E2C54 50 push eax
007E2C55 8D45B4 lea eax, [ebp-$4C]
007E2C58 BA01000000 mov edx, $00000001
007E2C5D B101 mov cl, $01
|
007E2C5F E8105FC3FF call 00418B74
007E2C64 8D55B4 lea edx, [ebp-$4C]
007E2C67 58 pop eax
007E2C68 8B08 mov ecx, [eax]
007E2C6A FF91B4000000 call dword ptr [ecx+$00B4]
007E2C70 8D55B0 lea edx, [ebp-$50]
007E2C73 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C76 E8717CC2FF call 0040A8EC
007E2C7B 8B45B0 mov eax, [ebp-$50]
* Possible String Reference to: 'MaoQty'
|
007E2C7E BA6C337E00 mov edx, $007E336C
* Reference to: System.@LStrCmp;
|
007E2C83 E8B82AC2FF call 00405740
007E2C88 7524 jnz 007E2CAE
007E2C8A 8D55AC lea edx, [ebp-$54]
007E2C8D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C90 E8577CC2FF call 0040A8EC
007E2C95 8B45AC mov eax, [ebp-$54]
007E2C98 50 push eax
* Possible String Reference to: 'Qty'
|
007E2C99 BA7C337E00 mov edx, $007E337C
007E2C9E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2CA0 E80F3FCEFF call 004C6BB4
007E2CA5 5A pop edx
007E2CA6 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DefChanged(TObject)
|
007E2CA8 FF91B0000000 call dword ptr [ecx+$00B0]
007E2CAE 8BC6 mov eax, esi
007E2CB0 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007E2CB2 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR.ADOQueryTemp : TADOQuery
|
007E2CB8 8BB308030000 mov esi, [ebx+$0308]
007E2CBE 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E2CC0 E80F2CCEFF call 004C58D4
007E2CC5 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E2CC7 E8E0B2CFFF call 004DDFAC
007E2CCC 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E2CCE FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
007E2CD1 6888337E00 push $007E3388
* Possible String Reference to: 'YFID'
|
007E2CD6 BAD0337E00 mov edx, $007E33D0
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2CDB 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2CE1 E8CE3ECEFF call 004C6BB4
007E2CE6 8D55A4 lea edx, [ebp-$5C]
007E2CE9 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E2CEB FF5160 call dword ptr [ecx+$60]
007E2CEE FF75A4 push dword ptr [ebp-$5C]
007E2CF1 68E0337E00 push $007E33E0
007E2CF6 8D45A8 lea eax, [ebp-$58]
007E2CF9 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E2CFE E8B129C2FF call 004056B4
007E2D03 8B45A8 mov eax, [ebp-$58]
007E2D06 50 push eax
007E2D07 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E2D09 E89EB2CFFF call 004DDFAC
007E2D0E 5A pop edx
007E2D0F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E2D11 FF5138 call dword ptr [ecx+$38]
007E2D14 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007E2D16 E8AD2BCEFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
007E2D1B BAEC337E00 mov edx, $007E33EC
* Reference to control TfrmYFCR.ADOQueryTemp : TADOQuery
|
007E2D20 8B8308030000 mov eax, [ebx+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2D26 E8893ECEFF call 004C6BB4
007E2D2B 8D55E4 lea edx, [ebp-$1C]
007E2D2E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
007E2D30 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
007E2D33 BA7C337E00 mov edx, $007E337C
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2D38 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2D3E E8713ECEFF call 004C6BB4
007E2D43 8D55A0 lea edx, [ebp-$60]
007E2D46 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E2D48 FF5160 call dword ptr [ecx+$60]
007E2D4B 8B45A0 mov eax, [ebp-$60]
007E2D4E 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D51 E8967BC2FF call 0040A8EC
007E2D56 8D559C lea edx, [ebp-$64]
007E2D59 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D5C E88B7BC2FF call 0040A8EC
007E2D61 837D9C00 cmp dword ptr [ebp-$64], +$00
007E2D65 750D jnz 007E2D74
007E2D67 8D45F8 lea eax, [ebp-$08]
007E2D6A BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2D6F E84826C2FF call 004053BC
* Possible String Reference to: 'Price'
|
007E2D74 BAFC337E00 mov edx, $007E33FC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2D79 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2D7F E8303ECEFF call 004C6BB4
007E2D84 8D5598 lea edx, [ebp-$68]
007E2D87 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E2D89 FF5160 call dword ptr [ecx+$60]
007E2D8C 8B4598 mov eax, [ebp-$68]
007E2D8F 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D92 E8557BC2FF call 0040A8EC
007E2D97 8D5594 lea edx, [ebp-$6C]
007E2D9A 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D9D E84A7BC2FF call 0040A8EC
007E2DA2 837D9400 cmp dword ptr [ebp-$6C], +$00
007E2DA6 750D jnz 007E2DB5
007E2DA8 8D45F4 lea eax, [ebp-$0C]
007E2DAB BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2DB0 E80726C2FF call 004053BC
* Possible String Reference to: 'Qty'
|
007E2DB5 BA7C337E00 mov edx, $007E337C
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2DBA 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2DC0 E8EF3DCEFF call 004C6BB4
007E2DC5 8D5590 lea edx, [ebp-$70]
007E2DC8 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E2DCA FF5160 call dword ptr [ecx+$60]
007E2DCD 8B4590 mov eax, [ebp-$70]
007E2DD0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2DD3 E8147BC2FF call 0040A8EC
007E2DD8 8D558C lea edx, [ebp-$74]
007E2DDB 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2DDE E8097BC2FF call 0040A8EC
007E2DE3 837D8C00 cmp dword ptr [ebp-$74], +$00
007E2DE7 750D jnz 007E2DF6
007E2DE9 8D45F8 lea eax, [ebp-$08]
007E2DEC BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2DF1 E8C625C2FF call 004053BC
* Possible String Reference to: 'Money'
|
007E2DF6 BA0C347E00 mov edx, $007E340C
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2DFB 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2E01 E8AE3DCEFF call 004C6BB4
007E2E06 8D5588 lea edx, [ebp-$78]
007E2E09 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E2E0B FF5160 call dword ptr [ecx+$60]
007E2E0E 8B4588 mov eax, [ebp-$78]
007E2E11 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E14 E8D37AC2FF call 0040A8EC
007E2E19 8D5584 lea edx, [ebp-$7C]
007E2E1C 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E1F E8C87AC2FF call 0040A8EC
007E2E24 837D8400 cmp dword ptr [ebp-$7C], +$00
007E2E28 750D jnz 007E2E37
007E2E2A 8D45F0 lea eax, [ebp-$10]
007E2E2D BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2E32 E88525C2FF call 004053BC
* Possible String Reference to: 'HuiLv'
|
007E2E37 BA5C337E00 mov edx, $007E335C
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2E3C 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2E42 E86D3DCEFF call 004C6BB4
007E2E47 8D5580 lea edx, [ebp-$80]
007E2E4A 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E2E4C FF5160 call dword ptr [ecx+$60]
007E2E4F 8B4580 mov eax, [ebp-$80]
007E2E52 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E55 E8927AC2FF call 0040A8EC
007E2E5A 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]
007E2E60 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E63 E8847AC2FF call 0040A8EC
007E2E68 83BD7CFFFFFF00 cmp dword ptr [ebp+$FFFFFF7C], +$00
007E2E6F 750D jnz 007E2E7E
007E2E71 8D45EC lea eax, [ebp-$14]
007E2E74 BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2E79 E83E25C2FF call 004053BC
007E2E7E 8D9578FFFFFF lea edx, [ebp+$FFFFFF78]
007E2E84 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E87 E8607AC2FF call 0040A8EC
007E2E8C 8B8578FFFFFF mov eax, [ebp+$FFFFFF78]
* Possible String Reference to: 'Money'
|
007E2E92 BA0C347E00 mov edx, $007E340C
* Reference to: System.@LStrCmp;
|
007E2E97 E8A428C2FF call 00405740
007E2E9C 0F84C5000000 jz 007E2F67
007E2EA2 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
007E2EA8 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2EAB E83C7AC2FF call 0040A8EC
007E2EB0 8B8574FFFFFF mov eax, [ebp+$FFFFFF74]
* Possible String Reference to: 'HuiLv'
|
007E2EB6 BA5C337E00 mov edx, $007E335C
* Reference to: System.@LStrCmp;
|
007E2EBB E88028C2FF call 00405740
007E2EC0 7475 jz 007E2F37
007E2EC2 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2EC5 E862A8C2FF call 0040D72C
007E2ECA DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2ED0 9B wait
007E2ED1 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2ED4 E853A8C2FF call 0040D72C
007E2ED9 DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2EDF DEC9 fmulp st(1), st(0)
007E2EE1 DBBD5CFFFFFF fstp tbyte ptr [ebp+$FFFFFF5C]
007E2EE7 9B wait
007E2EE8 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2EEB E83CA8C2FF call 0040D72C
007E2EF0 DBAD5CFFFFFF fld tbyte ptr [ebp+$FFFFFF5C]
007E2EF6 DEC9 fmulp st(1), st(0)
007E2EF8 83C4F4 add esp, -$0C
007E2EFB DB3C24 fstp tbyte ptr [esp]
007E2EFE 9B wait
007E2EFF 8D45E8 lea eax, [ebp-$18]
|
007E2F02 E8A5A6C2FF call 0040D5AC
007E2F07 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F0A E81DA8C2FF call 0040D72C
007E2F0F DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2F15 9B wait
007E2F16 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F19 E80EA8C2FF call 0040D72C
007E2F1E DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2F24 DEC9 fmulp st(1), st(0)
007E2F26 83C4F4 add esp, -$0C
007E2F29 DB3C24 fstp tbyte ptr [esp]
007E2F2C 9B wait
007E2F2D 8D45F0 lea eax, [ebp-$10]
|
007E2F30 E877A6C2FF call 0040D5AC
007E2F35 EB5E jmp 007E2F95
007E2F37 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F3A E8EDA7C2FF call 0040D72C
007E2F3F DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2F45 9B wait
007E2F46 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F49 E8DEA7C2FF call 0040D72C
007E2F4E DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2F54 DEC9 fmulp st(1), st(0)
007E2F56 83C4F4 add esp, -$0C
007E2F59 DB3C24 fstp tbyte ptr [esp]
007E2F5C 9B wait
007E2F5D 8D45E8 lea eax, [ebp-$18]
|
007E2F60 E847A6C2FF call 0040D5AC
007E2F65 EB2E jmp 007E2F95
007E2F67 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F6A E8BDA7C2FF call 0040D72C
007E2F6F DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2F75 9B wait
007E2F76 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F79 E8AEA7C2FF call 0040D72C
007E2F7E DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2F84 DEC9 fmulp st(1), st(0)
007E2F86 83C4F4 add esp, -$0C
007E2F89 DB3C24 fstp tbyte ptr [esp]
007E2F8C 9B wait
007E2F8D 8D45E8 lea eax, [ebp-$18]
|
007E2F90 E817A6C2FF call 0040D5AC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E2F95 8BB364030000 mov esi, [ebx+$0364]
007E2F9B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E2F9D E89E54CEFF call 004C8440
* Possible String Reference to: 'Money'
|
007E2FA2 BA0C347E00 mov edx, $007E340C
007E2FA7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2FA9 E8063CCEFF call 004C6BB4
007E2FAE 50 push eax
007E2FAF 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2FB2 E875A7C2FF call 0040D72C
007E2FB7 8D854CFFFFFF lea eax, [ebp+$FFFFFF4C]
* Reference to: Variants.@VarFromReal;
|
007E2FBD E8CA5DC3FF call 00418D8C
007E2FC2 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
007E2FC8 58 pop eax
007E2FC9 8B08 mov ecx, [eax]
007E2FCB FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
007E2FD1 BAEC337E00 mov edx, $007E33EC
007E2FD6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2FD8 E8D73BCEFF call 004C6BB4
007E2FDD 50 push eax
007E2FDE 8B45E8 mov eax, [ebp-$18]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2FE1 E846A7C2FF call 0040D72C
007E2FE6 8D853CFFFFFF lea eax, [ebp+$FFFFFF3C]
* Reference to: Variants.@VarFromReal;
|
007E2FEC E89B5DC3FF call 00418D8C
007E2FF1 8D953CFFFFFF lea edx, [ebp+$FFFFFF3C]
007E2FF7 58 pop eax
007E2FF8 8B08 mov ecx, [eax]
007E2FFA FF91B4000000 call dword ptr [ecx+$00B4]
007E3000 8BC6 mov eax, esi
007E3002 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007E3004 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E300A 8BB30C030000 mov esi, [ebx+$030C]
007E3010 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E3012 E8BD28CEFF call 004C58D4
007E3017 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E3019 E88EAFCFFF call 004DDFAC
007E301E 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E3020 FF5244 call dword ptr [edx+$44]
007E3023 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E3025 E882AFCFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E302A BA1C347E00 mov edx, $007E341C
007E302F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E3031 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007E3034 6838347E00 push $007E3438
007E3039 FF75E0 push dword ptr [ebp-$20]
007E303C 6848347E00 push $007E3448
007E3041 8D9534FFFFFF lea edx, [ebp+$FFFFFF34]
007E3047 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E304A E89D78C2FF call 0040A8EC
007E304F FFB534FFFFFF push dword ptr [ebp+$FFFFFF34]
007E3055 8D8538FFFFFF lea eax, [ebp+$FFFFFF38]
007E305B BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007E3060 E84F26C2FF call 004056B4
007E3065 8B8538FFFFFF mov eax, [ebp+$FFFFFF38]
007E306B 50 push eax
007E306C 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E306E E839AFCFFF call 004DDFAC
007E3073 5A pop edx
007E3074 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E3076 FF5138 call dword ptr [ecx+$38]
007E3079 8D9530FFFFFF lea edx, [ebp+$FFFFFF30]
007E307F 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E3082 E86578C2FF call 0040A8EC
007E3087 8B8530FFFFFF mov eax, [ebp+$FFFFFF30]
* Possible String Reference to: 'Money'
|
007E308D BA0C347E00 mov edx, $007E340C
* Reference to: System.@LStrCmp;
|
007E3092 E8A926C2FF call 00405740
007E3097 7460 jz 007E30F9
* Possible String Reference to: ',Money=''
|
007E3099 6854347E00 push $007E3454
* Possible String Reference to: 'Money'
|
007E309E BA0C347E00 mov edx, $007E340C
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E30A3 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E30A9 E8063BCEFF call 004C6BB4
007E30AE 8D9524FFFFFF lea edx, [ebp+$FFFFFF24]
007E30B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E30B6 FF5160 call dword ptr [ecx+$60]
007E30B9 8B8524FFFFFF mov eax, [ebp+$FFFFFF24]
007E30BF 8D9528FFFFFF lea edx, [ebp+$FFFFFF28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E30C5 E82278C2FF call 0040A8EC
007E30CA FFB528FFFFFF push dword ptr [ebp+$FFFFFF28]
007E30D0 68E0337E00 push $007E33E0
007E30D5 8D852CFFFFFF lea eax, [ebp+$FFFFFF2C]
007E30DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E30E0 E8CF25C2FF call 004056B4
007E30E5 8B852CFFFFFF mov eax, [ebp+$FFFFFF2C]
007E30EB 50 push eax
007E30EC 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E30EE E8B9AECFFF call 004DDFAC
007E30F3 5A pop edx
007E30F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E30F6 FF5138 call dword ptr [ecx+$38]
007E30F9 8D9520FFFFFF lea edx, [ebp+$FFFFFF20]
007E30FF 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E3102 E8E577C2FF call 0040A8EC
007E3107 8B8520FFFFFF mov eax, [ebp+$FFFFFF20]
* Possible String Reference to: 'MaoQty'
|
007E310D BA6C337E00 mov edx, $007E336C
* Reference to: System.@LStrCmp;
|
007E3112 E82926C2FF call 00405740
007E3117 7527 jnz 007E3140
007E3119 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E311B E88CAECFFF call 004DDFAC
007E3120 50 push eax
007E3121 8D851CFFFFFF lea eax, [ebp+$FFFFFF1C]
007E3127 8B4DF8 mov ecx, [ebp-$08]
* Possible String Reference to: ',Qty='
|
007E312A BA68347E00 mov edx, $007E3468
* Reference to: System.@LStrCat3;
|
007E312F E80C25C2FF call 00405640
007E3134 8B951CFFFFFF mov edx, [ebp+$FFFFFF1C]
007E313A 58 pop eax
007E313B 8B08 mov ecx, [eax]
007E313D FF5138 call dword ptr [ecx+$38]
007E3140 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E3142 E865AECFFF call 004DDFAC
007E3147 50 push eax
007E3148 8D8518FFFFFF lea eax, [ebp+$FFFFFF18]
007E314E 8B4DE8 mov ecx, [ebp-$18]
* Possible String Reference to: ',BBMoney='
|
007E3151 BA78347E00 mov edx, $007E3478
* Reference to: System.@LStrCat3;
|
007E3156 E8E524C2FF call 00405640
007E315B 8B9518FFFFFF mov edx, [ebp+$FFFFFF18]
007E3161 58 pop eax
007E3162 8B08 mov ecx, [eax]
007E3164 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007E3167 688C347E00 push $007E348C
007E316C 8D9510FFFFFF lea edx, [ebp+$FFFFFF10]
*)
end;
procedure TfrmYFCR.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
007E3548 55 push ebp
007E3549 8BEC mov ebp, esp
007E354B B909000000 mov ecx, $00000009
007E3550 6A00 push $00
007E3552 6A00 push $00
007E3554 49 dec ecx
007E3555 75F9 jnz 007E3550
007E3557 51 push ecx
007E3558 53 push ebx
007E3559 56 push esi
007E355A 8BDA mov ebx, edx
007E355C 8BF0 mov esi, eax
007E355E 33C0 xor eax, eax
007E3560 55 push ebp
007E3561 68BD377E00 push $007E37BD
***** TRY
|
007E3566 64FF30 push dword ptr fs:[eax]
007E3569 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
007E356C BAD4377E00 mov edx, $007E37D4
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E3571 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E3577 E83836CEFF call 004C6BB4
007E357C 8D55F0 lea edx, [ebp-$10]
007E357F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E3581 FF5160 call dword ptr [ecx+$60]
007E3584 8B45F0 mov eax, [ebp-$10]
007E3587 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E358A E85D73C2FF call 0040A8EC
007E358F 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E3592 BAE4377E00 mov edx, $007E37E4
* Reference to: System.@LStrCmp;
|
007E3597 E8A421C2FF call 00405740
007E359C 751D jnz 007E35BB
007E359E 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E35A0 B9F0377E00 mov ecx, $007E37F0
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E35A5 BAF8377E00 mov edx, $007E37F8
*)
end;
procedure TfrmYFCR.ToolButton3Click(Sender : TObject);
begin
(*
007E38C0 55 push ebp
007E38C1 8BEC mov ebp, esp
007E38C3 B911000000 mov ecx, $00000011
007E38C8 6A00 push $00
007E38CA 6A00 push $00
007E38CC 49 dec ecx
007E38CD 75F9 jnz 007E38C8
007E38CF 56 push esi
007E38D0 8945FC mov [ebp-$04], eax
007E38D3 33C0 xor eax, eax
007E38D5 55 push ebp
007E38D6 687A3B7E00 push $007E3B7A
***** TRY
|
007E38DB 64FF30 push dword ptr fs:[eax]
007E38DE 648920 mov fs:[eax], esp
007E38E1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.cxTabControl1 : TcxTabControl
|
007E38E4 8B80B4030000 mov eax, [eax+$03B4]
* Reference to control ADOTemp : N.A.
|
007E38EA 83B83C03000000 cmp dword ptr [eax+$033C], +$00
007E38F1 0F851A020000 jnz 007E3B11
007E38F7 33C0 xor eax, eax
007E38F9 55 push ebp
007E38FA 68EF3A7E00 push $007E3AEF
***** TRY
|
007E38FF 64FF30 push dword ptr fs:[eax]
007E3902 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
007E3C3C 55 push ebp
007E3C3D 8BEC mov ebp, esp
007E3C3F 51 push ecx
007E3C40 B90C000000 mov ecx, $0000000C
007E3C45 6A00 push $00
007E3C47 6A00 push $00
007E3C49 49 dec ecx
007E3C4A 75F9 jnz 007E3C45
007E3C4C 51 push ecx
007E3C4D 874DFC xchg [ebp-$04], ecx
007E3C50 53 push ebx
007E3C51 56 push esi
007E3C52 8BF0 mov esi, eax
007E3C54 33C0 xor eax, eax
007E3C56 55 push ebp
007E3C57 68CF3F7E00 push $007E3FCF
***** TRY
|
007E3C5C 64FF30 push dword ptr fs:[eax]
007E3C5F 648920 mov fs:[eax], esp
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E3C62 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'YFType'
|
007E3C68 BAE43F7E00 mov edx, $007E3FE4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E3C6D E8422FCEFF call 004C6BB4
007E3C72 8D55F8 lea edx, [ebp-$08]
007E3C75 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E3C77 FF5160 call dword ptr [ecx+$60]
007E3C7A 8B45F8 mov eax, [ebp-$08]
007E3C7D 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E3C80 E8676CC2FF call 0040A8EC
007E3C85 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E3C88 BAF43F7E00 mov edx, $007E3FF4
* Reference to: System.@LStrCmp;
|
007E3C8D E8AE1AC2FF call 00405740
007E3C92 751D jnz 007E3CB1
007E3C94 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E3C96 B900407E00 mov ecx, $007E4000
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E3C9B BA08407E00 mov edx, $007E4008
*)
end;
procedure TfrmYFCR.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
007E4134 55 push ebp
007E4135 8BEC mov ebp, esp
007E4137 51 push ecx
007E4138 B906000000 mov ecx, $00000006
007E413D 6A00 push $00
007E413F 6A00 push $00
007E4141 49 dec ecx
007E4142 75F9 jnz 007E413D
007E4144 51 push ecx
007E4145 874DFC xchg [ebp-$04], ecx
007E4148 53 push ebx
007E4149 56 push esi
007E414A 8BF0 mov esi, eax
007E414C 33C0 xor eax, eax
007E414E 55 push ebp
007E414F 688D437E00 push $007E438D
***** TRY
|
007E4154 64FF30 push dword ptr fs:[eax]
007E4157 648920 mov fs:[eax], esp
007E415A 33C0 xor eax, eax
007E415C 55 push ebp
007E415D 6863437E00 push $007E4363
***** TRY
|
007E4162 64FF30 push dword ptr fs:[eax]
007E4165 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
007E4490 55 push ebp
007E4491 8BEC mov ebp, esp
007E4493 51 push ecx
007E4494 B906000000 mov ecx, $00000006
007E4499 6A00 push $00
007E449B 6A00 push $00
007E449D 49 dec ecx
007E449E 75F9 jnz 007E4499
007E44A0 51 push ecx
007E44A1 874DFC xchg [ebp-$04], ecx
007E44A4 53 push ebx
007E44A5 56 push esi
007E44A6 8BF0 mov esi, eax
007E44A8 33C0 xor eax, eax
007E44AA 55 push ebp
007E44AB 68E9467E00 push $007E46E9
***** TRY
|
007E44B0 64FF30 push dword ptr fs:[eax]
007E44B3 648920 mov fs:[eax], esp
007E44B6 33C0 xor eax, eax
007E44B8 55 push ebp
007E44B9 68BF467E00 push $007E46BF
***** TRY
|
007E44BE 64FF30 push dword ptr fs:[eax]
007E44C1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR.ToolButton1Click(Sender : TObject);
begin
(*
007E47D4 53 push ebx
007E47D5 8BD8 mov ebx, eax
* Reference to control TfrmYFCR.ADOQueryMain : TADOQuery
|
007E47D7 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E47DD E8DE36CEFF call 004C7EC0
007E47E2 84C0 test al, al
007E47E4 7516 jnz 007E47FC
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
007E47E6 B908487E00 mov ecx, $007E4808
* Reference to control TfrmYFCR.ADOQueryMain : TADOQuery
|
007E47EB 8B931C030000 mov edx, [ebx+$031C]
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E47F1 8B8338030000 mov eax, [ebx+$0338]
|
007E47F7 E8343AFDFF call 007B8230
007E47FC 5B pop ebx
007E47FD C3 ret
*)
end;
procedure TfrmYFCR.v2Column2PropertiesEditValueChanged(Sender : TObject);
begin
(*
007E4814 55 push ebp
007E4815 8BEC mov ebp, esp
007E4817 B909000000 mov ecx, $00000009
007E481C 6A00 push $00
007E481E 6A00 push $00
007E4820 49 dec ecx
007E4821 75F9 jnz 007E481C
007E4823 53 push ebx
007E4824 56 push esi
007E4825 8BDA mov ebx, edx
007E4827 8BF0 mov esi, eax
007E4829 33C0 xor eax, eax
007E482B 55 push ebp
* Possible String Reference to: '<27><>'
|
007E482C 684B4A7E00 push $007E4A4B
***** TRY
|
007E4831 64FF30 push dword ptr fs:[eax]
007E4834 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
007E4837 BA604A7E00 mov edx, $007E4A60
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E483C 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4842 E86D23CEFF call 004C6BB4
007E4847 8D55F0 lea edx, [ebp-$10]
007E484A 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E484C FF5160 call dword ptr [ecx+$60]
007E484F 8B45F0 mov eax, [ebp-$10]
007E4852 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4855 E89260C2FF call 0040A8EC
007E485A 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E485D BA704A7E00 mov edx, $007E4A70
* Reference to: System.@LStrCmp;
|
007E4862 E8D90EC2FF call 00405740
007E4867 751D jnz 007E4886
007E4869 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E486B B97C4A7E00 mov ecx, $007E4A7C
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E4870 BA844A7E00 mov edx, $007E4A84
*)
end;
procedure TfrmYFCR.v2PSPropertiesEditValueChanged(Sender : TObject);
begin
(*
007E4B48 55 push ebp
007E4B49 8BEC mov ebp, esp
007E4B4B B908000000 mov ecx, $00000008
007E4B50 6A00 push $00
007E4B52 6A00 push $00
007E4B54 49 dec ecx
007E4B55 75F9 jnz 007E4B50
007E4B57 53 push ebx
007E4B58 56 push esi
007E4B59 8BDA mov ebx, edx
007E4B5B 8BF0 mov esi, eax
007E4B5D 33C0 xor eax, eax
007E4B5F 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E4B60 68304D7E00 push $007E4D30
***** TRY
|
007E4B65 64FF30 push dword ptr fs:[eax]
007E4B68 648920 mov fs:[eax], esp
007E4B6B 8D55FC lea edx, [ebp-$04]
007E4B6E 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;
|
007E4B70 E847ABDAFF call 0058F6BC
007E4B75 8D55F4 lea edx, [ebp-$0C]
007E4B78 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4B7B E86C5DC2FF call 0040A8EC
007E4B80 837DF400 cmp dword ptr [ebp-$0C], +$00
007E4B84 750D jnz 007E4B93
007E4B86 8D45FC lea eax, [ebp-$04]
007E4B89 BA484D7E00 mov edx, $007E4D48
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E4B8E E82908C2FF call 004053BC
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E4B93 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E4B99 E8AE77E7FF 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;
|
007E4B9E E8C1CFE6FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007E4BA3 8B4050 mov eax, [eax+$50]
007E4BA6 8D55F0 lea edx, [ebp-$10]
007E4BA9 8B08 mov ecx, [eax]
007E4BAB FF5110 call dword ptr [ecx+$10]
007E4BAE 8B45F0 mov eax, [ebp-$10]
007E4BB1 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4BB4 E8335DC2FF call 0040A8EC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E4BB9 8B9E64030000 mov ebx, [esi+$0364]
007E4BBF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E4BC1 E87A38CEFF call 004C8440
007E4BC6 8D55DC lea edx, [ebp-$24]
007E4BC9 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4BCC E81B5DC2FF call 0040A8EC
007E4BD1 8B55DC mov edx, [ebp-$24]
007E4BD4 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E4BD7 E8EC41C3FF call 00418DC8
007E4BDC 8D45E0 lea eax, [ebp-$20]
007E4BDF 50 push eax
007E4BE0 8B55F8 mov edx, [ebp-$08]
007E4BE3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4BE5 E8CA1FCEFF call 004C6BB4
007E4BEA 5A pop edx
007E4BEB 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E4BED FF91B4000000 call dword ptr [ecx+$00B4]
007E4BF3 8BC3 mov eax, ebx
007E4BF5 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007E4BF7 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E4BFD 8B9E0C030000 mov ebx, [esi+$030C]
007E4C03 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E4C05 E8CA0CCEFF call 004C58D4
007E4C0A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4C0C E89B93CFFF call 004DDFAC
007E4C11 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E4C13 FF5244 call dword ptr [edx+$44]
007E4C16 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4C18 E88F93CFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E4C1D BA544D7E00 mov edx, $007E4D54
007E4C22 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E4C24 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007E4C27 68704D7E00 push $007E4D70
007E4C2C FF75F8 push dword ptr [ebp-$08]
007E4C2F 68804D7E00 push $007E4D80
007E4C34 8D55D4 lea edx, [ebp-$2C]
007E4C37 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4C3A E8AD5CC2FF call 0040A8EC
007E4C3F FF75D4 push dword ptr [ebp-$2C]
007E4C42 8D45D8 lea eax, [ebp-$28]
007E4C45 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007E4C4A E8650AC2FF call 004056B4
007E4C4F 8B45D8 mov eax, [ebp-$28]
007E4C52 50 push eax
007E4C53 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4C55 E85293CFFF call 004DDFAC
007E4C5A 5A pop edx
007E4C5B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E4C5D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007E4C60 688C4D7E00 push $007E4D8C
007E4C65 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFCR.v2BatchNoPropertiesEditValueChanged(Sender : TObject);
begin
(*
007E4DEC 55 push ebp
007E4DED 8BEC mov ebp, esp
007E4DEF B90E000000 mov ecx, $0000000E
007E4DF4 6A00 push $00
007E4DF6 6A00 push $00
007E4DF8 49 dec ecx
007E4DF9 75F9 jnz 007E4DF4
007E4DFB 53 push ebx
007E4DFC 56 push esi
007E4DFD 8BDA mov ebx, edx
007E4DFF 8BF0 mov esi, eax
007E4E01 33C0 xor eax, eax
007E4E03 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E4E04 68E5507E00 push $007E50E5
***** TRY
|
007E4E09 64FF30 push dword ptr fs:[eax]
007E4E0C 648920 mov fs:[eax], esp
007E4E0F 8D55FC lea edx, [ebp-$04]
007E4E12 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;
|
007E4E14 E8A3A8DAFF call 0058F6BC
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E4E19 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E4E1F E82875E7FF 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;
|
007E4E24 E83BCDE6FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007E4E29 8B4050 mov eax, [eax+$50]
007E4E2C 8D55F4 lea edx, [ebp-$0C]
007E4E2F 8B08 mov ecx, [eax]
007E4E31 FF5110 call dword ptr [ecx+$10]
007E4E34 8B45F4 mov eax, [ebp-$0C]
007E4E37 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4E3A E8AD5AC2FF call 0040A8EC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E4E3F 8B9E64030000 mov ebx, [esi+$0364]
007E4E45 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E4E47 E8F435CEFF call 004C8440
007E4E4C 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
007E4E4F BAFC507E00 mov edx, $007E50FC
* Reference to: System.@LStrCmp;
|
007E4E54 E8E708C2FF call 00405740
007E4E59 751E jnz 007E4E79
007E4E5B 8D55F0 lea edx, [ebp-$10]
007E4E5E 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4E61 E8865AC2FF call 0040A8EC
007E4E66 837DF000 cmp dword ptr [ebp-$10], +$00
007E4E6A 750D jnz 007E4E79
007E4E6C 8D45FC lea eax, [ebp-$04]
007E4E6F BA0C517E00 mov edx, $007E510C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E4E74 E84305C2FF call 004053BC
007E4E79 8D55DC lea edx, [ebp-$24]
007E4E7C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4E7F E8685AC2FF call 0040A8EC
007E4E84 8B55DC mov edx, [ebp-$24]
007E4E87 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E4E8A E8393FC3FF call 00418DC8
007E4E8F 8D45E0 lea eax, [ebp-$20]
007E4E92 50 push eax
007E4E93 8B55F8 mov edx, [ebp-$08]
007E4E96 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4E98 E8171DCEFF call 004C6BB4
007E4E9D 5A pop edx
007E4E9E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E4EA0 FF91B4000000 call dword ptr [ecx+$00B4]
007E4EA6 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
007E4EA9 BAFC507E00 mov edx, $007E50FC
* Reference to: System.@LStrCmp;
|
007E4EAE E88D08C2FF call 00405740
007E4EB3 7553 jnz 007E4F08
* Possible String Reference to: 'GCPrice'
|
007E4EB5 BAFC507E00 mov edx, $007E50FC
007E4EBA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4EBC E8F31CCEFF call 004C6BB4
007E4EC1 8D55CC lea edx, [ebp-$34]
007E4EC4 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_64
|
007E4EC6 FF5164 call dword ptr [ecx+$64]
007E4EC9 8D45CC lea eax, [ebp-$34]
007E4ECC 50 push eax
* Possible String Reference to: 'Qty'
|
007E4ECD BA18517E00 mov edx, $007E5118
007E4ED2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4ED4 E8DB1CCEFF call 004C6BB4
007E4ED9 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
007E4EDB FF5254 call dword ptr [edx+$54]
007E4EDE 8D45BC lea eax, [ebp-$44]
* Reference to: Variants.@VarFromReal;
|
007E4EE1 E8A63EC3FF call 00418D8C
007E4EE6 8D55BC lea edx, [ebp-$44]
007E4EE9 58 pop eax
* Reference to: System.@Initialize(Pointer;Pointer);
| or: System.@Finalize(Pointer;Pointer);
| or: System.@AddRef;
| or: Variants.@VarAdd(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarSub(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarMul(TVarData;TVarData;TVarData;TVarData);
|
007E4EEA E89184C3FF call 0041D380
007E4EEF 8D45CC lea eax, [ebp-$34]
007E4EF2 50 push eax
* Possible String Reference to: 'GCMoney'
|
007E4EF3 BA24517E00 mov edx, $007E5124
007E4EF8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4EFA E8B51CCEFF call 004C6BB4
007E4EFF 5A pop edx
007E4F00 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E4F02 FF91B4000000 call dword ptr [ecx+$00B4]
007E4F08 8BC3 mov eax, ebx
007E4F0A 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007E4F0C FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E4F12 8B9E0C030000 mov ebx, [esi+$030C]
007E4F18 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E4F1A E8B509CEFF call 004C58D4
007E4F1F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4F21 E88690CFFF call 004DDFAC
007E4F26 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E4F28 FF5244 call dword ptr [edx+$44]
007E4F2B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4F2D E87A90CFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E4F32 BA34517E00 mov edx, $007E5134
007E4F37 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E4F39 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007E4F3C 6850517E00 push $007E5150
007E4F41 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007E4F44 6860517E00 push $007E5160
007E4F49 8D55B4 lea edx, [ebp-$4C]
007E4F4C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4F4F E89859C2FF call 0040A8EC
007E4F54 FF75B4 push dword ptr [ebp-$4C]
007E4F57 686C517E00 push $007E516C
007E4F5C 8D45B8 lea eax, [ebp-$48]
007E4F5F BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007E4F64 E84B07C2FF call 004056B4
007E4F69 8B45B8 mov eax, [ebp-$48]
007E4F6C 50 push eax
007E4F6D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4F6F E83890CFFF call 004DDFAC
007E4F74 5A pop edx
007E4F75 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E4F77 FF5138 call dword ptr [ecx+$38]
007E4F7A 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
007E4F7D BAFC507E00 mov edx, $007E50FC
* Reference to: System.@LStrCmp;
|
007E4F82 E8B907C2FF call 00405740
007E4F87 754E jnz 007E4FD7
* Possible String Reference to: ',GCMoney=''
|
007E4F89 6878517E00 push $007E5178
* Possible String Reference to: 'GCMoney'
|
007E4F8E BA24517E00 mov edx, $007E5124
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E4F93 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4F99 E8161CCEFF call 004C6BB4
007E4F9E 8D55A8 lea edx, [ebp-$58]
007E4FA1 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E4FA3 FF5160 call dword ptr [ecx+$60]
007E4FA6 8B45A8 mov eax, [ebp-$58]
007E4FA9 8D55AC lea edx, [ebp-$54]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4FAC E83B59C2FF call 0040A8EC
007E4FB1 FF75AC push dword ptr [ebp-$54]
007E4FB4 686C517E00 push $007E516C
007E4FB9 8D45B0 lea eax, [ebp-$50]
007E4FBC BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E4FC1 E8EE06C2FF call 004056B4
007E4FC6 8B45B0 mov eax, [ebp-$50]
007E4FC9 50 push eax
007E4FCA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E4FCC E8DB8FCFFF call 004DDFAC
007E4FD1 5A pop edx
007E4FD2 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E4FD4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'GCMoney'
|
007E4FD7 BA24517E00 mov edx, $007E5124
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E4FDC 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4FE2 E8CD1BCEFF call 004C6BB4
007E4FE7 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
007E4FE9 FF5254 call dword ptr [edx+$54]
007E4FEC D81D84517E00 fcomp dword ptr [$007E5184]
007E4FF2 DFE0 fstsw ax
007E4FF4 9E sahf
007E4FF5 744E jz 007E5045
* Possible String Reference to: ',BBMoney=''
|
007E4FF7 6890517E00 push $007E5190
* Possible String Reference to: 'GCMoney'
|
007E4FFC BA24517E00 mov edx, $007E5124
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E5001 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5007 E8A81BCEFF call 004C6BB4
007E500C 8D559C lea edx, [ebp-$64]
007E500F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E5011 FF5160 call dword ptr [ecx+$60]
007E5014 8B459C mov eax, [ebp-$64]
007E5017 8D55A0 lea edx, [ebp-$60]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E501A E8CD58C2FF call 0040A8EC
007E501F FF75A0 push dword ptr [ebp-$60]
007E5022 686C517E00 push $007E516C
007E5027 8D45A4 lea eax, [ebp-$5C]
007E502A BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E502F E88006C2FF call 004056B4
007E5034 8B45A4 mov eax, [ebp-$5C]
007E5037 50 push eax
007E5038 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E503A E86D8FCFFF call 004DDFAC
007E503F 5A pop edx
007E5040 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E5042 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
007E5045 68A4517E00 push $007E51A4
* Possible String Reference to: 'YFId'
|
007E504A BABC517E00 mov edx, $007E51BC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E504F 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5055 E85A1BCEFF call 004C6BB4
007E505A 8D5590 lea edx, [ebp-$70]
007E505D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E505F FF5160 call dword ptr [ecx+$60]
007E5062 8B4590 mov eax, [ebp-$70]
007E5065 8D5594 lea edx, [ebp-$6C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5068 E87F58C2FF call 0040A8EC
007E506D FF7594 push dword ptr [ebp-$6C]
007E5070 686C517E00 push $007E516C
007E5075 8D4598 lea eax, [ebp-$68]
007E5078 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E507D E83206C2FF call 004056B4
007E5082 8B4598 mov eax, [ebp-$68]
007E5085 50 push eax
007E5086 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E5088 E81F8FCFFF call 004DDFAC
007E508D 5A pop edx
007E508E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E5090 FF5138 call dword ptr [ecx+$38]
007E5093 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007E5095 E83A8ECFFF call 004DDED4
007E509A 33C0 xor eax, eax
007E509C 5A pop edx
007E509D 59 pop ecx
007E509E 59 pop ecx
007E509F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007E50A2 68EC507E00 push $007E50EC
007E50A7 8D4590 lea eax, [ebp-$70]
007E50AA BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E50AF E89402C2FF call 00405348
007E50B4 8D45BC lea eax, [ebp-$44]
* Reference to object Variant
|
007E50B7 8B153C114000 mov edx, [$0040113C]
007E50BD B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007E50C2 E84D10C2FF call 00406114
007E50C7 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007E50CA E85502C2FF call 00405324
007E50CF 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007E50D2 E89DF5C2FF call 00414674
007E50D7 8D45F0 lea eax, [ebp-$10]
007E50DA BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E50DF E86402C2FF call 00405348
007E50E4 C3 ret
* Reference to: System.@HandleFinally;
|
007E50E5 E90AFAC1FF jmp 00404AF4
007E50EA EBBB jmp 007E50A7
****** END
|
007E50EC 5E pop esi
007E50ED 5B pop ebx
007E50EE 8BE5 mov esp, ebp
007E50F0 5D pop ebp
007E50F1 C3 ret
*)
end;
procedure TfrmYFCR.v2PayMentPropertiesButtonClick(Sender : TObject);
begin
(*
007E51C4 55 push ebp
007E51C5 8BEC mov ebp, esp
007E51C7 51 push ecx
007E51C8 B906000000 mov ecx, $00000006
007E51CD 6A00 push $00
007E51CF 6A00 push $00
007E51D1 49 dec ecx
007E51D2 75F9 jnz 007E51CD
007E51D4 51 push ecx
007E51D5 874DFC xchg [ebp-$04], ecx
007E51D8 53 push ebx
007E51D9 56 push esi
007E51DA 8BF0 mov esi, eax
007E51DC 33C0 xor eax, eax
007E51DE 55 push ebp
007E51DF 681B547E00 push $007E541B
***** TRY
|
007E51E4 64FF30 push dword ptr fs:[eax]
007E51E7 648920 mov fs:[eax], esp
007E51EA 33C0 xor eax, eax
007E51EC 55 push ebp
007E51ED 68F1537E00 push $007E53F1
***** TRY
|
007E51F2 64FF30 push dword ptr fs:[eax]
007E51F5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR.v2T_qtyPropertiesEditValueChanged(Sender : TObject);
begin
(*
007E54F8 55 push ebp
007E54F9 8BEC mov ebp, esp
007E54FB B910000000 mov ecx, $00000010
007E5500 6A00 push $00
007E5502 6A00 push $00
007E5504 49 dec ecx
007E5505 75F9 jnz 007E5500
007E5507 51 push ecx
007E5508 53 push ebx
007E5509 56 push esi
007E550A 8BDA mov ebx, edx
007E550C 8BF0 mov esi, eax
007E550E 33C0 xor eax, eax
007E5510 55 push ebp
007E5511 689F577E00 push $007E579F
***** TRY
|
007E5516 64FF30 push dword ptr fs:[eax]
007E5519 648920 mov fs:[eax], esp
007E551C 8D55FC lea edx, [ebp-$04]
007E551F 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;
|
007E5521 E896A1DAFF call 0058F6BC
007E5526 8D55F0 lea edx, [ebp-$10]
007E5529 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E552C E8BB53C2FF call 0040A8EC
007E5531 837DF000 cmp dword ptr [ebp-$10], +$00
007E5535 750D jnz 007E5544
007E5537 8D45FC lea eax, [ebp-$04]
007E553A BAB4577E00 mov edx, $007E57B4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E553F E878FEC1FF call 004053BC
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E5544 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E554A E8FD6DE7FF 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;
|
007E554F E810C6E6FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007E5554 8B4050 mov eax, [eax+$50]
007E5557 8D55EC lea edx, [ebp-$14]
007E555A 8B08 mov ecx, [eax]
007E555C FF5110 call dword ptr [ecx+$10]
007E555F 8B45EC mov eax, [ebp-$14]
007E5562 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5565 E88253C2FF call 0040A8EC
007E556A 8D45F4 lea eax, [ebp-$0C]
007E556D 50 push eax
* Possible String Reference to: 'T_Price'
|
007E556E BAC0577E00 mov edx, $007E57C0
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E5573 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5579 E83616CEFF call 004C6BB4
007E557E 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
007E5580 FF5254 call dword ptr [edx+$54]
007E5583 DD5DDC fstp qword ptr [ebp-$24]
007E5586 9B wait
007E5587 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E558A E89D81C2FF call 0040D72C
007E558F DC4DDC fmul qword ptr [ebp-$24]
007E5592 DB7DD0 fstp tbyte ptr [ebp-$30]
007E5595 9B wait
007E5596 8D45D0 lea eax, [ebp-$30]
007E5599 8945E4 mov [ebp-$1C], eax
007E559C C645E803 mov byte ptr [ebp-$18], $03
007E55A0 8D55E4 lea edx, [ebp-$1C]
007E55A3 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
007E55A5 B8D0577E00 mov eax, $007E57D0
|
007E55AA E8D575C2FF call 0040CB84
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E55AF 8B9E64030000 mov ebx, [esi+$0364]
007E55B5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E55B7 E8842ECEFF call 004C8440
007E55BC 8D55BC lea edx, [ebp-$44]
007E55BF 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E55C2 E82553C2FF call 0040A8EC
007E55C7 8B55BC mov edx, [ebp-$44]
007E55CA 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E55CD E8F637C3FF call 00418DC8
007E55D2 8D45C0 lea eax, [ebp-$40]
007E55D5 50 push eax
007E55D6 8B55F8 mov edx, [ebp-$08]
007E55D9 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E55DB E8D415CEFF call 004C6BB4
007E55E0 5A pop edx
007E55E1 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E55E3 FF91B4000000 call dword ptr [ecx+$00B4]
007E55E9 8D55A8 lea edx, [ebp-$58]
007E55EC 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E55EF E8F852C2FF call 0040A8EC
007E55F4 8B55A8 mov edx, [ebp-$58]
007E55F7 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E55FA E8C937C3FF call 00418DC8
007E55FF 8D45AC lea eax, [ebp-$54]
007E5602 50 push eax
* Possible String Reference to: 'T_Money'
|
007E5603 BAE0577E00 mov edx, $007E57E0
007E5608 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E560A E8A515CEFF call 004C6BB4
007E560F 5A pop edx
007E5610 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E5612 FF91B4000000 call dword ptr [ecx+$00B4]
007E5618 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmYFCR.Button1Click(Sender : TObject);
begin
(*
007E5888 55 push ebp
007E5889 8BEC mov ebp, esp
007E588B B910000000 mov ecx, $00000010
007E5890 6A00 push $00
007E5892 6A00 push $00
007E5894 49 dec ecx
007E5895 75F9 jnz 007E5890
007E5897 51 push ecx
007E5898 53 push ebx
007E5899 56 push esi
007E589A 57 push edi
007E589B 8945FC mov [ebp-$04], eax
007E589E 33C0 xor eax, eax
007E58A0 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E58A1 68195C7E00 push $007E5C19
***** TRY
|
007E58A6 64FF30 push dword ptr fs:[eax]
007E58A9 648920 mov fs:[eax], esp
007E58AC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E58AF 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E58B5 E80626CEFF call 004C7EC0
007E58BA 84C0 test al, al
007E58BC 0F85F1020000 jnz 007E5BB3
007E58C2 A0285C7E00 mov al, byte ptr [$007E5C28]
007E58C7 50 push eax
007E58C8 8D45EC lea eax, [ebp-$14]
007E58CB B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E58CD E89234C3FF call 00418D64
007E58D2 8D4DEC lea ecx, [ebp-$14]
007E58D5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E58D8 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E58DE BA345C7E00 mov edx, $007E5C34
007E58E3 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E58E5 FF9344020000 call dword ptr [ebx+$0244]
007E58EB 84C0 test al, al
007E58ED 751D jnz 007E590C
007E58EF 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E58F1 B93C5C7E00 mov ecx, $007E5C3C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E58F6 BA445C7E00 mov edx, $007E5C44
*)
end;
procedure TfrmYFCR.CheckBox1Click(Sender : TObject);
begin
(*
007E5D04 55 push ebp
007E5D05 8BEC mov ebp, esp
007E5D07 B905000000 mov ecx, $00000005
007E5D0C 6A00 push $00
007E5D0E 6A00 push $00
007E5D10 49 dec ecx
007E5D11 75F9 jnz 007E5D0C
007E5D13 53 push ebx
007E5D14 56 push esi
007E5D15 57 push edi
007E5D16 8BF0 mov esi, eax
007E5D18 33C0 xor eax, eax
007E5D1A 55 push ebp
007E5D1B 68D05E7E00 push $007E5ED0
***** TRY
|
007E5D20 64FF30 push dword ptr fs:[eax]
007E5D23 648920 mov fs:[eax], esp
007E5D26 BAE85E7E00 mov edx, $007E5EE8
* Reference to control TfrmYFCR.Label12 : TLabel
|
007E5D2B 8B86F4030000 mov eax, [esi+$03F4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E5D31 E8EA28CAFF call 00488620
007E5D36 BAE85E7E00 mov edx, $007E5EE8
* Reference to control TfrmYFCR.Label13 : TLabel
|
007E5D3B 8B86F8030000 mov eax, [esi+$03F8]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E5D41 E8DA28CAFF call 00488620
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E5D46 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E5D4C E86F21CEFF call 004C7EC0
007E5D51 84C0 test al, al
007E5D53 0F8541010000 jnz 007E5E9A
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E5D59 8B9E64030000 mov ebx, [esi+$0364]
007E5D5F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007E5D61 E8EE17CEFF call 004C7554
007E5D66 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
007E5D68 E8C322CEFF call 004C8030
007E5D6D E90D010000 jmp 007E5E7F
007E5D72 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E5D74 E8C726CEFF call 004C8440
* Reference to control TfrmYFCR.CheckBox1 : TCheckBox
|
007E5D79 8B86B0030000 mov eax, [esi+$03B0]
007E5D7F 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007E5D81 FF92C8000000 call dword ptr [edx+$00C8]
007E5D87 8BD0 mov edx, eax
007E5D89 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E5D8C E8D32FC3FF call 00418D64
007E5D91 8D45F0 lea eax, [ebp-$10]
007E5D94 50 push eax
* Possible String Reference to: 'ssel'
|
007E5D95 BAF45E7E00 mov edx, $007E5EF4
007E5D9A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5D9C E8130ECEFF call 004C6BB4
007E5DA1 5A pop edx
007E5DA2 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E5DA4 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmYFCR.CheckBox1 : TCheckBox
|
007E5DAA 8B86B0030000 mov eax, [esi+$03B0]
007E5DB0 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007E5DB2 FF92C8000000 call dword ptr [edx+$00C8]
007E5DB8 3C01 cmp al, $01
007E5DBA 0F85AE000000 jnz 007E5E6E
* Possible String Reference to: 'Qty'
|
007E5DC0 BA045F7E00 mov edx, $007E5F04
007E5DC5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5DC7 E8E80DCEFF call 004C6BB4
007E5DCC 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
007E5DCE FF524C call dword ptr [edx+$4C]
007E5DD1 DF7DE4 fistp qword ptr [ebp-$1C]
007E5DD4 9B wait
007E5DD5 8D55E0 lea edx, [ebp-$20]
* Reference to control TfrmYFCR.Label12 : TLabel
|
007E5DD8 8BBEF4030000 mov edi, [esi+$03F4]
007E5DDE 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007E5DE0 E80B28CAFF call 004885F0
007E5DE5 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E5DE8 E83F79C2FF call 0040D72C
007E5DED D80D085F7E00 fmul dword ptr [$007E5F08]
007E5DF3 DF6DE4 fild qword ptr [ebp-$1C]
007E5DF6 DEC1 faddp st(1), st(0)
007E5DF8 D835085F7E00 fdiv dword ptr [$007E5F08]
007E5DFE 83C4F4 add esp, -$0C
007E5E01 DB3C24 fstp tbyte ptr [esp]
007E5E04 9B wait
007E5E05 8D45EC lea eax, [ebp-$14]
|
007E5E08 E89F77C2FF call 0040D5AC
007E5E0D 8B55EC mov edx, [ebp-$14]
007E5E10 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E5E12 E80928CAFF call 00488620
* Possible String Reference to: 'Money'
|
007E5E17 BA145F7E00 mov edx, $007E5F14
007E5E1C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5E1E E8910DCEFF call 004C6BB4
007E5E23 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
007E5E25 FF524C call dword ptr [edx+$4C]
007E5E28 DF7DE4 fistp qword ptr [ebp-$1C]
007E5E2B 9B wait
007E5E2C 8D55D8 lea edx, [ebp-$28]
* Reference to control TfrmYFCR.Label13 : TLabel
|
007E5E2F 8BBEF8030000 mov edi, [esi+$03F8]
007E5E35 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007E5E37 E8B427CAFF call 004885F0
007E5E3C 8B45D8 mov eax, [ebp-$28]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E5E3F E8E878C2FF call 0040D72C
007E5E44 D80D085F7E00 fmul dword ptr [$007E5F08]
007E5E4A DF6DE4 fild qword ptr [ebp-$1C]
007E5E4D DEC1 faddp st(1), st(0)
007E5E4F D835085F7E00 fdiv dword ptr [$007E5F08]
007E5E55 83C4F4 add esp, -$0C
007E5E58 DB3C24 fstp tbyte ptr [esp]
007E5E5B 9B wait
007E5E5C 8D45DC lea eax, [ebp-$24]
|
007E5E5F E84877C2FF call 0040D5AC
007E5E64 8B55DC mov edx, [ebp-$24]
007E5E67 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E5E69 E8B227CAFF call 00488620
007E5E6E 8BC3 mov eax, ebx
007E5E70 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007E5E72 FF924C020000 call dword ptr [edx+$024C]
007E5E78 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
007E5E7A E8CD24CEFF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
007E5E7F 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
007E5E86 0F84E6FEFFFF jz 007E5D72
007E5E8C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
007E5E8E E89D21CEFF call 004C8030
007E5E93 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007E5E95 E8DA16CEFF call 004C7574
007E5E9A 33C0 xor eax, eax
007E5E9C 5A pop edx
007E5E9D 59 pop ecx
007E5E9E 59 pop ecx
007E5E9F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
007E5EA2 68D75E7E00 push $007E5ED7
007E5EA7 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
007E5EAA E875F4C1FF call 00405324
007E5EAF 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007E5EB2 E86DF4C1FF call 00405324
007E5EB7 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
007E5EBA E865F4C1FF call 00405324
007E5EBF 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
007E5EC2 E85DF4C1FF call 00405324
007E5EC7 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007E5ECA E8A5E7C2FF call 00414674
007E5ECF C3 ret
* Reference to: System.@HandleFinally;
|
007E5ED0 E91FECC1FF jmp 00404AF4
007E5ED5 EBD0 jmp 007E5EA7
****** END
|
007E5ED7 5F pop edi
007E5ED8 5E pop esi
007E5ED9 5B pop ebx
007E5EDA 8BE5 mov esp, ebp
007E5EDC 5D pop ebp
007E5EDD C3 ret
*)
end;
procedure TfrmYFCR.v2T_PricePropertiesEditValueChanged(Sender : TObject);
begin
(*
007E5F1C 55 push ebp
007E5F1D 8BEC mov ebp, esp
007E5F1F B910000000 mov ecx, $00000010
007E5F24 6A00 push $00
007E5F26 6A00 push $00
007E5F28 49 dec ecx
007E5F29 75F9 jnz 007E5F24
007E5F2B 51 push ecx
007E5F2C 53 push ebx
007E5F2D 56 push esi
007E5F2E 8BDA mov ebx, edx
007E5F30 8BF0 mov esi, eax
007E5F32 33C0 xor eax, eax
007E5F34 55 push ebp
007E5F35 68C3617E00 push $007E61C3
***** TRY
|
007E5F3A 64FF30 push dword ptr fs:[eax]
007E5F3D 648920 mov fs:[eax], esp
007E5F40 8D55FC lea edx, [ebp-$04]
007E5F43 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;
|
007E5F45 E87297DAFF call 0058F6BC
007E5F4A 8D55F0 lea edx, [ebp-$10]
007E5F4D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5F50 E89749C2FF call 0040A8EC
007E5F55 837DF000 cmp dword ptr [ebp-$10], +$00
007E5F59 750D jnz 007E5F68
007E5F5B 8D45FC lea eax, [ebp-$04]
007E5F5E BAD8617E00 mov edx, $007E61D8
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E5F63 E854F4C1FF call 004053BC
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E5F68 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E5F6E E8D963E7FF 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;
|
007E5F73 E8ECBBE6FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
007E5F78 8B4050 mov eax, [eax+$50]
007E5F7B 8D55EC lea edx, [ebp-$14]
007E5F7E 8B08 mov ecx, [eax]
007E5F80 FF5110 call dword ptr [ecx+$10]
007E5F83 8B45EC mov eax, [ebp-$14]
007E5F86 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5F89 E85E49C2FF call 0040A8EC
007E5F8E 8D45F4 lea eax, [ebp-$0C]
007E5F91 50 push eax
* Possible String Reference to: 'T_Qty'
|
007E5F92 BAE4617E00 mov edx, $007E61E4
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E5F97 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5F9D E8120CCEFF call 004C6BB4
007E5FA2 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
007E5FA4 FF5254 call dword ptr [edx+$54]
007E5FA7 DD5DDC fstp qword ptr [ebp-$24]
007E5FAA 9B wait
007E5FAB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E5FAE E87977C2FF call 0040D72C
007E5FB3 DC4DDC fmul qword ptr [ebp-$24]
007E5FB6 DB7DD0 fstp tbyte ptr [ebp-$30]
007E5FB9 9B wait
007E5FBA 8D45D0 lea eax, [ebp-$30]
007E5FBD 8945E4 mov [ebp-$1C], eax
007E5FC0 C645E803 mov byte ptr [ebp-$18], $03
007E5FC4 8D55E4 lea edx, [ebp-$1C]
007E5FC7 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
007E5FC9 B8F4617E00 mov eax, $007E61F4
|
007E5FCE E8B16BC2FF call 0040CB84
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E5FD3 8B9E64030000 mov ebx, [esi+$0364]
007E5FD9 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E5FDB E86024CEFF call 004C8440
007E5FE0 8D55BC lea edx, [ebp-$44]
007E5FE3 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5FE6 E80149C2FF call 0040A8EC
007E5FEB 8B55BC mov edx, [ebp-$44]
007E5FEE 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E5FF1 E8D22DC3FF call 00418DC8
007E5FF6 8D45C0 lea eax, [ebp-$40]
007E5FF9 50 push eax
007E5FFA 8B55F8 mov edx, [ebp-$08]
007E5FFD 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5FFF E8B00BCEFF call 004C6BB4
007E6004 5A pop edx
007E6005 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E6007 FF91B4000000 call dword ptr [ecx+$00B4]
007E600D 8D55A8 lea edx, [ebp-$58]
007E6010 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E6013 E8D448C2FF call 0040A8EC
007E6018 8B55A8 mov edx, [ebp-$58]
007E601B 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E601E E8A52DC3FF call 00418DC8
007E6023 8D45AC lea eax, [ebp-$54]
007E6026 50 push eax
* Possible String Reference to: 'T_Money'
|
007E6027 BA04627E00 mov edx, $007E6204
007E602C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E602E E8810BCEFF call 004C6BB4
007E6033 5A pop edx
007E6034 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E6036 FF91B4000000 call dword ptr [ecx+$00B4]
007E603C 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmYFCR.cxTabControl1Change(Sender : TObject);
begin
(*
007E62AC 55 push ebp
007E62AD 8BEC mov ebp, esp
007E62AF 6A00 push $00
007E62B1 6A00 push $00
007E62B3 53 push ebx
007E62B4 56 push esi
007E62B5 57 push edi
007E62B6 8BD8 mov ebx, eax
007E62B8 33C0 xor eax, eax
007E62BA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[YY]<5D>'
|
007E62BB 681B647E00 push $007E641B
***** TRY
|
007E62C0 64FF30 push dword ptr fs:[eax]
007E62C3 648920 mov fs:[eax], esp
007E62C6 33D2 xor edx, edx
* Reference to control TfrmYFCR.Tchk : TToolButton
|
007E62C8 8B83B8030000 mov eax, [ebx+$03B8]
007E62CE 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
007E62D0 FF5164 call dword ptr [ecx+$64]
007E62D3 33D2 xor edx, edx
* Reference to control TfrmYFCR.Tnochk : TToolButton
|
007E62D5 8B83BC030000 mov eax, [ebx+$03BC]
007E62DB 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
007E62DD FF5164 call dword ptr [ecx+$64]
007E62E0 33D2 xor edx, edx
* Reference to control TfrmYFCR.TKP : TToolButton
|
007E62E2 8B8300040000 mov eax, [ebx+$0400]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E62E8 E82322CAFF call 00488510
007E62ED 33D2 xor edx, edx
* Reference to control TfrmYFCR.TCXKP : TToolButton
|
007E62EF 8B8304040000 mov eax, [ebx+$0404]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E62F5 E81622CAFF call 00488510
007E62FA 33D2 xor edx, edx
* Reference to control TfrmYFCR.ToolButton5 : TToolButton
|
007E62FC 8B835C040000 mov eax, [ebx+$045C]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E6302 E80922CAFF call 00488510
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E6307 8B8338030000 mov eax, [ebx+$0338]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007E630D E83260E7FF call 0065C344
007E6312 8BF0 mov esi, eax
007E6314 4E dec esi
007E6315 85F6 test esi, esi
007E6317 7C54 jl 007E636D
007E6319 46 inc esi
007E631A 33FF xor edi, edi
007E631C 8BD7 mov edx, edi
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E631E 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E6324 E8A756E8FF call 0066B9D0
|
007E6329 E8F254E8FF call 0066B820
007E632E 8D55F8 lea edx, [ebp-$08]
|
007E6331 E8924AE8FF call 0066ADC8
007E6336 8B45F8 mov eax, [ebp-$08]
007E6339 8D55FC lea edx, [ebp-$04]
|
007E633C E83B41C2FF call 0040A47C
007E6341 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: 'SSEL'
|
007E6344 BA34647E00 mov edx, $007E6434
* Reference to: System.@LStrCmp;
|
007E6349 E8F2F3C1FF call 00405740
007E634E 7419 jz 007E6369
007E6350 8BD7 mov edx, edi
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E6352 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E6358 E87356E8FF call 0066B9D0
|
007E635D E86E3EE7FF call 0065A1D0
007E6362 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
007E6364 E8F72BE4FF call 00628F60
007E6369 47 inc edi
007E636A 4E dec esi
007E636B 75AF jnz 007E631C
* Reference to control TfrmYFCR.cxTabControl1 : TcxTabControl
|
007E636D 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to control ADOTemp : N.A.
|
007E6373 8B803C030000 mov eax, [eax+$033C]
007E6379 85C0 test eax, eax
007E637B 7E03 jle 007E6380
007E637D 83F803 cmp eax, +$03
007E6380 85C0 test eax, eax
007E6382 7559 jnz 007E63DD
007E6384 B201 mov dl, $01
* Reference to control TfrmYFCR.Tchk : TToolButton
|
007E6386 8B83B8030000 mov eax, [ebx+$03B8]
007E638C 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
007E638E FF5164 call dword ptr [ecx+$64]
007E6391 B201 mov dl, $01
* Reference to control TfrmYFCR.TBDel : TToolButton
|
007E6393 8B8300030000 mov eax, [ebx+$0300]
007E6399 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
007E639B FF5164 call dword ptr [ecx+$64]
007E639E B201 mov dl, $01
* Reference to control TfrmYFCR.ToolButton5 : TToolButton
|
007E63A0 8B835C040000 mov eax, [ebx+$045C]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E63A6 E86521CAFF call 00488510
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E63AB 8B8338030000 mov eax, [ebx+$0338]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007E63B1 E88E5FE7FF call 0065C344
007E63B6 8BF0 mov esi, eax
007E63B8 4E dec esi
007E63B9 85F6 test esi, esi
007E63BB 7C20 jl 007E63DD
007E63BD 46 inc esi
007E63BE 33FF xor edi, edi
007E63C0 8BD7 mov edx, edi
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E63C2 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E63C8 E80356E8FF call 0066B9D0
|
007E63CD E8FE3DE7FF call 0065A1D0
007E63D2 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
007E63D4 E8872BE4FF call 00628F60
007E63D9 47 inc edi
007E63DA 4E dec esi
007E63DB 75E3 jnz 007E63C0
* Reference to control TfrmYFCR.cxTabControl1 : TcxTabControl
|
007E63DD 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to control ADOTemp : N.A.
|
007E63E3 83B83C03000001 cmp dword ptr [eax+$033C], +$01
007E63EA 750D jnz 007E63F9
007E63EC B201 mov dl, $01
* Reference to control TfrmYFCR.Tnochk : TToolButton
|
007E63EE 8B83BC030000 mov eax, [ebx+$03BC]
007E63F4 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
007E63F6 FF5164 call dword ptr [ecx+$64]
007E63F9 8BC3 mov eax, ebx
|
007E63FB E848AEFFFF call 007E1248
007E6400 33C0 xor eax, eax
007E6402 5A pop edx
007E6403 59 pop ecx
007E6404 59 pop ecx
007E6405 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[YY]<5D>'
|
007E6408 6822647E00 push $007E6422
007E640D 8D45F8 lea eax, [ebp-$08]
007E6410 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E6415 E82EEFC1FF call 00405348
007E641A C3 ret
* Reference to: System.@HandleFinally;
|
007E641B E9D4E6C1FF jmp 00404AF4
007E6420 EBEB jmp 007E640D
****** END
|
007E6422 5F pop edi
007E6423 5E pop esi
007E6424 5B pop ebx
007E6425 59 pop ecx
007E6426 59 pop ecx
007E6427 5D pop ebp
007E6428 C3 ret
*)
end;
procedure TfrmYFCR.TchkClick(Sender : TObject);
begin
(*
007E643C 55 push ebp
007E643D 8BEC mov ebp, esp
007E643F B906000000 mov ecx, $00000006
007E6444 6A00 push $00
007E6446 6A00 push $00
007E6448 49 dec ecx
007E6449 75F9 jnz 007E6444
007E644B 53 push ebx
007E644C 56 push esi
007E644D 57 push edi
007E644E 8945FC mov [ebp-$04], eax
007E6451 33C0 xor eax, eax
007E6453 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E6454 6855677E00 push $007E6755
***** TRY
|
007E6459 64FF30 push dword ptr fs:[eax]
007E645C 648920 mov fs:[eax], esp
007E645F 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E6462 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E6468 E8531ACEFF call 004C7EC0
007E646D 84C0 test al, al
007E646F 0F85BD020000 jnz 007E6732
007E6475 A064677E00 mov al, byte ptr [$007E6764]
007E647A 50 push eax
007E647B 8D45EC lea eax, [ebp-$14]
007E647E B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E6480 E8DF28C3FF call 00418D64
007E6485 8D4DEC lea ecx, [ebp-$14]
007E6488 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E648B 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E6491 BA70677E00 mov edx, $007E6770
007E6496 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E6498 FF9344020000 call dword ptr [ebx+$0244]
007E649E 84C0 test al, al
007E64A0 751D jnz 007E64BF
007E64A2 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E64A4 B978677E00 mov ecx, $007E6778
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E64A9 BA80677E00 mov edx, $007E6780
*)
end;
procedure TfrmYFCR.TnochkClick(Sender : TObject);
begin
(*
007E6894 55 push ebp
007E6895 8BEC mov ebp, esp
007E6897 B906000000 mov ecx, $00000006
007E689C 6A00 push $00
007E689E 6A00 push $00
007E68A0 49 dec ecx
007E68A1 75F9 jnz 007E689C
007E68A3 51 push ecx
007E68A4 53 push ebx
007E68A5 56 push esi
007E68A6 57 push edi
007E68A7 8945FC mov [ebp-$04], eax
007E68AA 33C0 xor eax, eax
007E68AC 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E68AD 68316B7E00 push $007E6B31
***** TRY
|
007E68B2 64FF30 push dword ptr fs:[eax]
007E68B5 648920 mov fs:[eax], esp
007E68B8 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E68BB 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E68C1 E8FA15CEFF call 004C7EC0
007E68C6 84C0 test al, al
007E68C8 0F8540020000 jnz 007E6B0E
007E68CE A0406B7E00 mov al, byte ptr [$007E6B40]
007E68D3 50 push eax
007E68D4 8D45EC lea eax, [ebp-$14]
007E68D7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E68D9 E88624C3FF call 00418D64
007E68DE 8D4DEC lea ecx, [ebp-$14]
007E68E1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E68E4 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E68EA BA4C6B7E00 mov edx, $007E6B4C
007E68EF 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E68F1 FF9344020000 call dword ptr [ebx+$0244]
007E68F7 84C0 test al, al
007E68F9 751D jnz 007E6918
007E68FB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E68FD B9546B7E00 mov ecx, $007E6B54
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E6902 BA5C6B7E00 mov edx, $007E6B5C
*)
end;
procedure TfrmYFCR.ToolButton4Click(Sender : TObject);
begin
(*
007E6C20 53 push ebx
007E6C21 8BD8 mov ebx, eax
* Reference to control TfrmYFCR.cxTabControl1 : TcxTabControl
|
007E6C23 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to control ADOTemp : N.A.
|
007E6C29 83B83C03000000 cmp dword ptr [eax+$033C], +$00
007E6C30 7522 jnz 007E6C54
007E6C32 8BCB mov ecx, ebx
007E6C34 B201 mov dl, $01
* Reference to class TfrmSXCKNewList
|
007E6C36 A128417D00 mov eax, dword ptr [$007D4128]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
007E6C3B E890B1CBFF call 004A1DD0
*)
end;
procedure TfrmYFCR.v2OrderNOPropertiesButtonClick(Sender : TObject);
begin
(*
007E6C58 55 push ebp
007E6C59 8BEC mov ebp, esp
007E6C5B 51 push ecx
007E6C5C B917000000 mov ecx, $00000017
007E6C61 6A00 push $00
007E6C63 6A00 push $00
007E6C65 49 dec ecx
007E6C66 75F9 jnz 007E6C61
007E6C68 51 push ecx
007E6C69 874DFC xchg [ebp-$04], ecx
007E6C6C 53 push ebx
007E6C6D 56 push esi
007E6C6E 8BF0 mov esi, eax
007E6C70 33C0 xor eax, eax
007E6C72 55 push ebp
* Possible String Reference to: '<27>c<EFBFBD><63><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E6C73 688C717E00 push $007E718C
***** TRY
|
007E6C78 64FF30 push dword ptr fs:[eax]
007E6C7B 648920 mov fs:[eax], esp
007E6C7E 33C0 xor eax, eax
007E6C80 55 push ebp
007E6C81 680B717E00 push $007E710B
***** TRY
|
007E6C86 64FF30 push dword ptr fs:[eax]
007E6C89 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR.v2ComTaiTouPropertiesButtonClick(Sender : TObject);
begin
(*
007E7300 55 push ebp
007E7301 8BEC mov ebp, esp
007E7303 51 push ecx
007E7304 B906000000 mov ecx, $00000006
007E7309 6A00 push $00
007E730B 6A00 push $00
007E730D 49 dec ecx
007E730E 75F9 jnz 007E7309
007E7310 51 push ecx
007E7311 874DFC xchg [ebp-$04], ecx
007E7314 53 push ebx
007E7315 56 push esi
007E7316 8BF0 mov esi, eax
007E7318 33C0 xor eax, eax
007E731A 55 push ebp
007E731B 6857757E00 push $007E7557
***** TRY
|
007E7320 64FF30 push dword ptr fs:[eax]
007E7323 648920 mov fs:[eax], esp
007E7326 33C0 xor eax, eax
007E7328 55 push ebp
007E7329 682D757E00 push $007E752D
***** TRY
|
007E732E 64FF30 push dword ptr fs:[eax]
007E7331 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR.v2P_ColorPropertiesButtonClick(Sender : TObject);
begin
(*
007E763C 55 push ebp
007E763D 8BEC mov ebp, esp
007E763F 51 push ecx
007E7640 B907000000 mov ecx, $00000007
007E7645 6A00 push $00
007E7647 6A00 push $00
007E7649 49 dec ecx
007E764A 75F9 jnz 007E7645
007E764C 51 push ecx
007E764D 874DFC xchg [ebp-$04], ecx
007E7650 53 push ebx
007E7651 56 push esi
007E7652 8BF0 mov esi, eax
007E7654 33C0 xor eax, eax
007E7656 55 push ebp
007E7657 68EF787E00 push $007E78EF
***** TRY
|
007E765C 64FF30 push dword ptr fs:[eax]
007E765F 648920 mov fs:[eax], esp
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7662 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'YFType'
|
007E7668 BA04797E00 mov edx, $007E7904
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E766D E842F5CDFF call 004C6BB4
007E7672 8D55F8 lea edx, [ebp-$08]
007E7675 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E7677 FF5160 call dword ptr [ecx+$60]
007E767A 8B45F8 mov eax, [ebp-$08]
007E767D 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E7680 E86732C2FF call 0040A8EC
007E7685 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E7688 BA14797E00 mov edx, $007E7914
* Reference to: System.@LStrCmp;
|
007E768D E8AEE0C1FF call 00405740
007E7692 751D jnz 007E76B1
007E7694 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E7696 B920797E00 mov ecx, $007E7920
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E769B BA28797E00 mov edx, $007E7928
*)
end;
procedure TfrmYFCR.v2sselPropertiesChange(Sender : TObject);
begin
(*
007E7A0C 53 push ebx
007E7A0D 56 push esi
007E7A0E 8BD8 mov ebx, eax
* Reference to control TfrmYFCR.ToolBar1 : TToolBar
|
007E7A10 8B83F8020000 mov eax, [ebx+$02F8]
007E7A16 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
007E7A18 FF92C4000000 call dword ptr [edx+$00C4]
* Possible String Reference to: 'Qty'
|
007E7A1E BABC7A7E00 mov edx, $007E7ABC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7A23 8BB364030000 mov esi, [ebx+$0364]
007E7A29 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E7A2B E884F1CDFF call 004C6BB4
007E7A30 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
007E7A32 FF524C call dword ptr [edx+$4C]
007E7A35 D835C07A7E00 fdiv dword ptr [$007E7AC0]
007E7A3B 83C4F8 add esp, -$08
007E7A3E DD1C24 fstp qword ptr [esp]
007E7A41 9B wait
* Reference to control TfrmYFCR.Label12 : TLabel
|
007E7A42 8B93F4030000 mov edx, [ebx+$03F4]
007E7A48 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
007E7A4A E841F3FCFF call 007B6D90
* Possible String Reference to: 'Money'
|
007E7A4F BACC7A7E00 mov edx, $007E7ACC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7A54 8BB364030000 mov esi, [ebx+$0364]
007E7A5A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E7A5C E853F1CDFF call 004C6BB4
007E7A61 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
007E7A63 FF524C call dword ptr [edx+$4C]
007E7A66 D835C07A7E00 fdiv dword ptr [$007E7AC0]
007E7A6C 83C4F8 add esp, -$08
007E7A6F DD1C24 fstp qword ptr [esp]
007E7A72 9B wait
* Reference to control TfrmYFCR.Label13 : TLabel
|
007E7A73 8B93F8030000 mov edx, [ebx+$03F8]
007E7A79 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
007E7A7B E810F3FCFF call 007B6D90
* Possible String Reference to: 'ps'
|
007E7A80 BADC7A7E00 mov edx, $007E7ADC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7A85 8BB364030000 mov esi, [ebx+$0364]
007E7A8B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E7A8D E822F1CDFF call 004C6BB4
007E7A92 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
007E7A94 FF524C call dword ptr [edx+$4C]
007E7A97 D835C07A7E00 fdiv dword ptr [$007E7AC0]
007E7A9D 83C4F8 add esp, -$08
007E7AA0 DD1C24 fstp qword ptr [esp]
007E7AA3 9B wait
* Reference to control TfrmYFCR.Label19 : TLabel
|
007E7AA4 8B933C040000 mov edx, [ebx+$043C]
007E7AAA 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
007E7AAC E8DFF2FCFF call 007B6D90
007E7AB1 5E pop esi
007E7AB2 5B pop ebx
007E7AB3 C3 ret
*)
end;
procedure TfrmYFCR.Tv2StylesGetContentStyle(Sender : TObject);
begin
(*
007E7AE0 55 push ebp
007E7AE1 8BEC mov ebp, esp
007E7AE3 6A00 push $00
007E7AE5 6A00 push $00
007E7AE7 6A00 push $00
007E7AE9 6A00 push $00
007E7AEB 6A00 push $00
007E7AED 6A00 push $00
007E7AEF 6A00 push $00
007E7AF1 6A00 push $00
007E7AF3 53 push ebx
007E7AF4 56 push esi
007E7AF5 8BF1 mov esi, ecx
007E7AF7 8BD8 mov ebx, eax
007E7AF9 33C0 xor eax, eax
007E7AFB 55 push ebp
007E7AFC 68727B7E00 push $007E7B72
***** TRY
|
007E7B01 64FF30 push dword ptr fs:[eax]
007E7B04 648920 mov fs:[eax], esp
* Possible String Reference to: 'ChkStatus'
|
007E7B07 BA8C7B7E00 mov edx, $007E7B8C
* Reference to control TfrmYFCR.Tv2 : TcxGridDBTableView
|
007E7B0C 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E7B12 E8093FE8FF call 0066BA20
* Reference to field TcxGridDBTableView.OFFS_006C
|
007E7B17 8B586C mov ebx, [eax+$6C]
007E7B1A 8D4DF0 lea ecx, [ebp-$10]
007E7B1D 8BD3 mov edx, ebx
007E7B1F 8BC6 mov eax, esi
007E7B21 8B18 mov ebx, [eax]
007E7B23 FF5340 call dword ptr [ebx+$40]
007E7B26 8D45F0 lea eax, [ebp-$10]
007E7B29 50 push eax
007E7B2A 8D45E0 lea eax, [ebp-$20]
* Possible String Reference to: '<27><>ͨ<EFBFBD><CDA8>'
|
007E7B2D BAA07B7E00 mov edx, $007E7BA0
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E7B32 E89112C3FF call 00418DC8
007E7B37 8D55E0 lea edx, [ebp-$20]
007E7B3A 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);
|
007E7B3B E8AC58C3FF call 0041D3EC
007E7B40 750F jnz 007E7B51
*)
end;
procedure TfrmYFCR.TKPClick(Sender : TObject);
begin
(*
007E7BA8 55 push ebp
007E7BA9 8BEC mov ebp, esp
007E7BAB B904000000 mov ecx, $00000004
007E7BB0 6A00 push $00
007E7BB2 6A00 push $00
007E7BB4 49 dec ecx
007E7BB5 75F9 jnz 007E7BB0
007E7BB7 51 push ecx
007E7BB8 53 push ebx
007E7BB9 56 push esi
007E7BBA 57 push edi
007E7BBB 8945FC mov [ebp-$04], eax
007E7BBE 33C0 xor eax, eax
007E7BC0 55 push ebp
* Possible String Reference to: '<27>0<EFBFBD><30><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E7BC1 68BF7D7E00 push $007E7DBF
***** TRY
|
007E7BC6 64FF30 push dword ptr fs:[eax]
007E7BC9 648920 mov fs:[eax], esp
007E7BCC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7BCF 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E7BD5 E8E602CEFF call 004C7EC0
007E7BDA 84C0 test al, al
007E7BDC 0F85BA010000 jnz 007E7D9C
007E7BE2 A0D07D7E00 mov al, byte ptr [$007E7DD0]
007E7BE7 50 push eax
007E7BE8 8D45EC lea eax, [ebp-$14]
007E7BEB B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E7BED E87211C3FF call 00418D64
007E7BF2 8D4DEC lea ecx, [ebp-$14]
007E7BF5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7BF8 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E7BFE BADC7D7E00 mov edx, $007E7DDC
007E7C03 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E7C05 FF9344020000 call dword ptr [ebx+$0244]
007E7C0B 84C0 test al, al
007E7C0D 751D jnz 007E7C2C
007E7C0F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E7C11 B9E47D7E00 mov ecx, $007E7DE4
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E7C16 BAEC7D7E00 mov edx, $007E7DEC
*)
end;
procedure TfrmYFCR.TCXKPClick(Sender : TObject);
begin
(*
007E7E7C 55 push ebp
007E7E7D 8BEC mov ebp, esp
007E7E7F B904000000 mov ecx, $00000004
007E7E84 6A00 push $00
007E7E86 6A00 push $00
007E7E88 49 dec ecx
007E7E89 75F9 jnz 007E7E84
007E7E8B 51 push ecx
007E7E8C 53 push ebx
007E7E8D 56 push esi
007E7E8E 57 push edi
007E7E8F 8945FC mov [ebp-$04], eax
007E7E92 33C0 xor eax, eax
007E7E94 55 push ebp
* Possible String Reference to: '<27>\<5C><><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E7E95 6893807E00 push $007E8093
***** TRY
|
007E7E9A 64FF30 push dword ptr fs:[eax]
007E7E9D 648920 mov fs:[eax], esp
007E7EA0 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7EA3 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E7EA9 E81200CEFF call 004C7EC0
007E7EAE 84C0 test al, al
007E7EB0 0F85BA010000 jnz 007E8070
007E7EB6 A0A4807E00 mov al, byte ptr [$007E80A4]
007E7EBB 50 push eax
007E7EBC 8D45EC lea eax, [ebp-$14]
007E7EBF B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E7EC1 E89E0EC3FF call 00418D64
007E7EC6 8D4DEC lea ecx, [ebp-$14]
007E7EC9 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E7ECC 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E7ED2 BAB0807E00 mov edx, $007E80B0
007E7ED7 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E7ED9 FF9344020000 call dword ptr [ebx+$0244]
007E7EDF 84C0 test al, al
007E7EE1 751D jnz 007E7F00
007E7EE3 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E7EE5 B9B8807E00 mov ecx, $007E80B8
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E7EEA BAC0807E00 mov edx, $007E80C0
*)
end;
procedure TfrmYFCR.N1Click(Sender : TObject);
begin
(*
007E8148 B201 mov dl, $01
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E814A 8B8064030000 mov eax, [eax+$0364]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
007E8150 E84F03FDFF call 007B84A4
007E8155 C3 ret
*)
end;
procedure TfrmYFCR.N2Click(Sender : TObject);
begin
(*
007E8158 33D2 xor edx, edx
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E815A 8B8064030000 mov eax, [eax+$0364]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
007E8160 E83F03FDFF call 007B84A4
007E8165 C3 ret
*)
end;
procedure TfrmYFCR.v2KPTypePropertiesEditValueChanged(Sender : TObject);
begin
(*
007E8168 55 push ebp
007E8169 8BEC mov ebp, esp
007E816B B905000000 mov ecx, $00000005
007E8170 6A00 push $00
007E8172 6A00 push $00
007E8174 49 dec ecx
007E8175 75F9 jnz 007E8170
007E8177 51 push ecx
007E8178 53 push ebx
007E8179 56 push esi
007E817A 8BDA mov ebx, edx
007E817C 8BF0 mov esi, eax
007E817E 33C0 xor eax, eax
007E8180 55 push ebp
* Possible String Reference to: '<27>=<3D><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E8181 68B2827E00 push $007E82B2
***** TRY
|
007E8186 64FF30 push dword ptr fs:[eax]
007E8189 648920 mov fs:[eax], esp
007E818C 8D55FC lea edx, [ebp-$04]
007E818F 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;
|
007E8191 E82675DAFF call 0058F6BC
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E8196 8B9E64030000 mov ebx, [esi+$0364]
007E819C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E819E E89D02CEFF call 004C8440
007E81A3 8D55E8 lea edx, [ebp-$18]
007E81A6 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E81A9 E83E27C2FF call 0040A8EC
007E81AE 8B55E8 mov edx, [ebp-$18]
007E81B1 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E81B4 E80F0CC3FF call 00418DC8
007E81B9 8D45EC lea eax, [ebp-$14]
007E81BC 50 push eax
* Possible String Reference to: 'KPType'
|
007E81BD BAC8827E00 mov edx, $007E82C8
007E81C2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E81C4 E8EBE9CDFF call 004C6BB4
007E81C9 5A pop edx
007E81CA 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007E81CC FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E81D2 8B9E0C030000 mov ebx, [esi+$030C]
007E81D8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E81DA E8F5D6CDFF call 004C58D4
007E81DF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E81E1 E8C65DCFFF call 004DDFAC
007E81E6 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E81E8 FF5244 call dword ptr [edx+$44]
007E81EB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E81ED E8BA5DCFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E81F2 BAD8827E00 mov edx, $007E82D8
007E81F7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E81F9 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPType=''
|
007E81FC 68F4827E00 push $007E82F4
007E8201 8D55E0 lea edx, [ebp-$20]
007E8204 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E8207 E8E026C2FF call 0040A8EC
007E820C FF75E0 push dword ptr [ebp-$20]
007E820F 680C837E00 push $007E830C
007E8214 8D45E4 lea eax, [ebp-$1C]
007E8217 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E821C E893D4C1FF call 004056B4
007E8221 8B45E4 mov eax, [ebp-$1C]
007E8224 50 push eax
007E8225 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E8227 E8805DCFFF call 004DDFAC
007E822C 5A pop edx
007E822D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E822F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
007E8232 6818837E00 push $007E8318
* Possible String Reference to: 'YFId'
|
007E8237 BA30837E00 mov edx, $007E8330
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E823C 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E8242 E86DE9CDFF call 004C6BB4
007E8247 8D55D4 lea edx, [ebp-$2C]
007E824A 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E824C FF5160 call dword ptr [ecx+$60]
007E824F 8B45D4 mov eax, [ebp-$2C]
007E8252 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E8255 E89226C2FF call 0040A8EC
007E825A FF75D8 push dword ptr [ebp-$28]
007E825D 680C837E00 push $007E830C
007E8262 8D45DC lea eax, [ebp-$24]
007E8265 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E826A E845D4C1FF call 004056B4
007E826F 8B45DC mov eax, [ebp-$24]
007E8272 50 push eax
007E8273 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E8275 E8325DCFFF call 004DDFAC
007E827A 5A pop edx
007E827B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E827D FF5138 call dword ptr [ecx+$38]
007E8280 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007E8282 E84D5CCFFF call 004DDED4
007E8287 33C0 xor eax, eax
007E8289 5A pop edx
007E828A 59 pop ecx
007E828B 59 pop ecx
007E828C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007E828F 68B9827E00 push $007E82B9
007E8294 8D45D4 lea eax, [ebp-$2C]
007E8297 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E829C E8A7D0C1FF call 00405348
007E82A1 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007E82A4 E8CBC3C2FF call 00414674
007E82A9 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007E82AC E873D0C1FF call 00405324
007E82B1 C3 ret
* Reference to: System.@HandleFinally;
|
007E82B2 E93DC8C1FF jmp 00404AF4
007E82B7 EBDB jmp 007E8294
****** END
|
007E82B9 5E pop esi
007E82BA 5B pop ebx
007E82BB 8BE5 mov esp, ebp
007E82BD 5D pop ebp
007E82BE C3 ret
*)
end;
procedure TfrmYFCR.cxTabControl2Change(Sender : TObject);
begin
(*
|
007E8338 E80B8FFFFF call 007E1248
007E833D C3 ret
*)
end;
procedure TfrmYFCR.ToolButton5Click(Sender : TObject);
begin
(*
007E8340 55 push ebp
007E8341 8BEC mov ebp, esp
007E8343 B906000000 mov ecx, $00000006
007E8348 6A00 push $00
007E834A 6A00 push $00
007E834C 49 dec ecx
007E834D 75F9 jnz 007E8348
007E834F 53 push ebx
007E8350 56 push esi
007E8351 57 push edi
007E8352 8945FC mov [ebp-$04], eax
007E8355 33C0 xor eax, eax
007E8357 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E8358 6849867E00 push $007E8649
***** TRY
|
007E835D 64FF30 push dword ptr fs:[eax]
007E8360 648920 mov fs:[eax], esp
007E8363 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E8366 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E836C E84FFBCDFF call 004C7EC0
007E8371 84C0 test al, al
007E8373 0F85AD020000 jnz 007E8626
007E8379 A058867E00 mov al, byte ptr [$007E8658]
007E837E 50 push eax
007E837F 8D45EC lea eax, [ebp-$14]
007E8382 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E8384 E8DB09C3FF call 00418D64
007E8389 8D4DEC lea ecx, [ebp-$14]
007E838C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E838F 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E8395 BA64867E00 mov edx, $007E8664
007E839A 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007E839C FF9344020000 call dword ptr [ebx+$0244]
007E83A2 84C0 test al, al
007E83A4 751D jnz 007E83C3
007E83A6 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E83A8 B96C867E00 mov ecx, $007E866C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E83AD BA74867E00 mov edx, $007E8674
*)
end;
procedure TfrmYFCR.ToolButton6Click(Sender : TObject);
begin
(*
007E8774 55 push ebp
007E8775 8BEC mov ebp, esp
007E8777 B904000000 mov ecx, $00000004
007E877C 6A00 push $00
007E877E 6A00 push $00
007E8780 49 dec ecx
007E8781 75F9 jnz 007E877C
007E8783 51 push ecx
007E8784 53 push ebx
007E8785 56 push esi
007E8786 57 push edi
007E8787 8BF0 mov esi, eax
007E8789 33C0 xor eax, eax
007E878B 55 push ebp
007E878C 681A897E00 push $007E891A
***** TRY
|
007E8791 64FF30 push dword ptr fs:[eax]
007E8794 648920 mov fs:[eax], esp
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E8797 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E879D E81EF7CDFF call 004C7EC0
007E87A2 84C0 test al, al
007E87A4 0F8538010000 jnz 007E88E2
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E87AA 8B9E64030000 mov ebx, [esi+$0364]
007E87B0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
007E87B2 E879F8CDFF call 004C8030
007E87B7 E919010000 jmp 007E88D5
* Possible String Reference to: 'Ssel'
|
007E87BC BA30897E00 mov edx, $007E8930
007E87C1 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E87C3 E8ECE3CDFF call 004C6BB4
007E87C8 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_44
|
007E87CA FF5244 call dword ptr [edx+$44]
007E87CD 3C01 cmp al, $01
007E87CF 0F85F9000000 jnz 007E88CE
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E87D5 8B860C030000 mov eax, [esi+$030C]
007E87DB 8945FC mov [ebp-$04], eax
007E87DE 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E87E1 E8EED0CDFF call 004C58D4
007E87E6 8B45FC mov eax, [ebp-$04]
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E87E9 E8BE57CFFF call 004DDFAC
007E87EE 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007E87F0 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'update YF_Money_CR set FYType=''
|
007E87F3 6840897E00 push $007E8940
007E87F8 8D55F0 lea edx, [ebp-$10]
* Reference to control TfrmYFCR.FFYType : TComboBox
|
007E87FB 8B8664040000 mov eax, [esi+$0464]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007E8801 E8EAFDC9FF call 004885F0
007E8806 8B45F0 mov eax, [ebp-$10]
007E8809 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E880C E8DB20C2FF call 0040A8EC
007E8811 FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: '' '
|
007E8814 6868897E00 push $007E8968
007E8819 8D45F8 lea eax, [ebp-$08]
007E881C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E8821 E88ECEC1FF call 004056B4
007E8826 8B45F8 mov eax, [ebp-$08]
007E8829 50 push eax
007E882A 8B45FC mov eax, [ebp-$04]
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E882D E87A57CFFF call 004DDFAC
007E8832 5A pop edx
007E8833 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E8835 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where YFID=''
|
007E8838 6874897E00 push $007E8974
* Possible String Reference to: 'YFID'
|
007E883D BA8C897E00 mov edx, $007E898C
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E8842 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E8848 E867E3CDFF call 004C6BB4
007E884D 8D55E4 lea edx, [ebp-$1C]
007E8850 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007E8852 FF5160 call dword ptr [ecx+$60]
007E8855 8B45E4 mov eax, [ebp-$1C]
007E8858 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E885B E88C20C2FF call 0040A8EC
007E8860 FF75E8 push dword ptr [ebp-$18]
007E8863 689C897E00 push $007E899C
007E8868 8D45EC lea eax, [ebp-$14]
007E886B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E8870 E83FCEC1FF call 004056B4
007E8875 8B45EC mov eax, [ebp-$14]
007E8878 50 push eax
007E8879 8B45FC mov eax, [ebp-$04]
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007E887C E82B57CFFF call 004DDFAC
007E8881 5A pop edx
007E8882 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007E8884 FF5138 call dword ptr [ecx+$38]
007E8887 8B45FC mov eax, [ebp-$04]
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007E888A E84556CFFF call 004DDED4
* Reference to control TfrmYFCR.CDS_HZ : TClientDataSet
|
007E888F 8BBE64030000 mov edi, [esi+$0364]
007E8895 8BC7 mov eax, edi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E8897 E8A4FBCDFF call 004C8440
007E889C 8D55DC lea edx, [ebp-$24]
* Reference to control TfrmYFCR.FFYType : TComboBox
|
007E889F 8B8664040000 mov eax, [esi+$0464]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007E88A5 E846FDC9FF call 004885F0
007E88AA 8B45DC mov eax, [ebp-$24]
007E88AD 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E88B0 E83720C2FF call 0040A8EC
007E88B5 8B45E0 mov eax, [ebp-$20]
007E88B8 50 push eax
* Possible String Reference to: 'FYType'
|
007E88B9 BAA8897E00 mov edx, $007E89A8
007E88BE 8BC7 mov eax, edi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E88C0 E8EFE2CDFF call 004C6BB4
007E88C5 5A pop edx
007E88C6 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DefChanged(TObject)
|
007E88C8 FF91B0000000 call dword ptr [ecx+$00B0]
007E88CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
007E88D0 E877FACDFF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
007E88D5 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
007E88DC 0F84DAFEFFFF jz 007E87BC
007E88E2 33C0 xor eax, eax
007E88E4 5A pop edx
007E88E5 59 pop ecx
007E88E6 59 pop ecx
007E88E7 648910 mov fs:[eax], edx
****** FINALLY
|
007E88EA 6821897E00 push $007E8921
007E88EF 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007E88F2 E82DCAC1FF call 00405324
007E88F7 8D45E0 lea eax, [ebp-$20]
007E88FA BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E88FF E844CAC1FF call 00405348
007E8904 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
007E8907 E818CAC1FF call 00405324
007E890C 8D45F4 lea eax, [ebp-$0C]
007E890F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E8914 E82FCAC1FF call 00405348
007E8919 C3 ret
* Reference to: System.@HandleFinally;
|
007E891A E9D5C1C1FF jmp 00404AF4
007E891F EBCE jmp 007E88EF
****** END
|
007E8921 5F pop edi
007E8922 5E pop esi
007E8923 5B pop ebx
007E8924 8BE5 mov esp, ebp
007E8926 5D pop ebp
007E8927 C3 ret
*)
end;
procedure TfrmYFCR.v2ConNoPropertiesButtonClick(Sender : TObject);
begin
(*
007E89B0 55 push ebp
007E89B1 8BEC mov ebp, esp
007E89B3 51 push ecx
007E89B4 B90B000000 mov ecx, $0000000B
007E89B9 6A00 push $00
007E89BB 6A00 push $00
007E89BD 49 dec ecx
007E89BE 75F9 jnz 007E89B9
007E89C0 874DFC xchg [ebp-$04], ecx
007E89C3 53 push ebx
007E89C4 56 push esi
007E89C5 8BF0 mov esi, eax
007E89C7 33C0 xor eax, eax
007E89C9 55 push ebp
* Possible String Reference to: '<27>j<EFBFBD><6A><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E89CA 68858C7E00 push $007E8C85
***** TRY
|
007E89CF 64FF30 push dword ptr fs:[eax]
007E89D2 648920 mov fs:[eax], esp
007E89D5 8BCE mov ecx, esi
007E89D7 B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
007E89D9 A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
007E89DE E8ED93CBFF call 004A1DD0
*)
end;
procedure TfrmYFCR._PROC_007E1005(Sender : TObject);
begin
(*
007E1005 7064 jo 007E106B
007E1007 61 popa
007E1008 7465 jz 007E106F
007E100A 205946 and [ecx+$46], bl
007E100D 5F pop edi
007E100E 4D dec ebp
007E100F 6F outsd
007E1010 6E outsb
007E1011 65795F jns 007E1073
007E1014 43 inc ebx
007E1015 52 push edx
007E1016 49 dec ecx
007E1017 44 inc esp
007E1018 207365 and [ebx+$65], dh
007E101B 7420 jz 007E103D
007E101D 43 inc ebx
007E101E 52 push edx
007E101F 49 dec ecx
007E1020 44 inc esp
007E1021 3D43524944 cmp eax, $44495243
007E1026 2B31 sub esi, dword ptr [ecx]
007E1028 0000 add [eax], al
007E102A 0000 add [eax], al
007E102C FFFF DB $FF, $FF //
007E102E FFFF DB $FF, $FF //
007E1030 1C00 sbb al, $00
007E1032 0000 add [eax], al
007E1034 7365 jnb 007E109B
007E1036 6C insb
007E1037 656374202A arpl gs:[eax+$2A], si
007E103C 206672 and [esi+$72], ah
007E103F 6F outsd
007E1040 6D insd
007E1041 205946 and [ecx+$46], bl
007E1044 5F pop edi
007E1045 4D dec ebp
007E1046 6F outsd
007E1047 6E outsb
007E1048 65795F jns 007E10AA
007E104B 43 inc ebx
007E104C 52 push edx
007E104D 49 dec ecx
007E104E 44 inc esp
007E104F 2000 and [eax], al
007E1051 0000 add [eax], al
007E1053 00FF add bh, bh
007E1055 FFFF DB $FF, $FF //
007E1057 FF23 jmp dword ptr [ebx]
007E1059 0000 add [eax], al
007E105B 007365 add [ebx+$65], dh
007E105E 6C insb
007E105F 656374202A arpl gs:[eax+$2A], si
007E1064 206672 and [esi+$72], ah
007E1067 6F outsd
007E1068 6D insd
007E1069 205946 and [ecx+$46], bl
007E106C 5F pop edi
007E106D 4D dec ebp
007E106E 6F outsd
007E106F 6E outsb
007E1070 65795F jns 007E10D2
007E1073 4B dec ebx
007E1074 43 inc ebx
007E1075 207768 and [edi+$68], dh
007E1078 657265 jb 007E10E0
007E107B 2031 and [ecx], dh
007E107D 3D3200FFFF cmp eax, $FFFF0032
007E1082 FFFF DB $FF, $FF //
007E1084 0900 or [eax], eax
007E1086 0000 add [eax], al
007E1088 46 inc esi
007E1089 61 popa
007E108A 63746F72 arpl [edi+ebp*2+$72], si
007E108E 794E jns 007E10DE
007E1090 6F outsd
007E1091 0000 add [eax], al
007E1093 00FF add bh, bh
007E1095 FFFF DB $FF, $FF //
007E1097 FF07 inc dword ptr [edi]
007E1099 0000 add [eax], al
007E109B 005A64 add [edx+$64], bl
007E109E 7953 jns 007E10F3
007E10A0 7472 jz 007E1114
007E10A2 3100 xor [eax], eax
007E10A4 FFFF DB $FF, $FF //
007E10A6 FFFF DB $FF, $FF //
007E10A8 06 push es
007E10A9 0000 add [eax], al
007E10AB 00D3 add bl, dl
007E10AD A6 cmpsb
007E10AE B8B6B8B600 mov eax, $00B6B8B6
007E10B3 00FF add bh, bh
007E10B5 FFFF DB $FF, $FF //
007E10B7 FF23 jmp dword ptr [ebx]
007E10B9 0000 add [eax], al
007E10BB 007365 add [ebx+$65], dh
007E10BE 6C insb
007E10BF 656374202A arpl gs:[eax+$2A], si
007E10C4 206672 and [esi+$72], ah
007E10C7 6F outsd
007E10C8 6D insd
007E10C9 205946 and [ecx+$46], bl
007E10CC 5F pop edi
007E10CD 4D dec ebp
007E10CE 6F outsd
007E10CF 6E outsb
007E10D0 65795F jns 007E1132
007E10D3 43 inc ebx
007E10D4 52 push edx
007E10D5 207768 and [edi+$68], dh
007E10D8 657265 jb 007E1140
007E10DB 2031 and [ecx], dh
007E10DD 3D3200FFFF cmp eax, $FFFF0032
007E10E2 FFFF DB $FF, $FF //
007E10E4 0400 add al, +$00
007E10E6 0000 add [eax], al
007E10E8 59 pop ecx
007E10E9 46 inc esi
007E10EA 49 dec ecx
007E10EB 44 inc esp
007E10EC 0000 add [eax], al
007E10EE 0000 add [eax], al
007E10F0 FFFF DB $FF, $FF //
007E10F2 FFFF DB $FF, $FF //
007E10F4 06 push es
007E10F5 0000 add [eax], al
007E10F7 004669 add [esi+$69], al
007E10FA 6C insb
007E10FB 6C insb
007E10FC 657200 jb 007E10FF
007E10FF 00FF add bh, bh
007E1101 FFFF DB $FF, $FF //
007E1103 FF06 inc dword ptr [esi]
007E1105 0000 add [eax], al
007E1107 004352 add [ebx+$52], al
007E110A 54 push esp
007E110B 7970 jns 007E117D
007E110D 650000 add gs:[eax], al
007E1110 FFFF DB $FF, $FF //
007E1112 FFFF DB $FF, $FF //
007E1114 0E push cs
007E1115 0000 add [eax], al
007E1117 00D3 add bl, dl
007E1119 A6 cmpsb
007E111A B8B6BFEEB7 mov eax, $B7EEBFB6
007E111F A2C6B1B5C7 mov byte ptr [$C7B5B1C6], al
007E1124 BCC70000FF mov esp, $FF0000C7
007E1129 FFFF DB $FF, $FF //
007E112B FF06 inc dword ptr [esi]
007E112D 0000 add [eax], al
007E112F 004352 add [ebx+$52], al
007E1132 46 inc esi
007E1133 6C insb
007E1134 61 popa
007E1135 670000 add [bx+si], al
007E1138 FFFF DB $FF, $FF //
007E113A FFFF DB $FF, $FF //
007E113C 07 pop es
007E113D 0000 add [eax], al
007E113F 005174 add [ecx+$74], dl
007E1142 7946 jns 007E118A
007E1144 6C insb
007E1145 61 popa
007E1146 6700FF add bh, bh
007E1149 FFFF DB $FF, $FF //
007E114B FF07 inc dword ptr [edi]
007E114D 0000 add [eax], al
007E114F 005061 add [eax+$61], dl
007E1152 794D jns 007E11A1
007E1154 656E outsb
007E1156 7400 jz 007E1158
007E1158 FFFF DB $FF, $FF //
007E115A FFFF DB $FF, $FF //
007E115C 0300 add eax, [eax]
007E115E 0000 add [eax], al
007E1160 51 push ecx
007E1161 7479 jz 007E11DC
007E1163 00FF add bh, bh
007E1165 FFFF DB $FF, $FF //
007E1167 FF07 inc dword ptr [edi]
007E1169 0000 add [eax], al
007E116B 005174 add [ecx+$74], dl
007E116E 7955 jns 007E11C5
007E1170 6E outsb
007E1171 697400FFFFFFFF05 imul esi, [eax+eax-$01], $05FFFFFF
007E1179 0000 add [eax], al
007E117B 005072 add [eax+$72], dl
007E117E 696365000000FF imul esp, [ebx+$65], $FF000000
007E1185 FFFF DB $FF, $FF //
007E1187 FF050000004D inc dword ptr [$4D000000]
007E118D 6F outsd
007E118E 6E outsb
007E118F 657900 jns 007E1192
007E1192 0000 add [eax], al
007E1194 FFFF DB $FF, $FF //
007E1196 FFFF DB $FF, $FF //
007E1198 07 pop es
007E1199 0000 add [eax], al
007E119B 004B50 add [ebx+$50], cl
007E119E 4D dec ebp
007E119F 6F outsd
007E11A0 6E outsb
007E11A1 657900 jns 007E11A4
007E11A4 FFFF DB $FF, $FF //
007E11A6 FFFF DB $FF, $FF //
007E11A8 0A00 or al, byte ptr [eax]
007E11AA 0000 add [eax], al
007E11AC 50 push eax
007E11AD 5F pop edi
007E11AE 43 inc ebx
007E11AF 6F outsd
007E11B0 64654E dec esi
007E11B3 61 popa
007E11B4 6D insd
007E11B5 650000 add gs:[eax], al
007E11B8 FFFF DB $FF, $FF //
007E11BA FFFF DB $FF, $FF //
007E11BC 06 push es
007E11BD 0000 add [eax], al
007E11BF 005946 add [ecx+$46], bl
007E11C2 4E dec esi
007E11C3 61 popa
007E11C4 6D insd
007E11C5 650000 add gs:[eax], al
007E11C8 FFFF DB $FF, $FF //
007E11CA FFFF DB $FF, $FF //
007E11CC 06 push es
007E11CD 0000 add [eax], al
007E11CF 00505F add [eax+$5F], dl
007E11D2 53 push ebx
007E11D3 7065 jo 007E123A
007E11D5 6300 arpl [eax], ax
007E11D7 00FF add bh, bh
007E11D9 FFFF DB $FF, $FF //
007E11DB FF09 dec dword ptr [ecx]
007E11DD 0000 add [eax], al
007E11DF 00436F add [ebx+$6F], al
007E11E2 6D insd
007E11E3 54 push esp
007E11E4 61 popa
007E11E5 69746F75000000FF imul esi, [edi+ebp*2+$75], $FF000000
007E11ED FFFF DB $FF, $FF //
007E11EF FF06 inc dword ptr [esi]
007E11F1 0000 add [eax], al
007E11F3 004352 add [ebx+$52], al
007E11F6 54 push esp
007E11F7 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
007E11FE FFFF DB $FF, $FF //
007E1200 06 push es
007E1201 0000 add [eax], al
007E1203 004650 add [esi+$50], al
007E1206 59 pop ecx
007E1207 46 inc esi
007E1208 49 dec ecx
007E1209 44 inc esp
007E120A 0000 add [eax], al
007E120C FFFF DB $FF, $FF //
007E120E FFFF DB $FF, $FF //
007E1210 0400 add al, +$00
007E1212 0000 add [eax], al
007E1214 4E dec esi
007E1215 6F outsd
007E1216 7465 jz 007E127D
007E1218 0000 add [eax], al
007E121A 0000 add [eax], al
007E121C FFFF DB $FF, $FF //
007E121E FFFF DB $FF, $FF //
007E1220 06 push es
007E1221 0000 add [eax], al
007E1223 00425A add [edx+$5A], al
007E1226 54 push esp
007E1227 7970 jns 007E1299
007E1229 650000 add gs:[eax], al
007E122C FFFF DB $FF, $FF //
007E122E FFFF DB $FF, $FF //
007E1230 0300 add eax, [eax]
007E1232 0000 add [eax], al
007E1234 52 push edx
007E1235 4D dec ebp
007E1236 42 inc edx
007E1237 00FF add bh, bh
007E1239 FFFF DB $FF, $FF //
007E123B FF0500000048 inc dword ptr [$48000000]
007E1241 7569 jnz 007E12AC
007E1243 4C dec esp
007E1244 7600 jbe 007E1246
007E1246 0000 add [eax], al
007E1248 55 push ebp
007E1249 8BEC mov ebp, esp
007E124B 33C9 xor ecx, ecx
007E124D 51 push ecx
007E124E 51 push ecx
007E124F 51 push ecx
007E1250 51 push ecx
007E1251 51 push ecx
007E1252 51 push ecx
007E1253 51 push ecx
007E1254 53 push ebx
007E1255 56 push esi
007E1256 8945FC mov [ebp-$04], eax
007E1259 33C0 xor eax, eax
007E125B 55 push ebp
* Possible String Reference to: '<27>+6<><36><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E125C 68C4147E00 push $007E14C4
***** TRY
|
007E1261 64FF30 push dword ptr fs:[eax]
007E1264 648920 mov fs:[eax], esp
007E1267 33C0 xor eax, eax
007E1269 55 push ebp
007E126A 68A2147E00 push $007E14A2
***** TRY
|
007E126F 64FF30 push dword ptr fs:[eax]
007E1272 648920 mov fs:[eax], esp
007E1275 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
007E1278 8B801C030000 mov eax, [eax+$031C]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007E127E E8D162CEFF call 004C7554
007E1283 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
007E1286 8B981C030000 mov ebx, [eax+$031C]
007E128C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E128E E84146CEFF call 004C58D4
007E1293 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;
|
007E1295 E812CDCFFF call 004DDFAC
007E129A 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007E129C FF5244 call dword ptr [edx+$44]
007E129F 33D2 xor edx, edx
007E12A1 8BC3 mov eax, ebx
007E12A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_0190
|
007E12A5 FF9190010000 call dword ptr [ecx+$0190]
007E12AB 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;
|
007E12AD E8FACCCFFF call 004DDFAC
* Possible String Reference to: ' select P_Color=(select B.SPCF from
| CK_SXPB_CR B where B.SPID=A.YFType
| Id and B.CKName='<27><><EFBFBD>첼')'
|
007E12B2 BADC147E00 mov edx, $007E14DC
007E12B7 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E12B9 FF5138 call dword ptr [ecx+$38]
007E12BC 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;
|
007E12BE E8E9CCCFFF call 004DDFAC
* Possible String Reference to: ' ,PBPrice=(select B.Price from CK_S
| XPB_CR B where B.SPID=A.YFTypeId)'
|
007E12C3 BA44157E00 mov edx, $007E1544
007E12C8 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E12CA FF5138 call dword ptr [ecx+$38]
007E12CD 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;
|
007E12CF E8D8CCCFFF call 004DDFAC
* Possible String Reference to: ' ,KPStatusH=(case when isnull(KPsta
| tus,'')='' then 'δ<><CEB4>Ʊ' else '<27><>Ʊ
| <20><><EFBFBD><EFBFBD>' end),A.*'
|
007E12D4 BA94157E00 mov edx, $007E1594
007E12D9 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E12DB FF5138 call dword ptr [ecx+$38]
007E12DE 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;
|
007E12E0 E8C7CCCFFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
007E12E5 BAF4157E00 mov edx, $007E15F4
007E12EA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E12EC FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.CRTime>=''
|
007E12EF 6810167E00 push $007E1610
007E12F4 8B45FC mov eax, [ebp-$04]
* Reference to control Label9 : TLabel
|
007E12F7 8B8054030000 mov eax, [eax+$0354]
007E12FD FFB014020000 push dword ptr [eax+$0214]
007E1303 FFB010020000 push dword ptr [eax+$0210]
007E1309 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: 'yyyy-MM-dd'
|
007E130C B82C167E00 mov eax, $007E162C
|
007E1311 E8A6D8C2FF call 0040EBBC
007E1316 FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: '' '
|
007E1319 6840167E00 push $007E1640
007E131E 8D45F8 lea eax, [ebp-$08]
007E1321 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E1326 E88943C2FF call 004056B4
007E132B 8B45F8 mov eax, [ebp-$08]
007E132E 50 push eax
007E132F 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;
|
007E1331 E876CCCFFF call 004DDFAC
007E1336 5A pop edx
007E1337 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E1339 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' and A.CRTime<''
|
007E133C 684C167E00 push $007E164C
007E1341 8B45FC mov eax, [ebp-$04]
* Reference to control ConPerson1 : N.A.
|
007E1344 8B8058030000 mov eax, [eax+$0358]
007E134A DD8010020000 fld qword ptr [eax+$0210]
007E1350 D8055C167E00 fadd dword ptr [$007E165C]
007E1356 83C4F8 add esp, -$08
007E1359 DD1C24 fstp qword ptr [esp]
007E135C 9B wait
007E135D 8D55EC lea edx, [ebp-$14]
* Possible String Reference to: 'yyyy-MM-dd'
|
007E1360 B82C167E00 mov eax, $007E162C
|
007E1365 E852D8C2FF call 0040EBBC
007E136A FF75EC push dword ptr [ebp-$14]
* Possible String Reference to: '' '
|
007E136D 6840167E00 push $007E1640
007E1372 8D45F0 lea eax, [ebp-$10]
007E1375 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E137A E83543C2FF call 004056B4
007E137F 8B45F0 mov eax, [ebp-$10]
007E1382 50 push eax
007E1383 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;
|
007E1385 E822CCCFFF call 004DDFAC
007E138A 5A pop edx
007E138B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E138D FF5138 call dword ptr [ecx+$38]
007E1390 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;
|
007E1392 E815CCCFFF call 004DDFAC
* Possible String Reference to: ' and A.CRType='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
007E1397 BA68167E00 mov edx, $007E1668
007E139C 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E139E FF5138 call dword ptr [ecx+$38]
007E13A1 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;
|
007E13A3 E804CCCFFF call 004DDFAC
* Possible String Reference to: ' and isnull(A.FeeType,'')<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
| <20>''
|
007E13A8 BA8C167E00 mov edx, $007E168C
007E13AD 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E13AF FF5138 call dword ptr [ecx+$38]
007E13B2 8B45FC mov eax, [ebp-$04]
* Reference to control SYRAddress : N.A.
|
007E13B5 8B80B4030000 mov eax, [eax+$03B4]
* Reference to control ADOTemp : N.A.
|
007E13BB 83B83C03000003 cmp dword ptr [eax+$033C], +$03
007E13C2 7D42 jnl 007E1406
* Possible String Reference to: ' and A.status=''
|
007E13C4 68BC167E00 push $007E16BC
007E13C9 8D55E4 lea edx, [ebp-$1C]
007E13CC 8B45FC mov eax, [ebp-$04]
* Reference to control SYRAddress : N.A.
|
007E13CF 8B80B4030000 mov eax, [eax+$03B4]
* Reference to control ADOTemp : N.A.
|
007E13D5 8B803C030000 mov eax, [eax+$033C]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
007E13DB E82C9BC2FF call 0040AF0C
007E13E0 FF75E4 push dword ptr [ebp-$1C]
* Possible String Reference to: '' '
|
007E13E3 6840167E00 push $007E1640
007E13E8 8D45E8 lea eax, [ebp-$18]
007E13EB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E13F0 E8BF42C2FF call 004056B4
007E13F5 8B45E8 mov eax, [ebp-$18]
007E13F8 50 push eax
007E13F9 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;
|
007E13FB E8ACCBCFFF call 004DDFAC
007E1400 5A pop edx
007E1401 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E1403 FF5138 call dword ptr [ecx+$38]
007E1406 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007E1408 E8BB44CEFF call 004C58C8
007E140D 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
007E1410 8B9064030000 mov edx, [eax+$0364]
007E1416 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
007E1419 8B801C030000 mov eax, [eax+$031C]
|
007E141F E86C5AFDFF call 007B6E90
007E1424 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
007E1427 8B9064030000 mov edx, [eax+$0364]
007E142D 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
007E1430 8B801C030000 mov eax, [eax+$031C]
|
007E1436 E8DD5BFDFF call 007B7018
007E143B 8B45FC mov eax, [ebp-$04]
* Reference to control Label29 : N.A.
|
007E143E 8B80F4030000 mov eax, [eax+$03F4]
007E1444 BAD4167E00 mov edx, $007E16D4
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E1449 E8D271CAFF call 00488620
007E144E 8B45FC mov eax, [ebp-$04]
* Reference to control KHConNo : N.A.
|
007E1451 8B80F8030000 mov eax, [eax+$03F8]
007E1457 BAD4167E00 mov edx, $007E16D4
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E145C E8BF71CAFF call 00488620
007E1461 8B45FC mov eax, [ebp-$04]
* Reference to control CustomerNo : N.A.
|
007E1464 8B803C040000 mov eax, [eax+$043C]
007E146A BAD4167E00 mov edx, $007E16D4
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007E146F E8AC71CAFF call 00488620
007E1474 33C0 xor eax, eax
007E1476 5A pop edx
007E1477 59 pop ecx
007E1478 59 pop ecx
007E1479 648910 mov fs:[eax], edx
****** FINALLY
|
007E147C 68A9147E00 push $007E14A9
007E1481 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
007E1484 8B801C030000 mov eax, [eax+$031C]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007E148A E8E560CEFF call 004C7574
007E148F 8B45FC mov eax, [ebp-$04]
* Reference to control DlyDate : N.A.
|
007E1492 8B8014030000 mov eax, [eax+$0314]
007E1498 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
007E149C E8B330C2FF call 00404554
007E14A1 C3 ret
* Reference to: System.@HandleFinally;
|
007E14A2 E94D36C2FF jmp 00404AF4
007E14A7 EBD8 jmp 007E1481
****** END
|
007E14A9 33C0 xor eax, eax
007E14AB 5A pop edx
007E14AC 59 pop ecx
007E14AD 59 pop ecx
007E14AE 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007E14B1 68CB147E00 push $007E14CB
007E14B6 8D45E4 lea eax, [ebp-$1C]
007E14B9 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E14BE E8853EC2FF call 00405348
007E14C3 C3 ret
*)
end;
procedure TfrmYFCR._PROC_007E14C4(Sender : TObject);
begin
(*
* Reference to: System.@HandleFinally;
|
007E14C4 E92B36C2FF jmp 00404AF4
|
007E14C9 EBEB jmp 007E14B6
007E14CB 5E pop esi
007E14CC 5B pop ebx
007E14CD 8BE5 mov esp, ebp
007E14CF 5D pop ebp
007E14D0 C3 ret
*)
end;
procedure TfrmYFCR._PROC_007E1DE5(Sender : TObject);
begin
(*
007E1DE5 8BEC mov ebp, esp
007E1DE7 B930000000 mov ecx, $00000030
007E1DEC 6A00 push $00
007E1DEE 6A00 push $00
007E1DF0 49 dec ecx
007E1DF1 75F9 jnz 007E1DEC
007E1DF3 51 push ecx
007E1DF4 53 push ebx
007E1DF5 56 push esi
007E1DF6 57 push edi
007E1DF7 8945FC mov [ebp-$04], eax
007E1DFA 33C0 xor eax, eax
007E1DFC 55 push ebp
007E1DFD 6845267E00 push $007E2645
***** TRY
|
007E1E02 64FF30 push dword ptr fs:[eax]
007E1E05 648920 mov fs:[eax], esp
007E1E08 33C0 xor eax, eax
007E1E0A 55 push ebp
007E1E0B 68D9247E00 push $007E24D9
***** TRY
|
007E1E10 64FF30 push dword ptr fs:[eax]
007E1E13 648920 mov fs:[eax], esp
007E1E16 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E1E19 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007E1E1F E808A0CFFF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
007E1E24 E86B04CFFF call 004D2294
* Possible String Reference to: 'YF_Money_CR'
|
007E1E29 6860267E00 push $007E2660
007E1E2E 6A04 push $04
007E1E30 6A01 push $01
007E1E32 8D55F8 lea edx, [ebp-$08]
007E1E35 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E1E38 8B800C030000 mov eax, [eax+$030C]
* Possible String Reference to: 'YF'
|
007E1E3E B974267E00 mov ecx, $007E2674
* Reference to : TfrmSelExportField._PROC_007B7708()
|
007E1E43 E8C058FDFF call 007B7708
007E1E48 84C0 test al, al
007E1E4A 753A jnz 007E1E86
007E1E4C 33DB xor ebx, ebx
007E1E4E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR.ADOQueryCmd : TADOQuery
|
007E1E51 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007E1E57 E8D09FCFFF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
007E1E5C E87F04CFFF call 004D22E0
007E1E61 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E1E63 B978267E00 mov ecx, $007E2678
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
007E1E68 BA80267E00 mov edx, $007E2680
*)
end;
procedure TfrmYFCR._PROC_007E2701(Sender : TObject);
begin
(*
007E2701 7064 jo 007E2767
007E2703 61 popa
007E2704 7465 jz 007E276B
007E2706 205946 and [ecx+$46], bl
007E2709 5F pop edi
007E270A 4D dec ebp
007E270B 6F outsd
007E270C 6E outsb
007E270D 65795F jns 007E276F
007E2710 43 inc ebx
007E2711 52 push edx
007E2712 49 dec ecx
007E2713 44 inc esp
007E2714 207365 and [ebx+$65], dh
007E2717 7420 jz 007E2739
007E2719 43 inc ebx
007E271A 52 push edx
007E271B 49 dec ecx
007E271C 44 inc esp
007E271D 3D43524944 cmp eax, $44495243
007E2722 2B31 sub esi, dword ptr [ecx]
007E2724 0000 add [eax], al
007E2726 0000 add [eax], al
007E2728 FFFF DB $FF, $FF //
007E272A FFFF DB $FF, $FF //
007E272C 1C00 sbb al, $00
007E272E 0000 add [eax], al
007E2730 7365 jnb 007E2797
007E2732 6C insb
007E2733 656374202A arpl gs:[eax+$2A], si
007E2738 206672 and [esi+$72], ah
007E273B 6F outsd
007E273C 6D insd
007E273D 205946 and [ecx+$46], bl
007E2740 5F pop edi
007E2741 4D dec ebp
007E2742 6F outsd
007E2743 6E outsb
007E2744 65795F jns 007E27A6
007E2747 43 inc ebx
007E2748 52 push edx
007E2749 49 dec ecx
007E274A 44 inc esp
007E274B 2000 and [eax], al
007E274D 0000 add [eax], al
007E274F 00FF add bh, bh
007E2751 FFFF DB $FF, $FF //
007E2753 FF2400 jmp dword ptr [eax+eax]
007E2756 0000 add [eax], al
007E2758 7365 jnb 007E27BF
007E275A 6C insb
007E275B 656374202A arpl gs:[eax+$2A], si
007E2760 206672 and [esi+$72], ah
007E2763 6F outsd
007E2764 6D insd
007E2765 205946 and [ecx+$46], bl
007E2768 5F pop edi
007E2769 4D dec ebp
007E276A 6F outsd
007E276B 6E outsb
007E276C 65795F jns 007E27CE
007E276F 4B dec ebx
007E2770 43 inc ebx
007E2771 207768 and [edi+$68], dh
007E2774 657265 jb 007E27DC
007E2777 2031 and [ecx], dh
007E2779 3C3E cmp al, $3E
007E277B 3100 xor [eax], eax
007E277D 0000 add [eax], al
007E277F 00FF add bh, bh
007E2781 FFFF DB $FF, $FF //
007E2783 FF09 dec dword ptr [ecx]
007E2785 0000 add [eax], al
007E2787 004661 add [esi+$61], al
007E278A 63746F72 arpl [edi+ebp*2+$72], si
007E278E 794E jns 007E27DE
007E2790 6F outsd
007E2791 0000 add [eax], al
007E2793 00FF add bh, bh
007E2795 FFFF DB $FF, $FF //
007E2797 FF07 inc dword ptr [edi]
007E2799 0000 add [eax], al
007E279B 005A64 add [edx+$64], bl
007E279E 7953 jns 007E27F3
007E27A0 7472 jz 007E2814
007E27A2 3100 xor [eax], eax
007E27A4 FFFF DB $FF, $FF //
007E27A6 FFFF DB $FF, $FF //
007E27A8 06 push es
007E27A9 0000 add [eax], al
007E27AB 00D3 add bl, dl
007E27AD A6 cmpsb
007E27AE B8B6B8B600 mov eax, $00B6B8B6
007E27B3 00FF add bh, bh
007E27B5 FFFF DB $FF, $FF //
007E27B7 FF23 jmp dword ptr [ebx]
007E27B9 0000 add [eax], al
007E27BB 007365 add [ebx+$65], dh
007E27BE 6C insb
007E27BF 656374202A arpl gs:[eax+$2A], si
007E27C4 206672 and [esi+$72], ah
007E27C7 6F outsd
007E27C8 6D insd
007E27C9 205946 and [ecx+$46], bl
007E27CC 5F pop edi
007E27CD 4D dec ebp
007E27CE 6F outsd
007E27CF 6E outsb
007E27D0 65795F jns 007E2832
007E27D3 43 inc ebx
007E27D4 52 push edx
007E27D5 207768 and [edi+$68], dh
007E27D8 657265 jb 007E2840
007E27DB 2031 and [ecx], dh
007E27DD 3D3200FFFF cmp eax, $FFFF0032
007E27E2 FFFF DB $FF, $FF //
007E27E4 0400 add al, +$00
007E27E6 0000 add [eax], al
007E27E8 59 pop ecx
007E27E9 46 inc esi
007E27EA 49 dec ecx
007E27EB 44 inc esp
007E27EC 0000 add [eax], al
007E27EE 0000 add [eax], al
007E27F0 FFFF DB $FF, $FF //
007E27F2 FFFF DB $FF, $FF //
007E27F4 06 push es
007E27F5 0000 add [eax], al
007E27F7 004669 add [esi+$69], al
007E27FA 6C insb
007E27FB 6C insb
007E27FC 657200 jb 007E27FF
007E27FF 00FF add bh, bh
007E2801 FFFF DB $FF, $FF //
007E2803 FF06 inc dword ptr [esi]
007E2805 0000 add [eax], al
007E2807 004352 add [ebx+$52], al
007E280A 54 push esp
007E280B 7970 jns 007E287D
007E280D 650000 add gs:[eax], al
007E2810 FFFF DB $FF, $FF //
007E2812 FFFF DB $FF, $FF //
007E2814 0A00 or al, byte ptr [eax]
007E2816 0000 add [eax], al
007E2818 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
007E281E B5C7 mov ch, $C7
007E2820 BCC70000FF mov esp, $FF0000C7
007E2825 FFFF DB $FF, $FF //
007E2827 FF06 inc dword ptr [esi]
007E2829 0000 add [eax], al
007E282B 004352 add [ebx+$52], al
007E282E 46 inc esi
007E282F 6C insb
007E2830 61 popa
007E2831 670000 add [bx+si], al
007E2834 FFFF DB $FF, $FF //
007E2836 FFFF DB $FF, $FF //
007E2838 07 pop es
007E2839 0000 add [eax], al
007E283B 005174 add [ecx+$74], dl
007E283E 7946 jns 007E2886
007E2840 6C insb
007E2841 61 popa
007E2842 6700FF add bh, bh
007E2845 FFFF DB $FF, $FF //
007E2847 FF0500000048 inc dword ptr [$48000000]
007E284D 7569 jnz 007E28B8
007E284F 4C dec esp
007E2850 7600 jbe 007E2852
007E2852 0000 add [eax], al
007E2854 FFFF DB $FF, $FF //
007E2856 FFFF DB $FF, $FF //
007E2858 06 push es
007E2859 0000 add [eax], al
007E285B 004352 add [ebx+$52], al
007E285E 54 push esp
007E285F 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
007E2866 FFFF DB $FF, $FF //
007E2868 0A00 or al, byte ptr [eax]
007E286A 0000 add [eax], al
007E286C 7979 jns 007E28E7
007E286E 7979 jns 007E28E9
007E2870 2D4D4D2D64 sub eax, $642D4D4D
007E2875 640000 add fs:[eax], al
007E2878 FFFF DB $FF, $FF //
007E287A FFFF DB $FF, $FF //
007E287C 06 push es
007E287D 0000 add [eax], al
007E287F 007374 add [ebx+$74], dh
007E2882 61 popa
007E2883 7475 jz 007E28FA
007E2885 7300 jnb 007E2887
007E2887 00FF add bh, bh
007E2889 FFFF DB $FF, $FF //
007E288B FF06 inc dword ptr [esi]
007E288D 0000 add [eax], al
007E288F 00425A add [edx+$5A], al
007E2892 54 push esp
007E2893 7970 jns 007E2905
007E2895 650000 add gs:[eax], al
007E2898 FFFF DB $FF, $FF //
007E289A FFFF DB $FF, $FF //
007E289C 0200 add al, byte ptr [eax]
007E289E 0000 add [eax], al
007E28A0 A3A40000FF mov dword ptr [$FF0000A4], eax
007E28A5 FFFF DB $FF, $FF //
007E28A7 FF06 inc dword ptr [esi]
007E28A9 0000 add [eax], al
007E28AB 004B50 add [ebx+$50], cl
007E28AE 54 push esp
007E28AF 7970 jns 007E2921
007E28B1 650000 add gs:[eax], al
007E28B4 FFFF DB $FF, $FF //
007E28B6 FFFF DB $FF, $FF //
007E28B8 0400 add al, +$00
007E28BA 0000 add [eax], al
007E28BC 59 pop ecx
007E28BD 46 inc esi
007E28BE 49 dec ecx
007E28BF 640000 add fs:[eax], al
007E28C2 0000 add [eax], al
007E28C4 D4 aam
007E28C5 F6D0 not al
007E28C7 D0CA ror dl, 1
007E28C9 A7 cmpsd
007E28CA B0DC mov al, $DC
007E28CC 2100 and [eax], eax
007E28CE 0000 add [eax], al
007E28D0 55 push ebp
007E28D1 8BEC mov ebp, esp
007E28D3 B908000000 mov ecx, $00000008
007E28D8 6A00 push $00
007E28DA 6A00 push $00
007E28DC 49 dec ecx
007E28DD 75F9 jnz 007E28D8
007E28DF 51 push ecx
007E28E0 53 push ebx
007E28E1 56 push esi
007E28E2 8BDA mov ebx, edx
007E28E4 8BF0 mov esi, eax
007E28E6 33C0 xor eax, eax
007E28E8 55 push ebp
007E28E9 68DE2A7E00 push $007E2ADE
***** TRY
|
007E28EE 64FF30 push dword ptr fs:[eax]
007E28F1 648920 mov fs:[eax], esp
007E28F4 8D55FC lea edx, [ebp-$04]
007E28F7 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;
|
007E28F9 E8BECDDAFF call 0058F6BC
* Reference to control v1PRTPrice : N.A.
|
007E28FE 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E2904 E8439AE7FF 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;
|
007E2909 E856F2E6FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007E290E 8B4050 mov eax, [eax+$50]
007E2911 8D55F4 lea edx, [ebp-$0C]
007E2914 8B08 mov ecx, [eax]
007E2916 FF5110 call dword ptr [ecx+$10]
007E2919 8B45F4 mov eax, [ebp-$0C]
007E291C 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E291F E8C87FC2FF call 0040A8EC
* Reference to control Label11 : TLabel
|
007E2924 8B9E64030000 mov ebx, [esi+$0364]
007E292A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E292C E80F5BCEFF call 004C8440
007E2931 8D55E0 lea edx, [ebp-$20]
007E2934 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2937 E8B07FC2FF call 0040A8EC
007E293C 8B55E0 mov edx, [ebp-$20]
007E293F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E2942 E88164C3FF call 00418DC8
007E2947 8D45E4 lea eax, [ebp-$1C]
007E294A 50 push eax
007E294B 8B55F8 mov edx, [ebp-$08]
007E294E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2950 E85F42CEFF call 004C6BB4
007E2955 5A pop edx
007E2956 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E2958 FF91B4000000 call dword ptr [ecx+$00B4]
007E295E 8BC3 mov eax, ebx
007E2960 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
007E2962 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
007E2968 8B9E0C030000 mov ebx, [esi+$030C]
007E296E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E2970 E85F2FCEFF call 004C58D4
007E2975 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;
|
007E2977 E830B6CFFF call 004DDFAC
007E297C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007E297E FF5244 call dword ptr [edx+$44]
007E2981 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;
|
007E2983 E824B6CFFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
007E2988 BAF42A7E00 mov edx, $007E2AF4
007E298D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E298F FF5138 call dword ptr [ecx+$38]
007E2992 8D55DC lea edx, [ebp-$24]
007E2995 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2998 E84F7FC2FF call 0040A8EC
007E299D 837DDC00 cmp dword ptr [ebp-$24], +$00
007E29A1 7440 jz 007E29E3
* Possible String Reference to: ' Set '
|
007E29A3 68102B7E00 push $007E2B10
007E29A8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007E29AB 68202B7E00 push $007E2B20
007E29B0 8D55D4 lea edx, [ebp-$2C]
007E29B3 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E29B6 E8317FC2FF call 0040A8EC
007E29BB FF75D4 push dword ptr [ebp-$2C]
007E29BE 682C2B7E00 push $007E2B2C
007E29C3 8D45D8 lea eax, [ebp-$28]
007E29C6 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007E29CB E8E42CC2FF call 004056B4
007E29D0 8B45D8 mov eax, [ebp-$28]
007E29D3 50 push eax
007E29D4 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;
|
007E29D6 E8D1B5CFFF call 004DDFAC
007E29DB 5A pop edx
007E29DC 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E29DE FF5138 call dword ptr [ecx+$38]
007E29E1 EB2B jmp 007E2A0E
007E29E3 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;
|
007E29E5 E8C2B5CFFF call 004DDFAC
007E29EA 50 push eax
* Possible String Reference to: ' Set '
|
007E29EB 68102B7E00 push $007E2B10
007E29F0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
007E29F3 68382B7E00 push $007E2B38
007E29F8 8D45D0 lea eax, [ebp-$30]
007E29FB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E2A00 E8AF2CC2FF call 004056B4
007E2A05 8B55D0 mov edx, [ebp-$30]
007E2A08 58 pop eax
007E2A09 8B08 mov ecx, [eax]
007E2A0B FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007E2A0E 68482B7E00 push $007E2B48
007E2A13 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFCR._PROC_007E2AF5(Sender : TObject);
begin
(*
007E2AF5 50 push eax
007E2AF6 6461 popa
007E2AF8 7465 jz 007E2B5F
007E2AFA 205943 and [ecx+$43], bl
007E2AFD 4C dec esp
007E2AFE 5F pop edi
007E2AFF 53 push ebx
007E2B00 47 inc edi
007E2B01 5F pop edi
007E2B02 48 dec eax
007E2B03 5A pop edx
007E2B04 2000 and [eax], al
007E2B06 0000 add [eax], al
007E2B08 FFFF DB $FF, $FF //
007E2B0A FFFF DB $FF, $FF //
007E2B0C 0500000020 add eax, +$20000000
007E2B11 53 push ebx
007E2B12 657420 jz 007E2B35
007E2B15 0000 add [eax], al
007E2B17 00FF add bh, bh
007E2B19 FFFF DB $FF, $FF //
007E2B1B FF02 inc dword ptr [edx]
007E2B1D 0000 add [eax], al
007E2B1F 003D270000FF add [$FF000027], bh
007E2B25 FFFF DB $FF, $FF //
007E2B27 FF01 inc dword ptr [ecx]
007E2B29 0000 add [eax], al
007E2B2B 0027 add [edi], ah
007E2B2D 0000 add [eax], al
007E2B2F 00FF add bh, bh
007E2B31 FFFF DB $FF, $FF //
007E2B33 FF050000003D inc dword ptr [$3D000000]
007E2B39 4E dec esi
007E2B3A 55 push ebp
007E2B3B 4C dec esp
007E2B3C 4C dec esp
007E2B3D 0000 add [eax], al
007E2B3F 00FF add bh, bh
007E2B41 FFFF DB $FF, $FF //
007E2B43 FF09 dec dword ptr [ecx]
007E2B45 0000 add [eax], al
007E2B47 002C4564697465 add [$65746964+eax*2], ch
007E2B4E 723D jb 007E2B8D
007E2B50 27 daa
007E2B51 0000 add [eax], al
007E2B53 00FF add bh, bh
007E2B55 FFFF DB $FF, $FF //
007E2B57 FF1400 call dword ptr [eax+eax]
007E2B5A 0000 add [eax], al
007E2B5C 2C45 sub al, $45
007E2B5E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E2B67 657464 jz 007E2BCE
007E2B6A 61 popa
007E2B6B 7465 jz 007E2BD2
007E2B6D 2829 sub [ecx], ch
007E2B6F 2000 and [eax], al
007E2B71 0000 add [eax], al
007E2B73 00FF add bh, bh
007E2B75 FFFF DB $FF, $FF //
007E2B77 FF0E dec dword ptr [esi]
007E2B79 0000 add [eax], al
007E2B7B 0020 add [eax], ah
007E2B7D 7768 jnbe 007E2BE7
007E2B7F 657265 jb 007E2BE7
007E2B82 205375 and [ebx+$75], dl
007E2B85 624964 bound ecx, qword ptr [ecx+$64]
007E2B88 3D270000FF cmp eax, $FF000027
007E2B8D FFFF DB $FF, $FF //
007E2B8F FF0500000053 inc dword ptr [$53000000]
007E2B95 7562 jnz 007E2BF9
007E2B97 49 dec ecx
007E2B98 640000 add fs:[eax], al
007E2B9B 00558B add [ebp-$75], dl
007E2B9E EC in al, dx
007E2B9F B921000000 mov ecx, $00000021
007E2BA4 6A00 push $00
007E2BA6 6A00 push $00
007E2BA8 49 dec ecx
007E2BA9 75F9 jnz 007E2BA4
007E2BAB 51 push ecx
007E2BAC 53 push ebx
007E2BAD 56 push esi
007E2BAE 8BF2 mov esi, edx
007E2BB0 8BD8 mov ebx, eax
007E2BB2 33C0 xor eax, eax
007E2BB4 55 push ebp
007E2BB5 683A337E00 push $007E333A
***** TRY
|
007E2BBA 64FF30 push dword ptr fs:[eax]
007E2BBD 648920 mov fs:[eax], esp
007E2BC0 8D55FC lea edx, [ebp-$04]
007E2BC3 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;
|
007E2BC5 E8F2CADAFF call 0058F6BC
007E2BCA 8D55DC lea edx, [ebp-$24]
007E2BCD 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2BD0 E8177DC2FF call 0040A8EC
007E2BD5 837DDC00 cmp dword ptr [ebp-$24], +$00
007E2BD9 750D jnz 007E2BE8
007E2BDB 8D45FC lea eax, [ebp-$04]
007E2BDE BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2BE3 E8D427C2FF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
007E2BE8 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E2BEE E85997E7FF 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;
|
007E2BF3 E86CEFE6FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007E2BF8 8B4050 mov eax, [eax+$50]
007E2BFB 8D55D8 lea edx, [ebp-$28]
007E2BFE 8B08 mov ecx, [eax]
007E2C00 FF5110 call dword ptr [ecx+$10]
007E2C03 8B45D8 mov eax, [ebp-$28]
007E2C06 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C09 E8DE7CC2FF call 0040A8EC
* Reference to control Label11 : TLabel
|
007E2C0E 8BB364030000 mov esi, [ebx+$0364]
007E2C14 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E2C16 E82558CEFF call 004C8440
007E2C1B 8D55C4 lea edx, [ebp-$3C]
007E2C1E 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C21 E8C67CC2FF call 0040A8EC
007E2C26 8B55C4 mov edx, [ebp-$3C]
007E2C29 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E2C2C E89761C3FF call 00418DC8
007E2C31 8D45C8 lea eax, [ebp-$38]
007E2C34 50 push eax
007E2C35 8B55E0 mov edx, [ebp-$20]
007E2C38 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2C3A E8753FCEFF call 004C6BB4
007E2C3F 5A pop edx
007E2C40 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E2C42 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'HuiLv'
|
007E2C48 BA5C337E00 mov edx, $007E335C
007E2C4D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2C4F E8603FCEFF call 004C6BB4
007E2C54 50 push eax
007E2C55 8D45B4 lea eax, [ebp-$4C]
007E2C58 BA01000000 mov edx, $00000001
007E2C5D B101 mov cl, $01
|
007E2C5F E8105FC3FF call 00418B74
007E2C64 8D55B4 lea edx, [ebp-$4C]
007E2C67 58 pop eax
007E2C68 8B08 mov ecx, [eax]
007E2C6A FF91B4000000 call dword ptr [ecx+$00B4]
007E2C70 8D55B0 lea edx, [ebp-$50]
007E2C73 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C76 E8717CC2FF call 0040A8EC
007E2C7B 8B45B0 mov eax, [ebp-$50]
* Possible String Reference to: 'MaoQty'
|
007E2C7E BA6C337E00 mov edx, $007E336C
* Reference to: System.@LStrCmp;
|
007E2C83 E8B82AC2FF call 00405740
007E2C88 7524 jnz 007E2CAE
007E2C8A 8D55AC lea edx, [ebp-$54]
007E2C8D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2C90 E8577CC2FF call 0040A8EC
007E2C95 8B45AC mov eax, [ebp-$54]
007E2C98 50 push eax
* Possible String Reference to: 'Qty'
|
007E2C99 BA7C337E00 mov edx, $007E337C
007E2C9E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2CA0 E80F3FCEFF call 004C6BB4
007E2CA5 5A pop edx
007E2CA6 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B0
|
007E2CA8 FF91B0000000 call dword ptr [ecx+$00B0]
007E2CAE 8BC6 mov eax, esi
007E2CB0 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
007E2CB2 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
007E2CB8 8BB308030000 mov esi, [ebx+$0308]
007E2CBE 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E2CC0 E80F2CCEFF call 004C58D4
007E2CC5 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007E2CC7 E8E0B2CFFF call 004DDFAC
007E2CCC 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
007E2CCE FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
007E2CD1 6888337E00 push $007E3388
* Possible String Reference to: 'YFID'
|
007E2CD6 BAD0337E00 mov edx, $007E33D0
* Reference to control Label11 : TLabel
|
007E2CDB 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2CE1 E8CE3ECEFF call 004C6BB4
007E2CE6 8D55A4 lea edx, [ebp-$5C]
007E2CE9 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2CEB FF5160 call dword ptr [ecx+$60]
007E2CEE FF75A4 push dword ptr [ebp-$5C]
007E2CF1 68E0337E00 push $007E33E0
007E2CF6 8D45A8 lea eax, [ebp-$58]
007E2CF9 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E2CFE E8B129C2FF call 004056B4
007E2D03 8B45A8 mov eax, [ebp-$58]
007E2D06 50 push eax
007E2D07 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
007E2D09 E89EB2CFFF call 004DDFAC
007E2D0E 5A pop edx
007E2D0F 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007E2D11 FF5138 call dword ptr [ecx+$38]
007E2D14 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007E2D16 E8AD2BCEFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
007E2D1B BAEC337E00 mov edx, $007E33EC
* Reference to control Label3 : TLabel
|
007E2D20 8B8308030000 mov eax, [ebx+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2D26 E8893ECEFF call 004C6BB4
007E2D2B 8D55E4 lea edx, [ebp-$1C]
007E2D2E 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2D30 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
007E2D33 BA7C337E00 mov edx, $007E337C
* Reference to control Label11 : TLabel
|
007E2D38 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2D3E E8713ECEFF call 004C6BB4
007E2D43 8D55A0 lea edx, [ebp-$60]
007E2D46 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2D48 FF5160 call dword ptr [ecx+$60]
007E2D4B 8B45A0 mov eax, [ebp-$60]
007E2D4E 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D51 E8967BC2FF call 0040A8EC
007E2D56 8D559C lea edx, [ebp-$64]
007E2D59 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D5C E88B7BC2FF call 0040A8EC
007E2D61 837D9C00 cmp dword ptr [ebp-$64], +$00
007E2D65 750D jnz 007E2D74
007E2D67 8D45F8 lea eax, [ebp-$08]
007E2D6A BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2D6F E84826C2FF call 004053BC
* Possible String Reference to: 'Price'
|
007E2D74 BAFC337E00 mov edx, $007E33FC
* Reference to control Label11 : TLabel
|
007E2D79 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2D7F E8303ECEFF call 004C6BB4
007E2D84 8D5598 lea edx, [ebp-$68]
007E2D87 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2D89 FF5160 call dword ptr [ecx+$60]
007E2D8C 8B4598 mov eax, [ebp-$68]
007E2D8F 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D92 E8557BC2FF call 0040A8EC
007E2D97 8D5594 lea edx, [ebp-$6C]
007E2D9A 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2D9D E84A7BC2FF call 0040A8EC
007E2DA2 837D9400 cmp dword ptr [ebp-$6C], +$00
007E2DA6 750D jnz 007E2DB5
007E2DA8 8D45F4 lea eax, [ebp-$0C]
007E2DAB BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2DB0 E80726C2FF call 004053BC
* Possible String Reference to: 'Qty'
|
007E2DB5 BA7C337E00 mov edx, $007E337C
* Reference to control Label11 : TLabel
|
007E2DBA 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2DC0 E8EF3DCEFF call 004C6BB4
007E2DC5 8D5590 lea edx, [ebp-$70]
007E2DC8 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2DCA FF5160 call dword ptr [ecx+$60]
007E2DCD 8B4590 mov eax, [ebp-$70]
007E2DD0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2DD3 E8147BC2FF call 0040A8EC
007E2DD8 8D558C lea edx, [ebp-$74]
007E2DDB 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2DDE E8097BC2FF call 0040A8EC
007E2DE3 837D8C00 cmp dword ptr [ebp-$74], +$00
007E2DE7 750D jnz 007E2DF6
007E2DE9 8D45F8 lea eax, [ebp-$08]
007E2DEC BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2DF1 E8C625C2FF call 004053BC
* Possible String Reference to: 'Money'
|
007E2DF6 BA0C347E00 mov edx, $007E340C
* Reference to control Label11 : TLabel
|
007E2DFB 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2E01 E8AE3DCEFF call 004C6BB4
007E2E06 8D5588 lea edx, [ebp-$78]
007E2E09 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2E0B FF5160 call dword ptr [ecx+$60]
007E2E0E 8B4588 mov eax, [ebp-$78]
007E2E11 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E14 E8D37AC2FF call 0040A8EC
007E2E19 8D5584 lea edx, [ebp-$7C]
007E2E1C 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E1F E8C87AC2FF call 0040A8EC
007E2E24 837D8400 cmp dword ptr [ebp-$7C], +$00
007E2E28 750D jnz 007E2E37
007E2E2A 8D45F0 lea eax, [ebp-$10]
007E2E2D BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2E32 E88525C2FF call 004053BC
* Possible String Reference to: 'HuiLv'
|
007E2E37 BA5C337E00 mov edx, $007E335C
* Reference to control Label11 : TLabel
|
007E2E3C 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2E42 E86D3DCEFF call 004C6BB4
007E2E47 8D5580 lea edx, [ebp-$80]
007E2E4A 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E2E4C FF5160 call dword ptr [ecx+$60]
007E2E4F 8B4580 mov eax, [ebp-$80]
007E2E52 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E55 E8927AC2FF call 0040A8EC
007E2E5A 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]
007E2E60 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E63 E8847AC2FF call 0040A8EC
007E2E68 83BD7CFFFFFF00 cmp dword ptr [ebp+$FFFFFF7C], +$00
007E2E6F 750D jnz 007E2E7E
007E2E71 8D45EC lea eax, [ebp-$14]
007E2E74 BA50337E00 mov edx, $007E3350
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E2E79 E83E25C2FF call 004053BC
007E2E7E 8D9578FFFFFF lea edx, [ebp+$FFFFFF78]
007E2E84 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2E87 E8607AC2FF call 0040A8EC
007E2E8C 8B8578FFFFFF mov eax, [ebp+$FFFFFF78]
* Possible String Reference to: 'Money'
|
007E2E92 BA0C347E00 mov edx, $007E340C
* Reference to: System.@LStrCmp;
|
007E2E97 E8A428C2FF call 00405740
007E2E9C 0F84C5000000 jz 007E2F67
007E2EA2 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
007E2EA8 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E2EAB E83C7AC2FF call 0040A8EC
007E2EB0 8B8574FFFFFF mov eax, [ebp+$FFFFFF74]
* Possible String Reference to: 'HuiLv'
|
007E2EB6 BA5C337E00 mov edx, $007E335C
* Reference to: System.@LStrCmp;
|
007E2EBB E88028C2FF call 00405740
007E2EC0 7475 jz 007E2F37
007E2EC2 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2EC5 E862A8C2FF call 0040D72C
007E2ECA DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2ED0 9B wait
007E2ED1 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2ED4 E853A8C2FF call 0040D72C
007E2ED9 DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2EDF DEC9 fmulp st(1), st(0)
007E2EE1 DBBD5CFFFFFF fstp tbyte ptr [ebp+$FFFFFF5C]
007E2EE7 9B wait
007E2EE8 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2EEB E83CA8C2FF call 0040D72C
007E2EF0 DBAD5CFFFFFF fld tbyte ptr [ebp+$FFFFFF5C]
007E2EF6 DEC9 fmulp st(1), st(0)
007E2EF8 83C4F4 add esp, -$0C
007E2EFB DB3C24 fstp tbyte ptr [esp]
007E2EFE 9B wait
007E2EFF 8D45E8 lea eax, [ebp-$18]
|
007E2F02 E8A5A6C2FF call 0040D5AC
007E2F07 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F0A E81DA8C2FF call 0040D72C
007E2F0F DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2F15 9B wait
007E2F16 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F19 E80EA8C2FF call 0040D72C
007E2F1E DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2F24 DEC9 fmulp st(1), st(0)
007E2F26 83C4F4 add esp, -$0C
007E2F29 DB3C24 fstp tbyte ptr [esp]
007E2F2C 9B wait
007E2F2D 8D45F0 lea eax, [ebp-$10]
|
007E2F30 E877A6C2FF call 0040D5AC
007E2F35 EB5E jmp 007E2F95
007E2F37 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F3A E8EDA7C2FF call 0040D72C
007E2F3F DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2F45 9B wait
007E2F46 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F49 E8DEA7C2FF call 0040D72C
007E2F4E DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2F54 DEC9 fmulp st(1), st(0)
007E2F56 83C4F4 add esp, -$0C
007E2F59 DB3C24 fstp tbyte ptr [esp]
007E2F5C 9B wait
007E2F5D 8D45E8 lea eax, [ebp-$18]
|
007E2F60 E847A6C2FF call 0040D5AC
007E2F65 EB2E jmp 007E2F95
007E2F67 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F6A E8BDA7C2FF call 0040D72C
007E2F6F DBBD68FFFFFF fstp tbyte ptr [ebp+$FFFFFF68]
007E2F75 9B wait
007E2F76 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2F79 E8AEA7C2FF call 0040D72C
007E2F7E DBAD68FFFFFF fld tbyte ptr [ebp+$FFFFFF68]
007E2F84 DEC9 fmulp st(1), st(0)
007E2F86 83C4F4 add esp, -$0C
007E2F89 DB3C24 fstp tbyte ptr [esp]
007E2F8C 9B wait
007E2F8D 8D45E8 lea eax, [ebp-$18]
|
007E2F90 E817A6C2FF call 0040D5AC
* Reference to control Label11 : TLabel
|
007E2F95 8BB364030000 mov esi, [ebx+$0364]
007E2F9B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E2F9D E89E54CEFF call 004C8440
* Possible String Reference to: 'Money'
|
007E2FA2 BA0C347E00 mov edx, $007E340C
007E2FA7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2FA9 E8063CCEFF call 004C6BB4
007E2FAE 50 push eax
007E2FAF 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2FB2 E875A7C2FF call 0040D72C
007E2FB7 8D854CFFFFFF lea eax, [ebp+$FFFFFF4C]
* Reference to: Variants.@VarFromReal;
|
007E2FBD E8CA5DC3FF call 00418D8C
007E2FC2 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
007E2FC8 58 pop eax
007E2FC9 8B08 mov ecx, [eax]
007E2FCB FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
007E2FD1 BAEC337E00 mov edx, $007E33EC
007E2FD6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E2FD8 E8D73BCEFF call 004C6BB4
007E2FDD 50 push eax
007E2FDE 8B45E8 mov eax, [ebp-$18]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E2FE1 E846A7C2FF call 0040D72C
007E2FE6 8D853CFFFFFF lea eax, [ebp+$FFFFFF3C]
* Reference to: Variants.@VarFromReal;
|
007E2FEC E89B5DC3FF call 00418D8C
007E2FF1 8D953CFFFFFF lea edx, [ebp+$FFFFFF3C]
007E2FF7 58 pop eax
007E2FF8 8B08 mov ecx, [eax]
007E2FFA FF91B4000000 call dword ptr [ecx+$00B4]
007E3000 8BC6 mov eax, esi
007E3002 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
007E3004 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
007E300A 8BB30C030000 mov esi, [ebx+$030C]
007E3010 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E3012 E8BD28CEFF call 004C58D4
007E3017 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;
|
007E3019 E88EAFCFFF call 004DDFAC
007E301E 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007E3020 FF5244 call dword ptr [edx+$44]
007E3023 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;
|
007E3025 E882AFCFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E302A BA1C347E00 mov edx, $007E341C
007E302F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E3031 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007E3034 6838347E00 push $007E3438
007E3039 FF75E0 push dword ptr [ebp-$20]
007E303C 6848347E00 push $007E3448
007E3041 8D9534FFFFFF lea edx, [ebp+$FFFFFF34]
007E3047 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E304A E89D78C2FF call 0040A8EC
007E304F FFB534FFFFFF push dword ptr [ebp+$FFFFFF34]
007E3055 8D8538FFFFFF lea eax, [ebp+$FFFFFF38]
007E305B BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007E3060 E84F26C2FF call 004056B4
007E3065 8B8538FFFFFF mov eax, [ebp+$FFFFFF38]
007E306B 50 push eax
007E306C 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;
|
007E306E E839AFCFFF call 004DDFAC
007E3073 5A pop edx
007E3074 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E3076 FF5138 call dword ptr [ecx+$38]
007E3079 8D9530FFFFFF lea edx, [ebp+$FFFFFF30]
007E307F 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E3082 E86578C2FF call 0040A8EC
007E3087 8B8530FFFFFF mov eax, [ebp+$FFFFFF30]
* Possible String Reference to: 'Money'
|
007E308D BA0C347E00 mov edx, $007E340C
* Reference to: System.@LStrCmp;
|
007E3092 E8A926C2FF call 00405740
007E3097 7460 jz 007E30F9
* Possible String Reference to: ',Money=''
|
007E3099 6854347E00 push $007E3454
* Possible String Reference to: 'Money'
|
007E309E BA0C347E00 mov edx, $007E340C
* Reference to control Label11 : TLabel
|
007E30A3 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E30A9 E8063BCEFF call 004C6BB4
007E30AE 8D9524FFFFFF lea edx, [ebp+$FFFFFF24]
007E30B4 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E30B6 FF5160 call dword ptr [ecx+$60]
007E30B9 8B8524FFFFFF mov eax, [ebp+$FFFFFF24]
007E30BF 8D9528FFFFFF lea edx, [ebp+$FFFFFF28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E30C5 E82278C2FF call 0040A8EC
007E30CA FFB528FFFFFF push dword ptr [ebp+$FFFFFF28]
007E30D0 68E0337E00 push $007E33E0
007E30D5 8D852CFFFFFF lea eax, [ebp+$FFFFFF2C]
007E30DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E30E0 E8CF25C2FF call 004056B4
007E30E5 8B852CFFFFFF mov eax, [ebp+$FFFFFF2C]
007E30EB 50 push eax
007E30EC 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;
|
007E30EE E8B9AECFFF call 004DDFAC
007E30F3 5A pop edx
007E30F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E30F6 FF5138 call dword ptr [ecx+$38]
007E30F9 8D9520FFFFFF lea edx, [ebp+$FFFFFF20]
007E30FF 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E3102 E8E577C2FF call 0040A8EC
007E3107 8B8520FFFFFF mov eax, [ebp+$FFFFFF20]
* Possible String Reference to: 'MaoQty'
|
007E310D BA6C337E00 mov edx, $007E336C
* Reference to: System.@LStrCmp;
|
007E3112 E82926C2FF call 00405740
007E3117 7527 jnz 007E3140
007E3119 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;
|
007E311B E88CAECFFF call 004DDFAC
007E3120 50 push eax
007E3121 8D851CFFFFFF lea eax, [ebp+$FFFFFF1C]
007E3127 8B4DF8 mov ecx, [ebp-$08]
* Possible String Reference to: ',Qty='
|
007E312A BA68347E00 mov edx, $007E3468
* Reference to: System.@LStrCat3;
|
007E312F E80C25C2FF call 00405640
007E3134 8B951CFFFFFF mov edx, [ebp+$FFFFFF1C]
007E313A 58 pop eax
007E313B 8B08 mov ecx, [eax]
007E313D FF5138 call dword ptr [ecx+$38]
007E3140 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;
|
007E3142 E865AECFFF call 004DDFAC
007E3147 50 push eax
007E3148 8D8518FFFFFF lea eax, [ebp+$FFFFFF18]
007E314E 8B4DE8 mov ecx, [ebp-$18]
* Possible String Reference to: ',BBMoney='
|
007E3151 BA78347E00 mov edx, $007E3478
* Reference to: System.@LStrCat3;
|
007E3156 E8E524C2FF call 00405640
007E315B 8B9518FFFFFF mov edx, [ebp+$FFFFFF18]
007E3161 58 pop eax
007E3162 8B08 mov ecx, [eax]
007E3164 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007E3167 688C347E00 push $007E348C
007E316C 8D9510FFFFFF lea edx, [ebp+$FFFFFF10]
*)
end;
procedure TfrmYFCR._PROC_007E341D(Sender : TObject);
begin
(*
007E341D 50 push eax
007E341E 6461 popa
007E3420 7465 jz 007E3487
007E3422 205946 and [ecx+$46], bl
007E3425 5F pop edi
007E3426 4D dec ebp
007E3427 6F outsd
007E3428 6E outsb
007E3429 65795F jns 007E348B
007E342C 43 inc ebx
007E342D 52 push edx
007E342E 2000 and [eax], al
007E3430 FFFF DB $FF, $FF //
007E3432 FFFF DB $FF, $FF //
007E3434 0500000020 add eax, +$20000000
007E3439 53 push ebx
007E343A 657420 jz 007E345D
007E343D 0000 add [eax], al
007E343F 00FF add bh, bh
007E3441 FFFF DB $FF, $FF //
007E3443 FF01 inc dword ptr [ecx]
007E3445 0000 add [eax], al
007E3447 003D000000FF add [$FF000000], bh
007E344D FFFF DB $FF, $FF //
007E344F FF08 dec dword ptr [eax]
007E3451 0000 add [eax], al
007E3453 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
007E345A 3D27000000 cmp eax, $00000027
007E345F 00FF add bh, bh
007E3461 FFFF DB $FF, $FF //
007E3463 FF050000002C inc dword ptr [$2C000000]
007E3469 51 push ecx
007E346A 7479 jz 007E34E5
007E346C 3D000000FF cmp eax, $FF000000
007E3471 FFFF DB $FF, $FF //
007E3473 FF09 dec dword ptr [ecx]
007E3475 0000 add [eax], al
007E3477 002C42 add [edx+eax*2], ch
007E347A 42 inc edx
007E347B 4D dec ebp
007E347C 6F outsd
007E347D 6E outsb
007E347E 65793D jns 007E34BE
007E3481 0000 add [eax], al
007E3483 00FF add bh, bh
007E3485 FFFF DB $FF, $FF //
007E3487 FF09 dec dword ptr [ecx]
007E3489 0000 add [eax], al
007E348B 002C4564697465 add [$65746964+eax*2], ch
007E3492 723D jb 007E34D1
007E3494 27 daa
007E3495 0000 add [eax], al
007E3497 00FF add bh, bh
007E3499 FFFF DB $FF, $FF //
007E349B FF1400 call dword ptr [eax+eax]
007E349E 0000 add [eax], al
007E34A0 2C45 sub al, $45
007E34A2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E34AB 657464 jz 007E3512
007E34AE 61 popa
007E34AF 7465 jz 007E3516
007E34B1 2829 sub [ecx], ch
007E34B3 2000 and [eax], al
007E34B5 0000 add [eax], al
007E34B7 00FF add bh, bh
007E34B9 FFFF DB $FF, $FF //
007E34BB FF0D00000020 dec dword ptr [$20000000]
007E34C1 7768 jnbe 007E352B
007E34C3 657265 jb 007E352B
007E34C6 205946 and [ecx+$46], bl
007E34C9 49 dec ecx
007E34CA 643D27000000 cmp eax, $00000027
007E34D0 FFFF DB $FF, $FF //
007E34D2 FFFF DB $FF, $FF //
007E34D4 0400 add al, +$00
007E34D6 0000 add [eax], al
007E34D8 59 pop ecx
007E34D9 46 inc esi
007E34DA 49 dec ecx
007E34DB 640000 add fs:[eax], al
007E34DE 0000 add [eax], al
007E34E0 FFFF DB $FF, $FF //
007E34E2 FFFF DB $FF, $FF //
007E34E4 2B00 sub eax, dword ptr [eax]
007E34E6 0000 add [eax], al
007E34E8 55 push ebp
007E34E9 7064 jo 007E354F
007E34EB 61 popa
007E34EC 7465 jz 007E3553
007E34EE 205946 and [ecx+$46], bl
007E34F1 5F pop edi
007E34F2 4D dec ebp
007E34F3 6F outsd
007E34F4 6E outsb
007E34F5 65795F jns 007E3557
007E34F8 4B dec ebx
007E34F9 43 inc ebx
007E34FA 205365 and [ebx+$65], dl
007E34FD 7420 jz 007E351F
007E34FF 4B dec ebx
007E3500 43 inc ebx
007E3501 42 inc edx
007E3502 42 inc edx
007E3503 4D dec ebp
007E3504 6F outsd
007E3505 6E outsb
007E3506 65793D jns 007E3546
007E3509 4B dec ebx
007E350A 43 inc ebx
007E350B 42 inc edx
007E350C 42 inc edx
007E350D 4D dec ebp
007E350E 6F outsd
007E350F 6E outsb
007E3510 65792D jns 007E3540
007E3513 00FF add bh, bh
007E3515 FFFF DB $FF, $FF //
007E3517 FF01 inc dword ptr [ecx]
007E3519 0000 add [eax], al
007E351B 002B add [ebx], ch
007E351D 0000 add [eax], al
007E351F 00FF add bh, bh
007E3521 FFFF DB $FF, $FF //
007E3523 FF0D00000020 dec dword ptr [$20000000]
007E3529 7768 jnbe 007E3593
007E352B 657265 jb 007E3593
007E352E 204352 and [ebx+$52], al
007E3531 49 dec ecx
007E3532 44 inc esp
007E3533 3D27000000 cmp eax, $00000027
007E3538 FFFF DB $FF, $FF //
007E353A FFFF DB $FF, $FF //
007E353C 0400 add al, +$00
007E353E 0000 add [eax], al
007E3540 43 inc ebx
007E3541 52 push edx
007E3542 49 dec ecx
007E3543 44 inc esp
007E3544 0000 add [eax], al
007E3546 0000 add [eax], al
007E3548 55 push ebp
007E3549 8BEC mov ebp, esp
007E354B B909000000 mov ecx, $00000009
007E3550 6A00 push $00
007E3552 6A00 push $00
007E3554 49 dec ecx
007E3555 75F9 jnz 007E3550
007E3557 51 push ecx
007E3558 53 push ebx
007E3559 56 push esi
007E355A 8BDA mov ebx, edx
007E355C 8BF0 mov esi, eax
007E355E 33C0 xor eax, eax
007E3560 55 push ebp
007E3561 68BD377E00 push $007E37BD
***** TRY
|
007E3566 64FF30 push dword ptr fs:[eax]
007E3569 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
007E356C BAD4377E00 mov edx, $007E37D4
* Reference to control Label11 : TLabel
|
007E3571 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E3577 E83836CEFF call 004C6BB4
007E357C 8D55F0 lea edx, [ebp-$10]
007E357F 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E3581 FF5160 call dword ptr [ecx+$60]
007E3584 8B45F0 mov eax, [ebp-$10]
007E3587 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E358A E85D73C2FF call 0040A8EC
007E358F 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E3592 BAE4377E00 mov edx, $007E37E4
* Reference to: System.@LStrCmp;
|
007E3597 E8A421C2FF call 00405740
007E359C 751D jnz 007E35BB
007E359E 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E35A0 B9F0377E00 mov ecx, $007E37F0
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E35A5 BAF8377E00 mov edx, $007E37F8
*)
end;
procedure TfrmYFCR._PROC_007E3819(Sender : TObject);
begin
(*
007E3819 50 push eax
007E381A 6461 popa
007E381C 7465 jz 007E3883
007E381E 205946 and [ecx+$46], bl
007E3821 5F pop edi
007E3822 4D dec ebp
007E3823 6F outsd
007E3824 6E outsb
007E3825 65795F jns 007E3887
007E3828 43 inc ebx
007E3829 52 push edx
007E382A 2000 and [eax], al
007E382C FFFF DB $FF, $FF //
007E382E FFFF DB $FF, $FF //
007E3830 0500000020 add eax, +$20000000
007E3835 53 push ebx
007E3836 657420 jz 007E3859
007E3839 0000 add [eax], al
007E383B 00FF add bh, bh
007E383D FFFF DB $FF, $FF //
007E383F FF02 inc dword ptr [edx]
007E3841 0000 add [eax], al
007E3843 003D270000FF add [$FF000027], bh
007E3849 FFFF DB $FF, $FF //
007E384B FF01 inc dword ptr [ecx]
007E384D 0000 add [eax], al
007E384F 0027 add [edi], ah
007E3851 0000 add [eax], al
007E3853 00FF add bh, bh
007E3855 FFFF DB $FF, $FF //
007E3857 FF050000003D inc dword ptr [$3D000000]
007E385D 4E dec esi
007E385E 55 push ebp
007E385F 4C dec esp
007E3860 4C dec esp
007E3861 0000 add [eax], al
007E3863 00FF add bh, bh
007E3865 FFFF DB $FF, $FF //
007E3867 FF09 dec dword ptr [ecx]
007E3869 0000 add [eax], al
007E386B 002C4564697465 add [$65746964+eax*2], ch
007E3872 723D jb 007E38B1
007E3874 27 daa
007E3875 0000 add [eax], al
007E3877 00FF add bh, bh
007E3879 FFFF DB $FF, $FF //
007E387B FF1400 call dword ptr [eax+eax]
007E387E 0000 add [eax], al
007E3880 2C45 sub al, $45
007E3882 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E388B 657464 jz 007E38F2
007E388E 61 popa
007E388F 7465 jz 007E38F6
007E3891 2829 sub [ecx], ch
007E3893 2000 and [eax], al
007E3895 0000 add [eax], al
007E3897 00FF add bh, bh
007E3899 FFFF DB $FF, $FF //
007E389B FF0D00000020 dec dword ptr [$20000000]
007E38A1 7768 jnbe 007E390B
007E38A3 657265 jb 007E390B
007E38A6 205946 and [ecx+$46], bl
007E38A9 49 dec ecx
007E38AA 643D27000000 cmp eax, $00000027
007E38B0 FFFF DB $FF, $FF //
007E38B2 FFFF DB $FF, $FF //
007E38B4 0400 add al, +$00
007E38B6 0000 add [eax], al
007E38B8 59 pop ecx
007E38B9 46 inc esi
007E38BA 49 dec ecx
007E38BB 640000 add fs:[eax], al
007E38BE 0000 add [eax], al
007E38C0 55 push ebp
007E38C1 8BEC mov ebp, esp
007E38C3 B911000000 mov ecx, $00000011
007E38C8 6A00 push $00
007E38CA 6A00 push $00
007E38CC 49 dec ecx
007E38CD 75F9 jnz 007E38C8
007E38CF 56 push esi
007E38D0 8945FC mov [ebp-$04], eax
007E38D3 33C0 xor eax, eax
007E38D5 55 push ebp
007E38D6 687A3B7E00 push $007E3B7A
***** TRY
|
007E38DB 64FF30 push dword ptr fs:[eax]
007E38DE 648920 mov fs:[eax], esp
007E38E1 8B45FC mov eax, [ebp-$04]
* Reference to control SYRAddress : N.A.
|
007E38E4 8B80B4030000 mov eax, [eax+$03B4]
* Reference to control ADOTemp : N.A.
|
007E38EA 83B83C03000000 cmp dword ptr [eax+$033C], +$00
007E38F1 0F851A020000 jnz 007E3B11
007E38F7 33C0 xor eax, eax
007E38F9 55 push ebp
007E38FA 68EF3A7E00 push $007E3AEF
***** TRY
|
007E38FF 64FF30 push dword ptr fs:[eax]
007E3902 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR._PROC_007E408D(Sender : TObject);
begin
(*
007E408D 50 push eax
007E408E 6461 popa
007E4090 7465 jz 007E40F7
007E4092 205946 and [ecx+$46], bl
007E4095 5F pop edi
007E4096 4D dec ebp
007E4097 6F outsd
007E4098 6E outsb
007E4099 65795F jns 007E40FB
007E409C 43 inc ebx
007E409D 52 push edx
007E409E 2000 and [eax], al
007E40A0 FFFF DB $FF, $FF //
007E40A2 FFFF DB $FF, $FF //
007E40A4 0D00000020 or eax, $20000000
007E40A9 53 push ebx
007E40AA 657420 jz 007E40CD
007E40AD 59 pop ecx
007E40AE 46 inc esi
007E40AF 43 inc ebx
007E40B0 6F outsd
007E40B1 64653D27000000 cmp eax, $00000027
007E40B8 FFFF DB $FF, $FF //
007E40BA FFFF DB $FF, $FF //
007E40BC 0100 add [eax], eax
007E40BE 0000 add [eax], al
007E40C0 27 daa
007E40C1 0000 add [eax], al
007E40C3 00FF add bh, bh
007E40C5 FFFF DB $FF, $FF //
007E40C7 FF0A dec dword ptr [edx]
007E40C9 0000 add [eax], al
007E40CB 0020 add [eax], ah
007E40CD 2C59 sub al, $59
007E40CF 46 inc esi
007E40D0 4E dec esi
007E40D1 61 popa
007E40D2 6D insd
007E40D3 653D270000FF cmp eax, $FF000027
007E40D9 FFFF DB $FF, $FF //
007E40DB FF09 dec dword ptr [ecx]
007E40DD 0000 add [eax], al
007E40DF 002C4564697465 add [$65746964+eax*2], ch
007E40E6 723D jb 007E4125
007E40E8 27 daa
007E40E9 0000 add [eax], al
007E40EB 00FF add bh, bh
007E40ED FFFF DB $FF, $FF //
007E40EF FF1400 call dword ptr [eax+eax]
007E40F2 0000 add [eax], al
007E40F4 2C45 sub al, $45
007E40F6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E40FF 657464 jz 007E4166
007E4102 61 popa
007E4103 7465 jz 007E416A
007E4105 2829 sub [ecx], ch
007E4107 2000 and [eax], al
007E4109 0000 add [eax], al
007E410B 00FF add bh, bh
007E410D FFFF DB $FF, $FF //
007E410F FF0D00000020 dec dword ptr [$20000000]
007E4115 7768 jnbe 007E417F
007E4117 657265 jb 007E417F
007E411A 205946 and [ecx+$46], bl
007E411D 49 dec ecx
007E411E 643D27000000 cmp eax, $00000027
007E4124 FFFF DB $FF, $FF //
007E4126 FFFF DB $FF, $FF //
007E4128 0400 add al, +$00
007E412A 0000 add [eax], al
007E412C 59 pop ecx
007E412D 46 inc esi
007E412E 49 dec ecx
007E412F 640000 add fs:[eax], al
007E4132 0000 add [eax], al
007E4134 55 push ebp
007E4135 8BEC mov ebp, esp
007E4137 51 push ecx
007E4138 B906000000 mov ecx, $00000006
007E413D 6A00 push $00
007E413F 6A00 push $00
007E4141 49 dec ecx
007E4142 75F9 jnz 007E413D
007E4144 51 push ecx
007E4145 874DFC xchg [ebp-$04], ecx
007E4148 53 push ebx
007E4149 56 push esi
007E414A 8BF0 mov esi, eax
007E414C 33C0 xor eax, eax
007E414E 55 push ebp
007E414F 688D437E00 push $007E438D
***** TRY
|
007E4154 64FF30 push dword ptr fs:[eax]
007E4157 648920 mov fs:[eax], esp
007E415A 33C0 xor eax, eax
007E415C 55 push ebp
007E415D 6863437E00 push $007E4363
***** TRY
|
007E4162 64FF30 push dword ptr fs:[eax]
007E4165 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR._PROC_007E43AA(Sender : TObject);
begin
(*
007E43AA 6E outsb
007E43AB 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
007E43B3 FF08 dec dword ptr [eax]
007E43B5 0000 add [eax], al
*)
end;
procedure TfrmYFCR._PROC_007E43E0(Sender : TObject);
begin
(*
007E43E0 6E outsb
007E43E1 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
007E43E9 0000 add [eax], al
*)
end;
procedure TfrmYFCR._PROC_007E43ED(Sender : TObject);
begin
(*
007E43ED 50 push eax
007E43EE 6461 popa
007E43F0 7465 jz 007E4457
007E43F2 205946 and [ecx+$46], bl
007E43F5 5F pop edi
007E43F6 4D dec ebp
007E43F7 6F outsd
007E43F8 6E outsb
007E43F9 65795F jns 007E445B
007E43FC 43 inc ebx
007E43FD 52 push edx
007E43FE 2000 and [eax], al
007E4400 FFFF DB $FF, $FF //
007E4402 FFFF DB $FF, $FF //
007E4404 0E push cs
007E4405 0000 add [eax], al
007E4407 0020 add [eax], ah
007E4409 53 push ebx
007E440A 657420 jz 007E442D
007E440D 51 push ecx
007E440E 7479 jz 007E4489
007E4410 55 push ebp
007E4411 6E outsb
007E4412 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
007E441A FFFF DB $FF, $FF //
007E441C 07 pop es
007E441D 0000 add [eax], al
007E441F 005A64 add [edx+$64], bl
007E4422 794E jns 007E4472
007E4424 61 popa
007E4425 6D insd
007E4426 6500FF add bh, bh
007E4429 FFFF DB $FF, $FF //
007E442B FF01 inc dword ptr [ecx]
007E442D 0000 add [eax], al
007E442F 0027 add [edi], ah
007E4431 0000 add [eax], al
007E4433 00FF add bh, bh
007E4435 FFFF DB $FF, $FF //
007E4437 FF09 dec dword ptr [ecx]
007E4439 0000 add [eax], al
007E443B 002C4564697465 add [$65746964+eax*2], ch
007E4442 723D jb 007E4481
007E4444 27 daa
007E4445 0000 add [eax], al
007E4447 00FF add bh, bh
007E4449 FFFF DB $FF, $FF //
007E444B FF1400 call dword ptr [eax+eax]
007E444E 0000 add [eax], al
007E4450 2C45 sub al, $45
007E4452 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E445B 657464 jz 007E44C2
007E445E 61 popa
007E445F 7465 jz 007E44C6
007E4461 2829 sub [ecx], ch
007E4463 2000 and [eax], al
007E4465 0000 add [eax], al
007E4467 00FF add bh, bh
007E4469 FFFF DB $FF, $FF //
007E446B FF0D00000020 dec dword ptr [$20000000]
007E4471 7768 jnbe 007E44DB
007E4473 657265 jb 007E44DB
007E4476 205946 and [ecx+$46], bl
007E4479 49 dec ecx
007E447A 643D27000000 cmp eax, $00000027
007E4480 FFFF DB $FF, $FF //
007E4482 FFFF DB $FF, $FF //
007E4484 0400 add al, +$00
007E4486 0000 add [eax], al
007E4488 59 pop ecx
007E4489 46 inc esi
007E448A 49 dec ecx
007E448B 640000 add fs:[eax], al
007E448E 0000 add [eax], al
007E4490 55 push ebp
007E4491 8BEC mov ebp, esp
007E4493 51 push ecx
007E4494 B906000000 mov ecx, $00000006
007E4499 6A00 push $00
007E449B 6A00 push $00
007E449D 49 dec ecx
007E449E 75F9 jnz 007E4499
007E44A0 51 push ecx
007E44A1 874DFC xchg [ebp-$04], ecx
007E44A4 53 push ebx
007E44A5 56 push esi
007E44A6 8BF0 mov esi, eax
007E44A8 33C0 xor eax, eax
007E44AA 55 push ebp
007E44AB 68E9467E00 push $007E46E9
***** TRY
|
007E44B0 64FF30 push dword ptr fs:[eax]
007E44B3 648920 mov fs:[eax], esp
007E44B6 33C0 xor eax, eax
007E44B8 55 push ebp
007E44B9 68BF467E00 push $007E46BF
***** TRY
|
007E44BE 64FF30 push dword ptr fs:[eax]
007E44C1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR._PROC_007E4731(Sender : TObject);
begin
(*
007E4731 50 push eax
007E4732 6461 popa
007E4734 7465 jz 007E479B
007E4736 205946 and [ecx+$46], bl
007E4739 5F pop edi
007E473A 4D dec ebp
007E473B 6F outsd
007E473C 6E outsb
007E473D 65795F jns 007E479F
007E4740 43 inc ebx
007E4741 52 push edx
007E4742 2000 and [eax], al
007E4744 FFFF DB $FF, $FF //
007E4746 FFFF DB $FF, $FF //
007E4748 0D00000020 or eax, $20000000
007E474D 53 push ebx
007E474E 657420 jz 007E4771
007E4751 42 inc edx
007E4752 5A pop edx
007E4753 54 push esp
007E4754 7970 jns 007E47C6
007E4756 653D27000000 cmp eax, $00000027
007E475C FFFF DB $FF, $FF //
007E475E FFFF DB $FF, $FF //
007E4760 07 pop es
007E4761 0000 add [eax], al
007E4763 005A64 add [edx+$64], bl
007E4766 794E jns 007E47B6
007E4768 61 popa
007E4769 6D insd
007E476A 6500FF add bh, bh
007E476D FFFF DB $FF, $FF //
007E476F FF01 inc dword ptr [ecx]
007E4771 0000 add [eax], al
007E4773 0027 add [edi], ah
007E4775 0000 add [eax], al
007E4777 00FF add bh, bh
007E4779 FFFF DB $FF, $FF //
007E477B FF09 dec dword ptr [ecx]
007E477D 0000 add [eax], al
007E477F 002C4564697465 add [$65746964+eax*2], ch
007E4786 723D jb 007E47C5
007E4788 27 daa
007E4789 0000 add [eax], al
007E478B 00FF add bh, bh
007E478D FFFF DB $FF, $FF //
007E478F FF1400 call dword ptr [eax+eax]
007E4792 0000 add [eax], al
007E4794 2C45 sub al, $45
007E4796 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E479F 657464 jz 007E4806
007E47A2 61 popa
007E47A3 7465 jz 007E480A
007E47A5 2829 sub [ecx], ch
007E47A7 2000 and [eax], al
007E47A9 0000 add [eax], al
007E47AB 00FF add bh, bh
007E47AD FFFF DB $FF, $FF //
007E47AF FF0D00000020 dec dword ptr [$20000000]
007E47B5 7768 jnbe 007E481F
007E47B7 657265 jb 007E481F
007E47BA 205946 and [ecx+$46], bl
007E47BD 49 dec ecx
007E47BE 643D27000000 cmp eax, $00000027
007E47C4 FFFF DB $FF, $FF //
007E47C6 FFFF DB $FF, $FF //
007E47C8 0400 add al, +$00
007E47CA 0000 add [eax], al
007E47CC 59 pop ecx
007E47CD 46 inc esi
007E47CE 49 dec ecx
007E47CF 640000 add fs:[eax], al
007E47D2 0000 add [eax], al
007E47D4 53 push ebx
007E47D5 8BD8 mov ebx, eax
* Reference to control ToolBar2 : N.A.
|
007E47D7 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E47DD E8DE36CEFF call 004C7EC0
007E47E2 84C0 test al, al
007E47E4 7516 jnz 007E47FC
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
007E47E6 B908487E00 mov ecx, $007E4808
* Reference to control ToolBar2 : N.A.
|
007E47EB 8B931C030000 mov edx, [ebx+$031C]
* Reference to control v1PRTPrice : N.A.
|
007E47F1 8B8338030000 mov eax, [ebx+$0338]
|
007E47F7 E8343AFDFF call 007B8230
007E47FC 5B pop ebx
007E47FD C3 ret
007E47FE 0000 add [eax], al
007E4800 FFFF DB $FF, $FF //
007E4802 FFFF DB $FF, $FF //
007E4804 0A00 or al, byte ptr [eax]
007E4806 0000 add [eax], al
007E4808 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
007E480E C1D0B1 rcl eax, $B1
007E4811 ED in eax, dx
007E4812 0000 add [eax], al
007E4814 55 push ebp
007E4815 8BEC mov ebp, esp
007E4817 B909000000 mov ecx, $00000009
007E481C 6A00 push $00
007E481E 6A00 push $00
007E4820 49 dec ecx
007E4821 75F9 jnz 007E481C
007E4823 53 push ebx
007E4824 56 push esi
007E4825 8BDA mov ebx, edx
007E4827 8BF0 mov esi, eax
007E4829 33C0 xor eax, eax
007E482B 55 push ebp
* Possible String Reference to: '<27><>'
|
007E482C 684B4A7E00 push $007E4A4B
***** TRY
|
007E4831 64FF30 push dword ptr fs:[eax]
007E4834 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
007E4837 BA604A7E00 mov edx, $007E4A60
* Reference to control Label11 : TLabel
|
007E483C 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4842 E86D23CEFF call 004C6BB4
007E4847 8D55F0 lea edx, [ebp-$10]
007E484A 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E484C FF5160 call dword ptr [ecx+$60]
007E484F 8B45F0 mov eax, [ebp-$10]
007E4852 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4855 E89260C2FF call 0040A8EC
007E485A 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E485D BA704A7E00 mov edx, $007E4A70
* Reference to: System.@LStrCmp;
|
007E4862 E8D90EC2FF call 00405740
007E4867 751D jnz 007E4886
007E4869 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E486B B97C4A7E00 mov ecx, $007E4A7C
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E4870 BA844A7E00 mov edx, $007E4A84
*)
end;
procedure TfrmYFCR._PROC_007E4AB1(Sender : TObject);
begin
(*
007E4AB1 50 push eax
007E4AB2 6461 popa
007E4AB4 7465 jz 007E4B1B
007E4AB6 205946 and [ecx+$46], bl
007E4AB9 5F pop edi
007E4ABA 4D dec ebp
007E4ABB 6F outsd
007E4ABC 6E outsb
007E4ABD 65795F jns 007E4B1F
007E4AC0 43 inc ebx
007E4AC1 52 push edx
007E4AC2 2000 and [eax], al
007E4AC4 FFFF DB $FF, $FF //
007E4AC6 FFFF DB $FF, $FF //
007E4AC8 0500000020 add eax, +$20000000
007E4ACD 53 push ebx
007E4ACE 657420 jz 007E4AF1
007E4AD1 0000 add [eax], al
007E4AD3 00FF add bh, bh
007E4AD5 FFFF DB $FF, $FF //
007E4AD7 FF01 inc dword ptr [ecx]
007E4AD9 0000 add [eax], al
007E4ADB 003D000000FF add [$FF000000], bh
007E4AE1 FFFF DB $FF, $FF //
007E4AE3 FF09 dec dword ptr [ecx]
007E4AE5 0000 add [eax], al
007E4AE7 002C4564697465 add [$65746964+eax*2], ch
007E4AEE 723D jb 007E4B2D
007E4AF0 27 daa
007E4AF1 0000 add [eax], al
007E4AF3 00FF add bh, bh
007E4AF5 FFFF DB $FF, $FF //
007E4AF7 FF01 inc dword ptr [ecx]
007E4AF9 0000 add [eax], al
007E4AFB 0027 add [edi], ah
007E4AFD 0000 add [eax], al
007E4AFF 00FF add bh, bh
007E4B01 FFFF DB $FF, $FF //
007E4B03 FF1400 call dword ptr [eax+eax]
007E4B06 0000 add [eax], al
007E4B08 2C45 sub al, $45
007E4B0A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E4B13 657464 jz 007E4B7A
007E4B16 61 popa
007E4B17 7465 jz 007E4B7E
007E4B19 2829 sub [ecx], ch
007E4B1B 2000 and [eax], al
007E4B1D 0000 add [eax], al
007E4B1F 00FF add bh, bh
007E4B21 FFFF DB $FF, $FF //
007E4B23 FF0D00000020 dec dword ptr [$20000000]
007E4B29 7768 jnbe 007E4B93
007E4B2B 657265 jb 007E4B93
007E4B2E 205946 and [ecx+$46], bl
007E4B31 49 dec ecx
007E4B32 643D27000000 cmp eax, $00000027
007E4B38 FFFF DB $FF, $FF //
007E4B3A FFFF DB $FF, $FF //
007E4B3C 0400 add al, +$00
007E4B3E 0000 add [eax], al
007E4B40 59 pop ecx
007E4B41 46 inc esi
007E4B42 49 dec ecx
007E4B43 640000 add fs:[eax], al
007E4B46 0000 add [eax], al
007E4B48 55 push ebp
007E4B49 8BEC mov ebp, esp
007E4B4B B908000000 mov ecx, $00000008
007E4B50 6A00 push $00
007E4B52 6A00 push $00
007E4B54 49 dec ecx
007E4B55 75F9 jnz 007E4B50
007E4B57 53 push ebx
007E4B58 56 push esi
007E4B59 8BDA mov ebx, edx
007E4B5B 8BF0 mov esi, eax
007E4B5D 33C0 xor eax, eax
007E4B5F 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E4B60 68304D7E00 push $007E4D30
***** TRY
|
007E4B65 64FF30 push dword ptr fs:[eax]
007E4B68 648920 mov fs:[eax], esp
007E4B6B 8D55FC lea edx, [ebp-$04]
007E4B6E 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;
|
007E4B70 E847ABDAFF call 0058F6BC
007E4B75 8D55F4 lea edx, [ebp-$0C]
007E4B78 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4B7B E86C5DC2FF call 0040A8EC
007E4B80 837DF400 cmp dword ptr [ebp-$0C], +$00
007E4B84 750D jnz 007E4B93
007E4B86 8D45FC lea eax, [ebp-$04]
007E4B89 BA484D7E00 mov edx, $007E4D48
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E4B8E E82908C2FF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
007E4B93 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E4B99 E8AE77E7FF 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;
|
007E4B9E E8C1CFE6FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007E4BA3 8B4050 mov eax, [eax+$50]
007E4BA6 8D55F0 lea edx, [ebp-$10]
007E4BA9 8B08 mov ecx, [eax]
007E4BAB FF5110 call dword ptr [ecx+$10]
007E4BAE 8B45F0 mov eax, [ebp-$10]
007E4BB1 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4BB4 E8335DC2FF call 0040A8EC
* Reference to control Label11 : TLabel
|
007E4BB9 8B9E64030000 mov ebx, [esi+$0364]
007E4BBF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E4BC1 E87A38CEFF call 004C8440
007E4BC6 8D55DC lea edx, [ebp-$24]
007E4BC9 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4BCC E81B5DC2FF call 0040A8EC
007E4BD1 8B55DC mov edx, [ebp-$24]
007E4BD4 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E4BD7 E8EC41C3FF call 00418DC8
007E4BDC 8D45E0 lea eax, [ebp-$20]
007E4BDF 50 push eax
007E4BE0 8B55F8 mov edx, [ebp-$08]
007E4BE3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4BE5 E8CA1FCEFF call 004C6BB4
007E4BEA 5A pop edx
007E4BEB 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E4BED FF91B4000000 call dword ptr [ecx+$00B4]
007E4BF3 8BC3 mov eax, ebx
007E4BF5 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
007E4BF7 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
007E4BFD 8B9E0C030000 mov ebx, [esi+$030C]
007E4C03 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E4C05 E8CA0CCEFF call 004C58D4
007E4C0A 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;
|
007E4C0C E89B93CFFF call 004DDFAC
007E4C11 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007E4C13 FF5244 call dword ptr [edx+$44]
007E4C16 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;
|
007E4C18 E88F93CFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E4C1D BA544D7E00 mov edx, $007E4D54
007E4C22 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E4C24 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007E4C27 68704D7E00 push $007E4D70
007E4C2C FF75F8 push dword ptr [ebp-$08]
007E4C2F 68804D7E00 push $007E4D80
007E4C34 8D55D4 lea edx, [ebp-$2C]
007E4C37 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4C3A E8AD5CC2FF call 0040A8EC
007E4C3F FF75D4 push dword ptr [ebp-$2C]
007E4C42 8D45D8 lea eax, [ebp-$28]
007E4C45 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
007E4C4A E8650AC2FF call 004056B4
007E4C4F 8B45D8 mov eax, [ebp-$28]
007E4C52 50 push eax
007E4C53 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;
|
007E4C55 E85293CFFF call 004DDFAC
007E4C5A 5A pop edx
007E4C5B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E4C5D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
007E4C60 688C4D7E00 push $007E4D8C
007E4C65 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFCR._PROC_007E4D55(Sender : TObject);
begin
(*
007E4D55 50 push eax
007E4D56 6461 popa
007E4D58 7465 jz 007E4DBF
007E4D5A 205946 and [ecx+$46], bl
007E4D5D 5F pop edi
007E4D5E 4D dec ebp
007E4D5F 6F outsd
007E4D60 6E outsb
007E4D61 65795F jns 007E4DC3
007E4D64 43 inc ebx
007E4D65 52 push edx
007E4D66 2000 and [eax], al
007E4D68 FFFF DB $FF, $FF //
007E4D6A FFFF DB $FF, $FF //
007E4D6C 0500000020 add eax, +$20000000
007E4D71 53 push ebx
007E4D72 657420 jz 007E4D95
007E4D75 0000 add [eax], al
007E4D77 00FF add bh, bh
007E4D79 FFFF DB $FF, $FF //
007E4D7B FF01 inc dword ptr [ecx]
007E4D7D 0000 add [eax], al
007E4D7F 003D000000FF add [$FF000000], bh
007E4D85 FFFF DB $FF, $FF //
007E4D87 FF09 dec dword ptr [ecx]
007E4D89 0000 add [eax], al
007E4D8B 002C4564697465 add [$65746964+eax*2], ch
007E4D92 723D jb 007E4DD1
007E4D94 27 daa
007E4D95 0000 add [eax], al
007E4D97 00FF add bh, bh
007E4D99 FFFF DB $FF, $FF //
007E4D9B FF01 inc dword ptr [ecx]
007E4D9D 0000 add [eax], al
007E4D9F 0027 add [edi], ah
007E4DA1 0000 add [eax], al
007E4DA3 00FF add bh, bh
007E4DA5 FFFF DB $FF, $FF //
007E4DA7 FF1400 call dword ptr [eax+eax]
007E4DAA 0000 add [eax], al
007E4DAC 2C45 sub al, $45
007E4DAE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E4DB7 657464 jz 007E4E1E
007E4DBA 61 popa
007E4DBB 7465 jz 007E4E22
007E4DBD 2829 sub [ecx], ch
007E4DBF 2000 and [eax], al
007E4DC1 0000 add [eax], al
007E4DC3 00FF add bh, bh
007E4DC5 FFFF DB $FF, $FF //
007E4DC7 FF0D00000020 dec dword ptr [$20000000]
007E4DCD 7768 jnbe 007E4E37
007E4DCF 657265 jb 007E4E37
007E4DD2 205946 and [ecx+$46], bl
007E4DD5 49 dec ecx
007E4DD6 643D27000000 cmp eax, $00000027
007E4DDC FFFF DB $FF, $FF //
007E4DDE FFFF DB $FF, $FF //
007E4DE0 0400 add al, +$00
007E4DE2 0000 add [eax], al
007E4DE4 59 pop ecx
007E4DE5 46 inc esi
007E4DE6 49 dec ecx
007E4DE7 640000 add fs:[eax], al
007E4DEA 0000 add [eax], al
007E4DEC 55 push ebp
007E4DED 8BEC mov ebp, esp
007E4DEF B90E000000 mov ecx, $0000000E
007E4DF4 6A00 push $00
007E4DF6 6A00 push $00
007E4DF8 49 dec ecx
007E4DF9 75F9 jnz 007E4DF4
007E4DFB 53 push ebx
007E4DFC 56 push esi
007E4DFD 8BDA mov ebx, edx
007E4DFF 8BF0 mov esi, eax
007E4E01 33C0 xor eax, eax
007E4E03 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007E4E04 68E5507E00 push $007E50E5
***** TRY
|
007E4E09 64FF30 push dword ptr fs:[eax]
007E4E0C 648920 mov fs:[eax], esp
007E4E0F 8D55FC lea edx, [ebp-$04]
007E4E12 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;
|
007E4E14 E8A3A8DAFF call 0058F6BC
* Reference to control v1PRTPrice : N.A.
|
007E4E19 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E4E1F E82875E7FF 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;
|
007E4E24 E83BCDE6FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007E4E29 8B4050 mov eax, [eax+$50]
007E4E2C 8D55F4 lea edx, [ebp-$0C]
007E4E2F 8B08 mov ecx, [eax]
007E4E31 FF5110 call dword ptr [ecx+$10]
007E4E34 8B45F4 mov eax, [ebp-$0C]
007E4E37 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4E3A E8AD5AC2FF call 0040A8EC
* Reference to control Label11 : TLabel
|
007E4E3F 8B9E64030000 mov ebx, [esi+$0364]
007E4E45 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E4E47 E8F435CEFF call 004C8440
007E4E4C 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
007E4E4F BAFC507E00 mov edx, $007E50FC
* Reference to: System.@LStrCmp;
|
007E4E54 E8E708C2FF call 00405740
007E4E59 751E jnz 007E4E79
007E4E5B 8D55F0 lea edx, [ebp-$10]
007E4E5E 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4E61 E8865AC2FF call 0040A8EC
007E4E66 837DF000 cmp dword ptr [ebp-$10], +$00
007E4E6A 750D jnz 007E4E79
007E4E6C 8D45FC lea eax, [ebp-$04]
007E4E6F BA0C517E00 mov edx, $007E510C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E4E74 E84305C2FF call 004053BC
007E4E79 8D55DC lea edx, [ebp-$24]
007E4E7C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4E7F E8685AC2FF call 0040A8EC
007E4E84 8B55DC mov edx, [ebp-$24]
007E4E87 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E4E8A E8393FC3FF call 00418DC8
007E4E8F 8D45E0 lea eax, [ebp-$20]
007E4E92 50 push eax
007E4E93 8B55F8 mov edx, [ebp-$08]
007E4E96 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4E98 E8171DCEFF call 004C6BB4
007E4E9D 5A pop edx
007E4E9E 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E4EA0 FF91B4000000 call dword ptr [ecx+$00B4]
007E4EA6 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
007E4EA9 BAFC507E00 mov edx, $007E50FC
* Reference to: System.@LStrCmp;
|
007E4EAE E88D08C2FF call 00405740
007E4EB3 7553 jnz 007E4F08
* Possible String Reference to: 'GCPrice'
|
007E4EB5 BAFC507E00 mov edx, $007E50FC
007E4EBA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4EBC E8F31CCEFF call 004C6BB4
007E4EC1 8D55CC lea edx, [ebp-$34]
007E4EC4 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
007E4EC6 FF5164 call dword ptr [ecx+$64]
007E4EC9 8D45CC lea eax, [ebp-$34]
007E4ECC 50 push eax
* Possible String Reference to: 'Qty'
|
007E4ECD BA18517E00 mov edx, $007E5118
007E4ED2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4ED4 E8DB1CCEFF call 004C6BB4
007E4ED9 8B10 mov edx, [eax]
* Reference to method TLabel.GetFloating()
|
007E4EDB FF5254 call dword ptr [edx+$54]
007E4EDE 8D45BC lea eax, [ebp-$44]
* Reference to: Variants.@VarFromReal;
|
007E4EE1 E8A63EC3FF call 00418D8C
007E4EE6 8D55BC lea edx, [ebp-$44]
007E4EE9 58 pop eax
* Reference to: System.@Initialize(Pointer;Pointer);
| or: System.@Finalize(Pointer;Pointer);
| or: System.@AddRef;
| or: Variants.@VarAdd(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarSub(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarMul(TVarData;TVarData;TVarData;TVarData);
|
007E4EEA E89184C3FF call 0041D380
007E4EEF 8D45CC lea eax, [ebp-$34]
007E4EF2 50 push eax
* Possible String Reference to: 'GCMoney'
|
007E4EF3 BA24517E00 mov edx, $007E5124
007E4EF8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4EFA E8B51CCEFF call 004C6BB4
007E4EFF 5A pop edx
007E4F00 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E4F02 FF91B4000000 call dword ptr [ecx+$00B4]
007E4F08 8BC3 mov eax, ebx
007E4F0A 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
007E4F0C FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
007E4F12 8B9E0C030000 mov ebx, [esi+$030C]
007E4F18 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007E4F1A E8B509CEFF call 004C58D4
007E4F1F 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;
|
007E4F21 E88690CFFF call 004DDFAC
007E4F26 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
007E4F28 FF5244 call dword ptr [edx+$44]
007E4F2B 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;
|
007E4F2D E87A90CFFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
007E4F32 BA34517E00 mov edx, $007E5134
007E4F37 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E4F39 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
007E4F3C 6850517E00 push $007E5150
007E4F41 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
007E4F44 6860517E00 push $007E5160
007E4F49 8D55B4 lea edx, [ebp-$4C]
007E4F4C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4F4F E89859C2FF call 0040A8EC
007E4F54 FF75B4 push dword ptr [ebp-$4C]
007E4F57 686C517E00 push $007E516C
007E4F5C 8D45B8 lea eax, [ebp-$48]
007E4F5F BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007E4F64 E84B07C2FF call 004056B4
007E4F69 8B45B8 mov eax, [ebp-$48]
007E4F6C 50 push eax
007E4F6D 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;
|
007E4F6F E83890CFFF call 004DDFAC
007E4F74 5A pop edx
007E4F75 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E4F77 FF5138 call dword ptr [ecx+$38]
007E4F7A 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
007E4F7D BAFC507E00 mov edx, $007E50FC
* Reference to: System.@LStrCmp;
|
007E4F82 E8B907C2FF call 00405740
007E4F87 754E jnz 007E4FD7
* Possible String Reference to: ',GCMoney=''
|
007E4F89 6878517E00 push $007E5178
* Possible String Reference to: 'GCMoney'
|
007E4F8E BA24517E00 mov edx, $007E5124
* Reference to control Label11 : TLabel
|
007E4F93 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4F99 E8161CCEFF call 004C6BB4
007E4F9E 8D55A8 lea edx, [ebp-$58]
007E4FA1 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E4FA3 FF5160 call dword ptr [ecx+$60]
007E4FA6 8B45A8 mov eax, [ebp-$58]
007E4FA9 8D55AC lea edx, [ebp-$54]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E4FAC E83B59C2FF call 0040A8EC
007E4FB1 FF75AC push dword ptr [ebp-$54]
007E4FB4 686C517E00 push $007E516C
007E4FB9 8D45B0 lea eax, [ebp-$50]
007E4FBC BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E4FC1 E8EE06C2FF call 004056B4
007E4FC6 8B45B0 mov eax, [ebp-$50]
007E4FC9 50 push eax
007E4FCA 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;
|
007E4FCC E8DB8FCFFF call 004DDFAC
007E4FD1 5A pop edx
007E4FD2 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E4FD4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'GCMoney'
|
007E4FD7 BA24517E00 mov edx, $007E5124
* Reference to control Label11 : TLabel
|
007E4FDC 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E4FE2 E8CD1BCEFF call 004C6BB4
007E4FE7 8B10 mov edx, [eax]
* Reference to method TLabel.GetFloating()
|
007E4FE9 FF5254 call dword ptr [edx+$54]
007E4FEC D81D84517E00 fcomp dword ptr [$007E5184]
007E4FF2 DFE0 fstsw ax
007E4FF4 9E sahf
007E4FF5 744E jz 007E5045
* Possible String Reference to: ',BBMoney=''
|
007E4FF7 6890517E00 push $007E5190
* Possible String Reference to: 'GCMoney'
|
007E4FFC BA24517E00 mov edx, $007E5124
* Reference to control Label11 : TLabel
|
007E5001 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5007 E8A81BCEFF call 004C6BB4
007E500C 8D559C lea edx, [ebp-$64]
007E500F 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E5011 FF5160 call dword ptr [ecx+$60]
007E5014 8B459C mov eax, [ebp-$64]
007E5017 8D55A0 lea edx, [ebp-$60]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E501A E8CD58C2FF call 0040A8EC
007E501F FF75A0 push dword ptr [ebp-$60]
007E5022 686C517E00 push $007E516C
007E5027 8D45A4 lea eax, [ebp-$5C]
007E502A BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E502F E88006C2FF call 004056B4
007E5034 8B45A4 mov eax, [ebp-$5C]
007E5037 50 push eax
007E5038 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;
|
007E503A E86D8FCFFF call 004DDFAC
007E503F 5A pop edx
007E5040 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E5042 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
007E5045 68A4517E00 push $007E51A4
* Possible String Reference to: 'YFId'
|
007E504A BABC517E00 mov edx, $007E51BC
* Reference to control Label11 : TLabel
|
007E504F 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5055 E85A1BCEFF call 004C6BB4
007E505A 8D5590 lea edx, [ebp-$70]
007E505D 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E505F FF5160 call dword ptr [ecx+$60]
007E5062 8B4590 mov eax, [ebp-$70]
007E5065 8D5594 lea edx, [ebp-$6C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5068 E87F58C2FF call 0040A8EC
007E506D FF7594 push dword ptr [ebp-$6C]
007E5070 686C517E00 push $007E516C
007E5075 8D4598 lea eax, [ebp-$68]
007E5078 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007E507D E83206C2FF call 004056B4
007E5082 8B4598 mov eax, [ebp-$68]
007E5085 50 push eax
007E5086 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;
|
007E5088 E81F8FCFFF call 004DDFAC
007E508D 5A pop edx
007E508E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
007E5090 FF5138 call dword ptr [ecx+$38]
007E5093 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007E5095 E83A8ECFFF call 004DDED4
007E509A 33C0 xor eax, eax
007E509C 5A pop edx
007E509D 59 pop ecx
007E509E 59 pop ecx
007E509F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007E50A2 68EC507E00 push $007E50EC
007E50A7 8D4590 lea eax, [ebp-$70]
007E50AA BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E50AF E89402C2FF call 00405348
007E50B4 8D45BC lea eax, [ebp-$44]
* Reference to object Variant
|
007E50B7 8B153C114000 mov edx, [$0040113C]
007E50BD B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007E50C2 E84D10C2FF call 00406114
007E50C7 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007E50CA E85502C2FF call 00405324
007E50CF 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007E50D2 E89DF5C2FF call 00414674
007E50D7 8D45F0 lea eax, [ebp-$10]
007E50DA BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E50DF E86402C2FF call 00405348
007E50E4 C3 ret
*)
end;
procedure TfrmYFCR._PROC_007E5135(Sender : TObject);
begin
(*
007E5135 50 push eax
007E5136 6461 popa
007E5138 7465 jz 007E519F
007E513A 205946 and [ecx+$46], bl
007E513D 5F pop edi
007E513E 4D dec ebp
007E513F 6F outsd
007E5140 6E outsb
007E5141 65795F jns 007E51A3
007E5144 43 inc ebx
007E5145 52 push edx
007E5146 2000 and [eax], al
007E5148 FFFF DB $FF, $FF //
007E514A FFFF DB $FF, $FF //
007E514C 0500000020 add eax, +$20000000
007E5151 53 push ebx
007E5152 657420 jz 007E5175
007E5155 0000 add [eax], al
007E5157 00FF add bh, bh
007E5159 FFFF DB $FF, $FF //
007E515B FF02 inc dword ptr [edx]
007E515D 0000 add [eax], al
007E515F 003D270000FF add [$FF000027], bh
007E5165 FFFF DB $FF, $FF //
007E5167 FF01 inc dword ptr [ecx]
007E5169 0000 add [eax], al
007E516B 0027 add [edi], ah
007E516D 0000 add [eax], al
007E516F 00FF add bh, bh
007E5171 FFFF DB $FF, $FF //
007E5173 FF0A dec dword ptr [edx]
007E5175 0000 add [eax], al
007E5177 002C47 add [edi+eax*2], ch
007E517A 43 inc ebx
007E517B 4D dec ebp
007E517C 6F outsd
007E517D 6E outsb
007E517E 65793D jns 007E51BE
007E5181 27 daa
007E5182 0000 add [eax], al
007E5184 0000 add [eax], al
007E5186 0000 add [eax], al
007E5188 FFFF DB $FF, $FF //
007E518A FFFF DB $FF, $FF //
007E518C 0A00 or al, byte ptr [eax]
007E518E 0000 add [eax], al
007E5190 2C42 sub al, $42
007E5192 42 inc edx
007E5193 4D dec ebp
007E5194 6F outsd
007E5195 6E outsb
007E5196 65793D jns 007E51D6
007E5199 27 daa
007E519A 0000 add [eax], al
007E519C FFFF DB $FF, $FF //
007E519E FFFF DB $FF, $FF //
007E51A0 0D00000020 or eax, $20000000
007E51A5 7768 jnbe 007E520F
007E51A7 657265 jb 007E520F
007E51AA 205946 and [ecx+$46], bl
007E51AD 49 dec ecx
007E51AE 643D27000000 cmp eax, $00000027
007E51B4 FFFF DB $FF, $FF //
007E51B6 FFFF DB $FF, $FF //
007E51B8 0400 add al, +$00
007E51BA 0000 add [eax], al
007E51BC 59 pop ecx
007E51BD 46 inc esi
007E51BE 49 dec ecx
007E51BF 640000 add fs:[eax], al
007E51C2 0000 add [eax], al
007E51C4 55 push ebp
007E51C5 8BEC mov ebp, esp
007E51C7 51 push ecx
007E51C8 B906000000 mov ecx, $00000006
007E51CD 6A00 push $00
007E51CF 6A00 push $00
007E51D1 49 dec ecx
007E51D2 75F9 jnz 007E51CD
007E51D4 51 push ecx
007E51D5 874DFC xchg [ebp-$04], ecx
007E51D8 53 push ebx
007E51D9 56 push esi
007E51DA 8BF0 mov esi, eax
007E51DC 33C0 xor eax, eax
007E51DE 55 push ebp
007E51DF 681B547E00 push $007E541B
***** TRY
|
007E51E4 64FF30 push dword ptr fs:[eax]
007E51E7 648920 mov fs:[eax], esp
007E51EA 33C0 xor eax, eax
007E51EC 55 push ebp
007E51ED 68F1537E00 push $007E53F1
***** TRY
|
007E51F2 64FF30 push dword ptr fs:[eax]
007E51F5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR._PROC_007E5465(Sender : TObject);
begin
(*
007E5465 50 push eax
007E5466 6461 popa
007E5468 7465 jz 007E54CF
007E546A 205946 and [ecx+$46], bl
007E546D 5F pop edi
007E546E 4D dec ebp
007E546F 6F outsd
007E5470 6E outsb
007E5471 65795F jns 007E54D3
007E5474 43 inc ebx
007E5475 52 push edx
007E5476 2000 and [eax], al
007E5478 FFFF DB $FF, $FF //
007E547A FFFF DB $FF, $FF //
007E547C 0E push cs
007E547D 0000 add [eax], al
007E547F 0020 add [eax], ah
007E5481 53 push ebx
007E5482 657420 jz 007E54A5
007E5485 50 push eax
007E5486 61 popa
007E5487 794D jns 007E54D6
007E5489 656E outsb
007E548B 743D jz 007E54CA
007E548D 27 daa
007E548E 0000 add [eax], al
007E5490 FFFF DB $FF, $FF //
007E5492 FFFF DB $FF, $FF //
007E5494 0100 add [eax], eax
007E5496 0000 add [eax], al
007E5498 27 daa
007E5499 0000 add [eax], al
007E549B 00FF add bh, bh
007E549D FFFF DB $FF, $FF //
007E549F FF09 dec dword ptr [ecx]
007E54A1 0000 add [eax], al
007E54A3 002C4564697465 add [$65746964+eax*2], ch
007E54AA 723D jb 007E54E9
007E54AC 27 daa
007E54AD 0000 add [eax], al
007E54AF 00FF add bh, bh
007E54B1 FFFF DB $FF, $FF //
007E54B3 FF1400 call dword ptr [eax+eax]
007E54B6 0000 add [eax], al
007E54B8 2C45 sub al, $45
007E54BA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E54C3 657464 jz 007E552A
007E54C6 61 popa
007E54C7 7465 jz 007E552E
007E54C9 2829 sub [ecx], ch
007E54CB 2000 and [eax], al
007E54CD 0000 add [eax], al
007E54CF 00FF add bh, bh
007E54D1 FFFF DB $FF, $FF //
007E54D3 FF0D00000020 dec dword ptr [$20000000]
007E54D9 7768 jnbe 007E5543
007E54DB 657265 jb 007E5543
007E54DE 205946 and [ecx+$46], bl
007E54E1 49 dec ecx
007E54E2 643D27000000 cmp eax, $00000027
007E54E8 FFFF DB $FF, $FF //
007E54EA FFFF DB $FF, $FF //
007E54EC 0400 add al, +$00
007E54EE 0000 add [eax], al
007E54F0 59 pop ecx
007E54F1 46 inc esi
007E54F2 49 dec ecx
007E54F3 640000 add fs:[eax], al
007E54F6 0000 add [eax], al
007E54F8 55 push ebp
007E54F9 8BEC mov ebp, esp
007E54FB B910000000 mov ecx, $00000010
007E5500 6A00 push $00
007E5502 6A00 push $00
007E5504 49 dec ecx
007E5505 75F9 jnz 007E5500
007E5507 51 push ecx
007E5508 53 push ebx
007E5509 56 push esi
007E550A 8BDA mov ebx, edx
007E550C 8BF0 mov esi, eax
007E550E 33C0 xor eax, eax
007E5510 55 push ebp
007E5511 689F577E00 push $007E579F
***** TRY
|
007E5516 64FF30 push dword ptr fs:[eax]
007E5519 648920 mov fs:[eax], esp
007E551C 8D55FC lea edx, [ebp-$04]
007E551F 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;
|
007E5521 E896A1DAFF call 0058F6BC
007E5526 8D55F0 lea edx, [ebp-$10]
007E5529 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E552C E8BB53C2FF call 0040A8EC
007E5531 837DF000 cmp dword ptr [ebp-$10], +$00
007E5535 750D jnz 007E5544
007E5537 8D45FC lea eax, [ebp-$04]
007E553A BAB4577E00 mov edx, $007E57B4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007E553F E878FEC1FF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
007E5544 8B8638030000 mov eax, [esi+$0338]
* 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;
|
007E554A E8FD6DE7FF 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;
|
007E554F E810C6E6FF call 00651B64
* Reference to field N.A..OFFS_0050
|
007E5554 8B4050 mov eax, [eax+$50]
007E5557 8D55EC lea edx, [ebp-$14]
007E555A 8B08 mov ecx, [eax]
007E555C FF5110 call dword ptr [ecx+$10]
007E555F 8B45EC mov eax, [ebp-$14]
007E5562 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E5565 E88253C2FF call 0040A8EC
007E556A 8D45F4 lea eax, [ebp-$0C]
007E556D 50 push eax
* Possible String Reference to: 'T_Price'
|
007E556E BAC0577E00 mov edx, $007E57C0
* Reference to control Label11 : TLabel
|
007E5573 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E5579 E83616CEFF call 004C6BB4
007E557E 8B10 mov edx, [eax]
* Reference to method TLabel.GetFloating()
|
007E5580 FF5254 call dword ptr [edx+$54]
007E5583 DD5DDC fstp qword ptr [ebp-$24]
007E5586 9B wait
007E5587 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
007E558A E89D81C2FF call 0040D72C
007E558F DC4DDC fmul qword ptr [ebp-$24]
007E5592 DB7DD0 fstp tbyte ptr [ebp-$30]
007E5595 9B wait
007E5596 8D45D0 lea eax, [ebp-$30]
007E5599 8945E4 mov [ebp-$1C], eax
007E559C C645E803 mov byte ptr [ebp-$18], $03
007E55A0 8D55E4 lea edx, [ebp-$1C]
007E55A3 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
007E55A5 B8D0577E00 mov eax, $007E57D0
|
007E55AA E8D575C2FF call 0040CB84
* Reference to control Label11 : TLabel
|
007E55AF 8B9E64030000 mov ebx, [esi+$0364]
007E55B5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007E55B7 E8842ECEFF call 004C8440
007E55BC 8D55BC lea edx, [ebp-$44]
007E55BF 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E55C2 E82553C2FF call 0040A8EC
007E55C7 8B55BC mov edx, [ebp-$44]
007E55CA 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E55CD E8F637C3FF call 00418DC8
007E55D2 8D45C0 lea eax, [ebp-$40]
007E55D5 50 push eax
007E55D6 8B55F8 mov edx, [ebp-$08]
007E55D9 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E55DB E8D415CEFF call 004C6BB4
007E55E0 5A pop edx
007E55E1 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E55E3 FF91B4000000 call dword ptr [ecx+$00B4]
007E55E9 8D55A8 lea edx, [ebp-$58]
007E55EC 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E55EF E8F852C2FF call 0040A8EC
007E55F4 8B55A8 mov edx, [ebp-$58]
007E55F7 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007E55FA E8C937C3FF call 00418DC8
007E55FF 8D45AC lea eax, [ebp-$54]
007E5602 50 push eax
* Possible String Reference to: 'T_Money'
|
007E5603 BAE0577E00 mov edx, $007E57E0
007E5608 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E560A E8A515CEFF call 004C6BB4
007E560F 5A pop edx
007E5610 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
007E5612 FF91B4000000 call dword ptr [ecx+$00B4]
007E5618 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmYFCR._PROC_007E5811(Sender : TObject);
begin
(*
007E5811 50 push eax
007E5812 6461 popa
007E5814 7465 jz 007E587B
007E5816 205946 and [ecx+$46], bl
007E5819 5F pop edi
007E581A 4D dec ebp
007E581B 6F outsd
007E581C 6E outsb
007E581D 65795F jns 007E587F
007E5820 43 inc ebx
007E5821 52 push edx
007E5822 2000 and [eax], al
007E5824 FFFF DB $FF, $FF //
007E5826 FFFF DB $FF, $FF //
007E5828 0500000020 add eax, +$20000000
007E582D 53 push ebx
007E582E 657420 jz 007E5851
007E5831 0000 add [eax], al
007E5833 00FF add bh, bh
007E5835 FFFF DB $FF, $FF //
007E5837 FF01 inc dword ptr [ecx]
007E5839 0000 add [eax], al
007E583B 003D000000FF add [$FF000000], bh
007E5841 FFFF DB $FF, $FF //
007E5843 FF09 dec dword ptr [ecx]
007E5845 0000 add [eax], al
007E5847 002C54 add [esp+edx*2], ch
007E584A 5F pop edi
007E584B 4D dec ebp
007E584C 6F outsd
007E584D 6E outsb
007E584E 65793D jns 007E588E
007E5851 0000 add [eax], al
007E5853 00FF add bh, bh
007E5855 FFFF DB $FF, $FF //
007E5857 FF0D00000020 dec dword ptr [$20000000]
007E585D 7768 jnbe 007E58C7
007E585F 657265 jb 007E58C7
007E5862 205946 and [ecx+$46], bl
007E5865 49 dec ecx
007E5866 643D27000000 cmp eax, $00000027
007E586C FFFF DB $FF, $FF //
007E586E FFFF DB $FF, $FF //
007E5870 0400 add al, +$00
007E5872 0000 add [eax], al
007E5874 59 pop ecx
007E5875 46 inc esi
007E5876 49 dec ecx
007E5877 640000 add fs:[eax], al
007E587A 0000 add [eax], al
007E587C FFFF DB $FF, $FF //
007E587E FFFF DB $FF, $FF //
007E5880 0100 add [eax], eax
007E5882 0000 add [eax], al
007E5884 27 daa
007E5885 0000 add [eax], al
007E5887 00558B add [ebp-$75], dl
007E588A EC in al, dx
007E588B B910000000 mov ecx, $00000010
007E5890 6A00 push $00
007E5892 6A00 push $00
007E5894 49 dec ecx
007E5895 75F9 jnz 007E5890
007E5897 51 push ecx
007E5898 53 push ebx
007E5899 56 push esi
007E589A 57 push edi
007E589B 8945FC mov [ebp-$04], eax
007E589E 33C0 xor eax, eax
007E58A0 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E58A1 68195C7E00 push $007E5C19
***** TRY
|
007E58A6 64FF30 push dword ptr fs:[eax]
007E58A9 648920 mov fs:[eax], esp
007E58AC 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
007E58AF 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E58B5 E80626CEFF call 004C7EC0
007E58BA 84C0 test al, al
007E58BC 0F85F1020000 jnz 007E5BB3
007E58C2 A0285C7E00 mov al, byte ptr [$007E5C28]
007E58C7 50 push eax
007E58C8 8D45EC lea eax, [ebp-$14]
007E58CB B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E58CD E89234C3FF call 00418D64
007E58D2 8D4DEC lea ecx, [ebp-$14]
007E58D5 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
007E58D8 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E58DE BA345C7E00 mov edx, $007E5C34
007E58E3 8B18 mov ebx, [eax]
* Possible reference to virtual method TLabel.OFFS_0244
|
007E58E5 FF9344020000 call dword ptr [ebx+$0244]
007E58EB 84C0 test al, al
007E58ED 751D jnz 007E590C
007E58EF 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E58F1 B93C5C7E00 mov ecx, $007E5C3C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E58F6 BA445C7E00 mov edx, $007E5C44
*)
end;
procedure TfrmYFCR._PROC_007E6235(Sender : TObject);
begin
(*
007E6235 50 push eax
007E6236 6461 popa
007E6238 7465 jz 007E629F
007E623A 205946 and [ecx+$46], bl
007E623D 5F pop edi
007E623E 4D dec ebp
007E623F 6F outsd
007E6240 6E outsb
007E6241 65795F jns 007E62A3
007E6244 43 inc ebx
007E6245 52 push edx
007E6246 2000 and [eax], al
007E6248 FFFF DB $FF, $FF //
007E624A FFFF DB $FF, $FF //
007E624C 0500000020 add eax, +$20000000
007E6251 53 push ebx
007E6252 657420 jz 007E6275
007E6255 0000 add [eax], al
007E6257 00FF add bh, bh
007E6259 FFFF DB $FF, $FF //
007E625B FF01 inc dword ptr [ecx]
007E625D 0000 add [eax], al
007E625F 003D000000FF add [$FF000000], bh
007E6265 FFFF DB $FF, $FF //
007E6267 FF09 dec dword ptr [ecx]
007E6269 0000 add [eax], al
007E626B 002C54 add [esp+edx*2], ch
007E626E 5F pop edi
007E626F 4D dec ebp
007E6270 6F outsd
007E6271 6E outsb
007E6272 65793D jns 007E62B2
007E6275 0000 add [eax], al
007E6277 00FF add bh, bh
007E6279 FFFF DB $FF, $FF //
007E627B FF0D00000020 dec dword ptr [$20000000]
007E6281 7768 jnbe 007E62EB
007E6283 657265 jb 007E62EB
007E6286 205946 and [ecx+$46], bl
007E6289 49 dec ecx
007E628A 643D27000000 cmp eax, $00000027
007E6290 FFFF DB $FF, $FF //
007E6292 FFFF DB $FF, $FF //
007E6294 0400 add al, +$00
007E6296 0000 add [eax], al
007E6298 59 pop ecx
007E6299 46 inc esi
007E629A 49 dec ecx
007E629B 640000 add fs:[eax], al
007E629E 0000 add [eax], al
007E62A0 FFFF DB $FF, $FF //
007E62A2 FFFF DB $FF, $FF //
007E62A4 0100 add [eax], eax
007E62A6 0000 add [eax], al
007E62A8 27 daa
007E62A9 0000 add [eax], al
007E62AB 00558B add [ebp-$75], dl
007E62AE EC in al, dx
007E62AF 6A00 push $00
007E62B1 6A00 push $00
007E62B3 53 push ebx
007E62B4 56 push esi
007E62B5 57 push edi
007E62B6 8BD8 mov ebx, eax
007E62B8 33C0 xor eax, eax
007E62BA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[YY]<5D>'
|
007E62BB 681B647E00 push $007E641B
***** TRY
|
007E62C0 64FF30 push dword ptr fs:[eax]
007E62C3 648920 mov fs:[eax], esp
007E62C6 33D2 xor edx, edx
* Reference to control Label19 : TLabel
|
007E62C8 8B83B8030000 mov eax, [ebx+$03B8]
007E62CE 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
007E62D0 FF5164 call dword ptr [ecx+$64]
007E62D3 33D2 xor edx, edx
* Reference to control BankName : N.A.
|
007E62D5 8B83BC030000 mov eax, [ebx+$03BC]
007E62DB 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
007E62DD FF5164 call dword ptr [ecx+$64]
007E62E0 33D2 xor edx, edx
* Reference to control v1Column6 : N.A.
|
007E62E2 8B8300040000 mov eax, [ebx+$0400]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E62E8 E82322CAFF call 00488510
007E62ED 33D2 xor edx, edx
* Reference to control v1Column7 : N.A.
|
007E62EF 8B8304040000 mov eax, [ebx+$0404]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E62F5 E81622CAFF call 00488510
007E62FA 33D2 xor edx, edx
* Reference to control v1Column2 : N.A.
|
007E62FC 8B835C040000 mov eax, [ebx+$045C]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E6302 E80922CAFF call 00488510
* Reference to control v1PRTPrice : N.A.
|
007E6307 8B8338030000 mov eax, [ebx+$0338]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007E630D E83260E7FF call 0065C344
007E6312 8BF0 mov esi, eax
007E6314 4E dec esi
007E6315 85F6 test esi, esi
007E6317 7C54 jl 007E636D
007E6319 46 inc esi
007E631A 33FF xor edi, edi
007E631C 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
007E631E 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E6324 E8A756E8FF call 0066B9D0
|
007E6329 E8F254E8FF call 0066B820
007E632E 8D55F8 lea edx, [ebp-$08]
|
007E6331 E8924AE8FF call 0066ADC8
007E6336 8B45F8 mov eax, [ebp-$08]
007E6339 8D55FC lea edx, [ebp-$04]
|
007E633C E83B41C2FF call 0040A47C
007E6341 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: 'SSEL'
|
007E6344 BA34647E00 mov edx, $007E6434
* Reference to: System.@LStrCmp;
|
007E6349 E8F2F3C1FF call 00405740
007E634E 7419 jz 007E6369
007E6350 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
007E6352 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E6358 E87356E8FF call 0066B9D0
|
007E635D E86E3EE7FF call 0065A1D0
007E6362 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
007E6364 E8F72BE4FF call 00628F60
007E6369 47 inc edi
007E636A 4E dec esi
007E636B 75AF jnz 007E631C
* Reference to control SYRAddress : N.A.
|
007E636D 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to control ADOTemp : N.A.
|
007E6373 8B803C030000 mov eax, [eax+$033C]
007E6379 85C0 test eax, eax
007E637B 7E03 jle 007E6380
007E637D 83F803 cmp eax, +$03
007E6380 85C0 test eax, eax
007E6382 7559 jnz 007E63DD
007E6384 B201 mov dl, $01
* Reference to control Label19 : TLabel
|
007E6386 8B83B8030000 mov eax, [ebx+$03B8]
007E638C 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
007E638E FF5164 call dword ptr [ecx+$64]
007E6391 B201 mov dl, $01
* Reference to control TBClose : TToolButton
|
007E6393 8B8300030000 mov eax, [ebx+$0300]
007E6399 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
007E639B FF5164 call dword ptr [ecx+$64]
007E639E B201 mov dl, $01
* Reference to control v1Column2 : N.A.
|
007E63A0 8B835C040000 mov eax, [ebx+$045C]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007E63A6 E86521CAFF call 00488510
* Reference to control v1PRTPrice : N.A.
|
007E63AB 8B8338030000 mov eax, [ebx+$0338]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
007E63B1 E88E5FE7FF call 0065C344
007E63B6 8BF0 mov esi, eax
007E63B8 4E dec esi
007E63B9 85F6 test esi, esi
007E63BB 7C20 jl 007E63DD
007E63BD 46 inc esi
007E63BE 33FF xor edi, edi
007E63C0 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
007E63C2 8B8338030000 mov eax, [ebx+$0338]
* 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;
|
007E63C8 E80356E8FF call 0066B9D0
|
007E63CD E8FE3DE7FF call 0065A1D0
007E63D2 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
007E63D4 E8872BE4FF call 00628F60
007E63D9 47 inc edi
007E63DA 4E dec esi
007E63DB 75E3 jnz 007E63C0
* Reference to control SYRAddress : N.A.
|
007E63DD 8B83B4030000 mov eax, [ebx+$03B4]
* Reference to control ADOTemp : N.A.
|
007E63E3 83B83C03000001 cmp dword ptr [eax+$033C], +$01
007E63EA 750D jnz 007E63F9
007E63EC B201 mov dl, $01
* Reference to control BankName : N.A.
|
007E63EE 8B83BC030000 mov eax, [ebx+$03BC]
007E63F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
007E63F6 FF5164 call dword ptr [ecx+$64]
007E63F9 8BC3 mov eax, ebx
|
007E63FB E848AEFFFF call 007E1248
007E6400 33C0 xor eax, eax
007E6402 5A pop edx
007E6403 59 pop ecx
007E6404 59 pop ecx
007E6405 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[YY]<5D>'
|
007E6408 6822647E00 push $007E6422
007E640D 8D45F8 lea eax, [ebp-$08]
007E6410 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007E6415 E82EEFC1FF call 00405348
007E641A C3 ret
*)
end;
procedure TfrmYFCR._PROC_007E7239(Sender : TObject);
begin
(*
007E7239 50 push eax
007E723A 6461 popa
007E723C 7465 jz 007E72A3
007E723E 205946 and [ecx+$46], bl
007E7241 5F pop edi
007E7242 4D dec ebp
007E7243 6F outsd
007E7244 6E outsb
007E7245 65795F jns 007E72A7
007E7248 43 inc ebx
007E7249 52 push edx
007E724A 2000 and [eax], al
007E724C FFFF DB $FF, $FF //
007E724E FFFF DB $FF, $FF //
007E7250 0E push cs
007E7251 0000 add [eax], al
007E7253 0020 add [eax], ah
007E7255 53 push ebx
007E7256 657420 jz 007E7279
007E7259 4F dec edi
007E725A 7264 jb 007E72C0
007E725C 65724E jb 007E72AD
007E725F 4F dec edi
007E7260 3D270000FF cmp eax, $FF000027
007E7265 FFFF DB $FF, $FF //
007E7267 FF07 inc dword ptr [edi]
007E7269 0000 add [eax], al
007E726B 004F72 add [edi+$72], cl
007E726E 6465724E jb 007E72C0
007E7272 4F dec edi
007E7273 00FF add bh, bh
007E7275 FFFF DB $FF, $FF //
007E7277 FF01 inc dword ptr [ecx]
007E7279 0000 add [eax], al
007E727B 0027 add [edi], ah
007E727D 0000 add [eax], al
007E727F 00FF add bh, bh
007E7281 FFFF DB $FF, $FF //
007E7283 FF0E dec dword ptr [esi]
007E7285 0000 add [eax], al
007E7287 0020 add [eax], ah
007E7289 2C50 sub al, $50
007E728B 5F pop edi
007E728C 43 inc ebx
007E728D 6F outsd
007E728E 64654E dec esi
007E7291 61 popa
007E7292 6D insd
007E7293 653D270000FF cmp eax, $FF000027
007E7299 FFFF DB $FF, $FF //
007E729B FF09 dec dword ptr [ecx]
007E729D 0000 add [eax], al
007E729F 0020 add [eax], ah
007E72A1 2C43 sub al, $43
007E72A3 6F outsd
007E72A4 6E outsb
007E72A5 4E dec esi
007E72A6 4F dec edi
007E72A7 3D27000000 cmp eax, $00000027
007E72AC FFFF DB $FF, $FF //
007E72AE FFFF DB $FF, $FF //
007E72B0 0A00 or al, byte ptr [eax]
007E72B2 0000 add [eax], al
007E72B4 202C50 and [eax+edx*2], ch
007E72B7 5F pop edi
007E72B8 53 push ebx
007E72B9 7065 jo 007E7320
007E72BB 633D270000FF arpl [$FF000027], di
007E72C1 FFFF DB $FF, $FF //
007E72C3 FF0C00 dec dword ptr [eax+eax]
007E72C6 0000 add [eax], al
007E72C8 202C5A and [edx+ebx*2], ch
007E72CB 53 push ebx
007E72CC 44 inc esp
007E72CD 53 push ebx
007E72CE 7562 jnz 007E7332
007E72D0 69643D2700000000 imul esp, [ebp+edi+$27], $00000000
007E72D8 FFFF DB $FF, $FF //
007E72DA FFFF DB $FF, $FF //
007E72DC 0D00000020 or eax, $20000000
007E72E1 7768 jnbe 007E734B
007E72E3 657265 jb 007E734B
007E72E6 205946 and [ecx+$46], bl
007E72E9 49 dec ecx
007E72EA 643D27000000 cmp eax, $00000027
007E72F0 FFFF DB $FF, $FF //
007E72F2 FFFF DB $FF, $FF //
007E72F4 0400 add al, +$00
007E72F6 0000 add [eax], al
007E72F8 59 pop ecx
007E72F9 46 inc esi
007E72FA 49 dec ecx
007E72FB 640000 add fs:[eax], al
007E72FE 0000 add [eax], al
007E7300 55 push ebp
007E7301 8BEC mov ebp, esp
007E7303 51 push ecx
007E7304 B906000000 mov ecx, $00000006
007E7309 6A00 push $00
007E730B 6A00 push $00
007E730D 49 dec ecx
007E730E 75F9 jnz 007E7309
007E7310 51 push ecx
007E7311 874DFC xchg [ebp-$04], ecx
007E7314 53 push ebx
007E7315 56 push esi
007E7316 8BF0 mov esi, eax
007E7318 33C0 xor eax, eax
007E731A 55 push ebp
007E731B 6857757E00 push $007E7557
***** TRY
|
007E7320 64FF30 push dword ptr fs:[eax]
007E7323 648920 mov fs:[eax], esp
007E7326 33C0 xor eax, eax
007E7328 55 push ebp
007E7329 682D757E00 push $007E752D
***** TRY
|
007E732E 64FF30 push dword ptr fs:[eax]
007E7331 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR._PROC_007E75A5(Sender : TObject);
begin
(*
007E75A5 50 push eax
007E75A6 6461 popa
007E75A8 7465 jz 007E760F
007E75AA 205946 and [ecx+$46], bl
007E75AD 5F pop edi
007E75AE 4D dec ebp
007E75AF 6F outsd
007E75B0 6E outsb
007E75B1 65795F jns 007E7613
007E75B4 43 inc ebx
007E75B5 52 push edx
007E75B6 2000 and [eax], al
007E75B8 FFFF DB $FF, $FF //
007E75BA FFFF DB $FF, $FF //
007E75BC 1000 adc [eax], al
007E75BE 0000 add [eax], al
007E75C0 205365 and [ebx+$65], dl
007E75C3 7420 jz 007E75E5
007E75C5 43 inc ebx
007E75C6 6F outsd
007E75C7 6D insd
007E75C8 54 push esp
007E75C9 61 popa
007E75CA 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
007E75D2 0000 add [eax], al
007E75D4 FFFF DB $FF, $FF //
007E75D6 FFFF DB $FF, $FF //
007E75D8 0100 add [eax], eax
007E75DA 0000 add [eax], al
007E75DC 27 daa
007E75DD 0000 add [eax], al
007E75DF 00FF add bh, bh
007E75E1 FFFF DB $FF, $FF //
007E75E3 FF09 dec dword ptr [ecx]
007E75E5 0000 add [eax], al
007E75E7 002C4564697465 add [$65746964+eax*2], ch
007E75EE 723D jb 007E762D
007E75F0 27 daa
007E75F1 0000 add [eax], al
007E75F3 00FF add bh, bh
007E75F5 FFFF DB $FF, $FF //
007E75F7 FF1400 call dword ptr [eax+eax]
007E75FA 0000 add [eax], al
007E75FC 2C45 sub al, $45
007E75FE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E7607 657464 jz 007E766E
007E760A 61 popa
007E760B 7465 jz 007E7672
007E760D 2829 sub [ecx], ch
007E760F 2000 and [eax], al
007E7611 0000 add [eax], al
007E7613 00FF add bh, bh
007E7615 FFFF DB $FF, $FF //
007E7617 FF0D00000020 dec dword ptr [$20000000]
007E761D 7768 jnbe 007E7687
007E761F 657265 jb 007E7687
007E7622 205946 and [ecx+$46], bl
007E7625 49 dec ecx
007E7626 643D27000000 cmp eax, $00000027
007E762C FFFF DB $FF, $FF //
007E762E FFFF DB $FF, $FF //
007E7630 0400 add al, +$00
007E7632 0000 add [eax], al
007E7634 59 pop ecx
007E7635 46 inc esi
007E7636 49 dec ecx
007E7637 640000 add fs:[eax], al
007E763A 0000 add [eax], al
007E763C 55 push ebp
007E763D 8BEC mov ebp, esp
007E763F 51 push ecx
007E7640 B907000000 mov ecx, $00000007
007E7645 6A00 push $00
007E7647 6A00 push $00
007E7649 49 dec ecx
007E764A 75F9 jnz 007E7645
007E764C 51 push ecx
007E764D 874DFC xchg [ebp-$04], ecx
007E7650 53 push ebx
007E7651 56 push esi
007E7652 8BF0 mov esi, eax
007E7654 33C0 xor eax, eax
007E7656 55 push ebp
007E7657 68EF787E00 push $007E78EF
***** TRY
|
007E765C 64FF30 push dword ptr fs:[eax]
007E765F 648920 mov fs:[eax], esp
* Reference to control Label11 : TLabel
|
007E7662 8B8664030000 mov eax, [esi+$0364]
* Possible String Reference to: 'YFType'
|
007E7668 BA04797E00 mov edx, $007E7904
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E766D E842F5CDFF call 004C6BB4
007E7672 8D55F8 lea edx, [ebp-$08]
007E7675 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
007E7677 FF5160 call dword ptr [ecx+$60]
007E767A 8B45F8 mov eax, [ebp-$08]
007E767D 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007E7680 E86732C2FF call 0040A8EC
007E7685 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
007E7688 BA14797E00 mov edx, $007E7914
* Reference to: System.@LStrCmp;
|
007E768D E8AEE0C1FF call 00405740
007E7692 751D jnz 007E76B1
007E7694 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E7696 B920797E00 mov ecx, $007E7920
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
007E769B BA28797E00 mov edx, $007E7928
*)
end;
procedure TfrmYFCR._PROC_007E7979(Sender : TObject);
begin
(*
007E7979 50 push eax
007E797A 6461 popa
007E797C 7465 jz 007E79E3
007E797E 205946 and [ecx+$46], bl
007E7981 5F pop edi
007E7982 4D dec ebp
007E7983 6F outsd
007E7984 6E outsb
007E7985 65795F jns 007E79E7
007E7988 43 inc ebx
007E7989 52 push edx
007E798A 2000 and [eax], al
007E798C FFFF DB $FF, $FF //
007E798E FFFF DB $FF, $FF //
007E7990 0E push cs
007E7991 0000 add [eax], al
007E7993 0020 add [eax], ah
007E7995 53 push ebx
007E7996 657420 jz 007E79B9
007E7999 50 push eax
007E799A 5F pop edi
007E799B 43 inc ebx
007E799C 6F outsd
007E799D 6C insb
007E799E 6F outsd
007E799F 723D jb 007E79DE
007E79A1 27 daa
007E79A2 0000 add [eax], al
007E79A4 FFFF DB $FF, $FF //
007E79A6 FFFF DB $FF, $FF //
007E79A8 0100 add [eax], eax
007E79AA 0000 add [eax], al
007E79AC 27 daa
007E79AD 0000 add [eax], al
007E79AF 00FF add bh, bh
007E79B1 FFFF DB $FF, $FF //
007E79B3 FF09 dec dword ptr [ecx]
007E79B5 0000 add [eax], al
007E79B7 002C4564697465 add [$65746964+eax*2], ch
007E79BE 723D jb 007E79FD
007E79C0 27 daa
007E79C1 0000 add [eax], al
007E79C3 00FF add bh, bh
007E79C5 FFFF DB $FF, $FF //
007E79C7 FF1400 call dword ptr [eax+eax]
007E79CA 0000 add [eax], al
007E79CC 2C45 sub al, $45
007E79CE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E79D7 657464 jz 007E7A3E
007E79DA 61 popa
007E79DB 7465 jz 007E7A42
007E79DD 2829 sub [ecx], ch
007E79DF 2000 and [eax], al
007E79E1 0000 add [eax], al
007E79E3 00FF add bh, bh
007E79E5 FFFF DB $FF, $FF //
007E79E7 FF0D00000020 dec dword ptr [$20000000]
007E79ED 7768 jnbe 007E7A57
007E79EF 657265 jb 007E7A57
007E79F2 205946 and [ecx+$46], bl
007E79F5 49 dec ecx
007E79F6 643D27000000 cmp eax, $00000027
007E79FC FFFF DB $FF, $FF //
007E79FE FFFF DB $FF, $FF //
007E7A00 0400 add al, +$00
007E7A02 0000 add [eax], al
007E7A04 59 pop ecx
007E7A05 46 inc esi
007E7A06 49 dec ecx
007E7A07 640000 add fs:[eax], al
007E7A0A 0000 add [eax], al
007E7A0C 53 push ebx
007E7A0D 56 push esi
007E7A0E 8BD8 mov ebx, eax
* Reference to control ToolBar1 : TToolBar
|
007E7A10 8B83F8020000 mov eax, [ebx+$02F8]
007E7A16 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
007E7A18 FF92C4000000 call dword ptr [edx+$00C4]
* Possible String Reference to: 'Qty'
|
007E7A1E BABC7A7E00 mov edx, $007E7ABC
* Reference to control Label11 : TLabel
|
007E7A23 8BB364030000 mov esi, [ebx+$0364]
007E7A29 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E7A2B E884F1CDFF call 004C6BB4
007E7A30 8B10 mov edx, [eax]
* Reference to method TLabel.GetDragImages()
|
007E7A32 FF524C call dword ptr [edx+$4C]
007E7A35 D835C07A7E00 fdiv dword ptr [$007E7AC0]
007E7A3B 83C4F8 add esp, -$08
007E7A3E DD1C24 fstp qword ptr [esp]
007E7A41 9B wait
* Reference to control Label29 : N.A.
|
007E7A42 8B93F4030000 mov edx, [ebx+$03F4]
007E7A48 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
007E7A4A E841F3FCFF call 007B6D90
* Possible String Reference to: 'Money'
|
007E7A4F BACC7A7E00 mov edx, $007E7ACC
* Reference to control Label11 : TLabel
|
007E7A54 8BB364030000 mov esi, [ebx+$0364]
007E7A5A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E7A5C E853F1CDFF call 004C6BB4
007E7A61 8B10 mov edx, [eax]
* Reference to method TLabel.GetDragImages()
|
007E7A63 FF524C call dword ptr [edx+$4C]
007E7A66 D835C07A7E00 fdiv dword ptr [$007E7AC0]
007E7A6C 83C4F8 add esp, -$08
007E7A6F DD1C24 fstp qword ptr [esp]
007E7A72 9B wait
* Reference to control KHConNo : N.A.
|
007E7A73 8B93F8030000 mov edx, [ebx+$03F8]
007E7A79 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
007E7A7B E810F3FCFF call 007B6D90
* Possible String Reference to: 'ps'
|
007E7A80 BADC7A7E00 mov edx, $007E7ADC
* Reference to control Label11 : TLabel
|
007E7A85 8BB364030000 mov esi, [ebx+$0364]
007E7A8B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007E7A8D E822F1CDFF call 004C6BB4
007E7A92 8B10 mov edx, [eax]
* Reference to method TLabel.GetDragImages()
|
007E7A94 FF524C call dword ptr [edx+$4C]
007E7A97 D835C07A7E00 fdiv dword ptr [$007E7AC0]
007E7A9D 83C4F8 add esp, -$08
007E7AA0 DD1C24 fstp qword ptr [esp]
007E7AA3 9B wait
* Reference to control CustomerNo : N.A.
|
007E7AA4 8B933C040000 mov edx, [ebx+$043C]
007E7AAA 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
007E7AAC E8DFF2FCFF call 007B6D90
007E7AB1 5E pop esi
007E7AB2 5B pop ebx
007E7AB3 C3 ret
*)
end;
procedure TfrmYFCR._PROC_007E82D9(Sender : TObject);
begin
(*
007E82D9 50 push eax
007E82DA 6461 popa
007E82DC 7465 jz 007E8343
007E82DE 205946 and [ecx+$46], bl
007E82E1 5F pop edi
007E82E2 4D dec ebp
007E82E3 6F outsd
007E82E4 6E outsb
007E82E5 65795F jns 007E8347
007E82E8 43 inc ebx
007E82E9 52 push edx
007E82EA 2000 and [eax], al
007E82EC FFFF DB $FF, $FF //
007E82EE FFFF DB $FF, $FF //
007E82F0 0D00000020 or eax, $20000000
007E82F5 53 push ebx
007E82F6 657420 jz 007E8319
007E82F9 4B dec ebx
007E82FA 50 push eax
007E82FB 54 push esp
007E82FC 7970 jns 007E836E
007E82FE 653D27000000 cmp eax, $00000027
007E8304 FFFF DB $FF, $FF //
007E8306 FFFF DB $FF, $FF //
007E8308 0100 add [eax], eax
007E830A 0000 add [eax], al
007E830C 27 daa
007E830D 0000 add [eax], al
007E830F 00FF add bh, bh
007E8311 FFFF DB $FF, $FF //
007E8313 FF0D00000020 dec dword ptr [$20000000]
007E8319 7768 jnbe 007E8383
007E831B 657265 jb 007E8383
007E831E 205946 and [ecx+$46], bl
007E8321 49 dec ecx
007E8322 643D27000000 cmp eax, $00000027
007E8328 FFFF DB $FF, $FF //
007E832A FFFF DB $FF, $FF //
007E832C 0400 add al, +$00
007E832E 0000 add [eax], al
007E8330 59 pop ecx
007E8331 46 inc esi
007E8332 49 dec ecx
007E8333 640000 add fs:[eax], al
007E8336 0000 add [eax], al
|
007E8338 E80B8FFFFF call 007E1248
007E833D C3 ret
007E833E 8BC0 mov eax, eax
007E8340 55 push ebp
007E8341 8BEC mov ebp, esp
007E8343 B906000000 mov ecx, $00000006
007E8348 6A00 push $00
007E834A 6A00 push $00
007E834C 49 dec ecx
007E834D 75F9 jnz 007E8348
007E834F 53 push ebx
007E8350 56 push esi
007E8351 57 push edi
007E8352 8945FC mov [ebp-$04], eax
007E8355 33C0 xor eax, eax
007E8357 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007E8358 6849867E00 push $007E8649
***** TRY
|
007E835D 64FF30 push dword ptr fs:[eax]
007E8360 648920 mov fs:[eax], esp
007E8363 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
007E8366 8B8064030000 mov eax, [eax+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007E836C E84FFBCDFF call 004C7EC0
007E8371 84C0 test al, al
007E8373 0F85AD020000 jnz 007E8626
007E8379 A058867E00 mov al, byte ptr [$007E8658]
007E837E 50 push eax
007E837F 8D45EC lea eax, [ebp-$14]
007E8382 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007E8384 E8DB09C3FF call 00418D64
007E8389 8D4DEC lea ecx, [ebp-$14]
007E838C 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
007E838F 8B8064030000 mov eax, [eax+$0364]
* Possible String Reference to: 'ssel'
|
007E8395 BA64867E00 mov edx, $007E8664
007E839A 8B18 mov ebx, [eax]
* Possible reference to virtual method TLabel.OFFS_0244
|
007E839C FF9344020000 call dword ptr [ebx+$0244]
007E83A2 84C0 test al, al
007E83A4 751D jnz 007E83C3
007E83A6 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007E83A8 B96C867E00 mov ecx, $007E866C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007E83AD BA74867E00 mov edx, $007E8674
*)
end;
procedure TfrmYFCR._PROC_007E8CD9(Sender : TObject);
begin
(*
007E8CD9 50 push eax
007E8CDA 6461 popa
007E8CDC 7465 jz 007E8D43
007E8CDE 205946 and [ecx+$46], bl
007E8CE1 5F pop edi
007E8CE2 4D dec ebp
007E8CE3 6F outsd
007E8CE4 6E outsb
007E8CE5 65795F jns 007E8D47
007E8CE8 43 inc ebx
007E8CE9 52 push edx
007E8CEA 2000 and [eax], al
007E8CEC FFFF DB $FF, $FF //
007E8CEE FFFF DB $FF, $FF //
007E8CF0 0C00 or al, $00
007E8CF2 0000 add [eax], al
007E8CF4 205365 and [ebx+$65], dl
007E8CF7 7420 jz 007E8D19
007E8CF9 43 inc ebx
007E8CFA 6F outsd
007E8CFB 6E outsb
007E8CFC 69643D2700000000 imul esp, [ebp+edi+$27], $00000000
007E8D04 FFFF DB $FF, $FF //
007E8D06 FFFF DB $FF, $FF //
007E8D08 0100 add [eax], eax
007E8D0A 0000 add [eax], al
007E8D0C 27 daa
007E8D0D 0000 add [eax], al
007E8D0F 00FF add bh, bh
007E8D11 FFFF DB $FF, $FF //
007E8D13 FF08 dec dword ptr [eax]
007E8D15 0000 add [eax], al
007E8D17 002C43 add [ebx+eax*2], ch
007E8D1A 6F outsd
007E8D1B 6E outsb
007E8D1C 4E dec esi
007E8D1D 6F outsd
007E8D1E 3D27000000 cmp eax, $00000027
007E8D23 00FF add bh, bh
007E8D25 FFFF DB $FF, $FF //
007E8D27 FF09 dec dword ptr [ecx]
007E8D29 0000 add [eax], al
007E8D2B 002C4564697465 add [$65746964+eax*2], ch
007E8D32 723D jb 007E8D71
007E8D34 27 daa
007E8D35 0000 add [eax], al
007E8D37 00FF add bh, bh
007E8D39 FFFF DB $FF, $FF //
007E8D3B FF1400 call dword ptr [eax+eax]
007E8D3E 0000 add [eax], al
007E8D40 2C45 sub al, $45
007E8D42 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
007E8D4B 657464 jz 007E8DB2
007E8D4E 61 popa
007E8D4F 7465 jz 007E8DB6
007E8D51 2829 sub [ecx], ch
007E8D53 2000 and [eax], al
007E8D55 0000 add [eax], al
007E8D57 00FF add bh, bh
007E8D59 FFFF DB $FF, $FF //
007E8D5B FF0D00000020 dec dword ptr [$20000000]
007E8D61 7768 jnbe 007E8DCB
007E8D63 657265 jb 007E8DCB
007E8D66 205946 and [ecx+$46], bl
007E8D69 49 dec ecx
007E8D6A 643D27000000 cmp eax, $00000027
007E8D70 FFFF DB $FF, $FF //
007E8D72 FFFF DB $FF, $FF //
007E8D74 0400 add al, +$00
007E8D76 0000 add [eax], al
007E8D78 59 pop ecx
007E8D79 46 inc esi
007E8D7A 49 dec ecx
007E8D7B 640000 add fs:[eax], al
007E8D7E 0000 add [eax], al
007E8D80 55 push ebp
007E8D81 8BEC mov ebp, esp
007E8D83 33C0 xor eax, eax
007E8D85 55 push ebp
* Possible String Reference to: '<27>J<EFBFBD><4A><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D><<3C>'
|
007E8D86 68A58D7E00 push $007E8DA5
***** TRY
|
007E8D8B 64FF30 push dword ptr fs:[eax]
007E8D8E 648920 mov fs:[eax], esp
007E8D91 FF05CC3C8900 inc dword ptr [$00893CCC]
007E8D97 33C0 xor eax, eax
007E8D99 5A pop edx
007E8D9A 59 pop ecx
007E8D9B 59 pop ecx
007E8D9C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
007E8D9F 68AC8D7E00 push $007E8DAC
007E8DA4 C3 ret
* Reference to: System.@HandleFinally;
|
007E8DA5 E94ABDC1FF jmp 00404AF4
007E8DAA EBF8 jmp 007E8DA4
****** END
|
007E8DAC 5D pop ebp
007E8DAD C3 ret
007E8DAE 8BC0 mov eax, eax
007E8DB0 832DCC3C890001 sub dword ptr [$00893CCC], +$01
007E8DB7 C3 ret
007E8DB8 048E add al, -$72
007E8DBA 7E00 jle 007E8DBC
007E8DBC 0000 add [eax], al
007E8DBE 0000 add [eax], al
007E8DC0 0000 add [eax], al
007E8DC2 0000 add [eax], al
007E8DC4 F8 clc
007E8DC5 8E7E00 mov , word ptr [esi+$00]
007E8DC8 7896 js 007E8D60
007E8DCA 7E00 jle 007E8DCC
007E8DCC 228F7E000992 and cl, byte ptr [edi+$9209007E]
007E8DD2 7E00 jle 007E8DD4
007E8DD4 0000 add [eax], al
*)
end;
procedure TfrmYFCR._PROC_007E8E1E(Sender : TObject);
begin
(*
007E8E1E 48 dec eax
007E8E1F 0050D4 add [eax-$2C], dl
007E8E22 42 inc edx
007E8E23 0008 add [eax], cl
007E8E25 2D4A007CD0 sub eax, $D07C004A
007E8E2A 42 inc edx
007E8E2B 00F4 add ah, dh
007E8E2D 6B4A00D0 imul ecx, [edx+$00], $D0
007E8E31 1D4A0030F6 sbb eax, $F630004A
007E8E36 48 dec eax
007E8E37 004CFB48 add [ebx+edi*8+$48], cl
007E8E3B 0098FA48000C add [eax+$C0048FA], bl
007E8E41 7948 jns 007E8E8B
007E8E43 00ACF04800E829 add [eax+esi*8+$29E80048], ch
007E8E4A 4A dec edx
007E8E4B 00E4 add ah, ah
007E8E4D ED in eax, dx
007E8E4E 48 dec eax
007E8E4F 00547848 add [eax+edi*2+$48], dl
007E8E53 005878 add [eax+$78], bl
007E8E56 48 dec eax
007E8E57 00DC add ah, bl
007E8E59 2A4A00 sub cl, byte ptr [edx+$00]
007E8E5C 3CA9 cmp al, $A9
007E8E5E 48 dec eax
007E8E5F 00C0 add al, al
007E8E61 834800D0 or dword ptr [eax+$00], -$30
007E8E65 7948 jns 007E8EAF
007E8E67 004C8548 add [ebp+eax*4+$48], cl
007E8E6B 00D0 add al, dl
007E8E6D 2C4A sub al, $4A
007E8E6F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
007E8E76 48 dec eax
007E8E77 00482D add [eax+$2D], cl
007E8E7A 4A dec edx
007E8E7B 00C0 add al, al
007E8E7D A9480038EE test eax, $EE380048
007E8E82 48 dec eax
007E8E83 00F4 add ah, dh
007E8E85 EE out dx, al
007E8E86 48 dec eax
007E8E87 00F0 add al, dh
007E8E89 E94800D8EE jmp EF568ED6
007E8E8E 48 dec eax
007E8E8F 00D8 add al, bl
007E8E91 1B4A00 sbb ecx, [edx+$00]
007E8E94 EC in al, dx
007E8E95 334A00 xor ecx, [edx+$00]
007E8E98 20C4 and ah, al
007E8E9A 48 dec eax
007E8E9B 00B0404A0010 add [eax+$10004A40], dh
007E8EA1 44 inc esp
007E8EA2 4A dec edx
007E8EA3 00CC add ah, cl
007E8EA5 42 inc edx
007E8EA6 4A dec edx
007E8EA7 00B8C44800BC add [eax+$BC0048C4], bh
007E8EAD C44800 les ecx, [eax+$00]
007E8EB0 48 dec eax
007E8EB1 45 inc ebp
007E8EB2 4A dec edx
007E8EB3 001CC3 add [ebx+eax*8], bl
007E8EB6 48 dec eax
007E8EB7 0018 add [eax], bl
007E8EB9 F0 lock
007E8EBA 48 dec eax
007E8EBB 00444C4A add [esp+ecx*2+$4A], al
007E8EBF 000C02 add [edx+eax], cl
007E8EC2 49 dec ecx
007E8EC3 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
007E8ECA 4A dec edx
007E8ECB 008C154A003C18 add [ebp+edx+$183C004A], cl
007E8ED2 4A dec edx
007E8ED3 0038 add [eax], bh
007E8ED5 52 push edx
007E8ED6 4A dec edx
007E8ED7 005C224A add [edx+$4A], bl
007E8EDB 00D8 add al, bl
007E8EDD 224A00 and cl, byte ptr [edx+$00]
007E8EE0 7C68 jl 007E8F4A
007E8EE2 4A dec edx
007E8EE3 00941F4A003C60 add [edi+ebx+$603C004A], dl
007E8EEA 4A dec edx
007E8EEB 001447 add [edi+eax*2], dl
007E8EEE 4A dec edx
007E8EEF 0034654A00CC2C add [$2CCC004A], dh
007E8EF6 4A dec edx
007E8EF7 000E add [esi], cl
007E8EF9 0000 add [eax], al
007E8EFB 0000 add [eax], al
007E8EFD 000400 add [eax+eax], al
007E8F00 0000 add [eax], al
007E8F02 2011 and [ecx], dl
007E8F04 40 inc eax
007E8F05 00BC0300002011 add [ebx+eax+$11200000], bh
007E8F0C 40 inc eax
007E8F0D 00C0 add al, al
007E8F0F 0300 add eax, [eax]
007E8F11 0020 add [eax], ah
007E8F13 114000 adc [eax+$00], eax
007E8F16 C403 les eax, [ebx]
007E8F18 0000 add [eax], al
007E8F1A 2011 and [ecx], dl
007E8F1C 40 inc eax
007E8F1D 00C8 add al, cl
007E8F1F 0300 add eax, [eax]
007E8F21 0031 add [ecx], dh
007E8F23 0030 add [eax], dh
007E8F25 96 xchg eax, esi
007E8F26 7E00 jle 007E8F28
007E8F28 F8 clc
007E8F29 0200 add al, byte ptr [eax]
007E8F2B 0000 add [eax], al
007E8F2D 0008 add [eax], cl
007E8F2F 54 push esp
007E8F30 6F outsd
007E8F31 6F outsd
007E8F32 6C insb
007E8F33 42 inc edx
007E8F34 61 popa
007E8F35 7231 jb 007E8F68
007E8F37 FC cld
007E8F38 0200 add al, byte ptr [eax]
007E8F3A 0001 add [ecx], al
007E8F3C 0009 add [ecx], cl
007E8F3E 54 push esp
007E8F3F 42 inc edx
007E8F40 52 push edx
007E8F41 61 popa
007E8F42 667265 jb 007E8FAA
007E8F45 7368 jnb 007E8FAF
007E8F47 0003 add [ebx], al
007E8F49 0000 add [eax], al
007E8F4B 0100 add [eax], eax
007E8F4D 0554424465 add eax, +$65444254
007E8F52 6C insb
007E8F53 0403 add al, +$03
007E8F55 0000 add [eax], al
007E8F57 0100 add [eax], eax
007E8F59 07 pop es
007E8F5A 54 push esp
007E8F5B 42 inc edx
007E8F5C 43 inc ebx
007E8F5D 6C insb
007E8F5E 6F outsd
007E8F5F 7365 jnb 007E8FC6
007E8F61 0803 or [ebx], al
007E8F63 0000 add [eax], al
007E8F65 0200 add al, byte ptr [eax]
007E8F67 0C41 or al, $41
007E8F69 44 inc esp
007E8F6A 4F dec edi
007E8F6B 51 push ecx
007E8F6C 7565 jnz 007E8FD3
007E8F6E 7279 jb 007E8FE9
007E8F70 54 push esp
007E8F71 656D insd
007E8F73 700C jo 007E8F81
007E8F75 0300 add eax, [eax]
007E8F77 0002 add [edx], al
007E8F79 000B add [ebx], cl
007E8F7B 41 inc ecx
007E8F7C 44 inc esp
007E8F7D 4F dec edi
007E8F7E 51 push ecx
007E8F7F 7565 jnz 007E8FE6
007E8F81 7279 jb 007E8FFC
007E8F83 43 inc ebx
007E8F84 6D insd
007E8F85 641003 adc fs:[ebx], al
007E8F88 0000 add [eax], al
007E8F8A 0300 add eax, [eax]
007E8F8C 06 push es
007E8F8D 50 push eax
007E8F8E 61 popa
007E8F8F 6E outsb
007E8F90 656C insb
007E8F92 311403 xor [ebx+eax], edx
007E8F95 0000 add [eax], al
007E8F97 0100 add [eax], eax
007E8F99 0B546F6F or edx, [edi+ebp*2+$6F]
007E8F9D 6C insb
007E8F9E 42 inc edx
007E8F9F 7574 jnz 007E9015
007E8FA1 746F jz 007E9012
007E8FA3 6E outsb
007E8FA4 3218 xor bl, byte ptr [eax]
007E8FA6 0300 add eax, [eax]
007E8FA8 000400 add [eax+eax], al
007E8FAB 06 push es
007E8FAC 4C dec esp
007E8FAD 61 popa
007E8FAE 62656C bound esp, qword ptr [ebp+$6C]
007E8FB1 311C03 xor [ebx+eax], ebx
007E8FB4 0000 add [eax], al
007E8FB6 0500065946 add eax, +$46590600
007E8FBB 4E dec esi
007E8FBC 61 popa
007E8FBD 6D insd
007E8FBE 652003 and gs:[ebx], al
007E8FC1 0000 add [eax], al
007E8FC3 0200 add al, byte ptr [eax]
007E8FC5 0C41 or al, $41
007E8FC7 44 inc esp
007E8FC8 4F dec edi
007E8FC9 51 push ecx
007E8FCA 7565 jnz 007E9031
007E8FCC 7279 jb 007E9047
007E8FCE 4D dec ebp
007E8FCF 61 popa
007E8FD0 696E2403000001 imul ebp, [esi+$24], $01000003
007E8FD7 000B add [ebx], cl
007E8FD9 54 push esp
007E8FDA 6F outsd
007E8FDB 6F outsd
007E8FDC 6C insb
007E8FDD 42 inc edx
007E8FDE 7574 jnz 007E9054
007E8FE0 746F jz 007E9051
007E8FE2 6E outsb
007E8FE3 3128 xor [eax], ebp
007E8FE5 0300 add eax, [eax]
007E8FE7 0006 add [esi], al
007E8FE9 0003 add [ebx], al
007E8FEB 52 push edx
007E8FEC 4D dec ebp
007E8FED 312C03 xor [ebx+eax], ebp
007E8FF0 0000 add [eax], al
007E8FF2 07 pop es
007E8FF3 0009 add [ecx], cl
007E8FF5 52 push edx
007E8FF6 4D dec ebp
007E8FF7 44 inc esp
007E8FF8 42 inc edx
007E8FF9 5F pop edi
007E8FFA 4D dec ebp
007E8FFB 61 popa
007E8FFC 696E3003000004 imul ebp, [esi+$30], $04000003
007E9003 0006 add [esi], al
007E9005 4C dec esp
007E9006 61 popa
007E9007 62656C bound esp, qword ptr [ebp+$6C]
007E900A 333403 xor esi, [ebx+eax]
007E900D 0000 add [eax], al
007E900F 05000B4661 add eax, +$61460B00
007E9014 63746F72 arpl [edi+ebp*2+$72], si
007E9018 794E jns 007E9068
007E901A 61 popa
007E901B 6D insd
007E901C 653803 cmp gs:[ebx], al
007E901F 0000 add [eax], al
007E9021 0800 or [eax], al
007E9023 07 pop es
007E9024 637847 arpl [eax+$47], di
007E9027 7269 jb 007E9092
007E9029 64323C03 xor bh, byte ptr fs:[ebx+eax]
007E902D 0000 add [eax], al
007E902F 0900 or [eax], eax
007E9031 03547632 add edx, [esi+esi*2+$32]
007E9035 40 inc eax
007E9036 0300 add eax, [eax]
007E9038 000A add [edx], cl
007E903A 000F add [edi], cl
007E903C 637847 arpl [eax+$47], di
007E903F 7269 jb 007E90AA
007E9041 6444 inc esp
007E9043 42 inc edx
007E9044 43 inc ebx
007E9045 6F outsd
007E9046 6C insb
007E9047 756D jnz 007E90B6
007E9049 6E outsb
007E904A 31440300 xor [ebx+eax+$00], eax
007E904E 000A add [edx], cl
007E9050 000F add [edi], cl
007E9052 637847 arpl [eax+$47], di
007E9055 7269 jb 007E90C0
007E9057 6444 inc esp
007E9059 42 inc edx
007E905A 43 inc ebx
007E905B 6F outsd
007E905C 6C insb
007E905D 756D jnz 007E90CC
007E905F 6E outsb
007E9060 3548030000 xor eax, $00000348
007E9065 0A00 or al, byte ptr [eax]
007E9067 0F637847 packusdw MM7, [eax+$47]
007E906B 7269 jb 007E90D6
007E906D 6444 inc esp
007E906F 42 inc edx
007E9070 43 inc ebx
007E9071 6F outsd
007E9072 6C insb
007E9073 756D jnz 007E90E2
007E9075 6E outsb
007E9076 364C dec esp
007E9078 0300 add eax, [eax]
007E907A 000B add [ebx], cl
007E907C 000C63 add [ebx], cl
007E907F 7847 js 007E90C8
007E9081 7269 jb 007E90EC
007E9083 644C dec esp
007E9085 657665 jbe 007E90ED
007E9088 6C insb
007E9089 315003 xor [eax+$03], edx
007E908C 0000 add [eax], al
007E908E 0400 add al, +$00
007E9090 06 push es
007E9091 4C dec esp
007E9092 61 popa
007E9093 62656C bound esp, qword ptr [ebp+$6C]
007E9096 32540300 xor dl, byte ptr [ebx+eax+$00]
007E909A 000C00 add [eax+eax], cl
007E909D 07 pop es
007E909E 626567 bound esp, qword ptr [ebp+$67]
007E90A1 6461 popa
007E90A3 7465 jz 007E910A
007E90A5 58 pop eax
007E90A6 0300 add eax, [eax]
007E90A8 000C00 add [eax+eax], cl
007E90AB 07 pop es
007E90AC 45 inc ebp
007E90AD 6E outsb
007E90AE 646461 popa
007E90B1 7465 jz 007E9118
007E90B3 5C pop esp
007E90B4 0300 add eax, [eax]
007E90B6 000D00106378 add [$78631000], cl
007E90BC 47 inc edi
007E90BD 7269 jb 007E9128
007E90BF 6450 push eax
007E90C1 6F outsd
007E90C2 7075 jo 007E9139
007E90C4 704D jo 007E9113
007E90C6 656E outsb
007E90C8 7532 jnz 007E90FC
007E90CA 60 pusha
007E90CB 0300 add eax, [eax]
007E90CD 000E add [esi], cl
007E90CF 000544535F48 add [$485F5344], al
007E90D5 5A pop edx
007E90D6 640300 add eax, fs:[eax]
007E90D9 000F add [edi], cl
007E90DB 0006 add [esi], al
007E90DD 43 inc ebx
007E90DE 44 inc esp
007E90DF 53 push ebx
007E90E0 5F pop edi
007E90E1 48 dec eax
007E90E2 5A pop edx
007E90E3 6803000001 push $01000003
007E90E8 000B add [ebx], cl
007E90EA 54 push esp
007E90EB 6F outsd
007E90EC 6F outsd
007E90ED 6C insb
007E90EE 42 inc edx
007E90EF 7574 jnz 007E9165
007E90F1 746F jz 007E9162
007E90F3 6E outsb
007E90F4 336C0300 xor ebp, [ebx+eax+$00]
007E90F8 000A add [edx], cl
007E90FA 0009 add [ecx], cl
007E90FC 7632 jbe 007E9130
007E90FE 43 inc ebx
007E90FF 6F outsd
007E9100 6C insb
007E9101 756D jnz 007E9170
007E9103 6E outsb
007E9104 317003 xor [eax+$03], esi
007E9107 0000 add [eax], al
007E9109 0A00 or al, byte ptr [eax]
007E910B 035648 add edx, [esi+$48]
007E910E 4C dec esp
007E910F 7403 jz 007E9114
007E9111 0000 add [eax], al
007E9113 0A00 or al, byte ptr [eax]
007E9115 035642 add edx, [esi+$42]
007E9118 5A pop edx
007E9119 7803 js 007E911E
007E911B 0000 add [eax], al
007E911D 0A00 or al, byte ptr [eax]
007E911F 097632 or [esi+$32], esi
007E9122 43 inc ebx
007E9123 6F outsd
007E9124 6C insb
007E9125 756D jnz 007E9194
007E9127 6E outsb
007E9128 367C03 jl 007E912E
007E912B 0000 add [eax], al
007E912D 0A00 or al, byte ptr [eax]
007E912F 0476 add al, +$76
007E9131 324B50 xor cl, byte ptr [ebx+$50]
007E9134 800300 add byte ptr [ebx], $00
007E9137 000A add [edx], cl
007E9139 0009 add [ecx], cl
007E913B 7632 jbe 007E916F
007E913D 50 push eax
007E913E 61 popa
007E913F 794D jns 007E918E
007E9141 656E outsb
007E9143 7484 jz 007E90C9
007E9145 0300 add eax, [eax]
007E9147 000A add [edx], cl
007E9149 0006 add [esi], al
007E914B 7632 jbe 007E917F
007E914D 4E dec esi
007E914E 6F outsd
007E914F 7465 jz 007E91B6
007E9151 8803 mov [ebx], al
007E9153 0000 add [eax], al
007E9155 0400 add al, +$00
007E9157 06 push es
007E9158 4C dec esp
007E9159 61 popa
007E915A 62656C bound esp, qword ptr [ebp+$6C]
007E915D 348C xor al, $8C
007E915F 0300 add eax, [eax]
007E9161 000500074F72 add [$724F0700], al
007E9167 6465724E jb 007E91B9
007E916B 6F outsd
007E916C 90 nop
007E916D 0300 add eax, [eax]
007E916F 000400 add [eax+eax], al
007E9172 06 push es
007E9173 4C dec esp
007E9174 61 popa
007E9175 62656C bound esp, qword ptr [ebp+$6C]
007E9178 3594030000 xor eax, $00000394
007E917D 050009436F add eax, +$6F430900
007E9182 6D insd
007E9183 54 push esp
007E9184 61 popa
007E9185 69546F7598030000 imul edx, [edi+ebp*2+$75], $00000398
007E918D 0A00 or al, byte ptr [eax]
007E918F 097632 or [esi+$32], esi
007E9192 43 inc ebx
007E9193 6F outsd
007E9194 6C insb
007E9195 756D jnz 007E9204
007E9197 6E outsb
007E9198 339C0300000A00 xor ebx, [ebx+eax+$A0000]
007E919F 097632 or [esi+$32], esi
007E91A2 43 inc ebx
007E91A3 6F outsd
007E91A4 6C insb
007E91A5 756D jnz 007E9214
007E91A7 6E outsb
007E91A8 34A0 xor al, $A0
007E91AA 0300 add eax, [eax]
007E91AC 000A add [edx], cl
007E91AE 000B add [ebx], cl
007E91B0 7632 jbe 007E91E4
007E91B2 43 inc ebx
007E91B3 6F outsd
007E91B4 6D insd
007E91B5 54 push esp
007E91B6 61 popa
007E91B7 69746F75A4030000 imul esi, [edi+ebp*2+$75], $000003A4
007E91BF 0A00 or al, byte ptr [eax]
007E91C1 06 push es
007E91C2 7632 jbe 007E91F6
007E91C4 4B dec ebx
007E91C5 50 push eax
007E91C6 4E dec esi
007E91C7 4F dec edi
007E91C8 A803 test al, $03
007E91CA 0000 add [eax], al
007E91CC 0A00 or al, byte ptr [eax]
007E91CE 087632 or [esi+$32], dh
007E91D1 4B dec ebx
007E91D2 50 push eax
007E91D3 44 inc esp
007E91D4 4D dec ebp
007E91D5 4E dec esi
007E91D6 6F outsd
007E91D7 AC lodsb
007E91D8 0300 add eax, [eax]
007E91DA 000400 add [eax+eax], al
007E91DD 06 push es
007E91DE 4C dec esp
007E91DF 61 popa
007E91E0 62656C bound esp, qword ptr [ebp+$6C]
007E91E3 37 aaa
007E91E4 B003 mov al, $03
007E91E6 0000 add [eax], al
007E91E8 0500044B50 add eax, +$504B0400
007E91ED 4E dec esi
007E91EE 4F dec edi
007E91EF B403 mov ah, $03
007E91F1 0000 add [eax], al
007E91F3 0400 add al, +$00
007E91F5 06 push es
007E91F6 4C dec esp
007E91F7 61 popa
007E91F8 62656C bound esp, qword ptr [ebp+$6C]
007E91FB 38B803000005 cmp [eax+$5000003], bh
007E9201 0006 add [esi], al
007E9203 4B dec ebx
007E9204 50 push eax
007E9205 44 inc esp
007E9206 4D dec ebp
007E9207 4E dec esi
007E9208 6F outsd
007E9209 2100 and [eax], eax
007E920B 1200 adc al, byte ptr [eax]
007E920D F0 lock
007E920E 98 cwde
007E920F 7E00 jle 007E9211
007E9211 0B466F or eax, [esi+$6F]
007E9214 726D jb 007E9283
007E9216 44 inc esp
007E9217 657374 jnb 007E928E
007E921A 726F jb 007E928B
007E921C 7910 jns 007E922E
007E921E 00F8 add al, bh
007E9220 98 cwde
007E9221 7E00 jle 007E9223
007E9223 09466F or [esi+$6F], eax
007E9226 726D jb 007E9295
007E9228 43 inc ebx
007E9229 6C insb
007E922A 6F outsd
007E922B 7365 jnb 007E9292
007E922D 1300 adc eax, [eax]
007E922F FC cld
007E9230 98 cwde
007E9231 7E00 jle 007E9233
007E9233 0C54 or al, $54
007E9235 42 inc edx
007E9236 43 inc ebx
007E9237 6C insb
007E9238 6F outsd
007E9239 7365 jnb 007E92A0
007E923B 43 inc ebx
007E923C 6C insb
007E923D 69636B11004899 imul esp, [ebx+$6B], $99480011
007E9244 7E00 jle 007E9246
007E9246 0A544244 or dl, byte ptr [edx+eax*2+$44]
007E924A 656C insb
007E924C 43 inc ebx
007E924D 6C insb
007E924E 69636B0F00849C imul esp, [ebx+$6B], $9C84000F
007E9255 7E00 jle 007E9257
007E9257 08466F or [esi+$6F], al
007E925A 726D jb 007E92C9
007E925C 53 push ebx
007E925D 686F771500 push $0015776F
007E9262 3C9D cmp al, $9D
007E9264 7E00 jle 007E9266
007E9266 0E push cs
007E9267 54 push esp
007E9268 42 inc edx
007E9269 52 push edx
007E926A 61 popa
007E926B 667265 jb 007E92D3
007E926E 7368 jnb 007E92D8
007E9270 43 inc ebx
007E9271 6C insb
007E9272 69636B1700589D imul esp, [ebx+$6B], $9D580017
007E9279 7E00 jle 007E927B
007E927B 10546F6F adc [edi+ebp*2+$6F], dl
007E927F 6C insb
007E9280 42 inc edx
007E9281 7574 jnz 007E92F7
007E9283 746F jz 007E92F4
007E9285 6E outsb
007E9286 32436C xor al, byte ptr [ebx+$6C]
007E9289 69636B1800E89D imul esp, [ebx+$6B], $9DE80018
007E9290 7E00 jle 007E9292
007E9292 114661 adc [esi+$61], eax
007E9295 63746F72 arpl [edi+ebp*2+$72], si
007E9299 794E jns 007E92E9
007E929B 61 popa
007E929C 6D insd
007E929D 6543 inc ebx
007E929F 68616E6765 push $65676E61
007E92A4 1300 adc eax, [eax]
007E92A6 FC cld
007E92A7 9D pop
007E92A8 7E00 jle 007E92AA
007E92AA 0C42 or al, $42
007E92AC 7574 jnz 007E9322
007E92AE 746F jz 007E931F
007E92B0 6E outsb
007E92B1 32436C xor al, byte ptr [ebx+$6C]
007E92B4 69636B300098A9 imul esp, [ebx+$6B], $A9980030
007E92BB 7E00 jle 007E92BD
007E92BD 296378 sub dword ptr [ebx+$78], esp
007E92C0 47 inc edi
007E92C1 7269 jb 007E932C
007E92C3 6444 inc esp
007E92C5 42 inc edx
007E92C6 43 inc ebx
007E92C7 6F outsd
007E92C8 6C insb
007E92C9 756D jnz 007E9338
007E92CB 6E outsb
007E92CC 385072 cmp [eax+$72], dl
007E92CF 6F outsd
007E92D0 7065 jo 007E9337
007E92D2 7274 jb 007E9348
007E92D4 69657345646974 imul esp, [ebp+$73], $74696445
007E92DB 56 push esi
007E92DC 61 popa
007E92DD 6C insb
007E92DE 7565 jnz 007E9345
007E92E0 43 inc ebx
007E92E1 68616E6765 push $65676E61
007E92E6 643000 xor fs:[eax], al
007E92E9 64AC lodsb
007E92EB 7E00 jle 007E92ED
007E92ED 296378 sub dword ptr [ebx+$78], esp
007E92F0 47 inc edi
007E92F1 7269 jb 007E935C
007E92F3 6444 inc esp
007E92F5 42 inc edx
007E92F6 43 inc ebx
007E92F7 6F outsd
007E92F8 6C insb
007E92F9 756D jnz 007E9368
007E92FB 6E outsb
007E92FC 3550726F70 xor eax, $706F7250
007E9301 657274 jb 007E9378
007E9304 69657345646974 imul esp, [ebp+$73], $74696445
007E930B 56 push esi
007E930C 61 popa
007E930D 6C insb
007E930E 7565 jnz 007E9375
007E9310 43 inc ebx
007E9311 68616E6765 push $65676E61
007E9316 643000 xor fs:[eax], al
007E9319 EC in al, dx
007E931A B37E mov bl, $7E
007E931C 0029 add [ecx], ch
007E931E 637847 arpl [eax+$47], di
007E9321 7269 jb 007E938C
007E9323 6444 inc esp
007E9325 42 inc edx
007E9326 43 inc ebx
007E9327 6F outsd
007E9328 6C insb
007E9329 756D jnz 007E9398
007E932B 6E outsb
007E932C 315072 xor [eax+$72], edx
007E932F 6F outsd
007E9330 7065 jo 007E9397
007E9332 7274 jb 007E93A8
007E9334 69657345646974 imul esp, [ebp+$73], $74696445
007E933B 56 push esi
007E933C 61 popa
007E933D 6C insb
007E933E 7565 jnz 007E93A5
007E9340 43 inc ebx
007E9341 68616E6765 push $65676E61
007E9346 6417 pop ss
007E9348 00B8B67E0010 add [eax+$10007EB6], bh
007E934E 54 push esp
007E934F 6F outsd
007E9350 6F outsd
007E9351 6C insb
007E9352 42 inc edx
007E9353 7574 jnz 007E93C9
007E9355 746F jz 007E93C6
007E9357 6E outsb
007E9358 33436C xor eax, [ebx+$6C]
007E935B 69636B2B0030BA imul esp, [ebx+$6B], $BA30002B
007E9362 7E00 jle 007E9364
007E9364 2463 and al, $63
007E9366 7847 js 007E93AF
007E9368 7269 jb 007E93D3
007E936A 6444 inc esp
007E936C 42 inc edx
007E936D 43 inc ebx
007E936E 6F outsd
007E936F 6C insb
007E9370 756D jnz 007E93DF
007E9372 6E outsb
007E9373 335072 xor edx, [eax+$72]
007E9376 6F outsd
007E9377 7065 jo 007E93DE
007E9379 7274 jb 007E93EF
007E937B 69657342757474 imul esp, [ebp+$73], $74747542
007E9382 6F outsd
007E9383 6E outsb
007E9384 43 inc ebx
007E9385 6C insb
007E9386 69636B2B00B0BE imul esp, [ebx+$6B], $BEB0002B
007E938D 7E00 jle 007E938F
007E938F 2463 and al, $63
007E9391 7847 js 007E93DA
007E9393 7269 jb 007E93FE
007E9395 6444 inc esp
007E9397 42 inc edx
007E9398 43 inc ebx
007E9399 6F outsd
007E939A 6C insb
007E939B 756D jnz 007E940A
007E939D 6E outsb
007E939E 3650 push eax
007E93A0 726F jb 007E9411
007E93A2 7065 jo 007E9409
007E93A4 7274 jb 007E941A
007E93A6 69657342757474 imul esp, [ebp+$73], $74747542
007E93AD 6F outsd
007E93AE 6E outsb
007E93AF 43 inc ebx
007E93B0 6C insb
007E93B1 69636B25000CC2 imul esp, [ebx+$6B], $C20C0025
007E93B8 7E00 jle 007E93BA
007E93BA 1E push ds
007E93BB 7632 jbe 007E93EF
007E93BD 43 inc ebx
007E93BE 6F outsd
007E93BF 6C insb
007E93C0 756D jnz 007E942F
007E93C2 6E outsb
007E93C3 335072 xor edx, [eax+$72]
007E93C6 6F outsd
007E93C7 7065 jo 007E942E
007E93C9 7274 jb 007E943F
007E93CB 69657342757474 imul esp, [ebp+$73], $74747542
007E93D2 6F outsd
007E93D3 6E outsb
007E93D4 43 inc ebx
007E93D5 6C insb
007E93D6 69636B170058C5 imul esp, [ebx+$6B], $C5580017
007E93DD 7E00 jle 007E93DF
007E93DF 10546F6F adc [edi+ebp*2+$6F], dl
007E93E3 6C insb
007E93E4 42 inc edx
007E93E5 7574 jnz 007E945B
007E93E7 746F jz 007E9458
007E93E9 6E outsb
007E93EA 31436C xor [ebx+$6C], eax
007E93ED 69636B250098C5 imul esp, [ebx+$6B], $C5980025
007E93F4 7E00 jle 007E93F6
007E93F6 1E push ds
007E93F7 7632 jbe 007E942B
007E93F9 43 inc ebx
007E93FA 6F outsd
007E93FB 6C insb
007E93FC 756D jnz 007E946B
007E93FE 6E outsb
007E93FF 37 aaa
007E9400 50 push eax
007E9401 726F jb 007E9472
007E9403 7065 jo 007E946A
007E9405 7274 jb 007E947B
007E9407 69657342757474 imul esp, [ebp+$73], $74747542
007E940E 6F outsd
007E940F 6E outsb
007E9410 43 inc ebx
007E9411 6C insb
007E9412 69636B2A0008CA imul esp, [ebx+$6B], $CA08002A
007E9419 7E00 jle 007E941B
007E941B 237632 and esi, [esi+$32]
007E941E 43 inc ebx
007E941F 6F outsd
007E9420 6C insb
007E9421 756D jnz 007E9490
007E9423 6E outsb
007E9424 325072 xor dl, byte ptr [eax+$72]
007E9427 6F outsd
007E9428 7065 jo 007E948F
007E942A 7274 jb 007E94A0
007E942C 69657345646974 imul esp, [ebp+$73], $74696445
007E9433 56 push esi
007E9434 61 popa
007E9435 6C insb
007E9436 7565 jnz 007E949D
007E9438 43 inc ebx
007E9439 68616E6765 push $65676E61
007E943E 642500B0D07E and eax, $7ED0B000
007E9444 001E add [esi], bl
007E9446 7632 jbe 007E947A
007E9448 50 push eax
007E9449 53 push ebx
007E944A 50 push eax
007E944B 726F jb 007E94BC
007E944D 7065 jo 007E94B4
007E944F 7274 jb 007E94C5
007E9451 69657345646974 imul esp, [ebp+$73], $74696445
007E9458 56 push esi
007E9459 61 popa
007E945A 6C insb
007E945B 7565 jnz 007E94C2
007E945D 43 inc ebx
007E945E 68616E6765 push $65676E61
007E9463 642A00 sub al, byte ptr fs:[eax]
007E9466 54 push esp
007E9467 D37E00 sar dword ptr [esi+$00], cl
007E946A 237632 and esi, [esi+$32]
007E946D 42 inc edx
007E946E 61 popa
007E946F 7463 jz 007E94D4
007E9471 684E6F5072 push $72506F4E
007E9476 6F outsd
007E9477 7065 jo 007E94DE
007E9479 7274 jb 007E94EF
007E947B 69657345646974 imul esp, [ebp+$73], $74696445
007E9482 56 push esi
007E9483 61 popa
007E9484 6C insb
007E9485 7565 jnz 007E94EC
007E9487 43 inc ebx
007E9488 68616E6765 push $65676E61
007E948D 642500D4D57E and eax, $7ED5D400
007E9493 001E add [esi], bl
007E9495 7632 jbe 007E94C9
007E9497 50 push eax
007E9498 61 popa
007E9499 794D jns 007E94E8
007E949B 656E outsb
007E949D 7450 jz 007E94EF
007E949F 726F jb 007E9510
007E94A1 7065 jo 007E9508
007E94A3 7274 jb 007E9519
007E94A5 69657342757474 imul esp, [ebp+$73], $74747542
007E94AC 6F outsd
007E94AD 6E outsb
007E94AE 43 inc ebx
007E94AF 6C insb
007E94B0 69636B140008D9 imul esp, [ebx+$6B], $D9080014
007E94B7 7E00 jle 007E94B9
007E94B9 0D4F726465 or eax, $6564724F
007E94BE 724E jb 007E950E
007E94C0 6F outsd
007E94C1 43 inc ebx
007E94C2 68616E6765 push $65676E61
007E94C7 16 push ss
007E94C8 0084D97E000F4F add [ecx+ebx*8+$4F0F007E], al
007E94CF 7264 jb 007E9535
007E94D1 65724E jb 007E9522
007E94D4 6F outsd
007E94D5 4B dec ebx
007E94D6 657950 jns 007E9529
007E94D9 7265 jb 007E9540
007E94DB 7373 jnb 007E9550
007E94DD 2500B4DC7E and eax, $7EDCB400
007E94E2 001E add [esi], bl
007E94E4 7632 jbe 007E9518
007E94E6 43 inc ebx
007E94E7 6F outsd
007E94E8 6C insb
007E94E9 756D jnz 007E9558
007E94EB 6E outsb
007E94EC 325072 xor dl, byte ptr [eax+$72]
007E94EF 6F outsd
007E94F0 7065 jo 007E9557
007E94F2 7274 jb 007E9568
007E94F4 69657342757474 imul esp, [ebp+$73], $74747542
007E94FB 6F outsd
007E94FC 6E outsb
007E94FD 43 inc ebx
007E94FE 6C insb
007E94FF 69636B2700A8E1 imul esp, [ebx+$6B], $E1A80027
007E9506 7E00 jle 007E9508
007E9508 207632 and [esi+$32], dh
007E950B 43 inc ebx
007E950C 6F outsd
007E950D 6D insd
007E950E 54 push esp
007E950F 61 popa
007E9510 69746F7550726F70 imul esi, [edi+ebp*2+$75], $706F7250
007E9518 657274 jb 007E958F
007E951B 69657342757474 imul esp, [ebp+$73], $74747542
007E9522 6F outsd
007E9523 6E outsb
007E9524 43 inc ebx
007E9525 6C insb
007E9526 69636B1F00E4E4 imul esp, [ebx+$6B], $E4E4001F
007E952D 7E00 jle 007E952F
007E952F 185642 sbb [esi+$42], dl
007E9532 5A pop edx
007E9533 50 push eax
007E9534 726F jb 007E95A5
007E9536 7065 jo 007E959D
007E9538 7274 jb 007E95AE
007E953A 69657342757474 imul esp, [ebp+$73], $74747542
007E9541 6F outsd
007E9542 6E outsb
007E9543 43 inc ebx
007E9544 6C insb
007E9545 69636B250028E8 imul esp, [ebx+$6B], $E8280025
007E954C 7E00 jle 007E954E
007E954E 1E push ds
007E954F 7632 jbe 007E9583
007E9551 43 inc ebx
007E9552 6F outsd
007E9553 6C insb
007E9554 756D jnz 007E95C3
007E9556 6E outsb
007E9557 3450 xor al, $50
007E9559 726F jb 007E95CA
007E955B 7065 jo 007E95C2
007E955D 7274 jb 007E95D3
007E955F 69657342757474 imul esp, [ebp+$73], $74747542
007E9566 6F outsd
007E9567 6E outsb
007E9568 43 inc ebx
007E9569 6C insb
007E956A 69636B2A006CEB imul esp, [ebx+$6B], $EB6C002A
007E9571 7E00 jle 007E9573
007E9573 237632 and esi, [esi+$32]
007E9576 43 inc ebx
007E9577 6F outsd
007E9578 6C insb
007E9579 756D jnz 007E95E8
007E957B 6E outsb
007E957C 335072 xor edx, [eax+$72]
007E957F 6F outsd
007E9580 7065 jo 007E95E7
007E9582 7274 jb 007E95F8
007E9584 69657345646974 imul esp, [ebp+$73], $74696445
007E958B 56 push esi
007E958C 61 popa
007E958D 6C insb
007E958E 7565 jnz 007E95F5
007E9590 43 inc ebx
007E9591 68616E6765 push $65676E61
007E9596 642A00 sub al, byte ptr fs:[eax]
007E9599 5C pop esp
007E959A ED in eax, dx
007E959B 7E00 jle 007E959D
007E959D 237632 and esi, [esi+$32]
007E95A0 43 inc ebx
007E95A1 6F outsd
007E95A2 6C insb
007E95A3 756D jnz 007E9612
007E95A5 6E outsb
007E95A6 3450 xor al, $50
007E95A8 726F jb 007E9619
007E95AA 7065 jo 007E9611
007E95AC 7274 jb 007E9622
007E95AE 69657345646974 imul esp, [ebp+$73], $74696445
007E95B5 56 push esi
007E95B6 61 popa
007E95B7 6C insb
007E95B8 7565 jnz 007E961F
007E95BA 43 inc ebx
007E95BB 68616E6765 push $65676E61
007E95C0 6427 daa
007E95C2 0044EF7E add [edi+ebp*8+$7E], al
007E95C6 0020 add [eax], ah
007E95C8 7632 jbe 007E95FC
007E95CA 4B dec ebx
007E95CB 50 push eax
007E95CC 4E dec esi
007E95CD 4F dec edi
007E95CE 50 push eax
007E95CF 726F jb 007E9640
007E95D1 7065 jo 007E9638
007E95D3 7274 jb 007E9649
007E95D5 69657345646974 imul esp, [ebp+$73], $74696445
007E95DC 56 push esi
007E95DD 61 popa
007E95DE 6C insb
007E95DF 7565 jnz 007E9646
007E95E1 43 inc ebx
007E95E2 68616E6765 push $65676E61
007E95E7 642900 sub dword ptr fs:[eax], eax
007E95EA 28F1 sub cl, dh
007E95EC 7E00 jle 007E95EE
007E95EE 227632 and dh, byte ptr [esi+$32]
007E95F1 4B dec ebx
007E95F2 50 push eax
007E95F3 44 inc esp
007E95F4 4D dec ebp
007E95F5 4E dec esi
007E95F6 6F outsd
007E95F7 50 push eax
007E95F8 726F jb 007E9669
007E95FA 7065 jo 007E9661
007E95FC 7274 jb 007E9672
007E95FE 69657345646974 imul esp, [ebp+$73], $74696445
007E9605 56 push esi
007E9606 61 popa
007E9607 6C insb
007E9608 7565 jnz 007E966F
007E960A 43 inc ebx
007E960B 68616E6765 push $65676E61
007E9610 641300 adc eax, fs:[eax]
007E9613 10F3 adc bl, dh
007E9615 7E00 jle 007E9617
007E9617 0C4B or al, $4B
007E9619 50 push eax
007E961A 4E dec esi
007E961B 4F dec edi
007E961C 4B dec ebx
007E961D 657950 jns 007E9670
007E9620 7265 jb 007E9687
007E9622 7373 jnb 007E9697
007E9624 0B546672 or edx, [esi+$72]
007E9628 6D insd
007E9629 59 pop ecx
007E962A 46 inc esi
007E962B 46 inc esi
007E962C 50 push eax
007E962D 5F pop edi
007E962E 48 dec eax
007E962F 58 pop eax
007E9630 1000 adc [eax], al
007E9632 28944500648A45 sub [ebp+eax*2+$458A6400], dl
007E9639 00B8124D0020 add [eax+$20004D12], bh
007E963F 42 inc edx
007E9640 44 inc esp
007E9641 001C5F add [edi+ebx*2], bl
007E9644 47 inc edi
007E9645 00B867470064 add [eax+$64004767], bh
007E964B D37800 sar dword ptr [eax+$00], cl
007E964E A80A test al, $0A
007E9650 7800 js 007E9652
007E9652 0016 add [esi], dl
007E9654 6300 arpl [eax], ax
007E9656 F4 hlt
007E9657 B466 mov ah, $66
007E9659 0034B1 add [ecx+esi*4], dh
007E965C 6600A40E6400E0A5 add [esi+ecx+$A5E00064], ah
007E9664 45 inc ebp
007E9665 005876 add [eax+$76], bl
007E9668 7C00 jl 007E966A
007E966A 087F4B or [edi+$4B], bh
007E966D 0088996A008B add [eax+$8B006A99], cl
007E9673 C078967E sar byte ptr [eax-$6A], $7E
007E9677 0007 add [edi], al
007E9679 0B546672 or edx, [esi+$72]
007E967D 6D insd
007E967E 59 pop ecx
007E967F 46 inc esi
007E9680 46 inc esi
007E9681 50 push eax
007E9682 5F pop edi
007E9683 48 dec eax
007E9684 58 pop eax
007E9685 048E add al, -$72
007E9687 7E00 jle 007E9689
007E9689 D0F2 DB $D0, $F2 // dl, 1
007E968B 49 dec ecx
007E968C 005E00 add [esi+$00], bl
007E968F 09555F or [ebp+$5F], edx
007E9692 59 pop ecx
007E9693 46 inc esi
007E9694 46 inc esi
007E9695 50 push eax
007E9696 5F pop edi
007E9697 48 dec eax
007E9698 58 pop eax
007E9699 0000 add [eax], al
*)
end;
end.
Reference in New Issue View Git Blame Copy Permalink