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

10824 lines
403 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_SKCR_YF;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmSKCR_YF=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
Label1: TLabel;
YWY: TEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RMDB_PB: TRMDBDataSet;
Label3: TLabel;
CustomerNoName: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
V1OrdDate: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
v2CustomerNoName: TcxGridDBColumn;
v2ConNo: TcxGridDBColumn;
TCK: TToolButton;
Label4: TLabel;
ConNo: TEdit;
v2YWY: TcxGridDBColumn;
v2PBMoney: TcxGridDBColumn;
v2JGMoney: TcxGridDBColumn;
v2ZFMoney: TcxGridDBColumn;
v2MLMoney: TcxGridDBColumn;
TPrint: TToolButton;
v2SKMoney: TcxGridDBColumn;
Order_PB: TClientDataSet;
Order_FYZC: TClientDataSet;
Order_RF: TClientDataSet;
Order_XS: TClientDataSet;
Order_SK: TClientDataSet;
RMDB_FYZC: TRMDBDataSet;
RMD_RF: TRMDBDataSet;
RMDB_XS: TRMDBDataSet;
RMDB_SK: TRMDBDataSet;
ADOQuery1: TADOQuery;
RMXLSExport1: TRMXLSExport;
ADOQuery2: TADOQuery;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
ADOQuery5: TADOQuery;
RM1: TRMGridReport;
v2YGMoney: TcxGridDBColumn;
THTCX: TToolButton;
v2MPRTCodeName: TcxGridDBColumn;
v2Qty: TcxGridDBColumn;
v2QTYUnit: TcxGridDBColumn;
v2TSMoney: TcxGridDBColumn;
v2YSZMoney: TcxGridDBColumn;
v2OrderNo: TcxGridDBColumn;
Label2: TLabel;
OrderNO: TEdit;
ComboBox1: TComboBox;
RMD_FL: TRMDBDataSet;
Order_FL: TClientDataSet;
ADOQuery6: TADOQuery;
v2FLMoney: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
v2CJJGBiLV: TcxGridDBColumn;
v2JFJGMoney: TcxGridDBColumn;
ToolButton3: TToolButton;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure CustomerNoNameChange(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure v2Column4PropertiesEditValueChanged(Sender : TObject);
procedure v2Column1PropertiesButtonClick(Sender : TObject);
procedure VBBPropertiesEditValueChanged(Sender : TObject);
procedure ConNoChange(Sender : TObject);
procedure v2Column1PropertiesEditValueChanged(Sender : TObject);
procedure v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
procedure cxTabControl1Change(Sender : TObject);
procedure v2ComTaitouPropertiesButtonClick(Sender : TObject);
procedure TCKClick(Sender : TObject);
procedure Tv2CellDblClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure TPrintClick(Sender : TObject);
procedure THTCXClick(Sender : TObject);
procedure ComboBox1Change(Sender : TObject);
procedure v2CJJGBiLVPropertiesEditValueChanged(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure _PROC_00843ACD(Sender : TObject);
procedure _PROC_008442C1(Sender : TObject);
procedure _PROC_00844615(Sender : TObject);
procedure _PROC_00844A95(Sender : TObject);
procedure _PROC_00844DB2(Sender : TObject);
procedure _PROC_00844DE8(Sender : TObject);
procedure _PROC_00844DF5(Sender : TObject);
procedure _PROC_00845139(Sender : TObject);
procedure _PROC_0084575D(Sender : TObject);
procedure _PROC_00845B8D(Sender : TObject);
procedure _PROC_00845F81(Sender : TObject);
procedure _PROC_00846239(Sender : TObject);
procedure _PROC_0084644D(Sender : TObject);
procedure _PROC_00846769(Sender : TObject);
procedure _PROC_00848172(Sender : TObject);
procedure _PROC_00848AA5(Sender : TObject);
procedure _PROC_00848AD4(Sender : TObject);
procedure _PROC_00848ADC(Sender : TObject);
procedure _PROC_00848B0C(Sender : TObject);
procedure _PROC_00848B14(Sender : TObject);
procedure _PROC_00848B44(Sender : TObject);
procedure _PROC_00848B4C(Sender : TObject);
procedure _PROC_00848B7C(Sender : TObject);
procedure _PROC_00848B84(Sender : TObject);
procedure _PROC_00848BB4(Sender : TObject);
procedure _PROC_00848BBC(Sender : TObject);
procedure _PROC_00848BEC(Sender : TObject);
procedure _PROC_00848BF4(Sender : TObject);
procedure _PROC_00848C24(Sender : TObject);
procedure _PROC_00848C2C(Sender : TObject);
procedure _PROC_00848C5C(Sender : TObject);
procedure _PROC_00848C64(Sender : TObject);
procedure _PROC_00848CCA(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmSKCR_YF: TfrmSKCR_YF;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmSKCR_YF.FormDestroy(Sender : TObject);
begin
(*
008435A0 33C0 xor eax, eax
* Reference to GlobalVar_00895A48
|
008435A2 A3485A8900 mov dword ptr [$00895A48], eax
008435A7 C3 ret
*)
end;
procedure TfrmSKCR_YF.FormClose(Sender : TObject);
begin
(*
008435A8 C60102 mov byte ptr [ecx], $02
008435AB C3 ret
*)
end;
procedure TfrmSKCR_YF.TBCloseClick(Sender : TObject);
begin
(*
008435AC 53 push ebx
008435AD 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008435AF B9D8358400 mov ecx, $008435D8
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
008435B4 8B9334030000 mov edx, [ebx+$0334]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ë<EFBFBD><C3AB>'
|
008435BA B8EC358400 mov eax, $008435EC
|
008435BF E8DC45F7FF call 007B7BA0
008435C4 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
008435C6 E8CD29C6FF call 004A5F98
008435CB 5B pop ebx
008435CC C3 ret
*)
end;
procedure TfrmSKCR_YF.FormShow(Sender : TObject);
begin
(*
008435F8 53 push ebx
008435F9 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008435FB B95C368400 mov ecx, $0084365C
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
00843600 8B9334030000 mov edx, [ebx+$0334]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ë<EFBFBD><C3AB>'
|
00843606 B870368400 mov eax, $00843670
|
0084360B E89443F7FF call 007B79A4
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
00843610 8B8304030000 mov eax, [ebx+$0304]
|
00843616 E86D13F7FF call 007B4988
0084361B 83C4F8 add esp, -$08
0084361E DD1C24 fstp qword ptr [esp]
00843621 9B wait
* Reference to control TfrmSKCR_YF.Enddate : TDateTimePicker
|
00843622 8B8348030000 mov eax, [ebx+$0348]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00843628 E8FFEBC2FF call 0047222C
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
0084362D 8B8304030000 mov eax, [ebx+$0304]
|
00843633 E85013F7FF call 007B4988
00843638 D8257C368400 fsub dword ptr [$0084367C]
0084363E 83C4F8 add esp, -$08
00843641 DD1C24 fstp qword ptr [esp]
00843644 9B wait
* Reference to control TfrmSKCR_YF.begdate : TDateTimePicker
|
00843645 8B8344030000 mov eax, [ebx+$0344]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
0084364B E8DCEBC2FF call 0047222C
00843650 5B pop ebx
00843651 C3 ret
*)
end;
procedure TfrmSKCR_YF.TBRafreshClick(Sender : TObject);
begin
(*
|
00843680 E833FBFFFF call 008431B8
00843685 C3 ret
*)
end;
procedure TfrmSKCR_YF.ToolButton2Click(Sender : TObject);
begin
(*
00843688 55 push ebp
00843689 8BEC mov ebp, esp
0084368B 6A00 push $00
0084368D 53 push ebx
0084368E 8BD8 mov ebx, eax
00843690 33C0 xor eax, eax
00843692 55 push ebp
00843693 680C378400 push $0084370C
***** TRY
|
00843698 64FF30 push dword ptr fs:[eax]
0084369B 648920 mov fs:[eax], esp
* Reference to control TfrmSKCR_YF.ADOQueryMain : TADOQuery
|
0084369E 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
008436A4 E86B23C8FF call 004C5A14
008436A9 84C0 test al, al
008436AB 7449 jz 008436F6
008436AD 8D45FC lea eax, [ebp-$04]
008436B0 50 push eax
008436B1 B902000000 mov ecx, $00000002
008436B6 BA01000000 mov edx, $00000001
* Reference to control TfrmSKCR_YF.Panel1 : TPanel
|
008436BB 8B830C030000 mov eax, [ebx+$030C]
|
008436C1 E8EA29F7FF call 007B60B0
008436C6 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmSKCR_YF.ADOQueryMain : TADOQuery
|
008436C9 8B831C030000 mov eax, [ebx+$031C]
|
008436CF E8F435F7FF call 007B6CC8
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008436D4 8B9354030000 mov edx, [ebx+$0354]
* Reference to control TfrmSKCR_YF.ADOQueryMain : TADOQuery
|
008436DA 8B831C030000 mov eax, [ebx+$031C]
|
008436E0 E8AB37F7FF call 007B6E90
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008436E5 8B9354030000 mov edx, [ebx+$0354]
* Reference to control TfrmSKCR_YF.ADOQueryMain : TADOQuery
|
008436EB 8B831C030000 mov eax, [ebx+$031C]
|
008436F1 E82239F7FF call 007B7018
008436F6 33C0 xor eax, eax
008436F8 5A pop edx
008436F9 59 pop ecx
008436FA 59 pop ecx
008436FB 648910 mov fs:[eax], edx
****** FINALLY
|
008436FE 6813378400 push $00843713
00843703 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00843706 E8191CBCFF call 00405324
0084370B C3 ret
* Reference to: System.@HandleFinally;
|
0084370C E9E313BCFF jmp 00404AF4
00843711 EBF0 jmp 00843703
****** END
|
00843713 5B pop ebx
00843714 59 pop ecx
00843715 5D pop ebp
00843716 C3 ret
*)
end;
procedure TfrmSKCR_YF.CustomerNoNameChange(Sender : TObject);
begin
(*
00843718 56 push esi
* Reference to control TfrmSKCR_YF.ToolButton2 : TToolButton
|
00843719 8B8010030000 mov eax, [eax+$0310]
0084371F 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00843723 E82C0EBCFF call 00404554
00843728 5E pop esi
00843729 C3 ret
*)
end;
procedure TfrmSKCR_YF.Button2Click(Sender : TObject);
begin
(*
0084372C 55 push ebp
0084372D 8BEC mov ebp, esp
0084372F 33C9 xor ecx, ecx
00843731 51 push ecx
00843732 51 push ecx
00843733 51 push ecx
00843734 51 push ecx
00843735 51 push ecx
00843736 53 push ebx
00843737 56 push esi
00843738 8BD8 mov ebx, eax
0084373A 33C0 xor eax, eax
0084373C 55 push ebp
0084373D 6839388400 push $00843839
***** TRY
|
00843742 64FF30 push dword ptr fs:[eax]
00843745 648920 mov fs:[eax], esp
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843748 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0084374E E86D47C8FF call 004C7EC0
00843753 84C0 test al, al
00843755 0F85C3000000 jnz 0084381E
0084375B 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
0084375D B948388400 mov ecx, $00843848
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00843762 BA50388400 mov edx, $00843850
*)
end;
procedure TfrmSKCR_YF.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
008438A8 55 push ebp
008438A9 8BEC mov ebp, esp
008438AB B908000000 mov ecx, $00000008
008438B0 6A00 push $00
008438B2 6A00 push $00
008438B4 49 dec ecx
008438B5 75F9 jnz 008438B0
008438B7 51 push ecx
008438B8 53 push ebx
008438B9 56 push esi
008438BA 8BDA mov ebx, edx
008438BC 8BF0 mov esi, eax
008438BE 33C0 xor eax, eax
008438C0 55 push ebp
008438C1 68B63A8400 push $00843AB6
***** TRY
|
008438C6 64FF30 push dword ptr fs:[eax]
008438C9 648920 mov fs:[eax], esp
008438CC 8D55FC lea edx, [ebp-$04]
008438CF 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;
|
008438D1 E8E6BDD4FF call 0058F6BC
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
008438D6 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008438DC E86B8AE1FF 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;
|
008438E1 E87EE2E0FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008438E6 8B4050 mov eax, [eax+$50]
008438E9 8D55F4 lea edx, [ebp-$0C]
008438EC 8B08 mov ecx, [eax]
008438EE FF5110 call dword ptr [ecx+$10]
008438F1 8B45F4 mov eax, [ebp-$0C]
008438F4 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008438F7 E8F06FBCFF call 0040A8EC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008438FC 8B9E54030000 mov ebx, [esi+$0354]
00843902 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00843904 E8374BC8FF call 004C8440
00843909 8D55E0 lea edx, [ebp-$20]
0084390C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084390F E8D86FBCFF call 0040A8EC
00843914 8B55E0 mov edx, [ebp-$20]
00843917 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0084391A E8A954BDFF call 00418DC8
0084391F 8D45E4 lea eax, [ebp-$1C]
00843922 50 push eax
00843923 8B55F8 mov edx, [ebp-$08]
00843926 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843928 E88732C8FF call 004C6BB4
0084392D 5A pop edx
0084392E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00843930 FF91B4000000 call dword ptr [ecx+$00B4]
00843936 8BC3 mov eax, ebx
00843938 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0084393A FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
00843940 8B9E08030000 mov ebx, [esi+$0308]
00843946 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00843948 E8871FC8FF call 004C58D4
0084394D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084394F E858A6C9FF call 004DDFAC
00843954 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00843956 FF5244 call dword ptr [edx+$44]
00843959 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084395B E84CA6C9FF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
00843960 BACC3A8400 mov edx, $00843ACC
00843965 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00843967 FF5138 call dword ptr [ecx+$38]
0084396A 8D55DC lea edx, [ebp-$24]
0084396D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843970 E8776FBCFF call 0040A8EC
00843975 837DDC00 cmp dword ptr [ebp-$24], +$00
00843979 7440 jz 008439BB
* Possible String Reference to: ' Set '
|
0084397B 68E83A8400 push $00843AE8
00843980 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00843983 68F83A8400 push $00843AF8
00843988 8D55D4 lea edx, [ebp-$2C]
0084398B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084398E E8596FBCFF call 0040A8EC
00843993 FF75D4 push dword ptr [ebp-$2C]
00843996 68043B8400 push $00843B04
0084399B 8D45D8 lea eax, [ebp-$28]
0084399E BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008439A3 E80C1DBCFF call 004056B4
008439A8 8B45D8 mov eax, [ebp-$28]
008439AB 50 push eax
008439AC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008439AE E8F9A5C9FF call 004DDFAC
008439B3 5A pop edx
008439B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008439B6 FF5138 call dword ptr [ecx+$38]
008439B9 EB2B jmp 008439E6
008439BB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008439BD E8EAA5C9FF call 004DDFAC
008439C2 50 push eax
* Possible String Reference to: ' Set '
|
008439C3 68E83A8400 push $00843AE8
008439C8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
008439CB 68103B8400 push $00843B10
008439D0 8D45D0 lea eax, [ebp-$30]
008439D3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008439D8 E8D71CBCFF call 004056B4
008439DD 8B55D0 mov edx, [ebp-$30]
008439E0 58 pop eax
008439E1 8B08 mov ecx, [eax]
008439E3 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008439E6 68203B8400 push $00843B20
008439EB 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmSKCR_YF.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
00843B74 55 push ebp
00843B75 8BEC mov ebp, esp
00843B77 B91C000000 mov ecx, $0000001C
00843B7C 6A00 push $00
00843B7E 6A00 push $00
00843B80 49 dec ecx
00843B81 75F9 jnz 00843B7C
00843B83 51 push ecx
00843B84 53 push ebx
00843B85 56 push esi
00843B86 8BF2 mov esi, edx
00843B88 8BD8 mov ebx, eax
00843B8A 33C0 xor eax, eax
00843B8C 55 push ebp
00843B8D 68EF418400 push $008441EF
***** TRY
|
00843B92 64FF30 push dword ptr fs:[eax]
00843B95 648920 mov fs:[eax], esp
00843B98 8D55FC lea edx, [ebp-$04]
00843B9B 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;
|
00843B9D E81ABBD4FF call 0058F6BC
00843BA2 8D55DC lea edx, [ebp-$24]
00843BA5 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843BA8 E83F6DBCFF call 0040A8EC
00843BAD 837DDC00 cmp dword ptr [ebp-$24], +$00
00843BB1 750D jnz 00843BC0
00843BB3 8D45FC lea eax, [ebp-$04]
00843BB6 BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843BBB E8FC17BCFF call 004053BC
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
00843BC0 8B8334030000 mov eax, [ebx+$0334]
* 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;
|
00843BC6 E88187E1FF 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;
|
00843BCB E894DFE0FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00843BD0 8B4050 mov eax, [eax+$50]
00843BD3 8D55D8 lea edx, [ebp-$28]
00843BD6 8B08 mov ecx, [eax]
00843BD8 FF5110 call dword ptr [ecx+$10]
00843BDB 8B45D8 mov eax, [ebp-$28]
00843BDE 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843BE1 E8066DBCFF call 0040A8EC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843BE6 8BB354030000 mov esi, [ebx+$0354]
00843BEC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00843BEE E84D48C8FF call 004C8440
00843BF3 8D55C4 lea edx, [ebp-$3C]
00843BF6 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843BF9 E8EE6CBCFF call 0040A8EC
00843BFE 8B55C4 mov edx, [ebp-$3C]
00843C01 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00843C04 E8BF51BDFF call 00418DC8
00843C09 8D45C8 lea eax, [ebp-$38]
00843C0C 50 push eax
00843C0D 8B55E0 mov edx, [ebp-$20]
00843C10 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843C12 E89D2FC8FF call 004C6BB4
00843C17 5A pop edx
00843C18 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00843C1A FF91B4000000 call dword ptr [ecx+$00B4]
00843C20 8BC6 mov eax, esi
00843C22 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00843C24 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
00843C2A 8BB304030000 mov esi, [ebx+$0304]
00843C30 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00843C32 E89D1CC8FF call 004C58D4
00843C37 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00843C39 E86EA3C9FF call 004DDFAC
00843C3E 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00843C40 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
00843C43 6810428400 push $00844210
* Possible String Reference to: 'YFID'
|
00843C48 BA58428400 mov edx, $00844258
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843C4D 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843C53 E85C2FC8FF call 004C6BB4
00843C58 8D55BC lea edx, [ebp-$44]
00843C5B 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00843C5D FF5160 call dword ptr [ecx+$60]
00843C60 FF75BC push dword ptr [ebp-$44]
00843C63 6868428400 push $00844268
00843C68 8D45C0 lea eax, [ebp-$40]
00843C6B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00843C70 E83F1ABCFF call 004056B4
00843C75 8B45C0 mov eax, [ebp-$40]
00843C78 50 push eax
00843C79 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00843C7B E82CA3C9FF call 004DDFAC
00843C80 5A pop edx
00843C81 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00843C83 FF5138 call dword ptr [ecx+$38]
00843C86 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00843C88 E83B1CC8FF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00843C8D BA74428400 mov edx, $00844274
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
00843C92 8B8304030000 mov eax, [ebx+$0304]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843C98 E8172FC8FF call 004C6BB4
00843C9D 8D55E4 lea edx, [ebp-$1C]
00843CA0 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00843CA2 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
00843CA5 BA84428400 mov edx, $00844284
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843CAA 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843CB0 E8FF2EC8FF call 004C6BB4
00843CB5 8D55B8 lea edx, [ebp-$48]
00843CB8 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00843CBA FF5160 call dword ptr [ecx+$60]
00843CBD 8B45B8 mov eax, [ebp-$48]
00843CC0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843CC3 E8246CBCFF call 0040A8EC
00843CC8 8D55B4 lea edx, [ebp-$4C]
00843CCB 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843CCE E8196CBCFF call 0040A8EC
00843CD3 837DB400 cmp dword ptr [ebp-$4C], +$00
00843CD7 750D jnz 00843CE6
00843CD9 8D45F8 lea eax, [ebp-$08]
00843CDC BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843CE1 E8D616BCFF call 004053BC
* Possible String Reference to: 'Price'
|
00843CE6 BA90428400 mov edx, $00844290
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843CEB 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843CF1 E8BE2EC8FF call 004C6BB4
00843CF6 8D55B0 lea edx, [ebp-$50]
00843CF9 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00843CFB FF5160 call dword ptr [ecx+$60]
00843CFE 8B45B0 mov eax, [ebp-$50]
00843D01 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D04 E8E36BBCFF call 0040A8EC
00843D09 8D55AC lea edx, [ebp-$54]
00843D0C 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D0F E8D86BBCFF call 0040A8EC
00843D14 837DAC00 cmp dword ptr [ebp-$54], +$00
00843D18 750D jnz 00843D27
00843D1A 8D45F4 lea eax, [ebp-$0C]
00843D1D BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843D22 E89516BCFF call 004053BC
* Possible String Reference to: 'Qty'
|
00843D27 BA84428400 mov edx, $00844284
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843D2C 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843D32 E87D2EC8FF call 004C6BB4
00843D37 8D55A8 lea edx, [ebp-$58]
00843D3A 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00843D3C FF5160 call dword ptr [ecx+$60]
00843D3F 8B45A8 mov eax, [ebp-$58]
00843D42 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D45 E8A26BBCFF call 0040A8EC
00843D4A 8D55A4 lea edx, [ebp-$5C]
00843D4D 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D50 E8976BBCFF call 0040A8EC
00843D55 837DA400 cmp dword ptr [ebp-$5C], +$00
00843D59 750D jnz 00843D68
00843D5B 8D45F8 lea eax, [ebp-$08]
00843D5E BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843D63 E85416BCFF call 004053BC
* Possible String Reference to: 'Money'
|
00843D68 BAA0428400 mov edx, $008442A0
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843D6D 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843D73 E83C2EC8FF call 004C6BB4
00843D78 8D55A0 lea edx, [ebp-$60]
00843D7B 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00843D7D FF5160 call dword ptr [ecx+$60]
00843D80 8B45A0 mov eax, [ebp-$60]
00843D83 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D86 E8616BBCFF call 0040A8EC
00843D8B 8D559C lea edx, [ebp-$64]
00843D8E 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D91 E8566BBCFF call 0040A8EC
00843D96 837D9C00 cmp dword ptr [ebp-$64], +$00
00843D9A 750D jnz 00843DA9
00843D9C 8D45F0 lea eax, [ebp-$10]
00843D9F BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843DA4 E81316BCFF call 004053BC
* Possible String Reference to: 'HuiLv'
|
00843DA9 BAB0428400 mov edx, $008442B0
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843DAE 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843DB4 E8FB2DC8FF call 004C6BB4
00843DB9 8D5598 lea edx, [ebp-$68]
00843DBC 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00843DBE FF5160 call dword ptr [ecx+$60]
00843DC1 8B4598 mov eax, [ebp-$68]
00843DC4 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843DC7 E8206BBCFF call 0040A8EC
00843DCC 8D5594 lea edx, [ebp-$6C]
00843DCF 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843DD2 E8156BBCFF call 0040A8EC
00843DD7 837D9400 cmp dword ptr [ebp-$6C], +$00
00843DDB 750D jnz 00843DEA
00843DDD 8D45EC lea eax, [ebp-$14]
00843DE0 BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843DE5 E8D215BCFF call 004053BC
00843DEA 8D5590 lea edx, [ebp-$70]
00843DED 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843DF0 E8F76ABCFF call 0040A8EC
00843DF5 8B4590 mov eax, [ebp-$70]
* Possible String Reference to: 'Money'
|
00843DF8 BAA0428400 mov edx, $008442A0
* Reference to: System.@LStrCmp;
|
00843DFD E83E19BCFF call 00405740
00843E02 0F84AD000000 jz 00843EB5
00843E08 8D558C lea edx, [ebp-$74]
00843E0B 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843E0E E8D96ABCFF call 0040A8EC
00843E13 8B458C mov eax, [ebp-$74]
* Possible String Reference to: 'HuiLv'
|
00843E16 BAB0428400 mov edx, $008442B0
* Reference to: System.@LStrCmp;
|
00843E1B E82019BCFF call 00405740
00843E20 7469 jz 00843E8B
00843E22 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E25 E80299BCFF call 0040D72C
00843E2A DB7D80 fstp tbyte ptr [ebp-$80]
00843E2D 9B wait
00843E2E 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E31 E8F698BCFF call 0040D72C
00843E36 DB6D80 fld tbyte ptr [ebp-$80]
00843E39 DEC9 fmulp st(1), st(0)
00843E3B DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
00843E41 9B wait
00843E42 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E45 E8E298BCFF call 0040D72C
00843E4A DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
00843E50 DEC9 fmulp st(1), st(0)
00843E52 83C4F4 add esp, -$0C
00843E55 DB3C24 fstp tbyte ptr [esp]
00843E58 9B wait
00843E59 8D45E8 lea eax, [ebp-$18]
|
00843E5C E84B97BCFF call 0040D5AC
00843E61 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E64 E8C398BCFF call 0040D72C
00843E69 DB7D80 fstp tbyte ptr [ebp-$80]
00843E6C 9B wait
00843E6D 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E70 E8B798BCFF call 0040D72C
00843E75 DB6D80 fld tbyte ptr [ebp-$80]
00843E78 DEC9 fmulp st(1), st(0)
00843E7A 83C4F4 add esp, -$0C
00843E7D DB3C24 fstp tbyte ptr [esp]
00843E80 9B wait
00843E81 8D45F0 lea eax, [ebp-$10]
|
00843E84 E82397BCFF call 0040D5AC
00843E89 EB52 jmp 00843EDD
00843E8B 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E8E E89998BCFF call 0040D72C
00843E93 DB7D80 fstp tbyte ptr [ebp-$80]
00843E96 9B wait
00843E97 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E9A E88D98BCFF call 0040D72C
00843E9F DB6D80 fld tbyte ptr [ebp-$80]
00843EA2 DEC9 fmulp st(1), st(0)
00843EA4 83C4F4 add esp, -$0C
00843EA7 DB3C24 fstp tbyte ptr [esp]
00843EAA 9B wait
00843EAB 8D45E8 lea eax, [ebp-$18]
|
00843EAE E8F996BCFF call 0040D5AC
00843EB3 EB28 jmp 00843EDD
00843EB5 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843EB8 E86F98BCFF call 0040D72C
00843EBD DB7D80 fstp tbyte ptr [ebp-$80]
00843EC0 9B wait
00843EC1 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843EC4 E86398BCFF call 0040D72C
00843EC9 DB6D80 fld tbyte ptr [ebp-$80]
00843ECC DEC9 fmulp st(1), st(0)
00843ECE 83C4F4 add esp, -$0C
00843ED1 DB3C24 fstp tbyte ptr [esp]
00843ED4 9B wait
00843ED5 8D45E8 lea eax, [ebp-$18]
|
00843ED8 E8CF96BCFF call 0040D5AC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00843EDD 8BB354030000 mov esi, [ebx+$0354]
00843EE3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00843EE5 E85645C8FF call 004C8440
* Possible String Reference to: 'Money'
|
00843EEA BAA0428400 mov edx, $008442A0
00843EEF 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843EF1 E8BE2CC8FF call 004C6BB4
00843EF6 50 push eax
00843EF7 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843EFA E82D98BCFF call 0040D72C
00843EFF 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
* Reference to: Variants.@VarFromReal;
|
00843F05 E8824EBDFF call 00418D8C
00843F0A 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
00843F10 58 pop eax
00843F11 8B08 mov ecx, [eax]
00843F13 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
00843F19 BA74428400 mov edx, $00844274
00843F1E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843F20 E88F2CC8FF call 004C6BB4
00843F25 50 push eax
00843F26 8B45E8 mov eax, [ebp-$18]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843F29 E8FE97BCFF call 0040D72C
00843F2E 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
* Reference to: Variants.@VarFromReal;
|
00843F34 E8534EBDFF call 00418D8C
00843F39 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
00843F3F 58 pop eax
00843F40 8B08 mov ecx, [eax]
00843F42 FF91B4000000 call dword ptr [ecx+$00B4]
00843F48 8BC6 mov eax, esi
00843F4A 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00843F4C FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
00843F52 8BB308030000 mov esi, [ebx+$0308]
00843F58 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00843F5A E87519C8FF call 004C58D4
00843F5F 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00843F61 E846A0C9FF call 004DDFAC
00843F66 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00843F68 FF5244 call dword ptr [edx+$44]
00843F6B 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00843F6D E83AA0C9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00843F72 BAC0428400 mov edx, $008442C0
00843F77 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00843F79 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00843F7C 68DC428400 push $008442DC
00843F81 FF75E0 push dword ptr [ebp-$20]
00843F84 68EC428400 push $008442EC
00843F89 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
00843F8F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843F92 E85569BCFF call 0040A8EC
00843F97 FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
00843F9D 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
00843FA3 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00843FA8 E80717BCFF call 004056B4
00843FAD 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
00843FB3 50 push eax
00843FB4 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00843FB6 E8F19FC9FF call 004DDFAC
00843FBB 5A pop edx
00843FBC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00843FBE FF5138 call dword ptr [ecx+$38]
00843FC1 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
00843FC7 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843FCA E81D69BCFF call 0040A8EC
00843FCF 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
* Possible String Reference to: 'Money'
|
00843FD5 BAA0428400 mov edx, $008442A0
* Reference to: System.@LStrCmp;
|
00843FDA E86117BCFF call 00405740
00843FDF 7427 jz 00844008
00843FE1 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00843FE3 E8C49FC9FF call 004DDFAC
00843FE8 50 push eax
00843FE9 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
00843FEF 8B4DF0 mov ecx, [ebp-$10]
* Possible String Reference to: ',Money='
|
00843FF2 BAF8428400 mov edx, $008442F8
* Reference to: System.@LStrCat3;
|
00843FF7 E84416BCFF call 00405640
00843FFC 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
00844002 58 pop eax
00844003 8B08 mov ecx, [eax]
00844005 FF5138 call dword ptr [ecx+$38]
00844008 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084400A E89D9FC9FF call 004DDFAC
0084400F 50 push eax
00844010 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
00844016 8B4DE8 mov ecx, [ebp-$18]
* Possible String Reference to: ',BBMoney='
|
00844019 BA08438400 mov edx, $00844308
* Reference to: System.@LStrCat3;
|
0084401E E81D16BCFF call 00405640
00844023 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
00844029 58 pop eax
0084402A 8B08 mov ecx, [eax]
0084402C FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0084402F 681C438400 push $0084431C
00844034 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
*)
end;
procedure TfrmSKCR_YF.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
008443D8 55 push ebp
008443D9 8BEC mov ebp, esp
008443DB B908000000 mov ecx, $00000008
008443E0 6A00 push $00
008443E2 6A00 push $00
008443E4 49 dec ecx
008443E5 75F9 jnz 008443E0
008443E7 51 push ecx
008443E8 53 push ebx
008443E9 56 push esi
008443EA 8BDA mov ebx, edx
008443EC 8BF0 mov esi, eax
008443EE 33C0 xor eax, eax
008443F0 55 push ebp
008443F1 68FE458400 push $008445FE
***** TRY
|
008443F6 64FF30 push dword ptr fs:[eax]
008443F9 648920 mov fs:[eax], esp
008443FC 8D55FC lea edx, [ebp-$04]
008443FF 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;
|
00844401 E8B6B2D4FF call 0058F6BC
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
00844406 8B8634030000 mov eax, [esi+$0334]
* 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;
|
0084440C E83B7FE1FF 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;
|
00844411 E84ED7E0FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00844416 8B4050 mov eax, [eax+$50]
00844419 8D55F4 lea edx, [ebp-$0C]
0084441C 8B08 mov ecx, [eax]
0084441E FF5110 call dword ptr [ecx+$10]
00844421 8B45F4 mov eax, [ebp-$0C]
00844424 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00844427 E8C064BCFF call 0040A8EC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
0084442C 8B9E54030000 mov ebx, [esi+$0354]
00844432 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00844434 E80740C8FF call 004C8440
00844439 8D55E0 lea edx, [ebp-$20]
0084443C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084443F E8A864BCFF call 0040A8EC
00844444 8B55E0 mov edx, [ebp-$20]
00844447 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0084444A E87949BDFF call 00418DC8
0084444F 8D45E4 lea eax, [ebp-$1C]
00844452 50 push eax
00844453 8B55F8 mov edx, [ebp-$08]
00844456 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00844458 E85727C8FF call 004C6BB4
0084445D 5A pop edx
0084445E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00844460 FF91B4000000 call dword ptr [ecx+$00B4]
00844466 8BC3 mov eax, ebx
00844468 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0084446A FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
00844470 8B9E08030000 mov ebx, [esi+$0308]
00844476 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00844478 E85714C8FF call 004C58D4
0084447D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084447F E8289BC9FF call 004DDFAC
00844484 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00844486 FF5244 call dword ptr [edx+$44]
00844489 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084448B E81C9BC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00844490 BA14468400 mov edx, $00844614
00844495 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00844497 FF5138 call dword ptr [ecx+$38]
0084449A 8D55DC lea edx, [ebp-$24]
0084449D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008444A0 E84764BCFF call 0040A8EC
008444A5 837DDC00 cmp dword ptr [ebp-$24], +$00
008444A9 7440 jz 008444EB
* Possible String Reference to: ' Set '
|
008444AB 6830468400 push $00844630
008444B0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008444B3 6840468400 push $00844640
008444B8 8D55D4 lea edx, [ebp-$2C]
008444BB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008444BE E82964BCFF call 0040A8EC
008444C3 FF75D4 push dword ptr [ebp-$2C]
008444C6 684C468400 push $0084464C
008444CB 8D45D8 lea eax, [ebp-$28]
008444CE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008444D3 E8DC11BCFF call 004056B4
008444D8 8B45D8 mov eax, [ebp-$28]
008444DB 50 push eax
008444DC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008444DE E8C99AC9FF call 004DDFAC
008444E3 5A pop edx
008444E4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008444E6 FF5138 call dword ptr [ecx+$38]
008444E9 EB2B jmp 00844516
008444EB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008444ED E8BA9AC9FF call 004DDFAC
008444F2 50 push eax
* Possible String Reference to: ' Set '
|
008444F3 6830468400 push $00844630
008444F8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
008444FB 6858468400 push $00844658
00844500 8D45D0 lea eax, [ebp-$30]
00844503 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00844508 E8A711BCFF call 004056B4
0084450D 8B55D0 mov edx, [ebp-$30]
00844510 58 pop eax
00844511 8B08 mov ecx, [eax]
00844513 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00844516 6868468400 push $00844668
0084451B 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmSKCR_YF.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
008446BC 55 push ebp
008446BD 8BEC mov ebp, esp
008446BF 51 push ecx
008446C0 B90B000000 mov ecx, $0000000B
008446C5 6A00 push $00
008446C7 6A00 push $00
008446C9 49 dec ecx
008446CA 75F9 jnz 008446C5
008446CC 51 push ecx
008446CD 874DFC xchg [ebp-$04], ecx
008446D0 53 push ebx
008446D1 56 push esi
008446D2 8BF0 mov esi, eax
008446D4 33C0 xor eax, eax
008446D6 55 push ebp
* Possible String Reference to: '<27><>'
|
008446D7 68074A8400 push $00844A07
***** TRY
|
008446DC 64FF30 push dword ptr fs:[eax]
008446DF 648920 mov fs:[eax], esp
008446E2 33C0 xor eax, eax
008446E4 55 push ebp
008446E5 68C0498400 push $008449C0
***** TRY
|
008446EA 64FF30 push dword ptr fs:[eax]
008446ED 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
00844B3C 55 push ebp
00844B3D 8BEC mov ebp, esp
00844B3F 51 push ecx
00844B40 B906000000 mov ecx, $00000006
00844B45 6A00 push $00
00844B47 6A00 push $00
00844B49 49 dec ecx
00844B4A 75F9 jnz 00844B45
00844B4C 51 push ecx
00844B4D 874DFC xchg [ebp-$04], ecx
00844B50 53 push ebx
00844B51 56 push esi
00844B52 8BF0 mov esi, eax
00844B54 33C0 xor eax, eax
00844B56 55 push ebp
* Possible String Reference to: '<27>Z<EFBFBD><5A><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00844B57 68954D8400 push $00844D95
***** TRY
|
00844B5C 64FF30 push dword ptr fs:[eax]
00844B5F 648920 mov fs:[eax], esp
00844B62 33C0 xor eax, eax
00844B64 55 push ebp
00844B65 686B4D8400 push $00844D6B
***** TRY
|
00844B6A 64FF30 push dword ptr fs:[eax]
00844B6D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
00844E98 55 push ebp
00844E99 8BEC mov ebp, esp
00844E9B 51 push ecx
00844E9C B906000000 mov ecx, $00000006
00844EA1 6A00 push $00
00844EA3 6A00 push $00
00844EA5 49 dec ecx
00844EA6 75F9 jnz 00844EA1
00844EA8 51 push ecx
00844EA9 874DFC xchg [ebp-$04], ecx
00844EAC 53 push ebx
00844EAD 56 push esi
00844EAE 8BF0 mov esi, eax
00844EB0 33C0 xor eax, eax
00844EB2 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00844EB3 68F1508400 push $008450F1
***** TRY
|
00844EB8 64FF30 push dword ptr fs:[eax]
00844EBB 648920 mov fs:[eax], esp
00844EBE 33C0 xor eax, eax
00844EC0 55 push ebp
00844EC1 68C7508400 push $008450C7
***** TRY
|
00844EC6 64FF30 push dword ptr fs:[eax]
00844EC9 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF.ToolButton1Click(Sender : TObject);
begin
(*
008451DC 53 push ebx
008451DD 8BD8 mov ebx, eax
* Reference to control TfrmSKCR_YF.ADOQueryMain : TADOQuery
|
008451DF 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008451E5 E8D62CC8FF call 004C7EC0
008451EA 84C0 test al, al
008451EC 7516 jnz 00845204
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008451EE B910528400 mov ecx, $00845210
* Reference to control TfrmSKCR_YF.ADOQueryMain : TADOQuery
|
008451F3 8B931C030000 mov edx, [ebx+$031C]
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
008451F9 8B8334030000 mov eax, [ebx+$0334]
|
008451FF E82C30F7FF call 007B8230
00845204 5B pop ebx
00845205 C3 ret
*)
end;
procedure TfrmSKCR_YF.v2Column4PropertiesEditValueChanged(Sender : TObject);
begin
(*
0084521C 55 push ebp
0084521D 8BEC mov ebp, esp
0084521F B915000000 mov ecx, $00000015
00845224 6A00 push $00
00845226 6A00 push $00
00845228 49 dec ecx
00845229 75F9 jnz 00845224
0084522B 53 push ebx
0084522C 56 push esi
0084522D 8BF2 mov esi, edx
0084522F 8BD8 mov ebx, eax
00845231 33C0 xor eax, eax
00845233 55 push ebp
* Possible String Reference to: '<27>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00845234 68A6568400 push $008456A6
***** TRY
|
00845239 64FF30 push dword ptr fs:[eax]
0084523C 648920 mov fs:[eax], esp
0084523F 8D55FC lea edx, [ebp-$04]
00845242 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;
|
00845244 E873A4D4FF call 0058F6BC
00845249 8D55E4 lea edx, [ebp-$1C]
0084524C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084524F E89856BCFF call 0040A8EC
00845254 837DE400 cmp dword ptr [ebp-$1C], +$00
00845258 750D jnz 00845267
0084525A 8D45FC lea eax, [ebp-$04]
0084525D BABC568400 mov edx, $008456BC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00845262 E85501BCFF call 004053BC
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
00845267 8B8334030000 mov eax, [ebx+$0334]
* 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;
|
0084526D E8DA70E1FF 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;
|
00845272 E8EDC8E0FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00845277 8B4050 mov eax, [eax+$50]
0084527A 8D55E0 lea edx, [ebp-$20]
0084527D 8B08 mov ecx, [eax]
0084527F FF5110 call dword ptr [ecx+$10]
00845282 8B45E0 mov eax, [ebp-$20]
00845285 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00845288 E85F56BCFF call 0040A8EC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
0084528D 8BB354030000 mov esi, [ebx+$0354]
00845293 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00845295 E8A631C8FF call 004C8440
0084529A 8D55CC lea edx, [ebp-$34]
0084529D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008452A0 E84756BCFF call 0040A8EC
008452A5 8B55CC mov edx, [ebp-$34]
008452A8 8D45D0 lea eax, [ebp-$30]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008452AB E8183BBDFF call 00418DC8
008452B0 8D45D0 lea eax, [ebp-$30]
008452B3 50 push eax
008452B4 8B55E8 mov edx, [ebp-$18]
008452B7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008452B9 E8F618C8FF call 004C6BB4
008452BE 5A pop edx
008452BF 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008452C1 FF91B4000000 call dword ptr [ecx+$00B4]
008452C7 8BC6 mov eax, esi
008452C9 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008452CB FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
008452D1 8BB304030000 mov esi, [ebx+$0304]
008452D7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
008452D9 E8F605C8FF call 004C58D4
008452DE 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008452E0 E8C78CC9FF call 004DDFAC
008452E5 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008452E7 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
008452EA 68C8568400 push $008456C8
* Possible String Reference to: 'YFID'
|
008452EF BA10578400 mov edx, $00845710
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008452F4 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008452FA E8B518C8FF call 004C6BB4
008452FF 8D55C4 lea edx, [ebp-$3C]
00845302 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00845304 FF5160 call dword ptr [ecx+$60]
00845307 FF75C4 push dword ptr [ebp-$3C]
0084530A 6820578400 push $00845720
0084530F 8D45C8 lea eax, [ebp-$38]
00845312 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00845317 E89803BCFF call 004056B4
0084531C 8B45C8 mov eax, [ebp-$38]
0084531F 50 push eax
00845320 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00845322 E8858CC9FF call 004DDFAC
00845327 5A pop edx
00845328 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0084532A FF5138 call dword ptr [ecx+$38]
0084532D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
0084532F E89405C8FF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00845334 BA2C578400 mov edx, $0084572C
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
00845339 8B8304030000 mov eax, [ebx+$0304]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0084533F E87018C8FF call 004C6BB4
00845344 8D55EC lea edx, [ebp-$14]
00845347 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00845349 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Money'
|
0084534C BA3C578400 mov edx, $0084573C
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00845351 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845357 E85818C8FF call 004C6BB4
0084535C 8D55C0 lea edx, [ebp-$40]
0084535F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00845361 FF5160 call dword ptr [ecx+$60]
00845364 8B45C0 mov eax, [ebp-$40]
00845367 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084536A E87D55BCFF call 0040A8EC
0084536F 8D55BC lea edx, [ebp-$44]
00845372 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00845375 E87255BCFF call 0040A8EC
0084537A 837DBC00 cmp dword ptr [ebp-$44], +$00
0084537E 750D jnz 0084538D
00845380 8D45F8 lea eax, [ebp-$08]
00845383 BABC568400 mov edx, $008456BC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00845388 E82F00BCFF call 004053BC
* Possible String Reference to: 'HuiLv'
|
0084538D BA4C578400 mov edx, $0084574C
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00845392 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845398 E81718C8FF call 004C6BB4
0084539D 8D55B8 lea edx, [ebp-$48]
008453A0 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008453A2 FF5160 call dword ptr [ecx+$60]
008453A5 8B45B8 mov eax, [ebp-$48]
008453A8 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008453AB E83C55BCFF call 0040A8EC
008453B0 8D55B4 lea edx, [ebp-$4C]
008453B3 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008453B6 E83155BCFF call 0040A8EC
008453BB 837DB400 cmp dword ptr [ebp-$4C], +$00
008453BF 750D jnz 008453CE
008453C1 8D45F4 lea eax, [ebp-$0C]
008453C4 BABC568400 mov edx, $008456BC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008453C9 E8EEFFBBFF call 004053BC
008453CE 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008453D1 E85683BCFF call 0040D72C
008453D6 DB7DA8 fstp tbyte ptr [ebp-$58]
008453D9 9B wait
008453DA 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008453DD E84A83BCFF call 0040D72C
008453E2 DB6DA8 fld tbyte ptr [ebp-$58]
008453E5 DEC9 fmulp st(1), st(0)
008453E7 83C4F4 add esp, -$0C
008453EA DB3C24 fstp tbyte ptr [esp]
008453ED 9B wait
008453EE 8D45F0 lea eax, [ebp-$10]
|
008453F1 E8B681BCFF call 0040D5AC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008453F6 8BB354030000 mov esi, [ebx+$0354]
008453FC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008453FE E83D30C8FF call 004C8440
* Possible String Reference to: 'Money'
|
00845403 BA3C578400 mov edx, $0084573C
00845408 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0084540A E8A517C8FF call 004C6BB4
0084540F 50 push eax
00845410 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00845413 E81483BCFF call 0040D72C
00845418 8D4598 lea eax, [ebp-$68]
* Reference to: Variants.@VarFromReal;
|
0084541B E86C39BDFF call 00418D8C
00845420 8D5598 lea edx, [ebp-$68]
00845423 58 pop eax
00845424 8B08 mov ecx, [eax]
00845426 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
0084542C BA2C578400 mov edx, $0084572C
00845431 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845433 E87C17C8FF call 004C6BB4
00845438 50 push eax
00845439 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0084543C E8EB82BCFF call 0040D72C
00845441 8D4588 lea eax, [ebp-$78]
* Reference to: Variants.@VarFromReal;
|
00845444 E84339BDFF call 00418D8C
00845449 8D5588 lea edx, [ebp-$78]
0084544C 58 pop eax
0084544D 8B08 mov ecx, [eax]
0084544F FF91B4000000 call dword ptr [ecx+$00B4]
00845455 8BC6 mov eax, esi
00845457 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00845459 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
0084545F 8BB308030000 mov esi, [ebx+$0308]
00845465 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00845467 E86804C8FF call 004C58D4
0084546C 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084546E E8398BC9FF call 004DDFAC
00845473 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00845475 FF5244 call dword ptr [edx+$44]
00845478 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084547A E82D8BC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0084547F BA5C578400 mov edx, $0084575C
00845484 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00845486 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00845489 6878578400 push $00845778
0084548E FF75E8 push dword ptr [ebp-$18]
00845491 6888578400 push $00845788
00845496 8D5580 lea edx, [ebp-$80]
00845499 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084549C E84B54BCFF call 0040A8EC
008454A1 FF7580 push dword ptr [ebp-$80]
008454A4 8D4584 lea eax, [ebp-$7C]
008454A7 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008454AC E80302BCFF call 004056B4
008454B1 8B4584 mov eax, [ebp-$7C]
008454B4 50 push eax
008454B5 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008454B7 E8F08AC9FF call 004DDFAC
008454BC 5A pop edx
008454BD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008454BF FF5138 call dword ptr [ecx+$38]
008454C2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008454C4 E8E38AC9FF call 004DDFAC
008454C9 50 push eax
008454CA 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
008454D0 8B4DF0 mov ecx, [ebp-$10]
* Possible String Reference to: ',BBMoney='
|
008454D3 BA94578400 mov edx, $00845794
* Reference to: System.@LStrCat3;
|
008454D8 E86301BCFF call 00405640
008454DD 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
008454E3 58 pop eax
008454E4 8B08 mov ecx, [eax]
008454E6 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008454E9 68A8578400 push $008457A8
008454EE 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
*)
end;
procedure TfrmSKCR_YF.v2Column1PropertiesButtonClick(Sender : TObject);
begin
(*
00845864 55 push ebp
00845865 8BEC mov ebp, esp
00845867 51 push ecx
00845868 B90B000000 mov ecx, $0000000B
0084586D 6A00 push $00
0084586F 6A00 push $00
00845871 49 dec ecx
00845872 75F9 jnz 0084586D
00845874 874DFC xchg [ebp-$04], ecx
00845877 53 push ebx
00845878 56 push esi
00845879 8BF0 mov esi, eax
0084587B 33C0 xor eax, eax
0084587D 55 push ebp
0084587E 68575B8400 push $00845B57
***** TRY
|
00845883 64FF30 push dword ptr fs:[eax]
00845886 648920 mov fs:[eax], esp
00845889 33C0 xor eax, eax
0084588B 55 push ebp
0084588C 68185B8400 push $00845B18
***** TRY
|
00845891 64FF30 push dword ptr fs:[eax]
00845894 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF.VBBPropertiesEditValueChanged(Sender : TObject);
begin
(*
00845C34 55 push ebp
00845C35 8BEC mov ebp, esp
00845C37 B909000000 mov ecx, $00000009
00845C3C 6A00 push $00
00845C3E 6A00 push $00
00845C40 49 dec ecx
00845C41 75F9 jnz 00845C3C
00845C43 51 push ecx
00845C44 53 push ebx
00845C45 56 push esi
00845C46 8BDA mov ebx, edx
00845C48 8BF0 mov esi, eax
00845C4A 33C0 xor eax, eax
00845C4C 55 push ebp
00845C4D 68EA5E8400 push $00845EEA
***** TRY
|
00845C52 64FF30 push dword ptr fs:[eax]
00845C55 648920 mov fs:[eax], esp
00845C58 8D55FC lea edx, [ebp-$04]
00845C5B 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;
|
00845C5D E85A9AD4FF call 0058F6BC
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
00845C62 8B9E04030000 mov ebx, [esi+$0304]
00845C68 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00845C6A E865FCC7FF call 004C58D4
00845C6F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00845C71 E83683C9FF call 004DDFAC
00845C76 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00845C78 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
00845C7B 68005F8400 push $00845F00
* Possible String Reference to: 'YFID'
|
00845C80 BA485F8400 mov edx, $00845F48
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00845C85 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845C8B E8240FC8FF call 004C6BB4
00845C90 8D55F0 lea edx, [ebp-$10]
00845C93 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00845C95 FF5160 call dword ptr [ecx+$60]
00845C98 FF75F0 push dword ptr [ebp-$10]
00845C9B 68585F8400 push $00845F58
00845CA0 8D45F4 lea eax, [ebp-$0C]
00845CA3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00845CA8 E807FABBFF call 004056B4
00845CAD 8B45F4 mov eax, [ebp-$0C]
00845CB0 50 push eax
00845CB1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00845CB3 E8F482C9FF call 004DDFAC
00845CB8 5A pop edx
00845CB9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00845CBB FF5138 call dword ptr [ecx+$38]
00845CBE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00845CC0 E803FCC7FF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00845CC5 BA645F8400 mov edx, $00845F64
* Reference to control TfrmSKCR_YF.ADOQueryTemp : TADOQuery
|
00845CCA 8B8604030000 mov eax, [esi+$0304]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845CD0 E8DF0EC8FF call 004C6BB4
00845CD5 8D55F8 lea edx, [ebp-$08]
00845CD8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00845CDA FF5160 call dword ptr [ecx+$60]
00845CDD 8D55EC lea edx, [ebp-$14]
00845CE0 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00845CE3 E8044CBCFF call 0040A8EC
00845CE8 837DEC00 cmp dword ptr [ebp-$14], +$00
00845CEC 750D jnz 00845CFB
00845CEE 8D45FC lea eax, [ebp-$04]
00845CF1 BA745F8400 mov edx, $00845F74
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00845CF6 E8C1F6BBFF call 004053BC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00845CFB 8B9E54030000 mov ebx, [esi+$0354]
00845D01 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00845D03 E83827C8FF call 004C8440
* Possible String Reference to: 'BBMoney'
|
00845D08 BA645F8400 mov edx, $00845F64
00845D0D 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845D0F E8A00EC8FF call 004C6BB4
00845D14 50 push eax
00845D15 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00845D18 E80F7ABCFF call 0040D72C
00845D1D 8D45DC lea eax, [ebp-$24]
* Reference to: Variants.@VarFromReal;
|
00845D20 E86730BDFF call 00418D8C
00845D25 8D55DC lea edx, [ebp-$24]
00845D28 58 pop eax
00845D29 8B08 mov ecx, [eax]
00845D2B FF91B4000000 call dword ptr [ecx+$00B4]
00845D31 8BC3 mov eax, ebx
00845D33 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00845D35 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
00845D3B 8B9E08030000 mov ebx, [esi+$0308]
00845D41 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00845D43 E88CFBC7FF call 004C58D4
00845D48 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00845D4A E85D82C9FF call 004DDFAC
00845D4F 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00845D51 FF5244 call dword ptr [edx+$44]
00845D54 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00845D56 E85182C9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00845D5B BA805F8400 mov edx, $00845F80
00845D60 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00845D62 FF5138 call dword ptr [ecx+$38]
00845D65 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00845D67 E84082C9FF call 004DDFAC
00845D6C 50 push eax
00845D6D 8D45D8 lea eax, [ebp-$28]
00845D70 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set BBMoney='
|
00845D73 BA9C5F8400 mov edx, $00845F9C
* Reference to: System.@LStrCat3;
|
00845D78 E8C3F8BBFF call 00405640
00845D7D 8B55D8 mov edx, [ebp-$28]
00845D80 58 pop eax
00845D81 8B08 mov ecx, [eax]
00845D83 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00845D86 68B45F8400 push $00845FB4
00845D8B 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmSKCR_YF.ConNoChange(Sender : TObject);
begin
(*
00846070 56 push esi
* Reference to control TfrmSKCR_YF.ToolButton2 : TToolButton
|
00846071 8B8010030000 mov eax, [eax+$0310]
00846077 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
0084607B E8D4E4BBFF call 00404554
00846080 5E pop esi
00846081 C3 ret
*)
end;
procedure TfrmSKCR_YF.v2Column1PropertiesEditValueChanged(Sender : TObject);
begin
(*
00846084 55 push ebp
00846085 8BEC mov ebp, esp
00846087 B906000000 mov ecx, $00000006
0084608C 6A00 push $00
0084608E 6A00 push $00
00846090 49 dec ecx
00846091 75F9 jnz 0084608C
00846093 51 push ecx
00846094 53 push ebx
00846095 56 push esi
00846096 8BDA mov ebx, edx
00846098 8BF0 mov esi, eax
0084609A 33C0 xor eax, eax
0084609C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0084609D 6821628400 push $00846221
***** TRY
|
008460A2 64FF30 push dword ptr fs:[eax]
008460A5 648920 mov fs:[eax], esp
008460A8 8D55FC lea edx, [ebp-$04]
008460AB 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;
|
008460AD E80A96D4FF call 0058F6BC
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
008460B2 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008460B8 E88F62E1FF 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;
|
008460BD E8A2BAE0FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008460C2 8B4050 mov eax, [eax+$50]
008460C5 8D55F4 lea edx, [ebp-$0C]
008460C8 8B08 mov ecx, [eax]
008460CA FF5110 call dword ptr [ecx+$10]
008460CD 8B45F4 mov eax, [ebp-$0C]
008460D0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008460D3 E81448BCFF call 0040A8EC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008460D8 8B9E54030000 mov ebx, [esi+$0354]
008460DE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008460E0 E85B23C8FF call 004C8440
008460E5 8D55E0 lea edx, [ebp-$20]
008460E8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008460EB E8FC47BCFF call 0040A8EC
008460F0 8B55E0 mov edx, [ebp-$20]
008460F3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008460F6 E8CD2CBDFF call 00418DC8
008460FB 8D45E4 lea eax, [ebp-$1C]
008460FE 50 push eax
008460FF 8B55F8 mov edx, [ebp-$08]
00846102 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846104 E8AB0AC8FF call 004C6BB4
00846109 5A pop edx
0084610A 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0084610C FF91B4000000 call dword ptr [ecx+$00B4]
00846112 8BC3 mov eax, ebx
00846114 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00846116 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
0084611C 8B9E08030000 mov ebx, [esi+$0308]
00846122 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846124 E8ABF7C7FF call 004C58D4
00846129 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084612B E87C7EC9FF call 004DDFAC
00846130 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00846132 FF5244 call dword ptr [edx+$44]
00846135 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846137 E8707EC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0084613C BA38628400 mov edx, $00846238
00846141 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846143 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00846146 6854628400 push $00846254
0084614B FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0084614E 6864628400 push $00846264
00846153 8D55D8 lea edx, [ebp-$28]
00846156 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846159 E88E47BCFF call 0040A8EC
0084615E FF75D8 push dword ptr [ebp-$28]
00846161 6870628400 push $00846270
00846166 8D45DC lea eax, [ebp-$24]
00846169 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0084616E E841F5BBFF call 004056B4
00846173 8B45DC mov eax, [ebp-$24]
00846176 50 push eax
00846177 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846179 E82E7EC9FF call 004DDFAC
0084617E 5A pop edx
0084617F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846181 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00846184 687C628400 push $0084627C
* Possible String Reference to: 'YFId'
|
00846189 BA94628400 mov edx, $00846294
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
0084618E 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846194 E81B0AC8FF call 004C6BB4
00846199 8D55CC lea edx, [ebp-$34]
0084619C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0084619E FF5160 call dword ptr [ecx+$60]
008461A1 8B45CC mov eax, [ebp-$34]
008461A4 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008461A7 E84047BCFF call 0040A8EC
008461AC FF75D0 push dword ptr [ebp-$30]
008461AF 6870628400 push $00846270
008461B4 8D45D4 lea eax, [ebp-$2C]
008461B7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008461BC E8F3F4BBFF call 004056B4
008461C1 8B45D4 mov eax, [ebp-$2C]
008461C4 50 push eax
008461C5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008461C7 E8E07DC9FF call 004DDFAC
008461CC 5A pop edx
008461CD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008461CF FF5138 call dword ptr [ecx+$38]
008461D2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008461D4 E8FB7CC9FF call 004DDED4
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
008461D9 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008461DF E86861E1FF call 0065C34C
* Reference to field TcxGridDBTableView.OFFS_0080
|
008461E4 8B8080000000 mov eax, [eax+$0080]
008461EA 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
008461EC E86BA5DDFF call 0062075C
008461F1 33C0 xor eax, eax
008461F3 5A pop edx
008461F4 59 pop ecx
008461F5 59 pop ecx
008461F6 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008461F9 6828628400 push $00846228
008461FE 8D45CC lea eax, [ebp-$34]
00846201 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00846206 E83DF1BBFF call 00405348
0084620B 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0084620E E861E4BCFF call 00414674
00846213 8D45F4 lea eax, [ebp-$0C]
00846216 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0084621B E828F1BBFF call 00405348
00846220 C3 ret
* Reference to: System.@HandleFinally;
|
00846221 E9CEE8BBFF jmp 00404AF4
00846226 EBD6 jmp 008461FE
****** END
|
00846228 5E pop esi
00846229 5B pop ebx
0084622A 8BE5 mov esp, ebp
0084622C 5D pop ebp
0084622D C3 ret
*)
end;
procedure TfrmSKCR_YF.v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
begin
(*
0084629C 55 push ebp
0084629D 8BEC mov ebp, esp
0084629F B905000000 mov ecx, $00000005
008462A4 6A00 push $00
008462A6 6A00 push $00
008462A8 49 dec ecx
008462A9 75F9 jnz 008462A4
008462AB 53 push ebx
008462AC 56 push esi
008462AD 8BDA mov ebx, edx
008462AF 8BF0 mov esi, eax
008462B1 33C0 xor eax, eax
008462B3 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008462B4 6815648400 push $00846415
***** TRY
|
008462B9 64FF30 push dword ptr fs:[eax]
008462BC 648920 mov fs:[eax], esp
008462BF 8D55FC lea edx, [ebp-$04]
008462C2 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;
|
008462C4 E8F393D4FF call 0058F6BC
008462C9 8D55F8 lea edx, [ebp-$08]
008462CC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008462CF E81846BCFF call 0040A8EC
008462D4 837DF800 cmp dword ptr [ebp-$08], +$00
008462D8 750D jnz 008462E7
008462DA 8D45FC lea eax, [ebp-$04]
008462DD BA2C648400 mov edx, $0084642C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008462E2 E8D5F0BBFF call 004053BC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008462E7 8B9E54030000 mov ebx, [esi+$0354]
008462ED 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008462EF E84C21C8FF call 004C8440
008462F4 6A00 push $00
008462F6 6A00 push $00
008462F8 6A00 push $00
008462FA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
008462FD E86674BCFF call 0040D768
00846302 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromReal;
|
00846305 E8822ABDFF call 00418D8C
0084630A 8D45E8 lea eax, [ebp-$18]
0084630D 50 push eax
* Possible String Reference to: 'DerateMoney'
|
0084630E BA38648400 mov edx, $00846438
00846313 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846315 E89A08C8FF call 004C6BB4
0084631A 5A pop edx
0084631B 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0084631D FF91B4000000 call dword ptr [ecx+$00B4]
00846323 8BC3 mov eax, ebx
00846325 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00846327 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
0084632D 8B9E08030000 mov ebx, [esi+$0308]
00846333 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846335 E89AF5C7FF call 004C58D4
0084633A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084633C E86B7CC9FF call 004DDFAC
00846341 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00846343 FF5244 call dword ptr [edx+$44]
00846346 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846348 E85F7CC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0084634D BA4C648400 mov edx, $0084644C
00846352 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846354 FF5138 call dword ptr [ecx+$38]
00846357 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846359 E84E7CC9FF call 004DDFAC
0084635E 50 push eax
0084635F 8D45E4 lea eax, [ebp-$1C]
00846362 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set DerateMoney='
|
00846365 BA68648400 mov edx, $00846468
* Reference to: System.@LStrCat3;
|
0084636A E8D1F2BBFF call 00405640
0084636F 8B55E4 mov edx, [ebp-$1C]
00846372 58 pop eax
00846373 8B08 mov ecx, [eax]
00846375 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00846378 6884648400 push $00846484
* Possible String Reference to: 'YFId'
|
0084637D BA9C648400 mov edx, $0084649C
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00846382 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846388 E82708C8FF call 004C6BB4
0084638D 8D55D8 lea edx, [ebp-$28]
00846390 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00846392 FF5160 call dword ptr [ecx+$60]
00846395 8B45D8 mov eax, [ebp-$28]
00846398 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084639B E84C45BCFF call 0040A8EC
008463A0 FF75DC push dword ptr [ebp-$24]
008463A3 68AC648400 push $008464AC
008463A8 8D45E0 lea eax, [ebp-$20]
008463AB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008463B0 E8FFF2BBFF call 004056B4
008463B5 8B45E0 mov eax, [ebp-$20]
008463B8 50 push eax
008463B9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008463BB E8EC7BC9FF call 004DDFAC
008463C0 5A pop edx
008463C1 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008463C3 FF5138 call dword ptr [ecx+$38]
008463C6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008463C8 E8077BC9FF call 004DDED4
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
008463CD 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008463D3 E8745FE1FF call 0065C34C
* Reference to field TcxGridDBTableView.OFFS_0080
|
008463D8 8B8080000000 mov eax, [eax+$0080]
008463DE 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
008463E0 E877A3DDFF call 0062075C
008463E5 33C0 xor eax, eax
008463E7 5A pop edx
008463E8 59 pop ecx
008463E9 59 pop ecx
008463EA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008463ED 681C648400 push $0084641C
008463F2 8D45D8 lea eax, [ebp-$28]
008463F5 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008463FA E849EFBBFF call 00405348
008463FF 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00846402 E86DE2BCFF call 00414674
00846407 8D45F8 lea eax, [ebp-$08]
0084640A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0084640F E834EFBBFF call 00405348
00846414 C3 ret
* Reference to: System.@HandleFinally;
|
00846415 E9DAE6BBFF jmp 00404AF4
0084641A EBD6 jmp 008463F2
****** END
|
0084641C 5E pop esi
0084641D 5B pop ebx
0084641E 8BE5 mov esp, ebp
00846420 5D pop ebp
00846421 C3 ret
*)
end;
procedure TfrmSKCR_YF.cxTabControl1Change(Sender : TObject);
begin
(*
008464B0 53 push ebx
008464B1 8BD8 mov ebx, eax
008464B3 8BC3 mov eax, ebx
|
008464B5 E8FACCFFFF call 008431B4
008464BA 8BC3 mov eax, ebx
|
008464BC E8F7CCFFFF call 008431B8
008464C1 5B pop ebx
008464C2 C3 ret
*)
end;
procedure TfrmSKCR_YF.v2ComTaitouPropertiesButtonClick(Sender : TObject);
begin
(*
008464C4 55 push ebp
008464C5 8BEC mov ebp, esp
008464C7 51 push ecx
008464C8 B906000000 mov ecx, $00000006
008464CD 6A00 push $00
008464CF 6A00 push $00
008464D1 49 dec ecx
008464D2 75F9 jnz 008464CD
008464D4 51 push ecx
008464D5 874DFC xchg [ebp-$04], ecx
008464D8 53 push ebx
008464D9 56 push esi
008464DA 8BF0 mov esi, eax
008464DC 33C0 xor eax, eax
008464DE 55 push ebp
008464DF 681B678400 push $0084671B
***** TRY
|
008464E4 64FF30 push dword ptr fs:[eax]
008464E7 648920 mov fs:[eax], esp
008464EA 33C0 xor eax, eax
008464EC 55 push ebp
008464ED 68F1668400 push $008466F1
***** TRY
|
008464F2 64FF30 push dword ptr fs:[eax]
008464F5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF.TCKClick(Sender : TObject);
begin
(*
00846800 55 push ebp
00846801 8BEC mov ebp, esp
00846803 B907000000 mov ecx, $00000007
00846808 6A00 push $00
0084680A 6A00 push $00
0084680C 49 dec ecx
0084680D 75F9 jnz 00846808
0084680F 53 push ebx
00846810 56 push esi
00846811 8BD8 mov ebx, eax
*)
end;
procedure TfrmSKCR_YF.Tv2CellDblClick(Sender : TObject);
begin
(*
00846A70 55 push ebp
00846A71 8BEC mov ebp, esp
00846A73 6A00 push $00
00846A75 6A00 push $00
00846A77 53 push ebx
00846A78 56 push esi
00846A79 8BD8 mov ebx, eax
00846A7B 33C0 xor eax, eax
00846A7D 55 push ebp
00846A7E 68F96A8400 push $00846AF9
***** TRY
|
00846A83 64FF30 push dword ptr fs:[eax]
00846A86 648920 mov fs:[eax], esp
* Reference to control TfrmSKCR_YF.Tv2 : TcxGridDBTableView
|
00846A89 8B8334030000 mov eax, [ebx+$0334]
* 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;
|
00846A8F E8B858E1FF 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;
|
00846A94 E8CBB0E0FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00846A99 8B4050 mov eax, [eax+$50]
00846A9C 8D55FC lea edx, [ebp-$04]
00846A9F 8B08 mov ecx, [eax]
00846AA1 FF5110 call dword ptr [ecx+$10]
00846AA4 8D55F8 lea edx, [ebp-$08]
00846AA7 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846AAA E83D3EBCFF call 0040A8EC
00846AAF 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'ConNo'
|
00846AB2 BA106B8400 mov edx, $00846B10
* Reference to: System.@LStrCmp;
|
00846AB7 E884ECBBFF call 00405740
00846ABC 7511 jnz 00846ACF
* Reference to control TfrmSKCR_YF.THTCX : TToolButton
|
00846ABE 8B83CC030000 mov eax, [ebx+$03CC]
00846AC4 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00846AC8 E887DABBFF call 00404554
00846ACD EB0F jmp 00846ADE
* Reference to control TfrmSKCR_YF.TCK : TToolButton
|
00846ACF 8B8360030000 mov eax, [ebx+$0360]
00846AD5 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00846AD9 E876DABBFF call 00404554
00846ADE 33C0 xor eax, eax
00846AE0 5A pop edx
00846AE1 59 pop ecx
00846AE2 59 pop ecx
00846AE3 648910 mov fs:[eax], edx
****** FINALLY
|
00846AE6 68006B8400 push $00846B00
00846AEB 8D45F8 lea eax, [ebp-$08]
00846AEE BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00846AF3 E850E8BBFF call 00405348
00846AF8 C3 ret
* Reference to: System.@HandleFinally;
|
00846AF9 E9F6DFBBFF jmp 00404AF4
00846AFE EBEB jmp 00846AEB
****** END
|
00846B00 5E pop esi
00846B01 5B pop ebx
00846B02 59 pop ecx
00846B03 59 pop ecx
00846B04 5D pop ebp
00846B05 C20C00 ret $000C
*)
end;
procedure TfrmSKCR_YF.FormCreate(Sender : TObject);
begin
(*
00846B18 B205 mov dl, $05
* Reference to control TfrmSKCR_YF.cxGrid2 : TcxGrid
|
00846B1A 8B8030030000 mov eax, [eax+$0330]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
00846B20 E8B70FC4FF call 00487ADC
00846B25 C3 ret
*)
end;
procedure TfrmSKCR_YF.TPrintClick(Sender : TObject);
begin
(*
00846B28 55 push ebp
00846B29 8BEC mov ebp, esp
00846B2B B94A000000 mov ecx, $0000004A
00846B30 6A00 push $00
00846B32 6A00 push $00
00846B34 49 dec ecx
00846B35 75F9 jnz 00846B30
00846B37 53 push ebx
00846B38 56 push esi
00846B39 8BD8 mov ebx, eax
00846B3B 33C0 xor eax, eax
00846B3D 55 push ebp
* Possible String Reference to: '<27>Aѻ<41><D1BB>K<EFBFBD><4B><EFBFBD>^[<5B><>]<5D>'
|
00846B3E 68AE798400 push $008479AE
***** TRY
|
00846B43 64FF30 push dword ptr fs:[eax]
00846B46 648920 mov fs:[eax], esp
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00846B49 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00846B4F E86C13C8FF call 004C7EC0
00846B54 84C0 test al, al
00846B56 0F859A0D0000 jnz 008478F6
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846B5C 8BB3AC030000 mov esi, [ebx+$03AC]
00846B62 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846B64 E86BEDC7FF call 004C58D4
00846B69 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846B6B E83C74C9FF call 004DDFAC
00846B70 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00846B72 FF5244 call dword ptr [edx+$44]
00846B75 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846B77 E83074C9FF call 004DDFAC
* Possible String Reference to: 'select AA.* from (select D.CRTime,D
| .FactoryName,C.SPName,Sum(C.Qty) TT
| Qty,Max(D.Price) Price,Sum(C.Qty*D.
| Price) PBMoney '
|
00846B7C BAC8798400 mov edx, $008479C8
00846B81 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846B83 FF5138 call dword ptr [ecx+$38]
00846B86 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846B88 E81F74C9FF call 004DDFAC
* Possible String Reference to: 'from CK_SXPB_CR C '
|
00846B8D BA4C7A8400 mov edx, $00847A4C
00846B92 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846B94 FF5138 call dword ptr [ecx+$38]
00846B97 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846B99 E80E74C9FF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_CR D on C.FZSP
| ID=D.YFTypeId'
|
00846B9E BA687A8400 mov edx, $00847A68
00846BA3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846BA5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where C.CKName='<EFBFBD><EFBFBD><EFBFBD><EFBFBD>' and C.CRFlag
| ='<27><><EFBFBD><EFBFBD>' and C.ORDMainIdCK=''
|
00846BA8 68A47A8400 push $00847AA4
* Possible String Reference to: 'Mainid'
|
00846BAD BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00846BB2 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846BB8 E8F7FFC7FF call 004C6BB4
00846BBD 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]
00846BC3 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00846BC5 FF5160 call dword ptr [ecx+$60]
00846BC8 8B857CFFFFFF mov eax, [ebp+$FFFFFF7C]
00846BCE 8D5580 lea edx, [ebp-$80]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846BD1 E8163DBCFF call 0040A8EC
00846BD6 FF7580 push dword ptr [ebp-$80]
00846BD9 68FC7A8400 push $00847AFC
00846BDE 8D4584 lea eax, [ebp-$7C]
00846BE1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00846BE6 E8C9EABBFF call 004056B4
00846BEB 8B4584 mov eax, [ebp-$7C]
00846BEE 50 push eax
00846BEF 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846BF1 E8B673C9FF call 004DDFAC
00846BF6 5A pop edx
00846BF7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846BF9 FF5138 call dword ptr [ecx+$38]
00846BFC 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846BFE E8A973C9FF call 004DDFAC
* Possible String Reference to: ' group by D.CRTime,D.FactoryName,C.
| SPName'
|
00846C03 BA087B8400 mov edx, $00847B08
00846C08 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846C0A FF5138 call dword ptr [ecx+$38]
00846C0D 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846C0F E89873C9FF call 004DDFAC
* Possible String Reference to: ' union all'
|
00846C14 BA3C7B8400 mov edx, $00847B3C
00846C19 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846C1B FF5138 call dword ptr [ecx+$38]
00846C1E 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846C20 E88773C9FF call 004DDFAC
* Possible String Reference to: ' select D.CRTime,D.FactoryName,C.SP
| Name,Sum(D.Qty) TTQty,Max(D.Price)
| Price,Sum(D.Qty*D.Price) PBMoney '
|
00846C25 BA507B8400 mov edx, $00847B50
00846C2A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846C2C FF5138 call dword ptr [ecx+$38]
00846C2F 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846C31 E87673C9FF call 004DDFAC
* Possible String Reference to: ' from CK_SXPB_CR C '
|
00846C36 BAC07B8400 mov edx, $00847BC0
00846C3B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846C3D FF5138 call dword ptr [ecx+$38]
00846C40 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846C42 E86573C9FF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_CR D on C.SPID
| =D.YFTypeId'
|
00846C47 BADC7B8400 mov edx, $00847BDC
00846C4C 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846C4E FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where C.CRType='<EFBFBD>ɹ<EFBFBD><EFBFBD>˻<EFBFBD>' and C.CR
| Flag='<27><><EFBFBD><EFBFBD>' and C.ORDMainIdCK=''
|
00846C51 68147C8400 push $00847C14
* Possible String Reference to: 'Mainid'
|
00846C56 BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00846C5B 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846C61 E84EFFC7FF call 004C6BB4
00846C66 8D9570FFFFFF lea edx, [ebp+$FFFFFF70]
00846C6C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00846C6E FF5160 call dword ptr [ecx+$60]
00846C71 8B8570FFFFFF mov eax, [ebp+$FFFFFF70]
00846C77 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846C7D E86A3CBCFF call 0040A8EC
00846C82 FFB574FFFFFF push dword ptr [ebp+$FFFFFF74]
00846C88 68FC7A8400 push $00847AFC
00846C8D 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]
00846C93 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00846C98 E817EABBFF call 004056B4
00846C9D 8B8578FFFFFF mov eax, [ebp+$FFFFFF78]
00846CA3 50 push eax
00846CA4 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846CA6 E80173C9FF call 004DDFAC
00846CAB 5A pop edx
00846CAC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846CAE FF5138 call dword ptr [ecx+$38]
00846CB1 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846CB3 E8F472C9FF call 004DDFAC
* Possible String Reference to: ' group by D.CRTime,D.FactoryName,C.
| SPName) AA'
|
00846CB8 BA607C8400 mov edx, $00847C60
00846CBD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846CBF FF5138 call dword ptr [ecx+$38]
00846CC2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846CC4 E8E372C9FF call 004DDFAC
* Possible String Reference to: ' Order By AA.CRTime,AA.FactoryName'
|
00846CC9 BA987C8400 mov edx, $00847C98
00846CCE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846CD0 FF5138 call dword ptr [ecx+$38]
00846CD3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00846CD5 E8EEEBC7FF call 004C58C8
* Reference to control TfrmSKCR_YF.Order_PB : TClientDataSet
|
00846CDA 8B9388030000 mov edx, [ebx+$0388]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846CE0 8B83AC030000 mov eax, [ebx+$03AC]
|
00846CE6 E8A501F7FF call 007B6E90
* Reference to control TfrmSKCR_YF.Order_PB : TClientDataSet
|
00846CEB 8B9388030000 mov edx, [ebx+$0388]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846CF1 8B83AC030000 mov eax, [ebx+$03AC]
|
00846CF7 E81C03F7FF call 007B7018
00846CFC 33C0 xor eax, eax
00846CFE 8945F0 mov [ebp-$10], eax
00846D01 8945F4 mov [ebp-$0C], eax
00846D04 33C0 xor eax, eax
00846D06 8945E8 mov [ebp-$18], eax
00846D09 8945EC mov [ebp-$14], eax
00846D0C 33C0 xor eax, eax
00846D0E 8945E0 mov [ebp-$20], eax
00846D11 8945E4 mov [ebp-$1C], eax
* Reference to control TfrmSKCR_YF.Order_PB : TClientDataSet
|
00846D14 8BB388030000 mov esi, [ebx+$0388]
00846D1A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
00846D1C E80F13C8FF call 004C8030
00846D21 EB37 jmp 00846D5A
* Possible String Reference to: 'TTQty'
|
00846D23 BAC47C8400 mov edx, $00847CC4
00846D28 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846D2A E885FEC7FF call 004C6BB4
00846D2F 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00846D31 FF5254 call dword ptr [edx+$54]
00846D34 DC45E8 fadd qword ptr [ebp-$18]
00846D37 DD5DE8 fstp qword ptr [ebp-$18]
00846D3A 9B wait
* Possible String Reference to: 'PBMoney'
|
00846D3B BAD47C8400 mov edx, $00847CD4
00846D40 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846D42 E86DFEC7FF call 004C6BB4
00846D47 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00846D49 FF5254 call dword ptr [edx+$54]
00846D4C DC45E0 fadd qword ptr [ebp-$20]
00846D4F DD5DE0 fstp qword ptr [ebp-$20]
00846D52 9B wait
00846D53 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
00846D55 E8F215C8FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
00846D5A 80BEA100000000 cmp byte ptr [esi+$00A1], $00
00846D61 74C0 jz 00846D23
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846D63 8BB3AC030000 mov esi, [ebx+$03AC]
00846D69 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846D6B E864EBC7FF call 004C58D4
00846D70 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846D72 E83572C9FF call 004DDFAC
00846D77 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00846D79 FF5244 call dword ptr [edx+$44]
00846D7C 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846D7E E82972C9FF call 004DDFAC
* Possible String Reference to: 'select C.CRTime,D.FactoryName,C.SPN
| ame,C.SPCF PRTColor,Sum(C.Qty) JGQt
| y,Max(D.Price) Price,Sum(C.Qty*D.Pr
| ice) JGMoney '
|
00846D83 BAE47C8400 mov edx, $00847CE4
00846D88 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846D8A FF5138 call dword ptr [ecx+$38]
00846D8D 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846D8F E81872C9FF call 004DDFAC
* Possible String Reference to: 'from CK_SXPB_CR C '
|
00846D94 BA4C7A8400 mov edx, $00847A4C
00846D99 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846D9B FF5138 call dword ptr [ecx+$38]
00846D9E 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846DA0 E80772C9FF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_CR D on C.FZSP
| ID=D.YFTypeId'
|
00846DA5 BA687A8400 mov edx, $00847A68
00846DAA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846DAC FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where C.CKName in ('<EFBFBD><EFBFBD><EFBFBD>ӹ<EFBFBD>','<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
| <EFBFBD>','<EFBFBD><EFBFBD>Ʒ') and D.CRType='Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>
| ' and C.CRFlag='<EFBFBD><EFBFBD><EFBFBD><EFBFBD>' and C.OrdMain
| idCK=''
|
00846DAF 68647D8400 push $00847D64
* Possible String Reference to: 'Mainid'
|
00846DB4 BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00846DB9 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846DBF E8F0FDC7FF call 004C6BB4
00846DC4 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
00846DCA 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00846DCC FF5160 call dword ptr [ecx+$60]
00846DCF 8B8564FFFFFF mov eax, [ebp+$FFFFFF64]
00846DD5 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846DDB E80C3BBCFF call 0040A8EC
00846DE0 FFB568FFFFFF push dword ptr [ebp+$FFFFFF68]
00846DE6 68FC7A8400 push $00847AFC
00846DEB 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
00846DF1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00846DF6 E8B9E8BBFF call 004056B4
00846DFB 8B856CFFFFFF mov eax, [ebp+$FFFFFF6C]
00846E01 50 push eax
00846E02 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846E04 E8A371C9FF call 004DDFAC
00846E09 5A pop edx
00846E0A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846E0C FF5138 call dword ptr [ecx+$38]
00846E0F 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846E11 E89671C9FF call 004DDFAC
* Possible String Reference to: ' group by C.CRTime,D.FactoryName,C.
| SPName,C.SPCF'
|
00846E16 BADC7D8400 mov edx, $00847DDC
00846E1B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846E1D FF5138 call dword ptr [ecx+$38]
00846E20 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00846E22 E8A1EAC7FF call 004C58C8
* Reference to control TfrmSKCR_YF.Order_RF : TClientDataSet
|
00846E27 8B9390030000 mov edx, [ebx+$0390]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846E2D 8B83AC030000 mov eax, [ebx+$03AC]
|
00846E33 E85800F7FF call 007B6E90
* Reference to control TfrmSKCR_YF.Order_RF : TClientDataSet
|
00846E38 8B9390030000 mov edx, [ebx+$0390]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846E3E 8B83AC030000 mov eax, [ebx+$03AC]
|
00846E44 E8CF01F7FF call 007B7018
00846E49 33C0 xor eax, eax
00846E4B 8945D8 mov [ebp-$28], eax
00846E4E 8945DC mov [ebp-$24], eax
00846E51 33C0 xor eax, eax
00846E53 8945D0 mov [ebp-$30], eax
00846E56 8945D4 mov [ebp-$2C], eax
00846E59 33C0 xor eax, eax
00846E5B 8945C8 mov [ebp-$38], eax
00846E5E 8945CC mov [ebp-$34], eax
* Reference to control TfrmSKCR_YF.Order_RF : TClientDataSet
|
00846E61 8BB390030000 mov esi, [ebx+$0390]
00846E67 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
00846E69 E8C211C8FF call 004C8030
00846E6E EB37 jmp 00846EA7
* Possible String Reference to: 'JGQty'
|
00846E70 BA187E8400 mov edx, $00847E18
00846E75 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846E77 E838FDC7FF call 004C6BB4
00846E7C 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00846E7E FF5254 call dword ptr [edx+$54]
00846E81 DC45D0 fadd qword ptr [ebp-$30]
00846E84 DD5DD0 fstp qword ptr [ebp-$30]
00846E87 9B wait
* Possible String Reference to: 'JGMoney'
|
00846E88 BA287E8400 mov edx, $00847E28
00846E8D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846E8F E820FDC7FF call 004C6BB4
00846E94 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00846E96 FF5254 call dword ptr [edx+$54]
00846E99 DC45C8 fadd qword ptr [ebp-$38]
00846E9C DD5DC8 fstp qword ptr [ebp-$38]
00846E9F 9B wait
00846EA0 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
00846EA2 E8A514C8FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
00846EA7 80BEA100000000 cmp byte ptr [esi+$00A1], $00
00846EAE 74C0 jz 00846E70
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846EB0 8BB3AC030000 mov esi, [ebx+$03AC]
00846EB6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846EB8 E817EAC7FF call 004C58D4
00846EBD 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846EBF E8E870C9FF call 004DDFAC
00846EC4 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00846EC6 FF5244 call dword ptr [edx+$44]
00846EC9 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846ECB E8DC70C9FF call 004DDFAC
* Possible String Reference to: 'select C.CRTime,D.FactoryName,C.SPN
| ame,C.SPCF PRTColor,Sum(C.Qty) FLQt
| y,Max(D.Price) Price,Sum(C.Qty*D.Pr
| ice) FLMoney '
|
00846ED0 BA387E8400 mov edx, $00847E38
00846ED5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846ED7 FF5138 call dword ptr [ecx+$38]
00846EDA 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846EDC E8CB70C9FF call 004DDFAC
* Possible String Reference to: 'from CK_SXPB_CR C '
|
00846EE1 BA4C7A8400 mov edx, $00847A4C
00846EE6 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846EE8 FF5138 call dword ptr [ecx+$38]
00846EEB 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846EED E8BA70C9FF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_CR D on C.FZSP
| ID=D.YFTypeId'
|
00846EF2 BA687A8400 mov edx, $00847A68
00846EF7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846EF9 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where C.CKName in ('<EFBFBD><EFBFBD><EFBFBD><EFBFBD>') and D.C
| RType='Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' and C.CRFlag='<EFBFBD><EFBFBD>
| <EFBFBD><EFBFBD>' and C.OrdMainidCK=''
|
00846EFC 68B87E8400 push $00847EB8
* Possible String Reference to: 'Mainid'
|
00846F01 BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00846F06 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846F0C E8A3FCC7FF call 004C6BB4
00846F11 8D9558FFFFFF lea edx, [ebp+$FFFFFF58]
00846F17 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00846F19 FF5160 call dword ptr [ecx+$60]
00846F1C 8B8558FFFFFF mov eax, [ebp+$FFFFFF58]
00846F22 8D955CFFFFFF lea edx, [ebp+$FFFFFF5C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846F28 E8BF39BCFF call 0040A8EC
00846F2D FFB55CFFFFFF push dword ptr [ebp+$FFFFFF5C]
00846F33 68FC7A8400 push $00847AFC
00846F38 8D8560FFFFFF lea eax, [ebp+$FFFFFF60]
00846F3E BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00846F43 E86CE7BBFF call 004056B4
00846F48 8B8560FFFFFF mov eax, [ebp+$FFFFFF60]
00846F4E 50 push eax
00846F4F 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846F51 E85670C9FF call 004DDFAC
00846F56 5A pop edx
00846F57 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846F59 FF5138 call dword ptr [ecx+$38]
00846F5C 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00846F5E E84970C9FF call 004DDFAC
* Possible String Reference to: ' group by C.CRTime,D.FactoryName,C.
| SPName,C.SPCF'
|
00846F63 BADC7D8400 mov edx, $00847DDC
00846F68 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00846F6A FF5138 call dword ptr [ecx+$38]
00846F6D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00846F6F E854E9C7FF call 004C58C8
* Reference to control TfrmSKCR_YF.Order_FL : TClientDataSet
|
00846F74 8B93F8030000 mov edx, [ebx+$03F8]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846F7A 8B83AC030000 mov eax, [ebx+$03AC]
|
00846F80 E80BFFF6FF call 007B6E90
* Reference to control TfrmSKCR_YF.Order_FL : TClientDataSet
|
00846F85 8B93F8030000 mov edx, [ebx+$03F8]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846F8B 8B83AC030000 mov eax, [ebx+$03AC]
|
00846F91 E88200F7FF call 007B7018
00846F96 33C0 xor eax, eax
00846F98 8945C0 mov [ebp-$40], eax
00846F9B 8945C4 mov [ebp-$3C], eax
00846F9E 33C0 xor eax, eax
00846FA0 8945B8 mov [ebp-$48], eax
00846FA3 8945BC mov [ebp-$44], eax
* Reference to control TfrmSKCR_YF.Order_FL : TClientDataSet
|
00846FA6 8BB3F8030000 mov esi, [ebx+$03F8]
00846FAC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
00846FAE E87D10C8FF call 004C8030
00846FB3 EB37 jmp 00846FEC
* Possible String Reference to: 'FLQty'
|
00846FB5 BA207F8400 mov edx, $00847F20
00846FBA 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846FBC E8F3FBC7FF call 004C6BB4
00846FC1 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00846FC3 FF5254 call dword ptr [edx+$54]
00846FC6 DC45C0 fadd qword ptr [ebp-$40]
00846FC9 DD5DC0 fstp qword ptr [ebp-$40]
00846FCC 9B wait
* Possible String Reference to: 'FLMoney'
|
00846FCD BA307F8400 mov edx, $00847F30
00846FD2 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846FD4 E8DBFBC7FF call 004C6BB4
00846FD9 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00846FDB FF5254 call dword ptr [edx+$54]
00846FDE DC45B8 fadd qword ptr [ebp-$48]
00846FE1 DD5DB8 fstp qword ptr [ebp-$48]
00846FE4 9B wait
00846FE5 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
00846FE7 E86013C8FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
00846FEC 80BEA100000000 cmp byte ptr [esi+$00A1], $00
00846FF3 74C0 jz 00846FB5
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00846FF5 8BB3AC030000 mov esi, [ebx+$03AC]
00846FFB 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846FFD E8D2E8C7FF call 004C58D4
00847002 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847004 E8A36FC9FF call 004DDFAC
00847009 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0084700B FF5244 call dword ptr [edx+$44]
0084700E 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847010 E8976FC9FF call 004DDFAC
* Possible String Reference to: 'select A.ConNo,A.CRTime,A.P_CodeNam
| e,A.P_Spec,A.BZType,A.Price'
|
00847015 BA407F8400 mov edx, $00847F40
0084701A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0084701C FF5138 call dword ptr [ecx+$38]
0084701F 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847021 E8866FC9FF call 004DDFAC
* Possible String Reference to: ',Sum(A.PS) PS,Sum(A.Qty) Qty,A.Huil
| v'
|
00847026 BA887F8400 mov edx, $00847F88
0084702B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0084702D FF5138 call dword ptr [ecx+$38]
00847030 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847032 E8756FC9FF call 004DDFAC
* Possible String Reference to: ',RMBMoney=Sum(A.Money*A.HuiLV),Mone
| y=Sum(A.Money)'
|
00847037 BAB87F8400 mov edx, $00847FB8
0084703C 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0084703E FF5138 call dword ptr [ecx+$38]
00847041 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847043 E8646FC9FF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A '
|
00847048 BAF47F8400 mov edx, $00847FF4
0084704D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0084704F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.Mainid=''
|
00847052 6814808400 push $00848014
* Possible String Reference to: 'Mainid'
|
00847057 BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
0084705C 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00847062 E84DFBC7FF call 004C6BB4
00847067 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
0084706D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0084706F FF5160 call dword ptr [ecx+$60]
00847072 8B854CFFFFFF mov eax, [ebp+$FFFFFF4C]
00847078 8D9550FFFFFF lea edx, [ebp+$FFFFFF50]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084707E E86938BCFF call 0040A8EC
00847083 FFB550FFFFFF push dword ptr [ebp+$FFFFFF50]
* Possible String Reference to: '' and A.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
00847089 6830808400 push $00848030
0084708E 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
00847094 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00847099 E816E6BBFF call 004056B4
0084709E 8B8554FFFFFF mov eax, [ebp+$FFFFFF54]
008470A4 50 push eax
008470A5 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008470A7 E8006FC9FF call 004DDFAC
008470AC 5A pop edx
008470AD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008470AF FF5138 call dword ptr [ecx+$38]
008470B2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008470B4 E8F36EC9FF call 004DDFAC
* Possible String Reference to: ' and A.CRFlag='Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD>' and A.Status
| <>'0''
|
008470B9 BA58808400 mov edx, $00848058
008470BE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008470C0 FF5138 call dword ptr [ecx+$38]
008470C3 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008470C5 E8E26EC9FF call 004DDFAC
* Possible String Reference to: ' group by A.ConNo,A.CRTime,A.P_Code
| Name,A.P_Spec,A.BZType,A.Price,A.Hu
| ilv'
|
008470CA BA8C808400 mov edx, $0084808C
008470CF 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008470D1 FF5138 call dword ptr [ecx+$38]
008470D4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
008470D6 E8EDE7C7FF call 004C58C8
* Reference to control TfrmSKCR_YF.Order_XS : TClientDataSet
|
008470DB 8B9394030000 mov edx, [ebx+$0394]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
008470E1 8B83AC030000 mov eax, [ebx+$03AC]
|
008470E7 E8A4FDF6FF call 007B6E90
* Reference to control TfrmSKCR_YF.Order_XS : TClientDataSet
|
008470EC 8B9394030000 mov edx, [ebx+$0394]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
008470F2 8B83AC030000 mov eax, [ebx+$03AC]
|
008470F8 E81BFFF6FF call 007B7018
008470FD 33C0 xor eax, eax
008470FF 8945B0 mov [ebp-$50], eax
00847102 8945B4 mov [ebp-$4C], eax
00847105 33C0 xor eax, eax
00847107 8945A8 mov [ebp-$58], eax
0084710A 8945AC mov [ebp-$54], eax
0084710D 33C0 xor eax, eax
0084710F 8945A0 mov [ebp-$60], eax
00847112 8945A4 mov [ebp-$5C], eax
00847115 33C0 xor eax, eax
00847117 894598 mov [ebp-$68], eax
0084711A 89459C mov [ebp-$64], eax
* Reference to control TfrmSKCR_YF.Order_XS : TClientDataSet
|
0084711D 8BB394030000 mov esi, [ebx+$0394]
00847123 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
00847125 E8060FC8FF call 004C8030
0084712A EB4F jmp 0084717B
* Possible String Reference to: 'Qty'
|
0084712C BAE0808400 mov edx, $008480E0
00847131 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00847133 E87CFAC7FF call 004C6BB4
00847138 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
0084713A FF5254 call dword ptr [edx+$54]
0084713D DC45A8 fadd qword ptr [ebp-$58]
00847140 DD5DA8 fstp qword ptr [ebp-$58]
00847143 9B wait
* Possible String Reference to: 'RMBMoney'
|
00847144 BAEC808400 mov edx, $008480EC
00847149 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0084714B E864FAC7FF call 004C6BB4
00847150 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00847152 FF5254 call dword ptr [edx+$54]
00847155 DC45A0 fadd qword ptr [ebp-$60]
00847158 DD5DA0 fstp qword ptr [ebp-$60]
0084715B 9B wait
* Possible String Reference to: 'Money'
|
0084715C BA00818400 mov edx, $00848100
00847161 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00847163 E84CFAC7FF call 004C6BB4
00847168 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
0084716A FF5254 call dword ptr [edx+$54]
0084716D DC4598 fadd qword ptr [ebp-$68]
00847170 DD5D98 fstp qword ptr [ebp-$68]
00847173 9B wait
00847174 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
00847176 E8D111C8FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
0084717B 80BEA100000000 cmp byte ptr [esi+$00A1], $00
00847182 74A8 jz 0084712C
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00847184 8BB3AC030000 mov esi, [ebx+$03AC]
0084718A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
0084718C E843E7C7FF call 004C58D4
00847191 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847193 E8146EC9FF call 004DDFAC
00847198 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0084719A FF5244 call dword ptr [edx+$44]
0084719D 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084719F E8086EC9FF call 004DDFAC
* Possible String Reference to: 'select B.ConNo,A.CRTime,A.BZType,A.
| Huilv,A.Note'
|
008471A4 BA10818400 mov edx, $00848110
008471A9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008471AB FF5138 call dword ptr [ecx+$38]
008471AE 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008471B0 E8F76DC9FF call 004DDFAC
* Possible String Reference to: ',RMBMoney=sum(E.Num*A.Huilv)'
|
008471B5 BA48818400 mov edx, $00848148
008471BA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008471BC FF5138 call dword ptr [ecx+$38]
008471BF 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008471C1 E8E66DC9FF call 004DDFAC
* Possible String Reference to: ',USDMoney=sum(E.Num)'
|
008471C6 BA70818400 mov edx, $00848170
008471CB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008471CD FF5138 call dword ptr [ecx+$38]
008471D0 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008471D2 E8D56DC9FF call 004DDFAC
* Possible String Reference to: 'from YF_Money_CR A '
|
008471D7 BA90818400 mov edx, $00848190
008471DC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008471DE FF5138 call dword ptr [ecx+$38]
008471E1 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008471E3 E8C46DC9FF call 004DDFAC
* Possible String Reference to: 'inner join YF_log E on E.ListNo=A.Y
| FID '
|
008471E8 BAAC818400 mov edx, $008481AC
008471ED 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008471EF FF5138 call dword ptr [ecx+$38]
008471F2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008471F4 E8B36DC9FF call 004DDFAC
* Possible String Reference to: 'inner join YF_Money_CR B on B.YFID=
| E.ToNo and B.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
008471F9 BADC818400 mov edx, $008481DC
008471FE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847200 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where B.Mainid=''
|
00847203 682C828400 push $0084822C
* Possible String Reference to: 'Mainid'
|
00847208 BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
0084720D 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00847213 E89CF9C7FF call 004C6BB4
00847218 8D9540FFFFFF lea edx, [ebp+$FFFFFF40]
0084721E 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00847220 FF5160 call dword ptr [ecx+$60]
00847223 8B8540FFFFFF mov eax, [ebp+$FFFFFF40]
00847229 8D9544FFFFFF lea edx, [ebp+$FFFFFF44]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084722F E8B836BCFF call 0040A8EC
00847234 FFB544FFFFFF push dword ptr [ebp+$FFFFFF44]
* Possible String Reference to: '' and A.CRType='<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
0084723A 6848828400 push $00848248
0084723F 8D8548FFFFFF lea eax, [ebp+$FFFFFF48]
00847245 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0084724A E865E4BBFF call 004056B4
0084724F 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
00847255 50 push eax
00847256 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847258 E84F6DC9FF call 004DDFAC
0084725D 5A pop edx
0084725E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847260 FF5138 call dword ptr [ecx+$38]
00847263 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847265 E8426DC9FF call 004DDFAC
* Possible String Reference to: ' and A.status<>'0''
|
0084726A BA6C828400 mov edx, $0084826C
0084726F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847271 FF5138 call dword ptr [ecx+$38]
00847274 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847276 E8316DC9FF call 004DDFAC
* Possible String Reference to: ' group by B.ConNo,A.CRTime,A.BZType
| ,A.Huilv,A.Note'
|
0084727B BA88828400 mov edx, $00848288
00847280 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847282 FF5138 call dword ptr [ecx+$38]
00847285 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00847287 E83CE6C7FF call 004C58C8
* Reference to control TfrmSKCR_YF.Order_SK : TClientDataSet
|
0084728C 8B9398030000 mov edx, [ebx+$0398]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
00847292 8B83AC030000 mov eax, [ebx+$03AC]
|
00847298 E8F3FBF6FF call 007B6E90
* Reference to control TfrmSKCR_YF.Order_SK : TClientDataSet
|
0084729D 8B9398030000 mov edx, [ebx+$0398]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
008472A3 8B83AC030000 mov eax, [ebx+$03AC]
|
008472A9 E86AFDF6FF call 007B7018
008472AE 33C0 xor eax, eax
008472B0 894590 mov [ebp-$70], eax
008472B3 894594 mov [ebp-$6C], eax
008472B6 33C0 xor eax, eax
008472B8 894588 mov [ebp-$78], eax
008472BB 89458C mov [ebp-$74], eax
* Reference to control TfrmSKCR_YF.Order_SK : TClientDataSet
|
008472BE 8BB398030000 mov esi, [ebx+$0398]
008472C4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
008472C6 E8650DC8FF call 004C8030
008472CB EB37 jmp 00847304
* Possible String Reference to: 'RMBMoney'
|
008472CD BAEC808400 mov edx, $008480EC
008472D2 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008472D4 E8DBF8C7FF call 004C6BB4
008472D9 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
008472DB FF5254 call dword ptr [edx+$54]
008472DE DC4590 fadd qword ptr [ebp-$70]
008472E1 DD5D90 fstp qword ptr [ebp-$70]
008472E4 9B wait
* Possible String Reference to: 'USDMoney'
|
008472E5 BAC4828400 mov edx, $008482C4
008472EA 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008472EC E8C3F8C7FF call 004C6BB4
008472F1 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
008472F3 FF5254 call dword ptr [edx+$54]
008472F6 DC4588 fadd qword ptr [ebp-$78]
008472F9 DD5D88 fstp qword ptr [ebp-$78]
008472FC 9B wait
008472FD 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
008472FF E84810C8FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
00847304 80BEA100000000 cmp byte ptr [esi+$00A1], $00
0084730B 74C0 jz 008472CD
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
0084730D 8BB3AC030000 mov esi, [ebx+$03AC]
00847313 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00847315 E8BAE5C7FF call 004C58D4
0084731A 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084731C E88B6CC9FF call 004DDFAC
00847321 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00847323 FF5244 call dword ptr [edx+$44]
00847326 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847328 E87F6CC9FF call 004DDFAC
* Possible String Reference to: 'select A.CRTime,A.YFName,A.BZType,A
| .Note '
|
0084732D BAD8828400 mov edx, $008482D8
00847332 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847334 FF5138 call dword ptr [ecx+$38]
00847337 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00847339 E86E6CC9FF call 004DDFAC
* Possible String Reference to: ',RMBMoney=Sum(A.Money*A.Huilv)'
|
0084733E BA0C838400 mov edx, $0084830C
00847343 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847345 FF5138 call dword ptr [ecx+$38]
00847348 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084734A E85D6CC9FF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A '
|
0084734F BAF47F8400 mov edx, $00847FF4
00847354 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00847356 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.Mainid=''
|
00847359 6814808400 push $00848014
* Possible String Reference to: 'Mainid'
|
0084735E BAEC7A8400 mov edx, $00847AEC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00847363 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00847369 E846F8C7FF call 004C6BB4
0084736E 8D9534FFFFFF lea edx, [ebp+$FFFFFF34]
00847374 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00847376 FF5160 call dword ptr [ecx+$60]
00847379 8B8534FFFFFF mov eax, [ebp+$FFFFFF34]
0084737F 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00847385 E86235BCFF call 0040A8EC
0084738A FFB538FFFFFF push dword ptr [ebp+$FFFFFF38]
* Possible String Reference to: '' '
|
00847390 6834838400 push $00848334
00847395 8D853CFFFFFF lea eax, [ebp+$FFFFFF3C]
0084739B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008473A0 E80FE3BBFF call 004056B4
008473A5 8B853CFFFFFF mov eax, [ebp+$FFFFFF3C]
008473AB 50 push eax
008473AC 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008473AE E8F96BC9FF call 004DDFAC
008473B3 5A pop edx
008473B4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008473B6 FF5138 call dword ptr [ecx+$38]
008473B9 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008473BB E8EC6BC9FF call 004DDFAC
* Possible String Reference to: ' and A.CRType in ('Ӧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>','<EFBFBD><EFBFBD><EFBFBD>
| <EFBFBD><EFBFBD>ӷ<EFBFBD>') and isnull(A.FYType,'')<>'<EFBFBD>
| ӹ<EFBFBD><EFBFBD><EFBFBD>' '
|
008473C0 BA40838400 mov edx, $00848340
008473C5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008473C7 FF5138 call dword ptr [ecx+$38]
008473CA 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008473CC E8DB6BC9FF call 004DDFAC
* Possible String Reference to: ' and isnull(A.FYType,'')<>'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
| and isnull(A.YFName,'')<>'<27><><EFBFBD>Ϸ<EFBFBD>''
|
008473D1 BA98838400 mov edx, $00848398
008473D6 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008473D8 FF5138 call dword ptr [ecx+$38]
008473DB 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008473DD E8CA6BC9FF call 004DDFAC
* Possible String Reference to: ' and isnull(A.YFName,'')<>'<EFBFBD>ü<EFBFBD><EFBFBD>˹<EFBFBD>
| <EFBFBD><EFBFBD>' and isnull(A.YFName,'')<>'<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
| ˹<EFBFBD><EFBFBD><EFBFBD>' and isnull(A.YFName,'')<>'<EFBFBD><EFBFBD>
| װ<EFBFBD>˹<EFBFBD><EFBFBD><EFBFBD>' '
|
008473E2 BAE8838400 mov edx, $008483E8
008473E7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008473E9 FF5138 call dword ptr [ecx+$38]
008473EC 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008473EE E8B96BC9FF call 004DDFAC
* Possible String Reference to: ' and A.status<>'0''
|
008473F3 BA6C828400 mov edx, $0084826C
008473F8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008473FA FF5138 call dword ptr [ecx+$38]
008473FD 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008473FF E8A86BC9FF call 004DDFAC
* Possible String Reference to: ' group by A.CRTime,A.YFName,A.BZTyp
| e,A.Note'
|
00847404 BA64848400 mov edx, $00848464
00847409 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0084740B FF5138 call dword ptr [ecx+$38]
0084740E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00847410 E8B3E4C7FF call 004C58C8
* Reference to control TfrmSKCR_YF.Order_FYZC : TClientDataSet
|
00847415 8B938C030000 mov edx, [ebx+$038C]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
0084741B 8B83AC030000 mov eax, [ebx+$03AC]
|
00847421 E86AFAF6FF call 007B6E90
* Reference to control TfrmSKCR_YF.Order_FYZC : TClientDataSet
|
00847426 8B938C030000 mov edx, [ebx+$038C]
* Reference to control TfrmSKCR_YF.ADOQuery1 : TADOQuery
|
0084742C 8B83AC030000 mov eax, [ebx+$03AC]
|
00847432 E8E1FBF6FF call 007B7018
00847437 8D952CFFFFFF lea edx, [ebp+$FFFFFF2C]
*)
end;
procedure TfrmSKCR_YF.THTCXClick(Sender : TObject);
begin
(*
008486A4 55 push ebp
008486A5 8BEC mov ebp, esp
008486A7 6A00 push $00
008486A9 6A00 push $00
008486AB 53 push ebx
008486AC 8BD8 mov ebx, eax
008486AE 33C0 xor eax, eax
008486B0 55 push ebp
* Possible String Reference to: '<27><>û<EFBFBD><C3BB><EFBFBD>[YY]<5D>'
|
008486B1 6865878400 push $00848765
***** TRY
|
008486B6 64FF30 push dword ptr fs:[eax]
008486B9 648920 mov fs:[eax], esp
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008486BC 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008486C2 E8F9F7C7FF call 004C7EC0
008486C7 84C0 test al, al
008486C9 757F jnz 0084874A
008486CB 8BCB mov ecx, ebx
008486CD B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
008486CF A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
008486D4 E8F796C5FF call 004A1DD0
*)
end;
procedure TfrmSKCR_YF.ComboBox1Change(Sender : TObject);
begin
(*
|
00848790 E823AAFFFF call 008431B8
00848795 C3 ret
*)
end;
procedure TfrmSKCR_YF.v2CJJGBiLVPropertiesEditValueChanged(Sender : TObject);
begin
(*
00848798 55 push ebp
00848799 8BEC mov ebp, esp
0084879B B905000000 mov ecx, $00000005
008487A0 6A00 push $00
008487A2 6A00 push $00
008487A4 49 dec ecx
008487A5 75F9 jnz 008487A0
008487A7 53 push ebx
008487A8 56 push esi
008487A9 8BDA mov ebx, edx
008487AB 8BF0 mov esi, eax
008487AD 33C0 xor eax, eax
008487AF 55 push ebp
008487B0 68E9888400 push $008488E9
***** TRY
|
008487B5 64FF30 push dword ptr fs:[eax]
008487B8 648920 mov fs:[eax], esp
008487BB 8D55FC lea edx, [ebp-$04]
008487BE 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;
|
008487C0 E8F76ED4FF call 0058F6BC
008487C5 837DFC00 cmp dword ptr [ebp-$04], +$00
008487C9 750D jnz 008487D8
008487CB 8D45FC lea eax, [ebp-$04]
008487CE BA00898400 mov edx, $00848900
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008487D3 E8E4CBBBFF call 004053BC
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
008487D8 8B9E54030000 mov ebx, [esi+$0354]
008487DE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008487E0 E85BFCC7FF call 004C8440
* Possible String Reference to: 'CJJGBiLV'
|
008487E5 BA0C898400 mov edx, $0084890C
008487EA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008487EC E8C3E3C7FF call 004C6BB4
008487F1 50 push eax
008487F2 8D45EC lea eax, [ebp-$14]
008487F5 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008487F8 E8CB05BDFF call 00418DC8
008487FD 8D55EC lea edx, [ebp-$14]
00848800 58 pop eax
00848801 8B08 mov ecx, [eax]
00848803 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmSKCR_YF.ADOQueryCmd : TADOQuery
|
00848809 8B9E08030000 mov ebx, [esi+$0308]
0084880F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00848811 E8BED0C7FF call 004C58D4
00848816 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00848818 E88F57C9FF call 004DDFAC
0084881D 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0084881F FF5244 call dword ptr [edx+$44]
00848822 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00848824 E88357C9FF call 004DDFAC
* Possible String Reference to: 'update JYOrder_Main set '
|
00848829 BA20898400 mov edx, $00848920
0084882E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00848830 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' CJJGBiLV=''
|
00848833 6844898400 push $00848944
00848838 8D55E4 lea edx, [ebp-$1C]
0084883B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084883E E8A920BCFF call 0040A8EC
00848843 FF75E4 push dword ptr [ebp-$1C]
00848846 6858898400 push $00848958
0084884B 8D45E8 lea eax, [ebp-$18]
0084884E BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00848853 E85CCEBBFF call 004056B4
00848858 8B45E8 mov eax, [ebp-$18]
0084885B 50 push eax
0084885C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0084885E E84957C9FF call 004DDFAC
00848863 5A pop edx
00848864 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00848866 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where Mainid=''
|
00848869 6864898400 push $00848964
* Possible String Reference to: 'Mainid'
|
0084886E BA7C898400 mov edx, $0084897C
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
00848873 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00848879 E836E3C7FF call 004C6BB4
0084887E 8D55D8 lea edx, [ebp-$28]
00848881 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00848883 FF5160 call dword ptr [ecx+$60]
00848886 8B45D8 mov eax, [ebp-$28]
00848889 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084888C E85B20BCFF call 0040A8EC
00848891 FF75DC push dword ptr [ebp-$24]
00848894 6858898400 push $00848958
00848899 8D45E0 lea eax, [ebp-$20]
0084889C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008488A1 E80ECEBBFF call 004056B4
008488A6 8B45E0 mov eax, [ebp-$20]
008488A9 50 push eax
008488AA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008488AC E8FB56C9FF call 004DDFAC
008488B1 5A pop edx
008488B2 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008488B4 FF5138 call dword ptr [ecx+$38]
008488B7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008488B9 E81656C9FF call 004DDED4
008488BE 33C0 xor eax, eax
008488C0 5A pop edx
008488C1 59 pop ecx
008488C2 59 pop ecx
008488C3 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008488C6 68F0888400 push $008488F0
008488CB 8D45D8 lea eax, [ebp-$28]
008488CE BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008488D3 E870CABBFF call 00405348
008488D8 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008488DB E894BDBCFF call 00414674
008488E0 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
008488E3 E83CCABBFF call 00405324
008488E8 C3 ret
* Reference to: System.@HandleFinally;
|
008488E9 E906C2BBFF jmp 00404AF4
008488EE EBDB jmp 008488CB
****** END
|
008488F0 5E pop esi
008488F1 5B pop ebx
008488F2 8BE5 mov esp, ebp
008488F4 5D pop ebp
008488F5 C3 ret
*)
end;
procedure TfrmSKCR_YF.ToolButton3Click(Sender : TObject);
begin
(*
00848984 55 push ebp
00848985 8BEC mov ebp, esp
00848987 6A00 push $00
00848989 6A00 push $00
0084898B 53 push ebx
0084898C 8BD8 mov ebx, eax
0084898E 33C0 xor eax, eax
00848990 55 push ebp
* Possible String Reference to: '<27>}<7D><><EFBFBD><EFBFBD><EFBFBD>[YY]<5D>'
|
00848991 68728A8400 push $00848A72
***** TRY
|
00848996 64FF30 push dword ptr fs:[eax]
00848999 648920 mov fs:[eax], esp
* Reference to control TfrmSKCR_YF.CDS_HZ : TClientDataSet
|
0084899C 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008489A2 E819F5C7FF call 004C7EC0
008489A7 84C0 test al, al
008489A9 0F85A8000000 jnz 00848A57
008489AF 33C0 xor eax, eax
008489B1 55 push ebp
008489B2 68508A8400 push $00848A50
***** TRY
|
008489B7 64FF30 push dword ptr fs:[eax]
008489BA 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF._PROC_00843ACD(Sender : TObject);
begin
(*
00843ACD 50 push eax
00843ACE 6461 popa
00843AD0 7465 jz 00843B37
00843AD2 205943 and [ecx+$43], bl
00843AD5 4C dec esp
00843AD6 5F pop edi
00843AD7 53 push ebx
00843AD8 47 inc edi
00843AD9 5F pop edi
00843ADA 48 dec eax
00843ADB 5A pop edx
00843ADC 2000 and [eax], al
00843ADE 0000 add [eax], al
00843AE0 FFFF DB $FF, $FF //
00843AE2 FFFF DB $FF, $FF //
00843AE4 0500000020 add eax, +$20000000
00843AE9 53 push ebx
00843AEA 657420 jz 00843B0D
00843AED 0000 add [eax], al
00843AEF 00FF add bh, bh
00843AF1 FFFF DB $FF, $FF //
00843AF3 FF02 inc dword ptr [edx]
00843AF5 0000 add [eax], al
00843AF7 003D270000FF add [$FF000027], bh
00843AFD FFFF DB $FF, $FF //
00843AFF FF01 inc dword ptr [ecx]
00843B01 0000 add [eax], al
00843B03 0027 add [edi], ah
00843B05 0000 add [eax], al
00843B07 00FF add bh, bh
00843B09 FFFF DB $FF, $FF //
00843B0B FF050000003D inc dword ptr [$3D000000]
00843B11 4E dec esi
00843B12 55 push ebp
00843B13 4C dec esp
00843B14 4C dec esp
00843B15 0000 add [eax], al
00843B17 00FF add bh, bh
00843B19 FFFF DB $FF, $FF //
00843B1B FF09 dec dword ptr [ecx]
00843B1D 0000 add [eax], al
00843B1F 002C4564697465 add [$65746964+eax*2], ch
00843B26 723D jb 00843B65
00843B28 27 daa
00843B29 0000 add [eax], al
00843B2B 00FF add bh, bh
00843B2D FFFF DB $FF, $FF //
00843B2F FF1400 call dword ptr [eax+eax]
00843B32 0000 add [eax], al
00843B34 2C45 sub al, $45
00843B36 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00843B3F 657464 jz 00843BA6
00843B42 61 popa
00843B43 7465 jz 00843BAA
00843B45 2829 sub [ecx], ch
00843B47 2000 and [eax], al
00843B49 0000 add [eax], al
00843B4B 00FF add bh, bh
00843B4D FFFF DB $FF, $FF //
00843B4F FF0E dec dword ptr [esi]
00843B51 0000 add [eax], al
00843B53 0020 add [eax], ah
00843B55 7768 jnbe 00843BBF
00843B57 657265 jb 00843BBF
00843B5A 205375 and [ebx+$75], dl
00843B5D 624964 bound ecx, qword ptr [ecx+$64]
00843B60 3D270000FF cmp eax, $FF000027
00843B65 FFFF DB $FF, $FF //
00843B67 FF0500000053 inc dword ptr [$53000000]
00843B6D 7562 jnz 00843BD1
00843B6F 49 dec ecx
00843B70 640000 add fs:[eax], al
00843B73 00558B add [ebp-$75], dl
00843B76 EC in al, dx
00843B77 B91C000000 mov ecx, $0000001C
00843B7C 6A00 push $00
00843B7E 6A00 push $00
00843B80 49 dec ecx
00843B81 75F9 jnz 00843B7C
00843B83 51 push ecx
00843B84 53 push ebx
00843B85 56 push esi
00843B86 8BF2 mov esi, edx
00843B88 8BD8 mov ebx, eax
00843B8A 33C0 xor eax, eax
00843B8C 55 push ebp
00843B8D 68EF418400 push $008441EF
***** TRY
|
00843B92 64FF30 push dword ptr fs:[eax]
00843B95 648920 mov fs:[eax], esp
00843B98 8D55FC lea edx, [ebp-$04]
00843B9B 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;
|
00843B9D E81ABBD4FF call 0058F6BC
00843BA2 8D55DC lea edx, [ebp-$24]
00843BA5 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843BA8 E83F6DBCFF call 0040A8EC
00843BAD 837DDC00 cmp dword ptr [ebp-$24], +$00
00843BB1 750D jnz 00843BC0
00843BB3 8D45FC lea eax, [ebp-$04]
00843BB6 BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843BBB E8FC17BCFF call 004053BC
* Reference to control v1PRTColor : N.A.
|
00843BC0 8B8334030000 mov eax, [ebx+$0334]
* 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;
|
00843BC6 E88187E1FF 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;
|
00843BCB E894DFE0FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00843BD0 8B4050 mov eax, [eax+$50]
00843BD3 8D55D8 lea edx, [ebp-$28]
00843BD6 8B08 mov ecx, [eax]
00843BD8 FF5110 call dword ptr [ecx+$10]
00843BDB 8B45D8 mov eax, [ebp-$28]
00843BDE 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843BE1 E8066DBCFF call 0040A8EC
* Reference to control Label9 : N.A.
|
00843BE6 8BB354030000 mov esi, [ebx+$0354]
00843BEC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00843BEE E84D48C8FF call 004C8440
00843BF3 8D55C4 lea edx, [ebp-$3C]
00843BF6 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843BF9 E8EE6CBCFF call 0040A8EC
00843BFE 8B55C4 mov edx, [ebp-$3C]
00843C01 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00843C04 E8BF51BDFF call 00418DC8
00843C09 8D45C8 lea eax, [ebp-$38]
00843C0C 50 push eax
00843C0D 8B55E0 mov edx, [ebp-$20]
00843C10 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843C12 E89D2FC8FF call 004C6BB4
00843C17 5A pop edx
00843C18 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00843C1A FF91B4000000 call dword ptr [ecx+$00B4]
00843C20 8BC6 mov eax, esi
00843C22 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00843C24 FF924C020000 call dword ptr [edx+$024C]
* Reference to control ScrollBox1 : N.A.
|
00843C2A 8BB304030000 mov esi, [ebx+$0304]
00843C30 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00843C32 E89D1CC8FF call 004C58D4
00843C37 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
00843C39 E86EA3C9FF call 004DDFAC
00843C3E 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00843C40 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
00843C43 6810428400 push $00844210
* Possible String Reference to: 'YFID'
|
00843C48 BA58428400 mov edx, $00844258
* Reference to control Label9 : N.A.
|
00843C4D 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843C53 E85C2FC8FF call 004C6BB4
00843C58 8D55BC lea edx, [ebp-$44]
00843C5B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843C5D FF5160 call dword ptr [ecx+$60]
00843C60 FF75BC push dword ptr [ebp-$44]
00843C63 6868428400 push $00844268
00843C68 8D45C0 lea eax, [ebp-$40]
00843C6B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00843C70 E83F1ABCFF call 004056B4
00843C75 8B45C0 mov eax, [ebp-$40]
00843C78 50 push eax
00843C79 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
00843C7B E82CA3C9FF call 004DDFAC
00843C80 5A pop edx
00843C81 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00843C83 FF5138 call dword ptr [ecx+$38]
00843C86 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00843C88 E83B1CC8FF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00843C8D BA74428400 mov edx, $00844274
* Reference to control ScrollBox1 : N.A.
|
00843C92 8B8304030000 mov eax, [ebx+$0304]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843C98 E8172FC8FF call 004C6BB4
00843C9D 8D55E4 lea edx, [ebp-$1C]
00843CA0 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843CA2 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
00843CA5 BA84428400 mov edx, $00844284
* Reference to control Label9 : N.A.
|
00843CAA 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843CB0 E8FF2EC8FF call 004C6BB4
00843CB5 8D55B8 lea edx, [ebp-$48]
00843CB8 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843CBA FF5160 call dword ptr [ecx+$60]
00843CBD 8B45B8 mov eax, [ebp-$48]
00843CC0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843CC3 E8246CBCFF call 0040A8EC
00843CC8 8D55B4 lea edx, [ebp-$4C]
00843CCB 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843CCE E8196CBCFF call 0040A8EC
00843CD3 837DB400 cmp dword ptr [ebp-$4C], +$00
00843CD7 750D jnz 00843CE6
00843CD9 8D45F8 lea eax, [ebp-$08]
00843CDC BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843CE1 E8D616BCFF call 004053BC
* Possible String Reference to: 'Price'
|
00843CE6 BA90428400 mov edx, $00844290
* Reference to control Label9 : N.A.
|
00843CEB 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843CF1 E8BE2EC8FF call 004C6BB4
00843CF6 8D55B0 lea edx, [ebp-$50]
00843CF9 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843CFB FF5160 call dword ptr [ecx+$60]
00843CFE 8B45B0 mov eax, [ebp-$50]
00843D01 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D04 E8E36BBCFF call 0040A8EC
00843D09 8D55AC lea edx, [ebp-$54]
00843D0C 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D0F E8D86BBCFF call 0040A8EC
00843D14 837DAC00 cmp dword ptr [ebp-$54], +$00
00843D18 750D jnz 00843D27
00843D1A 8D45F4 lea eax, [ebp-$0C]
00843D1D BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843D22 E89516BCFF call 004053BC
* Possible String Reference to: 'Qty'
|
00843D27 BA84428400 mov edx, $00844284
* Reference to control Label9 : N.A.
|
00843D2C 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843D32 E87D2EC8FF call 004C6BB4
00843D37 8D55A8 lea edx, [ebp-$58]
00843D3A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843D3C FF5160 call dword ptr [ecx+$60]
00843D3F 8B45A8 mov eax, [ebp-$58]
00843D42 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D45 E8A26BBCFF call 0040A8EC
00843D4A 8D55A4 lea edx, [ebp-$5C]
00843D4D 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D50 E8976BBCFF call 0040A8EC
00843D55 837DA400 cmp dword ptr [ebp-$5C], +$00
00843D59 750D jnz 00843D68
00843D5B 8D45F8 lea eax, [ebp-$08]
00843D5E BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843D63 E85416BCFF call 004053BC
* Possible String Reference to: 'Money'
|
00843D68 BAA0428400 mov edx, $008442A0
* Reference to control Label9 : N.A.
|
00843D6D 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843D73 E83C2EC8FF call 004C6BB4
00843D78 8D55A0 lea edx, [ebp-$60]
00843D7B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843D7D FF5160 call dword ptr [ecx+$60]
00843D80 8B45A0 mov eax, [ebp-$60]
00843D83 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D86 E8616BBCFF call 0040A8EC
00843D8B 8D559C lea edx, [ebp-$64]
00843D8E 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843D91 E8566BBCFF call 0040A8EC
00843D96 837D9C00 cmp dword ptr [ebp-$64], +$00
00843D9A 750D jnz 00843DA9
00843D9C 8D45F0 lea eax, [ebp-$10]
00843D9F BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843DA4 E81316BCFF call 004053BC
* Possible String Reference to: 'HuiLv'
|
00843DA9 BAB0428400 mov edx, $008442B0
* Reference to control Label9 : N.A.
|
00843DAE 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843DB4 E8FB2DC8FF call 004C6BB4
00843DB9 8D5598 lea edx, [ebp-$68]
00843DBC 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00843DBE FF5160 call dword ptr [ecx+$60]
00843DC1 8B4598 mov eax, [ebp-$68]
00843DC4 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843DC7 E8206BBCFF call 0040A8EC
00843DCC 8D5594 lea edx, [ebp-$6C]
00843DCF 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843DD2 E8156BBCFF call 0040A8EC
00843DD7 837D9400 cmp dword ptr [ebp-$6C], +$00
00843DDB 750D jnz 00843DEA
00843DDD 8D45EC lea eax, [ebp-$14]
00843DE0 BA04428400 mov edx, $00844204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00843DE5 E8D215BCFF call 004053BC
00843DEA 8D5590 lea edx, [ebp-$70]
00843DED 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843DF0 E8F76ABCFF call 0040A8EC
00843DF5 8B4590 mov eax, [ebp-$70]
* Possible String Reference to: 'Money'
|
00843DF8 BAA0428400 mov edx, $008442A0
* Reference to: System.@LStrCmp;
|
00843DFD E83E19BCFF call 00405740
00843E02 0F84AD000000 jz 00843EB5
00843E08 8D558C lea edx, [ebp-$74]
00843E0B 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843E0E E8D96ABCFF call 0040A8EC
00843E13 8B458C mov eax, [ebp-$74]
* Possible String Reference to: 'HuiLv'
|
00843E16 BAB0428400 mov edx, $008442B0
* Reference to: System.@LStrCmp;
|
00843E1B E82019BCFF call 00405740
00843E20 7469 jz 00843E8B
00843E22 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E25 E80299BCFF call 0040D72C
00843E2A DB7D80 fstp tbyte ptr [ebp-$80]
00843E2D 9B wait
00843E2E 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E31 E8F698BCFF call 0040D72C
00843E36 DB6D80 fld tbyte ptr [ebp-$80]
00843E39 DEC9 fmulp st(1), st(0)
00843E3B DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
00843E41 9B wait
00843E42 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E45 E8E298BCFF call 0040D72C
00843E4A DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
00843E50 DEC9 fmulp st(1), st(0)
00843E52 83C4F4 add esp, -$0C
00843E55 DB3C24 fstp tbyte ptr [esp]
00843E58 9B wait
00843E59 8D45E8 lea eax, [ebp-$18]
|
00843E5C E84B97BCFF call 0040D5AC
00843E61 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E64 E8C398BCFF call 0040D72C
00843E69 DB7D80 fstp tbyte ptr [ebp-$80]
00843E6C 9B wait
00843E6D 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E70 E8B798BCFF call 0040D72C
00843E75 DB6D80 fld tbyte ptr [ebp-$80]
00843E78 DEC9 fmulp st(1), st(0)
00843E7A 83C4F4 add esp, -$0C
00843E7D DB3C24 fstp tbyte ptr [esp]
00843E80 9B wait
00843E81 8D45F0 lea eax, [ebp-$10]
|
00843E84 E82397BCFF call 0040D5AC
00843E89 EB52 jmp 00843EDD
00843E8B 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E8E E89998BCFF call 0040D72C
00843E93 DB7D80 fstp tbyte ptr [ebp-$80]
00843E96 9B wait
00843E97 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843E9A E88D98BCFF call 0040D72C
00843E9F DB6D80 fld tbyte ptr [ebp-$80]
00843EA2 DEC9 fmulp st(1), st(0)
00843EA4 83C4F4 add esp, -$0C
00843EA7 DB3C24 fstp tbyte ptr [esp]
00843EAA 9B wait
00843EAB 8D45E8 lea eax, [ebp-$18]
|
00843EAE E8F996BCFF call 0040D5AC
00843EB3 EB28 jmp 00843EDD
00843EB5 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843EB8 E86F98BCFF call 0040D72C
00843EBD DB7D80 fstp tbyte ptr [ebp-$80]
00843EC0 9B wait
00843EC1 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843EC4 E86398BCFF call 0040D72C
00843EC9 DB6D80 fld tbyte ptr [ebp-$80]
00843ECC DEC9 fmulp st(1), st(0)
00843ECE 83C4F4 add esp, -$0C
00843ED1 DB3C24 fstp tbyte ptr [esp]
00843ED4 9B wait
00843ED5 8D45E8 lea eax, [ebp-$18]
|
00843ED8 E8CF96BCFF call 0040D5AC
* Reference to control Label9 : N.A.
|
00843EDD 8BB354030000 mov esi, [ebx+$0354]
00843EE3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00843EE5 E85645C8FF call 004C8440
* Possible String Reference to: 'Money'
|
00843EEA BAA0428400 mov edx, $008442A0
00843EEF 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843EF1 E8BE2CC8FF call 004C6BB4
00843EF6 50 push eax
00843EF7 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843EFA E82D98BCFF call 0040D72C
00843EFF 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
* Reference to: Variants.@VarFromReal;
|
00843F05 E8824EBDFF call 00418D8C
00843F0A 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
00843F10 58 pop eax
00843F11 8B08 mov ecx, [eax]
00843F13 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
00843F19 BA74428400 mov edx, $00844274
00843F1E 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00843F20 E88F2CC8FF call 004C6BB4
00843F25 50 push eax
00843F26 8B45E8 mov eax, [ebp-$18]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00843F29 E8FE97BCFF call 0040D72C
00843F2E 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
* Reference to: Variants.@VarFromReal;
|
00843F34 E8534EBDFF call 00418D8C
00843F39 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
00843F3F 58 pop eax
00843F40 8B08 mov ecx, [eax]
00843F42 FF91B4000000 call dword ptr [ecx+$00B4]
00843F48 8BC6 mov eax, esi
00843F4A 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00843F4C FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
00843F52 8BB308030000 mov esi, [ebx+$0308]
00843F58 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00843F5A E87519C8FF call 004C58D4
00843F5F 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00843F61 E846A0C9FF call 004DDFAC
00843F66 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00843F68 FF5244 call dword ptr [edx+$44]
00843F6B 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00843F6D E83AA0C9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00843F72 BAC0428400 mov edx, $008442C0
00843F77 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00843F79 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00843F7C 68DC428400 push $008442DC
00843F81 FF75E0 push dword ptr [ebp-$20]
00843F84 68EC428400 push $008442EC
00843F89 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
00843F8F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843F92 E85569BCFF call 0040A8EC
00843F97 FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
00843F9D 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
00843FA3 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00843FA8 E80717BCFF call 004056B4
00843FAD 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
00843FB3 50 push eax
00843FB4 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00843FB6 E8F19FC9FF call 004DDFAC
00843FBB 5A pop edx
00843FBC 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00843FBE FF5138 call dword ptr [ecx+$38]
00843FC1 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
00843FC7 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00843FCA E81D69BCFF call 0040A8EC
00843FCF 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
* Possible String Reference to: 'Money'
|
00843FD5 BAA0428400 mov edx, $008442A0
* Reference to: System.@LStrCmp;
|
00843FDA E86117BCFF call 00405740
00843FDF 7427 jz 00844008
00843FE1 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00843FE3 E8C49FC9FF call 004DDFAC
00843FE8 50 push eax
00843FE9 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
00843FEF 8B4DF0 mov ecx, [ebp-$10]
* Possible String Reference to: ',Money='
|
00843FF2 BAF8428400 mov edx, $008442F8
* Reference to: System.@LStrCat3;
|
00843FF7 E84416BCFF call 00405640
00843FFC 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
00844002 58 pop eax
00844003 8B08 mov ecx, [eax]
00844005 FF5138 call dword ptr [ecx+$38]
00844008 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084400A E89D9FC9FF call 004DDFAC
0084400F 50 push eax
00844010 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
00844016 8B4DE8 mov ecx, [ebp-$18]
* Possible String Reference to: ',BBMoney='
|
00844019 BA08438400 mov edx, $00844308
* Reference to: System.@LStrCat3;
|
0084401E E81D16BCFF call 00405640
00844023 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
00844029 58 pop eax
0084402A 8B08 mov ecx, [eax]
0084402C FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0084402F 681C438400 push $0084431C
00844034 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
*)
end;
procedure TfrmSKCR_YF._PROC_008442C1(Sender : TObject);
begin
(*
008442C1 50 push eax
008442C2 6461 popa
008442C4 7465 jz 0084432B
008442C6 205946 and [ecx+$46], bl
008442C9 5F pop edi
008442CA 4D dec ebp
008442CB 6F outsd
008442CC 6E outsb
008442CD 65795F jns 0084432F
008442D0 43 inc ebx
008442D1 52 push edx
008442D2 2000 and [eax], al
008442D4 FFFF DB $FF, $FF //
008442D6 FFFF DB $FF, $FF //
008442D8 0500000020 add eax, +$20000000
008442DD 53 push ebx
008442DE 657420 jz 00844301
008442E1 0000 add [eax], al
008442E3 00FF add bh, bh
008442E5 FFFF DB $FF, $FF //
008442E7 FF01 inc dword ptr [ecx]
008442E9 0000 add [eax], al
008442EB 003D000000FF add [$FF000000], bh
008442F1 FFFF DB $FF, $FF //
008442F3 FF07 inc dword ptr [edi]
008442F5 0000 add [eax], al
008442F7 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
008442FE 3D00FFFFFF cmp eax, $FFFFFF00
00844303 FF09 dec dword ptr [ecx]
00844305 0000 add [eax], al
00844307 002C42 add [edx+eax*2], ch
0084430A 42 inc edx
0084430B 4D dec ebp
0084430C 6F outsd
0084430D 6E outsb
0084430E 65793D jns 0084434E
00844311 0000 add [eax], al
00844313 00FF add bh, bh
00844315 FFFF DB $FF, $FF //
00844317 FF09 dec dword ptr [ecx]
00844319 0000 add [eax], al
0084431B 002C4564697465 add [$65746964+eax*2], ch
00844322 723D jb 00844361
00844324 27 daa
00844325 0000 add [eax], al
00844327 00FF add bh, bh
00844329 FFFF DB $FF, $FF //
0084432B FF1400 call dword ptr [eax+eax]
0084432E 0000 add [eax], al
00844330 2C45 sub al, $45
00844332 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0084433B 657464 jz 008443A2
0084433E 61 popa
0084433F 7465 jz 008443A6
00844341 2829 sub [ecx], ch
00844343 2000 and [eax], al
00844345 0000 add [eax], al
00844347 00FF add bh, bh
00844349 FFFF DB $FF, $FF //
0084434B FF0D00000020 dec dword ptr [$20000000]
00844351 7768 jnbe 008443BB
00844353 657265 jb 008443BB
00844356 205946 and [ecx+$46], bl
00844359 49 dec ecx
0084435A 643D27000000 cmp eax, $00000027
00844360 FFFF DB $FF, $FF //
00844362 FFFF DB $FF, $FF //
00844364 0400 add al, +$00
00844366 0000 add [eax], al
00844368 59 pop ecx
00844369 46 inc esi
0084436A 49 dec ecx
0084436B 640000 add fs:[eax], al
0084436E 0000 add [eax], al
00844370 FFFF DB $FF, $FF //
00844372 FFFF DB $FF, $FF //
00844374 2B00 sub eax, dword ptr [eax]
00844376 0000 add [eax], al
00844378 55 push ebp
00844379 7064 jo 008443DF
0084437B 61 popa
0084437C 7465 jz 008443E3
0084437E 205946 and [ecx+$46], bl
00844381 5F pop edi
00844382 4D dec ebp
00844383 6F outsd
00844384 6E outsb
00844385 65795F jns 008443E7
00844388 4B dec ebx
00844389 43 inc ebx
0084438A 205365 and [ebx+$65], dl
0084438D 7420 jz 008443AF
0084438F 4B dec ebx
00844390 43 inc ebx
00844391 42 inc edx
00844392 42 inc edx
00844393 4D dec ebp
00844394 6F outsd
00844395 6E outsb
00844396 65793D jns 008443D6
00844399 4B dec ebx
0084439A 43 inc ebx
0084439B 42 inc edx
0084439C 42 inc edx
0084439D 4D dec ebp
0084439E 6F outsd
0084439F 6E outsb
008443A0 65792D jns 008443D0
008443A3 00FF add bh, bh
008443A5 FFFF DB $FF, $FF //
008443A7 FF01 inc dword ptr [ecx]
008443A9 0000 add [eax], al
008443AB 002B add [ebx], ch
008443AD 0000 add [eax], al
008443AF 00FF add bh, bh
008443B1 FFFF DB $FF, $FF //
008443B3 FF0D00000020 dec dword ptr [$20000000]
008443B9 7768 jnbe 00844423
008443BB 657265 jb 00844423
008443BE 204352 and [ebx+$52], al
008443C1 49 dec ecx
008443C2 44 inc esp
008443C3 3D27000000 cmp eax, $00000027
008443C8 FFFF DB $FF, $FF //
008443CA FFFF DB $FF, $FF //
008443CC 0400 add al, +$00
008443CE 0000 add [eax], al
008443D0 43 inc ebx
008443D1 52 push edx
008443D2 49 dec ecx
008443D3 44 inc esp
008443D4 0000 add [eax], al
008443D6 0000 add [eax], al
008443D8 55 push ebp
008443D9 8BEC mov ebp, esp
008443DB B908000000 mov ecx, $00000008
008443E0 6A00 push $00
008443E2 6A00 push $00
008443E4 49 dec ecx
008443E5 75F9 jnz 008443E0
008443E7 51 push ecx
008443E8 53 push ebx
008443E9 56 push esi
008443EA 8BDA mov ebx, edx
008443EC 8BF0 mov esi, eax
008443EE 33C0 xor eax, eax
008443F0 55 push ebp
008443F1 68FE458400 push $008445FE
***** TRY
|
008443F6 64FF30 push dword ptr fs:[eax]
008443F9 648920 mov fs:[eax], esp
008443FC 8D55FC lea edx, [ebp-$04]
008443FF 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;
|
00844401 E8B6B2D4FF call 0058F6BC
* Reference to control v1PRTColor : N.A.
|
00844406 8B8634030000 mov eax, [esi+$0334]
* 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;
|
0084440C E83B7FE1FF 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;
|
00844411 E84ED7E0FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00844416 8B4050 mov eax, [eax+$50]
00844419 8D55F4 lea edx, [ebp-$0C]
0084441C 8B08 mov ecx, [eax]
0084441E FF5110 call dword ptr [ecx+$10]
00844421 8B45F4 mov eax, [ebp-$0C]
00844424 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00844427 E8C064BCFF call 0040A8EC
* Reference to control Label9 : N.A.
|
0084442C 8B9E54030000 mov ebx, [esi+$0354]
00844432 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00844434 E80740C8FF call 004C8440
00844439 8D55E0 lea edx, [ebp-$20]
0084443C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084443F E8A864BCFF call 0040A8EC
00844444 8B55E0 mov edx, [ebp-$20]
00844447 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0084444A E87949BDFF call 00418DC8
0084444F 8D45E4 lea eax, [ebp-$1C]
00844452 50 push eax
00844453 8B55F8 mov edx, [ebp-$08]
00844456 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00844458 E85727C8FF call 004C6BB4
0084445D 5A pop edx
0084445E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00844460 FF91B4000000 call dword ptr [ecx+$00B4]
00844466 8BC3 mov eax, ebx
00844468 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
0084446A FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
00844470 8B9E08030000 mov ebx, [esi+$0308]
00844476 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00844478 E85714C8FF call 004C58D4
0084447D 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084447F E8289BC9FF call 004DDFAC
00844484 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00844486 FF5244 call dword ptr [edx+$44]
00844489 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084448B E81C9BC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00844490 BA14468400 mov edx, $00844614
00844495 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00844497 FF5138 call dword ptr [ecx+$38]
0084449A 8D55DC lea edx, [ebp-$24]
0084449D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008444A0 E84764BCFF call 0040A8EC
008444A5 837DDC00 cmp dword ptr [ebp-$24], +$00
008444A9 7440 jz 008444EB
* Possible String Reference to: ' Set '
|
008444AB 6830468400 push $00844630
008444B0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008444B3 6840468400 push $00844640
008444B8 8D55D4 lea edx, [ebp-$2C]
008444BB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008444BE E82964BCFF call 0040A8EC
008444C3 FF75D4 push dword ptr [ebp-$2C]
008444C6 684C468400 push $0084464C
008444CB 8D45D8 lea eax, [ebp-$28]
008444CE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008444D3 E8DC11BCFF call 004056B4
008444D8 8B45D8 mov eax, [ebp-$28]
008444DB 50 push eax
008444DC 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008444DE E8C99AC9FF call 004DDFAC
008444E3 5A pop edx
008444E4 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008444E6 FF5138 call dword ptr [ecx+$38]
008444E9 EB2B jmp 00844516
008444EB 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008444ED E8BA9AC9FF call 004DDFAC
008444F2 50 push eax
* Possible String Reference to: ' Set '
|
008444F3 6830468400 push $00844630
008444F8 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
008444FB 6858468400 push $00844658
00844500 8D45D0 lea eax, [ebp-$30]
00844503 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00844508 E8A711BCFF call 004056B4
0084450D 8B55D0 mov edx, [ebp-$30]
00844510 58 pop eax
00844511 8B08 mov ecx, [eax]
00844513 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00844516 6868468400 push $00844668
0084451B 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmSKCR_YF._PROC_00844615(Sender : TObject);
begin
(*
00844615 50 push eax
00844616 6461 popa
00844618 7465 jz 0084467F
0084461A 205946 and [ecx+$46], bl
0084461D 5F pop edi
0084461E 4D dec ebp
0084461F 6F outsd
00844620 6E outsb
00844621 65795F jns 00844683
00844624 43 inc ebx
00844625 52 push edx
00844626 2000 and [eax], al
00844628 FFFF DB $FF, $FF //
0084462A FFFF DB $FF, $FF //
0084462C 0500000020 add eax, +$20000000
00844631 53 push ebx
00844632 657420 jz 00844655
00844635 0000 add [eax], al
00844637 00FF add bh, bh
00844639 FFFF DB $FF, $FF //
0084463B FF02 inc dword ptr [edx]
0084463D 0000 add [eax], al
0084463F 003D270000FF add [$FF000027], bh
00844645 FFFF DB $FF, $FF //
00844647 FF01 inc dword ptr [ecx]
00844649 0000 add [eax], al
0084464B 0027 add [edi], ah
0084464D 0000 add [eax], al
0084464F 00FF add bh, bh
00844651 FFFF DB $FF, $FF //
00844653 FF050000003D inc dword ptr [$3D000000]
00844659 4E dec esi
0084465A 55 push ebp
0084465B 4C dec esp
0084465C 4C dec esp
0084465D 0000 add [eax], al
0084465F 00FF add bh, bh
00844661 FFFF DB $FF, $FF //
00844663 FF09 dec dword ptr [ecx]
00844665 0000 add [eax], al
00844667 002C4564697465 add [$65746964+eax*2], ch
0084466E 723D jb 008446AD
00844670 27 daa
00844671 0000 add [eax], al
00844673 00FF add bh, bh
00844675 FFFF DB $FF, $FF //
00844677 FF1400 call dword ptr [eax+eax]
0084467A 0000 add [eax], al
0084467C 2C45 sub al, $45
0084467E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00844687 657464 jz 008446EE
0084468A 61 popa
0084468B 7465 jz 008446F2
0084468D 2829 sub [ecx], ch
0084468F 2000 and [eax], al
00844691 0000 add [eax], al
00844693 00FF add bh, bh
00844695 FFFF DB $FF, $FF //
00844697 FF0D00000020 dec dword ptr [$20000000]
0084469D 7768 jnbe 00844707
0084469F 657265 jb 00844707
008446A2 205946 and [ecx+$46], bl
008446A5 49 dec ecx
008446A6 643D27000000 cmp eax, $00000027
008446AC FFFF DB $FF, $FF //
008446AE FFFF DB $FF, $FF //
008446B0 0400 add al, +$00
008446B2 0000 add [eax], al
008446B4 59 pop ecx
008446B5 46 inc esi
008446B6 49 dec ecx
008446B7 640000 add fs:[eax], al
008446BA 0000 add [eax], al
008446BC 55 push ebp
008446BD 8BEC mov ebp, esp
008446BF 51 push ecx
008446C0 B90B000000 mov ecx, $0000000B
008446C5 6A00 push $00
008446C7 6A00 push $00
008446C9 49 dec ecx
008446CA 75F9 jnz 008446C5
008446CC 51 push ecx
008446CD 874DFC xchg [ebp-$04], ecx
008446D0 53 push ebx
008446D1 56 push esi
008446D2 8BF0 mov esi, eax
008446D4 33C0 xor eax, eax
008446D6 55 push ebp
* Possible String Reference to: '<27><>'
|
008446D7 68074A8400 push $00844A07
***** TRY
|
008446DC 64FF30 push dword ptr fs:[eax]
008446DF 648920 mov fs:[eax], esp
008446E2 33C0 xor eax, eax
008446E4 55 push ebp
008446E5 68C0498400 push $008449C0
***** TRY
|
008446EA 64FF30 push dword ptr fs:[eax]
008446ED 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF._PROC_00844A95(Sender : TObject);
begin
(*
00844A95 50 push eax
00844A96 6461 popa
00844A98 7465 jz 00844AFF
00844A9A 205946 and [ecx+$46], bl
00844A9D 5F pop edi
00844A9E 4D dec ebp
00844A9F 6F outsd
00844AA0 6E outsb
00844AA1 65795F jns 00844B03
00844AA4 43 inc ebx
00844AA5 52 push edx
00844AA6 2000 and [eax], al
00844AA8 FFFF DB $FF, $FF //
00844AAA FFFF DB $FF, $FF //
00844AAC 0D00000020 or eax, $20000000
00844AB1 53 push ebx
00844AB2 657420 jz 00844AD5
00844AB5 59 pop ecx
00844AB6 46 inc esi
00844AB7 43 inc ebx
00844AB8 6F outsd
00844AB9 64653D27000000 cmp eax, $00000027
00844AC0 FFFF DB $FF, $FF //
00844AC2 FFFF DB $FF, $FF //
00844AC4 0100 add [eax], eax
00844AC6 0000 add [eax], al
00844AC8 27 daa
00844AC9 0000 add [eax], al
00844ACB 00FF add bh, bh
00844ACD FFFF DB $FF, $FF //
00844ACF FF0A dec dword ptr [edx]
00844AD1 0000 add [eax], al
00844AD3 0020 add [eax], ah
00844AD5 2C59 sub al, $59
00844AD7 46 inc esi
00844AD8 4E dec esi
00844AD9 61 popa
00844ADA 6D insd
00844ADB 653D270000FF cmp eax, $FF000027
00844AE1 FFFF DB $FF, $FF //
00844AE3 FF09 dec dword ptr [ecx]
00844AE5 0000 add [eax], al
00844AE7 002C4564697465 add [$65746964+eax*2], ch
00844AEE 723D jb 00844B2D
00844AF0 27 daa
00844AF1 0000 add [eax], al
00844AF3 00FF add bh, bh
00844AF5 FFFF DB $FF, $FF //
00844AF7 FF1400 call dword ptr [eax+eax]
00844AFA 0000 add [eax], al
00844AFC 2C45 sub al, $45
00844AFE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00844B07 657464 jz 00844B6E
00844B0A 61 popa
00844B0B 7465 jz 00844B72
00844B0D 2829 sub [ecx], ch
00844B0F 2000 and [eax], al
00844B11 0000 add [eax], al
00844B13 00FF add bh, bh
00844B15 FFFF DB $FF, $FF //
00844B17 FF0D00000020 dec dword ptr [$20000000]
00844B1D 7768 jnbe 00844B87
00844B1F 657265 jb 00844B87
00844B22 205946 and [ecx+$46], bl
00844B25 49 dec ecx
00844B26 643D27000000 cmp eax, $00000027
00844B2C FFFF DB $FF, $FF //
00844B2E FFFF DB $FF, $FF //
00844B30 0400 add al, +$00
00844B32 0000 add [eax], al
00844B34 59 pop ecx
00844B35 46 inc esi
00844B36 49 dec ecx
00844B37 640000 add fs:[eax], al
00844B3A 0000 add [eax], al
00844B3C 55 push ebp
00844B3D 8BEC mov ebp, esp
00844B3F 51 push ecx
00844B40 B906000000 mov ecx, $00000006
00844B45 6A00 push $00
00844B47 6A00 push $00
00844B49 49 dec ecx
00844B4A 75F9 jnz 00844B45
00844B4C 51 push ecx
00844B4D 874DFC xchg [ebp-$04], ecx
00844B50 53 push ebx
00844B51 56 push esi
00844B52 8BF0 mov esi, eax
00844B54 33C0 xor eax, eax
00844B56 55 push ebp
* Possible String Reference to: '<27>Z<EFBFBD><5A><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00844B57 68954D8400 push $00844D95
***** TRY
|
00844B5C 64FF30 push dword ptr fs:[eax]
00844B5F 648920 mov fs:[eax], esp
00844B62 33C0 xor eax, eax
00844B64 55 push ebp
00844B65 686B4D8400 push $00844D6B
***** TRY
|
00844B6A 64FF30 push dword ptr fs:[eax]
00844B6D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF._PROC_00844DB2(Sender : TObject);
begin
(*
00844DB2 6E outsb
00844DB3 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
00844DBB FF08 dec dword ptr [eax]
00844DBD 0000 add [eax], al
*)
end;
procedure TfrmSKCR_YF._PROC_00844DE8(Sender : TObject);
begin
(*
00844DE8 6E outsb
00844DE9 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
00844DF1 0000 add [eax], al
*)
end;
procedure TfrmSKCR_YF._PROC_00844DF5(Sender : TObject);
begin
(*
00844DF5 50 push eax
00844DF6 6461 popa
00844DF8 7465 jz 00844E5F
00844DFA 205946 and [ecx+$46], bl
00844DFD 5F pop edi
00844DFE 4D dec ebp
00844DFF 6F outsd
00844E00 6E outsb
00844E01 65795F jns 00844E63
00844E04 43 inc ebx
00844E05 52 push edx
00844E06 2000 and [eax], al
00844E08 FFFF DB $FF, $FF //
00844E0A FFFF DB $FF, $FF //
00844E0C 0E push cs
00844E0D 0000 add [eax], al
00844E0F 0020 add [eax], ah
00844E11 53 push ebx
00844E12 657420 jz 00844E35
00844E15 51 push ecx
00844E16 7479 jz 00844E91
00844E18 55 push ebp
00844E19 6E outsb
00844E1A 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
00844E22 FFFF DB $FF, $FF //
00844E24 07 pop es
00844E25 0000 add [eax], al
00844E27 005A64 add [edx+$64], bl
00844E2A 794E jns 00844E7A
00844E2C 61 popa
00844E2D 6D insd
00844E2E 6500FF add bh, bh
00844E31 FFFF DB $FF, $FF //
00844E33 FF01 inc dword ptr [ecx]
00844E35 0000 add [eax], al
00844E37 0027 add [edi], ah
00844E39 0000 add [eax], al
00844E3B 00FF add bh, bh
00844E3D FFFF DB $FF, $FF //
00844E3F FF09 dec dword ptr [ecx]
00844E41 0000 add [eax], al
00844E43 002C4564697465 add [$65746964+eax*2], ch
00844E4A 723D jb 00844E89
00844E4C 27 daa
00844E4D 0000 add [eax], al
00844E4F 00FF add bh, bh
00844E51 FFFF DB $FF, $FF //
00844E53 FF1400 call dword ptr [eax+eax]
00844E56 0000 add [eax], al
00844E58 2C45 sub al, $45
00844E5A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00844E63 657464 jz 00844ECA
00844E66 61 popa
00844E67 7465 jz 00844ECE
00844E69 2829 sub [ecx], ch
00844E6B 2000 and [eax], al
00844E6D 0000 add [eax], al
00844E6F 00FF add bh, bh
00844E71 FFFF DB $FF, $FF //
00844E73 FF0D00000020 dec dword ptr [$20000000]
00844E79 7768 jnbe 00844EE3
00844E7B 657265 jb 00844EE3
00844E7E 205946 and [ecx+$46], bl
00844E81 49 dec ecx
00844E82 643D27000000 cmp eax, $00000027
00844E88 FFFF DB $FF, $FF //
00844E8A FFFF DB $FF, $FF //
00844E8C 0400 add al, +$00
00844E8E 0000 add [eax], al
00844E90 59 pop ecx
00844E91 46 inc esi
00844E92 49 dec ecx
00844E93 640000 add fs:[eax], al
00844E96 0000 add [eax], al
00844E98 55 push ebp
00844E99 8BEC mov ebp, esp
00844E9B 51 push ecx
00844E9C B906000000 mov ecx, $00000006
00844EA1 6A00 push $00
00844EA3 6A00 push $00
00844EA5 49 dec ecx
00844EA6 75F9 jnz 00844EA1
00844EA8 51 push ecx
00844EA9 874DFC xchg [ebp-$04], ecx
00844EAC 53 push ebx
00844EAD 56 push esi
00844EAE 8BF0 mov esi, eax
00844EB0 33C0 xor eax, eax
00844EB2 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00844EB3 68F1508400 push $008450F1
***** TRY
|
00844EB8 64FF30 push dword ptr fs:[eax]
00844EBB 648920 mov fs:[eax], esp
00844EBE 33C0 xor eax, eax
00844EC0 55 push ebp
00844EC1 68C7508400 push $008450C7
***** TRY
|
00844EC6 64FF30 push dword ptr fs:[eax]
00844EC9 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF._PROC_00845139(Sender : TObject);
begin
(*
00845139 50 push eax
0084513A 6461 popa
0084513C 7465 jz 008451A3
0084513E 205946 and [ecx+$46], bl
00845141 5F pop edi
00845142 4D dec ebp
00845143 6F outsd
00845144 6E outsb
00845145 65795F jns 008451A7
00845148 43 inc ebx
00845149 52 push edx
0084514A 2000 and [eax], al
0084514C FFFF DB $FF, $FF //
0084514E FFFF DB $FF, $FF //
00845150 0D00000020 or eax, $20000000
00845155 53 push ebx
00845156 657420 jz 00845179
00845159 42 inc edx
0084515A 5A pop edx
0084515B 54 push esp
0084515C 7970 jns 008451CE
0084515E 653D27000000 cmp eax, $00000027
00845164 FFFF DB $FF, $FF //
00845166 FFFF DB $FF, $FF //
00845168 07 pop es
00845169 0000 add [eax], al
0084516B 005A64 add [edx+$64], bl
0084516E 794E jns 008451BE
00845170 61 popa
00845171 6D insd
00845172 6500FF add bh, bh
00845175 FFFF DB $FF, $FF //
00845177 FF01 inc dword ptr [ecx]
00845179 0000 add [eax], al
0084517B 0027 add [edi], ah
0084517D 0000 add [eax], al
0084517F 00FF add bh, bh
00845181 FFFF DB $FF, $FF //
00845183 FF09 dec dword ptr [ecx]
00845185 0000 add [eax], al
00845187 002C4564697465 add [$65746964+eax*2], ch
0084518E 723D jb 008451CD
00845190 27 daa
00845191 0000 add [eax], al
00845193 00FF add bh, bh
00845195 FFFF DB $FF, $FF //
00845197 FF1400 call dword ptr [eax+eax]
0084519A 0000 add [eax], al
0084519C 2C45 sub al, $45
0084519E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008451A7 657464 jz 0084520E
008451AA 61 popa
008451AB 7465 jz 00845212
008451AD 2829 sub [ecx], ch
008451AF 2000 and [eax], al
008451B1 0000 add [eax], al
008451B3 00FF add bh, bh
008451B5 FFFF DB $FF, $FF //
008451B7 FF0D00000020 dec dword ptr [$20000000]
008451BD 7768 jnbe 00845227
008451BF 657265 jb 00845227
008451C2 205946 and [ecx+$46], bl
008451C5 49 dec ecx
008451C6 643D27000000 cmp eax, $00000027
008451CC FFFF DB $FF, $FF //
008451CE FFFF DB $FF, $FF //
008451D0 0400 add al, +$00
008451D2 0000 add [eax], al
008451D4 59 pop ecx
008451D5 46 inc esi
008451D6 49 dec ecx
008451D7 640000 add fs:[eax], al
008451DA 0000 add [eax], al
008451DC 53 push ebx
008451DD 8BD8 mov ebx, eax
* Reference to control ToolBar2 : N.A.
|
008451DF 8B831C030000 mov eax, [ebx+$031C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008451E5 E8D62CC8FF call 004C7EC0
008451EA 84C0 test al, al
008451EC 7516 jnz 00845204
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008451EE B910528400 mov ecx, $00845210
* Reference to control ToolBar2 : N.A.
|
008451F3 8B931C030000 mov edx, [ebx+$031C]
* Reference to control v1PRTColor : N.A.
|
008451F9 8B8334030000 mov eax, [ebx+$0334]
|
008451FF E82C30F7FF call 007B8230
00845204 5B pop ebx
00845205 C3 ret
00845206 0000 add [eax], al
00845208 FFFF DB $FF, $FF //
0084520A FFFF DB $FF, $FF //
0084520C 0A00 or al, byte ptr [eax]
0084520E 0000 add [eax], al
00845210 B6A9 mov dh, $A9
00845212 B5A5 mov ch, $A5
00845214 C0FBC8 sar bl, $C8
00845217 F3 rep
00845218 B1ED mov cl, $ED
0084521A 0000 add [eax], al
0084521C 55 push ebp
0084521D 8BEC mov ebp, esp
0084521F B915000000 mov ecx, $00000015
00845224 6A00 push $00
00845226 6A00 push $00
00845228 49 dec ecx
00845229 75F9 jnz 00845224
0084522B 53 push ebx
0084522C 56 push esi
0084522D 8BF2 mov esi, edx
0084522F 8BD8 mov ebx, eax
00845231 33C0 xor eax, eax
00845233 55 push ebp
* Possible String Reference to: '<27>I<EFBFBD><49><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00845234 68A6568400 push $008456A6
***** TRY
|
00845239 64FF30 push dword ptr fs:[eax]
0084523C 648920 mov fs:[eax], esp
0084523F 8D55FC lea edx, [ebp-$04]
00845242 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;
|
00845244 E873A4D4FF call 0058F6BC
00845249 8D55E4 lea edx, [ebp-$1C]
0084524C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084524F E89856BCFF call 0040A8EC
00845254 837DE400 cmp dword ptr [ebp-$1C], +$00
00845258 750D jnz 00845267
0084525A 8D45FC lea eax, [ebp-$04]
0084525D BABC568400 mov edx, $008456BC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00845262 E85501BCFF call 004053BC
* Reference to control v1PRTColor : N.A.
|
00845267 8B8334030000 mov eax, [ebx+$0334]
* 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;
|
0084526D E8DA70E1FF 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;
|
00845272 E8EDC8E0FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00845277 8B4050 mov eax, [eax+$50]
0084527A 8D55E0 lea edx, [ebp-$20]
0084527D 8B08 mov ecx, [eax]
0084527F FF5110 call dword ptr [ecx+$10]
00845282 8B45E0 mov eax, [ebp-$20]
00845285 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00845288 E85F56BCFF call 0040A8EC
* Reference to control Label9 : N.A.
|
0084528D 8BB354030000 mov esi, [ebx+$0354]
00845293 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00845295 E8A631C8FF call 004C8440
0084529A 8D55CC lea edx, [ebp-$34]
0084529D 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008452A0 E84756BCFF call 0040A8EC
008452A5 8B55CC mov edx, [ebp-$34]
008452A8 8D45D0 lea eax, [ebp-$30]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008452AB E8183BBDFF call 00418DC8
008452B0 8D45D0 lea eax, [ebp-$30]
008452B3 50 push eax
008452B4 8B55E8 mov edx, [ebp-$18]
008452B7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008452B9 E8F618C8FF call 004C6BB4
008452BE 5A pop edx
008452BF 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008452C1 FF91B4000000 call dword ptr [ecx+$00B4]
008452C7 8BC6 mov eax, esi
008452C9 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008452CB FF924C020000 call dword ptr [edx+$024C]
* Reference to control ScrollBox1 : N.A.
|
008452D1 8BB304030000 mov esi, [ebx+$0304]
008452D7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
008452D9 E8F605C8FF call 004C58D4
008452DE 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
008452E0 E8C78CC9FF call 004DDFAC
008452E5 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008452E7 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
008452EA 68C8568400 push $008456C8
* Possible String Reference to: 'YFID'
|
008452EF BA10578400 mov edx, $00845710
* Reference to control Label9 : N.A.
|
008452F4 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008452FA E8B518C8FF call 004C6BB4
008452FF 8D55C4 lea edx, [ebp-$3C]
00845302 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00845304 FF5160 call dword ptr [ecx+$60]
00845307 FF75C4 push dword ptr [ebp-$3C]
0084530A 6820578400 push $00845720
0084530F 8D45C8 lea eax, [ebp-$38]
00845312 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00845317 E89803BCFF call 004056B4
0084531C 8B45C8 mov eax, [ebp-$38]
0084531F 50 push eax
00845320 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
00845322 E8858CC9FF call 004DDFAC
00845327 5A pop edx
00845328 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0084532A FF5138 call dword ptr [ecx+$38]
0084532D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
0084532F E89405C8FF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00845334 BA2C578400 mov edx, $0084572C
* Reference to control ScrollBox1 : N.A.
|
00845339 8B8304030000 mov eax, [ebx+$0304]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0084533F E87018C8FF call 004C6BB4
00845344 8D55EC lea edx, [ebp-$14]
00845347 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00845349 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Money'
|
0084534C BA3C578400 mov edx, $0084573C
* Reference to control Label9 : N.A.
|
00845351 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845357 E85818C8FF call 004C6BB4
0084535C 8D55C0 lea edx, [ebp-$40]
0084535F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00845361 FF5160 call dword ptr [ecx+$60]
00845364 8B45C0 mov eax, [ebp-$40]
00845367 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084536A E87D55BCFF call 0040A8EC
0084536F 8D55BC lea edx, [ebp-$44]
00845372 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00845375 E87255BCFF call 0040A8EC
0084537A 837DBC00 cmp dword ptr [ebp-$44], +$00
0084537E 750D jnz 0084538D
00845380 8D45F8 lea eax, [ebp-$08]
00845383 BABC568400 mov edx, $008456BC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00845388 E82F00BCFF call 004053BC
* Possible String Reference to: 'HuiLv'
|
0084538D BA4C578400 mov edx, $0084574C
* Reference to control Label9 : N.A.
|
00845392 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845398 E81718C8FF call 004C6BB4
0084539D 8D55B8 lea edx, [ebp-$48]
008453A0 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008453A2 FF5160 call dword ptr [ecx+$60]
008453A5 8B45B8 mov eax, [ebp-$48]
008453A8 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008453AB E83C55BCFF call 0040A8EC
008453B0 8D55B4 lea edx, [ebp-$4C]
008453B3 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008453B6 E83155BCFF call 0040A8EC
008453BB 837DB400 cmp dword ptr [ebp-$4C], +$00
008453BF 750D jnz 008453CE
008453C1 8D45F4 lea eax, [ebp-$0C]
008453C4 BABC568400 mov edx, $008456BC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008453C9 E8EEFFBBFF call 004053BC
008453CE 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008453D1 E85683BCFF call 0040D72C
008453D6 DB7DA8 fstp tbyte ptr [ebp-$58]
008453D9 9B wait
008453DA 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008453DD E84A83BCFF call 0040D72C
008453E2 DB6DA8 fld tbyte ptr [ebp-$58]
008453E5 DEC9 fmulp st(1), st(0)
008453E7 83C4F4 add esp, -$0C
008453EA DB3C24 fstp tbyte ptr [esp]
008453ED 9B wait
008453EE 8D45F0 lea eax, [ebp-$10]
|
008453F1 E8B681BCFF call 0040D5AC
* Reference to control Label9 : N.A.
|
008453F6 8BB354030000 mov esi, [ebx+$0354]
008453FC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008453FE E83D30C8FF call 004C8440
* Possible String Reference to: 'Money'
|
00845403 BA3C578400 mov edx, $0084573C
00845408 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0084540A E8A517C8FF call 004C6BB4
0084540F 50 push eax
00845410 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00845413 E81483BCFF call 0040D72C
00845418 8D4598 lea eax, [ebp-$68]
* Reference to: Variants.@VarFromReal;
|
0084541B E86C39BDFF call 00418D8C
00845420 8D5598 lea edx, [ebp-$68]
00845423 58 pop eax
00845424 8B08 mov ecx, [eax]
00845426 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'BBMoney'
|
0084542C BA2C578400 mov edx, $0084572C
00845431 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845433 E87C17C8FF call 004C6BB4
00845438 50 push eax
00845439 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0084543C E8EB82BCFF call 0040D72C
00845441 8D4588 lea eax, [ebp-$78]
* Reference to: Variants.@VarFromReal;
|
00845444 E84339BDFF call 00418D8C
00845449 8D5588 lea edx, [ebp-$78]
0084544C 58 pop eax
0084544D 8B08 mov ecx, [eax]
0084544F FF91B4000000 call dword ptr [ecx+$00B4]
00845455 8BC6 mov eax, esi
00845457 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00845459 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
0084545F 8BB308030000 mov esi, [ebx+$0308]
00845465 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00845467 E86804C8FF call 004C58D4
0084546C 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084546E E8398BC9FF call 004DDFAC
00845473 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00845475 FF5244 call dword ptr [edx+$44]
00845478 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084547A E82D8BC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0084547F BA5C578400 mov edx, $0084575C
00845484 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00845486 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00845489 6878578400 push $00845778
0084548E FF75E8 push dword ptr [ebp-$18]
00845491 6888578400 push $00845788
00845496 8D5580 lea edx, [ebp-$80]
00845499 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084549C E84B54BCFF call 0040A8EC
008454A1 FF7580 push dword ptr [ebp-$80]
008454A4 8D4584 lea eax, [ebp-$7C]
008454A7 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008454AC E80302BCFF call 004056B4
008454B1 8B4584 mov eax, [ebp-$7C]
008454B4 50 push eax
008454B5 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008454B7 E8F08AC9FF call 004DDFAC
008454BC 5A pop edx
008454BD 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008454BF FF5138 call dword ptr [ecx+$38]
008454C2 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008454C4 E8E38AC9FF call 004DDFAC
008454C9 50 push eax
008454CA 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
008454D0 8B4DF0 mov ecx, [ebp-$10]
* Possible String Reference to: ',BBMoney='
|
008454D3 BA94578400 mov edx, $00845794
* Reference to: System.@LStrCat3;
|
008454D8 E86301BCFF call 00405640
008454DD 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
008454E3 58 pop eax
008454E4 8B08 mov ecx, [eax]
008454E6 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008454E9 68A8578400 push $008457A8
008454EE 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
*)
end;
procedure TfrmSKCR_YF._PROC_0084575D(Sender : TObject);
begin
(*
0084575D 50 push eax
0084575E 6461 popa
00845760 7465 jz 008457C7
00845762 205946 and [ecx+$46], bl
00845765 5F pop edi
00845766 4D dec ebp
00845767 6F outsd
00845768 6E outsb
00845769 65795F jns 008457CB
0084576C 43 inc ebx
0084576D 52 push edx
0084576E 2000 and [eax], al
00845770 FFFF DB $FF, $FF //
00845772 FFFF DB $FF, $FF //
00845774 0500000020 add eax, +$20000000
00845779 53 push ebx
0084577A 657420 jz 0084579D
0084577D 0000 add [eax], al
0084577F 00FF add bh, bh
00845781 FFFF DB $FF, $FF //
00845783 FF01 inc dword ptr [ecx]
00845785 0000 add [eax], al
00845787 003D000000FF add [$FF000000], bh
0084578D FFFF DB $FF, $FF //
0084578F FF09 dec dword ptr [ecx]
00845791 0000 add [eax], al
00845793 002C42 add [edx+eax*2], ch
00845796 42 inc edx
00845797 4D dec ebp
00845798 6F outsd
00845799 6E outsb
0084579A 65793D jns 008457DA
0084579D 0000 add [eax], al
0084579F 00FF add bh, bh
008457A1 FFFF DB $FF, $FF //
008457A3 FF09 dec dword ptr [ecx]
008457A5 0000 add [eax], al
008457A7 002C4564697465 add [$65746964+eax*2], ch
008457AE 723D jb 008457ED
008457B0 27 daa
008457B1 0000 add [eax], al
008457B3 00FF add bh, bh
008457B5 FFFF DB $FF, $FF //
008457B7 FF1400 call dword ptr [eax+eax]
008457BA 0000 add [eax], al
008457BC 2C45 sub al, $45
008457BE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008457C7 657464 jz 0084582E
008457CA 61 popa
008457CB 7465 jz 00845832
008457CD 2829 sub [ecx], ch
008457CF 2000 and [eax], al
008457D1 0000 add [eax], al
008457D3 00FF add bh, bh
008457D5 FFFF DB $FF, $FF //
008457D7 FF0D00000020 dec dword ptr [$20000000]
008457DD 7768 jnbe 00845847
008457DF 657265 jb 00845847
008457E2 205946 and [ecx+$46], bl
008457E5 49 dec ecx
008457E6 643D27000000 cmp eax, $00000027
008457EC FFFF DB $FF, $FF //
008457EE FFFF DB $FF, $FF //
008457F0 0400 add al, +$00
008457F2 0000 add [eax], al
008457F4 59 pop ecx
008457F5 46 inc esi
008457F6 49 dec ecx
008457F7 640000 add fs:[eax], al
008457FA 0000 add [eax], al
008457FC FFFF DB $FF, $FF //
008457FE FFFF DB $FF, $FF //
00845800 2B00 sub eax, dword ptr [eax]
00845802 0000 add [eax], al
00845804 55 push ebp
00845805 7064 jo 0084586B
00845807 61 popa
00845808 7465 jz 0084586F
0084580A 205946 and [ecx+$46], bl
0084580D 5F pop edi
0084580E 4D dec ebp
0084580F 6F outsd
00845810 6E outsb
00845811 65795F jns 00845873
00845814 4B dec ebx
00845815 43 inc ebx
00845816 205365 and [ebx+$65], dl
00845819 7420 jz 0084583B
0084581B 4B dec ebx
0084581C 43 inc ebx
0084581D 42 inc edx
0084581E 42 inc edx
0084581F 4D dec ebp
00845820 6F outsd
00845821 6E outsb
00845822 65793D jns 00845862
00845825 4B dec ebx
00845826 43 inc ebx
00845827 42 inc edx
00845828 42 inc edx
00845829 4D dec ebp
0084582A 6F outsd
0084582B 6E outsb
0084582C 65792B jns 0084585A
0084582F 00FF add bh, bh
00845831 FFFF DB $FF, $FF //
00845833 FF01 inc dword ptr [ecx]
00845835 0000 add [eax], al
00845837 002D000000FF add [$FF000000], ch
0084583D FFFF DB $FF, $FF //
0084583F FF0D00000020 dec dword ptr [$20000000]
00845845 7768 jnbe 008458AF
00845847 657265 jb 008458AF
0084584A 204352 and [ebx+$52], al
0084584D 49 dec ecx
0084584E 44 inc esp
0084584F 3D27000000 cmp eax, $00000027
00845854 FFFF DB $FF, $FF //
00845856 FFFF DB $FF, $FF //
00845858 0400 add al, +$00
0084585A 0000 add [eax], al
0084585C 43 inc ebx
0084585D 52 push edx
0084585E 49 dec ecx
0084585F 44 inc esp
00845860 0000 add [eax], al
00845862 0000 add [eax], al
00845864 55 push ebp
00845865 8BEC mov ebp, esp
00845867 51 push ecx
00845868 B90B000000 mov ecx, $0000000B
0084586D 6A00 push $00
0084586F 6A00 push $00
00845871 49 dec ecx
00845872 75F9 jnz 0084586D
00845874 874DFC xchg [ebp-$04], ecx
00845877 53 push ebx
00845878 56 push esi
00845879 8BF0 mov esi, eax
0084587B 33C0 xor eax, eax
0084587D 55 push ebp
0084587E 68575B8400 push $00845B57
***** TRY
|
00845883 64FF30 push dword ptr fs:[eax]
00845886 648920 mov fs:[eax], esp
00845889 33C0 xor eax, eax
0084588B 55 push ebp
0084588C 68185B8400 push $00845B18
***** TRY
|
00845891 64FF30 push dword ptr fs:[eax]
00845894 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF._PROC_00845B8D(Sender : TObject);
begin
(*
00845B8D 50 push eax
00845B8E 6461 popa
00845B90 7465 jz 00845BF7
00845B92 205946 and [ecx+$46], bl
00845B95 5F pop edi
00845B96 4D dec ebp
00845B97 6F outsd
00845B98 6E outsb
00845B99 65795F jns 00845BFB
00845B9C 43 inc ebx
00845B9D 52 push edx
00845B9E 2000 and [eax], al
00845BA0 FFFF DB $FF, $FF //
00845BA2 FFFF DB $FF, $FF //
00845BA4 0D00000020 or eax, $20000000
00845BA9 53 push ebx
00845BAA 657420 jz 00845BCD
00845BAD 4D dec ebp
00845BAE 61 popa
00845BAF 696E49643D2700 imul ebp, [esi+$49], $00273D64
00845BB6 0000 add [eax], al
00845BB8 FFFF DB $FF, $FF //
00845BBA FFFF DB $FF, $FF //
00845BBC 0100 add [eax], eax
00845BBE 0000 add [eax], al
00845BC0 27 daa
00845BC1 0000 add [eax], al
00845BC3 00FF add bh, bh
00845BC5 FFFF DB $FF, $FF //
00845BC7 FF0B dec dword ptr [ebx]
00845BC9 0000 add [eax], al
00845BCB 0020 add [eax], ah
00845BCD 2C4F sub al, $4F
00845BCF 7264 jb 00845C35
00845BD1 65724E jb 00845C22
00845BD4 6F outsd
00845BD5 3D2700FFFF cmp eax, $FFFF0027
00845BDA FFFF DB $FF, $FF //
00845BDC 0900 or [eax], eax
00845BDE 0000 add [eax], al
00845BE0 2C45 sub al, $45
00845BE2 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
00845BEB 00FF add bh, bh
00845BED FFFF DB $FF, $FF //
00845BEF FF1400 call dword ptr [eax+eax]
00845BF2 0000 add [eax], al
00845BF4 2C45 sub al, $45
00845BF6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00845BFF 657464 jz 00845C66
00845C02 61 popa
00845C03 7465 jz 00845C6A
00845C05 2829 sub [ecx], ch
00845C07 2000 and [eax], al
00845C09 0000 add [eax], al
00845C0B 00FF add bh, bh
00845C0D FFFF DB $FF, $FF //
00845C0F FF0D00000020 dec dword ptr [$20000000]
00845C15 7768 jnbe 00845C7F
00845C17 657265 jb 00845C7F
00845C1A 205946 and [ecx+$46], bl
00845C1D 49 dec ecx
00845C1E 643D27000000 cmp eax, $00000027
00845C24 FFFF DB $FF, $FF //
00845C26 FFFF DB $FF, $FF //
00845C28 0400 add al, +$00
00845C2A 0000 add [eax], al
00845C2C 59 pop ecx
00845C2D 46 inc esi
00845C2E 49 dec ecx
00845C2F 640000 add fs:[eax], al
00845C32 0000 add [eax], al
00845C34 55 push ebp
00845C35 8BEC mov ebp, esp
00845C37 B909000000 mov ecx, $00000009
00845C3C 6A00 push $00
00845C3E 6A00 push $00
00845C40 49 dec ecx
00845C41 75F9 jnz 00845C3C
00845C43 51 push ecx
00845C44 53 push ebx
00845C45 56 push esi
00845C46 8BDA mov ebx, edx
00845C48 8BF0 mov esi, eax
00845C4A 33C0 xor eax, eax
00845C4C 55 push ebp
00845C4D 68EA5E8400 push $00845EEA
***** TRY
|
00845C52 64FF30 push dword ptr fs:[eax]
00845C55 648920 mov fs:[eax], esp
00845C58 8D55FC lea edx, [ebp-$04]
00845C5B 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;
|
00845C5D E85A9AD4FF call 0058F6BC
* Reference to control ScrollBox1 : N.A.
|
00845C62 8B9E04030000 mov ebx, [esi+$0304]
00845C68 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00845C6A E865FCC7FF call 004C58D4
00845C6F 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;
|
00845C71 E83683C9FF call 004DDFAC
00845C76 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00845C78 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
00845C7B 68005F8400 push $00845F00
* Possible String Reference to: 'YFID'
|
00845C80 BA485F8400 mov edx, $00845F48
* Reference to control Label9 : N.A.
|
00845C85 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845C8B E8240FC8FF call 004C6BB4
00845C90 8D55F0 lea edx, [ebp-$10]
00845C93 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00845C95 FF5160 call dword ptr [ecx+$60]
00845C98 FF75F0 push dword ptr [ebp-$10]
00845C9B 68585F8400 push $00845F58
00845CA0 8D45F4 lea eax, [ebp-$0C]
00845CA3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00845CA8 E807FABBFF call 004056B4
00845CAD 8B45F4 mov eax, [ebp-$0C]
00845CB0 50 push eax
00845CB1 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;
|
00845CB3 E8F482C9FF call 004DDFAC
00845CB8 5A pop edx
00845CB9 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00845CBB FF5138 call dword ptr [ecx+$38]
00845CBE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00845CC0 E803FCC7FF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00845CC5 BA645F8400 mov edx, $00845F64
* Reference to control ScrollBox1 : N.A.
|
00845CCA 8B8604030000 mov eax, [esi+$0304]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845CD0 E8DF0EC8FF call 004C6BB4
00845CD5 8D55F8 lea edx, [ebp-$08]
00845CD8 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00845CDA FF5160 call dword ptr [ecx+$60]
00845CDD 8D55EC lea edx, [ebp-$14]
00845CE0 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00845CE3 E8044CBCFF call 0040A8EC
00845CE8 837DEC00 cmp dword ptr [ebp-$14], +$00
00845CEC 750D jnz 00845CFB
00845CEE 8D45FC lea eax, [ebp-$04]
00845CF1 BA745F8400 mov edx, $00845F74
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00845CF6 E8C1F6BBFF call 004053BC
* Reference to control Label9 : N.A.
|
00845CFB 8B9E54030000 mov ebx, [esi+$0354]
00845D01 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00845D03 E83827C8FF call 004C8440
* Possible String Reference to: 'BBMoney'
|
00845D08 BA645F8400 mov edx, $00845F64
00845D0D 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00845D0F E8A00EC8FF call 004C6BB4
00845D14 50 push eax
00845D15 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00845D18 E80F7ABCFF call 0040D72C
00845D1D 8D45DC lea eax, [ebp-$24]
* Reference to: Variants.@VarFromReal;
|
00845D20 E86730BDFF call 00418D8C
00845D25 8D55DC lea edx, [ebp-$24]
00845D28 58 pop eax
00845D29 8B08 mov ecx, [eax]
00845D2B FF91B4000000 call dword ptr [ecx+$00B4]
00845D31 8BC3 mov eax, ebx
00845D33 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00845D35 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
00845D3B 8B9E08030000 mov ebx, [esi+$0308]
00845D41 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00845D43 E88CFBC7FF call 004C58D4
00845D48 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00845D4A E85D82C9FF call 004DDFAC
00845D4F 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00845D51 FF5244 call dword ptr [edx+$44]
00845D54 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00845D56 E85182C9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00845D5B BA805F8400 mov edx, $00845F80
00845D60 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00845D62 FF5138 call dword ptr [ecx+$38]
00845D65 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00845D67 E84082C9FF call 004DDFAC
00845D6C 50 push eax
00845D6D 8D45D8 lea eax, [ebp-$28]
00845D70 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set BBMoney='
|
00845D73 BA9C5F8400 mov edx, $00845F9C
* Reference to: System.@LStrCat3;
|
00845D78 E8C3F8BBFF call 00405640
00845D7D 8B55D8 mov edx, [ebp-$28]
00845D80 58 pop eax
00845D81 8B08 mov ecx, [eax]
00845D83 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00845D86 68B45F8400 push $00845FB4
00845D8B 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmSKCR_YF._PROC_00845F81(Sender : TObject);
begin
(*
00845F81 50 push eax
00845F82 6461 popa
00845F84 7465 jz 00845FEB
00845F86 205946 and [ecx+$46], bl
00845F89 5F pop edi
00845F8A 4D dec ebp
00845F8B 6F outsd
00845F8C 6E outsb
00845F8D 65795F jns 00845FEF
00845F90 43 inc ebx
00845F91 52 push edx
00845F92 2000 and [eax], al
00845F94 FFFF DB $FF, $FF //
00845F96 FFFF DB $FF, $FF //
00845F98 0D00000020 or eax, $20000000
00845F9D 7365 jnb 00846004
00845F9F 7420 jz 00845FC1
00845FA1 42 inc edx
00845FA2 42 inc edx
00845FA3 4D dec ebp
00845FA4 6F outsd
00845FA5 6E outsb
00845FA6 65793D jns 00845FE6
00845FA9 0000 add [eax], al
00845FAB 00FF add bh, bh
00845FAD FFFF DB $FF, $FF //
00845FAF FF09 dec dword ptr [ecx]
00845FB1 0000 add [eax], al
00845FB3 002C4564697465 add [$65746964+eax*2], ch
00845FBA 723D jb 00845FF9
00845FBC 27 daa
00845FBD 0000 add [eax], al
00845FBF 00FF add bh, bh
00845FC1 FFFF DB $FF, $FF //
00845FC3 FF1400 call dword ptr [eax+eax]
00845FC6 0000 add [eax], al
00845FC8 2C45 sub al, $45
00845FCA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00845FD3 657464 jz 0084603A
00845FD6 61 popa
00845FD7 7465 jz 0084603E
00845FD9 2829 sub [ecx], ch
00845FDB 2000 and [eax], al
00845FDD 0000 add [eax], al
00845FDF 00FF add bh, bh
00845FE1 FFFF DB $FF, $FF //
00845FE3 FF0D00000020 dec dword ptr [$20000000]
00845FE9 7768 jnbe 00846053
00845FEB 657265 jb 00846053
00845FEE 205946 and [ecx+$46], bl
00845FF1 49 dec ecx
00845FF2 643D27000000 cmp eax, $00000027
00845FF8 FFFF DB $FF, $FF //
00845FFA FFFF DB $FF, $FF //
00845FFC 0400 add al, +$00
00845FFE 0000 add [eax], al
00846000 59 pop ecx
00846001 46 inc esi
00846002 49 dec ecx
00846003 640000 add fs:[eax], al
00846006 0000 add [eax], al
00846008 FFFF DB $FF, $FF //
0084600A FFFF DB $FF, $FF //
0084600C 2B00 sub eax, dword ptr [eax]
0084600E 0000 add [eax], al
00846010 55 push ebp
00846011 7064 jo 00846077
00846013 61 popa
00846014 7465 jz 0084607B
00846016 205946 and [ecx+$46], bl
00846019 5F pop edi
0084601A 4D dec ebp
0084601B 6F outsd
0084601C 6E outsb
0084601D 65795F jns 0084607F
00846020 4B dec ebx
00846021 43 inc ebx
00846022 205365 and [ebx+$65], dl
00846025 7420 jz 00846047
00846027 4B dec ebx
00846028 43 inc ebx
00846029 42 inc edx
0084602A 42 inc edx
0084602B 4D dec ebp
0084602C 6F outsd
0084602D 6E outsb
0084602E 65793D jns 0084606E
00846031 4B dec ebx
00846032 43 inc ebx
00846033 42 inc edx
00846034 42 inc edx
00846035 4D dec ebp
00846036 6F outsd
00846037 6E outsb
00846038 65792B jns 00846066
0084603B 00FF add bh, bh
0084603D FFFF DB $FF, $FF //
0084603F FF01 inc dword ptr [ecx]
00846041 0000 add [eax], al
00846043 002D000000FF add [$FF000000], ch
00846049 FFFF DB $FF, $FF //
0084604B FF0D00000020 dec dword ptr [$20000000]
00846051 7768 jnbe 008460BB
00846053 657265 jb 008460BB
00846056 204352 and [ebx+$52], al
00846059 49 dec ecx
0084605A 44 inc esp
0084605B 3D27000000 cmp eax, $00000027
00846060 FFFF DB $FF, $FF //
00846062 FFFF DB $FF, $FF //
00846064 0400 add al, +$00
00846066 0000 add [eax], al
00846068 43 inc ebx
00846069 52 push edx
0084606A 49 dec ecx
0084606B 44 inc esp
0084606C 0000 add [eax], al
0084606E 0000 add [eax], al
00846070 56 push esi
* Reference to control Label4 : TLabel
|
00846071 8B8010030000 mov eax, [eax+$0310]
00846077 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
0084607B E8D4E4BBFF call 00404554
00846080 5E pop esi
00846081 C3 ret
00846082 8BC0 mov eax, eax
00846084 55 push ebp
00846085 8BEC mov ebp, esp
00846087 B906000000 mov ecx, $00000006
0084608C 6A00 push $00
0084608E 6A00 push $00
00846090 49 dec ecx
00846091 75F9 jnz 0084608C
00846093 51 push ecx
00846094 53 push ebx
00846095 56 push esi
00846096 8BDA mov ebx, edx
00846098 8BF0 mov esi, eax
0084609A 33C0 xor eax, eax
0084609C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0084609D 6821628400 push $00846221
***** TRY
|
008460A2 64FF30 push dword ptr fs:[eax]
008460A5 648920 mov fs:[eax], esp
008460A8 8D55FC lea edx, [ebp-$04]
008460AB 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;
|
008460AD E80A96D4FF call 0058F6BC
* Reference to control v1PRTColor : N.A.
|
008460B2 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008460B8 E88F62E1FF 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;
|
008460BD E8A2BAE0FF call 00651B64
* Reference to field N.A..OFFS_0050
|
008460C2 8B4050 mov eax, [eax+$50]
008460C5 8D55F4 lea edx, [ebp-$0C]
008460C8 8B08 mov ecx, [eax]
008460CA FF5110 call dword ptr [ecx+$10]
008460CD 8B45F4 mov eax, [ebp-$0C]
008460D0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008460D3 E81448BCFF call 0040A8EC
* Reference to control Label9 : N.A.
|
008460D8 8B9E54030000 mov ebx, [esi+$0354]
008460DE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008460E0 E85B23C8FF call 004C8440
008460E5 8D55E0 lea edx, [ebp-$20]
008460E8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008460EB E8FC47BCFF call 0040A8EC
008460F0 8B55E0 mov edx, [ebp-$20]
008460F3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008460F6 E8CD2CBDFF call 00418DC8
008460FB 8D45E4 lea eax, [ebp-$1C]
008460FE 50 push eax
008460FF 8B55F8 mov edx, [ebp-$08]
00846102 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846104 E8AB0AC8FF call 004C6BB4
00846109 5A pop edx
0084610A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0084610C FF91B4000000 call dword ptr [ecx+$00B4]
00846112 8BC3 mov eax, ebx
00846114 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00846116 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
0084611C 8B9E08030000 mov ebx, [esi+$0308]
00846122 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846124 E8ABF7C7FF call 004C58D4
00846129 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084612B E87C7EC9FF call 004DDFAC
00846130 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00846132 FF5244 call dword ptr [edx+$44]
00846135 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00846137 E8707EC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0084613C BA38628400 mov edx, $00846238
00846141 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00846143 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00846146 6854628400 push $00846254
0084614B FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0084614E 6864628400 push $00846264
00846153 8D55D8 lea edx, [ebp-$28]
00846156 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00846159 E88E47BCFF call 0040A8EC
0084615E FF75D8 push dword ptr [ebp-$28]
00846161 6870628400 push $00846270
00846166 8D45DC lea eax, [ebp-$24]
00846169 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0084616E E841F5BBFF call 004056B4
00846173 8B45DC mov eax, [ebp-$24]
00846176 50 push eax
00846177 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00846179 E82E7EC9FF call 004DDFAC
0084617E 5A pop edx
0084617F 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00846181 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00846184 687C628400 push $0084627C
* Possible String Reference to: 'YFId'
|
00846189 BA94628400 mov edx, $00846294
* Reference to control Label9 : N.A.
|
0084618E 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846194 E81B0AC8FF call 004C6BB4
00846199 8D55CC lea edx, [ebp-$34]
0084619C 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0084619E FF5160 call dword ptr [ecx+$60]
008461A1 8B45CC mov eax, [ebp-$34]
008461A4 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008461A7 E84047BCFF call 0040A8EC
008461AC FF75D0 push dword ptr [ebp-$30]
008461AF 6870628400 push $00846270
008461B4 8D45D4 lea eax, [ebp-$2C]
008461B7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008461BC E8F3F4BBFF call 004056B4
008461C1 8B45D4 mov eax, [ebp-$2C]
008461C4 50 push eax
008461C5 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008461C7 E8E07DC9FF call 004DDFAC
008461CC 5A pop edx
008461CD 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008461CF FF5138 call dword ptr [ecx+$38]
008461D2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008461D4 E8FB7CC9FF call 004DDED4
* Reference to control v1PRTColor : N.A.
|
008461D9 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008461DF E86861E1FF call 0065C34C
* Reference to field N.A..OFFS_0080
|
008461E4 8B8080000000 mov eax, [eax+$0080]
008461EA 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
008461EC E86BA5DDFF call 0062075C
008461F1 33C0 xor eax, eax
008461F3 5A pop edx
008461F4 59 pop ecx
008461F5 59 pop ecx
008461F6 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008461F9 6828628400 push $00846228
008461FE 8D45CC lea eax, [ebp-$34]
00846201 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00846206 E83DF1BBFF call 00405348
0084620B 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0084620E E861E4BCFF call 00414674
00846213 8D45F4 lea eax, [ebp-$0C]
00846216 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0084621B E828F1BBFF call 00405348
00846220 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00846239(Sender : TObject);
begin
(*
00846239 50 push eax
0084623A 6461 popa
0084623C 7465 jz 008462A3
0084623E 205946 and [ecx+$46], bl
00846241 5F pop edi
00846242 4D dec ebp
00846243 6F outsd
00846244 6E outsb
00846245 65795F jns 008462A7
00846248 43 inc ebx
00846249 52 push edx
0084624A 2000 and [eax], al
0084624C FFFF DB $FF, $FF //
0084624E FFFF DB $FF, $FF //
00846250 0500000020 add eax, +$20000000
00846255 53 push ebx
00846256 657420 jz 00846279
00846259 0000 add [eax], al
0084625B 00FF add bh, bh
0084625D FFFF DB $FF, $FF //
0084625F FF02 inc dword ptr [edx]
00846261 0000 add [eax], al
00846263 003D270000FF add [$FF000027], bh
00846269 FFFF DB $FF, $FF //
0084626B FF01 inc dword ptr [ecx]
0084626D 0000 add [eax], al
0084626F 0027 add [edi], ah
00846271 0000 add [eax], al
00846273 00FF add bh, bh
00846275 FFFF DB $FF, $FF //
00846277 FF0D00000020 dec dword ptr [$20000000]
0084627D 7768 jnbe 008462E7
0084627F 657265 jb 008462E7
00846282 205946 and [ecx+$46], bl
00846285 49 dec ecx
00846286 643D27000000 cmp eax, $00000027
0084628C FFFF DB $FF, $FF //
0084628E FFFF DB $FF, $FF //
00846290 0400 add al, +$00
00846292 0000 add [eax], al
00846294 59 pop ecx
00846295 46 inc esi
00846296 49 dec ecx
00846297 640000 add fs:[eax], al
0084629A 0000 add [eax], al
0084629C 55 push ebp
0084629D 8BEC mov ebp, esp
0084629F B905000000 mov ecx, $00000005
008462A4 6A00 push $00
008462A6 6A00 push $00
008462A8 49 dec ecx
008462A9 75F9 jnz 008462A4
008462AB 53 push ebx
008462AC 56 push esi
008462AD 8BDA mov ebx, edx
008462AF 8BF0 mov esi, eax
008462B1 33C0 xor eax, eax
008462B3 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008462B4 6815648400 push $00846415
***** TRY
|
008462B9 64FF30 push dword ptr fs:[eax]
008462BC 648920 mov fs:[eax], esp
008462BF 8D55FC lea edx, [ebp-$04]
008462C2 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;
|
008462C4 E8F393D4FF call 0058F6BC
008462C9 8D55F8 lea edx, [ebp-$08]
008462CC 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008462CF E81846BCFF call 0040A8EC
008462D4 837DF800 cmp dword ptr [ebp-$08], +$00
008462D8 750D jnz 008462E7
008462DA 8D45FC lea eax, [ebp-$04]
008462DD BA2C648400 mov edx, $0084642C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008462E2 E8D5F0BBFF call 004053BC
* Reference to control Label9 : N.A.
|
008462E7 8B9E54030000 mov ebx, [esi+$0354]
008462ED 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008462EF E84C21C8FF call 004C8440
008462F4 6A00 push $00
008462F6 6A00 push $00
008462F8 6A00 push $00
008462FA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
008462FD E86674BCFF call 0040D768
00846302 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarFromReal;
|
00846305 E8822ABDFF call 00418D8C
0084630A 8D45E8 lea eax, [ebp-$18]
0084630D 50 push eax
* Possible String Reference to: 'DerateMoney'
|
0084630E BA38648400 mov edx, $00846438
00846313 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846315 E89A08C8FF call 004C6BB4
0084631A 5A pop edx
0084631B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0084631D FF91B4000000 call dword ptr [ecx+$00B4]
00846323 8BC3 mov eax, ebx
00846325 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00846327 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
0084632D 8B9E08030000 mov ebx, [esi+$0308]
00846333 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00846335 E89AF5C7FF call 004C58D4
0084633A 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0084633C E86B7CC9FF call 004DDFAC
00846341 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00846343 FF5244 call dword ptr [edx+$44]
00846346 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00846348 E85F7CC9FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0084634D BA4C648400 mov edx, $0084644C
00846352 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00846354 FF5138 call dword ptr [ecx+$38]
00846357 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00846359 E84E7CC9FF call 004DDFAC
0084635E 50 push eax
0084635F 8D45E4 lea eax, [ebp-$1C]
00846362 8B4DFC mov ecx, [ebp-$04]
* Possible String Reference to: ' set DerateMoney='
|
00846365 BA68648400 mov edx, $00846468
* Reference to: System.@LStrCat3;
|
0084636A E8D1F2BBFF call 00405640
0084636F 8B55E4 mov edx, [ebp-$1C]
00846372 58 pop eax
00846373 8B08 mov ecx, [eax]
00846375 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00846378 6884648400 push $00846484
* Possible String Reference to: 'YFId'
|
0084637D BA9C648400 mov edx, $0084649C
* Reference to control Label9 : N.A.
|
00846382 8B8654030000 mov eax, [esi+$0354]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00846388 E82708C8FF call 004C6BB4
0084638D 8D55D8 lea edx, [ebp-$28]
00846390 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00846392 FF5160 call dword ptr [ecx+$60]
00846395 8B45D8 mov eax, [ebp-$28]
00846398 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0084639B E84C45BCFF call 0040A8EC
008463A0 FF75DC push dword ptr [ebp-$24]
008463A3 68AC648400 push $008464AC
008463A8 8D45E0 lea eax, [ebp-$20]
008463AB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008463B0 E8FFF2BBFF call 004056B4
008463B5 8B45E0 mov eax, [ebp-$20]
008463B8 50 push eax
008463B9 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008463BB E8EC7BC9FF call 004DDFAC
008463C0 5A pop edx
008463C1 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008463C3 FF5138 call dword ptr [ecx+$38]
008463C6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008463C8 E8077BC9FF call 004DDED4
* Reference to control v1PRTColor : N.A.
|
008463CD 8B8634030000 mov eax, [esi+$0334]
* 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;
|
008463D3 E8745FE1FF call 0065C34C
* Reference to field N.A..OFFS_0080
|
008463D8 8B8080000000 mov eax, [eax+$0080]
008463DE 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_0062075C()
|
008463E0 E877A3DDFF call 0062075C
008463E5 33C0 xor eax, eax
008463E7 5A pop edx
008463E8 59 pop ecx
008463E9 59 pop ecx
008463EA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008463ED 681C648400 push $0084641C
008463F2 8D45D8 lea eax, [ebp-$28]
008463F5 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008463FA E849EFBBFF call 00405348
008463FF 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00846402 E86DE2BCFF call 00414674
00846407 8D45F8 lea eax, [ebp-$08]
0084640A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0084640F E834EFBBFF call 00405348
00846414 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_0084644D(Sender : TObject);
begin
(*
0084644D 50 push eax
0084644E 6461 popa
00846450 7465 jz 008464B7
00846452 205946 and [ecx+$46], bl
00846455 5F pop edi
00846456 4D dec ebp
00846457 6F outsd
00846458 6E outsb
00846459 65795F jns 008464BB
0084645C 43 inc ebx
0084645D 52 push edx
0084645E 2000 and [eax], al
00846460 FFFF DB $FF, $FF //
00846462 FFFF DB $FF, $FF //
00846464 1100 adc [eax], eax
00846466 0000 add [eax], al
00846468 207365 and [ebx+$65], dh
0084646B 7420 jz 0084648D
0084646D 44 inc esp
0084646E 657261 jb 008464D2
00846471 7465 jz 008464D8
00846473 4D dec ebp
00846474 6F outsd
00846475 6E outsb
00846476 65793D jns 008464B6
00846479 0000 add [eax], al
0084647B 00FF add bh, bh
0084647D FFFF DB $FF, $FF //
0084647F FF0D00000020 dec dword ptr [$20000000]
00846485 7768 jnbe 008464EF
00846487 657265 jb 008464EF
0084648A 205946 and [ecx+$46], bl
0084648D 49 dec ecx
0084648E 643D27000000 cmp eax, $00000027
00846494 FFFF DB $FF, $FF //
00846496 FFFF DB $FF, $FF //
00846498 0400 add al, +$00
0084649A 0000 add [eax], al
0084649C 59 pop ecx
0084649D 46 inc esi
0084649E 49 dec ecx
0084649F 640000 add fs:[eax], al
008464A2 0000 add [eax], al
008464A4 FFFF DB $FF, $FF //
008464A6 FFFF DB $FF, $FF //
008464A8 0100 add [eax], eax
008464AA 0000 add [eax], al
008464AC 27 daa
008464AD 0000 add [eax], al
008464AF 00538B add [ebx-$75], dl
008464B2 D88BC3E8FACC fmul dword ptr [ebx+$CCFAE8C3]
008464B8 FFFF DB $FF, $FF //
008464BA 8BC3 mov eax, ebx
|
008464BC E8F7CCFFFF call 008431B8
008464C1 5B pop ebx
008464C2 C3 ret
008464C3 90 nop
008464C4 55 push ebp
008464C5 8BEC mov ebp, esp
008464C7 51 push ecx
008464C8 B906000000 mov ecx, $00000006
008464CD 6A00 push $00
008464CF 6A00 push $00
008464D1 49 dec ecx
008464D2 75F9 jnz 008464CD
008464D4 51 push ecx
008464D5 874DFC xchg [ebp-$04], ecx
008464D8 53 push ebx
008464D9 56 push esi
008464DA 8BF0 mov esi, eax
008464DC 33C0 xor eax, eax
008464DE 55 push ebp
008464DF 681B678400 push $0084671B
***** TRY
|
008464E4 64FF30 push dword ptr fs:[eax]
008464E7 648920 mov fs:[eax], esp
008464EA 33C0 xor eax, eax
008464EC 55 push ebp
008464ED 68F1668400 push $008466F1
***** TRY
|
008464F2 64FF30 push dword ptr fs:[eax]
008464F5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmSKCR_YF._PROC_00846769(Sender : TObject);
begin
(*
00846769 50 push eax
0084676A 6461 popa
0084676C 7465 jz 008467D3
0084676E 205946 and [ecx+$46], bl
00846771 5F pop edi
00846772 4D dec ebp
00846773 6F outsd
00846774 6E outsb
00846775 65795F jns 008467D7
00846778 43 inc ebx
00846779 52 push edx
0084677A 2000 and [eax], al
0084677C FFFF DB $FF, $FF //
0084677E FFFF DB $FF, $FF //
00846780 1000 adc [eax], al
00846782 0000 add [eax], al
00846784 205365 and [ebx+$65], dl
00846787 7420 jz 008467A9
00846789 43 inc ebx
0084678A 6F outsd
0084678B 6D insd
0084678C 54 push esp
0084678D 61 popa
0084678E 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
00846796 0000 add [eax], al
00846798 FFFF DB $FF, $FF //
0084679A FFFF DB $FF, $FF //
0084679C 0100 add [eax], eax
0084679E 0000 add [eax], al
008467A0 27 daa
008467A1 0000 add [eax], al
008467A3 00FF add bh, bh
008467A5 FFFF DB $FF, $FF //
008467A7 FF09 dec dword ptr [ecx]
008467A9 0000 add [eax], al
008467AB 002C4564697465 add [$65746964+eax*2], ch
008467B2 723D jb 008467F1
008467B4 27 daa
008467B5 0000 add [eax], al
008467B7 00FF add bh, bh
008467B9 FFFF DB $FF, $FF //
008467BB FF1400 call dword ptr [eax+eax]
008467BE 0000 add [eax], al
008467C0 2C45 sub al, $45
008467C2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008467CB 657464 jz 00846832
008467CE 61 popa
008467CF 7465 jz 00846836
008467D1 2829 sub [ecx], ch
008467D3 2000 and [eax], al
008467D5 0000 add [eax], al
008467D7 00FF add bh, bh
008467D9 FFFF DB $FF, $FF //
008467DB FF0D00000020 dec dword ptr [$20000000]
008467E1 7768 jnbe 0084684B
008467E3 657265 jb 0084684B
008467E6 205946 and [ecx+$46], bl
008467E9 49 dec ecx
008467EA 643D27000000 cmp eax, $00000027
008467F0 FFFF DB $FF, $FF //
008467F2 FFFF DB $FF, $FF //
008467F4 0400 add al, +$00
008467F6 0000 add [eax], al
008467F8 59 pop ecx
008467F9 46 inc esi
008467FA 49 dec ecx
008467FB 640000 add fs:[eax], al
008467FE 0000 add [eax], al
00846800 55 push ebp
00846801 8BEC mov ebp, esp
00846803 B907000000 mov ecx, $00000007
00846808 6A00 push $00
0084680A 6A00 push $00
0084680C 49 dec ecx
0084680D 75F9 jnz 00846808
0084680F 53 push ebx
00846810 56 push esi
00846811 8BD8 mov ebx, eax
*)
end;
procedure TfrmSKCR_YF._PROC_00848172(Sender : TObject);
begin
(*
00848172 53 push ebx
00848173 44 inc esp
00848174 4D dec ebp
00848175 6F outsd
00848176 6E outsb
00848177 65793D jns 008481B7
0084817A 7375 jnb 008481F1
0084817C 6D insd
0084817D 28452E sub [ebp+$2E], al
00848180 4E dec esi
00848181 756D jnz 008481F0
00848183 2900 sub dword ptr [eax], eax
00848185 0000 add [eax], al
00848187 00FF add bh, bh
00848189 FFFF DB $FF, $FF //
0084818B FF13 call dword ptr [ebx]
0084818D 0000 add [eax], al
0084818F 006672 add [esi+$72], ah
00848192 6F outsd
00848193 6D insd
00848194 205946 and [ecx+$46], bl
00848197 5F pop edi
00848198 4D dec ebp
00848199 6F outsd
0084819A 6E outsb
0084819B 65795F jns 008481FD
0084819E 43 inc ebx
0084819F 52 push edx
008481A0 204120 and [ecx+$20], al
008481A3 00FF add bh, bh
008481A5 FFFF DB $FF, $FF //
008481A7 FF27 jmp dword ptr [edi]
008481A9 0000 add [eax], al
008481AB 00696E add [ecx+$6E], ch
008481AE 6E outsb
008481AF 657220 jb 008481D2
008481B2 6A6F push $6F
008481B4 696E2059465F6C imul ebp, [esi+$20], $6C5F4659
008481BB 6F outsd
008481BC 67204520 and [di+$20], al
008481C0 6F outsd
008481C1 6E outsb
008481C2 20452E and [ebp+$2E], al
008481C5 4C dec esp
008481C6 6973744E6F3D41 imul esi, [ebx+$74], $413D6F4E
008481CD 2E59 pop ecx
008481CF 46 inc esi
008481D0 49 dec ecx
008481D1 44 inc esp
008481D2 2000 and [eax], al
008481D4 FFFF DB $FF, $FF //
008481D6 FFFF DB $FF, $FF //
008481D8 44 inc esp
008481D9 0000 add [eax], al
008481DB 00696E add [ecx+$6E], ch
008481DE 6E outsb
008481DF 657220 jb 00848202
008481E2 6A6F push $6F
008481E4 696E2059465F4D imul ebp, [esi+$20], $4D5F4659
008481EB 6F outsd
008481EC 6E outsb
008481ED 65795F jns 0084824F
008481F0 43 inc ebx
008481F1 52 push edx
008481F2 204220 and [edx+$20], al
008481F5 6F outsd
008481F6 6E outsb
008481F7 20422E and [edx+$2E], al
008481FA 59 pop ecx
008481FB 46 inc esi
008481FC 49 dec ecx
008481FD 44 inc esp
008481FE 3D452E546F cmp eax, $6F542E45
00848203 4E dec esi
00848204 6F outsd
00848205 20616E and [ecx+$6E], ah
00848208 6420422E and fs:[edx+$2E], al
0084820C 43 inc ebx
0084820D 52 push edx
0084820E 54 push esp
0084820F 7970 jns 00848281
00848211 653D27D3A6CA cmp eax, $CAA6D327
00848217 D5 aad
00848218 BFEEB5C7BC mov edi, $BCC7B5EE
0084821D C72720000000 mov dword ptr [edi], $00000020
00848223 00FF add bh, bh
00848225 FFFF DB $FF, $FF //
00848227 FF10 call dword ptr [eax]
00848229 0000 add [eax], al
0084822B 007768 add [edi+$68], dh
0084822E 657265 jb 00848296
00848231 20422E and [edx+$2E], al
00848234 4D dec ebp
00848235 61 popa
00848236 696E69643D2700 imul ebp, [esi+$69], $00273D64
0084823D 0000 add [eax], al
0084823F 00FF add bh, bh
00848241 FFFF DB $FF, $FF //
00848243 FF1A call [edx]
00848245 0000 add [eax], al
00848247 0027 add [edi], ah
00848249 20616E and [ecx+$6E], ah
0084824C 6420412E and fs:[ecx+$2E], al
00848250 43 inc ebx
00848251 52 push edx
00848252 54 push esp
00848253 7970 jns 008482C5
00848255 653D27CAD5BF cmp eax, $BFD5CA27
0084825B EE out dx, al
0084825C B5C7 mov ch, $C7
0084825E BCC7272000 mov esp, $002027C7
00848263 00FF add bh, bh
00848265 FFFF DB $FF, $FF //
00848267 FF12 call dword ptr [edx]
00848269 0000 add [eax], al
0084826B 0020 add [eax], ah
0084826D 61 popa
0084826E 6E outsb
0084826F 6420412E and fs:[ecx+$2E], al
00848273 7374 jnb 008482E9
00848275 61 popa
00848276 7475 jz 008482ED
00848278 733C jnb 008482B6
0084827A 3E27 daa
0084827C 3027 xor [edi], ah
0084827E 0000 add [eax], al
00848280 FFFF DB $FF, $FF //
00848282 FFFF DB $FF, $FF //
00848284 3200 xor al, byte ptr [eax]
00848286 0000 add [eax], al
00848288 206772 and [edi+$72], ah
0084828B 6F outsd
0084828C 7570 jnz 008482FE
0084828E 206279 and [edx+$79], ah
00848291 20422E and [edx+$2E], al
00848294 43 inc ebx
00848295 6F outsd
00848296 6E outsb
00848297 4E dec esi
00848298 6F outsd
00848299 2C41 sub al, $41
0084829B 2E43 inc ebx
0084829D 52 push edx
0084829E 54 push esp
0084829F 696D652C412E42 imul ebp, [ebp+$65], $422E412C
008482A6 5A pop edx
008482A7 54 push esp
008482A8 7970 jns 0084831A
008482AA 652C41 sub al, $41
008482AD 2E48 dec eax
008482AF 7569 jnz 0084831A
008482B1 6C insb
008482B2 762C jbe 008482E0
008482B4 41 inc ecx
008482B5 2E4E dec esi
008482B7 6F outsd
008482B8 7465 jz 0084831F
008482BA 0000 add [eax], al
008482BC FFFF DB $FF, $FF //
008482BE FFFF DB $FF, $FF //
008482C0 0800 or [eax], al
008482C2 0000 add [eax], al
008482C4 55 push ebp
008482C5 53 push ebx
008482C6 44 inc esp
008482C7 4D dec ebp
008482C8 6F outsd
008482C9 6E outsb
008482CA 657900 jns 008482CD
008482CD 0000 add [eax], al
008482CF 00FF add bh, bh
008482D1 FFFF DB $FF, $FF //
008482D3 FF29 jmp [ecx]
008482D5 0000 add [eax], al
008482D7 007365 add [ebx+$65], dh
008482DA 6C insb
008482DB 6563742041 arpl gs:[eax+$41], si
008482E0 2E43 inc ebx
008482E2 52 push edx
008482E3 54 push esp
008482E4 696D652C412E59 imul ebp, [ebp+$65], $592E412C
008482EB 46 inc esi
008482EC 4E dec esi
008482ED 61 popa
008482EE 6D insd
008482EF 652C41 sub al, $41
008482F2 2E42 inc edx
008482F4 5A pop edx
008482F5 54 push esp
008482F6 7970 jns 00848368
008482F8 652C41 sub al, $41
008482FB 2E4E dec esi
008482FD 6F outsd
008482FE 7465 jz 00848365
00848300 2000 and [eax], al
00848302 0000 add [eax], al
00848304 FFFF DB $FF, $FF //
00848306 FFFF DB $FF, $FF //
00848308 1E push ds
00848309 0000 add [eax], al
0084830B 002C52 add [edx+edx*2], ch
0084830E 4D dec ebp
0084830F 42 inc edx
00848310 4D dec ebp
00848311 6F outsd
00848312 6E outsb
00848313 65793D jns 00848353
00848316 53 push ebx
00848317 756D jnz 00848386
00848319 28412E sub [ecx+$2E], al
0084831C 4D dec ebp
0084831D 6F outsd
0084831E 6E outsb
0084831F 65792A jns 0084834C
00848322 41 inc ecx
00848323 2E48 dec eax
00848325 7569 jnz 00848390
00848327 6C insb
00848328 7629 jbe 00848353
0084832A 0000 add [eax], al
0084832C FFFF DB $FF, $FF //
0084832E FFFF DB $FF, $FF //
00848330 0200 add al, byte ptr [eax]
00848332 0000 add [eax], al
00848334 27 daa
00848335 2000 and [eax], al
00848337 00FF add bh, bh
00848339 FFFF DB $FF, $FF //
0084833B FF4D00 dec dword ptr [ebp+$00]
0084833E 0000 add [eax], al
00848340 20616E and [ecx+$6E], ah
00848343 6420412E and fs:[ecx+$2E], al
00848347 43 inc ebx
00848348 52 push edx
00848349 54 push esp
0084834A 7970 jns 008483BC
0084834C 6520696E and gs:[ecx+$6E], ch
00848350 2028 and [eax], ch
00848352 27 daa
00848353 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
00848359 B5C7 mov ch, $C7
0084835B BCC7272C27 mov esp, $272C27C7
00848360 B8B6BFEED4 mov eax, $D4EEBFB6
00848365 D3B7D1272920 DB $D3, $B7, $D1, $27, $29, $20 // dword ptr [edi+$202927D1], cl
0084836B 61 popa
0084836C 6E outsb
0084836D 64206973 and fs:[ecx+$73], ch
00848371 6E outsb
00848372 756C jnz 008483E0
00848374 6C insb
00848375 28412E sub [ecx+$2E], al
00848378 46 inc esi
00848379 59 pop ecx
0084837A 54 push esp
0084837B 7970 jns 008483ED
0084837D 652C27 sub al, $27
00848380 27 daa
00848381 293C3E sub dword ptr [esi+edi], edi
00848384 27 daa
00848385 BCD3B9A4B7 mov esp, $B7A4B9D3
0084838A D127 shl dword ptr [edi], 1
0084838C 2000 and [eax], al
0084838E 0000 add [eax], al
00848390 FFFF DB $FF, $FF //
00848392 FFFF DB $FF, $FF //
00848394 44 inc esp
00848395 0000 add [eax], al
00848397 0020 add [eax], ah
00848399 61 popa
0084839A 6E outsb
0084839B 64206973 and fs:[ecx+$73], ch
0084839F 6E outsb
008483A0 756C jnz 0084840E
008483A2 6C insb
008483A3 28412E sub [ecx+$2E], al
008483A6 46 inc esi
008483A7 59 pop ecx
008483A8 54 push esp
008483A9 7970 jns 0084841B
008483AB 652C27 sub al, $27
008483AE 27 daa
008483AF 293C3E sub dword ptr [esi+edi], edi
008483B2 27 daa
008483B3 C5F7 lds esi, di
008483B5 B2BC mov dl, $BC
008483B7 B7D1 mov bh, $D1
008483B9 27 daa
008483BA 20616E and [ecx+$6E], ah
008483BD 64206973 and fs:[ecx+$73], ch
008483C1 6E outsb
008483C2 756C jnz 00848430
008483C4 6C insb
008483C5 28412E sub [ecx+$2E], al
008483C8 59 pop ecx
008483C9 46 inc esi
008483CA 4E dec esi
008483CB 61 popa
008483CC 6D insd
008483CD 652C27 sub al, $27
008483D0 27 daa
008483D1 293C3E sub dword ptr [esi+edi], edi
008483D4 27 daa
008483D5 B8A8C1CFB7 mov eax, $B7CFC1A8
008483DA D127 shl dword ptr [edi], 1
008483DC 0000 add [eax], al
008483DE 0000 add [eax], al
008483E0 FFFF DB $FF, $FF //
008483E2 FFFF DB $FF, $FF //
008483E4 7300 jnb 008483E6
008483E6 0000 add [eax], al
008483E8 20616E and [ecx+$6E], ah
008483EB 64206973 and fs:[ecx+$73], ch
008483EF 6E outsb
008483F0 756C jnz 0084845E
008483F2 6C insb
008483F3 28412E sub [ecx+$2E], al
008483F6 59 pop ecx
008483F7 46 inc esi
008483F8 4E dec esi
008483F9 61 popa
008483FA 6D insd
008483FB 652C27 sub al, $27
008483FE 27 daa
008483FF 293C3E sub dword ptr [esi+edi], edi
00848402 27 daa
00848403 B2C3 mov dl, $C3
00848405 BCF4C8CBB9 mov esp, $B9CBC8F4
0084840A A4 movsb
0084840B B7D1 mov bh, $D1
0084840D 27 daa
0084840E 20616E and [ecx+$6E], ah
00848411 64206973 and fs:[ecx+$73], ch
00848415 6E outsb
00848416 756C jnz 00848484
00848418 6C insb
00848419 28412E sub [ecx+$2E], al
0084841C 59 pop ecx
0084841D 46 inc esi
0084841E 4E dec esi
0084841F 61 popa
00848420 6D insd
00848421 652C27 sub al, $27
00848424 27 daa
00848425 293C3E sub dword ptr [esi+edi], edi
00848428 27 daa
00848429 B3B5 mov bl, $B5
0084842B B9A4C8CBB9 mov ecx, $B9CBC8A4
00848430 A4 movsb
00848431 B7D1 mov bh, $D1
00848433 27 daa
00848434 20616E and [ecx+$6E], ah
00848437 64206973 and fs:[ecx+$73], ch
0084843B 6E outsb
0084843C 756C jnz 008484AA
0084843E 6C insb
0084843F 28412E sub [ecx+$2E], al
00848442 59 pop ecx
00848443 46 inc esi
00848444 4E dec esi
00848445 61 popa
00848446 6D insd
00848447 652C27 sub al, $27
0084844A 27 daa
0084844B 293C3E sub dword ptr [esi+edi], edi
0084844E 27 daa
0084844F B0FC mov al, $FC
00848451 D7 xlat
00848452 B0C8 mov al, $C8
00848454 CB ret
00848455 B9A4B7D127 mov ecx, $27D1B7A4
0084845A 2000 and [eax], al
0084845C FFFF DB $FF, $FF //
0084845E FFFF DB $FF, $FF //
00848460 2B00 sub eax, dword ptr [eax]
00848462 0000 add [eax], al
00848464 206772 and [edi+$72], ah
00848467 6F outsd
00848468 7570 jnz 008484DA
0084846A 206279 and [edx+$79], ah
0084846D 20412E and [ecx+$2E], al
00848470 43 inc ebx
00848471 52 push edx
00848472 54 push esp
00848473 696D652C412E59 imul ebp, [ebp+$65], $592E412C
0084847A 46 inc esi
0084847B 4E dec esi
0084847C 61 popa
0084847D 6D insd
0084847E 652C41 sub al, $41
00848481 2E42 inc edx
00848483 5A pop edx
00848484 54 push esp
00848485 7970 jns 008484F7
00848487 652C41 sub al, $41
0084848A 2E4E dec esi
0084848C 6F outsd
0084848D 7465 jz 008484F4
0084848F 00FF add bh, bh
00848491 FFFF DB $FF, $FF //
00848493 FF1500000052 call dword ptr [$52000000]
00848499 65706F jo 0084850B
0084849C 7274 jb 00848512
0084849E 5C pop esp
0084849F B6A9 mov dh, $A9
008484A1 B5A5 mov ch, $A5
008484A3 C0FBC8 sar bl, $C8
008484A6 F3 rep
008484A7 B1ED mov cl, $ED
008484A9 2E726D jb 00848519
008484AC 660000 add [eax], al
008484AF 00FF add bh, bh
008484B1 FFFF DB $FF, $FF //
008484B3 FF0500000043 inc dword ptr [$43000000]
008484B9 6F outsd
008484BA 6E outsb
008484BB 4E dec esi
008484BC 4F dec edi
008484BD 0000 add [eax], al
008484BF 00FF add bh, bh
008484C1 FFFF DB $FF, $FF //
008484C3 FF06 inc dword ptr [esi]
008484C5 0000 add [eax], al
008484C7 004643 add [esi+$43], al
008484CA 6F outsd
008484CB 6E outsb
008484CC 4E dec esi
008484CD 6F outsd
008484CE 0000 add [eax], al
008484D0 FFFF DB $FF, $FF //
008484D2 FFFF DB $FF, $FF //
008484D4 07 pop es
008484D5 0000 add [eax], al
008484D7 004F72 add [edi+$72], cl
008484DA 6465724E jb 0084852C
008484DE 6F outsd
008484DF 00FF add bh, bh
008484E1 FFFF DB $FF, $FF //
008484E3 FF08 dec dword ptr [eax]
008484E5 0000 add [eax], al
008484E7 00464F add [esi+$4F], al
008484EA 7264 jb 00848550
008484EC 65724E jb 0084853D
008484EF 6F outsd
008484F0 0000 add [eax], al
008484F2 0000 add [eax], al
008484F4 FFFF DB $FF, $FF //
008484F6 FFFF DB $FF, $FF //
008484F8 0A00 or al, byte ptr [eax]
008484FA 0000 add [eax], al
008484FC 43 inc ebx
008484FD 6F outsd
008484FE 6E outsb
008484FF 50 push eax
00848500 657273 jb 00848576
00848503 6F outsd
00848504 6E outsb
00848505 3100 xor [eax], eax
00848507 00FF add bh, bh
00848509 FFFF DB $FF, $FF //
0084850B FF0B dec dword ptr [ebx]
0084850D 0000 add [eax], al
0084850F 004643 add [esi+$43], al
00848512 6F outsd
00848513 6E outsb
00848514 50 push eax
00848515 657273 jb 0084858B
00848518 6F outsd
00848519 6E outsb
0084851A 3100 xor [eax], eax
0084851C FFFF DB $FF, $FF //
0084851E FFFF DB $FF, $FF //
00848520 0E push cs
00848521 0000 add [eax], al
00848523 004375 add [ebx+$75], al
00848526 7374 jnb 0084859C
00848528 6F outsd
00848529 6D insd
0084852A 65724E jb 0084857B
0084852D 6F outsd
0084852E 4E dec esi
0084852F 61 popa
00848530 6D insd
00848531 650000 add gs:[eax], al
00848534 FFFF DB $FF, $FF //
00848536 FFFF DB $FF, $FF //
00848538 0F0000 sldt word ptr [eax]
0084853B 004643 add [esi+$43], al
0084853E 7573 jnz 008485B3
00848540 746F jz 008485B1
00848542 6D insd
00848543 65724E jb 00848594
00848546 6F outsd
00848547 4E dec esi
00848548 61 popa
00848549 6D insd
0084854A 6500FF add bh, bh
0084854D FFFF DB $FF, $FF //
0084854F FF07 inc dword ptr [edi]
00848551 0000 add [eax], al
00848553 004D4C add [ebp+$4C], cl
00848556 4D dec ebp
00848557 6F outsd
00848558 6E outsb
00848559 657900 jns 0084855C
0084855C FFFF DB $FF, $FF //
0084855E FFFF DB $FF, $FF //
00848560 07 pop es
00848561 0000 add [eax], al
00848563 005947 add [ecx+$47], bl
00848566 4D dec ebp
00848567 6F outsd
00848568 6E outsb
00848569 657900 jns 0084856C
0084856C FFFF DB $FF, $FF //
0084856E FFFF DB $FF, $FF //
00848570 0500000046 add eax, +$46000000
00848575 50 push eax
00848576 42 inc edx
00848577 50 push eax
00848578 53 push ebx
00848579 0000 add [eax], al
0084857B 00FF add bh, bh
0084857D FFFF DB $FF, $FF //
0084857F FF06 inc dword ptr [esi]
00848581 0000 add [eax], al
00848583 004650 add [esi+$50], al
00848586 42 inc edx
00848587 51 push ecx
00848588 7479 jz 00848603
0084858A 0000 add [eax], al
0084858C FFFF DB $FF, $FF //
0084858E FFFF DB $FF, $FF //
00848590 0800 or [eax], al
00848592 0000 add [eax], al
00848594 46 inc esi
00848595 50 push eax
00848596 42 inc edx
00848597 4D dec ebp
00848598 6F outsd
00848599 6E outsb
0084859A 657900 jns 0084859D
0084859D 0000 add [eax], al
0084859F 00FF add bh, bh
008485A1 FFFF DB $FF, $FF //
008485A3 FF0500000046 inc dword ptr [$46000000]
008485A9 52 push edx
008485AA 46 inc esi
008485AB 50 push eax
008485AC 53 push ebx
008485AD 0000 add [eax], al
008485AF 00FF add bh, bh
008485B1 FFFF DB $FF, $FF //
008485B3 FF06 inc dword ptr [esi]
008485B5 0000 add [eax], al
008485B7 004652 add [esi+$52], al
008485BA 46 inc esi
008485BB 51 push ecx
008485BC 7479 jz 00848637
008485BE 0000 add [eax], al
008485C0 FFFF DB $FF, $FF //
008485C2 FFFF DB $FF, $FF //
008485C4 0800 or [eax], al
008485C6 0000 add [eax], al
008485C8 46 inc esi
008485C9 52 push edx
008485CA 46 inc esi
008485CB 4D dec ebp
008485CC 6F outsd
008485CD 6E outsb
008485CE 657900 jns 008485D1
008485D1 0000 add [eax], al
008485D3 00FF add bh, bh
008485D5 FFFF DB $FF, $FF //
008485D7 FF03 inc dword ptr [ebx]
008485D9 0000 add [eax], al
008485DB 004650 add [esi+$50], al
008485DE 53 push ebx
008485DF 00FF add bh, bh
008485E1 FFFF DB $FF, $FF //
008485E3 FF0400 inc dword ptr [eax+eax]
008485E6 0000 add [eax], al
008485E8 46 inc esi
008485E9 51 push ecx
008485EA 7479 jz 00848665
008485EC 0000 add [eax], al
008485EE 0000 add [eax], al
008485F0 FFFF DB $FF, $FF //
008485F2 FFFF DB $FF, $FF //
008485F4 0900 or [eax], eax
008485F6 0000 add [eax], al
008485F8 46 inc esi
008485F9 52 push edx
008485FA 4D dec ebp
008485FB 42 inc edx
008485FC 4D dec ebp
008485FD 6F outsd
008485FE 6E outsb
008485FF 657900 jns 00848602
00848602 0000 add [eax], al
00848604 FFFF DB $FF, $FF //
00848606 FFFF DB $FF, $FF //
00848608 0900 or [eax], eax
0084860A 0000 add [eax], al
0084860C 46 inc esi
0084860D 55 push ebp
0084860E 53 push ebx
0084860F 44 inc esp
00848610 4D dec ebp
00848611 6F outsd
00848612 6E outsb
00848613 657900 jns 00848616
00848616 0000 add [eax], al
00848618 FFFF DB $FF, $FF //
0084861A FFFF DB $FF, $FF //
0084861C 0B00 or eax, [eax]
0084861E 0000 add [eax], al
00848620 46 inc esi
00848621 53 push ebx
00848622 4B dec ebx
00848623 52 push edx
00848624 4D dec ebp
00848625 42 inc edx
00848626 4D dec ebp
00848627 6F outsd
00848628 6E outsb
00848629 657900 jns 0084862C
0084862C FFFF DB $FF, $FF //
0084862E FFFF DB $FF, $FF //
00848630 0B00 or eax, [eax]
00848632 0000 add [eax], al
00848634 46 inc esi
00848635 53 push ebx
00848636 4B dec ebx
00848637 55 push ebp
00848638 53 push ebx
00848639 44 inc esp
0084863A 4D dec ebp
0084863B 6F outsd
0084863C 6E outsb
0084863D 657900 jns 00848640
00848640 FFFF DB $FF, $FF //
00848642 FFFF DB $FF, $FF //
00848644 06 push es
00848645 0000 add [eax], al
00848647 004646 add [esi+$46], al
0084864A 4C dec esp
0084864B 51 push ecx
0084864C 7479 jz 008486C7
0084864E 0000 add [eax], al
00848650 FFFF DB $FF, $FF //
00848652 FFFF DB $FF, $FF //
00848654 0800 or [eax], al
00848656 0000 add [eax], al
00848658 46 inc esi
00848659 46 inc esi
0084865A 4C dec esp
0084865B 4D dec ebp
0084865C 6F outsd
0084865D 6E outsb
0084865E 657900 jns 00848661
00848661 0000 add [eax], al
00848663 00FF add bh, bh
00848665 FFFF DB $FF, $FF //
00848667 FF09 dec dword ptr [ecx]
00848669 0000 add [eax], al
0084866B 004A46 add [edx+$46], cl
0084866E 4A dec edx
0084866F 47 inc edi
00848670 4D dec ebp
00848671 6F outsd
00848672 6E outsb
00848673 657900 jns 00848676
00848676 0000 add [eax], al
00848678 FFFF DB $FF, $FF //
0084867A FFFF DB $FF, $FF //
0084867C 0A00 or al, byte ptr [eax]
0084867E 0000 add [eax], al
00848680 46 inc esi
00848681 4A dec edx
00848682 46 inc esi
00848683 4A dec edx
00848684 47 inc edi
00848685 4D dec ebp
00848686 6F outsd
00848687 6E outsb
00848688 657900 jns 0084868B
0084868B 00FF add bh, bh
0084868D FFFF DB $FF, $FF //
0084868F FF06 inc dword ptr [esi]
00848691 0000 add [eax], al
00848693 00C3 add bl, al
00848695 BBD3D0D5D2 mov ebx, $D2D5D0D3
0084869A 0000 add [eax], al
0084869C CC int 3
0084869D E1CA loope -$36
0084869F BE00000000 mov esi, $00000000
008486A4 55 push ebp
008486A5 8BEC mov ebp, esp
008486A7 6A00 push $00
008486A9 6A00 push $00
008486AB 53 push ebx
008486AC 8BD8 mov ebx, eax
008486AE 33C0 xor eax, eax
008486B0 55 push ebp
* Possible String Reference to: '<27><>û<EFBFBD><C3BB><EFBFBD>[YY]<5D>'
|
008486B1 6865878400 push $00848765
***** TRY
|
008486B6 64FF30 push dword ptr fs:[eax]
008486B9 648920 mov fs:[eax], esp
* Reference to control Label9 : N.A.
|
008486BC 8B8354030000 mov eax, [ebx+$0354]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008486C2 E8F9F7C7FF call 004C7EC0
008486C7 84C0 test al, al
008486C9 757F jnz 0084874A
008486CB 8BCB mov ecx, ebx
008486CD B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
008486CF A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
008486D4 E8F796C5FF call 004A1DD0
*)
end;
procedure TfrmSKCR_YF._PROC_00848AA5(Sender : TObject);
begin
(*
00848AA5 8BEC mov ebp, esp
00848AA7 33C0 xor eax, eax
00848AA9 55 push ebp
* Possible String Reference to: '<27>&<26><><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-LZ<4C>'
|
00848AAA 68C98A8400 push $00848AC9
***** TRY
|
00848AAF 64FF30 push dword ptr fs:[eax]
00848AB2 648920 mov fs:[eax], esp
00848AB5 FF054C5A8900 inc dword ptr [$00895A4C]
00848ABB 33C0 xor eax, eax
00848ABD 5A pop edx
00848ABE 59 pop ecx
00848ABF 59 pop ecx
00848AC0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-LZ<4C>'
|
00848AC3 68D08A8400 push $00848AD0
00848AC8 C3 ret
* Reference to: System.@HandleFinally;
|
00848AC9 E926C0BBFF jmp 00404AF4
00848ACE EBF8 jmp 00848AC8
****** END
|
00848AD0 5D pop ebp
00848AD1 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848AD4(Sender : TObject);
begin
(*
00848AD4 832D4C5A890001 sub dword ptr [$00895A4C], +$01
00848ADB C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848ADC(Sender : TObject);
begin
(*
00848ADC 55 push ebp
00848ADD 8BEC mov ebp, esp
00848ADF 33C0 xor eax, eax
00848AE1 55 push ebp
* Possible String Reference to: '<27><EFBFBD><EEBFBB><EFBFBD>]Ë<><C38B>-PZ<50>'
|
00848AE2 68018B8400 push $00848B01
***** TRY
|
00848AE7 64FF30 push dword ptr fs:[eax]
00848AEA 648920 mov fs:[eax], esp
00848AED FF05505A8900 inc dword ptr [$00895A50]
00848AF3 33C0 xor eax, eax
00848AF5 5A pop edx
00848AF6 59 pop ecx
00848AF7 59 pop ecx
00848AF8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-PZ<50>'
|
00848AFB 68088B8400 push $00848B08
00848B00 C3 ret
* Reference to: System.@HandleFinally;
|
00848B01 E9EEBFBBFF jmp 00404AF4
00848B06 EBF8 jmp 00848B00
****** END
|
00848B08 5D pop ebp
00848B09 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848B0C(Sender : TObject);
begin
(*
00848B0C 832D505A890001 sub dword ptr [$00895A50], +$01
00848B13 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848B14(Sender : TObject);
begin
(*
00848B14 55 push ebp
00848B15 8BEC mov ebp, esp
00848B17 33C0 xor eax, eax
00848B19 55 push ebp
* Possible String Reference to: '鶿<><E9B6BF><EFBFBD><EFBFBD>]Ë<><C38B>-TZ<54>'
|
00848B1A 68398B8400 push $00848B39
***** TRY
|
00848B1F 64FF30 push dword ptr fs:[eax]
00848B22 648920 mov fs:[eax], esp
00848B25 FF05545A8900 inc dword ptr [$00895A54]
00848B2B 33C0 xor eax, eax
00848B2D 5A pop edx
00848B2E 59 pop ecx
00848B2F 59 pop ecx
00848B30 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-TZ<54>'
|
00848B33 68408B8400 push $00848B40
00848B38 C3 ret
* Reference to: System.@HandleFinally;
|
00848B39 E9B6BFBBFF jmp 00404AF4
00848B3E EBF8 jmp 00848B38
****** END
|
00848B40 5D pop ebp
00848B41 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848B44(Sender : TObject);
begin
(*
00848B44 832D545A890001 sub dword ptr [$00895A54], +$01
00848B4B C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848B4C(Sender : TObject);
begin
(*
00848B4C 55 push ebp
00848B4D 8BEC mov ebp, esp
00848B4F 33C0 xor eax, eax
00848B51 55 push ebp
* Possible String Reference to: '<27>~<7E><><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-XZ<58>'
|
00848B52 68718B8400 push $00848B71
***** TRY
|
00848B57 64FF30 push dword ptr fs:[eax]
00848B5A 648920 mov fs:[eax], esp
00848B5D FF05585A8900 inc dword ptr [$00895A58]
00848B63 33C0 xor eax, eax
00848B65 5A pop edx
00848B66 59 pop ecx
00848B67 59 pop ecx
00848B68 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-XZ<58>'
|
00848B6B 68788B8400 push $00848B78
00848B70 C3 ret
* Reference to: System.@HandleFinally;
|
00848B71 E97EBFBBFF jmp 00404AF4
00848B76 EBF8 jmp 00848B70
****** END
|
00848B78 5D pop ebp
00848B79 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848B7C(Sender : TObject);
begin
(*
00848B7C 832D585A890001 sub dword ptr [$00895A58], +$01
00848B83 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848B84(Sender : TObject);
begin
(*
00848B84 55 push ebp
00848B85 8BEC mov ebp, esp
00848B87 33C0 xor eax, eax
00848B89 55 push ebp
* Possible String Reference to: '<27>F<EFBFBD><46><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-\Z<>'
|
00848B8A 68A98B8400 push $00848BA9
***** TRY
|
00848B8F 64FF30 push dword ptr fs:[eax]
00848B92 648920 mov fs:[eax], esp
00848B95 FF055C5A8900 inc dword ptr [$00895A5C]
00848B9B 33C0 xor eax, eax
00848B9D 5A pop edx
00848B9E 59 pop ecx
00848B9F 59 pop ecx
00848BA0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-\Z<>'
|
00848BA3 68B08B8400 push $00848BB0
00848BA8 C3 ret
* Reference to: System.@HandleFinally;
|
00848BA9 E946BFBBFF jmp 00404AF4
00848BAE EBF8 jmp 00848BA8
****** END
|
00848BB0 5D pop ebp
00848BB1 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848BB4(Sender : TObject);
begin
(*
00848BB4 832D5C5A890001 sub dword ptr [$00895A5C], +$01
00848BBB C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848BBC(Sender : TObject);
begin
(*
00848BBC 55 push ebp
00848BBD 8BEC mov ebp, esp
00848BBF 33C0 xor eax, eax
00848BC1 55 push ebp
00848BC2 68E18B8400 push $00848BE1
***** TRY
|
00848BC7 64FF30 push dword ptr fs:[eax]
00848BCA 648920 mov fs:[eax], esp
00848BCD FF05605A8900 inc dword ptr [$00895A60]
00848BD3 33C0 xor eax, eax
00848BD5 5A pop edx
00848BD6 59 pop ecx
00848BD7 59 pop ecx
00848BD8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-`Z<>'
|
00848BDB 68E88B8400 push $00848BE8
00848BE0 C3 ret
* Reference to: System.@HandleFinally;
|
00848BE1 E90EBFBBFF jmp 00404AF4
00848BE6 EBF8 jmp 00848BE0
****** END
|
00848BE8 5D pop ebp
00848BE9 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848BEC(Sender : TObject);
begin
(*
00848BEC 832D605A890001 sub dword ptr [$00895A60], +$01
00848BF3 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848BF4(Sender : TObject);
begin
(*
00848BF4 55 push ebp
00848BF5 8BEC mov ebp, esp
00848BF7 33C0 xor eax, eax
00848BF9 55 push ebp
* Possible String Reference to: '<27>־<EFBFBD><D6BE><EFBFBD><EFBFBD>]Ë<><C38B>-dZ<64>'
|
00848BFA 68198C8400 push $00848C19
***** TRY
|
00848BFF 64FF30 push dword ptr fs:[eax]
00848C02 648920 mov fs:[eax], esp
00848C05 FF05645A8900 inc dword ptr [$00895A64]
00848C0B 33C0 xor eax, eax
00848C0D 5A pop edx
00848C0E 59 pop ecx
00848C0F 59 pop ecx
00848C10 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-dZ<64>'
|
00848C13 68208C8400 push $00848C20
00848C18 C3 ret
* Reference to: System.@HandleFinally;
|
00848C19 E9D6BEBBFF jmp 00404AF4
00848C1E EBF8 jmp 00848C18
****** END
|
00848C20 5D pop ebp
00848C21 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848C24(Sender : TObject);
begin
(*
00848C24 832D645A890001 sub dword ptr [$00895A64], +$01
00848C2B C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848C2C(Sender : TObject);
begin
(*
00848C2C 55 push ebp
00848C2D 8BEC mov ebp, esp
00848C2F 33C0 xor eax, eax
00848C31 55 push ebp
* Possible String Reference to: '鞾<><E99EBE><EFBFBD><EFBFBD>]Ë<><C38B>-hZ<68>'
|
00848C32 68518C8400 push $00848C51
***** TRY
|
00848C37 64FF30 push dword ptr fs:[eax]
00848C3A 648920 mov fs:[eax], esp
00848C3D FF05685A8900 inc dword ptr [$00895A68]
00848C43 33C0 xor eax, eax
00848C45 5A pop edx
00848C46 59 pop ecx
00848C47 59 pop ecx
00848C48 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-hZ<68>'
|
00848C4B 68588C8400 push $00848C58
00848C50 C3 ret
* Reference to: System.@HandleFinally;
|
00848C51 E99EBEBBFF jmp 00404AF4
00848C56 EBF8 jmp 00848C50
****** END
|
00848C58 5D pop ebp
00848C59 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848C5C(Sender : TObject);
begin
(*
00848C5C 832D685A890001 sub dword ptr [$00895A68], +$01
00848C63 C3 ret
*)
end;
procedure TfrmSKCR_YF._PROC_00848C64(Sender : TObject);
begin
(*
00848C64 B08C mov al, $8C
00848C66 8400 test [eax], al
00848C68 0000 add [eax], al
*)
end;
procedure TfrmSKCR_YF._PROC_00848CCA(Sender : TObject);
begin
(*
00848CCA 48 dec eax
00848CCB 0050D4 add [eax-$2C], dl
00848CCE 42 inc edx
00848CCF 0008 add [eax], cl
00848CD1 2D4A007CD0 sub eax, $D07C004A
00848CD6 42 inc edx
00848CD7 00F4 add ah, dh
00848CD9 6B4A00D0 imul ecx, [edx+$00], $D0
00848CDD 1D4A0030F6 sbb eax, $F630004A
00848CE2 48 dec eax
00848CE3 004CFB48 add [ebx+edi*8+$48], cl
00848CE7 0098FA48000C add [eax+$C0048FA], bl
00848CED 7948 jns 00848D37
00848CEF 00ACF04800E829 add [eax+esi*8+$29E80048], ch
00848CF6 4A dec edx
00848CF7 00E4 add ah, ah
00848CF9 ED in eax, dx
00848CFA 48 dec eax
00848CFB 00547848 add [eax+edi*2+$48], dl
00848CFF 005878 add [eax+$78], bl
00848D02 48 dec eax
00848D03 00DC add ah, bl
00848D05 2A4A00 sub cl, byte ptr [edx+$00]
00848D08 3CA9 cmp al, $A9
00848D0A 48 dec eax
00848D0B 00C0 add al, al
00848D0D 834800D0 or dword ptr [eax+$00], -$30
00848D11 7948 jns 00848D5B
00848D13 004C8548 add [ebp+eax*4+$48], cl
00848D17 00D0 add al, dl
00848D19 2C4A sub al, $4A
00848D1B 009C2B4A008486 add [ebx+ebp+$8684004A], bl
00848D22 48 dec eax
00848D23 00482D add [eax+$2D], cl
00848D26 4A dec edx
00848D27 00C0 add al, al
00848D29 A9480038EE test eax, $EE380048
00848D2E 48 dec eax
00848D2F 00F4 add ah, dh
00848D31 EE out dx, al
00848D32 48 dec eax
00848D33 00F0 add al, dh
00848D35 E94800D8EE jmp EF5C8D82
00848D3A 48 dec eax
00848D3B 00D8 add al, bl
00848D3D 1B4A00 sbb ecx, [edx+$00]
00848D40 EC in al, dx
00848D41 334A00 xor ecx, [edx+$00]
00848D44 20C4 and ah, al
00848D46 48 dec eax
00848D47 00B0404A0010 add [eax+$10004A40], dh
00848D4D 44 inc esp
00848D4E 4A dec edx
00848D4F 00CC add ah, cl
00848D51 42 inc edx
00848D52 4A dec edx
00848D53 00B8C44800BC add [eax+$BC0048C4], bh
00848D59 C44800 les ecx, [eax+$00]
00848D5C 48 dec eax
00848D5D 45 inc ebp
00848D5E 4A dec edx
00848D5F 001CC3 add [ebx+eax*8], bl
00848D62 48 dec eax
00848D63 0018 add [eax], bl
00848D65 F0 lock
00848D66 48 dec eax
00848D67 00444C4A add [esp+ecx*2+$4A], al
00848D6B 000C02 add [edx+eax], cl
00848D6E 49 dec ecx
00848D6F 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
00848D76 4A dec edx
00848D77 008C154A003C18 add [ebp+edx+$183C004A], cl
00848D7E 4A dec edx
00848D7F 0038 add [eax], bh
00848D81 52 push edx
00848D82 4A dec edx
00848D83 005C224A add [edx+$4A], bl
00848D87 00D8 add al, bl
00848D89 224A00 and cl, byte ptr [edx+$00]
00848D8C 7C68 jl 00848DF6
00848D8E 4A dec edx
00848D8F 00941F4A003C60 add [edi+ebx+$603C004A], dl
00848D96 4A dec edx
00848D97 001447 add [edi+eax*2], dl
00848D9A 4A dec edx
00848D9B 0034654A00CC2C add [$2CCC004A], dh
00848DA2 4A dec edx
00848DA3 000E add [esi], cl
00848DA5 0000 add [eax], al
00848DA7 0000 add [eax], al
00848DA9 0002 add [edx], al
00848DAB 0000 add [eax], al
00848DAD 0020 add [eax], ah
00848DAF 114000 adc [eax+$00], eax
00848DB2 D003 rol byte ptr [ebx], 1
00848DB4 0000 add [eax], al
00848DB6 2011 and [ecx], dl
00848DB8 40 inc eax
00848DB9 00D4 add ah, dl
00848DBB 0300 add eax, [eax]
00848DBD 0036 add [esi], dh
00848DBF 00B3918400F8 add [ebx+$F8008491], dh
00848DC5 0200 add al, byte ptr [eax]
00848DC7 0000 add [eax], al
00848DC9 0008 add [eax], cl
00848DCB 54 push esp
00848DCC 6F outsd
00848DCD 6F outsd
00848DCE 6C insb
00848DCF 42 inc edx
00848DD0 61 popa
00848DD1 7231 jb 00848E04
00848DD3 FC cld
00848DD4 0200 add al, byte ptr [eax]
00848DD6 0001 add [ecx], al
00848DD8 0009 add [ecx], cl
00848DDA 54 push esp
00848DDB 42 inc edx
00848DDC 52 push edx
00848DDD 61 popa
00848DDE 667265 jb 00848E46
00848DE1 7368 jnb 00848E4B
00848DE3 0003 add [ebx], al
00848DE5 0000 add [eax], al
00848DE7 0100 add [eax], eax
00848DE9 07 pop es
00848DEA 54 push esp
00848DEB 42 inc edx
00848DEC 43 inc ebx
00848DED 6C insb
00848DEE 6F outsd
00848DEF 7365 jnb 00848E56
00848DF1 0403 add al, +$03
00848DF3 0000 add [eax], al
00848DF5 0200 add al, byte ptr [eax]
00848DF7 0C41 or al, $41
00848DF9 44 inc esp
00848DFA 4F dec edi
00848DFB 51 push ecx
00848DFC 7565 jnz 00848E63
00848DFE 7279 jb 00848E79
00848E00 54 push esp
00848E01 656D insd
00848E03 7008 jo 00848E0D
00848E05 0300 add eax, [eax]
00848E07 0002 add [edx], al
00848E09 000B add [ebx], cl
00848E0B 41 inc ecx
00848E0C 44 inc esp
00848E0D 4F dec edi
00848E0E 51 push ecx
00848E0F 7565 jnz 00848E76
00848E11 7279 jb 00848E8C
00848E13 43 inc ebx
00848E14 6D insd
00848E15 640C03 or al, $03
00848E18 0000 add [eax], al
00848E1A 0300 add eax, [eax]
00848E1C 06 push es
00848E1D 50 push eax
00848E1E 61 popa
00848E1F 6E outsb
00848E20 656C insb
00848E22 3110 xor [eax], edx
00848E24 0300 add eax, [eax]
00848E26 0001 add [ecx], al
00848E28 000B add [ebx], cl
00848E2A 54 push esp
00848E2B 6F outsd
00848E2C 6F outsd
00848E2D 6C insb
00848E2E 42 inc edx
00848E2F 7574 jnz 00848EA5
00848E31 746F jz 00848EA2
00848E33 6E outsb
00848E34 321403 xor dl, byte ptr [ebx+eax]
00848E37 0000 add [eax], al
00848E39 0200 add al, byte ptr [eax]
00848E3B 0C41 or al, $41
00848E3D 44 inc esp
00848E3E 4F dec edi
00848E3F 51 push ecx
00848E40 7565 jnz 00848EA7
00848E42 7279 jb 00848EBD
00848E44 4D dec ebp
00848E45 61 popa
00848E46 696E1803000001 imul ebp, [esi+$18], $01000003
00848E4D 000B add [ebx], cl
00848E4F 54 push esp
00848E50 6F outsd
00848E51 6F outsd
00848E52 6C insb
00848E53 42 inc edx
00848E54 7574 jnz 00848ECA
00848E56 746F jz 00848EC7
00848E58 6E outsb
00848E59 311C03 xor [ebx+eax], ebx
00848E5C 0000 add [eax], al
00848E5E 0400 add al, +$00
00848E60 03524D add edx, [edx+$4D]
00848E63 3120 xor [eax], esp
00848E65 0300 add eax, [eax]
00848E67 00050009524D add [$4D520900], al
00848E6D 44 inc esp
00848E6E 42 inc edx
00848E6F 5F pop edi
00848E70 4D dec ebp
00848E71 61 popa
00848E72 696E2403000006 imul ebp, [esi+$24], $06000003
00848E79 0006 add [esi], al
00848E7B 4C dec esp
00848E7C 61 popa
00848E7D 62656C bound esp, qword ptr [ebp+$6C]
00848E80 3328 xor ebp, [eax]
00848E82 0300 add eax, [eax]
00848E84 0007 add [edi], al
00848E86 0007 add [edi], al
00848E88 637847 arpl [eax+$47], di
00848E8B 7269 jb 00848EF6
00848E8D 64322C03 xor ch, byte ptr fs:[ebx+eax]
00848E91 0000 add [eax], al
00848E93 0800 or [eax], al
00848E95 03547632 add edx, [esi+esi*2+$32]
00848E99 3003 xor [ebx], al
00848E9B 0000 add [eax], al
00848E9D 0900 or [eax], eax
00848E9F 0C63 or al, $63
00848EA1 7847 js 00848EEA
00848EA3 7269 jb 00848F0E
00848EA5 644C dec esp
00848EA7 657665 jbe 00848F0F
00848EAA 6C insb
00848EAB 313403 xor [ebx+eax], esi
00848EAE 0000 add [eax], al
00848EB0 06 push es
00848EB1 0006 add [esi], al
00848EB3 4C dec esp
00848EB4 61 popa
00848EB5 62656C bound esp, qword ptr [ebp+$6C]
00848EB8 3238 xor bh, byte ptr [eax]
00848EBA 0300 add eax, [eax]
00848EBC 000A add [edx], cl
00848EBE 0007 add [edi], al
00848EC0 626567 bound esp, qword ptr [ebp+$67]
00848EC3 6461 popa
00848EC5 7465 jz 00848F2C
00848EC7 3C03 cmp al, $03
00848EC9 0000 add [eax], al
00848ECB 0A00 or al, byte ptr [eax]
00848ECD 07 pop es
00848ECE 45 inc ebp
00848ECF 6E outsb
00848ED0 646461 popa
00848ED3 7465 jz 00848F3A
00848ED5 40 inc eax
00848ED6 0300 add eax, [eax]
00848ED8 000B add [ebx], cl
00848EDA 0010 add [eax], dl
00848EDC 637847 arpl [eax+$47], di
00848EDF 7269 jb 00848F4A
00848EE1 6450 push eax
00848EE3 6F outsd
00848EE4 7075 jo 00848F5B
00848EE6 704D jo 00848F35
00848EE8 656E outsb
00848EEA 7532 jnz 00848F1E
00848EEC 44 inc esp
00848EED 0300 add eax, [eax]
00848EEF 000C00 add [eax+eax], cl
00848EF2 0544535F48 add eax, +$485F5344
00848EF7 5A pop edx
00848EF8 48 dec eax
00848EF9 0300 add eax, [eax]
00848EFB 000D00064344 add [$44430600], cl
00848F01 53 push ebx
00848F02 5F pop edi
00848F03 48 dec eax
00848F04 5A pop edx
00848F05 4C dec esp
00848F06 0300 add eax, [eax]
00848F08 0006 add [esi], al
00848F0A 0006 add [esi], al
00848F0C 4C dec esp
00848F0D 61 popa
00848F0E 62656C bound esp, qword ptr [ebp+$6C]
00848F11 315003 xor [eax+$03], edx
00848F14 0000 add [eax], al
00848F16 0E push cs
00848F17 0009 add [ecx], cl
00848F19 7632 jbe 00848F4D
00848F1B 43 inc ebx
00848F1C 6F outsd
00848F1D 6C insb
00848F1E 756D jnz 00848F8D
00848F20 6E outsb
00848F21 31540300 xor [ebx+eax+$00], edx
00848F25 000E add [esi], cl
00848F27 0009 add [ecx], cl
00848F29 7632 jbe 00848F5D
00848F2B 43 inc ebx
00848F2C 6F outsd
00848F2D 6C insb
00848F2E 756D jnz 00848F9D
00848F30 6E outsb
00848F31 325803 xor bl, byte ptr [eax+$03]
00848F34 0000 add [eax], al
00848F36 0E push cs
00848F37 0009 add [ecx], cl
00848F39 7632 jbe 00848F6D
00848F3B 43 inc ebx
00848F3C 6F outsd
00848F3D 6C insb
00848F3E 756D jnz 00848FAD
00848F40 6E outsb
00848F41 355C030000 xor eax, $0000035C
00848F46 0E push cs
00848F47 0009 add [ecx], cl
00848F49 7632 jbe 00848F7D
00848F4B 43 inc ebx
00848F4C 6F outsd
00848F4D 6C insb
00848F4E 756D jnz 00848FBD
00848F50 6E outsb
00848F51 3660 pusha
00848F53 0300 add eax, [eax]
00848F55 000E add [esi], cl
00848F57 0009 add [ecx], cl
00848F59 7632 jbe 00848F8D
00848F5B 43 inc ebx
00848F5C 6F outsd
00848F5D 6C insb
00848F5E 756D jnz 00848FCD
00848F60 6E outsb
00848F61 37 aaa
00848F62 640300 add eax, fs:[eax]
00848F65 000E add [esi], cl
00848F67 0009 add [ecx], cl
00848F69 7632 jbe 00848F9D
00848F6B 43 inc ebx
00848F6C 6F outsd
00848F6D 6C insb
00848F6E 756D jnz 00848FDD
00848F70 6E outsb
00848F71 386803 cmp [eax+$03], ch
00848F74 0000 add [eax], al
00848F76 0E push cs
00848F77 0009 add [ecx], cl
00848F79 7632 jbe 00848FAD
00848F7B 43 inc ebx
00848F7C 6F outsd
00848F7D 6C insb
00848F7E 756D jnz 00848FED
00848F80 6E outsb
00848F81 396C0300 cmp [ebx+eax+$00], ebp
00848F85 000E add [esi], cl
00848F87 000A add [edx], cl
00848F89 7632 jbe 00848FBD
00848F8B 43 inc ebx
00848F8C 6F outsd
00848F8D 6C insb
00848F8E 756D jnz 00848FFD
00848F90 6E outsb
00848F91 3130 xor [eax], esi
00848F93 7003 jo 00848F98
00848F95 0000 add [eax], al
00848F97 0E push cs
00848F98 0009 add [ecx], cl
00848F9A 7632 jbe 00848FCE
00848F9C 43 inc ebx
00848F9D 6F outsd
00848F9E 6C insb
00848F9F 756D jnz 0084900E
00848FA1 6E outsb
00848FA2 3474 xor al, $74
00848FA4 0300 add eax, [eax]
00848FA6 000E add [esi], cl
00848FA8 000476 add [esi+esi*2], al
00848FAB 327073 xor dh, byte ptr [eax+$73]
00848FAE 7803 js 00848FB3
00848FB0 0000 add [eax], al
00848FB2 0E push cs
00848FB3 0009 add [ecx], cl
00848FB5 7632 jbe 00848FE9
00848FB7 43 inc ebx
00848FB8 6F outsd
00848FB9 6C insb
00848FBA 756D jnz 00849029
00848FBC 6E outsb
00848FBD 337C0300 xor edi, [ebx+eax+$00]
00848FC1 000E add [esi], cl
00848FC3 0008 add [eax], cl
00848FC5 7632 jbe 00848FF9
00848FC7 59 pop ecx
00848FC8 46 inc esi
00848FC9 4E dec esi
00848FCA 61 popa
00848FCB 6D insd
00848FCC 65800300 add byte ptr gs:[ebx], $00
00848FD0 000E add [esi], cl
00848FD2 0008 add [eax], cl
00848FD4 7632 jbe 00849008
00848FD6 50 push eax
00848FD7 5F pop edi
00848FD8 53 push ebx
00848FD9 7065 jo 00849040
00848FDB 63840300000E00 arpl [ebx+eax+$E0000], ax
00848FE2 0B7632 or esi, [esi+$32]
00848FE5 43 inc ebx
00848FE6 6F outsd
00848FE7 6D insd
00848FE8 54 push esp
00848FE9 61 popa
00848FEA 69546F7588030000 imul edx, [edi+ebp*2+$75], $00000388
00848FF2 06 push es
00848FF3 0006 add [esi], al
00848FF5 4C dec esp
00848FF6 61 popa
00848FF7 62656C bound esp, qword ptr [ebp+$6C]
00848FFA 348C xor al, $8C
00848FFC 0300 add eax, [eax]
00848FFE 000F add [edi], cl
00849000 0009 add [ecx], cl
00849002 43 inc ebx
00849003 6F outsd
00849004 6D insd
00849005 54 push esp
00849006 61 popa
00849007 69546F7590030000 imul edx, [edi+ebp*2+$75], $00000390
0084900F 06 push es
00849010 0006 add [esi], al
00849012 4C dec esp
00849013 61 popa
00849014 62656C bound esp, qword ptr [ebp+$6C]
00849017 3594030000 xor eax, $00000394
0084901C 0F000A str word ptr [edx]
0084901F 50 push eax
00849020 5F pop edi
00849021 43 inc ebx
00849022 6F outsd
00849023 64654E dec esi
00849026 61 popa
00849027 6D insd
00849028 6598 cwde
0084902A 0300 add eax, [eax]
0084902C 0006 add [esi], al
0084902E 0006 add [esi], al
00849030 4C dec esp
00849031 61 popa
00849032 62656C bound esp, qword ptr [ebp+$6C]
00849035 37 aaa
00849036 9C pushf
00849037 0300 add eax, [eax]
00849039 000F add [edi], cl
0084903B 0008 add [eax], cl
0084903D 46 inc esi
0084903E 4B dec ebx
0084903F 54 push esp
00849040 61 popa
00849041 69746F75A0030000 imul esi, [edi+ebp*2+$75], $000003A0
00849049 06 push es
0084904A 0006 add [esi], al
0084904C 4C dec esp
0084904D 61 popa
0084904E 62656C bound esp, qword ptr [ebp+$6C]
00849051 38A40300001000 cmp [ebx+eax+$100000], ah
00849058 06 push es
00849059 4B dec ebx
0084905A 48 dec eax
0084905B 54 push esp
0084905C 7970 jns 008490CE
0084905E 65A803 test al, $03
00849061 0000 add [eax], al
00849063 0E push cs
00849064 0008 add [eax], cl
00849066 7632 jbe 0084909A
00849068 4B dec ebx
00849069 48 dec eax
0084906A 54 push esp
0084906B 7970 jns 008490DD
0084906D 65AC lodsb
0084906F 0300 add eax, [eax]
00849071 0010 add [eax], dl
00849073 000B add [ebx], cl
00849075 46 inc esi
00849076 61 popa
00849077 63746F72 arpl [edi+ebp*2+$72], si
0084907B 794E jns 008490CB
0084907D 61 popa
0084907E 6D insd
0084907F 65B003 mov al, $03
00849082 0000 add [eax], al
00849084 0E push cs
00849085 0009 add [ecx], cl
00849087 7632 jbe 008490BB
00849089 46 inc esi
0084908A 58 pop eax
0084908B 4D dec ebp
0084908C 6F outsd
0084908D 6E outsb
0084908E 6579B4 jns 00849045
00849091 0300 add eax, [eax]
00849093 000E add [esi], cl
00849095 0008 add [eax], cl
00849097 7653 jbe 008490EC
00849099 58 pop eax
0084909A 4D dec ebp
0084909B 6F outsd
0084909C 6E outsb
0084909D 6579B8 jns 00849058
008490A0 0300 add eax, [eax]
008490A2 0006 add [esi], al
008490A4 0006 add [esi], al
008490A6 4C dec esp
008490A7 61 popa
008490A8 62656C bound esp, qword ptr [ebp+$6C]
008490AB 36BC0300000F mov esp, $0F000003
008490B1 0005436F6E4E add [$4E6E6F43], al
008490B7 4F dec edi
008490B8 C00300 rol byte ptr [ebx], $00
008490BB 0006 add [esi], al
008490BD 0006 add [esi], al
008490BF 4C dec esp
008490C0 61 popa
008490C1 62656C bound esp, qword ptr [ebp+$6C]
008490C4 39C4 cmp esp, eax
008490C6 0300 add eax, [eax]
008490C8 000F add [edi], cl
008490CA 0007 add [edi], al
008490CC 4F dec edi
008490CD 7264 jb 00849133
008490CF 65724E jb 00849120
008490D2 6F outsd
008490D3 C803 enter , $03
008490D5 0000 add [eax], al
008490D7 0E push cs
008490D8 0007 add [edi], al
008490DA 7632 jbe 0084910E
008490DC 43 inc ebx
008490DD 6F outsd
008490DE 6E outsb
008490DF 4E dec esi
008490E0 4F dec edi
008490E1 CC int 3
008490E2 0300 add eax, [eax]
008490E4 000E add [esi], cl
008490E6 0009 add [ecx], cl
008490E8 7632 jbe 0084911C
008490EA 4F dec edi
008490EB 7264 jb 00849151
008490ED 65724E jb 0084913E
008490F0 6F outsd
008490F1 0900 or [eax], eax
008490F3 1200 adc al, byte ptr [eax]
008490F5 A4 movsb
008490F6 AB stosd
008490F7 8400 test [eax], al
008490F9 0B466F or eax, [esi+$6F]
008490FC 726D jb 0084916B
008490FE 44 inc esp
008490FF 657374 jnb 00849176
00849102 726F jb 00849173
00849104 7910 jns 00849116
00849106 00ACAB84000946 add [ebx+ebp*4+$46090084], ch
0084910D 6F outsd
0084910E 726D jb 0084917D
00849110 43 inc ebx
00849111 6C insb
00849112 6F outsd
00849113 7365 jnb 0084917A
00849115 1300 adc eax, [eax]
00849117 B0AB mov al, $AB
00849119 8400 test [eax], al
0084911B 0C54 or al, $54
0084911D 42 inc edx
0084911E 43 inc ebx
0084911F 6C insb
00849120 6F outsd
00849121 7365 jnb 00849188
00849123 43 inc ebx
00849124 6C insb
00849125 69636B0F0020AC imul esp, [ebx+$6B], $AC20000F
0084912C 8400 test [eax], al
0084912E 08466F or [esi+$6F], al
00849131 726D jb 008491A0
00849133 53 push ebx
00849134 686F771500 push $0015776F
00849139 5C pop esp
0084913A AD lodsd
0084913B 8400 test [eax], al
0084913D 0E push cs
0084913E 54 push esp
0084913F 42 inc edx
00849140 52 push edx
00849141 61 popa
00849142 667265 jb 008491AA
00849145 7368 jnb 008491AF
00849147 43 inc ebx
00849148 6C insb
00849149 69636B170064AD imul esp, [ebx+$6B], $AD640017
00849150 8400 test [eax], al
00849152 10546F6F adc [edi+ebp*2+$6F], dl
00849156 6C insb
00849157 42 inc edx
00849158 7574 jnz 008491CE
0084915A 746F jz 008491CB
0084915C 6E outsb
0084915D 32436C xor al, byte ptr [ebx+$6C]
00849160 69636B18006CAD imul esp, [ebx+$6B], $AD6C0018
00849167 8400 test [eax], al
00849169 114661 adc [esi+$61], eax
0084916C 63746F72 arpl [edi+ebp*2+$72], si
00849170 794E jns 008491C0
00849172 61 popa
00849173 6D insd
00849174 6543 inc ebx
00849176 68616E6765 push $65676E61
0084917B 17 pop ss
0084917C 0080AD840010 add [eax+$100084AD], al
00849182 54 push esp
00849183 6F outsd
00849184 6F outsd
00849185 6C insb
00849186 42 inc edx
00849187 7574 jnz 008491FD
00849189 746F jz 008491FA
0084918B 6E outsb
0084918C 31436C xor [ebx+$6C], eax
0084918F 69636B1100E0AD imul esp, [ebx+$6B], $ADE00011
00849196 8400 test [eax], al
00849198 0A466F or al, byte ptr [esi+$6F]
0084919B 726D jb 0084920A
0084919D 43 inc ebx
0084919E 7265 jb 00849205
008491A0 61 popa
008491A1 7465 jz 00849208
008491A3 0F54 DB $0F, $54 //
008491A5 66726D jb 00849215
008491A8 59 pop ecx
008491A9 46 inc esi
008491AA 5A pop edx
008491AB 44 inc esp
008491AC 4C dec esp
008491AD 6973745F4D5811 imul esi, [ebx+$74], $11584D5F
008491B4 0028 add [eax], ch
008491B6 94 xchg eax, esp
008491B7 45 inc ebp
008491B8 00648A45 add [edx+ecx*4+$45], ah
008491BC 00B8124D0020 add [eax+$20004D12], bh
008491C2 42 inc edx
008491C3 44 inc esp
008491C4 0064D378 add [ebx+edx*8+$78], ah
008491C8 00A80A78001C add [eax+$1C00780A], ch
008491CE 5F pop edi
008491CF 47 inc edi
008491D0 0000 add [eax], al
008491D2 16 push ss
008491D3 6300 arpl [eax], ax
008491D5 F4 hlt
008491D6 B466 mov ah, $66
008491D8 00A40E6400E0A5 add [esi+ecx+$A5E00064], ah
008491DF 45 inc ebp
008491E0 005876 add [eax+$76], bl
008491E3 7C00 jl 008491E5
008491E5 087F4B or [edi+$4B], bh
008491E8 0088996A0034 add [eax+$34006A99], cl
008491EE B166 mov cl, $66
008491F0 00B8674700F4 add [eax+$F4004767], bh
008491F6 8147008D400000 add dword ptr [edi+$00], $0000408D
008491FD 92 xchg eax, edx
008491FE 8400 test [eax], al
00849200 07 pop es
00849201 0F54 DB $0F, $54 //
00849203 66726D jb 00849273
00849206 59 pop ecx
00849207 46 inc esi
00849208 5A pop edx
00849209 44 inc esp
0084920A 4C dec esp
0084920B 6973745F4D58B0 imul esi, [ebx+$74], $B0584D5F
00849212 8C8400D0F24900 mov word ptr [eax+eax+$49F2D0], es
00849219 5E pop esi
0084921A 000D555F5946 add [$46595F55], cl
00849220 5A pop edx
00849221 44 inc esp
00849222 4C dec esp
00849223 6973745F4D5800 imul esi, [ebx+$74], $00584D5F
0084922A 0090558BECB9 add [eax+$B9EC8B55], dl
00849230 54 push esp
00849231 0000 add [eax], al
*)
end;
end.
Reference in New Issue Copy Permalink