Group_99/D7myChuangpin
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7myChuangpin/YSYF/U_YFCR_SH.pas

8422 lines
331 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_YFCR_SH;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYFCR_SH=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;
cxGridDBColumn5: 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;
Label8: TLabel;
OrderNO: TEdit;
Label9: TLabel;
ComTaiTou: TEdit;
YFName: TEdit;
NOChk: TToolButton;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ChkNote: TEdit;
Label17: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label16: TLabel;
v2SHStatus: TcxGridDBColumn;
Label10: TLabel;
note: TEdit;
Label11: TLabel;
ConNO: TEdit;
v2ConNO: TcxGridDBColumn;
v2P_Color: TcxGridDBColumn;
Label15: TLabel;
P_Color: TEdit;
v2KPType: 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 NOChkClick(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure v2sselPropertiesChange(Sender : TObject);
procedure cxTabControl2Change(Sender : TObject);
procedure _PROC_0082EBD9(Sender : TObject);
procedure _PROC_0082F419(Sender : TObject);
procedure _PROC_0082F7D5(Sender : TObject);
procedure _PROC_0083005D(Sender : TObject);
procedure _PROC_008303B1(Sender : TObject);
procedure _PROC_00830B81(Sender : TObject);
procedure _PROC_00830E9E(Sender : TObject);
procedure _PROC_00830ED4(Sender : TObject);
procedure _PROC_00830EE1(Sender : TObject);
procedure _PROC_00831225(Sender : TObject);
procedure _PROC_00831515(Sender : TObject);
procedure _PROC_008317B9(Sender : TObject);
procedure _PROC_00831A39(Sender : TObject);
procedure _PROC_00831D71(Sender : TObject);
procedure _PROC_0083211D(Sender : TObject);
procedure _PROC_00832B41(Sender : TObject);
procedure _PROC_008337D1(Sender : TObject);
procedure _PROC_00833DD9(Sender : TObject);
procedure _PROC_00833E08(Sender : TObject);
procedure _PROC_00833E10(Sender : TObject);
procedure _PROC_00833E1F(Sender : TObject);
procedure _PROC_00833E33(Sender : TObject);
procedure _PROC_00833E76(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYFCR_SH: TfrmYFCR_SH;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYFCR_SH.FormDestroy(Sender : TObject);
begin
(*
0082E5D4 33C0 xor eax, eax
* Reference to GlobalVar_008959CC
|
0082E5D6 A3CC598900 mov dword ptr [$008959CC], eax
0082E5DB C3 ret
*)
end;
procedure TfrmYFCR_SH.FormClose(Sender : TObject);
begin
(*
0082E5DC C60102 mov byte ptr [ecx], $02
0082E5DF C3 ret
*)
end;
procedure TfrmYFCR_SH.TBCloseClick(Sender : TObject);
begin
(*
0082E5E0 53 push ebx
0082E5E1 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0082E5E3 B90CE68200 mov ecx, $0082E60C
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
0082E5E8 8B9338030000 mov edx, [ebx+$0338]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'
|
0082E5EE B820E68200 mov eax, $0082E620
|
0082E5F3 E8A895F8FF call 007B7BA0
0082E5F8 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
0082E5FA E89979C7FF call 004A5F98
0082E5FF 5B pop ebx
0082E600 C3 ret
*)
end;
procedure TfrmYFCR_SH.TBDelClick(Sender : TObject);
begin
(*
0082E62C 55 push ebp
0082E62D 8BEC mov ebp, esp
0082E62F 33C9 xor ecx, ecx
0082E631 51 push ecx
0082E632 51 push ecx
0082E633 51 push ecx
0082E634 51 push ecx
0082E635 51 push ecx
0082E636 51 push ecx
0082E637 51 push ecx
0082E638 51 push ecx
0082E639 53 push ebx
0082E63A 56 push esi
0082E63B 57 push edi
0082E63C 8945FC mov [ebp-$04], eax
0082E63F 33C0 xor eax, eax
0082E641 55 push ebp
* Possible String Reference to: '<27><>b<EFBFBD><62><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
0082E642 6833E88200 push $0082E833
***** TRY
|
0082E647 64FF30 push dword ptr fs:[eax]
0082E64A 648920 mov fs:[eax], esp
0082E64D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082E650 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0082E656 E86598C9FF call 004C7EC0
0082E65B 84C0 test al, al
0082E65D 0F85AD010000 jnz 0082E810
0082E663 A044E88200 mov al, byte ptr [$0082E844]
0082E668 50 push eax
0082E669 8D45EC lea eax, [ebp-$14]
0082E66C B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0082E66E E8F1A6BEFF call 00418D64
0082E673 8D4DEC lea ecx, [ebp-$14]
0082E676 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082E679 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
0082E67F BA50E88200 mov edx, $0082E850
0082E684 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0082E686 FF9344020000 call dword ptr [ebx+$0244]
0082E68C 84C0 test al, al
0082E68E 751D jnz 0082E6AD
0082E690 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0082E692 B958E88200 mov ecx, $0082E858
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0082E697 BA60E88200 mov edx, $0082E860
*)
end;
procedure TfrmYFCR_SH.FormShow(Sender : TObject);
begin
(*
0082E8E0 53 push ebx
0082E8E1 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0082E8E3 B94CE98200 mov ecx, $0082E94C
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
0082E8E8 8B9338030000 mov edx, [ebx+$0338]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'
|
0082E8EE B860E98200 mov eax, $0082E960
|
0082E8F3 E8AC90F8FF call 007B79A4
* Reference to control TfrmYFCR_SH.ADOQueryTemp : TADOQuery
|
0082E8F8 8B8308030000 mov eax, [ebx+$0308]
|
0082E8FE E88560F8FF call 007B4988
0082E903 83C4F8 add esp, -$08
0082E906 DD1C24 fstp qword ptr [esp]
0082E909 9B wait
* Reference to control TfrmYFCR_SH.Enddate : TDateTimePicker
|
0082E90A 8B835C030000 mov eax, [ebx+$035C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
0082E910 E81739C4FF call 0047222C
* Reference to control TfrmYFCR_SH.ADOQueryTemp : TADOQuery
|
0082E915 8B8308030000 mov eax, [ebx+$0308]
|
0082E91B E86860F8FF call 007B4988
0082E920 D8256CE98200 fsub dword ptr [$0082E96C]
0082E926 83C4F8 add esp, -$08
0082E929 DD1C24 fstp qword ptr [esp]
0082E92C 9B wait
* Reference to control TfrmYFCR_SH.begdate : TDateTimePicker
|
0082E92D 8B8358030000 mov eax, [ebx+$0358]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
0082E933 E8F438C4FF call 0047222C
0082E938 8BC3 mov eax, ebx
|
0082E93A E8E5F7FFFF call 0082E124
0082E93F 5B pop ebx
0082E940 C3 ret
*)
end;
procedure TfrmYFCR_SH.TBRafreshClick(Sender : TObject);
begin
(*
0082E970 53 push ebx
0082E971 8BD8 mov ebx, eax
* Reference to control TfrmYFCR_SH.ToolBar1 : TToolBar
|
0082E973 8B83F8020000 mov eax, [ebx+$02F8]
0082E979 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
0082E97B FF92C4000000 call dword ptr [edx+$00C4]
0082E981 8BC3 mov eax, ebx
|
0082E983 E89CF7FFFF call 0082E124
0082E988 5B pop ebx
0082E989 C3 ret
*)
end;
procedure TfrmYFCR_SH.ToolButton2Click(Sender : TObject);
begin
(*
0082E98C 55 push ebp
0082E98D 8BEC mov ebp, esp
0082E98F 6A00 push $00
0082E991 53 push ebx
0082E992 8BD8 mov ebx, eax
0082E994 33C0 xor eax, eax
0082E996 55 push ebp
* Possible String Reference to: '<27><>`<60><><EFBFBD><EFBFBD>[Y]<5D>'
|
0082E997 6830EA8200 push $0082EA30
***** TRY
|
0082E99C 64FF30 push dword ptr fs:[eax]
0082E99F 648920 mov fs:[eax], esp
0082E9A2 BA44EA8200 mov edx, $0082EA44
* Reference to control TfrmYFCR_SH.Label14 : TLabel
|
0082E9A7 8B8304040000 mov eax, [ebx+$0404]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0082E9AD E86E9CC5FF call 00488620
0082E9B2 BA44EA8200 mov edx, $0082EA44
* Reference to control TfrmYFCR_SH.Label16 : TLabel
|
0082E9B7 8B8308040000 mov eax, [ebx+$0408]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0082E9BD E85E9CC5FF call 00488620
* Reference to control TfrmYFCR_SH.ADOQueryMain : TADOQuery
|
0082E9C2 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
0082E9C8 E84770C9FF call 004C5A14
0082E9CD 84C0 test al, al
0082E9CF 7449 jz 0082EA1A
0082E9D1 8D45FC lea eax, [ebp-$04]
0082E9D4 50 push eax
0082E9D5 B902000000 mov ecx, $00000002
0082E9DA BA01000000 mov edx, $00000001
* Reference to control TfrmYFCR_SH.Panel1 : TPanel
|
0082E9DF 8B8310030000 mov eax, [ebx+$0310]
|
0082E9E5 E8C676F8FF call 007B60B0
0082E9EA 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYFCR_SH.ADOQueryMain : TADOQuery
|
0082E9ED 8B831C030000 mov eax, [ebx+$031C]
|
0082E9F3 E8D082F8FF call 007B6CC8
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082E9F8 8B9368030000 mov edx, [ebx+$0368]
* Reference to control TfrmYFCR_SH.ADOQueryMain : TADOQuery
|
0082E9FE 8B831C030000 mov eax, [ebx+$031C]
|
0082EA04 E88784F8FF call 007B6E90
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082EA09 8B9368030000 mov edx, [ebx+$0368]
* Reference to control TfrmYFCR_SH.ADOQueryMain : TADOQuery
|
0082EA0F 8B831C030000 mov eax, [ebx+$031C]
|
0082EA15 E8FE85F8FF call 007B7018
0082EA1A 33C0 xor eax, eax
0082EA1C 5A pop edx
0082EA1D 59 pop ecx
0082EA1E 59 pop ecx
0082EA1F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
0082EA22 6837EA8200 push $0082EA37
0082EA27 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0082EA2A E8F568BDFF call 00405324
0082EA2F C3 ret
* Reference to: System.@HandleFinally;
|
0082EA30 E9BF60BDFF jmp 00404AF4
0082EA35 EBF0 jmp 0082EA27
****** END
|
0082EA37 5B pop ebx
0082EA38 59 pop ecx
0082EA39 5D pop ebp
0082EA3A C3 ret
*)
end;
procedure TfrmYFCR_SH.FactoryNameChange(Sender : TObject);
begin
(*
0082EA48 56 push esi
* Reference to control TfrmYFCR_SH.ToolButton2 : TToolButton
|
0082EA49 8B8014030000 mov eax, [eax+$0314]
0082EA4F 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
0082EA53 E8FC5ABDFF call 00404554
0082EA58 5E pop esi
0082EA59 C3 ret
*)
end;
procedure TfrmYFCR_SH.Button2Click(Sender : TObject);
begin
(*
0082EA5C 55 push ebp
0082EA5D 8BEC mov ebp, esp
0082EA5F 33C9 xor ecx, ecx
0082EA61 51 push ecx
0082EA62 51 push ecx
0082EA63 51 push ecx
0082EA64 51 push ecx
0082EA65 51 push ecx
0082EA66 53 push ebx
0082EA67 56 push esi
0082EA68 8BD8 mov ebx, eax
0082EA6A 33C0 xor eax, eax
0082EA6C 55 push ebp
* Possible String Reference to: '<27><>_<EFBFBD><5F><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0082EA6D 6869EB8200 push $0082EB69
***** TRY
|
0082EA72 64FF30 push dword ptr fs:[eax]
0082EA75 648920 mov fs:[eax], esp
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082EA78 8B8368030000 mov eax, [ebx+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0082EA7E E83D94C9FF call 004C7EC0
0082EA83 84C0 test al, al
0082EA85 0F85C3000000 jnz 0082EB4E
0082EA8B 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
0082EA8D B978EB8200 mov ecx, $0082EB78
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0082EA92 BA80EB8200 mov edx, $0082EB80
*)
end;
procedure TfrmYFCR_SH.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
0082F5B0 55 push ebp
0082F5B1 8BEC mov ebp, esp
0082F5B3 B908000000 mov ecx, $00000008
0082F5B8 6A00 push $00
0082F5BA 6A00 push $00
0082F5BC 49 dec ecx
0082F5BD 75F9 jnz 0082F5B8
0082F5BF 51 push ecx
0082F5C0 53 push ebx
0082F5C1 56 push esi
0082F5C2 8BDA mov ebx, edx
0082F5C4 8BF0 mov esi, eax
0082F5C6 33C0 xor eax, eax
0082F5C8 55 push ebp
* Possible String Reference to: '<27>1S<31><53><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0082F5C9 68BEF78200 push $0082F7BE
***** TRY
|
0082F5CE 64FF30 push dword ptr fs:[eax]
0082F5D1 648920 mov fs:[eax], esp
0082F5D4 8D55FC lea edx, [ebp-$04]
0082F5D7 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;
|
0082F5D9 E8DE00D6FF call 0058F6BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
0082F5DE 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;
|
0082F5E4 E863CDE2FF 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;
|
0082F5E9 E87625E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0082F5EE 8B4050 mov eax, [eax+$50]
0082F5F1 8D55F4 lea edx, [ebp-$0C]
0082F5F4 8B08 mov ecx, [eax]
0082F5F6 FF5110 call dword ptr [ecx+$10]
0082F5F9 8B45F4 mov eax, [ebp-$0C]
0082F5FC 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F5FF E8E8B2BDFF call 0040A8EC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082F604 8B9E68030000 mov ebx, [esi+$0368]
0082F60A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082F60C E82F8EC9FF call 004C8440
0082F611 8D55E0 lea edx, [ebp-$20]
0082F614 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F617 E8D0B2BDFF call 0040A8EC
0082F61C 8B55E0 mov edx, [ebp-$20]
0082F61F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082F622 E8A197BEFF call 00418DC8
0082F627 8D45E4 lea eax, [ebp-$1C]
0082F62A 50 push eax
0082F62B 8B55F8 mov edx, [ebp-$08]
0082F62E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082F630 E87F75C9FF call 004C6BB4
0082F635 5A pop edx
0082F636 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0082F638 FF91B4000000 call dword ptr [ecx+$00B4]
0082F63E 8BC3 mov eax, ebx
0082F640 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0082F642 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
0082F648 8B9E0C030000 mov ebx, [esi+$030C]
0082F64E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082F650 E87F62C9FF call 004C58D4
0082F655 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082F657 E850E9CAFF call 004DDFAC
0082F65C 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0082F65E FF5244 call dword ptr [edx+$44]
0082F661 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082F663 E844E9CAFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
0082F668 BAD4F78200 mov edx, $0082F7D4
0082F66D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082F66F FF5138 call dword ptr [ecx+$38]
0082F672 8D55DC lea edx, [ebp-$24]
0082F675 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F678 E86FB2BDFF call 0040A8EC
0082F67D 837DDC00 cmp dword ptr [ebp-$24], +$00
0082F681 7440 jz 0082F6C3
* Possible String Reference to: ' Set '
|
0082F683 68F0F78200 push $0082F7F0
0082F688 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0082F68B 6800F88200 push $0082F800
0082F690 8D55D4 lea edx, [ebp-$2C]
0082F693 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F696 E851B2BDFF call 0040A8EC
0082F69B FF75D4 push dword ptr [ebp-$2C]
0082F69E 680CF88200 push $0082F80C
0082F6A3 8D45D8 lea eax, [ebp-$28]
0082F6A6 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0082F6AB E80460BDFF call 004056B4
0082F6B0 8B45D8 mov eax, [ebp-$28]
0082F6B3 50 push eax
0082F6B4 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082F6B6 E8F1E8CAFF call 004DDFAC
0082F6BB 5A pop edx
0082F6BC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082F6BE FF5138 call dword ptr [ecx+$38]
0082F6C1 EB2B jmp 0082F6EE
0082F6C3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082F6C5 E8E2E8CAFF call 004DDFAC
0082F6CA 50 push eax
* Possible String Reference to: ' Set '
|
0082F6CB 68F0F78200 push $0082F7F0
0082F6D0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
0082F6D3 6818F88200 push $0082F818
0082F6D8 8D45D0 lea eax, [ebp-$30]
0082F6DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0082F6E0 E8CF5FBDFF call 004056B4
0082F6E5 8B55D0 mov edx, [ebp-$30]
0082F6E8 58 pop eax
0082F6E9 8B08 mov ecx, [eax]
0082F6EB FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0082F6EE 6828F88200 push $0082F828
0082F6F3 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFCR_SH.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
0082F87C 55 push ebp
0082F87D 8BEC mov ebp, esp
0082F87F B91F000000 mov ecx, $0000001F
0082F884 6A00 push $00
0082F886 6A00 push $00
0082F888 49 dec ecx
0082F889 75F9 jnz 0082F884
0082F88B 53 push ebx
0082F88C 56 push esi
0082F88D 8BF2 mov esi, edx
0082F88F 8BD8 mov ebx, eax
0082F891 33C0 xor eax, eax
0082F893 55 push ebp
* Possible String Reference to: '<27>wK<77><4B><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0082F894 6878FF8200 push $0082FF78
***** TRY
|
0082F899 64FF30 push dword ptr fs:[eax]
0082F89C 648920 mov fs:[eax], esp
0082F89F 8D55FC lea edx, [ebp-$04]
0082F8A2 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;
|
0082F8A4 E813FED5FF call 0058F6BC
0082F8A9 8D55DC lea edx, [ebp-$24]
0082F8AC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F8AF E838B0BDFF call 0040A8EC
0082F8B4 837DDC00 cmp dword ptr [ebp-$24], +$00
0082F8B8 750D jnz 0082F8C7
0082F8BA 8D45FC lea eax, [ebp-$04]
0082F8BD BA90FF8200 mov edx, $0082FF90
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0082F8C2 E8F55ABDFF call 004053BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
0082F8C7 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;
|
0082F8CD E87ACAE2FF 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;
|
0082F8D2 E88D22E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0082F8D7 8B4050 mov eax, [eax+$50]
0082F8DA 8D55D8 lea edx, [ebp-$28]
0082F8DD 8B08 mov ecx, [eax]
0082F8DF FF5110 call dword ptr [ecx+$10]
0082F8E2 8B45D8 mov eax, [ebp-$28]
0082F8E5 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F8E8 E8FFAFBDFF call 0040A8EC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0082F8ED 8BB368030000 mov esi, [ebx+$0368]
0082F8F3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082F8F5 E8468BC9FF call 004C8440
0082F8FA 8D55C4 lea edx, [ebp-$3C]
0082F8FD 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F900 E8E7AFBDFF call 0040A8EC
0082F905 8B55C4 mov edx, [ebp-$3C]
0082F908 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082F90B E8B894BEFF call 00418DC8
0082F910 8D45C8 lea eax, [ebp-$38]
0082F913 50 push eax
0082F914 8B55E0 mov edx, [ebp-$20]
0082F917 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082F919 E89672C9FF call 004C6BB4
0082F91E 5A pop edx
0082F91F 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0082F921 FF91B4000000 call dword ptr [ecx+$00B4]
0082F927 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmYFCR_SH.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
00830174 55 push ebp
00830175 8BEC mov ebp, esp
00830177 B908000000 mov ecx, $00000008
0083017C 6A00 push $00
0083017E 6A00 push $00
00830180 49 dec ecx
00830181 75F9 jnz 0083017C
00830183 51 push ecx
00830184 53 push ebx
00830185 56 push esi
00830186 8BDA mov ebx, edx
00830188 8BF0 mov esi, eax
0083018A 33C0 xor eax, eax
0083018C 55 push ebp
* Possible String Reference to: '<27>UG<55><47><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0083018D 689A038300 push $0083039A
***** TRY
|
00830192 64FF30 push dword ptr fs:[eax]
00830195 648920 mov fs:[eax], esp
00830198 8D55FC lea edx, [ebp-$04]
0083019B 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;
|
0083019D E81AF5D5FF call 0058F6BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
008301A2 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;
|
008301A8 E89FC1E2FF 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;
|
008301AD E8B219E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008301B2 8B4050 mov eax, [eax+$50]
008301B5 8D55F4 lea edx, [ebp-$0C]
008301B8 8B08 mov ecx, [eax]
008301BA FF5110 call dword ptr [ecx+$10]
008301BD 8B45F4 mov eax, [ebp-$0C]
008301C0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008301C3 E824A7BDFF call 0040A8EC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008301C8 8B9E68030000 mov ebx, [esi+$0368]
008301CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008301D0 E86B82C9FF call 004C8440
008301D5 8D55E0 lea edx, [ebp-$20]
008301D8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008301DB E80CA7BDFF call 0040A8EC
008301E0 8B55E0 mov edx, [ebp-$20]
008301E3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008301E6 E8DD8BBEFF call 00418DC8
008301EB 8D45E4 lea eax, [ebp-$1C]
008301EE 50 push eax
008301EF 8B55F8 mov edx, [ebp-$08]
008301F2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008301F4 E8BB69C9FF call 004C6BB4
008301F9 5A pop edx
008301FA 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008301FC FF91B4000000 call dword ptr [ecx+$00B4]
00830202 8BC3 mov eax, ebx
00830204 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00830206 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
0083020C 8B9E0C030000 mov ebx, [esi+$030C]
00830212 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00830214 E8BB56C9FF call 004C58D4
00830219 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0083021B E88CDDCAFF call 004DDFAC
00830220 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00830222 FF5244 call dword ptr [edx+$44]
00830225 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00830227 E880DDCAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0083022C BAB0038300 mov edx, $008303B0
00830231 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00830233 FF5138 call dword ptr [ecx+$38]
00830236 8D55DC lea edx, [ebp-$24]
00830239 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083023C E8ABA6BDFF call 0040A8EC
00830241 837DDC00 cmp dword ptr [ebp-$24], +$00
00830245 7440 jz 00830287
* Possible String Reference to: ' Set '
|
00830247 68CC038300 push $008303CC
0083024C FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0083024F 68DC038300 push $008303DC
00830254 8D55D4 lea edx, [ebp-$2C]
00830257 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083025A E88DA6BDFF call 0040A8EC
0083025F FF75D4 push dword ptr [ebp-$2C]
00830262 68E8038300 push $008303E8
00830267 8D45D8 lea eax, [ebp-$28]
0083026A BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0083026F E84054BDFF call 004056B4
00830274 8B45D8 mov eax, [ebp-$28]
00830277 50 push eax
00830278 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0083027A E82DDDCAFF call 004DDFAC
0083027F 5A pop edx
00830280 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00830282 FF5138 call dword ptr [ecx+$38]
00830285 EB2B jmp 008302B2
00830287 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00830289 E81EDDCAFF call 004DDFAC
0083028E 50 push eax
* Possible String Reference to: ' Set '
|
0083028F 68CC038300 push $008303CC
00830294 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00830297 68F4038300 push $008303F4
0083029C 8D45D0 lea eax, [ebp-$30]
0083029F BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008302A4 E80B54BDFF call 004056B4
008302A9 8B55D0 mov edx, [ebp-$30]
008302AC 58 pop eax
008302AD 8B08 mov ecx, [eax]
008302AF FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008302B2 6804048300 push $00830404
008302B7 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFCR_SH.ToolButton3Click(Sender : TObject);
begin
(*
00830458 55 push ebp
00830459 8BEC mov ebp, esp
0083045B B90C000000 mov ecx, $0000000C
00830460 6A00 push $00
00830462 6A00 push $00
00830464 49 dec ecx
00830465 75F9 jnz 00830460
00830467 51 push ecx
00830468 53 push ebx
00830469 8945FC mov [ebp-$04], eax
0083046C 33C0 xor eax, eax
0083046E 55 push ebp
0083046F 6880068300 push $00830680
***** TRY
|
00830474 64FF30 push dword ptr fs:[eax]
00830477 648920 mov fs:[eax], esp
0083047A 33C0 xor eax, eax
0083047C 55 push ebp
0083047D 6813068300 push $00830613
***** TRY
|
00830482 64FF30 push dword ptr fs:[eax]
00830485 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
00830710 55 push ebp
00830711 8BEC mov ebp, esp
00830713 51 push ecx
00830714 B90C000000 mov ecx, $0000000C
00830719 6A00 push $00
0083071B 6A00 push $00
0083071D 49 dec ecx
0083071E 75F9 jnz 00830719
00830720 51 push ecx
00830721 874DFC xchg [ebp-$04], ecx
00830724 53 push ebx
00830725 56 push esi
00830726 8BF0 mov esi, eax
00830728 33C0 xor eax, eax
0083072A 55 push ebp
0083072B 68AF0A8300 push $00830AAF
***** TRY
|
00830730 64FF30 push dword ptr fs:[eax]
00830733 648920 mov fs:[eax], esp
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00830736 8B8668030000 mov eax, [esi+$0368]
* Possible String Reference to: 'YFType'
|
0083073C BAC40A8300 mov edx, $00830AC4
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00830741 E86E64C9FF call 004C6BB4
00830746 8D55F8 lea edx, [ebp-$08]
00830749 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0083074B FF5160 call dword ptr [ecx+$60]
0083074E 8B45F8 mov eax, [ebp-$08]
00830751 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00830754 E893A1BDFF call 0040A8EC
00830759 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
0083075C BAD40A8300 mov edx, $00830AD4
* Reference to: System.@LStrCmp;
|
00830761 E8DA4FBDFF call 00405740
00830766 751D jnz 00830785
00830768 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0083076A B9E00A8300 mov ecx, $00830AE0
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
0083076F BAE80A8300 mov edx, $00830AE8
*)
end;
procedure TfrmYFCR_SH.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
00830C28 55 push ebp
00830C29 8BEC mov ebp, esp
00830C2B 51 push ecx
00830C2C B906000000 mov ecx, $00000006
00830C31 6A00 push $00
00830C33 6A00 push $00
00830C35 49 dec ecx
00830C36 75F9 jnz 00830C31
00830C38 51 push ecx
00830C39 874DFC xchg [ebp-$04], ecx
00830C3C 53 push ebx
00830C3D 56 push esi
00830C3E 8BF0 mov esi, eax
00830C40 33C0 xor eax, eax
00830C42 55 push ebp
* Possible String Reference to: '<27>n<<3C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00830C43 68810E8300 push $00830E81
***** TRY
|
00830C48 64FF30 push dword ptr fs:[eax]
00830C4B 648920 mov fs:[eax], esp
00830C4E 33C0 xor eax, eax
00830C50 55 push ebp
00830C51 68570E8300 push $00830E57
***** TRY
|
00830C56 64FF30 push dword ptr fs:[eax]
00830C59 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
00830F84 55 push ebp
00830F85 8BEC mov ebp, esp
00830F87 51 push ecx
00830F88 B906000000 mov ecx, $00000006
00830F8D 6A00 push $00
00830F8F 6A00 push $00
00830F91 49 dec ecx
00830F92 75F9 jnz 00830F8D
00830F94 51 push ecx
00830F95 874DFC xchg [ebp-$04], ecx
00830F98 53 push ebx
00830F99 56 push esi
00830F9A 8BF0 mov esi, eax
00830F9C 33C0 xor eax, eax
00830F9E 55 push ebp
00830F9F 68DD118300 push $008311DD
***** TRY
|
00830FA4 64FF30 push dword ptr fs:[eax]
00830FA7 648920 mov fs:[eax], esp
00830FAA 33C0 xor eax, eax
00830FAC 55 push ebp
00830FAD 68B3118300 push $008311B3
***** TRY
|
00830FB2 64FF30 push dword ptr fs:[eax]
00830FB5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH.ToolButton1Click(Sender : TObject);
begin
(*
008312C8 53 push ebx
008312C9 8BD8 mov ebx, eax
* Reference to control TfrmYFCR_SH.ADOQueryMain : TADOQuery
|
008312CB 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008312D1 E8EA6BC9FF call 004C7EC0
008312D6 84C0 test al, al
008312D8 7516 jnz 008312F0
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
008312DA B9FC128300 mov ecx, $008312FC
* Reference to control TfrmYFCR_SH.ADOQueryMain : TADOQuery
|
008312DF 8B931C030000 mov edx, [ebx+$031C]
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
008312E5 8B8338030000 mov eax, [ebx+$0338]
|
008312EB E8406FF8FF call 007B8230
008312F0 5B pop ebx
008312F1 C3 ret
*)
end;
procedure TfrmYFCR_SH.v2Column2PropertiesEditValueChanged(Sender : TObject);
begin
(*
00831308 55 push ebp
00831309 8BEC mov ebp, esp
0083130B B908000000 mov ecx, $00000008
00831310 6A00 push $00
00831312 6A00 push $00
00831314 49 dec ecx
00831315 75F9 jnz 00831310
00831317 53 push ebx
00831318 56 push esi
00831319 8BDA mov ebx, edx
0083131B 8BF0 mov esi, eax
0083131D 33C0 xor eax, eax
0083131F 55 push ebp
* Possible String Reference to: '<27><>5<EFBFBD><35><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00831320 68F0148300 push $008314F0
***** TRY
|
00831325 64FF30 push dword ptr fs:[eax]
00831328 648920 mov fs:[eax], esp
0083132B 8D55FC lea edx, [ebp-$04]
0083132E 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;
|
00831330 E887E3D5FF call 0058F6BC
00831335 8D55F4 lea edx, [ebp-$0C]
00831338 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083133B E8AC95BDFF call 0040A8EC
00831340 837DF400 cmp dword ptr [ebp-$0C], +$00
00831344 750D jnz 00831353
00831346 8D45FC lea eax, [ebp-$04]
00831349 BA08158300 mov edx, $00831508
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0083134E E86940BDFF call 004053BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00831353 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;
|
00831359 E8EEAFE2FF 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;
|
0083135E E80108E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00831363 8B4050 mov eax, [eax+$50]
00831366 8D55F0 lea edx, [ebp-$10]
00831369 8B08 mov ecx, [eax]
0083136B FF5110 call dword ptr [ecx+$10]
0083136E 8B45F0 mov eax, [ebp-$10]
00831371 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831374 E87395BDFF call 0040A8EC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00831379 8B9E68030000 mov ebx, [esi+$0368]
0083137F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00831381 E8BA70C9FF call 004C8440
00831386 8D55DC lea edx, [ebp-$24]
00831389 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083138C E85B95BDFF call 0040A8EC
00831391 8B55DC mov edx, [ebp-$24]
00831394 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00831397 E82C7ABEFF call 00418DC8
0083139C 8D45E0 lea eax, [ebp-$20]
0083139F 50 push eax
008313A0 8B55F8 mov edx, [ebp-$08]
008313A3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008313A5 E80A58C9FF call 004C6BB4
008313AA 5A pop edx
008313AB 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008313AD FF91B4000000 call dword ptr [ecx+$00B4]
008313B3 8BC3 mov eax, ebx
008313B5 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008313B7 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
008313BD 8B9E0C030000 mov ebx, [esi+$030C]
008313C3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008313C5 E80A45C9FF call 004C58D4
008313CA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008313CC E8DBCBCAFF call 004DDFAC
008313D1 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008313D3 FF5244 call dword ptr [edx+$44]
008313D6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008313D8 E8CFCBCAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008313DD BA14158300 mov edx, $00831514
008313E2 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008313E4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008313E7 6830158300 push $00831530
008313EC FF75F8 push dword ptr [ebp-$08]
008313EF 6840158300 push $00831540
008313F4 8D55D4 lea edx, [ebp-$2C]
008313F7 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008313FA E8ED94BDFF call 0040A8EC
008313FF FF75D4 push dword ptr [ebp-$2C]
00831402 8D45D8 lea eax, [ebp-$28]
00831405 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
0083140A E8A542BDFF call 004056B4
0083140F 8B45D8 mov eax, [ebp-$28]
00831412 50 push eax
00831413 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00831415 E892CBCAFF call 004DDFAC
0083141A 5A pop edx
0083141B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0083141D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00831420 684C158300 push $0083154C
00831425 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFCR_SH.v2PSPropertiesEditValueChanged(Sender : TObject);
begin
(*
008315AC 55 push ebp
008315AD 8BEC mov ebp, esp
008315AF B908000000 mov ecx, $00000008
008315B4 6A00 push $00
008315B6 6A00 push $00
008315B8 49 dec ecx
008315B9 75F9 jnz 008315B4
008315BB 53 push ebx
008315BC 56 push esi
008315BD 8BDA mov ebx, edx
008315BF 8BF0 mov esi, eax
008315C1 33C0 xor eax, eax
008315C3 55 push ebp
* Possible String Reference to: '<27>[3<><33><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008315C4 6894178300 push $00831794
***** TRY
|
008315C9 64FF30 push dword ptr fs:[eax]
008315CC 648920 mov fs:[eax], esp
008315CF 8D55FC lea edx, [ebp-$04]
008315D2 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;
|
008315D4 E8E3E0D5FF call 0058F6BC
008315D9 8D55F4 lea edx, [ebp-$0C]
008315DC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008315DF E80893BDFF call 0040A8EC
008315E4 837DF400 cmp dword ptr [ebp-$0C], +$00
008315E8 750D jnz 008315F7
008315EA 8D45FC lea eax, [ebp-$04]
008315ED BAAC178300 mov edx, $008317AC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008315F2 E8C53DBDFF call 004053BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
008315F7 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;
|
008315FD E84AADE2FF 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;
|
00831602 E85D05E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00831607 8B4050 mov eax, [eax+$50]
0083160A 8D55F0 lea edx, [ebp-$10]
0083160D 8B08 mov ecx, [eax]
0083160F FF5110 call dword ptr [ecx+$10]
00831612 8B45F0 mov eax, [ebp-$10]
00831615 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831618 E8CF92BDFF call 0040A8EC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
0083161D 8B9E68030000 mov ebx, [esi+$0368]
00831623 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00831625 E8166EC9FF call 004C8440
0083162A 8D55DC lea edx, [ebp-$24]
0083162D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831630 E8B792BDFF call 0040A8EC
00831635 8B55DC mov edx, [ebp-$24]
00831638 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0083163B E88877BEFF call 00418DC8
00831640 8D45E0 lea eax, [ebp-$20]
00831643 50 push eax
00831644 8B55F8 mov edx, [ebp-$08]
00831647 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831649 E86655C9FF call 004C6BB4
0083164E 5A pop edx
0083164F 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00831651 FF91B4000000 call dword ptr [ecx+$00B4]
00831657 8BC3 mov eax, ebx
00831659 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0083165B FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
00831661 8B9E0C030000 mov ebx, [esi+$030C]
00831667 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00831669 E86642C9FF call 004C58D4
0083166E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00831670 E837C9CAFF call 004DDFAC
00831675 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00831677 FF5244 call dword ptr [edx+$44]
0083167A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0083167C E82BC9CAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00831681 BAB8178300 mov edx, $008317B8
00831686 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00831688 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
0083168B 68D4178300 push $008317D4
00831690 FF75F8 push dword ptr [ebp-$08]
00831693 68E4178300 push $008317E4
00831698 8D55D4 lea edx, [ebp-$2C]
0083169B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083169E E84992BDFF call 0040A8EC
008316A3 FF75D4 push dword ptr [ebp-$2C]
008316A6 8D45D8 lea eax, [ebp-$28]
008316A9 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008316AE E80140BDFF call 004056B4
008316B3 8B45D8 mov eax, [ebp-$28]
008316B6 50 push eax
008316B7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008316B9 E8EEC8CAFF call 004DDFAC
008316BE 5A pop edx
008316BF 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008316C1 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008316C4 68F0178300 push $008317F0
008316C9 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFCR_SH.v2BatchNoPropertiesEditValueChanged(Sender : TObject);
begin
(*
00831850 55 push ebp
00831851 8BEC mov ebp, esp
00831853 B907000000 mov ecx, $00000007
00831858 6A00 push $00
0083185A 6A00 push $00
0083185C 49 dec ecx
0083185D 75F9 jnz 00831858
0083185F 51 push ecx
00831860 53 push ebx
00831861 56 push esi
00831862 8BDA mov ebx, edx
00831864 8BF0 mov esi, eax
00831866 33C0 xor eax, eax
00831868 55 push ebp
* Possible String Reference to: '<27><>0<EFBFBD><30><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00831869 68201A8300 push $00831A20
***** TRY
|
0083186E 64FF30 push dword ptr fs:[eax]
00831871 648920 mov fs:[eax], esp
00831874 8D55FC lea edx, [ebp-$04]
00831877 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;
|
00831879 E83EDED5FF call 0058F6BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
0083187E 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;
|
00831884 E8C3AAE2FF 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;
|
00831889 E8D602E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0083188E 8B4050 mov eax, [eax+$50]
00831891 8D55F4 lea edx, [ebp-$0C]
00831894 8B08 mov ecx, [eax]
00831896 FF5110 call dword ptr [ecx+$10]
00831899 8B45F4 mov eax, [ebp-$0C]
0083189C 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083189F E84890BDFF call 0040A8EC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008318A4 8B9E68030000 mov ebx, [esi+$0368]
008318AA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008318AC E88F6BC9FF call 004C8440
008318B1 8D55E0 lea edx, [ebp-$20]
008318B4 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008318B7 E83090BDFF call 0040A8EC
008318BC 8B55E0 mov edx, [ebp-$20]
008318BF 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008318C2 E80175BEFF call 00418DC8
008318C7 8D45E4 lea eax, [ebp-$1C]
008318CA 50 push eax
008318CB 8B55F8 mov edx, [ebp-$08]
008318CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008318D0 E8DF52C9FF call 004C6BB4
008318D5 5A pop edx
008318D6 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008318D8 FF91B4000000 call dword ptr [ecx+$00B4]
008318DE 8BC3 mov eax, ebx
008318E0 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008318E2 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
008318E8 8B9E0C030000 mov ebx, [esi+$030C]
008318EE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008318F0 E8DF3FC9FF call 004C58D4
008318F5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008318F7 E8B0C6CAFF call 004DDFAC
008318FC 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008318FE FF5244 call dword ptr [edx+$44]
00831901 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00831903 E8A4C6CAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00831908 BA381A8300 mov edx, $00831A38
0083190D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0083190F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00831912 68541A8300 push $00831A54
00831917 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0083191A 68641A8300 push $00831A64
0083191F 8D55D8 lea edx, [ebp-$28]
00831922 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831925 E8C28FBDFF call 0040A8EC
0083192A FF75D8 push dword ptr [ebp-$28]
0083192D 68701A8300 push $00831A70
00831932 8D45DC lea eax, [ebp-$24]
00831935 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0083193A E8753DBDFF call 004056B4
0083193F 8B45DC mov eax, [ebp-$24]
00831942 50 push eax
00831943 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00831945 E862C6CAFF call 004DDFAC
0083194A 5A pop edx
0083194B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0083194D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00831950 687C1A8300 push $00831A7C
00831955 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYFCR_SH.v2PayMentPropertiesButtonClick(Sender : TObject);
begin
(*
00831AD0 55 push ebp
00831AD1 8BEC mov ebp, esp
00831AD3 51 push ecx
00831AD4 B906000000 mov ecx, $00000006
00831AD9 6A00 push $00
00831ADB 6A00 push $00
00831ADD 49 dec ecx
00831ADE 75F9 jnz 00831AD9
00831AE0 51 push ecx
00831AE1 874DFC xchg [ebp-$04], ecx
00831AE4 53 push ebx
00831AE5 56 push esi
00831AE6 8BF0 mov esi, eax
00831AE8 33C0 xor eax, eax
00831AEA 55 push ebp
00831AEB 68271D8300 push $00831D27
***** TRY
|
00831AF0 64FF30 push dword ptr fs:[eax]
00831AF3 648920 mov fs:[eax], esp
00831AF6 33C0 xor eax, eax
00831AF8 55 push ebp
00831AF9 68FD1C8300 push $00831CFD
***** TRY
|
00831AFE 64FF30 push dword ptr fs:[eax]
00831B01 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH.v2T_qtyPropertiesEditValueChanged(Sender : TObject);
begin
(*
00831E04 55 push ebp
00831E05 8BEC mov ebp, esp
00831E07 B910000000 mov ecx, $00000010
00831E0C 6A00 push $00
00831E0E 6A00 push $00
00831E10 49 dec ecx
00831E11 75F9 jnz 00831E0C
00831E13 51 push ecx
00831E14 53 push ebx
00831E15 56 push esi
00831E16 8BDA mov ebx, edx
00831E18 8BF0 mov esi, eax
00831E1A 33C0 xor eax, eax
00831E1C 55 push ebp
00831E1D 68AB208300 push $008320AB
***** TRY
|
00831E22 64FF30 push dword ptr fs:[eax]
00831E25 648920 mov fs:[eax], esp
00831E28 8D55FC lea edx, [ebp-$04]
00831E2B 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;
|
00831E2D E88AD8D5FF call 0058F6BC
00831E32 8D55F0 lea edx, [ebp-$10]
00831E35 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831E38 E8AF8ABDFF call 0040A8EC
00831E3D 837DF000 cmp dword ptr [ebp-$10], +$00
00831E41 750D jnz 00831E50
00831E43 8D45FC lea eax, [ebp-$04]
00831E46 BAC0208300 mov edx, $008320C0
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00831E4B E86C35BDFF call 004053BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00831E50 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;
|
00831E56 E8F1A4E2FF 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;
|
00831E5B E804FDE1FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00831E60 8B4050 mov eax, [eax+$50]
00831E63 8D55EC lea edx, [ebp-$14]
00831E66 8B08 mov ecx, [eax]
00831E68 FF5110 call dword ptr [ecx+$10]
00831E6B 8B45EC mov eax, [ebp-$14]
00831E6E 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831E71 E8768ABDFF call 0040A8EC
00831E76 8D45F4 lea eax, [ebp-$0C]
00831E79 50 push eax
* Possible String Reference to: 'T_Price'
|
00831E7A BACC208300 mov edx, $008320CC
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00831E7F 8B8668030000 mov eax, [esi+$0368]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831E85 E82A4DC9FF call 004C6BB4
00831E8A 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00831E8C FF5254 call dword ptr [edx+$54]
00831E8F DD5DDC fstp qword ptr [ebp-$24]
00831E92 9B wait
00831E93 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00831E96 E891B8BDFF call 0040D72C
00831E9B DC4DDC fmul qword ptr [ebp-$24]
00831E9E DB7DD0 fstp tbyte ptr [ebp-$30]
00831EA1 9B wait
00831EA2 8D45D0 lea eax, [ebp-$30]
00831EA5 8945E4 mov [ebp-$1C], eax
00831EA8 C645E803 mov byte ptr [ebp-$18], $03
00831EAC 8D55E4 lea edx, [ebp-$1C]
00831EAF 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
00831EB1 B8DC208300 mov eax, $008320DC
|
00831EB6 E8C9ACBDFF call 0040CB84
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00831EBB 8B9E68030000 mov ebx, [esi+$0368]
00831EC1 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00831EC3 E87865C9FF call 004C8440
00831EC8 8D55BC lea edx, [ebp-$44]
00831ECB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831ECE E8198ABDFF call 0040A8EC
00831ED3 8B55BC mov edx, [ebp-$44]
00831ED6 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00831ED9 E8EA6EBEFF call 00418DC8
00831EDE 8D45C0 lea eax, [ebp-$40]
00831EE1 50 push eax
00831EE2 8B55F8 mov edx, [ebp-$08]
00831EE5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831EE7 E8C84CC9FF call 004C6BB4
00831EEC 5A pop edx
00831EED 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00831EEF FF91B4000000 call dword ptr [ecx+$00B4]
00831EF5 8D55A8 lea edx, [ebp-$58]
00831EF8 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831EFB E8EC89BDFF call 0040A8EC
00831F00 8B55A8 mov edx, [ebp-$58]
00831F03 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00831F06 E8BD6EBEFF call 00418DC8
00831F0B 8D45AC lea eax, [ebp-$54]
00831F0E 50 push eax
* Possible String Reference to: 'T_Money'
|
00831F0F BAEC208300 mov edx, $008320EC
00831F14 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831F16 E8994CC9FF call 004C6BB4
00831F1B 5A pop edx
00831F1C 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00831F1E FF91B4000000 call dword ptr [ecx+$00B4]
00831F24 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmYFCR_SH.Button1Click(Sender : TObject);
begin
(*
00832194 55 push ebp
00832195 8BEC mov ebp, esp
00832197 B910000000 mov ecx, $00000010
0083219C 6A00 push $00
0083219E 6A00 push $00
008321A0 49 dec ecx
008321A1 75F9 jnz 0083219C
008321A3 51 push ecx
008321A4 53 push ebx
008321A5 56 push esi
008321A6 57 push edi
008321A7 8945FC mov [ebp-$04], eax
008321AA 33C0 xor eax, eax
008321AC 55 push ebp
* Possible String Reference to: '<27><>%<25><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008321AD 6825258300 push $00832525
***** TRY
|
008321B2 64FF30 push dword ptr fs:[eax]
008321B5 648920 mov fs:[eax], esp
008321B8 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008321BB 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008321C1 E8FA5CC9FF call 004C7EC0
008321C6 84C0 test al, al
008321C8 0F85F1020000 jnz 008324BF
008321CE A034258300 mov al, byte ptr [$00832534]
008321D3 50 push eax
008321D4 8D45EC lea eax, [ebp-$14]
008321D7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008321D9 E8866BBEFF call 00418D64
008321DE 8D4DEC lea ecx, [ebp-$14]
008321E1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008321E4 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
008321EA BA40258300 mov edx, $00832540
008321EF 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008321F1 FF9344020000 call dword ptr [ebx+$0244]
008321F7 84C0 test al, al
008321F9 751D jnz 00832218
008321FB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008321FD B948258300 mov ecx, $00832548
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00832202 BA50258300 mov edx, $00832550
*)
end;
procedure TfrmYFCR_SH.CheckBox1Click(Sender : TObject);
begin
(*
00832610 55 push ebp
00832611 8BEC mov ebp, esp
00832613 B905000000 mov ecx, $00000005
00832618 6A00 push $00
0083261A 6A00 push $00
0083261C 49 dec ecx
0083261D 75F9 jnz 00832618
0083261F 53 push ebx
00832620 56 push esi
00832621 57 push edi
00832622 8BF0 mov esi, eax
00832624 33C0 xor eax, eax
00832626 55 push ebp
00832627 68DC278300 push $008327DC
***** TRY
|
0083262C 64FF30 push dword ptr fs:[eax]
0083262F 648920 mov fs:[eax], esp
00832632 BAF4278300 mov edx, $008327F4
* Reference to control TfrmYFCR_SH.Label14 : TLabel
|
00832637 8B8604040000 mov eax, [esi+$0404]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0083263D E8DE5FC5FF call 00488620
00832642 BAF4278300 mov edx, $008327F4
* Reference to control TfrmYFCR_SH.Label16 : TLabel
|
00832647 8B8608040000 mov eax, [esi+$0408]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0083264D E8CE5FC5FF call 00488620
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00832652 8B8668030000 mov eax, [esi+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00832658 E86358C9FF call 004C7EC0
0083265D 84C0 test al, al
0083265F 0F8541010000 jnz 008327A6
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00832665 8B9E68030000 mov ebx, [esi+$0368]
0083266B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0083266D E8E24EC9FF call 004C7554
00832672 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
00832674 E8B759C9FF call 004C8030
00832679 E90D010000 jmp 0083278B
0083267E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00832680 E8BB5DC9FF call 004C8440
* Reference to control TfrmYFCR_SH.CheckBox1 : TCheckBox
|
00832685 8B86B4030000 mov eax, [esi+$03B4]
0083268B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
0083268D FF92C8000000 call dword ptr [edx+$00C8]
00832693 8BD0 mov edx, eax
00832695 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00832698 E8C766BEFF call 00418D64
0083269D 8D45F0 lea eax, [ebp-$10]
008326A0 50 push eax
* Possible String Reference to: 'ssel'
|
008326A1 BA00288300 mov edx, $00832800
008326A6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008326A8 E80745C9FF call 004C6BB4
008326AD 5A pop edx
008326AE 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008326B0 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmYFCR_SH.CheckBox1 : TCheckBox
|
008326B6 8B86B4030000 mov eax, [esi+$03B4]
008326BC 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
008326BE FF92C8000000 call dword ptr [edx+$00C8]
008326C4 3C01 cmp al, $01
008326C6 0F85AE000000 jnz 0083277A
* Possible String Reference to: 'Qty'
|
008326CC BA10288300 mov edx, $00832810
008326D1 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008326D3 E8DC44C9FF call 004C6BB4
008326D8 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
008326DA FF524C call dword ptr [edx+$4C]
008326DD DF7DE4 fistp qword ptr [ebp-$1C]
008326E0 9B wait
008326E1 8D55E0 lea edx, [ebp-$20]
* Reference to control TfrmYFCR_SH.Label14 : TLabel
|
008326E4 8BBE04040000 mov edi, [esi+$0404]
008326EA 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
008326EC E8FF5EC5FF call 004885F0
008326F1 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008326F4 E833B0BDFF call 0040D72C
008326F9 D80D14288300 fmul dword ptr [$00832814]
008326FF DF6DE4 fild qword ptr [ebp-$1C]
00832702 DEC1 faddp st(1), st(0)
00832704 D83514288300 fdiv dword ptr [$00832814]
0083270A 83C4F4 add esp, -$0C
0083270D DB3C24 fstp tbyte ptr [esp]
00832710 9B wait
00832711 8D45EC lea eax, [ebp-$14]
|
00832714 E893AEBDFF call 0040D5AC
00832719 8B55EC mov edx, [ebp-$14]
0083271C 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0083271E E8FD5EC5FF call 00488620
* Possible String Reference to: 'Money'
|
00832723 BA20288300 mov edx, $00832820
00832728 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0083272A E88544C9FF call 004C6BB4
0083272F 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00832731 FF524C call dword ptr [edx+$4C]
00832734 DF7DE4 fistp qword ptr [ebp-$1C]
00832737 9B wait
00832738 8D55D8 lea edx, [ebp-$28]
* Reference to control TfrmYFCR_SH.Label16 : TLabel
|
0083273B 8BBE08040000 mov edi, [esi+$0408]
00832741 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00832743 E8A85EC5FF call 004885F0
00832748 8B45D8 mov eax, [ebp-$28]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0083274B E8DCAFBDFF call 0040D72C
00832750 D80D14288300 fmul dword ptr [$00832814]
00832756 DF6DE4 fild qword ptr [ebp-$1C]
00832759 DEC1 faddp st(1), st(0)
0083275B D83514288300 fdiv dword ptr [$00832814]
00832761 83C4F4 add esp, -$0C
00832764 DB3C24 fstp tbyte ptr [esp]
00832767 9B wait
00832768 8D45DC lea eax, [ebp-$24]
|
0083276B E83CAEBDFF call 0040D5AC
00832770 8B55DC mov edx, [ebp-$24]
00832773 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00832775 E8A65EC5FF call 00488620
0083277A 8BC3 mov eax, ebx
0083277C 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0083277E FF924C020000 call dword ptr [edx+$024C]
00832784 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
00832786 E8C15BC9FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
0083278B 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
00832792 0F84E6FEFFFF jz 0083267E
00832798 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
0083279A E89158C9FF call 004C8030
0083279F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008327A1 E8CE4DC9FF call 004C7574
008327A6 33C0 xor eax, eax
008327A8 5A pop edx
008327A9 59 pop ecx
008327AA 59 pop ecx
008327AB 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
008327AE 68E3278300 push $008327E3
008327B3 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
008327B6 E8692BBDFF call 00405324
008327BB 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
008327BE E8612BBDFF call 00405324
008327C3 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
008327C6 E8592BBDFF call 00405324
008327CB 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
008327CE E8512BBDFF call 00405324
008327D3 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008327D6 E8991EBEFF call 00414674
008327DB C3 ret
* Reference to: System.@HandleFinally;
|
008327DC E91323BDFF jmp 00404AF4
008327E1 EBD0 jmp 008327B3
****** END
|
008327E3 5F pop edi
008327E4 5E pop esi
008327E5 5B pop ebx
008327E6 8BE5 mov esp, ebp
008327E8 5D pop ebp
008327E9 C3 ret
*)
end;
procedure TfrmYFCR_SH.v2T_PricePropertiesEditValueChanged(Sender : TObject);
begin
(*
00832828 55 push ebp
00832829 8BEC mov ebp, esp
0083282B B910000000 mov ecx, $00000010
00832830 6A00 push $00
00832832 6A00 push $00
00832834 49 dec ecx
00832835 75F9 jnz 00832830
00832837 51 push ecx
00832838 53 push ebx
00832839 56 push esi
0083283A 8BDA mov ebx, edx
0083283C 8BF0 mov esi, eax
0083283E 33C0 xor eax, eax
00832840 55 push ebp
00832841 68CF2A8300 push $00832ACF
***** TRY
|
00832846 64FF30 push dword ptr fs:[eax]
00832849 648920 mov fs:[eax], esp
0083284C 8D55FC lea edx, [ebp-$04]
0083284F 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;
|
00832851 E866CED5FF call 0058F6BC
00832856 8D55F0 lea edx, [ebp-$10]
00832859 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083285C E88B80BDFF call 0040A8EC
00832861 837DF000 cmp dword ptr [ebp-$10], +$00
00832865 750D jnz 00832874
00832867 8D45FC lea eax, [ebp-$04]
0083286A BAE42A8300 mov edx, $00832AE4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0083286F E8482BBDFF call 004053BC
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832874 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;
|
0083287A E8CD9AE2FF 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;
|
0083287F E8E0F2E1FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00832884 8B4050 mov eax, [eax+$50]
00832887 8D55EC lea edx, [ebp-$14]
0083288A 8B08 mov ecx, [eax]
0083288C FF5110 call dword ptr [ecx+$10]
0083288F 8B45EC mov eax, [ebp-$14]
00832892 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00832895 E85280BDFF call 0040A8EC
0083289A 8D45F4 lea eax, [ebp-$0C]
0083289D 50 push eax
* Possible String Reference to: 'T_Qty'
|
0083289E BAF02A8300 mov edx, $00832AF0
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008328A3 8B8668030000 mov eax, [esi+$0368]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008328A9 E80643C9FF call 004C6BB4
008328AE 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
008328B0 FF5254 call dword ptr [edx+$54]
008328B3 DD5DDC fstp qword ptr [ebp-$24]
008328B6 9B wait
008328B7 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008328BA E86DAEBDFF call 0040D72C
008328BF DC4DDC fmul qword ptr [ebp-$24]
008328C2 DB7DD0 fstp tbyte ptr [ebp-$30]
008328C5 9B wait
008328C6 8D45D0 lea eax, [ebp-$30]
008328C9 8945E4 mov [ebp-$1C], eax
008328CC C645E803 mov byte ptr [ebp-$18], $03
008328D0 8D55E4 lea edx, [ebp-$1C]
008328D3 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
008328D5 B8002B8300 mov eax, $00832B00
|
008328DA E8A5A2BDFF call 0040CB84
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008328DF 8B9E68030000 mov ebx, [esi+$0368]
008328E5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008328E7 E8545BC9FF call 004C8440
008328EC 8D55BC lea edx, [ebp-$44]
008328EF 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008328F2 E8F57FBDFF call 0040A8EC
008328F7 8B55BC mov edx, [ebp-$44]
008328FA 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008328FD E8C664BEFF call 00418DC8
00832902 8D45C0 lea eax, [ebp-$40]
00832905 50 push eax
00832906 8B55F8 mov edx, [ebp-$08]
00832909 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0083290B E8A442C9FF call 004C6BB4
00832910 5A pop edx
00832911 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00832913 FF91B4000000 call dword ptr [ecx+$00B4]
00832919 8D55A8 lea edx, [ebp-$58]
0083291C 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083291F E8C87FBDFF call 0040A8EC
00832924 8B55A8 mov edx, [ebp-$58]
00832927 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0083292A E89964BEFF call 00418DC8
0083292F 8D45AC lea eax, [ebp-$54]
00832932 50 push eax
* Possible String Reference to: 'T_Money'
|
00832933 BA102B8300 mov edx, $00832B10
00832938 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0083293A E87542C9FF call 004C6BB4
0083293F 5A pop edx
00832940 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00832942 FF91B4000000 call dword ptr [ecx+$00B4]
00832948 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmYFCR_SH.cxTabControl1Change(Sender : TObject);
begin
(*
00832BB8 55 push ebp
00832BB9 8BEC mov ebp, esp
00832BBB 6A00 push $00
00832BBD 6A00 push $00
00832BBF 53 push ebx
00832BC0 56 push esi
00832BC1 57 push edi
00832BC2 8BD8 mov ebx, eax
00832BC4 33C0 xor eax, eax
00832BC6 55 push ebp
00832BC7 687A2D8300 push $00832D7A
***** TRY
|
00832BCC 64FF30 push dword ptr fs:[eax]
00832BCF 648920 mov fs:[eax], esp
00832BD2 33D2 xor edx, edx
* Reference to control TfrmYFCR_SH.Tchk : TToolButton
|
00832BD4 8B83BC030000 mov eax, [ebx+$03BC]
00832BDA 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832BDC FF5164 call dword ptr [ecx+$64]
00832BDF 33D2 xor edx, edx
* Reference to control TfrmYFCR_SH.Tnochk : TToolButton
|
00832BE1 8B83C0030000 mov eax, [ebx+$03C0]
00832BE7 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832BE9 FF5164 call dword ptr [ecx+$64]
00832BEC 33D2 xor edx, edx
* Reference to control TfrmYFCR_SH.TBDel : TToolButton
|
00832BEE 8B8300030000 mov eax, [ebx+$0300]
00832BF4 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832BF6 FF5164 call dword ptr [ecx+$64]
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832BF9 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);
|
00832BFF E84097E2FF call 0065C344
00832C04 8BF0 mov esi, eax
00832C06 4E dec esi
00832C07 85F6 test esi, esi
00832C09 7C54 jl 00832C5F
00832C0B 46 inc esi
00832C0C 33FF xor edi, edi
00832C0E 8BD7 mov edx, edi
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832C10 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;
|
00832C16 E8B58DE3FF call 0066B9D0
|
00832C1B E8008CE3FF call 0066B820
00832C20 8D55F8 lea edx, [ebp-$08]
|
00832C23 E8A081E3FF call 0066ADC8
00832C28 8B45F8 mov eax, [ebp-$08]
00832C2B 8D55FC lea edx, [ebp-$04]
|
00832C2E E84978BDFF call 0040A47C
00832C33 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: 'SSEL'
|
00832C36 BA902D8300 mov edx, $00832D90
* Reference to: System.@LStrCmp;
|
00832C3B E8002BBDFF call 00405740
00832C40 7419 jz 00832C5B
00832C42 8BD7 mov edx, edi
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832C44 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;
|
00832C4A E8818DE3FF call 0066B9D0
|
00832C4F E87C75E2FF call 0065A1D0
00832C54 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00832C56 E80563DFFF call 00628F60
00832C5B 47 inc edi
00832C5C 4E dec esi
00832C5D 75AF jnz 00832C0E
* Reference to field TfrmYFCR_SH.OFFS_0444
|
00832C5F 8B8344040000 mov eax, [ebx+$0444]
* Possible String Reference to: '<27><>Ȩ<EFBFBD><C8A8>'
|
00832C65 BAA02D8300 mov edx, $00832DA0
* Reference to: System.@LStrCmp;
|
00832C6A E8D12ABDFF call 00405740
00832C6F 7570 jnz 00832CE1
* Reference to control TfrmYFCR_SH.cxTabControl1 : TcxTabControl
|
00832C71 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832C77 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00832C7E 753F jnz 00832CBF
00832C80 B201 mov dl, $01
* Reference to control TfrmYFCR_SH.Tchk : TToolButton
|
00832C82 8B83BC030000 mov eax, [ebx+$03BC]
00832C88 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832C8A FF5164 call dword ptr [ecx+$64]
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832C8D 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);
|
00832C93 E8AC96E2FF call 0065C344
00832C98 8BF0 mov esi, eax
00832C9A 4E dec esi
00832C9B 85F6 test esi, esi
00832C9D 7C20 jl 00832CBF
00832C9F 46 inc esi
00832CA0 33FF xor edi, edi
00832CA2 8BD7 mov edx, edi
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832CA4 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;
|
00832CAA E8218DE3FF call 0066B9D0
|
00832CAF E81C75E2FF call 0065A1D0
00832CB4 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00832CB6 E8A562DFFF call 00628F60
00832CBB 47 inc edi
00832CBC 4E dec esi
00832CBD 75E3 jnz 00832CA2
* Reference to control TfrmYFCR_SH.cxTabControl1 : TcxTabControl
|
00832CBF 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832CC5 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00832CCC 0F8586000000 jnz 00832D58
00832CD2 B201 mov dl, $01
* Reference to control TfrmYFCR_SH.Tnochk : TToolButton
|
00832CD4 8B83C0030000 mov eax, [ebx+$03C0]
00832CDA 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832CDC FF5164 call dword ptr [ecx+$64]
00832CDF EB77 jmp 00832D58
* Reference to control TfrmYFCR_SH.cxTabControl1 : TcxTabControl
|
00832CE1 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832CE7 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00832CEE 754C jnz 00832D3C
00832CF0 B201 mov dl, $01
* Reference to control TfrmYFCR_SH.Tchk : TToolButton
|
00832CF2 8B83BC030000 mov eax, [ebx+$03BC]
00832CF8 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832CFA FF5164 call dword ptr [ecx+$64]
00832CFD B201 mov dl, $01
* Reference to control TfrmYFCR_SH.TBDel : TToolButton
|
00832CFF 8B8300030000 mov eax, [ebx+$0300]
00832D05 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832D07 FF5164 call dword ptr [ecx+$64]
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832D0A 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);
|
00832D10 E82F96E2FF call 0065C344
00832D15 8BF0 mov esi, eax
00832D17 4E dec esi
00832D18 85F6 test esi, esi
00832D1A 7C20 jl 00832D3C
00832D1C 46 inc esi
00832D1D 33FF xor edi, edi
00832D1F 8BD7 mov edx, edi
* Reference to control TfrmYFCR_SH.Tv2 : TcxGridDBTableView
|
00832D21 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;
|
00832D27 E8A48CE3FF call 0066B9D0
|
00832D2C E89F74E2FF call 0065A1D0
00832D31 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00832D33 E82862DFFF call 00628F60
00832D38 47 inc edi
00832D39 4E dec esi
00832D3A 75E3 jnz 00832D1F
* Reference to control TfrmYFCR_SH.cxTabControl1 : TcxTabControl
|
00832D3C 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832D42 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00832D49 750D jnz 00832D58
00832D4B B201 mov dl, $01
* Reference to control TfrmYFCR_SH.Tnochk : TToolButton
|
00832D4D 8B83C0030000 mov eax, [ebx+$03C0]
00832D53 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832D55 FF5164 call dword ptr [ecx+$64]
00832D58 8BC3 mov eax, ebx
|
00832D5A E8C5B3FFFF call 0082E124
00832D5F 33C0 xor eax, eax
00832D61 5A pop edx
00832D62 59 pop ecx
00832D63 59 pop ecx
00832D64 648910 mov fs:[eax], edx
****** FINALLY
|
00832D67 68812D8300 push $00832D81
00832D6C 8D45F8 lea eax, [ebp-$08]
00832D6F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00832D74 E8CF25BDFF call 00405348
00832D79 C3 ret
* Reference to: System.@HandleFinally;
|
00832D7A E9751DBDFF jmp 00404AF4
00832D7F EBEB jmp 00832D6C
****** END
|
00832D81 5F pop edi
00832D82 5E pop esi
00832D83 5B pop ebx
00832D84 59 pop ecx
00832D85 59 pop ecx
00832D86 5D pop ebp
00832D87 C3 ret
*)
end;
procedure TfrmYFCR_SH.TchkClick(Sender : TObject);
begin
(*
00832DA8 55 push ebp
00832DA9 8BEC mov ebp, esp
00832DAB B905000000 mov ecx, $00000005
00832DB0 6A00 push $00
00832DB2 6A00 push $00
00832DB4 49 dec ecx
00832DB5 75F9 jnz 00832DB0
00832DB7 51 push ecx
00832DB8 53 push ebx
00832DB9 56 push esi
00832DBA 57 push edi
00832DBB 8945FC mov [ebp-$04], eax
00832DBE 33C0 xor eax, eax
00832DC0 55 push ebp
00832DC1 68E82F8300 push $00832FE8
***** TRY
|
00832DC6 64FF30 push dword ptr fs:[eax]
00832DC9 648920 mov fs:[eax], esp
00832DCC 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00832DCF 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00832DD5 E8E650C9FF call 004C7EC0
00832DDA 84C0 test al, al
00832DDC 0F85E3010000 jnz 00832FC5
00832DE2 A0F82F8300 mov al, byte ptr [$00832FF8]
00832DE7 50 push eax
00832DE8 8D45EC lea eax, [ebp-$14]
00832DEB B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00832DED E8725FBEFF call 00418D64
00832DF2 8D4DEC lea ecx, [ebp-$14]
00832DF5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00832DF8 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
00832DFE BA04308300 mov edx, $00833004
00832E03 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00832E05 FF9344020000 call dword ptr [ebx+$0244]
00832E0B 84C0 test al, al
00832E0D 751D jnz 00832E2C
00832E0F 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00832E11 B90C308300 mov ecx, $0083300C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00832E16 BA14308300 mov edx, $00833014
*)
end;
procedure TfrmYFCR_SH.TnochkClick(Sender : TObject);
begin
(*
008330B0 55 push ebp
008330B1 8BEC mov ebp, esp
008330B3 B904000000 mov ecx, $00000004
008330B8 6A00 push $00
008330BA 6A00 push $00
008330BC 49 dec ecx
008330BD 75F9 jnz 008330B8
008330BF 51 push ecx
008330C0 53 push ebx
008330C1 56 push esi
008330C2 57 push edi
008330C3 8945FC mov [ebp-$04], eax
008330C6 33C0 xor eax, eax
008330C8 55 push ebp
008330C9 68C7328300 push $008332C7
***** TRY
|
008330CE 64FF30 push dword ptr fs:[eax]
008330D1 648920 mov fs:[eax], esp
008330D4 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008330D7 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008330DD E8DE4DC9FF call 004C7EC0
008330E2 84C0 test al, al
008330E4 0F85BA010000 jnz 008332A4
008330EA A0D8328300 mov al, byte ptr [$008332D8]
008330EF 50 push eax
008330F0 8D45EC lea eax, [ebp-$14]
008330F3 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008330F5 E86A5CBEFF call 00418D64
008330FA 8D4DEC lea ecx, [ebp-$14]
008330FD 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00833100 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
00833106 BAE4328300 mov edx, $008332E4
0083310B 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0083310D FF9344020000 call dword ptr [ebx+$0244]
00833113 84C0 test al, al
00833115 751D jnz 00833134
00833117 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00833119 B9EC328300 mov ecx, $008332EC
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0083311E BAF4328300 mov edx, $008332F4
*)
end;
procedure TfrmYFCR_SH.ToolButton4Click(Sender : TObject);
begin
(*
00833384 53 push ebx
00833385 8BD8 mov ebx, eax
00833387 8BCB mov ecx, ebx
00833389 B201 mov dl, $01
* Reference to class TfrmSXCKNewList
|
0083338B A128417D00 mov eax, dword ptr [$007D4128]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00833390 E83BEAC6FF call 004A1DD0
*)
end;
procedure TfrmYFCR_SH.v2OrderNOPropertiesButtonClick(Sender : TObject);
begin
(*
008333AC 55 push ebp
008333AD 8BEC mov ebp, esp
008333AF 51 push ecx
008333B0 B90F000000 mov ecx, $0000000F
008333B5 6A00 push $00
008333B7 6A00 push $00
008333B9 49 dec ecx
008333BA 75F9 jnz 008333B5
008333BC 51 push ecx
008333BD 874DFC xchg [ebp-$04], ecx
008333C0 53 push ebx
008333C1 56 push esi
008333C2 8BF0 mov esi, eax
008333C4 33C0 xor eax, eax
008333C6 55 push ebp
008333C7 6858378300 push $00833758
***** TRY
|
008333CC 64FF30 push dword ptr fs:[eax]
008333CF 648920 mov fs:[eax], esp
008333D2 33C0 xor eax, eax
008333D4 55 push ebp
008333D5 6804378300 push $00833704
***** TRY
|
008333DA 64FF30 push dword ptr fs:[eax]
008333DD 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH.NOChkClick(Sender : TObject);
begin
(*
008338A0 55 push ebp
008338A1 8BEC mov ebp, esp
008338A3 B908000000 mov ecx, $00000008
008338A8 6A00 push $00
008338AA 6A00 push $00
008338AC 49 dec ecx
008338AD 75F9 jnz 008338A8
008338AF 51 push ecx
008338B0 53 push ebx
008338B1 56 push esi
008338B2 57 push edi
008338B3 8945FC mov [ebp-$04], eax
008338B6 33C0 xor eax, eax
008338B8 55 push ebp
008338B9 68D93B8300 push $00833BD9
***** TRY
|
008338BE 64FF30 push dword ptr fs:[eax]
008338C1 648920 mov fs:[eax], esp
008338C4 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008338C7 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008338CD E8EE45C9FF call 004C7EC0
008338D2 84C0 test al, al
008338D4 0F85BF020000 jnz 00833B99
008338DA A0E83B8300 mov al, byte ptr [$00833BE8]
008338DF 50 push eax
008338E0 8D45EC lea eax, [ebp-$14]
008338E3 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008338E5 E87A54BEFF call 00418D64
008338EA 8D4DEC lea ecx, [ebp-$14]
008338ED 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
008338F0 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
008338F6 BAF43B8300 mov edx, $00833BF4
008338FB 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008338FD FF9344020000 call dword ptr [ebx+$0244]
00833903 84C0 test al, al
00833905 751D jnz 00833924
00833907 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00833909 B9FC3B8300 mov ecx, $00833BFC
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0083390E BA043C8300 mov edx, $00833C04
*)
end;
procedure TfrmYFCR_SH.N1Click(Sender : TObject);
begin
(*
00833D18 B201 mov dl, $01
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00833D1A 8B8068030000 mov eax, [eax+$0368]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00833D20 E87F47F8FF call 007B84A4
00833D25 C3 ret
*)
end;
procedure TfrmYFCR_SH.N2Click(Sender : TObject);
begin
(*
00833D28 33D2 xor edx, edx
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00833D2A 8B8068030000 mov eax, [eax+$0368]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00833D30 E86F47F8FF call 007B84A4
00833D35 C3 ret
*)
end;
procedure TfrmYFCR_SH.v2sselPropertiesChange(Sender : TObject);
begin
(*
00833D38 53 push ebx
00833D39 56 push esi
00833D3A 8BD8 mov ebx, eax
* Reference to control TfrmYFCR_SH.ToolBar1 : TToolBar
|
00833D3C 8B83F8020000 mov eax, [ebx+$02F8]
00833D42 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
00833D44 FF92C4000000 call dword ptr [edx+$00C4]
* Possible String Reference to: 'Qty'
|
00833D4A BAB83D8300 mov edx, $00833DB8
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00833D4F 8BB368030000 mov esi, [ebx+$0368]
00833D55 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00833D57 E8582EC9FF call 004C6BB4
00833D5C 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00833D5E FF524C call dword ptr [edx+$4C]
00833D61 D835BC3D8300 fdiv dword ptr [$00833DBC]
00833D67 83C4F8 add esp, -$08
00833D6A DD1C24 fstp qword ptr [esp]
00833D6D 9B wait
* Reference to control TfrmYFCR_SH.Label14 : TLabel
|
00833D6E 8B9304040000 mov edx, [ebx+$0404]
00833D74 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00833D76 E81530F8FF call 007B6D90
* Possible String Reference to: 'Money'
|
00833D7B BAC83D8300 mov edx, $00833DC8
* Reference to control TfrmYFCR_SH.CDS_HZ : TClientDataSet
|
00833D80 8BB368030000 mov esi, [ebx+$0368]
00833D86 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00833D88 E8272EC9FF call 004C6BB4
00833D8D 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00833D8F FF524C call dword ptr [edx+$4C]
00833D92 D835BC3D8300 fdiv dword ptr [$00833DBC]
00833D98 83C4F8 add esp, -$08
00833D9B DD1C24 fstp qword ptr [esp]
00833D9E 9B wait
* Reference to control TfrmYFCR_SH.Label16 : TLabel
|
00833D9F 8B9308040000 mov edx, [ebx+$0408]
00833DA5 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00833DA7 E8E42FF8FF call 007B6D90
00833DAC 5E pop esi
00833DAD 5B pop ebx
00833DAE C3 ret
*)
end;
procedure TfrmYFCR_SH.cxTabControl2Change(Sender : TObject);
begin
(*
|
00833DD0 E84FA3FFFF call 0082E124
00833DD5 C3 ret
*)
end;
procedure TfrmYFCR_SH._PROC_0082EBD9(Sender : TObject);
begin
(*
0082EBD9 8BEC mov ebp, esp
0082EBDB B929000000 mov ecx, $00000029
0082EBE0 6A00 push $00
0082EBE2 6A00 push $00
0082EBE4 49 dec ecx
0082EBE5 75F9 jnz 0082EBE0
0082EBE7 51 push ecx
0082EBE8 53 push ebx
0082EBE9 56 push esi
0082EBEA 57 push edi
0082EBEB 8945FC mov [ebp-$04], eax
0082EBEE 33C0 xor eax, eax
0082EBF0 55 push ebp
0082EBF1 685DF38200 push $0082F35D
***** TRY
|
0082EBF6 64FF30 push dword ptr fs:[eax]
0082EBF9 648920 mov fs:[eax], esp
0082EBFC 33C0 xor eax, eax
0082EBFE 55 push ebp
0082EBFF 6817F28200 push $0082F217
***** TRY
|
0082EC04 64FF30 push dword ptr fs:[eax]
0082EC07 648920 mov fs:[eax], esp
0082EC0A 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
0082EC0D 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
0082EC13 E814D2CAFF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
0082EC18 E87736CAFF call 004D2294
* Possible String Reference to: 'YF_Money_CR'
|
0082EC1D 6878F38200 push $0082F378
0082EC22 6A04 push $04
0082EC24 6A01 push $01
0082EC26 8D55F8 lea edx, [ebp-$08]
0082EC29 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
0082EC2C 8B800C030000 mov eax, [eax+$030C]
* Possible String Reference to: 'YF'
|
0082EC32 B98CF38200 mov ecx, $0082F38C
* Reference to : TfrmSelExportField._PROC_007B7708()
|
0082EC37 E8CC8AF8FF call 007B7708
0082EC3C 84C0 test al, al
0082EC3E 753A jnz 0082EC7A
0082EC40 33DB xor ebx, ebx
0082EC42 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFCR_SH.ADOQueryCmd : TADOQuery
|
0082EC45 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
0082EC4B E8DCD1CAFF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
0082EC50 E88B36CAFF call 004D22E0
0082EC55 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0082EC57 B990F38200 mov ecx, $0082F390
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
0082EC5C BA98F38200 mov edx, $0082F398
*)
end;
procedure TfrmYFCR_SH._PROC_0082F419(Sender : TObject);
begin
(*
0082F419 7064 jo 0082F47F
0082F41B 61 popa
0082F41C 7465 jz 0082F483
0082F41E 205946 and [ecx+$46], bl
0082F421 5F pop edi
0082F422 4D dec ebp
0082F423 6F outsd
0082F424 6E outsb
0082F425 65795F jns 0082F487
0082F428 43 inc ebx
0082F429 52 push edx
0082F42A 49 dec ecx
0082F42B 44 inc esp
0082F42C 207365 and [ebx+$65], dh
0082F42F 7420 jz 0082F451
0082F431 43 inc ebx
0082F432 52 push edx
0082F433 49 dec ecx
0082F434 44 inc esp
0082F435 3D43524944 cmp eax, $44495243
0082F43A 2B31 sub esi, dword ptr [ecx]
0082F43C 0000 add [eax], al
0082F43E 0000 add [eax], al
0082F440 FFFF DB $FF, $FF //
0082F442 FFFF DB $FF, $FF //
0082F444 1C00 sbb al, $00
0082F446 0000 add [eax], al
0082F448 7365 jnb 0082F4AF
0082F44A 6C insb
0082F44B 656374202A arpl gs:[eax+$2A], si
0082F450 206672 and [esi+$72], ah
0082F453 6F outsd
0082F454 6D insd
0082F455 205946 and [ecx+$46], bl
0082F458 5F pop edi
0082F459 4D dec ebp
0082F45A 6F outsd
0082F45B 6E outsb
0082F45C 65795F jns 0082F4BE
0082F45F 43 inc ebx
0082F460 52 push edx
0082F461 49 dec ecx
0082F462 44 inc esp
0082F463 2000 and [eax], al
0082F465 0000 add [eax], al
0082F467 00FF add bh, bh
0082F469 FFFF DB $FF, $FF //
0082F46B FF2400 jmp dword ptr [eax+eax]
0082F46E 0000 add [eax], al
0082F470 7365 jnb 0082F4D7
0082F472 6C insb
0082F473 656374202A arpl gs:[eax+$2A], si
0082F478 206672 and [esi+$72], ah
0082F47B 6F outsd
0082F47C 6D insd
0082F47D 205946 and [ecx+$46], bl
0082F480 5F pop edi
0082F481 4D dec ebp
0082F482 6F outsd
0082F483 6E outsb
0082F484 65795F jns 0082F4E6
0082F487 4B dec ebx
0082F488 43 inc ebx
0082F489 207768 and [edi+$68], dh
0082F48C 657265 jb 0082F4F4
0082F48F 2031 and [ecx], dh
0082F491 3C3E cmp al, $3E
0082F493 3100 xor [eax], eax
0082F495 0000 add [eax], al
0082F497 00FF add bh, bh
0082F499 FFFF DB $FF, $FF //
0082F49B FF09 dec dword ptr [ecx]
0082F49D 0000 add [eax], al
0082F49F 004661 add [esi+$61], al
0082F4A2 63746F72 arpl [edi+ebp*2+$72], si
0082F4A6 794E jns 0082F4F6
0082F4A8 6F outsd
0082F4A9 0000 add [eax], al
0082F4AB 00FF add bh, bh
0082F4AD FFFF DB $FF, $FF //
0082F4AF FF07 inc dword ptr [edi]
0082F4B1 0000 add [eax], al
0082F4B3 005A64 add [edx+$64], bl
0082F4B6 7953 jns 0082F50B
0082F4B8 7472 jz 0082F52C
0082F4BA 3100 xor [eax], eax
0082F4BC FFFF DB $FF, $FF //
0082F4BE FFFF DB $FF, $FF //
0082F4C0 06 push es
0082F4C1 0000 add [eax], al
0082F4C3 00D3 add bl, dl
0082F4C5 A6 cmpsb
0082F4C6 B8B6B8B600 mov eax, $00B6B8B6
0082F4CB 00FF add bh, bh
0082F4CD FFFF DB $FF, $FF //
0082F4CF FF2400 jmp dword ptr [eax+eax]
0082F4D2 0000 add [eax], al
0082F4D4 7365 jnb 0082F53B
0082F4D6 6C insb
0082F4D7 656374202A arpl gs:[eax+$2A], si
0082F4DC 206672 and [esi+$72], ah
0082F4DF 6F outsd
0082F4E0 6D insd
0082F4E1 205946 and [ecx+$46], bl
0082F4E4 5F pop edi
0082F4E5 4D dec ebp
0082F4E6 6F outsd
0082F4E7 6E outsb
0082F4E8 65795F jns 0082F54A
0082F4EB 43 inc ebx
0082F4EC 52 push edx
0082F4ED 207768 and [edi+$68], dh
0082F4F0 657265 jb 0082F558
0082F4F3 2031 and [ecx], dh
0082F4F5 3C3E cmp al, $3E
0082F4F7 3100 xor [eax], eax
0082F4F9 0000 add [eax], al
0082F4FB 00FF add bh, bh
0082F4FD FFFF DB $FF, $FF //
0082F4FF FF0400 inc dword ptr [eax+eax]
0082F502 0000 add [eax], al
0082F504 59 pop ecx
0082F505 46 inc esi
0082F506 49 dec ecx
0082F507 44 inc esp
0082F508 0000 add [eax], al
0082F50A 0000 add [eax], al
0082F50C FFFF DB $FF, $FF //
0082F50E FFFF DB $FF, $FF //
0082F510 06 push es
0082F511 0000 add [eax], al
0082F513 004669 add [esi+$69], al
0082F516 6C insb
0082F517 6C insb
0082F518 657200 jb 0082F51B
0082F51B 00FF add bh, bh
0082F51D FFFF DB $FF, $FF //
0082F51F FF06 inc dword ptr [esi]
0082F521 0000 add [eax], al
0082F523 004352 add [ebx+$52], al
0082F526 54 push esp
0082F527 7970 jns 0082F599
0082F529 650000 add gs:[eax], al
0082F52C FFFF DB $FF, $FF //
0082F52E FFFF DB $FF, $FF //
0082F530 0A00 or al, byte ptr [eax]
0082F532 0000 add [eax], al
0082F534 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
0082F53A B5C7 mov ch, $C7
0082F53C BCC70000FF mov esp, $FF0000C7
0082F541 FFFF DB $FF, $FF //
0082F543 FF06 inc dword ptr [esi]
0082F545 0000 add [eax], al
0082F547 004352 add [ebx+$52], al
0082F54A 46 inc esi
0082F54B 6C insb
0082F54C 61 popa
0082F54D 670000 add [bx+si], al
0082F550 FFFF DB $FF, $FF //
0082F552 FFFF DB $FF, $FF //
0082F554 07 pop es
0082F555 0000 add [eax], al
0082F557 005174 add [ecx+$74], dl
0082F55A 7946 jns 0082F5A2
0082F55C 6C insb
0082F55D 61 popa
0082F55E 6700FF add bh, bh
0082F561 FFFF DB $FF, $FF //
0082F563 FF06 inc dword ptr [esi]
0082F565 0000 add [eax], al
0082F567 004352 add [ebx+$52], al
0082F56A 54 push esp
0082F56B 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
0082F572 FFFF DB $FF, $FF //
0082F574 0A00 or al, byte ptr [eax]
0082F576 0000 add [eax], al
0082F578 7979 jns 0082F5F3
0082F57A 7979 jns 0082F5F5
0082F57C 2D4D4D2D64 sub eax, $642D4D4D
0082F581 640000 add fs:[eax], al
0082F584 FFFF DB $FF, $FF //
0082F586 FFFF DB $FF, $FF //
0082F588 06 push es
0082F589 0000 add [eax], al
0082F58B 007374 add [ebx+$74], dh
0082F58E 61 popa
0082F58F 7475 jz 0082F606
0082F591 7300 jnb 0082F593
0082F593 00FF add bh, bh
0082F595 FFFF DB $FF, $FF //
0082F597 FF0400 inc dword ptr [eax+eax]
0082F59A 0000 add [eax], al
0082F59C 59 pop ecx
0082F59D 46 inc esi
0082F59E 49 dec ecx
0082F59F 640000 add fs:[eax], al
0082F5A2 0000 add [eax], al
0082F5A4 D4 aam
0082F5A5 F6D0 not al
0082F5A7 D0CA ror dl, 1
0082F5A9 A7 cmpsd
0082F5AA B0DC mov al, $DC
0082F5AC 2100 and [eax], eax
0082F5AE 0000 add [eax], al
0082F5B0 55 push ebp
0082F5B1 8BEC mov ebp, esp
0082F5B3 B908000000 mov ecx, $00000008
0082F5B8 6A00 push $00
0082F5BA 6A00 push $00
0082F5BC 49 dec ecx
0082F5BD 75F9 jnz 0082F5B8
0082F5BF 51 push ecx
0082F5C0 53 push ebx
0082F5C1 56 push esi
0082F5C2 8BDA mov ebx, edx
0082F5C4 8BF0 mov esi, eax
0082F5C6 33C0 xor eax, eax
0082F5C8 55 push ebp
* Possible String Reference to: '<27>1S<31><53><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0082F5C9 68BEF78200 push $0082F7BE
***** TRY
|
0082F5CE 64FF30 push dword ptr fs:[eax]
0082F5D1 648920 mov fs:[eax], esp
0082F5D4 8D55FC lea edx, [ebp-$04]
0082F5D7 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;
|
0082F5D9 E8DE00D6FF call 0058F6BC
* Reference to control v1PRTPrice : N.A.
|
0082F5DE 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;
|
0082F5E4 E863CDE2FF 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;
|
0082F5E9 E87625E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
0082F5EE 8B4050 mov eax, [eax+$50]
0082F5F1 8D55F4 lea edx, [ebp-$0C]
0082F5F4 8B08 mov ecx, [eax]
0082F5F6 FF5110 call dword ptr [ecx+$10]
0082F5F9 8B45F4 mov eax, [ebp-$0C]
0082F5FC 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F5FF E8E8B2BDFF call 0040A8EC
* Reference to control Label14 : TLabel
|
0082F604 8B9E68030000 mov ebx, [esi+$0368]
0082F60A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082F60C E82F8EC9FF call 004C8440
0082F611 8D55E0 lea edx, [ebp-$20]
0082F614 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F617 E8D0B2BDFF call 0040A8EC
0082F61C 8B55E0 mov edx, [ebp-$20]
0082F61F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082F622 E8A197BEFF call 00418DC8
0082F627 8D45E4 lea eax, [ebp-$1C]
0082F62A 50 push eax
0082F62B 8B55F8 mov edx, [ebp-$08]
0082F62E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082F630 E87F75C9FF call 004C6BB4
0082F635 5A pop edx
0082F636 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
0082F638 FF91B4000000 call dword ptr [ecx+$00B4]
0082F63E 8BC3 mov eax, ebx
0082F640 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
0082F642 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
0082F648 8B9E0C030000 mov ebx, [esi+$030C]
0082F64E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082F650 E87F62C9FF call 004C58D4
0082F655 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;
|
0082F657 E850E9CAFF call 004DDFAC
0082F65C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0082F65E FF5244 call dword ptr [edx+$44]
0082F661 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;
|
0082F663 E844E9CAFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
0082F668 BAD4F78200 mov edx, $0082F7D4
0082F66D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082F66F FF5138 call dword ptr [ecx+$38]
0082F672 8D55DC lea edx, [ebp-$24]
0082F675 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F678 E86FB2BDFF call 0040A8EC
0082F67D 837DDC00 cmp dword ptr [ebp-$24], +$00
0082F681 7440 jz 0082F6C3
* Possible String Reference to: ' Set '
|
0082F683 68F0F78200 push $0082F7F0
0082F688 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0082F68B 6800F88200 push $0082F800
0082F690 8D55D4 lea edx, [ebp-$2C]
0082F693 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F696 E851B2BDFF call 0040A8EC
0082F69B FF75D4 push dword ptr [ebp-$2C]
0082F69E 680CF88200 push $0082F80C
0082F6A3 8D45D8 lea eax, [ebp-$28]
0082F6A6 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0082F6AB E80460BDFF call 004056B4
0082F6B0 8B45D8 mov eax, [ebp-$28]
0082F6B3 50 push eax
0082F6B4 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;
|
0082F6B6 E8F1E8CAFF call 004DDFAC
0082F6BB 5A pop edx
0082F6BC 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082F6BE FF5138 call dword ptr [ecx+$38]
0082F6C1 EB2B jmp 0082F6EE
0082F6C3 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;
|
0082F6C5 E8E2E8CAFF call 004DDFAC
0082F6CA 50 push eax
* Possible String Reference to: ' Set '
|
0082F6CB 68F0F78200 push $0082F7F0
0082F6D0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
0082F6D3 6818F88200 push $0082F818
0082F6D8 8D45D0 lea eax, [ebp-$30]
0082F6DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0082F6E0 E8CF5FBDFF call 004056B4
0082F6E5 8B55D0 mov edx, [ebp-$30]
0082F6E8 58 pop eax
0082F6E9 8B08 mov ecx, [eax]
0082F6EB FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0082F6EE 6828F88200 push $0082F828
0082F6F3 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFCR_SH._PROC_0082F7D5(Sender : TObject);
begin
(*
0082F7D5 50 push eax
0082F7D6 6461 popa
0082F7D8 7465 jz 0082F83F
0082F7DA 205943 and [ecx+$43], bl
0082F7DD 4C dec esp
0082F7DE 5F pop edi
0082F7DF 53 push ebx
0082F7E0 47 inc edi
0082F7E1 5F pop edi
0082F7E2 48 dec eax
0082F7E3 5A pop edx
0082F7E4 2000 and [eax], al
0082F7E6 0000 add [eax], al
0082F7E8 FFFF DB $FF, $FF //
0082F7EA FFFF DB $FF, $FF //
0082F7EC 0500000020 add eax, +$20000000
0082F7F1 53 push ebx
0082F7F2 657420 jz 0082F815
0082F7F5 0000 add [eax], al
0082F7F7 00FF add bh, bh
0082F7F9 FFFF DB $FF, $FF //
0082F7FB FF02 inc dword ptr [edx]
0082F7FD 0000 add [eax], al
0082F7FF 003D270000FF add [$FF000027], bh
0082F805 FFFF DB $FF, $FF //
0082F807 FF01 inc dword ptr [ecx]
0082F809 0000 add [eax], al
0082F80B 0027 add [edi], ah
0082F80D 0000 add [eax], al
0082F80F 00FF add bh, bh
0082F811 FFFF DB $FF, $FF //
0082F813 FF050000003D inc dword ptr [$3D000000]
0082F819 4E dec esi
0082F81A 55 push ebp
0082F81B 4C dec esp
0082F81C 4C dec esp
0082F81D 0000 add [eax], al
0082F81F 00FF add bh, bh
0082F821 FFFF DB $FF, $FF //
0082F823 FF09 dec dword ptr [ecx]
0082F825 0000 add [eax], al
0082F827 002C4564697465 add [$65746964+eax*2], ch
0082F82E 723D jb 0082F86D
0082F830 27 daa
0082F831 0000 add [eax], al
0082F833 00FF add bh, bh
0082F835 FFFF DB $FF, $FF //
0082F837 FF1400 call dword ptr [eax+eax]
0082F83A 0000 add [eax], al
0082F83C 2C45 sub al, $45
0082F83E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0082F847 657464 jz 0082F8AE
0082F84A 61 popa
0082F84B 7465 jz 0082F8B2
0082F84D 2829 sub [ecx], ch
0082F84F 2000 and [eax], al
0082F851 0000 add [eax], al
0082F853 00FF add bh, bh
0082F855 FFFF DB $FF, $FF //
0082F857 FF0E dec dword ptr [esi]
0082F859 0000 add [eax], al
0082F85B 0020 add [eax], ah
0082F85D 7768 jnbe 0082F8C7
0082F85F 657265 jb 0082F8C7
0082F862 205375 and [ebx+$75], dl
0082F865 624964 bound ecx, qword ptr [ecx+$64]
0082F868 3D270000FF cmp eax, $FF000027
0082F86D FFFF DB $FF, $FF //
0082F86F FF0500000053 inc dword ptr [$53000000]
0082F875 7562 jnz 0082F8D9
0082F877 49 dec ecx
0082F878 640000 add fs:[eax], al
0082F87B 00558B add [ebp-$75], dl
0082F87E EC in al, dx
0082F87F B91F000000 mov ecx, $0000001F
0082F884 6A00 push $00
0082F886 6A00 push $00
0082F888 49 dec ecx
0082F889 75F9 jnz 0082F884
0082F88B 53 push ebx
0082F88C 56 push esi
0082F88D 8BF2 mov esi, edx
0082F88F 8BD8 mov ebx, eax
0082F891 33C0 xor eax, eax
0082F893 55 push ebp
* Possible String Reference to: '<27>wK<77><4B><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0082F894 6878FF8200 push $0082FF78
***** TRY
|
0082F899 64FF30 push dword ptr fs:[eax]
0082F89C 648920 mov fs:[eax], esp
0082F89F 8D55FC lea edx, [ebp-$04]
0082F8A2 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;
|
0082F8A4 E813FED5FF call 0058F6BC
0082F8A9 8D55DC lea edx, [ebp-$24]
0082F8AC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F8AF E838B0BDFF call 0040A8EC
0082F8B4 837DDC00 cmp dword ptr [ebp-$24], +$00
0082F8B8 750D jnz 0082F8C7
0082F8BA 8D45FC lea eax, [ebp-$04]
0082F8BD BA90FF8200 mov edx, $0082FF90
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0082F8C2 E8F55ABDFF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
0082F8C7 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;
|
0082F8CD E87ACAE2FF 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;
|
0082F8D2 E88D22E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
0082F8D7 8B4050 mov eax, [eax+$50]
0082F8DA 8D55D8 lea edx, [ebp-$28]
0082F8DD 8B08 mov ecx, [eax]
0082F8DF FF5110 call dword ptr [ecx+$10]
0082F8E2 8B45D8 mov eax, [ebp-$28]
0082F8E5 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F8E8 E8FFAFBDFF call 0040A8EC
* Reference to control Label14 : TLabel
|
0082F8ED 8BB368030000 mov esi, [ebx+$0368]
0082F8F3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082F8F5 E8468BC9FF call 004C8440
0082F8FA 8D55C4 lea edx, [ebp-$3C]
0082F8FD 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082F900 E8E7AFBDFF call 0040A8EC
0082F905 8B55C4 mov edx, [ebp-$3C]
0082F908 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082F90B E8B894BEFF call 00418DC8
0082F910 8D45C8 lea eax, [ebp-$38]
0082F913 50 push eax
0082F914 8B55E0 mov edx, [ebp-$20]
0082F917 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082F919 E89672C9FF call 004C6BB4
0082F91E 5A pop edx
0082F91F 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
0082F921 FF91B4000000 call dword ptr [ecx+$00B4]
0082F927 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmYFCR_SH._PROC_0083005D(Sender : TObject);
begin
(*
0083005D 50 push eax
0083005E 6461 popa
00830060 7465 jz 008300C7
00830062 205946 and [ecx+$46], bl
00830065 5F pop edi
00830066 4D dec ebp
00830067 6F outsd
00830068 6E outsb
00830069 65795F jns 008300CB
0083006C 43 inc ebx
0083006D 52 push edx
0083006E 2000 and [eax], al
00830070 FFFF DB $FF, $FF //
00830072 FFFF DB $FF, $FF //
00830074 0500000020 add eax, +$20000000
00830079 53 push ebx
0083007A 657420 jz 0083009D
0083007D 0000 add [eax], al
0083007F 00FF add bh, bh
00830081 FFFF DB $FF, $FF //
00830083 FF01 inc dword ptr [ecx]
00830085 0000 add [eax], al
00830087 003D000000FF add [$FF000000], bh
0083008D FFFF DB $FF, $FF //
0083008F FF07 inc dword ptr [edi]
00830091 0000 add [eax], al
00830093 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
0083009A 3D00FFFFFF cmp eax, $FFFFFF00
0083009F FF09 dec dword ptr [ecx]
008300A1 0000 add [eax], al
008300A3 002C42 add [edx+eax*2], ch
008300A6 42 inc edx
008300A7 4D dec ebp
008300A8 6F outsd
008300A9 6E outsb
008300AA 65793D jns 008300EA
008300AD 0000 add [eax], al
008300AF 00FF add bh, bh
008300B1 FFFF DB $FF, $FF //
008300B3 FF09 dec dword ptr [ecx]
008300B5 0000 add [eax], al
008300B7 002C4564697465 add [$65746964+eax*2], ch
008300BE 723D jb 008300FD
008300C0 27 daa
008300C1 0000 add [eax], al
008300C3 00FF add bh, bh
008300C5 FFFF DB $FF, $FF //
008300C7 FF1400 call dword ptr [eax+eax]
008300CA 0000 add [eax], al
008300CC 2C45 sub al, $45
008300CE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008300D7 657464 jz 0083013E
008300DA 61 popa
008300DB 7465 jz 00830142
008300DD 2829 sub [ecx], ch
008300DF 2000 and [eax], al
008300E1 0000 add [eax], al
008300E3 00FF add bh, bh
008300E5 FFFF DB $FF, $FF //
008300E7 FF0D00000020 dec dword ptr [$20000000]
008300ED 7768 jnbe 00830157
008300EF 657265 jb 00830157
008300F2 205946 and [ecx+$46], bl
008300F5 49 dec ecx
008300F6 643D27000000 cmp eax, $00000027
008300FC FFFF DB $FF, $FF //
008300FE FFFF DB $FF, $FF //
00830100 0400 add al, +$00
00830102 0000 add [eax], al
00830104 59 pop ecx
00830105 46 inc esi
00830106 49 dec ecx
00830107 640000 add fs:[eax], al
0083010A 0000 add [eax], al
0083010C FFFF DB $FF, $FF //
0083010E FFFF DB $FF, $FF //
00830110 2B00 sub eax, dword ptr [eax]
00830112 0000 add [eax], al
00830114 55 push ebp
00830115 7064 jo 0083017B
00830117 61 popa
00830118 7465 jz 0083017F
0083011A 205946 and [ecx+$46], bl
0083011D 5F pop edi
0083011E 4D dec ebp
0083011F 6F outsd
00830120 6E outsb
00830121 65795F jns 00830183
00830124 4B dec ebx
00830125 43 inc ebx
00830126 205365 and [ebx+$65], dl
00830129 7420 jz 0083014B
0083012B 4B dec ebx
0083012C 43 inc ebx
0083012D 42 inc edx
0083012E 42 inc edx
0083012F 4D dec ebp
00830130 6F outsd
00830131 6E outsb
00830132 65793D jns 00830172
00830135 4B dec ebx
00830136 43 inc ebx
00830137 42 inc edx
00830138 42 inc edx
00830139 4D dec ebp
0083013A 6F outsd
0083013B 6E outsb
0083013C 65792D jns 0083016C
0083013F 00FF add bh, bh
00830141 FFFF DB $FF, $FF //
00830143 FF01 inc dword ptr [ecx]
00830145 0000 add [eax], al
00830147 002B add [ebx], ch
00830149 0000 add [eax], al
0083014B 00FF add bh, bh
0083014D FFFF DB $FF, $FF //
0083014F FF0D00000020 dec dword ptr [$20000000]
00830155 7768 jnbe 008301BF
00830157 657265 jb 008301BF
0083015A 204352 and [ebx+$52], al
0083015D 49 dec ecx
0083015E 44 inc esp
0083015F 3D27000000 cmp eax, $00000027
00830164 FFFF DB $FF, $FF //
00830166 FFFF DB $FF, $FF //
00830168 0400 add al, +$00
0083016A 0000 add [eax], al
0083016C 43 inc ebx
0083016D 52 push edx
0083016E 49 dec ecx
0083016F 44 inc esp
00830170 0000 add [eax], al
00830172 0000 add [eax], al
00830174 55 push ebp
00830175 8BEC mov ebp, esp
00830177 B908000000 mov ecx, $00000008
0083017C 6A00 push $00
0083017E 6A00 push $00
00830180 49 dec ecx
00830181 75F9 jnz 0083017C
00830183 51 push ecx
00830184 53 push ebx
00830185 56 push esi
00830186 8BDA mov ebx, edx
00830188 8BF0 mov esi, eax
0083018A 33C0 xor eax, eax
0083018C 55 push ebp
* Possible String Reference to: '<27>UG<55><47><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0083018D 689A038300 push $0083039A
***** TRY
|
00830192 64FF30 push dword ptr fs:[eax]
00830195 648920 mov fs:[eax], esp
00830198 8D55FC lea edx, [ebp-$04]
0083019B 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;
|
0083019D E81AF5D5FF call 0058F6BC
* Reference to control v1PRTPrice : N.A.
|
008301A2 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;
|
008301A8 E89FC1E2FF 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;
|
008301AD E8B219E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
008301B2 8B4050 mov eax, [eax+$50]
008301B5 8D55F4 lea edx, [ebp-$0C]
008301B8 8B08 mov ecx, [eax]
008301BA FF5110 call dword ptr [ecx+$10]
008301BD 8B45F4 mov eax, [ebp-$0C]
008301C0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008301C3 E824A7BDFF call 0040A8EC
* Reference to control Label14 : TLabel
|
008301C8 8B9E68030000 mov ebx, [esi+$0368]
008301CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008301D0 E86B82C9FF call 004C8440
008301D5 8D55E0 lea edx, [ebp-$20]
008301D8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008301DB E80CA7BDFF call 0040A8EC
008301E0 8B55E0 mov edx, [ebp-$20]
008301E3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008301E6 E8DD8BBEFF call 00418DC8
008301EB 8D45E4 lea eax, [ebp-$1C]
008301EE 50 push eax
008301EF 8B55F8 mov edx, [ebp-$08]
008301F2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008301F4 E8BB69C9FF call 004C6BB4
008301F9 5A pop edx
008301FA 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
008301FC FF91B4000000 call dword ptr [ecx+$00B4]
00830202 8BC3 mov eax, ebx
00830204 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
00830206 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
0083020C 8B9E0C030000 mov ebx, [esi+$030C]
00830212 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00830214 E8BB56C9FF call 004C58D4
00830219 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;
|
0083021B E88CDDCAFF call 004DDFAC
00830220 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00830222 FF5244 call dword ptr [edx+$44]
00830225 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;
|
00830227 E880DDCAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0083022C BAB0038300 mov edx, $008303B0
00830231 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00830233 FF5138 call dword ptr [ecx+$38]
00830236 8D55DC lea edx, [ebp-$24]
00830239 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083023C E8ABA6BDFF call 0040A8EC
00830241 837DDC00 cmp dword ptr [ebp-$24], +$00
00830245 7440 jz 00830287
* Possible String Reference to: ' Set '
|
00830247 68CC038300 push $008303CC
0083024C FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0083024F 68DC038300 push $008303DC
00830254 8D55D4 lea edx, [ebp-$2C]
00830257 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083025A E88DA6BDFF call 0040A8EC
0083025F FF75D4 push dword ptr [ebp-$2C]
00830262 68E8038300 push $008303E8
00830267 8D45D8 lea eax, [ebp-$28]
0083026A BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0083026F E84054BDFF call 004056B4
00830274 8B45D8 mov eax, [ebp-$28]
00830277 50 push eax
00830278 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;
|
0083027A E82DDDCAFF call 004DDFAC
0083027F 5A pop edx
00830280 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00830282 FF5138 call dword ptr [ecx+$38]
00830285 EB2B jmp 008302B2
00830287 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;
|
00830289 E81EDDCAFF call 004DDFAC
0083028E 50 push eax
* Possible String Reference to: ' Set '
|
0083028F 68CC038300 push $008303CC
00830294 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00830297 68F4038300 push $008303F4
0083029C 8D45D0 lea eax, [ebp-$30]
0083029F BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008302A4 E80B54BDFF call 004056B4
008302A9 8B55D0 mov edx, [ebp-$30]
008302AC 58 pop eax
008302AD 8B08 mov ecx, [eax]
008302AF FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008302B2 6804048300 push $00830404
008302B7 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFCR_SH._PROC_008303B1(Sender : TObject);
begin
(*
008303B1 50 push eax
008303B2 6461 popa
008303B4 7465 jz 0083041B
008303B6 205946 and [ecx+$46], bl
008303B9 5F pop edi
008303BA 4D dec ebp
008303BB 6F outsd
008303BC 6E outsb
008303BD 65795F jns 0083041F
008303C0 43 inc ebx
008303C1 52 push edx
008303C2 2000 and [eax], al
008303C4 FFFF DB $FF, $FF //
008303C6 FFFF DB $FF, $FF //
008303C8 0500000020 add eax, +$20000000
008303CD 53 push ebx
008303CE 657420 jz 008303F1
008303D1 0000 add [eax], al
008303D3 00FF add bh, bh
008303D5 FFFF DB $FF, $FF //
008303D7 FF02 inc dword ptr [edx]
008303D9 0000 add [eax], al
008303DB 003D270000FF add [$FF000027], bh
008303E1 FFFF DB $FF, $FF //
008303E3 FF01 inc dword ptr [ecx]
008303E5 0000 add [eax], al
008303E7 0027 add [edi], ah
008303E9 0000 add [eax], al
008303EB 00FF add bh, bh
008303ED FFFF DB $FF, $FF //
008303EF FF050000003D inc dword ptr [$3D000000]
008303F5 4E dec esi
008303F6 55 push ebp
008303F7 4C dec esp
008303F8 4C dec esp
008303F9 0000 add [eax], al
008303FB 00FF add bh, bh
008303FD FFFF DB $FF, $FF //
008303FF FF09 dec dword ptr [ecx]
00830401 0000 add [eax], al
00830403 002C4564697465 add [$65746964+eax*2], ch
0083040A 723D jb 00830449
0083040C 27 daa
0083040D 0000 add [eax], al
0083040F 00FF add bh, bh
00830411 FFFF DB $FF, $FF //
00830413 FF1400 call dword ptr [eax+eax]
00830416 0000 add [eax], al
00830418 2C45 sub al, $45
0083041A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00830423 657464 jz 0083048A
00830426 61 popa
00830427 7465 jz 0083048E
00830429 2829 sub [ecx], ch
0083042B 2000 and [eax], al
0083042D 0000 add [eax], al
0083042F 00FF add bh, bh
00830431 FFFF DB $FF, $FF //
00830433 FF0D00000020 dec dword ptr [$20000000]
00830439 7768 jnbe 008304A3
0083043B 657265 jb 008304A3
0083043E 205946 and [ecx+$46], bl
00830441 49 dec ecx
00830442 643D27000000 cmp eax, $00000027
00830448 FFFF DB $FF, $FF //
0083044A FFFF DB $FF, $FF //
0083044C 0400 add al, +$00
0083044E 0000 add [eax], al
00830450 59 pop ecx
00830451 46 inc esi
00830452 49 dec ecx
00830453 640000 add fs:[eax], al
00830456 0000 add [eax], al
00830458 55 push ebp
00830459 8BEC mov ebp, esp
0083045B B90C000000 mov ecx, $0000000C
00830460 6A00 push $00
00830462 6A00 push $00
00830464 49 dec ecx
00830465 75F9 jnz 00830460
00830467 51 push ecx
00830468 53 push ebx
00830469 8945FC mov [ebp-$04], eax
0083046C 33C0 xor eax, eax
0083046E 55 push ebp
0083046F 6880068300 push $00830680
***** TRY
|
00830474 64FF30 push dword ptr fs:[eax]
00830477 648920 mov fs:[eax], esp
0083047A 33C0 xor eax, eax
0083047C 55 push ebp
0083047D 6813068300 push $00830613
***** TRY
|
00830482 64FF30 push dword ptr fs:[eax]
00830485 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH._PROC_00830B81(Sender : TObject);
begin
(*
00830B81 50 push eax
00830B82 6461 popa
00830B84 7465 jz 00830BEB
00830B86 205946 and [ecx+$46], bl
00830B89 5F pop edi
00830B8A 4D dec ebp
00830B8B 6F outsd
00830B8C 6E outsb
00830B8D 65795F jns 00830BEF
00830B90 43 inc ebx
00830B91 52 push edx
00830B92 2000 and [eax], al
00830B94 FFFF DB $FF, $FF //
00830B96 FFFF DB $FF, $FF //
00830B98 0D00000020 or eax, $20000000
00830B9D 53 push ebx
00830B9E 657420 jz 00830BC1
00830BA1 59 pop ecx
00830BA2 46 inc esi
00830BA3 43 inc ebx
00830BA4 6F outsd
00830BA5 64653D27000000 cmp eax, $00000027
00830BAC FFFF DB $FF, $FF //
00830BAE FFFF DB $FF, $FF //
00830BB0 0100 add [eax], eax
00830BB2 0000 add [eax], al
00830BB4 27 daa
00830BB5 0000 add [eax], al
00830BB7 00FF add bh, bh
00830BB9 FFFF DB $FF, $FF //
00830BBB FF0A dec dword ptr [edx]
00830BBD 0000 add [eax], al
00830BBF 0020 add [eax], ah
00830BC1 2C59 sub al, $59
00830BC3 46 inc esi
00830BC4 4E dec esi
00830BC5 61 popa
00830BC6 6D insd
00830BC7 653D270000FF cmp eax, $FF000027
00830BCD FFFF DB $FF, $FF //
00830BCF FF09 dec dword ptr [ecx]
00830BD1 0000 add [eax], al
00830BD3 002C4564697465 add [$65746964+eax*2], ch
00830BDA 723D jb 00830C19
00830BDC 27 daa
00830BDD 0000 add [eax], al
00830BDF 00FF add bh, bh
00830BE1 FFFF DB $FF, $FF //
00830BE3 FF1400 call dword ptr [eax+eax]
00830BE6 0000 add [eax], al
00830BE8 2C45 sub al, $45
00830BEA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00830BF3 657464 jz 00830C5A
00830BF6 61 popa
00830BF7 7465 jz 00830C5E
00830BF9 2829 sub [ecx], ch
00830BFB 2000 and [eax], al
00830BFD 0000 add [eax], al
00830BFF 00FF add bh, bh
00830C01 FFFF DB $FF, $FF //
00830C03 FF0D00000020 dec dword ptr [$20000000]
00830C09 7768 jnbe 00830C73
00830C0B 657265 jb 00830C73
00830C0E 205946 and [ecx+$46], bl
00830C11 49 dec ecx
00830C12 643D27000000 cmp eax, $00000027
00830C18 FFFF DB $FF, $FF //
00830C1A FFFF DB $FF, $FF //
00830C1C 0400 add al, +$00
00830C1E 0000 add [eax], al
00830C20 59 pop ecx
00830C21 46 inc esi
00830C22 49 dec ecx
00830C23 640000 add fs:[eax], al
00830C26 0000 add [eax], al
00830C28 55 push ebp
00830C29 8BEC mov ebp, esp
00830C2B 51 push ecx
00830C2C B906000000 mov ecx, $00000006
00830C31 6A00 push $00
00830C33 6A00 push $00
00830C35 49 dec ecx
00830C36 75F9 jnz 00830C31
00830C38 51 push ecx
00830C39 874DFC xchg [ebp-$04], ecx
00830C3C 53 push ebx
00830C3D 56 push esi
00830C3E 8BF0 mov esi, eax
00830C40 33C0 xor eax, eax
00830C42 55 push ebp
* Possible String Reference to: '<27>n<<3C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00830C43 68810E8300 push $00830E81
***** TRY
|
00830C48 64FF30 push dword ptr fs:[eax]
00830C4B 648920 mov fs:[eax], esp
00830C4E 33C0 xor eax, eax
00830C50 55 push ebp
00830C51 68570E8300 push $00830E57
***** TRY
|
00830C56 64FF30 push dword ptr fs:[eax]
00830C59 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH._PROC_00830E9E(Sender : TObject);
begin
(*
00830E9E 6E outsb
00830E9F 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
00830EA7 FF08 dec dword ptr [eax]
00830EA9 0000 add [eax], al
*)
end;
procedure TfrmYFCR_SH._PROC_00830ED4(Sender : TObject);
begin
(*
00830ED4 6E outsb
00830ED5 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
00830EDD 0000 add [eax], al
*)
end;
procedure TfrmYFCR_SH._PROC_00830EE1(Sender : TObject);
begin
(*
00830EE1 50 push eax
00830EE2 6461 popa
00830EE4 7465 jz 00830F4B
00830EE6 205946 and [ecx+$46], bl
00830EE9 5F pop edi
00830EEA 4D dec ebp
00830EEB 6F outsd
00830EEC 6E outsb
00830EED 65795F jns 00830F4F
00830EF0 43 inc ebx
00830EF1 52 push edx
00830EF2 2000 and [eax], al
00830EF4 FFFF DB $FF, $FF //
00830EF6 FFFF DB $FF, $FF //
00830EF8 0E push cs
00830EF9 0000 add [eax], al
00830EFB 0020 add [eax], ah
00830EFD 53 push ebx
00830EFE 657420 jz 00830F21
00830F01 51 push ecx
00830F02 7479 jz 00830F7D
00830F04 55 push ebp
00830F05 6E outsb
00830F06 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
00830F0E FFFF DB $FF, $FF //
00830F10 07 pop es
00830F11 0000 add [eax], al
00830F13 005A64 add [edx+$64], bl
00830F16 794E jns 00830F66
00830F18 61 popa
00830F19 6D insd
00830F1A 6500FF add bh, bh
00830F1D FFFF DB $FF, $FF //
00830F1F FF01 inc dword ptr [ecx]
00830F21 0000 add [eax], al
00830F23 0027 add [edi], ah
00830F25 0000 add [eax], al
00830F27 00FF add bh, bh
00830F29 FFFF DB $FF, $FF //
00830F2B FF09 dec dword ptr [ecx]
00830F2D 0000 add [eax], al
00830F2F 002C4564697465 add [$65746964+eax*2], ch
00830F36 723D jb 00830F75
00830F38 27 daa
00830F39 0000 add [eax], al
00830F3B 00FF add bh, bh
00830F3D FFFF DB $FF, $FF //
00830F3F FF1400 call dword ptr [eax+eax]
00830F42 0000 add [eax], al
00830F44 2C45 sub al, $45
00830F46 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00830F4F 657464 jz 00830FB6
00830F52 61 popa
00830F53 7465 jz 00830FBA
00830F55 2829 sub [ecx], ch
00830F57 2000 and [eax], al
00830F59 0000 add [eax], al
00830F5B 00FF add bh, bh
00830F5D FFFF DB $FF, $FF //
00830F5F FF0D00000020 dec dword ptr [$20000000]
00830F65 7768 jnbe 00830FCF
00830F67 657265 jb 00830FCF
00830F6A 205946 and [ecx+$46], bl
00830F6D 49 dec ecx
00830F6E 643D27000000 cmp eax, $00000027
00830F74 FFFF DB $FF, $FF //
00830F76 FFFF DB $FF, $FF //
00830F78 0400 add al, +$00
00830F7A 0000 add [eax], al
00830F7C 59 pop ecx
00830F7D 46 inc esi
00830F7E 49 dec ecx
00830F7F 640000 add fs:[eax], al
00830F82 0000 add [eax], al
00830F84 55 push ebp
00830F85 8BEC mov ebp, esp
00830F87 51 push ecx
00830F88 B906000000 mov ecx, $00000006
00830F8D 6A00 push $00
00830F8F 6A00 push $00
00830F91 49 dec ecx
00830F92 75F9 jnz 00830F8D
00830F94 51 push ecx
00830F95 874DFC xchg [ebp-$04], ecx
00830F98 53 push ebx
00830F99 56 push esi
00830F9A 8BF0 mov esi, eax
00830F9C 33C0 xor eax, eax
00830F9E 55 push ebp
00830F9F 68DD118300 push $008311DD
***** TRY
|
00830FA4 64FF30 push dword ptr fs:[eax]
00830FA7 648920 mov fs:[eax], esp
00830FAA 33C0 xor eax, eax
00830FAC 55 push ebp
00830FAD 68B3118300 push $008311B3
***** TRY
|
00830FB2 64FF30 push dword ptr fs:[eax]
00830FB5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH._PROC_00831225(Sender : TObject);
begin
(*
00831225 50 push eax
00831226 6461 popa
00831228 7465 jz 0083128F
0083122A 205946 and [ecx+$46], bl
0083122D 5F pop edi
0083122E 4D dec ebp
0083122F 6F outsd
00831230 6E outsb
00831231 65795F jns 00831293
00831234 43 inc ebx
00831235 52 push edx
00831236 2000 and [eax], al
00831238 FFFF DB $FF, $FF //
0083123A FFFF DB $FF, $FF //
0083123C 0D00000020 or eax, $20000000
00831241 53 push ebx
00831242 657420 jz 00831265
00831245 42 inc edx
00831246 5A pop edx
00831247 54 push esp
00831248 7970 jns 008312BA
0083124A 653D27000000 cmp eax, $00000027
00831250 FFFF DB $FF, $FF //
00831252 FFFF DB $FF, $FF //
00831254 07 pop es
00831255 0000 add [eax], al
00831257 005A64 add [edx+$64], bl
0083125A 794E jns 008312AA
0083125C 61 popa
0083125D 6D insd
0083125E 6500FF add bh, bh
00831261 FFFF DB $FF, $FF //
00831263 FF01 inc dword ptr [ecx]
00831265 0000 add [eax], al
00831267 0027 add [edi], ah
00831269 0000 add [eax], al
0083126B 00FF add bh, bh
0083126D FFFF DB $FF, $FF //
0083126F FF09 dec dword ptr [ecx]
00831271 0000 add [eax], al
00831273 002C4564697465 add [$65746964+eax*2], ch
0083127A 723D jb 008312B9
0083127C 27 daa
0083127D 0000 add [eax], al
0083127F 00FF add bh, bh
00831281 FFFF DB $FF, $FF //
00831283 FF1400 call dword ptr [eax+eax]
00831286 0000 add [eax], al
00831288 2C45 sub al, $45
0083128A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00831293 657464 jz 008312FA
00831296 61 popa
00831297 7465 jz 008312FE
00831299 2829 sub [ecx], ch
0083129B 2000 and [eax], al
0083129D 0000 add [eax], al
0083129F 00FF add bh, bh
008312A1 FFFF DB $FF, $FF //
008312A3 FF0D00000020 dec dword ptr [$20000000]
008312A9 7768 jnbe 00831313
008312AB 657265 jb 00831313
008312AE 205946 and [ecx+$46], bl
008312B1 49 dec ecx
008312B2 643D27000000 cmp eax, $00000027
008312B8 FFFF DB $FF, $FF //
008312BA FFFF DB $FF, $FF //
008312BC 0400 add al, +$00
008312BE 0000 add [eax], al
008312C0 59 pop ecx
008312C1 46 inc esi
008312C2 49 dec ecx
008312C3 640000 add fs:[eax], al
008312C6 0000 add [eax], al
008312C8 53 push ebx
008312C9 8BD8 mov ebx, eax
* Reference to control ToolBar2 : N.A.
|
008312CB 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008312D1 E8EA6BC9FF call 004C7EC0
008312D6 84C0 test al, al
008312D8 7516 jnz 008312F0
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
008312DA B9FC128300 mov ecx, $008312FC
* Reference to control ToolBar2 : N.A.
|
008312DF 8B931C030000 mov edx, [ebx+$031C]
* Reference to control v1PRTPrice : N.A.
|
008312E5 8B8338030000 mov eax, [ebx+$0338]
|
008312EB E8406FF8FF call 007B8230
008312F0 5B pop ebx
008312F1 C3 ret
008312F2 0000 add [eax], al
008312F4 FFFF DB $FF, $FF //
008312F6 FFFF DB $FF, $FF //
008312F8 0A00 or al, byte ptr [eax]
008312FA 0000 add [eax], al
008312FC D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
00831302 C1D0B1 rcl eax, $B1
00831305 ED in eax, dx
00831306 0000 add [eax], al
00831308 55 push ebp
00831309 8BEC mov ebp, esp
0083130B B908000000 mov ecx, $00000008
00831310 6A00 push $00
00831312 6A00 push $00
00831314 49 dec ecx
00831315 75F9 jnz 00831310
00831317 53 push ebx
00831318 56 push esi
00831319 8BDA mov ebx, edx
0083131B 8BF0 mov esi, eax
0083131D 33C0 xor eax, eax
0083131F 55 push ebp
* Possible String Reference to: '<27><>5<EFBFBD><35><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00831320 68F0148300 push $008314F0
***** TRY
|
00831325 64FF30 push dword ptr fs:[eax]
00831328 648920 mov fs:[eax], esp
0083132B 8D55FC lea edx, [ebp-$04]
0083132E 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;
|
00831330 E887E3D5FF call 0058F6BC
00831335 8D55F4 lea edx, [ebp-$0C]
00831338 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083133B E8AC95BDFF call 0040A8EC
00831340 837DF400 cmp dword ptr [ebp-$0C], +$00
00831344 750D jnz 00831353
00831346 8D45FC lea eax, [ebp-$04]
00831349 BA08158300 mov edx, $00831508
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0083134E E86940BDFF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
00831353 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;
|
00831359 E8EEAFE2FF 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;
|
0083135E E80108E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00831363 8B4050 mov eax, [eax+$50]
00831366 8D55F0 lea edx, [ebp-$10]
00831369 8B08 mov ecx, [eax]
0083136B FF5110 call dword ptr [ecx+$10]
0083136E 8B45F0 mov eax, [ebp-$10]
00831371 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831374 E87395BDFF call 0040A8EC
* Reference to control Label14 : TLabel
|
00831379 8B9E68030000 mov ebx, [esi+$0368]
0083137F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00831381 E8BA70C9FF call 004C8440
00831386 8D55DC lea edx, [ebp-$24]
00831389 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083138C E85B95BDFF call 0040A8EC
00831391 8B55DC mov edx, [ebp-$24]
00831394 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00831397 E82C7ABEFF call 00418DC8
0083139C 8D45E0 lea eax, [ebp-$20]
0083139F 50 push eax
008313A0 8B55F8 mov edx, [ebp-$08]
008313A3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008313A5 E80A58C9FF call 004C6BB4
008313AA 5A pop edx
008313AB 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
008313AD FF91B4000000 call dword ptr [ecx+$00B4]
008313B3 8BC3 mov eax, ebx
008313B5 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
008313B7 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
008313BD 8B9E0C030000 mov ebx, [esi+$030C]
008313C3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008313C5 E80A45C9FF call 004C58D4
008313CA 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;
|
008313CC E8DBCBCAFF call 004DDFAC
008313D1 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008313D3 FF5244 call dword ptr [edx+$44]
008313D6 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;
|
008313D8 E8CFCBCAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008313DD BA14158300 mov edx, $00831514
008313E2 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008313E4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008313E7 6830158300 push $00831530
008313EC FF75F8 push dword ptr [ebp-$08]
008313EF 6840158300 push $00831540
008313F4 8D55D4 lea edx, [ebp-$2C]
008313F7 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008313FA E8ED94BDFF call 0040A8EC
008313FF FF75D4 push dword ptr [ebp-$2C]
00831402 8D45D8 lea eax, [ebp-$28]
00831405 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
0083140A E8A542BDFF call 004056B4
0083140F 8B45D8 mov eax, [ebp-$28]
00831412 50 push eax
00831413 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;
|
00831415 E892CBCAFF call 004DDFAC
0083141A 5A pop edx
0083141B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0083141D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00831420 684C158300 push $0083154C
00831425 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFCR_SH._PROC_00831515(Sender : TObject);
begin
(*
00831515 50 push eax
00831516 6461 popa
00831518 7465 jz 0083157F
0083151A 205946 and [ecx+$46], bl
0083151D 5F pop edi
0083151E 4D dec ebp
0083151F 6F outsd
00831520 6E outsb
00831521 65795F jns 00831583
00831524 43 inc ebx
00831525 52 push edx
00831526 2000 and [eax], al
00831528 FFFF DB $FF, $FF //
0083152A FFFF DB $FF, $FF //
0083152C 0500000020 add eax, +$20000000
00831531 53 push ebx
00831532 657420 jz 00831555
00831535 0000 add [eax], al
00831537 00FF add bh, bh
00831539 FFFF DB $FF, $FF //
0083153B FF01 inc dword ptr [ecx]
0083153D 0000 add [eax], al
0083153F 003D000000FF add [$FF000000], bh
00831545 FFFF DB $FF, $FF //
00831547 FF09 dec dword ptr [ecx]
00831549 0000 add [eax], al
0083154B 002C4564697465 add [$65746964+eax*2], ch
00831552 723D jb 00831591
00831554 27 daa
00831555 0000 add [eax], al
00831557 00FF add bh, bh
00831559 FFFF DB $FF, $FF //
0083155B FF01 inc dword ptr [ecx]
0083155D 0000 add [eax], al
0083155F 0027 add [edi], ah
00831561 0000 add [eax], al
00831563 00FF add bh, bh
00831565 FFFF DB $FF, $FF //
00831567 FF1400 call dword ptr [eax+eax]
0083156A 0000 add [eax], al
0083156C 2C45 sub al, $45
0083156E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00831577 657464 jz 008315DE
0083157A 61 popa
0083157B 7465 jz 008315E2
0083157D 2829 sub [ecx], ch
0083157F 2000 and [eax], al
00831581 0000 add [eax], al
00831583 00FF add bh, bh
00831585 FFFF DB $FF, $FF //
00831587 FF0D00000020 dec dword ptr [$20000000]
0083158D 7768 jnbe 008315F7
0083158F 657265 jb 008315F7
00831592 205946 and [ecx+$46], bl
00831595 49 dec ecx
00831596 643D27000000 cmp eax, $00000027
0083159C FFFF DB $FF, $FF //
0083159E FFFF DB $FF, $FF //
008315A0 0400 add al, +$00
008315A2 0000 add [eax], al
008315A4 59 pop ecx
008315A5 46 inc esi
008315A6 49 dec ecx
008315A7 640000 add fs:[eax], al
008315AA 0000 add [eax], al
008315AC 55 push ebp
008315AD 8BEC mov ebp, esp
008315AF B908000000 mov ecx, $00000008
008315B4 6A00 push $00
008315B6 6A00 push $00
008315B8 49 dec ecx
008315B9 75F9 jnz 008315B4
008315BB 53 push ebx
008315BC 56 push esi
008315BD 8BDA mov ebx, edx
008315BF 8BF0 mov esi, eax
008315C1 33C0 xor eax, eax
008315C3 55 push ebp
* Possible String Reference to: '<27>[3<><33><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008315C4 6894178300 push $00831794
***** TRY
|
008315C9 64FF30 push dword ptr fs:[eax]
008315CC 648920 mov fs:[eax], esp
008315CF 8D55FC lea edx, [ebp-$04]
008315D2 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;
|
008315D4 E8E3E0D5FF call 0058F6BC
008315D9 8D55F4 lea edx, [ebp-$0C]
008315DC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008315DF E80893BDFF call 0040A8EC
008315E4 837DF400 cmp dword ptr [ebp-$0C], +$00
008315E8 750D jnz 008315F7
008315EA 8D45FC lea eax, [ebp-$04]
008315ED BAAC178300 mov edx, $008317AC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008315F2 E8C53DBDFF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
008315F7 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;
|
008315FD E84AADE2FF 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;
|
00831602 E85D05E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00831607 8B4050 mov eax, [eax+$50]
0083160A 8D55F0 lea edx, [ebp-$10]
0083160D 8B08 mov ecx, [eax]
0083160F FF5110 call dword ptr [ecx+$10]
00831612 8B45F0 mov eax, [ebp-$10]
00831615 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831618 E8CF92BDFF call 0040A8EC
* Reference to control Label14 : TLabel
|
0083161D 8B9E68030000 mov ebx, [esi+$0368]
00831623 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00831625 E8166EC9FF call 004C8440
0083162A 8D55DC lea edx, [ebp-$24]
0083162D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831630 E8B792BDFF call 0040A8EC
00831635 8B55DC mov edx, [ebp-$24]
00831638 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0083163B E88877BEFF call 00418DC8
00831640 8D45E0 lea eax, [ebp-$20]
00831643 50 push eax
00831644 8B55F8 mov edx, [ebp-$08]
00831647 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831649 E86655C9FF call 004C6BB4
0083164E 5A pop edx
0083164F 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00831651 FF91B4000000 call dword ptr [ecx+$00B4]
00831657 8BC3 mov eax, ebx
00831659 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
0083165B FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00831661 8B9E0C030000 mov ebx, [esi+$030C]
00831667 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00831669 E86642C9FF call 004C58D4
0083166E 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;
|
00831670 E837C9CAFF call 004DDFAC
00831675 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00831677 FF5244 call dword ptr [edx+$44]
0083167A 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;
|
0083167C E82BC9CAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00831681 BAB8178300 mov edx, $008317B8
00831686 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00831688 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
0083168B 68D4178300 push $008317D4
00831690 FF75F8 push dword ptr [ebp-$08]
00831693 68E4178300 push $008317E4
00831698 8D55D4 lea edx, [ebp-$2C]
0083169B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083169E E84992BDFF call 0040A8EC
008316A3 FF75D4 push dword ptr [ebp-$2C]
008316A6 8D45D8 lea eax, [ebp-$28]
008316A9 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008316AE E80140BDFF call 004056B4
008316B3 8B45D8 mov eax, [ebp-$28]
008316B6 50 push eax
008316B7 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;
|
008316B9 E8EEC8CAFF call 004DDFAC
008316BE 5A pop edx
008316BF 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008316C1 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008316C4 68F0178300 push $008317F0
008316C9 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFCR_SH._PROC_008317B9(Sender : TObject);
begin
(*
008317B9 50 push eax
008317BA 6461 popa
008317BC 7465 jz 00831823
008317BE 205946 and [ecx+$46], bl
008317C1 5F pop edi
008317C2 4D dec ebp
008317C3 6F outsd
008317C4 6E outsb
008317C5 65795F jns 00831827
008317C8 43 inc ebx
008317C9 52 push edx
008317CA 2000 and [eax], al
008317CC FFFF DB $FF, $FF //
008317CE FFFF DB $FF, $FF //
008317D0 0500000020 add eax, +$20000000
008317D5 53 push ebx
008317D6 657420 jz 008317F9
008317D9 0000 add [eax], al
008317DB 00FF add bh, bh
008317DD FFFF DB $FF, $FF //
008317DF FF01 inc dword ptr [ecx]
008317E1 0000 add [eax], al
008317E3 003D000000FF add [$FF000000], bh
008317E9 FFFF DB $FF, $FF //
008317EB FF09 dec dword ptr [ecx]
008317ED 0000 add [eax], al
008317EF 002C4564697465 add [$65746964+eax*2], ch
008317F6 723D jb 00831835
008317F8 27 daa
008317F9 0000 add [eax], al
008317FB 00FF add bh, bh
008317FD FFFF DB $FF, $FF //
008317FF FF01 inc dword ptr [ecx]
00831801 0000 add [eax], al
00831803 0027 add [edi], ah
00831805 0000 add [eax], al
00831807 00FF add bh, bh
00831809 FFFF DB $FF, $FF //
0083180B FF1400 call dword ptr [eax+eax]
0083180E 0000 add [eax], al
00831810 2C45 sub al, $45
00831812 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0083181B 657464 jz 00831882
0083181E 61 popa
0083181F 7465 jz 00831886
00831821 2829 sub [ecx], ch
00831823 2000 and [eax], al
00831825 0000 add [eax], al
00831827 00FF add bh, bh
00831829 FFFF DB $FF, $FF //
0083182B FF0D00000020 dec dword ptr [$20000000]
00831831 7768 jnbe 0083189B
00831833 657265 jb 0083189B
00831836 205946 and [ecx+$46], bl
00831839 49 dec ecx
0083183A 643D27000000 cmp eax, $00000027
00831840 FFFF DB $FF, $FF //
00831842 FFFF DB $FF, $FF //
00831844 0400 add al, +$00
00831846 0000 add [eax], al
00831848 59 pop ecx
00831849 46 inc esi
0083184A 49 dec ecx
0083184B 640000 add fs:[eax], al
0083184E 0000 add [eax], al
00831850 55 push ebp
00831851 8BEC mov ebp, esp
00831853 B907000000 mov ecx, $00000007
00831858 6A00 push $00
0083185A 6A00 push $00
0083185C 49 dec ecx
0083185D 75F9 jnz 00831858
0083185F 51 push ecx
00831860 53 push ebx
00831861 56 push esi
00831862 8BDA mov ebx, edx
00831864 8BF0 mov esi, eax
00831866 33C0 xor eax, eax
00831868 55 push ebp
* Possible String Reference to: '<27><>0<EFBFBD><30><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00831869 68201A8300 push $00831A20
***** TRY
|
0083186E 64FF30 push dword ptr fs:[eax]
00831871 648920 mov fs:[eax], esp
00831874 8D55FC lea edx, [ebp-$04]
00831877 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;
|
00831879 E83EDED5FF call 0058F6BC
* Reference to control v1PRTPrice : N.A.
|
0083187E 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;
|
00831884 E8C3AAE2FF 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;
|
00831889 E8D602E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
0083188E 8B4050 mov eax, [eax+$50]
00831891 8D55F4 lea edx, [ebp-$0C]
00831894 8B08 mov ecx, [eax]
00831896 FF5110 call dword ptr [ecx+$10]
00831899 8B45F4 mov eax, [ebp-$0C]
0083189C 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0083189F E84890BDFF call 0040A8EC
* Reference to control Label14 : TLabel
|
008318A4 8B9E68030000 mov ebx, [esi+$0368]
008318AA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008318AC E88F6BC9FF call 004C8440
008318B1 8D55E0 lea edx, [ebp-$20]
008318B4 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008318B7 E83090BDFF call 0040A8EC
008318BC 8B55E0 mov edx, [ebp-$20]
008318BF 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008318C2 E80175BEFF call 00418DC8
008318C7 8D45E4 lea eax, [ebp-$1C]
008318CA 50 push eax
008318CB 8B55F8 mov edx, [ebp-$08]
008318CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008318D0 E8DF52C9FF call 004C6BB4
008318D5 5A pop edx
008318D6 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
008318D8 FF91B4000000 call dword ptr [ecx+$00B4]
008318DE 8BC3 mov eax, ebx
008318E0 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
008318E2 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
008318E8 8B9E0C030000 mov ebx, [esi+$030C]
008318EE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008318F0 E8DF3FC9FF call 004C58D4
008318F5 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;
|
008318F7 E8B0C6CAFF call 004DDFAC
008318FC 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008318FE FF5244 call dword ptr [edx+$44]
00831901 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;
|
00831903 E8A4C6CAFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00831908 BA381A8300 mov edx, $00831A38
0083190D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0083190F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00831912 68541A8300 push $00831A54
00831917 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0083191A 68641A8300 push $00831A64
0083191F 8D55D8 lea edx, [ebp-$28]
00831922 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831925 E8C28FBDFF call 0040A8EC
0083192A FF75D8 push dword ptr [ebp-$28]
0083192D 68701A8300 push $00831A70
00831932 8D45DC lea eax, [ebp-$24]
00831935 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0083193A E8753DBDFF call 004056B4
0083193F 8B45DC mov eax, [ebp-$24]
00831942 50 push eax
00831943 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;
|
00831945 E862C6CAFF call 004DDFAC
0083194A 5A pop edx
0083194B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0083194D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00831950 687C1A8300 push $00831A7C
00831955 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYFCR_SH._PROC_00831A39(Sender : TObject);
begin
(*
00831A39 50 push eax
00831A3A 6461 popa
00831A3C 7465 jz 00831AA3
00831A3E 205946 and [ecx+$46], bl
00831A41 5F pop edi
00831A42 4D dec ebp
00831A43 6F outsd
00831A44 6E outsb
00831A45 65795F jns 00831AA7
00831A48 43 inc ebx
00831A49 52 push edx
00831A4A 2000 and [eax], al
00831A4C FFFF DB $FF, $FF //
00831A4E FFFF DB $FF, $FF //
00831A50 0500000020 add eax, +$20000000
00831A55 53 push ebx
00831A56 657420 jz 00831A79
00831A59 0000 add [eax], al
00831A5B 00FF add bh, bh
00831A5D FFFF DB $FF, $FF //
00831A5F FF02 inc dword ptr [edx]
00831A61 0000 add [eax], al
00831A63 003D270000FF add [$FF000027], bh
00831A69 FFFF DB $FF, $FF //
00831A6B FF01 inc dword ptr [ecx]
00831A6D 0000 add [eax], al
00831A6F 0027 add [edi], ah
00831A71 0000 add [eax], al
00831A73 00FF add bh, bh
00831A75 FFFF DB $FF, $FF //
00831A77 FF09 dec dword ptr [ecx]
00831A79 0000 add [eax], al
00831A7B 002C4564697465 add [$65746964+eax*2], ch
00831A82 723D jb 00831AC1
00831A84 27 daa
00831A85 0000 add [eax], al
00831A87 00FF add bh, bh
00831A89 FFFF DB $FF, $FF //
00831A8B FF1400 call dword ptr [eax+eax]
00831A8E 0000 add [eax], al
00831A90 2C45 sub al, $45
00831A92 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00831A9B 657464 jz 00831B02
00831A9E 61 popa
00831A9F 7465 jz 00831B06
00831AA1 2829 sub [ecx], ch
00831AA3 2000 and [eax], al
00831AA5 0000 add [eax], al
00831AA7 00FF add bh, bh
00831AA9 FFFF DB $FF, $FF //
00831AAB FF0D00000020 dec dword ptr [$20000000]
00831AB1 7768 jnbe 00831B1B
00831AB3 657265 jb 00831B1B
00831AB6 205946 and [ecx+$46], bl
00831AB9 49 dec ecx
00831ABA 643D27000000 cmp eax, $00000027
00831AC0 FFFF DB $FF, $FF //
00831AC2 FFFF DB $FF, $FF //
00831AC4 0400 add al, +$00
00831AC6 0000 add [eax], al
00831AC8 59 pop ecx
00831AC9 46 inc esi
00831ACA 49 dec ecx
00831ACB 640000 add fs:[eax], al
00831ACE 0000 add [eax], al
00831AD0 55 push ebp
00831AD1 8BEC mov ebp, esp
00831AD3 51 push ecx
00831AD4 B906000000 mov ecx, $00000006
00831AD9 6A00 push $00
00831ADB 6A00 push $00
00831ADD 49 dec ecx
00831ADE 75F9 jnz 00831AD9
00831AE0 51 push ecx
00831AE1 874DFC xchg [ebp-$04], ecx
00831AE4 53 push ebx
00831AE5 56 push esi
00831AE6 8BF0 mov esi, eax
00831AE8 33C0 xor eax, eax
00831AEA 55 push ebp
00831AEB 68271D8300 push $00831D27
***** TRY
|
00831AF0 64FF30 push dword ptr fs:[eax]
00831AF3 648920 mov fs:[eax], esp
00831AF6 33C0 xor eax, eax
00831AF8 55 push ebp
00831AF9 68FD1C8300 push $00831CFD
***** TRY
|
00831AFE 64FF30 push dword ptr fs:[eax]
00831B01 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFCR_SH._PROC_00831D71(Sender : TObject);
begin
(*
00831D71 50 push eax
00831D72 6461 popa
00831D74 7465 jz 00831DDB
00831D76 205946 and [ecx+$46], bl
00831D79 5F pop edi
00831D7A 4D dec ebp
00831D7B 6F outsd
00831D7C 6E outsb
00831D7D 65795F jns 00831DDF
00831D80 43 inc ebx
00831D81 52 push edx
00831D82 2000 and [eax], al
00831D84 FFFF DB $FF, $FF //
00831D86 FFFF DB $FF, $FF //
00831D88 0E push cs
00831D89 0000 add [eax], al
00831D8B 0020 add [eax], ah
00831D8D 53 push ebx
00831D8E 657420 jz 00831DB1
00831D91 50 push eax
00831D92 61 popa
00831D93 794D jns 00831DE2
00831D95 656E outsb
00831D97 743D jz 00831DD6
00831D99 27 daa
00831D9A 0000 add [eax], al
00831D9C FFFF DB $FF, $FF //
00831D9E FFFF DB $FF, $FF //
00831DA0 0100 add [eax], eax
00831DA2 0000 add [eax], al
00831DA4 27 daa
00831DA5 0000 add [eax], al
00831DA7 00FF add bh, bh
00831DA9 FFFF DB $FF, $FF //
00831DAB FF09 dec dword ptr [ecx]
00831DAD 0000 add [eax], al
00831DAF 002C4564697465 add [$65746964+eax*2], ch
00831DB6 723D jb 00831DF5
00831DB8 27 daa
00831DB9 0000 add [eax], al
00831DBB 00FF add bh, bh
00831DBD FFFF DB $FF, $FF //
00831DBF FF1400 call dword ptr [eax+eax]
00831DC2 0000 add [eax], al
00831DC4 2C45 sub al, $45
00831DC6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00831DCF 657464 jz 00831E36
00831DD2 61 popa
00831DD3 7465 jz 00831E3A
00831DD5 2829 sub [ecx], ch
00831DD7 2000 and [eax], al
00831DD9 0000 add [eax], al
00831DDB 00FF add bh, bh
00831DDD FFFF DB $FF, $FF //
00831DDF FF0D00000020 dec dword ptr [$20000000]
00831DE5 7768 jnbe 00831E4F
00831DE7 657265 jb 00831E4F
00831DEA 205946 and [ecx+$46], bl
00831DED 49 dec ecx
00831DEE 643D27000000 cmp eax, $00000027
00831DF4 FFFF DB $FF, $FF //
00831DF6 FFFF DB $FF, $FF //
00831DF8 0400 add al, +$00
00831DFA 0000 add [eax], al
00831DFC 59 pop ecx
00831DFD 46 inc esi
00831DFE 49 dec ecx
00831DFF 640000 add fs:[eax], al
00831E02 0000 add [eax], al
00831E04 55 push ebp
00831E05 8BEC mov ebp, esp
00831E07 B910000000 mov ecx, $00000010
00831E0C 6A00 push $00
00831E0E 6A00 push $00
00831E10 49 dec ecx
00831E11 75F9 jnz 00831E0C
00831E13 51 push ecx
00831E14 53 push ebx
00831E15 56 push esi
00831E16 8BDA mov ebx, edx
00831E18 8BF0 mov esi, eax
00831E1A 33C0 xor eax, eax
00831E1C 55 push ebp
00831E1D 68AB208300 push $008320AB
***** TRY
|
00831E22 64FF30 push dword ptr fs:[eax]
00831E25 648920 mov fs:[eax], esp
00831E28 8D55FC lea edx, [ebp-$04]
00831E2B 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;
|
00831E2D E88AD8D5FF call 0058F6BC
00831E32 8D55F0 lea edx, [ebp-$10]
00831E35 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831E38 E8AF8ABDFF call 0040A8EC
00831E3D 837DF000 cmp dword ptr [ebp-$10], +$00
00831E41 750D jnz 00831E50
00831E43 8D45FC lea eax, [ebp-$04]
00831E46 BAC0208300 mov edx, $008320C0
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00831E4B E86C35BDFF call 004053BC
* Reference to control v1PRTPrice : N.A.
|
00831E50 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;
|
00831E56 E8F1A4E2FF 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;
|
00831E5B E804FDE1FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00831E60 8B4050 mov eax, [eax+$50]
00831E63 8D55EC lea edx, [ebp-$14]
00831E66 8B08 mov ecx, [eax]
00831E68 FF5110 call dword ptr [ecx+$10]
00831E6B 8B45EC mov eax, [ebp-$14]
00831E6E 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831E71 E8768ABDFF call 0040A8EC
00831E76 8D45F4 lea eax, [ebp-$0C]
00831E79 50 push eax
* Possible String Reference to: 'T_Price'
|
00831E7A BACC208300 mov edx, $008320CC
* Reference to control Label14 : TLabel
|
00831E7F 8B8668030000 mov eax, [esi+$0368]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831E85 E82A4DC9FF call 004C6BB4
00831E8A 8B10 mov edx, [eax]
* Reference to method TLabel.GetFloating()
|
00831E8C FF5254 call dword ptr [edx+$54]
00831E8F DD5DDC fstp qword ptr [ebp-$24]
00831E92 9B wait
00831E93 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00831E96 E891B8BDFF call 0040D72C
00831E9B DC4DDC fmul qword ptr [ebp-$24]
00831E9E DB7DD0 fstp tbyte ptr [ebp-$30]
00831EA1 9B wait
00831EA2 8D45D0 lea eax, [ebp-$30]
00831EA5 8945E4 mov [ebp-$1C], eax
00831EA8 C645E803 mov byte ptr [ebp-$18], $03
00831EAC 8D55E4 lea edx, [ebp-$1C]
00831EAF 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
00831EB1 B8DC208300 mov eax, $008320DC
|
00831EB6 E8C9ACBDFF call 0040CB84
* Reference to control Label14 : TLabel
|
00831EBB 8B9E68030000 mov ebx, [esi+$0368]
00831EC1 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00831EC3 E87865C9FF call 004C8440
00831EC8 8D55BC lea edx, [ebp-$44]
00831ECB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831ECE E8198ABDFF call 0040A8EC
00831ED3 8B55BC mov edx, [ebp-$44]
00831ED6 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00831ED9 E8EA6EBEFF call 00418DC8
00831EDE 8D45C0 lea eax, [ebp-$40]
00831EE1 50 push eax
00831EE2 8B55F8 mov edx, [ebp-$08]
00831EE5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831EE7 E8C84CC9FF call 004C6BB4
00831EEC 5A pop edx
00831EED 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00831EEF FF91B4000000 call dword ptr [ecx+$00B4]
00831EF5 8D55A8 lea edx, [ebp-$58]
00831EF8 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00831EFB E8EC89BDFF call 0040A8EC
00831F00 8B55A8 mov edx, [ebp-$58]
00831F03 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00831F06 E8BD6EBEFF call 00418DC8
00831F0B 8D45AC lea eax, [ebp-$54]
00831F0E 50 push eax
* Possible String Reference to: 'T_Money'
|
00831F0F BAEC208300 mov edx, $008320EC
00831F14 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00831F16 E8994CC9FF call 004C6BB4
00831F1B 5A pop edx
00831F1C 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00831F1E FF91B4000000 call dword ptr [ecx+$00B4]
00831F24 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmYFCR_SH._PROC_0083211D(Sender : TObject);
begin
(*
0083211D 50 push eax
0083211E 6461 popa
00832120 7465 jz 00832187
00832122 205946 and [ecx+$46], bl
00832125 5F pop edi
00832126 4D dec ebp
00832127 6F outsd
00832128 6E outsb
00832129 65795F jns 0083218B
0083212C 43 inc ebx
0083212D 52 push edx
0083212E 2000 and [eax], al
00832130 FFFF DB $FF, $FF //
00832132 FFFF DB $FF, $FF //
00832134 0500000020 add eax, +$20000000
00832139 53 push ebx
0083213A 657420 jz 0083215D
0083213D 0000 add [eax], al
0083213F 00FF add bh, bh
00832141 FFFF DB $FF, $FF //
00832143 FF01 inc dword ptr [ecx]
00832145 0000 add [eax], al
00832147 003D000000FF add [$FF000000], bh
0083214D FFFF DB $FF, $FF //
0083214F FF09 dec dword ptr [ecx]
00832151 0000 add [eax], al
00832153 002C54 add [esp+edx*2], ch
00832156 5F pop edi
00832157 4D dec ebp
00832158 6F outsd
00832159 6E outsb
0083215A 65793D jns 0083219A
0083215D 0000 add [eax], al
0083215F 00FF add bh, bh
00832161 FFFF DB $FF, $FF //
00832163 FF0D00000020 dec dword ptr [$20000000]
00832169 7768 jnbe 008321D3
0083216B 657265 jb 008321D3
0083216E 205946 and [ecx+$46], bl
00832171 49 dec ecx
00832172 643D27000000 cmp eax, $00000027
00832178 FFFF DB $FF, $FF //
0083217A FFFF DB $FF, $FF //
0083217C 0400 add al, +$00
0083217E 0000 add [eax], al
00832180 59 pop ecx
00832181 46 inc esi
00832182 49 dec ecx
00832183 640000 add fs:[eax], al
00832186 0000 add [eax], al
00832188 FFFF DB $FF, $FF //
0083218A FFFF DB $FF, $FF //
0083218C 0100 add [eax], eax
0083218E 0000 add [eax], al
00832190 27 daa
00832191 0000 add [eax], al
00832193 00558B add [ebp-$75], dl
00832196 EC in al, dx
00832197 B910000000 mov ecx, $00000010
0083219C 6A00 push $00
0083219E 6A00 push $00
008321A0 49 dec ecx
008321A1 75F9 jnz 0083219C
008321A3 51 push ecx
008321A4 53 push ebx
008321A5 56 push esi
008321A6 57 push edi
008321A7 8945FC mov [ebp-$04], eax
008321AA 33C0 xor eax, eax
008321AC 55 push ebp
* Possible String Reference to: '<27><>%<25><><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008321AD 6825258300 push $00832525
***** TRY
|
008321B2 64FF30 push dword ptr fs:[eax]
008321B5 648920 mov fs:[eax], esp
008321B8 8B45FC mov eax, [ebp-$04]
* Reference to control Label14 : TLabel
|
008321BB 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008321C1 E8FA5CC9FF call 004C7EC0
008321C6 84C0 test al, al
008321C8 0F85F1020000 jnz 008324BF
008321CE A034258300 mov al, byte ptr [$00832534]
008321D3 50 push eax
008321D4 8D45EC lea eax, [ebp-$14]
008321D7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008321D9 E8866BBEFF call 00418D64
008321DE 8D4DEC lea ecx, [ebp-$14]
008321E1 8B45FC mov eax, [ebp-$04]
* Reference to control Label14 : TLabel
|
008321E4 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
008321EA BA40258300 mov edx, $00832540
008321EF 8B18 mov ebx, [eax]
* Possible reference to virtual method TLabel.OFFS_0244
|
008321F1 FF9344020000 call dword ptr [ebx+$0244]
008321F7 84C0 test al, al
008321F9 751D jnz 00832218
008321FB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008321FD B948258300 mov ecx, $00832548
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00832202 BA50258300 mov edx, $00832550
*)
end;
procedure TfrmYFCR_SH._PROC_00832B41(Sender : TObject);
begin
(*
00832B41 50 push eax
00832B42 6461 popa
00832B44 7465 jz 00832BAB
00832B46 205946 and [ecx+$46], bl
00832B49 5F pop edi
00832B4A 4D dec ebp
00832B4B 6F outsd
00832B4C 6E outsb
00832B4D 65795F jns 00832BAF
00832B50 43 inc ebx
00832B51 52 push edx
00832B52 2000 and [eax], al
00832B54 FFFF DB $FF, $FF //
00832B56 FFFF DB $FF, $FF //
00832B58 0500000020 add eax, +$20000000
00832B5D 53 push ebx
00832B5E 657420 jz 00832B81
00832B61 0000 add [eax], al
00832B63 00FF add bh, bh
00832B65 FFFF DB $FF, $FF //
00832B67 FF01 inc dword ptr [ecx]
00832B69 0000 add [eax], al
00832B6B 003D000000FF add [$FF000000], bh
00832B71 FFFF DB $FF, $FF //
00832B73 FF09 dec dword ptr [ecx]
00832B75 0000 add [eax], al
00832B77 002C54 add [esp+edx*2], ch
00832B7A 5F pop edi
00832B7B 4D dec ebp
00832B7C 6F outsd
00832B7D 6E outsb
00832B7E 65793D jns 00832BBE
00832B81 0000 add [eax], al
00832B83 00FF add bh, bh
00832B85 FFFF DB $FF, $FF //
00832B87 FF0D00000020 dec dword ptr [$20000000]
00832B8D 7768 jnbe 00832BF7
00832B8F 657265 jb 00832BF7
00832B92 205946 and [ecx+$46], bl
00832B95 49 dec ecx
00832B96 643D27000000 cmp eax, $00000027
00832B9C FFFF DB $FF, $FF //
00832B9E FFFF DB $FF, $FF //
00832BA0 0400 add al, +$00
00832BA2 0000 add [eax], al
00832BA4 59 pop ecx
00832BA5 46 inc esi
00832BA6 49 dec ecx
00832BA7 640000 add fs:[eax], al
00832BAA 0000 add [eax], al
00832BAC FFFF DB $FF, $FF //
00832BAE FFFF DB $FF, $FF //
00832BB0 0100 add [eax], eax
00832BB2 0000 add [eax], al
00832BB4 27 daa
00832BB5 0000 add [eax], al
00832BB7 00558B add [ebp-$75], dl
00832BBA EC in al, dx
00832BBB 6A00 push $00
00832BBD 6A00 push $00
00832BBF 53 push ebx
00832BC0 56 push esi
00832BC1 57 push edi
00832BC2 8BD8 mov ebx, eax
00832BC4 33C0 xor eax, eax
00832BC6 55 push ebp
00832BC7 687A2D8300 push $00832D7A
***** TRY
|
00832BCC 64FF30 push dword ptr fs:[eax]
00832BCF 648920 mov fs:[eax], esp
00832BD2 33D2 xor edx, edx
* Reference to control BankName : N.A.
|
00832BD4 8B83BC030000 mov eax, [ebx+$03BC]
00832BDA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00832BDC FF5164 call dword ptr [ecx+$64]
00832BDF 33D2 xor edx, edx
* Reference to control Label21 : N.A.
|
00832BE1 8B83C0030000 mov eax, [ebx+$03C0]
00832BE7 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00832BE9 FF5164 call dword ptr [ecx+$64]
00832BEC 33D2 xor edx, edx
* Reference to control TBClose : TToolButton
|
00832BEE 8B8300030000 mov eax, [ebx+$0300]
00832BF4 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832BF6 FF5164 call dword ptr [ecx+$64]
* Reference to control v1PRTPrice : N.A.
|
00832BF9 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);
|
00832BFF E84097E2FF call 0065C344
00832C04 8BF0 mov esi, eax
00832C06 4E dec esi
00832C07 85F6 test esi, esi
00832C09 7C54 jl 00832C5F
00832C0B 46 inc esi
00832C0C 33FF xor edi, edi
00832C0E 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
00832C10 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;
|
00832C16 E8B58DE3FF call 0066B9D0
|
00832C1B E8008CE3FF call 0066B820
00832C20 8D55F8 lea edx, [ebp-$08]
|
00832C23 E8A081E3FF call 0066ADC8
00832C28 8B45F8 mov eax, [ebp-$08]
00832C2B 8D55FC lea edx, [ebp-$04]
|
00832C2E E84978BDFF call 0040A47C
00832C33 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: 'SSEL'
|
00832C36 BA902D8300 mov edx, $00832D90
* Reference to: System.@LStrCmp;
|
00832C3B E8002BBDFF call 00405740
00832C40 7419 jz 00832C5B
00832C42 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
00832C44 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;
|
00832C4A E8818DE3FF call 0066B9D0
|
00832C4F E87C75E2FF call 0065A1D0
00832C54 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00832C56 E80563DFFF call 00628F60
00832C5B 47 inc edi
00832C5C 4E dec esi
00832C5D 75AF jnz 00832C0E
* Reference to control Label32 : N.A.
|
00832C5F 8B8344040000 mov eax, [ebx+$0444]
* Possible String Reference to: '<27><>Ȩ<EFBFBD><C8A8>'
|
00832C65 BAA02D8300 mov edx, $00832DA0
* Reference to: System.@LStrCmp;
|
00832C6A E8D12ABDFF call 00405740
00832C6F 7570 jnz 00832CE1
* Reference to control Label19 : N.A.
|
00832C71 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832C77 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00832C7E 753F jnz 00832CBF
00832C80 B201 mov dl, $01
* Reference to control BankName : N.A.
|
00832C82 8B83BC030000 mov eax, [ebx+$03BC]
00832C88 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00832C8A FF5164 call dword ptr [ecx+$64]
* Reference to control v1PRTPrice : N.A.
|
00832C8D 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);
|
00832C93 E8AC96E2FF call 0065C344
00832C98 8BF0 mov esi, eax
00832C9A 4E dec esi
00832C9B 85F6 test esi, esi
00832C9D 7C20 jl 00832CBF
00832C9F 46 inc esi
00832CA0 33FF xor edi, edi
00832CA2 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
00832CA4 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;
|
00832CAA E8218DE3FF call 0066B9D0
|
00832CAF E81C75E2FF call 0065A1D0
00832CB4 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00832CB6 E8A562DFFF call 00628F60
00832CBB 47 inc edi
00832CBC 4E dec esi
00832CBD 75E3 jnz 00832CA2
* Reference to control Label19 : N.A.
|
00832CBF 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832CC5 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00832CCC 0F8586000000 jnz 00832D58
00832CD2 B201 mov dl, $01
* Reference to control Label21 : N.A.
|
00832CD4 8B83C0030000 mov eax, [ebx+$03C0]
00832CDA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00832CDC FF5164 call dword ptr [ecx+$64]
00832CDF EB77 jmp 00832D58
* Reference to control Label19 : N.A.
|
00832CE1 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832CE7 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00832CEE 754C jnz 00832D3C
00832CF0 B201 mov dl, $01
* Reference to control BankName : N.A.
|
00832CF2 8B83BC030000 mov eax, [ebx+$03BC]
00832CF8 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00832CFA FF5164 call dword ptr [ecx+$64]
00832CFD B201 mov dl, $01
* Reference to control TBClose : TToolButton
|
00832CFF 8B8300030000 mov eax, [ebx+$0300]
00832D05 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
00832D07 FF5164 call dword ptr [ecx+$64]
* Reference to control v1PRTPrice : N.A.
|
00832D0A 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);
|
00832D10 E82F96E2FF call 0065C344
00832D15 8BF0 mov esi, eax
00832D17 4E dec esi
00832D18 85F6 test esi, esi
00832D1A 7C20 jl 00832D3C
00832D1C 46 inc esi
00832D1D 33FF xor edi, edi
00832D1F 8BD7 mov edx, edi
* Reference to control v1PRTPrice : N.A.
|
00832D21 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;
|
00832D27 E8A48CE3FF call 0066B9D0
|
00832D2C E89F74E2FF call 0065A1D0
00832D31 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00832D33 E82862DFFF call 00628F60
00832D38 47 inc edi
00832D39 4E dec esi
00832D3A 75E3 jnz 00832D1F
* Reference to control Label19 : N.A.
|
00832D3C 8B83B8030000 mov eax, [ebx+$03B8]
* Reference to control ADOTemp : N.A.
|
00832D42 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00832D49 750D jnz 00832D58
00832D4B B201 mov dl, $01
* Reference to control Label21 : N.A.
|
00832D4D 8B83C0030000 mov eax, [ebx+$03C0]
00832D53 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00832D55 FF5164 call dword ptr [ecx+$64]
00832D58 8BC3 mov eax, ebx
|
00832D5A E8C5B3FFFF call 0082E124
00832D5F 33C0 xor eax, eax
00832D61 5A pop edx
00832D62 59 pop ecx
00832D63 59 pop ecx
00832D64 648910 mov fs:[eax], edx
****** FINALLY
|
00832D67 68812D8300 push $00832D81
00832D6C 8D45F8 lea eax, [ebp-$08]
00832D6F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00832D74 E8CF25BDFF call 00405348
00832D79 C3 ret
*)
end;
procedure TfrmYFCR_SH._PROC_008337D1(Sender : TObject);
begin
(*
008337D1 50 push eax
008337D2 6461 popa
008337D4 7465 jz 0083383B
008337D6 205946 and [ecx+$46], bl
008337D9 5F pop edi
008337DA 4D dec ebp
008337DB 6F outsd
008337DC 6E outsb
008337DD 65795F jns 0083383F
008337E0 43 inc ebx
008337E1 52 push edx
008337E2 2000 and [eax], al
008337E4 FFFF DB $FF, $FF //
008337E6 FFFF DB $FF, $FF //
008337E8 0E push cs
008337E9 0000 add [eax], al
008337EB 0020 add [eax], ah
008337ED 53 push ebx
008337EE 657420 jz 00833811
008337F1 4F dec edi
008337F2 7264 jb 00833858
008337F4 65724E jb 00833845
008337F7 4F dec edi
008337F8 3D270000FF cmp eax, $FF000027
008337FD FFFF DB $FF, $FF //
008337FF FF07 inc dword ptr [edi]
00833801 0000 add [eax], al
00833803 004F72 add [edi+$72], cl
00833806 6465724E jb 00833858
0083380A 4F dec edi
0083380B 00FF add bh, bh
0083380D FFFF DB $FF, $FF //
0083380F FF01 inc dword ptr [ecx]
00833811 0000 add [eax], al
00833813 0027 add [edi], ah
00833815 0000 add [eax], al
00833817 00FF add bh, bh
00833819 FFFF DB $FF, $FF //
0083381B FF0E dec dword ptr [esi]
0083381D 0000 add [eax], al
0083381F 0020 add [eax], ah
00833821 2C50 sub al, $50
00833823 5F pop edi
00833824 43 inc ebx
00833825 6F outsd
00833826 64654E dec esi
00833829 61 popa
0083382A 6D insd
0083382B 653D270000FF cmp eax, $FF000027
00833831 FFFF DB $FF, $FF //
00833833 FF0A dec dword ptr [edx]
00833835 0000 add [eax], al
00833837 0020 add [eax], ah
00833839 2C50 sub al, $50
0083383B 5F pop edi
0083383C 53 push ebx
0083383D 7065 jo 008338A4
0083383F 633D270000FF arpl [$FF000027], di
00833845 FFFF DB $FF, $FF //
00833847 FF09 dec dword ptr [ecx]
00833849 0000 add [eax], al
0083384B 002C4564697465 add [$65746964+eax*2], ch
00833852 723D jb 00833891
00833854 27 daa
00833855 0000 add [eax], al
00833857 00FF add bh, bh
00833859 FFFF DB $FF, $FF //
0083385B FF1400 call dword ptr [eax+eax]
0083385E 0000 add [eax], al
00833860 2C45 sub al, $45
00833862 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0083386B 657464 jz 008338D2
0083386E 61 popa
0083386F 7465 jz 008338D6
00833871 2829 sub [ecx], ch
00833873 2000 and [eax], al
00833875 0000 add [eax], al
00833877 00FF add bh, bh
00833879 FFFF DB $FF, $FF //
0083387B FF0D00000020 dec dword ptr [$20000000]
00833881 7768 jnbe 008338EB
00833883 657265 jb 008338EB
00833886 205946 and [ecx+$46], bl
00833889 49 dec ecx
0083388A 643D27000000 cmp eax, $00000027
00833890 FFFF DB $FF, $FF //
00833892 FFFF DB $FF, $FF //
00833894 0400 add al, +$00
00833896 0000 add [eax], al
00833898 59 pop ecx
00833899 46 inc esi
0083389A 49 dec ecx
0083389B 640000 add fs:[eax], al
0083389E 0000 add [eax], al
008338A0 55 push ebp
008338A1 8BEC mov ebp, esp
008338A3 B908000000 mov ecx, $00000008
008338A8 6A00 push $00
008338AA 6A00 push $00
008338AC 49 dec ecx
008338AD 75F9 jnz 008338A8
008338AF 51 push ecx
008338B0 53 push ebx
008338B1 56 push esi
008338B2 57 push edi
008338B3 8945FC mov [ebp-$04], eax
008338B6 33C0 xor eax, eax
008338B8 55 push ebp
008338B9 68D93B8300 push $00833BD9
***** TRY
|
008338BE 64FF30 push dword ptr fs:[eax]
008338C1 648920 mov fs:[eax], esp
008338C4 8B45FC mov eax, [ebp-$04]
* Reference to control Label14 : TLabel
|
008338C7 8B8068030000 mov eax, [eax+$0368]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008338CD E8EE45C9FF call 004C7EC0
008338D2 84C0 test al, al
008338D4 0F85BF020000 jnz 00833B99
008338DA A0E83B8300 mov al, byte ptr [$00833BE8]
008338DF 50 push eax
008338E0 8D45EC lea eax, [ebp-$14]
008338E3 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008338E5 E87A54BEFF call 00418D64
008338EA 8D4DEC lea ecx, [ebp-$14]
008338ED 8B45FC mov eax, [ebp-$04]
* Reference to control Label14 : TLabel
|
008338F0 8B8068030000 mov eax, [eax+$0368]
* Possible String Reference to: 'ssel'
|
008338F6 BAF43B8300 mov edx, $00833BF4
008338FB 8B18 mov ebx, [eax]
* Possible reference to virtual method TLabel.OFFS_0244
|
008338FD FF9344020000 call dword ptr [ebx+$0244]
00833903 84C0 test al, al
00833905 751D jnz 00833924
00833907 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00833909 B9FC3B8300 mov ecx, $00833BFC
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
0083390E BA043C8300 mov edx, $00833C04
*)
end;
procedure TfrmYFCR_SH._PROC_00833DD9(Sender : TObject);
begin
(*
00833DD9 8BEC mov ebp, esp
00833DDB 33C0 xor eax, eax
00833DDD 55 push ebp
00833DDE 68FD3D8300 push $00833DFD
***** TRY
|
00833DE3 64FF30 push dword ptr fs:[eax]
00833DE6 648920 mov fs:[eax], esp
00833DE9 FF05D0598900 inc dword ptr [$008959D0]
00833DEF 33C0 xor eax, eax
00833DF1 5A pop edx
00833DF2 59 pop ecx
00833DF3 59 pop ecx
00833DF4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
00833DF7 68043E8300 push $00833E04
00833DFC C3 ret
* Reference to: System.@HandleFinally;
|
00833DFD E9F20CBDFF jmp 00404AF4
00833E02 EBF8 jmp 00833DFC
****** END
|
00833E04 5D pop ebp
00833E05 C3 ret
*)
end;
procedure TfrmYFCR_SH._PROC_00833E08(Sender : TObject);
begin
(*
00833E08 832DD059890001 sub dword ptr [$008959D0], +$01
00833E0F C3 ret
*)
end;
procedure TfrmYFCR_SH._PROC_00833E10(Sender : TObject);
begin
(*
00833E10 5C pop esp
00833E11 3E830000 add dword ptr ds:[eax], +$00
00833E15 0000 add [eax], al
*)
end;
procedure TfrmYFCR_SH._PROC_00833E1F(Sender : TObject);
begin
(*
00833E1F 004C4783 add [edi+eax*2-$7D], cl
00833E23 00723F add [edx+$3F], dh
00833E26 83005D add dword ptr [eax], +$5D
00833E29 43 inc ebx
00833E2A 830000 add dword ptr [eax], +$00
00833E2D 0000 add [eax], al
*)
end;
procedure TfrmYFCR_SH._PROC_00833E33(Sender : TObject);
begin
(*
00833E33 0018 add [eax], bl
00833E35 0400 add al, +$00
00833E37 0088F1490028 add [eax+$280049F1], cl
00833E3D D4 aam
00833E3E 42 inc edx
00833E3F 005C1F4A add [edi+ebx+$4A], bl
00833E43 0010 add [eax], dl
00833E45 214A00 and [edx+$00], ecx
00833E48 BC4540008C mov esp, $8C004045
00833E4D 45 inc ebp
00833E4E 4A dec edx
00833E4F 00E4 add ah, ah
00833E51 42 inc edx
00833E52 40 inc eax
00833E53 0000 add [eax], al
*)
end;
procedure TfrmYFCR_SH._PROC_00833E76(Sender : TObject);
begin
(*
00833E76 48 dec eax
00833E77 0050D4 add [eax-$2C], dl
00833E7A 42 inc edx
00833E7B 0008 add [eax], cl
00833E7D 2D4A007CD0 sub eax, $D07C004A
00833E82 42 inc edx
00833E83 00F4 add ah, dh
00833E85 6B4A00D0 imul ecx, [edx+$00], $D0
00833E89 1D4A0030F6 sbb eax, $F630004A
00833E8E 48 dec eax
00833E8F 004CFB48 add [ebx+edi*8+$48], cl
00833E93 0098FA48000C add [eax+$C0048FA], bl
00833E99 7948 jns 00833EE3
00833E9B 00ACF04800E829 add [eax+esi*8+$29E80048], ch
00833EA2 4A dec edx
00833EA3 00E4 add ah, ah
00833EA5 ED in eax, dx
00833EA6 48 dec eax
00833EA7 00547848 add [eax+edi*2+$48], dl
00833EAB 005878 add [eax+$78], bl
00833EAE 48 dec eax
00833EAF 00DC add ah, bl
00833EB1 2A4A00 sub cl, byte ptr [edx+$00]
00833EB4 3CA9 cmp al, $A9
00833EB6 48 dec eax
00833EB7 00C0 add al, al
00833EB9 834800D0 or dword ptr [eax+$00], -$30
00833EBD 7948 jns 00833F07
00833EBF 004C8548 add [ebp+eax*4+$48], cl
00833EC3 00D0 add al, dl
00833EC5 2C4A sub al, $4A
00833EC7 009C2B4A008486 add [ebx+ebp+$8684004A], bl
00833ECE 48 dec eax
00833ECF 00482D add [eax+$2D], cl
00833ED2 4A dec edx
00833ED3 00C0 add al, al
00833ED5 A9480038EE test eax, $EE380048
00833EDA 48 dec eax
00833EDB 00F4 add ah, dh
00833EDD EE out dx, al
00833EDE 48 dec eax
00833EDF 00F0 add al, dh
00833EE1 E94800D8EE jmp EF5B3F2E
00833EE6 48 dec eax
00833EE7 00D8 add al, bl
00833EE9 1B4A00 sbb ecx, [edx+$00]
00833EEC EC in al, dx
00833EED 334A00 xor ecx, [edx+$00]
00833EF0 20C4 and ah, al
00833EF2 48 dec eax
00833EF3 00B0404A0010 add [eax+$10004A40], dh
00833EF9 44 inc esp
00833EFA 4A dec edx
00833EFB 00CC add ah, cl
00833EFD 42 inc edx
00833EFE 4A dec edx
00833EFF 00B8C44800BC add [eax+$BC0048C4], bh
00833F05 C44800 les ecx, [eax+$00]
00833F08 48 dec eax
00833F09 45 inc ebp
00833F0A 4A dec edx
00833F0B 001CC3 add [ebx+eax*8], bl
00833F0E 48 dec eax
00833F0F 0018 add [eax], bl
00833F11 F0 lock
00833F12 48 dec eax
00833F13 00444C4A add [esp+ecx*2+$4A], al
00833F17 000C02 add [edx+eax], cl
00833F1A 49 dec ecx
00833F1B 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
00833F22 4A dec edx
00833F23 008C154A003C18 add [ebp+edx+$183C004A], cl
00833F2A 4A dec edx
00833F2B 0038 add [eax], bh
00833F2D 52 push edx
00833F2E 4A dec edx
00833F2F 005C224A add [edx+$4A], bl
00833F33 00D8 add al, bl
00833F35 224A00 and cl, byte ptr [edx+$00]
00833F38 7C68 jl 00833FA2
00833F3A 4A dec edx
00833F3B 00941F4A003C60 add [edi+ebx+$603C004A], dl
00833F42 4A dec edx
00833F43 001447 add [edi+eax*2], dl
00833F46 4A dec edx
00833F47 0034654A00CC2C add [$2CCC004A], dh
00833F4E 4A dec edx
00833F4F 000E add [esi], cl
00833F51 0000 add [eax], al
00833F53 0000 add [eax], al
00833F55 0003 add [ebx], al
00833F57 0000 add [eax], al
00833F59 0020 add [eax], ah
00833F5B 114000 adc [eax+$00], eax
00833F5E 0C04 or al, $04
00833F60 0000 add [eax], al
00833F62 2011 and [ecx], dl
00833F64 40 inc eax
00833F65 0010 add [eax], dl
00833F67 0400 add al, +$00
00833F69 0020 add [eax], ah
00833F6B 114000 adc [eax+$00], eax
00833F6E 1404 adc al, $04
00833F70 0000 add [eax], al
00833F72 44 inc esp
00833F73 00F4 add ah, dh
00833F75 46 inc esi
00833F76 8300F8 add dword ptr [eax], -$08
00833F79 0200 add al, byte ptr [eax]
00833F7B 0000 add [eax], al
00833F7D 0008 add [eax], cl
00833F7F 54 push esp
00833F80 6F outsd
00833F81 6F outsd
00833F82 6C insb
00833F83 42 inc edx
00833F84 61 popa
00833F85 7231 jb 00833FB8
00833F87 FC cld
00833F88 0200 add al, byte ptr [eax]
00833F8A 0001 add [ecx], al
00833F8C 0009 add [ecx], cl
00833F8E 54 push esp
00833F8F 42 inc edx
00833F90 52 push edx
00833F91 61 popa
00833F92 667265 jb 00833FFA
00833F95 7368 jnb 00833FFF
00833F97 0003 add [ebx], al
00833F99 0000 add [eax], al
00833F9B 0100 add [eax], eax
00833F9D 0554424465 add eax, +$65444254
00833FA2 6C insb
00833FA3 0403 add al, +$03
00833FA5 0000 add [eax], al
00833FA7 0100 add [eax], eax
00833FA9 07 pop es
00833FAA 54 push esp
00833FAB 42 inc edx
00833FAC 43 inc ebx
00833FAD 6C insb
00833FAE 6F outsd
00833FAF 7365 jnb 00834016
00833FB1 0803 or [ebx], al
00833FB3 0000 add [eax], al
00833FB5 0200 add al, byte ptr [eax]
00833FB7 0C41 or al, $41
00833FB9 44 inc esp
00833FBA 4F dec edi
00833FBB 51 push ecx
00833FBC 7565 jnz 00834023
00833FBE 7279 jb 00834039
00833FC0 54 push esp
00833FC1 656D insd
00833FC3 700C jo 00833FD1
00833FC5 0300 add eax, [eax]
00833FC7 0002 add [edx], al
00833FC9 000B add [ebx], cl
00833FCB 41 inc ecx
00833FCC 44 inc esp
00833FCD 4F dec edi
00833FCE 51 push ecx
00833FCF 7565 jnz 00834036
00833FD1 7279 jb 0083404C
00833FD3 43 inc ebx
00833FD4 6D insd
00833FD5 641003 adc fs:[ebx], al
00833FD8 0000 add [eax], al
00833FDA 0300 add eax, [eax]
00833FDC 06 push es
00833FDD 50 push eax
00833FDE 61 popa
00833FDF 6E outsb
00833FE0 656C insb
00833FE2 311403 xor [ebx+eax], edx
00833FE5 0000 add [eax], al
00833FE7 0100 add [eax], eax
00833FE9 0B546F6F or edx, [edi+ebp*2+$6F]
00833FED 6C insb
00833FEE 42 inc edx
00833FEF 7574 jnz 00834065
00833FF1 746F jz 00834062
00833FF3 6E outsb
00833FF4 3218 xor bl, byte ptr [eax]
00833FF6 0300 add eax, [eax]
00833FF8 000400 add [eax+eax], al
00833FFB 06 push es
00833FFC 4C dec esp
00833FFD 61 popa
00833FFE 62656C bound esp, qword ptr [ebp+$6C]
00834001 311C03 xor [ebx+eax], ebx
00834004 0000 add [eax], al
00834006 0500065946 add eax, +$46590600
0083400B 4E dec esi
0083400C 61 popa
0083400D 6D insd
0083400E 652003 and gs:[ebx], al
00834011 0000 add [eax], al
00834013 0200 add al, byte ptr [eax]
00834015 0C41 or al, $41
00834017 44 inc esp
00834018 4F dec edi
00834019 51 push ecx
0083401A 7565 jnz 00834081
0083401C 7279 jb 00834097
0083401E 4D dec ebp
0083401F 61 popa
00834020 696E2403000001 imul ebp, [esi+$24], $01000003
00834027 000B add [ebx], cl
00834029 54 push esp
0083402A 6F outsd
0083402B 6F outsd
0083402C 6C insb
0083402D 42 inc edx
0083402E 7574 jnz 008340A4
00834030 746F jz 008340A1
00834032 6E outsb
00834033 3128 xor [eax], ebp
00834035 0300 add eax, [eax]
00834037 0006 add [esi], al
00834039 0003 add [ebx], al
0083403B 52 push edx
0083403C 4D dec ebp
0083403D 312C03 xor [ebx+eax], ebp
00834040 0000 add [eax], al
00834042 07 pop es
00834043 0009 add [ecx], cl
00834045 52 push edx
00834046 4D dec ebp
00834047 44 inc esp
00834048 42 inc edx
00834049 5F pop edi
0083404A 4D dec ebp
0083404B 61 popa
0083404C 696E3003000004 imul ebp, [esi+$30], $04000003
00834053 0006 add [esi], al
00834055 4C dec esp
00834056 61 popa
00834057 62656C bound esp, qword ptr [ebp+$6C]
0083405A 333403 xor esi, [ebx+eax]
0083405D 0000 add [eax], al
0083405F 05000B4661 add eax, +$61460B00
00834064 63746F72 arpl [edi+ebp*2+$72], si
00834068 794E jns 008340B8
0083406A 61 popa
0083406B 6D insd
0083406C 653803 cmp gs:[ebx], al
0083406F 0000 add [eax], al
00834071 0400 add al, +$00
00834073 06 push es
00834074 4C dec esp
00834075 61 popa
00834076 62656C bound esp, qword ptr [ebp+$6C]
00834079 323C03 xor bh, byte ptr [ebx+eax]
0083407C 0000 add [eax], al
0083407E 0800 or [eax], al
00834080 07 pop es
00834081 626567 bound esp, qword ptr [ebp+$67]
00834084 6461 popa
00834086 7465 jz 008340ED
00834088 40 inc eax
00834089 0300 add eax, [eax]
0083408B 0008 add [eax], cl
0083408D 0007 add [edi], al
0083408F 45 inc ebp
00834090 6E outsb
00834091 646461 popa
00834094 7465 jz 008340FB
00834096 44 inc esp
00834097 0300 add eax, [eax]
00834099 0009 add [ecx], cl
0083409B 0010 add [eax], dl
0083409D 637847 arpl [eax+$47], di
008340A0 7269 jb 0083410B
008340A2 6450 push eax
008340A4 6F outsd
008340A5 7075 jo 0083411C
008340A7 704D jo 008340F6
008340A9 656E outsb
008340AB 7532 jnz 008340DF
008340AD 48 dec eax
008340AE 0300 add eax, [eax]
008340B0 000A add [edx], cl
008340B2 000544535F48 add [$485F5344], al
008340B8 5A pop edx
008340B9 4C dec esp
008340BA 0300 add eax, [eax]
008340BC 000B add [ebx], cl
008340BE 0006 add [esi], al
008340C0 43 inc ebx
008340C1 44 inc esp
008340C2 53 push ebx
008340C3 5F pop edi
008340C4 48 dec eax
008340C5 5A pop edx
008340C6 50 push eax
008340C7 0300 add eax, [eax]
008340C9 0001 add [ecx], al
008340CB 000B add [ebx], cl
008340CD 54 push esp
008340CE 6F outsd
008340CF 6F outsd
008340D0 6C insb
008340D1 42 inc edx
008340D2 7574 jnz 00834148
008340D4 746F jz 00834145
008340D6 6E outsb
008340D7 33540300 xor edx, [ebx+eax+$00]
008340DB 000400 add [eax+eax], al
008340DE 06 push es
008340DF 4C dec esp
008340E0 61 popa
008340E1 62656C bound esp, qword ptr [ebp+$6C]
008340E4 3458 xor al, $58
008340E6 0300 add eax, [eax]
008340E8 00050009436F add [$6F430900], al
008340EE 6D insd
008340EF 54 push esp
008340F0 61 popa
008340F1 69746F755C030000 imul esi, [edi+ebp*2+$75], $0000035C
008340F9 0C00 or al, $00
008340FB 0D63785461 or eax, $61547863
00834100 62436F bound eax, qword ptr [ebx+$6F]
00834103 6E outsb
00834104 7472 jz 00834178
00834106 6F outsd
00834107 6C insb
00834108 316003 xor [eax+$03], esp
0083410B 0000 add [eax], al
0083410D 0100 add [eax], eax
0083410F 0454 add al, +$54
00834111 63686B arpl [eax+$6B], bp
00834114 640300 add eax, fs:[eax]
00834117 0001 add [ecx], al
00834119 0006 add [esi], al
0083411B 54 push esp
0083411C 4E dec esi
0083411D 6F outsd
0083411E 63686B arpl [eax+$6B], bp
00834121 6803000004 push $04000003
00834126 0006 add [esi], al
00834128 4C dec esp
00834129 61 popa
0083412A 62656C bound esp, qword ptr [ebp+$6C]
0083412D 356C030000 xor eax, $0000036C
00834132 050005636F add eax, +$6F630500
00834137 6E outsb
00834138 4E dec esi
00834139 6F outsd
0083413A 7003 jo 0083413F
0083413C 0000 add [eax], al
0083413E 0100 add [eax], eax
00834140 054E6F6368 add eax, +$68636F4E
00834145 6B74030000 imul esi, [ebx+eax+$00], $00
0083414A 0D000A506F or eax, $6F500A00
0083414F 7075 jo 008341C6
00834151 704D jo 008341A0
00834153 656E outsb
00834155 7531 jnz 00834188
00834157 7803 js 0083415C
00834159 0000 add [eax], al
0083415B 0E push cs
0083415C 0002 add [edx], al
0083415E 4E dec esi
0083415F 317C0300 xor [ebx+eax+$00], edi
00834163 000E add [esi], cl
00834165 0002 add [edx], al
00834167 4E dec esi
00834168 328003000005 xor al, byte ptr [eax+$5000003]
0083416E 0007 add [edi], al
00834170 43 inc ebx
00834171 686B4E6F74 push $746F4E6B
00834176 658403 test gs:[ebx], al
00834179 0000 add [eax], al
0083417B 0400 add al, +$00
0083417D 07 pop es
0083417E 4C dec esp
0083417F 61 popa
00834180 62656C bound esp, qword ptr [ebp+$6C]
00834183 3137 xor [edi], esi
00834185 8803 mov [ebx], al
00834187 0000 add [eax], al
00834189 0F0009 str word ptr [ecx]
0083418C 43 inc ebx
0083418D 6865636B42 push $426B6365
00834192 6F outsd
00834193 7831 js 008341C6
00834195 8C03 mov word ptr [ebx], es
00834197 0000 add [eax], al
00834199 0400 add al, +$00
0083419B 07 pop es
0083419C 4C dec esp
0083419D 61 popa
0083419E 62656C bound esp, qword ptr [ebp+$6C]
008341A1 3130 xor [eax], esi
008341A3 90 nop
008341A4 0300 add eax, [eax]
008341A6 000400 add [eax+eax], al
008341A9 07 pop es
008341AA 4C dec esp
008341AB 61 popa
008341AC 62656C bound esp, qword ptr [ebp+$6C]
008341AF 3132 xor [edx], esi
008341B1 94 xchg eax, esp
008341B2 0300 add eax, [eax]
008341B4 000400 add [eax+eax], al
008341B7 06 push es
008341B8 4C dec esp
008341B9 61 popa
008341BA 62656C bound esp, qword ptr [ebp+$6C]
008341BD 37 aaa
008341BE 98 cwde
008341BF 0300 add eax, [eax]
008341C1 00050006464B add [$4B460600], al
008341C7 54 push esp
008341C8 7970 jns 0083423A
008341CA 659C pushf
008341CC 0300 add eax, [eax]
008341CE 000400 add [eax+eax], al
008341D1 06 push es
008341D2 4C dec esp
008341D3 61 popa
008341D4 62656C bound esp, qword ptr [ebp+$6C]
008341D7 36A003000005 mov al, byte ptr [$05000003]
008341DD 00044E add [esi+ecx*2], al
008341E0 6F outsd
008341E1 7465 jz 00834248
008341E3 A4 movsb
008341E4 0300 add eax, [eax]
008341E6 0010 add [eax], dl
008341E8 0007 add [edi], al
008341EA 637847 arpl [eax+$47], di
008341ED 7269 jb 00834258
008341EF 6432A803000011 xor ch, byte ptr fs:[eax+$11000003]
008341F6 0003 add [ebx], al
008341F8 54 push esp
008341F9 7632 jbe 0083422D
008341FB AC lodsb
008341FC 0300 add eax, [eax]
008341FE 0012 add [edx], dl
00834200 0006 add [esi], al
00834202 7632 jbe 00834236
00834204 53 push ebx
00834205 7365 jnb 0083426C
00834207 6C insb
00834208 B003 mov al, $03
0083420A 0000 add [eax], al
0083420C 1200 adc al, byte ptr [eax]
0083420E 0F637847 packusdw MM7, [eax+$47]
00834212 7269 jb 0083427D
00834214 6444 inc esp
00834216 42 inc edx
00834217 43 inc ebx
00834218 6F outsd
00834219 6C insb
0083421A 756D jnz 00834289
0083421C 6E outsb
0083421D 31B40300001200 xor [ebx+eax+$120000], esi
00834224 097632 or [esi+$32], esi
00834227 43 inc ebx
00834228 6F outsd
00834229 6C insb
0083422A 756D jnz 00834299
0083422C 6E outsb
0083422D 36B803000012 mov eax, $12000003
00834233 000F add [edi], cl
00834235 637847 arpl [eax+$47], di
00834238 7269 jb 008342A3
0083423A 6444 inc esp
0083423C 42 inc edx
0083423D 43 inc ebx
0083423E 6F outsd
0083423F 6C insb
00834240 756D jnz 008342AF
00834242 6E outsb
00834243 33BC0300001200 xor edi, [ebx+eax+$120000]
0083424A 035642 add edx, [esi+$42]
0083424D 5A pop edx
0083424E C00300 rol byte ptr [ebx], $00
00834251 0012 add [edx], dl
00834253 0003 add [ebx], al
00834255 56 push esi
00834256 59 pop ecx
00834257 42 inc edx
00834258 C403 les eax, [ebx]
0083425A 0000 add [eax], al
0083425C 1200 adc al, byte ptr [eax]
0083425E 035648 add edx, [esi+$48]
00834261 4C dec esp
00834262 C803 enter , $03
00834264 0000 add [eax], al
00834266 1200 adc al, byte ptr [eax]
00834268 097632 or [esi+$32], esi
0083426B 46 inc esi
0083426C 58 pop eax
0083426D 4D dec ebp
0083426E 6F outsd
0083426F 6E outsb
00834270 6579CC jns 0083423F
00834273 0300 add eax, [eax]
00834275 0012 add [edx], dl
00834277 0009 add [ecx], cl
00834279 7632 jbe 008342AD
0083427B 53 push ebx
0083427C 58 pop eax
0083427D 4D dec ebp
0083427E 6F outsd
0083427F 6E outsb
00834280 6579D0 jns 00834253
00834283 0300 add eax, [eax]
00834285 0012 add [edx], dl
00834287 000A add [edx], cl
00834289 7632 jbe 008342BD
0083428B 42 inc edx
0083428C 61 popa
0083428D 6E outsb
0083428E 6B4E616D imul ecx, [esi+$61], $6D
00834292 65D4 aam
00834294 0300 add eax, [eax]
00834296 0012 add [edx], dl
00834298 0008 add [eax], cl
0083429A 7632 jbe 008342CE
0083429C 42 inc edx
0083429D 61 popa
0083429E 6E outsb
0083429F 6B4E6FD8 imul ecx, [esi+$6F], $D8
008342A3 0300 add eax, [eax]
008342A5 0012 add [edx], dl
008342A7 0003 add [ebx], al
008342A9 56 push esi
008342AA 42 inc edx
008342AB 42 inc edx
008342AC DC03 fadd qword ptr [ebx]
008342AE 0000 add [eax], al
008342B0 1200 adc al, byte ptr [eax]
008342B2 0B7632 or esi, [esi+$32]
008342B5 43 inc ebx
008342B6 6F outsd
008342B7 6D insd
008342B8 54 push esp
008342B9 61 popa
008342BA 69546F75E0030000 imul edx, [edi+ebp*2+$75], $000003E0
008342C2 1200 adc al, byte ptr [eax]
008342C4 0B7632 or esi, [esi+$32]
008342C7 43 inc ebx
008342C8 686B737461 push $6174736B
008342CD 7475 jz 00834344
008342CF 73E4 jnb 008342B5
008342D1 0300 add eax, [eax]
008342D3 0012 add [edx], dl
008342D5 0008 add [eax], cl
008342D7 7632 jbe 0083430B
008342D9 46 inc esi
008342DA 4B dec ebx
008342DB 54 push esp
008342DC 7970 jns 0083434E
008342DE 65E803000012 call 128342E7
008342E4 0009 add [ecx], cl
008342E6 7632 jbe 0083431A
008342E8 63686B arpl [eax+$6B], bp
008342EB 6E outsb
008342EC 6F outsd
008342ED 7465 jz 00834354
008342EF EC in al, dx
008342F0 0300 add eax, [eax]
008342F2 0012 add [edx], dl
008342F4 0009 add [ecx], cl
008342F6 7632 jbe 0083432A
008342F8 43 inc ebx
008342F9 6F outsd
008342FA 6C insb
008342FB 756D jnz 0083436A
008342FD 6E outsb
008342FE 31F0 xor eax, esi
00834300 0300 add eax, [eax]
00834302 0013 add [ebx], dl
00834304 000C63 add [ebx], cl
00834307 7847 js 00834350
00834309 7269 jb 00834374
0083430B 644C dec esp
0083430D 657665 jbe 00834375
00834310 6C insb
00834311 31F4 xor esp, esi
00834313 0300 add eax, [eax]
00834315 0012 add [edx], dl
00834317 0007 add [edi], al
00834319 7632 jbe 0083434D
0083431B 48 dec eax
0083431C 7569 jnz 00834387
0083431E 6C insb
0083431F 76F8 jbe 00834319
00834321 0300 add eax, [eax]
00834323 0012 add [edx], dl
00834325 000A add [edx], cl
00834327 7632 jbe 0083435B
00834329 4B dec ebx
0083432A 50 push eax
0083432B 53 push ebx
0083432C 7461 jz 0083438F
0083432E 7475 jz 008343A5
00834330 73FC jnb 0083432E
00834332 0300 add eax, [eax]
00834334 0012 add [edx], dl
00834336 000A add [edx], cl
00834338 7632 jbe 0083436C
0083433A 43 inc ebx
0083433B 4F dec edi
0083433C 7264 jb 008343A2
0083433E 65724E jb 0083438F
00834341 6F outsd
00834342 000400 add [eax+eax], al
00834345 000400 add [eax+eax], al
00834348 06 push es
00834349 4C dec esp
0083434A 61 popa
0083434B 62656C bound esp, qword ptr [ebp+$6C]
0083434E 390404 cmp [esp+eax], eax
00834351 0000 add [eax], al
00834353 0500074F72 add eax, +$724F0700
00834358 6465724E jb 008343AA
0083435C 4F dec edi
0083435D 2000 and [eax], al
0083435F 1200 adc al, byte ptr [eax]
00834361 A4 movsb
00834362 4C dec esp
00834363 83000B add dword ptr [eax], +$0B
00834366 46 inc esi
00834367 6F outsd
00834368 726D jb 008343D7
0083436A 44 inc esp
0083436B 657374 jnb 008343E2
0083436E 726F jb 008343DF
00834370 7910 jns 00834382
00834372 00AC4C83000946 add [esp+ecx*2+$46090083], ch
00834379 6F outsd
0083437A 726D jb 008343E9
0083437C 43 inc ebx
0083437D 6C insb
0083437E 6F outsd
0083437F 7365 jnb 008343E6
00834381 1300 adc eax, [eax]
00834383 B04C mov al, $4C
00834385 83000C add dword ptr [eax], +$0C
00834388 54 push esp
00834389 42 inc edx
0083438A 43 inc ebx
0083438B 6C insb
0083438C 6F outsd
0083438D 7365 jnb 008343F4
0083438F 43 inc ebx
00834390 6C insb
00834391 69636B1100FC4C imul esp, [ebx+$6B], $4CFC0011
00834398 83000A add dword ptr [eax], +$0A
0083439B 54 push esp
0083439C 42 inc edx
0083439D 44 inc esp
0083439E 656C insb
008343A0 43 inc ebx
008343A1 6C insb
008343A2 69636B0F00B04F imul esp, [ebx+$6B], $4FB0000F
008343A9 830008 add dword ptr [eax], +$08
008343AC 46 inc esi
008343AD 6F outsd
008343AE 726D jb 0083441D
008343B0 53 push ebx
008343B1 686F771500 push $0015776F
008343B6 5C pop esp
008343B7 50 push eax
008343B8 83000E add dword ptr [eax], +$0E
008343BB 54 push esp
008343BC 42 inc edx
008343BD 52 push edx
008343BE 61 popa
008343BF 667265 jb 00834427
008343C2 7368 jnb 0083442C
008343C4 43 inc ebx
008343C5 6C insb
008343C6 69636B17007850 imul esp, [ebx+$6B], $50780017
008343CD 830010 add dword ptr [eax], +$10
008343D0 54 push esp
008343D1 6F outsd
008343D2 6F outsd
008343D3 6C insb
008343D4 42 inc edx
008343D5 7574 jnz 0083444B
008343D7 746F jz 00834448
008343D9 6E outsb
008343DA 32436C xor al, byte ptr [ebx+$6C]
008343DD 69636B18001451 imul esp, [ebx+$6B], $51140018
008343E4 830011 add dword ptr [eax], +$11
008343E7 46 inc esi
008343E8 61 popa
008343E9 63746F72 arpl [edi+ebp*2+$72], si
008343ED 794E jns 0083443D
008343EF 61 popa
008343F0 6D insd
008343F1 6543 inc ebx
008343F3 68616E6765 push $65676E61
008343F8 1300 adc eax, [eax]
008343FA 285183 sub [ecx-$7D], dl
008343FD 000C42 add [edx+eax*2], cl
00834400 7574 jnz 00834476
00834402 746F jz 00834473
00834404 6E outsb
00834405 32436C xor al, byte ptr [ebx+$6C]
00834408 69636B3000D05C imul esp, [ebx+$6B], $5CD00030
0083440F 830029 add dword ptr [eax], +$29
00834412 637847 arpl [eax+$47], di
00834415 7269 jb 00834480
00834417 6444 inc esp
00834419 42 inc edx
0083441A 43 inc ebx
0083441B 6F outsd
0083441C 6C insb
0083441D 756D jnz 0083448C
0083441F 6E outsb
00834420 385072 cmp [eax+$72], dl
00834423 6F outsd
00834424 7065 jo 0083448B
00834426 7274 jb 0083449C
00834428 69657345646974 imul esp, [ebp+$73], $74696445
0083442F 56 push esi
00834430 61 popa
00834431 6C insb
00834432 7565 jnz 00834499
00834434 43 inc ebx
00834435 68616E6765 push $65676E61
0083443A 643000 xor fs:[eax], al
0083443D 9C pushf
0083443E 5F pop edi
0083443F 830029 add dword ptr [eax], +$29
00834442 637847 arpl [eax+$47], di
00834445 7269 jb 008344B0
00834447 6444 inc esp
00834449 42 inc edx
0083444A 43 inc ebx
0083444B 6F outsd
0083444C 6C insb
0083444D 756D jnz 008344BC
0083444F 6E outsb
00834450 3550726F70 xor eax, $706F7250
00834455 657274 jb 008344CC
00834458 69657345646974 imul esp, [ebp+$73], $74696445
0083445F 56 push esi
00834460 61 popa
00834461 6C insb
00834462 7565 jnz 008344C9
00834464 43 inc ebx
00834465 68616E6765 push $65676E61
0083446A 643000 xor fs:[eax], al
0083446D E867830029 call 2983C7D9
00834472 637847 arpl [eax+$47], di
00834475 7269 jb 008344E0
00834477 6444 inc esp
00834479 42 inc edx
0083447A 43 inc ebx
0083447B 6F outsd
0083447C 6C insb
0083447D 756D jnz 008344EC
0083447F 6E outsb
00834480 315072 xor [eax+$72], edx
00834483 6F outsd
00834484 7065 jo 008344EB
00834486 7274 jb 008344FC
00834488 69657345646974 imul esp, [ebp+$73], $74696445
0083448F 56 push esi
00834490 61 popa
00834491 6C insb
00834492 7565 jnz 008344F9
00834494 43 inc ebx
00834495 68616E6765 push $65676E61
0083449A 6417 pop ss
0083449C 00B46A83001054 add [edx+ebp*2+$54100083], dh
008344A3 6F outsd
008344A4 6F outsd
008344A5 6C insb
008344A6 42 inc edx
008344A7 7574 jnz 0083451D
008344A9 746F jz 0083451A
008344AB 6E outsb
008344AC 33436C xor eax, [ebx+$6C]
008344AF 69636B2B00506D imul esp, [ebx+$6B], $6D50002B
008344B6 830024 add dword ptr [eax], +$24
008344B9 637847 arpl [eax+$47], di
008344BC 7269 jb 00834527
008344BE 6444 inc esp
008344C0 42 inc edx
008344C1 43 inc ebx
008344C2 6F outsd
008344C3 6C insb
008344C4 756D jnz 00834533
008344C6 6E outsb
008344C7 335072 xor edx, [eax+$72]
008344CA 6F outsd
008344CB 7065 jo 00834532
008344CD 7274 jb 00834543
008344CF 69657342757474 imul esp, [ebp+$73], $74747542
008344D6 6F outsd
008344D7 6E outsb
008344D8 43 inc ebx
008344D9 6C insb
008344DA 69636B2B00D071 imul esp, [ebx+$6B], $71D0002B
008344E1 830024 add dword ptr [eax], +$24
008344E4 637847 arpl [eax+$47], di
008344E7 7269 jb 00834552
008344E9 6444 inc esp
008344EB 42 inc edx
008344EC 43 inc ebx
008344ED 6F outsd
008344EE 6C insb
008344EF 756D jnz 0083455E
008344F1 6E outsb
008344F2 3650 push eax
008344F4 726F jb 00834565
008344F6 7065 jo 0083455D
008344F8 7274 jb 0083456E
008344FA 69657342757474 imul esp, [ebp+$73], $74747542
00834501 6F outsd
00834502 6E outsb
00834503 43 inc ebx
00834504 6C insb
00834505 69636B25002C75 imul esp, [ebx+$6B], $752C0025
0083450C 83001E add dword ptr [eax], +$1E
0083450F 7632 jbe 00834543
00834511 43 inc ebx
00834512 6F outsd
00834513 6C insb
00834514 756D jnz 00834583
00834516 6E outsb
00834517 335072 xor edx, [eax+$72]
0083451A 6F outsd
0083451B 7065 jo 00834582
0083451D 7274 jb 00834593
0083451F 69657342757474 imul esp, [ebp+$73], $74747542
00834526 6F outsd
00834527 6E outsb
00834528 43 inc ebx
00834529 6C insb
0083452A 69636B17007078 imul esp, [ebx+$6B], $78700017
00834531 830010 add dword ptr [eax], +$10
00834534 54 push esp
00834535 6F outsd
00834536 6F outsd
00834537 6C insb
00834538 42 inc edx
00834539 7574 jnz 008345AF
0083453B 746F jz 008345AC
0083453D 6E outsb
0083453E 31436C xor [ebx+$6C], eax
00834541 69636B2A00B078 imul esp, [ebx+$6B], $78B0002A
00834548 830023 add dword ptr [eax], +$23
0083454B 7632 jbe 0083457F
0083454D 43 inc ebx
0083454E 6F outsd
0083454F 6C insb
00834550 756D jnz 008345BF
00834552 6E outsb
00834553 3450 xor al, $50
00834555 726F jb 008345C6
00834557 7065 jo 008345BE
00834559 7274 jb 008345CF
0083455B 69657345646974 imul esp, [ebp+$73], $74696445
00834562 56 push esi
00834563 61 popa
00834564 6C insb
00834565 7565 jnz 008345CC
00834567 43 inc ebx
00834568 68616E6765 push $65676E61
0083456D 642500E07E83 and eax, $837EE000
00834573 001E add [esi], bl
00834575 7632 jbe 008345A9
00834577 43 inc ebx
00834578 6F outsd
00834579 6C insb
0083457A 756D jnz 008345E9
0083457C 6E outsb
0083457D 315072 xor [eax+$72], edx
00834580 6F outsd
00834581 7065 jo 008345E8
00834583 7274 jb 008345F9
00834585 69657342757474 imul esp, [ebp+$73], $74747542
0083458C 6F outsd
0083458D 6E outsb
0083458E 43 inc ebx
0083458F 6C insb
00834590 69636B24005083 imul esp, [ebx+$6B], $83500024
00834597 83001D add dword ptr [eax], +$1D
0083459A 56 push esi
0083459B 42 inc edx
0083459C 42 inc edx
0083459D 50 push eax
0083459E 726F jb 0083460F
008345A0 7065 jo 00834607
008345A2 7274 jb 00834618
008345A4 69657345646974 imul esp, [ebp+$73], $74696445
008345AB 56 push esi
008345AC 61 popa
008345AD 6C insb
008345AE 7565 jnz 00834615
008345B0 43 inc ebx
008345B1 68616E6765 push $65676E61
008345B6 6416 push ss
008345B8 00748783 add [edi+eax*4-$7D], dh
008345BC 000F add [edi], cl
008345BE 43 inc ebx
008345BF 6F outsd
008345C0 6D insd
008345C1 54 push esp
008345C2 61 popa
008345C3 69746F754368616E imul esi, [edi+ebp*2+$75], $6E616843
008345CB 67652A00 sub al, byte ptr gs:[bx+si]
008345CF 888783002376 mov [edi+$76230083], al
008345D5 32436F xor al, byte ptr [ebx+$6F]
008345D8 6C insb
008345D9 756D jnz 00834648
008345DB 6E outsb
008345DC 315072 xor [eax+$72], edx
008345DF 6F outsd
008345E0 7065 jo 00834647
008345E2 7274 jb 00834658
008345E4 69657345646974 imul esp, [ebp+$73], $74696445
008345EB 56 push esi
008345EC 61 popa
008345ED 6C insb
008345EE 7565 jnz 00834655
008345F0 43 inc ebx
008345F1 68616E6765 push $65676E61
008345F6 642E0008 add cs:[eax], cl
008345FA 8A8300277632 mov al, byte ptr [ebx+$32762700]
00834600 44 inc esp
00834601 657261 jb 00834665
00834604 7465 jz 0083466B
00834606 4D dec ebp
00834607 6F outsd
00834608 6E outsb
00834609 657950 jns 0083465C
0083460C 726F jb 0083467D
0083460E 7065 jo 00834675
00834610 7274 jb 00834686
00834612 69657345646974 imul esp, [ebp+$73], $74696445
00834619 56 push esi
0083461A 61 popa
0083461B 6C insb
0083461C 7565 jnz 00834683
0083461E 43 inc ebx
0083461F 68616E6765 push $65676E61
00834624 642800 sub fs:[eax], al
00834627 048C add al, -$74
00834629 830021 add dword ptr [eax], +$21
0083462C 7632 jbe 00834660
0083462E 667374 jnb 008346A5
00834631 7231 jb 00834664
00834633 50 push eax
00834634 726F jb 008346A5
00834636 7065 jo 0083469D
00834638 7274 jb 008346AE
0083463A 69657345646974 imul esp, [ebp+$73], $74696445
00834641 56 push esi
00834642 61 popa
00834643 6C insb
00834644 7565 jnz 008346AB
00834646 43 inc ebx
00834647 68616E6765 push $65676E61
0083464C 641000 adc fs:[eax], al
0083464F 708D jo 008345DE
00834651 830009 add dword ptr [eax], +$09
00834654 54 push esp
00834655 63686B arpl [eax+$6B], bp
00834658 43 inc ebx
00834659 6C insb
0083465A 69636B12005490 imul esp, [ebx+$6B], $90540012
00834661 83000B add dword ptr [eax], +$0B
00834664 54 push esp
00834665 4E dec esi
00834666 6F outsd
00834667 63686B arpl [eax+$6B], bp
0083466A 43 inc ebx
0083466B 6C insb
0083466C 69636B1A000493 imul esp, [ebx+$6B], $9304001A
00834673 830013 add dword ptr [eax], +$13
00834676 637854 arpl [eax+$54], di
00834679 61 popa
0083467A 62436F bound eax, qword ptr [ebx+$6F]
0083467D 6E outsb
0083467E 7472 jz 008346F2
00834680 6F outsd
00834681 6C insb
00834682 314368 xor [ebx+$68], eax
00834685 61 popa
00834686 6E outsb
00834687 67651100 adc gs:[bx+si], eax
0083468B 189383000A4E sbb [ebx+$4E0A0083], dl
00834691 6F outsd
00834692 63686B arpl [eax+$6B], bp
00834695 43 inc ebx
00834696 6C insb
00834697 69636B0E00AC96 imul esp, [ebx+$6B], $96AC000E
0083469E 830007 add dword ptr [eax], +$07
008346A1 4E dec esi
008346A2 31436C xor [ebx+$6C], eax
008346A5 69636B0E00BC96 imul esp, [ebx+$6B], $96BC000E
008346AC 830007 add dword ptr [eax], +$07
008346AF 4E dec esi
008346B0 32436C xor al, byte ptr [ebx+$6C]
008346B3 69636B1500CC96 imul esp, [ebx+$6B], $96CC0015
008346BA 83000E add dword ptr [eax], +$0E
008346BD 43 inc ebx
008346BE 6865636B42 push $426B6365
008346C3 6F outsd
008346C4 7831 js 008346F7
008346C6 43 inc ebx
008346C7 6C insb
008346C8 69636B1D005C98 imul esp, [ebx+$6B], $985C001D
008346CF 830016 add dword ptr [eax], +$16
008346D2 7632 jbe 00834706
008346D4 53 push ebx
008346D5 7365 jnb 0083473C
008346D7 6C insb
008346D8 50 push eax
008346D9 726F jb 0083474A
008346DB 7065 jo 00834742
008346DD 7274 jb 00834753
008346DF 6965734368616E imul esp, [ebp+$73], $6E616843
008346E6 67650B5466 or edx, gs:[si+$66]
008346EB 726D jb 0083475A
008346ED 46 inc esi
008346EE 4B dec ebx
008346EF 43 inc ebx
008346F0 52 push edx
008346F1 5F pop edi
008346F2 53 push ebx
008346F3 48 dec eax
008346F4 1400 adc al, $00
008346F6 28944500648A45 sub [ebp+eax*2+$458A6400], dl
008346FD 00B8124D0020 add [eax+$20004D12], bh
00834703 42 inc edx
00834704 44 inc esp
00834705 001C5F add [edi+ebx*2], bl
00834708 47 inc edi
00834709 00B867470064 add [eax+$64004767], bh
0083470F D37800 sar dword ptr [eax+$00], cl
00834712 A80A test al, $0A
00834714 7800 js 00834716
00834716 E0A5 loopn -$5B
00834718 45 inc ebp
00834719 005876 add [eax+$76], bl
0083471C 7C00 jl 0083471E
0083471E 087F4B or [edi+$4B], bh
00834721 0088996A0064 add [eax+$64006A99], cl
00834727 5D pop ebp
00834728 57 push edi
00834729 00887E49008C add [eax+$8C00497E], cl
0083472F 7649 jbe 0083477A
00834731 00C0 add al, al
00834733 96 xchg eax, esi
00834734 47 inc edi
00834735 0000 add [eax], al
00834737 16 push ss
00834738 6300 arpl [eax], ax
0083473A F4 hlt
0083473B B466 mov ah, $66
0083473D 0034B1 add [ecx+esi*4], dh
00834740 6600A40E64008BC0 add [esi+ecx+$C08B0064], ah
00834748 4C dec esp
00834749 47 inc edi
0083474A 830007 add dword ptr [eax], +$07
0083474D 0B546672 or edx, [esi+$72]
00834751 6D insd
00834752 46 inc esi
00834753 4B dec ebx
00834754 43 inc ebx
00834755 52 push edx
00834756 5F pop edi
00834757 53 push ebx
00834758 48 dec eax
00834759 5C pop esp
0083475A 3E8300D0 add dword ptr ds:[eax], -$30
0083475E F2 repne
0083475F 49 dec ecx
00834760 005E00 add [esi+$00], bl
00834763 09555F or [ebp+$5F], edx
00834766 46 inc esi
00834767 4B dec ebx
00834768 43 inc ebx
00834769 52 push edx
0083476A 5F pop edi
0083476B 53 push ebx
0083476C 48 dec eax
0083476D 0000 add [eax], al
0083476F 90 nop
00834770 55 push ebp
00834771 8BEC mov ebp, esp
00834773 6A00 push $00
00834775 6A00 push $00
00834777 53 push ebx
00834778 56 push esi
00834779 57 push edi
0083477A 8BD8 mov ebx, eax
0083477C 33C0 xor eax, eax
0083477E 55 push ebp
0083477F 686A488300 push $0083486A
***** TRY
|
00834784 64FF30 push dword ptr fs:[eax]
00834787 648920 mov fs:[eax], esp
0083478A 33D2 xor edx, edx
* Reference to control ConNo : N.A.
|
0083478C 8B8360030000 mov eax, [ebx+$0360]
00834792 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00834794 FF5164 call dword ptr [ecx+$64]
00834797 33D2 xor edx, edx
* Reference to control Label11 : TLabel
|
00834799 8B8364030000 mov eax, [ebx+$0364]
0083479F 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
008347A1 FF5164 call dword ptr [ecx+$64]
008347A4 33D2 xor edx, edx
* Reference to control TBClose : TToolButton
|
008347A6 8B8300030000 mov eax, [ebx+$0300]
008347AC 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetEnabled(Boolean)
|
008347AE FF5164 call dword ptr [ecx+$64]
* Reference to control Label17 : TLabel
|
008347B1 8B83A8030000 mov eax, [ebx+$03A8]
* Reference to: QStdCtrls.TCustomLabel.Notification(TCustomLabel;TComponent;TOperation);
| or: QStdCtrls.TCustomLabel.SetTransparent(TCustomLabel;Boolean);
|
008347B7 E8887BE2FF call 0065C344
008347BC 8BF8 mov edi, eax
008347BE 4F dec edi
008347BF 85FF test edi, edi
008347C1 7C54 jl 00834817
008347C3 47 inc edi
008347C4 33F6 xor esi, esi
008347C6 8BD6 mov edx, esi
* Reference to control Label17 : TLabel
|
008347C8 8B83A8030000 mov eax, [ebx+$03A8]
* Reference to: StdCtrls.TCustomLabel.GetLabelText(TCustomLabel):AnsiString;
|
008347CE E8FD71E3FF call 0066B9D0
|
008347D3 E84870E3FF call 0066B820
008347D8 8D55F8 lea edx, [ebp-$08]
|
008347DB E8E865E3FF call 0066ADC8
008347E0 8B45F8 mov eax, [ebp-$08]
008347E3 8D55FC lea edx, [ebp-$04]
|
008347E6 E8915CBDFF call 0040A47C
008347EB 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: 'SSEL'
|
008347EE BA80488300 mov edx, $00834880
* Reference to: System.@LStrCmp;
|
008347F3 E8480FBDFF call 00405740
008347F8 7419 jz 00834813
008347FA 8BD6 mov edx, esi
* Reference to control Label17 : TLabel
|
008347FC 8B83A8030000 mov eax, [ebx+$03A8]
* Reference to: StdCtrls.TCustomLabel.GetLabelText(TCustomLabel):AnsiString;
|
00834802 E8C971E3FF call 0066B9D0
|
00834807 E8C459E2FF call 0065A1D0
0083480C 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
0083480E E84D47DFFF call 00628F60
00834813 46 inc esi
00834814 4F dec edi
00834815 75AF jnz 008347C6
* Reference to control Label10 : TLabel
|
00834817 8B835C030000 mov eax, [ebx+$035C]
* Reference to control ADOTemp : N.A.
|
0083481D 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00834824 750D jnz 00834833
00834826 B201 mov dl, $01
* Reference to control ConNo : N.A.
|
00834828 8B8360030000 mov eax, [ebx+$0360]
0083482E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00834830 FF5164 call dword ptr [ecx+$64]
* Reference to control Label10 : TLabel
|
00834833 8B835C030000 mov eax, [ebx+$035C]
* Reference to control ADOTemp : N.A.
|
00834839 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00834840 750D jnz 0083484F
00834842 B201 mov dl, $01
* Reference to control Label11 : TLabel
|
00834844 8B8364030000 mov eax, [ebx+$0364]
0083484A 8B08 mov ecx, [eax]
* Reference to method TLabel.SetEnabled(Boolean)
|
0083484C FF5164 call dword ptr [ecx+$64]
0083484F 33C0 xor eax, eax
00834851 5A pop edx
00834852 59 pop ecx
00834853 59 pop ecx
00834854 648910 mov fs:[eax], edx
****** FINALLY
|
00834857 6871488300 push $00834871
0083485C 8D45F8 lea eax, [ebp-$08]
0083485F BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00834864 E8DF0ABDFF call 00405348
00834869 C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink