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

11973 lines
460 KiB
ObjectPascal
Raw Blame History

This file contains ambiguous Unicode characters

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

unit U_YFFP;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYFFP=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
Label1: TLabel;
YFName: TEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
FactoryName: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
ToolButton3: TToolButton;
v2Column1: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
v2KP: TcxGridDBColumn;
v2PayMent: TcxGridDBColumn;
v2Note: TcxGridDBColumn;
Label4: TLabel;
OrderNo: TEdit;
Label5: TLabel;
v2P_CodeName: TcxGridDBColumn;
v2P_Spec: TcxGridDBColumn;
v2ComTaitou: TcxGridDBColumn;
v2KPNO: TcxGridDBColumn;
Label7: TLabel;
KPNO: TEdit;
Label8: TLabel;
KPDMNo: TEdit;
v2Ssel: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label10: TLabel;
Label12: TLabel;
v2SPMonth: TcxGridDBColumn;
Label6: TLabel;
FKTaitou: TEdit;
Label9: TLabel;
SPMonth: TEdit;
Label11: TLabel;
ComTaitou: TEdit;
v2YFName: TcxGridDBColumn;
Label13: TLabel;
P_CodeName: TEdit;
v2KPStatus: TcxGridDBColumn;
Label14: TLabel;
KPStatus: TEdit;
Label15: TLabel;
Note: TEdit;
v2FKTaitou: TcxGridDBColumn;
v2ShuiMoney: TcxGridDBColumn;
v2ShuiHouMoney: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure TBDelClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure v2Column7PropertiesButtonClick(Sender : TObject);
procedure v2Column2PropertiesEditValueChanged(Sender : TObject);
procedure v2PSPropertiesEditValueChanged(Sender : TObject);
procedure v2BatchNoPropertiesEditValueChanged(Sender : TObject);
procedure v2PayMentPropertiesButtonClick(Sender : TObject);
procedure OrderNoChange(Sender : TObject);
procedure OrderNoKeyPress(Sender : TObject);
procedure v2Column2PropertiesButtonClick(Sender : TObject);
procedure v2ComTaitouPropertiesButtonClick(Sender : TObject);
procedure VBZPropertiesButtonClick(Sender : TObject);
procedure v2Column4PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesEditValueChanged(Sender : TObject);
procedure v2Column4PropertiesEditValueChanged(Sender : TObject);
procedure v2KPNOPropertiesEditValueChanged(Sender : TObject);
procedure v2KPDMNoPropertiesEditValueChanged(Sender : TObject);
procedure KPNOKeyPress(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure v2SselPropertiesChange(Sender : TObject);
procedure v2GYSNamePropertiesButtonClick(Sender : TObject);
procedure v2YFNamePropertiesButtonClick(Sender : TObject);
procedure v2KPStatusPropertiesButtonClick(Sender : TObject);
procedure v2FKTaitouPropertiesButtonClick(Sender : TObject);
procedure _PROC_00820F3D(Sender : TObject);
procedure _PROC_00821285(Sender : TObject);
procedure _PROC_00821B29(Sender : TObject);
procedure _PROC_00821EF9(Sender : TObject);
procedure _PROC_008227AD(Sender : TObject);
procedure _PROC_00822AF1(Sender : TObject);
procedure _PROC_008232E5(Sender : TObject);
procedure _PROC_00823602(Sender : TObject);
procedure _PROC_00823638(Sender : TObject);
procedure _PROC_00823645(Sender : TObject);
procedure _PROC_0082398D(Sender : TObject);
procedure _PROC_00823E39(Sender : TObject);
procedure _PROC_00824459(Sender : TObject);
procedure _PROC_0082479D(Sender : TObject);
procedure _PROC_00824A1D(Sender : TObject);
procedure _PROC_00824D55(Sender : TObject);
procedure _PROC_00825551(Sender : TObject);
procedure _PROC_008258C5(Sender : TObject);
procedure _PROC_00825BFD(Sender : TObject);
procedure _PROC_00825F41(Sender : TObject);
procedure _PROC_00826165(Sender : TObject);
procedure _PROC_00826351(Sender : TObject);
procedure _PROC_00826539(Sender : TObject);
procedure _PROC_0082671D(Sender : TObject);
procedure _PROC_00826D2D(Sender : TObject);
procedure _PROC_008270A1(Sender : TObject);
procedure _PROC_00827419(Sender : TObject);
procedure _PROC_00827775(Sender : TObject);
procedure _PROC_00827872(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYFFP: TfrmYFFP;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYFFP.FormDestroy(Sender : TObject);
begin
(*
00820C08 33C0 xor eax, eax
* Reference to GlobalVar_008959BC
|
00820C0A A3BC598900 mov dword ptr [$008959BC], eax
00820C0F C3 ret
*)
end;
procedure TfrmYFFP.FormClose(Sender : TObject);
begin
(*
00820C10 C60102 mov byte ptr [ecx], $02
00820C13 C3 ret
*)
end;
procedure TfrmYFFP.TBCloseClick(Sender : TObject);
begin
(*
00820C14 53 push ebx
00820C15 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00820C17 B9400C8200 mov ecx, $00820C40
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00820C1C 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>Ʊ'
|
00820C22 B8540C8200 mov eax, $00820C54
|
00820C27 E8746FF9FF call 007B7BA0
00820C2C 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00820C2E E86553C8FF call 004A5F98
00820C33 5B pop ebx
00820C34 C3 ret
*)
end;
procedure TfrmYFFP.TBDelClick(Sender : TObject);
begin
(*
00820C60 55 push ebp
00820C61 8BEC mov ebp, esp
00820C63 B906000000 mov ecx, $00000006
00820C68 6A00 push $00
00820C6A 6A00 push $00
00820C6C 49 dec ecx
00820C6D 75F9 jnz 00820C68
00820C6F 51 push ecx
00820C70 53 push ebx
00820C71 56 push esi
00820C72 8BD8 mov ebx, eax
00820C74 33C0 xor eax, eax
00820C76 55 push ebp
* Possible String Reference to: '<27><><<3C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00820C77 686C0E8200 push $00820E6C
***** TRY
|
00820C7C 64FF30 push dword ptr fs:[eax]
00820C7F 648920 mov fs:[eax], esp
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00820C82 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00820C88 E83372CAFF call 004C7EC0
00820C8D 84C0 test al, al
00820C8F 0F85BC010000 jnz 00820E51
* Reference to control TfrmYFFP.ADOQueryTemp : TADOQuery
|
00820C95 8BB308030000 mov esi, [ebx+$0308]
00820C9B 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00820C9D E8324CCAFF call 004C58D4
00820CA2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00820CA4 E803D3CBFF call 004DDFAC
00820CA9 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00820CAB FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
| om YF_Money_CR where YFID=''
|
00820CAE 68840E8200 push $00820E84
* Possible String Reference to: 'YFID'
|
00820CB3 BACC0E8200 mov edx, $00820ECC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00820CB8 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00820CBE E8F15ECAFF call 004C6BB4
00820CC3 8D55F0 lea edx, [ebp-$10]
00820CC6 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00820CC8 FF5160 call dword ptr [ecx+$60]
00820CCB 8B45F0 mov eax, [ebp-$10]
00820CCE 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00820CD1 E8169CBEFF call 0040A8EC
00820CD6 FF75F4 push dword ptr [ebp-$0C]
00820CD9 68DC0E8200 push $00820EDC
00820CDE 8D45F8 lea eax, [ebp-$08]
00820CE1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00820CE6 E8C949BEFF call 004056B4
00820CEB 8B45F8 mov eax, [ebp-$08]
00820CEE 50 push eax
00820CEF 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00820CF1 E8B6D2CBFF call 004DDFAC
00820CF6 5A pop edx
00820CF7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00820CF9 FF5138 call dword ptr [ecx+$38]
00820CFC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00820CFE E8C54BCAFF call 004C58C8
* Possible String Reference to: 'BBMoney'
|
00820D03 BAE80E8200 mov edx, $00820EE8
* Reference to control TfrmYFFP.ADOQueryTemp : TADOQuery
|
00820D08 8B8308030000 mov eax, [ebx+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00820D0E E8A15ECAFF call 004C6BB4
00820D13 8D55FC lea edx, [ebp-$04]
00820D16 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00820D18 FF5160 call dword ptr [ecx+$60]
00820D1B 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
00820D1D B9F00E8200 mov ecx, $00820EF0
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00820D22 BAF80E8200 mov edx, $00820EF8
*)
end;
procedure TfrmYFFP.FormShow(Sender : TObject);
begin
(*
00820F90 55 push ebp
00820F91 8BEC mov ebp, esp
00820F93 53 push ebx
00820F94 8BD8 mov ebx, eax
00820F96 33C0 xor eax, eax
00820F98 55 push ebp
* Possible String Reference to: '<27><>:<3A><><EFBFBD><EFBFBD>[]<5D>'
|
00820F99 680F108200 push $0082100F
***** TRY
|
00820F9E 64FF30 push dword ptr fs:[eax]
00820FA1 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00820FA4 B924108200 mov ecx, $00821024
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00820FA9 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>Ʊ'
|
00820FAF B838108200 mov eax, $00821038
|
00820FB4 E8EB69F9FF call 007B79A4
* Reference to control TfrmYFFP.ADOQueryTemp : TADOQuery
|
00820FB9 8B8308030000 mov eax, [ebx+$0308]
|
00820FBF E8C439F9FF call 007B4988
00820FC4 83C4F8 add esp, -$08
00820FC7 DD1C24 fstp qword ptr [esp]
00820FCA 9B wait
* Reference to control TfrmYFFP.Enddate : TDateTimePicker
|
00820FCB 8B8358030000 mov eax, [ebx+$0358]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00820FD1 E85612C5FF call 0047222C
* Reference to control TfrmYFFP.Enddate : TDateTimePicker
|
00820FD6 8B8358030000 mov eax, [ebx+$0358]
00820FDC DD8010020000 fld qword ptr [eax+$0210]
00820FE2 D82544108200 fsub dword ptr [$00821044]
00820FE8 83C4F8 add esp, -$08
00820FEB DD1C24 fstp qword ptr [esp]
00820FEE 9B wait
* Reference to control TfrmYFFP.begdate : TDateTimePicker
|
00820FEF 8B8354030000 mov eax, [ebx+$0354]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00820FF5 E83212C5FF call 0047222C
00820FFA 8BC3 mov eax, ebx
|
00820FFC E8ABF8FFFF call 008208AC
00821001 33C0 xor eax, eax
00821003 5A pop edx
00821004 59 pop ecx
00821005 59 pop ecx
00821006 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[]<5D>'
|
00821009 6816108200 push $00821016
0082100E C3 ret
* Reference to: System.@HandleFinally;
|
0082100F E9E03ABEFF jmp 00404AF4
00821014 EBF8 jmp 0082100E
****** END
|
00821016 5B pop ebx
00821017 5D pop ebp
00821018 C3 ret
*)
end;
procedure TfrmYFFP.TBRafreshClick(Sender : TObject);
begin
(*
00821048 53 push ebx
00821049 8BD8 mov ebx, eax
* Reference to control TfrmYFFP.ToolBar1 : TToolBar
|
0082104B 8B83F8020000 mov eax, [ebx+$02F8]
00821051 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
00821053 FF92C4000000 call dword ptr [edx+$00C4]
00821059 8BC3 mov eax, ebx
|
0082105B E84CF8FFFF call 008208AC
00821060 5B pop ebx
00821061 C3 ret
*)
end;
procedure TfrmYFFP.ToolButton2Click(Sender : TObject);
begin
(*
00821064 55 push ebp
00821065 8BEC mov ebp, esp
00821067 6A00 push $00
00821069 53 push ebx
0082106A 8BD8 mov ebx, eax
0082106C 33C0 xor eax, eax
0082106E 55 push ebp
0082106F 68E8108200 push $008210E8
***** TRY
|
00821074 64FF30 push dword ptr fs:[eax]
00821077 648920 mov fs:[eax], esp
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
0082107A 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
00821080 E88F49CAFF call 004C5A14
00821085 84C0 test al, al
00821087 7449 jz 008210D2
00821089 8D45FC lea eax, [ebp-$04]
0082108C 50 push eax
0082108D B902000000 mov ecx, $00000002
00821092 BA01000000 mov edx, $00000001
* Reference to control TfrmYFFP.Panel1 : TPanel
|
00821097 8B8310030000 mov eax, [ebx+$0310]
|
0082109D E80E50F9FF call 007B60B0
008210A2 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008210A5 8B8320030000 mov eax, [ebx+$0320]
|
008210AB E8185CF9FF call 007B6CC8
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008210B0 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008210B6 8B8320030000 mov eax, [ebx+$0320]
|
008210BC E8CF5DF9FF call 007B6E90
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008210C1 8B9364030000 mov edx, [ebx+$0364]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008210C7 8B8320030000 mov eax, [ebx+$0320]
|
008210CD E8465FF9FF call 007B7018
008210D2 33C0 xor eax, eax
008210D4 5A pop edx
008210D5 59 pop ecx
008210D6 59 pop ecx
008210D7 648910 mov fs:[eax], edx
****** FINALLY
|
008210DA 68EF108200 push $008210EF
008210DF 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
008210E2 E83D42BEFF call 00405324
008210E7 C3 ret
* Reference to: System.@HandleFinally;
|
008210E8 E9073ABEFF jmp 00404AF4
008210ED EBF0 jmp 008210DF
****** END
|
008210EF 5B pop ebx
008210F0 59 pop ecx
008210F1 5D pop ebp
008210F2 C3 ret
*)
end;
procedure TfrmYFFP.FactoryNameChange(Sender : TObject);
begin
(*
008210F4 56 push esi
* Reference to control TfrmYFFP.ToolButton2 : TToolButton
|
008210F5 8B8014030000 mov eax, [eax+$0314]
008210FB 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
008210FF E85034BEFF call 00404554
00821104 5E pop esi
00821105 C3 ret
*)
end;
procedure TfrmYFFP.Button2Click(Sender : TObject);
begin
(*
00821108 55 push ebp
00821109 8BEC mov ebp, esp
0082110B 33C9 xor ecx, ecx
0082110D 51 push ecx
0082110E 51 push ecx
0082110F 51 push ecx
00821110 51 push ecx
00821111 51 push ecx
00821112 53 push ebx
00821113 56 push esi
00821114 8BD8 mov ebx, eax
00821116 33C0 xor eax, eax
00821118 55 push ebp
* Possible String Reference to: '<27><>8<EFBFBD><38><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00821119 6815128200 push $00821215
***** TRY
|
0082111E 64FF30 push dword ptr fs:[eax]
00821121 648920 mov fs:[eax], esp
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00821124 8B8364030000 mov eax, [ebx+$0364]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0082112A E8916DCAFF call 004C7EC0
0082112F 84C0 test al, al
00821131 0F85C3000000 jnz 008211FA
00821137 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
00821139 B924128200 mov ecx, $00821224
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0082113E BA2C128200 mov edx, $0082122C
*)
end;
procedure TfrmYFFP.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
00821CD4 55 push ebp
00821CD5 8BEC mov ebp, esp
00821CD7 B908000000 mov ecx, $00000008
00821CDC 6A00 push $00
00821CDE 6A00 push $00
00821CE0 49 dec ecx
00821CE1 75F9 jnz 00821CDC
00821CE3 51 push ecx
00821CE4 53 push ebx
00821CE5 56 push esi
00821CE6 8BDA mov ebx, edx
00821CE8 8BF0 mov esi, eax
00821CEA 33C0 xor eax, eax
00821CEC 55 push ebp
* Possible String Reference to: '<27>,<2C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00821CED 68E21E8200 push $00821EE2
***** TRY
|
00821CF2 64FF30 push dword ptr fs:[eax]
00821CF5 648920 mov fs:[eax], esp
00821CF8 8D55FC lea edx, [ebp-$04]
00821CFB 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;
|
00821CFD E8BAD9D6FF call 0058F6BC
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00821D02 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00821D08 E83FA6E3FF 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;
|
00821D0D E852FEE2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00821D12 8B4050 mov eax, [eax+$50]
00821D15 8D55F4 lea edx, [ebp-$0C]
00821D18 8B08 mov ecx, [eax]
00821D1A FF5110 call dword ptr [ecx+$10]
00821D1D 8B45F4 mov eax, [ebp-$0C]
00821D20 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821D23 E8C48BBEFF call 0040A8EC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00821D28 8B9E64030000 mov ebx, [esi+$0364]
00821D2E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00821D30 E80B67CAFF call 004C8440
00821D35 8D55E0 lea edx, [ebp-$20]
00821D38 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821D3B E8AC8BBEFF call 0040A8EC
00821D40 8B55E0 mov edx, [ebp-$20]
00821D43 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00821D46 E87D70BFFF call 00418DC8
00821D4B 8D45E4 lea eax, [ebp-$1C]
00821D4E 50 push eax
00821D4F 8B55F8 mov edx, [ebp-$08]
00821D52 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00821D54 E85B4ECAFF call 004C6BB4
00821D59 5A pop edx
00821D5A 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00821D5C FF91B4000000 call dword ptr [ecx+$00B4]
00821D62 8BC3 mov eax, ebx
00821D64 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00821D66 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00821D6C 8B9E0C030000 mov ebx, [esi+$030C]
00821D72 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00821D74 E85B3BCAFF call 004C58D4
00821D79 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00821D7B E82CC2CBFF call 004DDFAC
00821D80 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00821D82 FF5244 call dword ptr [edx+$44]
00821D85 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00821D87 E820C2CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
00821D8C BAF81E8200 mov edx, $00821EF8
00821D91 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00821D93 FF5138 call dword ptr [ecx+$38]
00821D96 8D55DC lea edx, [ebp-$24]
00821D99 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821D9C E84B8BBEFF call 0040A8EC
00821DA1 837DDC00 cmp dword ptr [ebp-$24], +$00
00821DA5 7440 jz 00821DE7
* Possible String Reference to: ' Set '
|
00821DA7 68141F8200 push $00821F14
00821DAC FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00821DAF 68241F8200 push $00821F24
00821DB4 8D55D4 lea edx, [ebp-$2C]
00821DB7 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821DBA E82D8BBEFF call 0040A8EC
00821DBF FF75D4 push dword ptr [ebp-$2C]
00821DC2 68301F8200 push $00821F30
00821DC7 8D45D8 lea eax, [ebp-$28]
00821DCA BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
00821DCF E8E038BEFF call 004056B4
00821DD4 8B45D8 mov eax, [ebp-$28]
00821DD7 50 push eax
00821DD8 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00821DDA E8CDC1CBFF call 004DDFAC
00821DDF 5A pop edx
00821DE0 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00821DE2 FF5138 call dword ptr [ecx+$38]
00821DE5 EB2B jmp 00821E12
00821DE7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00821DE9 E8BEC1CBFF call 004DDFAC
00821DEE 50 push eax
* Possible String Reference to: ' Set '
|
00821DEF 68141F8200 push $00821F14
00821DF4 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00821DF7 683C1F8200 push $00821F3C
00821DFC 8D45D0 lea eax, [ebp-$30]
00821DFF BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00821E04 E8AB38BEFF call 004056B4
00821E09 8B55D0 mov edx, [ebp-$30]
00821E0C 58 pop eax
00821E0D 8B08 mov ecx, [eax]
00821E0F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00821E12 684C1F8200 push $00821F4C
00821E17 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFFP.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
00821FA0 55 push ebp
00821FA1 8BEC mov ebp, esp
00821FA3 B920000000 mov ecx, $00000020
00821FA8 6A00 push $00
00821FAA 6A00 push $00
00821FAC 49 dec ecx
00821FAD 75F9 jnz 00821FA8
00821FAF 51 push ecx
00821FB0 53 push ebx
00821FB1 56 push esi
00821FB2 8BF2 mov esi, edx
00821FB4 8BD8 mov ebx, eax
00821FB6 33C0 xor eax, eax
00821FB8 55 push ebp
* Possible String Reference to: '<27>r$<24><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00821FB9 687D268200 push $0082267D
***** TRY
|
00821FBE 64FF30 push dword ptr fs:[eax]
00821FC1 648920 mov fs:[eax], esp
00821FC4 8D55FC lea edx, [ebp-$04]
00821FC7 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;
|
00821FC9 E8EED6D6FF call 0058F6BC
00821FCE 8D55DC lea edx, [ebp-$24]
00821FD1 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821FD4 E81389BEFF call 0040A8EC
00821FD9 837DDC00 cmp dword ptr [ebp-$24], +$00
00821FDD 750D jnz 00821FEC
00821FDF 8D45FC lea eax, [ebp-$04]
00821FE2 BA94268200 mov edx, $00822694
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00821FE7 E8D033BEFF call 004053BC
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00821FEC 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00821FF2 E855A3E3FF 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;
|
00821FF7 E868FBE2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00821FFC 8B4050 mov eax, [eax+$50]
00821FFF 8D55D8 lea edx, [ebp-$28]
00822002 8B08 mov ecx, [eax]
00822004 FF5110 call dword ptr [ecx+$10]
00822007 8B45D8 mov eax, [ebp-$28]
0082200A 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082200D E8DA88BEFF call 0040A8EC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00822012 8BB364030000 mov esi, [ebx+$0364]
00822018 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082201A E82164CAFF call 004C8440
0082201F 8D55C4 lea edx, [ebp-$3C]
00822022 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00822025 E8C288BEFF call 0040A8EC
0082202A 8B55C4 mov edx, [ebp-$3C]
0082202D 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00822030 E8936DBFFF call 00418DC8
00822035 8D45C8 lea eax, [ebp-$38]
00822038 50 push eax
00822039 8B55E4 mov edx, [ebp-$1C]
0082203C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082203E E8714BCAFF call 004C6BB4
00822043 5A pop edx
00822044 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00822046 FF91B4000000 call dword ptr [ecx+$00B4]
0082204C 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmYFFP.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
008228CC 55 push ebp
008228CD 8BEC mov ebp, esp
008228CF B908000000 mov ecx, $00000008
008228D4 6A00 push $00
008228D6 6A00 push $00
008228D8 49 dec ecx
008228D9 75F9 jnz 008228D4
008228DB 51 push ecx
008228DC 53 push ebx
008228DD 56 push esi
008228DE 8BDA mov ebx, edx
008228E0 8BF0 mov esi, eax
008228E2 33C0 xor eax, eax
008228E4 55 push ebp
008228E5 68DA2A8200 push $00822ADA
***** TRY
|
008228EA 64FF30 push dword ptr fs:[eax]
008228ED 648920 mov fs:[eax], esp
008228F0 8D55FC lea edx, [ebp-$04]
008228F3 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;
|
008228F5 E8C2CDD6FF call 0058F6BC
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
008228FA 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00822900 E8479AE3FF 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;
|
00822905 E85AF2E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0082290A 8B4050 mov eax, [eax+$50]
0082290D 8D55F4 lea edx, [ebp-$0C]
00822910 8B08 mov ecx, [eax]
00822912 FF5110 call dword ptr [ecx+$10]
00822915 8B45F4 mov eax, [ebp-$0C]
00822918 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082291B E8CC7FBEFF call 0040A8EC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00822920 8B9E64030000 mov ebx, [esi+$0364]
00822926 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00822928 E8135BCAFF call 004C8440
0082292D 8D55E0 lea edx, [ebp-$20]
00822930 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00822933 E8B47FBEFF call 0040A8EC
00822938 8B55E0 mov edx, [ebp-$20]
0082293B 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082293E E88564BFFF call 00418DC8
00822943 8D45E4 lea eax, [ebp-$1C]
00822946 50 push eax
00822947 8B55F8 mov edx, [ebp-$08]
0082294A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082294C E86342CAFF call 004C6BB4
00822951 5A pop edx
00822952 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00822954 FF91B4000000 call dword ptr [ecx+$00B4]
0082295A 8BC3 mov eax, ebx
0082295C 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0082295E FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00822964 8B9E0C030000 mov ebx, [esi+$030C]
0082296A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082296C E8632FCAFF call 004C58D4
00822971 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00822973 E834B6CBFF call 004DDFAC
00822978 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0082297A FF5244 call dword ptr [edx+$44]
0082297D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082297F E828B6CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00822984 BAF02A8200 mov edx, $00822AF0
00822989 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082298B FF5138 call dword ptr [ecx+$38]
0082298E 8D55DC lea edx, [ebp-$24]
00822991 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00822994 E8537FBEFF call 0040A8EC
00822999 837DDC00 cmp dword ptr [ebp-$24], +$00
0082299D 7440 jz 008229DF
* Possible String Reference to: ' Set '
|
0082299F 680C2B8200 push $00822B0C
008229A4 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008229A7 681C2B8200 push $00822B1C
008229AC 8D55D4 lea edx, [ebp-$2C]
008229AF 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008229B2 E8357FBEFF call 0040A8EC
008229B7 FF75D4 push dword ptr [ebp-$2C]
008229BA 68282B8200 push $00822B28
008229BF 8D45D8 lea eax, [ebp-$28]
008229C2 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008229C7 E8E82CBEFF call 004056B4
008229CC 8B45D8 mov eax, [ebp-$28]
008229CF 50 push eax
008229D0 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008229D2 E8D5B5CBFF call 004DDFAC
008229D7 5A pop edx
008229D8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008229DA FF5138 call dword ptr [ecx+$38]
008229DD EB2B jmp 00822A0A
008229DF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008229E1 E8C6B5CBFF call 004DDFAC
008229E6 50 push eax
* Possible String Reference to: ' Set '
|
008229E7 680C2B8200 push $00822B0C
008229EC FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
008229EF 68342B8200 push $00822B34
008229F4 8D45D0 lea eax, [ebp-$30]
008229F7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008229FC E8B32CBEFF call 004056B4
00822A01 8B55D0 mov edx, [ebp-$30]
00822A04 58 pop eax
00822A05 8B08 mov ecx, [eax]
00822A07 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00822A0A 68442B8200 push $00822B44
00822A0F 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFFP.ToolButton3Click(Sender : TObject);
begin
(*
00822B98 55 push ebp
00822B99 8BEC mov ebp, esp
00822B9B B911000000 mov ecx, $00000011
00822BA0 6A00 push $00
00822BA2 6A00 push $00
00822BA4 49 dec ecx
00822BA5 75F9 jnz 00822BA0
00822BA7 51 push ecx
00822BA8 56 push esi
00822BA9 8945FC mov [ebp-$04], eax
00822BAC 33C0 xor eax, eax
00822BAE 55 push ebp
00822BAF 685C2E8200 push $00822E5C
***** TRY
|
00822BB4 64FF30 push dword ptr fs:[eax]
00822BB7 648920 mov fs:[eax], esp
00822BBA 33C0 xor eax, eax
00822BBC 55 push ebp
00822BBD 68C12D8200 push $00822DC1
***** TRY
|
00822BC2 64FF30 push dword ptr fs:[eax]
00822BC5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
00822F0C 55 push ebp
00822F0D 8BEC mov ebp, esp
00822F0F 51 push ecx
00822F10 B90B000000 mov ecx, $0000000B
00822F15 6A00 push $00
00822F17 6A00 push $00
00822F19 49 dec ecx
00822F1A 75F9 jnz 00822F15
00822F1C 51 push ecx
00822F1D 874DFC xchg [ebp-$04], ecx
00822F20 53 push ebx
00822F21 56 push esi
00822F22 8BF0 mov esi, eax
00822F24 33C0 xor eax, eax
00822F26 55 push ebp
00822F27 6857328200 push $00823257
***** TRY
|
00822F2C 64FF30 push dword ptr fs:[eax]
00822F2F 648920 mov fs:[eax], esp
00822F32 33C0 xor eax, eax
00822F34 55 push ebp
00822F35 6810328200 push $00823210
***** TRY
|
00822F3A 64FF30 push dword ptr fs:[eax]
00822F3D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
0082338C 55 push ebp
0082338D 8BEC mov ebp, esp
0082338F 51 push ecx
00823390 B906000000 mov ecx, $00000006
00823395 6A00 push $00
00823397 6A00 push $00
00823399 49 dec ecx
0082339A 75F9 jnz 00823395
0082339C 51 push ecx
0082339D 874DFC xchg [ebp-$04], ecx
008233A0 53 push ebx
008233A1 56 push esi
008233A2 8BF0 mov esi, eax
008233A4 33C0 xor eax, eax
008233A6 55 push ebp
008233A7 68E5358200 push $008235E5
***** TRY
|
008233AC 64FF30 push dword ptr fs:[eax]
008233AF 648920 mov fs:[eax], esp
008233B2 33C0 xor eax, eax
008233B4 55 push ebp
008233B5 68BB358200 push $008235BB
***** TRY
|
008233BA 64FF30 push dword ptr fs:[eax]
008233BD 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
008236E8 55 push ebp
008236E9 8BEC mov ebp, esp
008236EB 51 push ecx
008236EC B906000000 mov ecx, $00000006
008236F1 6A00 push $00
008236F3 6A00 push $00
008236F5 49 dec ecx
008236F6 75F9 jnz 008236F1
008236F8 51 push ecx
008236F9 874DFC xchg [ebp-$04], ecx
008236FC 53 push ebx
008236FD 56 push esi
008236FE 8BF0 mov esi, eax
00823700 33C0 xor eax, eax
00823702 55 push ebp
00823703 6841398200 push $00823941
***** TRY
|
00823708 64FF30 push dword ptr fs:[eax]
0082370B 648920 mov fs:[eax], esp
0082370E 33C0 xor eax, eax
00823710 55 push ebp
00823711 6817398200 push $00823917
***** TRY
|
00823716 64FF30 push dword ptr fs:[eax]
00823719 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.ToolButton1Click(Sender : TObject);
begin
(*
00823A34 53 push ebx
00823A35 8BD8 mov ebx, eax
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00823A37 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00823A3D E87E44CAFF call 004C7EC0
00823A42 84C0 test al, al
00823A44 7516 jnz 00823A5C
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
00823A46 B9683A8200 mov ecx, $00823A68
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00823A4B 8B9320030000 mov edx, [ebx+$0320]
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00823A51 8B833C030000 mov eax, [ebx+$033C]
|
00823A57 E8D447F9FF call 007B8230
00823A5C 5B pop ebx
00823A5D C3 ret
*)
end;
procedure TfrmYFFP.v2Column7PropertiesButtonClick(Sender : TObject);
begin
(*
00823A74 55 push ebp
00823A75 8BEC mov ebp, esp
00823A77 51 push ecx
00823A78 B90E000000 mov ecx, $0000000E
00823A7D 6A00 push $00
00823A7F 6A00 push $00
00823A81 49 dec ecx
00823A82 75F9 jnz 00823A7D
00823A84 874DFC xchg [ebp-$04], ecx
00823A87 53 push ebx
00823A88 56 push esi
00823A89 8BF0 mov esi, eax
00823A8B 33C0 xor eax, eax
00823A8D 55 push ebp
* Possible String Reference to: '<27>'<27><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00823A8E 68C83D8200 push $00823DC8
***** TRY
|
00823A93 64FF30 push dword ptr fs:[eax]
00823A96 648920 mov fs:[eax], esp
00823A99 33C0 xor eax, eax
00823A9B 55 push ebp
00823A9C 68743D8200 push $00823D74
***** TRY
|
00823AA1 64FF30 push dword ptr fs:[eax]
00823AA4 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2Column2PropertiesEditValueChanged(Sender : TObject);
begin
(*
00823EE4 55 push ebp
00823EE5 8BEC mov ebp, esp
00823EE7 B915000000 mov ecx, $00000015
00823EEC 6A00 push $00
00823EEE 6A00 push $00
00823EF0 49 dec ecx
00823EF1 75F9 jnz 00823EEC
00823EF3 53 push ebx
00823EF4 56 push esi
00823EF5 57 push edi
00823EF6 8BDA mov ebx, edx
00823EF8 8BF0 mov esi, eax
00823EFA 33C0 xor eax, eax
00823EFC 55 push ebp
00823EFD 689E438200 push $0082439E
***** TRY
|
00823F02 64FF30 push dword ptr fs:[eax]
00823F05 648920 mov fs:[eax], esp
00823F08 8D55FC lea edx, [ebp-$04]
00823F0B 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;
|
00823F0D E8AAB7D6FF call 0058F6BC
00823F12 8D55DC lea edx, [ebp-$24]
00823F15 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00823F18 E8CF69BEFF call 0040A8EC
00823F1D 837DDC00 cmp dword ptr [ebp-$24], +$00
00823F21 750D jnz 00823F30
00823F23 8D45FC lea eax, [ebp-$04]
00823F26 BAB4438200 mov edx, $008243B4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00823F2B E88C14BEFF call 004053BC
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00823F30 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00823F36 E81184E3FF 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;
|
00823F3B E824DCE2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00823F40 8B4050 mov eax, [eax+$50]
00823F43 8D55D8 lea edx, [ebp-$28]
00823F46 8B08 mov ecx, [eax]
00823F48 FF5110 call dword ptr [ecx+$10]
00823F4B 8B45D8 mov eax, [ebp-$28]
00823F4E 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00823F51 E89669BEFF call 0040A8EC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00823F56 8B9E64030000 mov ebx, [esi+$0364]
00823F5C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00823F5E E8DD44CAFF call 004C8440
00823F63 8D55C4 lea edx, [ebp-$3C]
00823F66 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00823F69 E87E69BEFF call 0040A8EC
00823F6E 8B55C4 mov edx, [ebp-$3C]
00823F71 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00823F74 E84F4EBFFF call 00418DC8
00823F79 8D45C8 lea eax, [ebp-$38]
00823F7C 50 push eax
00823F7D 8B55F0 mov edx, [ebp-$10]
00823F80 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00823F82 E82D2CCAFF call 004C6BB4
00823F87 5A pop edx
00823F88 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00823F8A FF91B4000000 call dword ptr [ecx+$00B4]
00823F90 8BC3 mov eax, ebx
00823F92 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00823F94 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryTemp : TADOQuery
|
00823F9A 8B9E08030000 mov ebx, [esi+$0308]
00823FA0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00823FA2 E82D19CAFF call 004C58D4
00823FA7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00823FA9 E8FE9FCBFF call 004DDFAC
00823FAE 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00823FB0 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
| om YF_Money_CR where YFID=''
|
00823FB3 68C0438200 push $008243C0
* Possible String Reference to: 'YFID'
|
00823FB8 BA08448200 mov edx, $00824408
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00823FBD 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00823FC3 E8EC2BCAFF call 004C6BB4
00823FC8 8D55BC lea edx, [ebp-$44]
00823FCB 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00823FCD FF5160 call dword ptr [ecx+$60]
00823FD0 FF75BC push dword ptr [ebp-$44]
00823FD3 6818448200 push $00824418
00823FD8 8D45C0 lea eax, [ebp-$40]
00823FDB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00823FE0 E8CF16BEFF call 004056B4
00823FE5 8B45C0 mov eax, [ebp-$40]
00823FE8 50 push eax
00823FE9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00823FEB E8BC9FCBFF call 004DDFAC
00823FF0 5A pop edx
00823FF1 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00823FF3 FF5138 call dword ptr [ecx+$38]
00823FF6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00823FF8 E8CB18CAFF call 004C58C8
* Possible String Reference to: 'KPMoney'
|
00823FFD BA24448200 mov edx, $00824424
* Reference to control TfrmYFFP.ADOQueryTemp : TADOQuery
|
00824002 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824008 E8A72BCAFF call 004C6BB4
0082400D 8D55F4 lea edx, [ebp-$0C]
00824010 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00824012 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'KPMoney'
|
00824015 BA24448200 mov edx, $00824424
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
0082401A 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824020 E88F2BCAFF call 004C6BB4
00824025 8D55F8 lea edx, [ebp-$08]
00824028 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0082402A FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
0082402D BA34448200 mov edx, $00824434
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824032 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824038 E8772BCAFF call 004C6BB4
0082403D 8D55B4 lea edx, [ebp-$4C]
00824040 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00824042 FF5160 call dword ptr [ecx+$60]
00824045 8B45B4 mov eax, [ebp-$4C]
00824048 8D55B8 lea edx, [ebp-$48]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082404B E89C68BEFF call 0040A8EC
00824050 837DB800 cmp dword ptr [ebp-$48], +$00
00824054 0F8434010000 jz 0082418E
* Possible String Reference to: 'Qty'
|
0082405A BA34448200 mov edx, $00824434
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
0082405F 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824065 E84A2BCAFF call 004C6BB4
0082406A 8D55EC lea edx, [ebp-$14]
0082406D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0082406F FF5160 call dword ptr [ecx+$60]
00824072 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00824075 E8B296BEFF call 0040D72C
0082407A D81D38448200 fcomp dword ptr [$00824438]
00824080 DFE0 fstsw ax
00824082 9E sahf
00824083 0F84C0020000 jz 00824349
00824089 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0082408C E89B96BEFF call 0040D72C
00824091 D80D3C448200 fmul dword ptr [$0082443C]
00824097 DB7DA8 fstp tbyte ptr [ebp-$58]
0082409A 9B wait
0082409B 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0082409E E88996BEFF call 0040D72C
008240A3 DB6DA8 fld tbyte ptr [ebp-$58]
008240A6 DEF1 fdivrp st(1), st(0)
008240A8 DD5DE0 fstp qword ptr [ebp-$20]
008240AB 9B wait
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008240AC 8BBE64030000 mov edi, [esi+$0364]
008240B2 8BC7 mov eax, edi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008240B4 E88743CAFF call 004C8440
* Possible String Reference to: 'Price'
|
008240B9 BA48448200 mov edx, $00824448
008240BE 8BC7 mov eax, edi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008240C0 E8EF2ACAFF call 004C6BB4
008240C5 50 push eax
008240C6 DD45E0 fld qword ptr [ebp-$20]
008240C9 8D4598 lea eax, [ebp-$68]
* Reference to: Variants.@VarFromReal;
|
008240CC E8BB4CBFFF call 00418D8C
008240D1 8D5598 lea edx, [ebp-$68]
008240D4 58 pop eax
008240D5 8B08 mov ecx, [eax]
008240D7 FF91B4000000 call dword ptr [ecx+$00B4]
008240DD 8BC7 mov eax, edi
008240DF 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008240E1 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
008240E7 8B9E0C030000 mov ebx, [esi+$030C]
008240ED 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008240EF E8E017CAFF call 004C58D4
008240F4 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008240F6 E8B19ECBFF call 004DDFAC
008240FB 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008240FD FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'Price'
|
00824100 BA48448200 mov edx, $00824448
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824105 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082410B E8A42ACAFF call 004C6BB4
00824110 8D5590 lea edx, [ebp-$70]
00824113 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00824115 FF5160 call dword ptr [ecx+$60]
00824118 8B4D90 mov ecx, [ebp-$70]
0082411B 8D4594 lea eax, [ebp-$6C]
* Possible String Reference to: 'UPdate YF_Money_CR Set Price='
|
0082411E BA58448200 mov edx, $00824458
* Reference to: System.@LStrCat3;
|
00824123 E81815BEFF call 00405640
00824128 8B4594 mov eax, [ebp-$6C]
0082412B 50 push eax
0082412C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082412E E8799ECBFF call 004DDFAC
00824133 5A pop edx
00824134 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824136 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFID=''
|
00824139 6880448200 push $00824480
* Possible String Reference to: 'YFID'
|
0082413E BA08448200 mov edx, $00824408
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824143 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824149 E8662ACAFF call 004C6BB4
0082414E 8D5584 lea edx, [ebp-$7C]
00824151 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00824153 FF5160 call dword ptr [ecx+$60]
00824156 8B4584 mov eax, [ebp-$7C]
00824159 8D5588 lea edx, [ebp-$78]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082415C E88B67BEFF call 0040A8EC
00824161 FF7588 push dword ptr [ebp-$78]
00824164 6818448200 push $00824418
00824169 8D458C lea eax, [ebp-$74]
0082416C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00824171 E83E15BEFF call 004056B4
00824176 8B458C mov eax, [ebp-$74]
00824179 50 push eax
0082417A 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082417C E82B9ECBFF call 004DDFAC
00824181 5A pop edx
00824182 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824184 FF5138 call dword ptr [ecx+$38]
00824187 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00824189 E8469DCBFF call 004DDED4
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
0082418E 8B9E0C030000 mov ebx, [esi+$030C]
00824194 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00824196 E83917CAFF call 004C58D4
0082419B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082419D E80A9ECBFF call 004DDFAC
008241A2 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008241A4 FF5244 call dword ptr [edx+$44]
008241A7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008241A9 E8FE9DCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008241AE BA98448200 mov edx, $00824498
008241B3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008241B5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008241B8 68B4448200 push $008244B4
008241BD FF75F0 push dword ptr [ebp-$10]
008241C0 68C4448200 push $008244C4
008241C5 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]
008241CB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008241CE E81967BEFF call 0040A8EC
008241D3 FFB57CFFFFFF push dword ptr [ebp+$FFFFFF7C]
008241D9 8D4580 lea eax, [ebp-$80]
008241DC BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008241E1 E8CE14BEFF call 004056B4
008241E6 8B4580 mov eax, [ebp-$80]
008241E9 50 push eax
008241EA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008241EC E8BB9DCBFF call 004DDFAC
008241F1 5A pop edx
008241F2 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008241F4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008241F7 68D0448200 push $008244D0
008241FC 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
*)
end;
procedure TfrmYFFP.v2PSPropertiesEditValueChanged(Sender : TObject);
begin
(*
00824590 55 push ebp
00824591 8BEC mov ebp, esp
00824593 B908000000 mov ecx, $00000008
00824598 6A00 push $00
0082459A 6A00 push $00
0082459C 49 dec ecx
0082459D 75F9 jnz 00824598
0082459F 53 push ebx
008245A0 56 push esi
008245A1 8BDA mov ebx, edx
008245A3 8BF0 mov esi, eax
008245A5 33C0 xor eax, eax
008245A7 55 push ebp
008245A8 6878478200 push $00824778
***** TRY
|
008245AD 64FF30 push dword ptr fs:[eax]
008245B0 648920 mov fs:[eax], esp
008245B3 8D55FC lea edx, [ebp-$04]
008245B6 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;
|
008245B8 E8FFB0D6FF call 0058F6BC
008245BD 8D55F4 lea edx, [ebp-$0C]
008245C0 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008245C3 E82463BEFF call 0040A8EC
008245C8 837DF400 cmp dword ptr [ebp-$0C], +$00
008245CC 750D jnz 008245DB
008245CE 8D45FC lea eax, [ebp-$04]
008245D1 BA90478200 mov edx, $00824790
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008245D6 E8E10DBEFF call 004053BC
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
008245DB 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008245E1 E8667DE3FF 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;
|
008245E6 E879D5E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008245EB 8B4050 mov eax, [eax+$50]
008245EE 8D55F0 lea edx, [ebp-$10]
008245F1 8B08 mov ecx, [eax]
008245F3 FF5110 call dword ptr [ecx+$10]
008245F6 8B45F0 mov eax, [ebp-$10]
008245F9 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008245FC E8EB62BEFF call 0040A8EC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824601 8B9E64030000 mov ebx, [esi+$0364]
00824607 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00824609 E8323ECAFF call 004C8440
0082460E 8D55DC lea edx, [ebp-$24]
00824611 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824614 E8D362BEFF call 0040A8EC
00824619 8B55DC mov edx, [ebp-$24]
0082461C 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082461F E8A447BFFF call 00418DC8
00824624 8D45E0 lea eax, [ebp-$20]
00824627 50 push eax
00824628 8B55F8 mov edx, [ebp-$08]
0082462B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082462D E88225CAFF call 004C6BB4
00824632 5A pop edx
00824633 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00824635 FF91B4000000 call dword ptr [ecx+$00B4]
0082463B 8BC3 mov eax, ebx
0082463D 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0082463F FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00824645 8B9E0C030000 mov ebx, [esi+$030C]
0082464B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082464D E88212CAFF call 004C58D4
00824652 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824654 E85399CBFF call 004DDFAC
00824659 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0082465B FF5244 call dword ptr [edx+$44]
0082465E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824660 E84799CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00824665 BA9C478200 mov edx, $0082479C
0082466A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082466C FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
0082466F 68B8478200 push $008247B8
00824674 FF75F8 push dword ptr [ebp-$08]
00824677 68C8478200 push $008247C8
0082467C 8D55D4 lea edx, [ebp-$2C]
0082467F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824682 E86562BEFF call 0040A8EC
00824687 FF75D4 push dword ptr [ebp-$2C]
0082468A 8D45D8 lea eax, [ebp-$28]
0082468D BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00824692 E81D10BEFF call 004056B4
00824697 8B45D8 mov eax, [ebp-$28]
0082469A 50 push eax
0082469B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082469D E80A99CBFF call 004DDFAC
008246A2 5A pop edx
008246A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008246A5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008246A8 68D4478200 push $008247D4
008246AD 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFFP.v2BatchNoPropertiesEditValueChanged(Sender : TObject);
begin
(*
00824834 55 push ebp
00824835 8BEC mov ebp, esp
00824837 B907000000 mov ecx, $00000007
0082483C 6A00 push $00
0082483E 6A00 push $00
00824840 49 dec ecx
00824841 75F9 jnz 0082483C
00824843 51 push ecx
00824844 53 push ebx
00824845 56 push esi
00824846 8BDA mov ebx, edx
00824848 8BF0 mov esi, eax
0082484A 33C0 xor eax, eax
0082484C 55 push ebp
* Possible String Reference to: '<27><>'
|
0082484D 68044A8200 push $00824A04
***** TRY
|
00824852 64FF30 push dword ptr fs:[eax]
00824855 648920 mov fs:[eax], esp
00824858 8D55FC lea edx, [ebp-$04]
0082485B 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;
|
0082485D E85AAED6FF call 0058F6BC
* Reference to control TfrmYFFP.Tv2 : TcxGridDBTableView
|
00824862 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00824868 E8DF7AE3FF 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;
|
0082486D E8F2D2E2FF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00824872 8B4050 mov eax, [eax+$50]
00824875 8D55F4 lea edx, [ebp-$0C]
00824878 8B08 mov ecx, [eax]
0082487A FF5110 call dword ptr [ecx+$10]
0082487D 8B45F4 mov eax, [ebp-$0C]
00824880 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824883 E86460BEFF call 0040A8EC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824888 8B9E64030000 mov ebx, [esi+$0364]
0082488E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00824890 E8AB3BCAFF call 004C8440
00824895 8D55E0 lea edx, [ebp-$20]
00824898 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082489B E84C60BEFF call 0040A8EC
008248A0 8B55E0 mov edx, [ebp-$20]
008248A3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008248A6 E81D45BFFF call 00418DC8
008248AB 8D45E4 lea eax, [ebp-$1C]
008248AE 50 push eax
008248AF 8B55F8 mov edx, [ebp-$08]
008248B2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008248B4 E8FB22CAFF call 004C6BB4
008248B9 5A pop edx
008248BA 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008248BC FF91B4000000 call dword ptr [ecx+$00B4]
008248C2 8BC3 mov eax, ebx
008248C4 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008248C6 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
008248CC 8B9E0C030000 mov ebx, [esi+$030C]
008248D2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008248D4 E8FB0FCAFF call 004C58D4
008248D9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008248DB E8CC96CBFF call 004DDFAC
008248E0 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008248E2 FF5244 call dword ptr [edx+$44]
008248E5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008248E7 E8C096CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008248EC BA1C4A8200 mov edx, $00824A1C
008248F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008248F3 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008248F6 68384A8200 push $00824A38
008248FB FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008248FE 68484A8200 push $00824A48
00824903 8D55D8 lea edx, [ebp-$28]
00824906 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824909 E8DE5FBEFF call 0040A8EC
0082490E FF75D8 push dword ptr [ebp-$28]
00824911 68544A8200 push $00824A54
00824916 8D45DC lea eax, [ebp-$24]
00824919 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0082491E E8910DBEFF call 004056B4
00824923 8B45DC mov eax, [ebp-$24]
00824926 50 push eax
00824927 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824929 E87E96CBFF call 004DDFAC
0082492E 5A pop edx
0082492F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824931 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00824934 68604A8200 push $00824A60
00824939 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYFFP.v2PayMentPropertiesButtonClick(Sender : TObject);
begin
(*
00824AB4 55 push ebp
00824AB5 8BEC mov ebp, esp
00824AB7 51 push ecx
00824AB8 B906000000 mov ecx, $00000006
00824ABD 6A00 push $00
00824ABF 6A00 push $00
00824AC1 49 dec ecx
00824AC2 75F9 jnz 00824ABD
00824AC4 51 push ecx
00824AC5 874DFC xchg [ebp-$04], ecx
00824AC8 53 push ebx
00824AC9 56 push esi
00824ACA 8BF0 mov esi, eax
00824ACC 33C0 xor eax, eax
00824ACE 55 push ebp
00824ACF 680B4D8200 push $00824D0B
***** TRY
|
00824AD4 64FF30 push dword ptr fs:[eax]
00824AD7 648920 mov fs:[eax], esp
00824ADA 33C0 xor eax, eax
00824ADC 55 push ebp
00824ADD 68E14C8200 push $00824CE1
***** TRY
|
00824AE2 64FF30 push dword ptr fs:[eax]
00824AE5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.OrderNoChange(Sender : TObject);
begin
(*
00824DE8 56 push esi
* Reference to control TfrmYFFP.ToolButton2 : TToolButton
|
00824DE9 8B8014030000 mov eax, [eax+$0314]
00824DEF 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00824DF3 E85CF7BDFF call 00404554
00824DF8 5E pop esi
00824DF9 C3 ret
*)
end;
procedure TfrmYFFP.OrderNoKeyPress(Sender : TObject);
begin
(*
00824DFC 55 push ebp
00824DFD 8BEC mov ebp, esp
00824DFF 51 push ecx
00824E00 B904000000 mov ecx, $00000004
00824E05 6A00 push $00
00824E07 6A00 push $00
00824E09 49 dec ecx
00824E0A 75F9 jnz 00824E05
00824E0C 51 push ecx
00824E0D 874DFC xchg [ebp-$04], ecx
00824E10 53 push ebx
00824E11 8945FC mov [ebp-$04], eax
00824E14 33C0 xor eax, eax
00824E16 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00824E17 6802508200 push $00825002
***** TRY
|
00824E1C 64FF30 push dword ptr fs:[eax]
00824E1F 648920 mov fs:[eax], esp
00824E22 80390D cmp byte ptr [ecx], $0D
00824E25 0F859C010000 jnz 00824FC7
00824E2B 8D55F4 lea edx, [ebp-$0C]
00824E2E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.OrderNo : TEdit
|
00824E31 8B8084030000 mov eax, [eax+$0384]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00824E37 E8B437C6FF call 004885F0
00824E3C 8B45F4 mov eax, [ebp-$0C]
00824E3F 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824E42 E8A55ABEFF call 0040A8EC
00824E47 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
00824E4A E8A507BEFF call 004055F4
00824E4F 83F804 cmp eax, +$04
00824E52 0F8C6F010000 jl 00824FC7
00824E58 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.begdate : TDateTimePicker
|
00824E5B 8B8054030000 mov eax, [eax+$0354]
00824E61 8B10 mov edx, [eax]
* Reference to method TDateTimePicker.SetFocus()
|
00824E63 FF92C4000000 call dword ptr [edx+$00C4]
00824E69 33C0 xor eax, eax
00824E6B 55 push ebp
00824E6C 68C04F8200 push $00824FC0
***** TRY
|
00824E71 64FF30 push dword ptr fs:[eax]
00824E74 648920 mov fs:[eax], esp
00824E77 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00824E7A 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
00824E80 E8CF26CAFF call 004C7554
00824E85 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00824E88 8B9820030000 mov ebx, [eax+$0320]
00824E8E 33D2 xor edx, edx
00824E90 8BC3 mov eax, ebx
00824E92 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
00824E94 FF9190010000 call dword ptr [ecx+$0190]
00824E9A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00824E9C E8330ACAFF call 004C58D4
00824EA1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824EA3 E80491CBFF call 004DDFAC
00824EA8 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00824EAA FF5244 call dword ptr [edx+$44]
00824EAD 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824EAF E8F890CBFF call 004DDFAC
* Possible String Reference to: ' select A.*,C.OrderNo '
|
00824EB4 BA18508200 mov edx, $00825018
00824EB9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824EBB FF5138 call dword ptr [ecx+$38]
00824EBE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824EC0 E8E790CBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00824EC5 BA38508200 mov edx, $00825038
00824ECA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824ECC FF5138 call dword ptr [ecx+$38]
00824ECF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824ED1 E8D690CBFF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
| =B.CRID'
|
00824ED6 BA58508200 mov edx, $00825058
00824EDB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824EDD FF5138 call dword ptr [ecx+$38]
00824EE0 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824EE2 E8C590CBFF call 004DDFAC
* Possible String Reference to: ' left join JYOrder_Main C on A.Main
| Id=C.MainId'
|
00824EE7 BA8C508200 mov edx, $0082508C
00824EEC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824EEE FF5138 call dword ptr [ecx+$38]
00824EF1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824EF3 E8B490CBFF call 004DDFAC
* Possible String Reference to: 'where C.orderNo like :OrderNo'
|
00824EF8 BAC4508200 mov edx, $008250C4
00824EFD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824EFF FF5138 call dword ptr [ecx+$38]
00824F02 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00824F04 E8A390CBFF call 004DDFAC
* Possible String Reference to: 'and A.CRType='Ӧ<><D3A6><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>''
|
00824F09 BAEC508200 mov edx, $008250EC
00824F0E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00824F10 FF5138 call dword ptr [ecx+$38]
00824F13 6814518200 push $00825114
00824F18 8D55D8 lea edx, [ebp-$28]
00824F1B 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.OrderNo : TEdit
|
00824F1E 8B8084030000 mov eax, [eax+$0384]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00824F24 E8C736C6FF call 004885F0
00824F29 8B45D8 mov eax, [ebp-$28]
00824F2C 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824F2F E8B859BEFF call 0040A8EC
00824F34 FF75DC push dword ptr [ebp-$24]
00824F37 6814518200 push $00825114
00824F3C 8D45E0 lea eax, [ebp-$20]
00824F3F BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00824F44 E86B07BEFF call 004056B4
00824F49 8B55E0 mov edx, [ebp-$20]
00824F4C 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00824F4F E8743EBFFF call 00418DC8
00824F54 8D45E4 lea eax, [ebp-$1C]
00824F57 50 push eax
00824F58 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
00824F5A E89173CBFF call 004DC2F0
00824F5F BA1C518200 mov edx, $0082511C
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
00824F64 E897F4CAFF call 004D4400
00824F69 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
00824F6A E85507CBFF call 004D56C4
00824F6F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00824F71 E85209CAFF call 004C58C8
00824F76 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824F79 8B9064030000 mov edx, [eax+$0364]
00824F7F 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00824F82 8B8020030000 mov eax, [eax+$0320]
|
00824F88 E8031FF9FF call 007B6E90
00824F8D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00824F90 8B9064030000 mov edx, [eax+$0364]
00824F96 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00824F99 8B8020030000 mov eax, [eax+$0320]
|
00824F9F E87420F9FF call 007B7018
00824FA4 33C0 xor eax, eax
00824FA6 5A pop edx
00824FA7 59 pop ecx
00824FA8 59 pop ecx
00824FA9 648910 mov fs:[eax], edx
****** FINALLY
|
00824FAC 68C74F8200 push $00824FC7
00824FB1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
00824FB4 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00824FBA E8B525CAFF call 004C7574
00824FBF C3 ret
* Reference to: System.@HandleFinally;
|
00824FC0 E92FFBBDFF jmp 00404AF4
00824FC5 EBEA jmp 00824FB1
****** END
|
00824FC7 33C0 xor eax, eax
00824FC9 5A pop edx
00824FCA 59 pop ecx
00824FCB 59 pop ecx
00824FCC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
00824FCF 6809508200 push $00825009
00824FD4 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
00824FD7 E84803BEFF call 00405324
00824FDC 8D45DC lea eax, [ebp-$24]
00824FDF BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00824FE4 E85F03BEFF call 00405348
00824FE9 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00824FEC E883F6BEFF call 00414674
00824FF1 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
00824FF4 E82B03BEFF call 00405324
00824FF9 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
00824FFC E82303BEFF call 00405324
00825001 C3 ret
* Reference to: System.@HandleFinally;
|
00825002 E9EDFABDFF jmp 00404AF4
00825007 EBCB jmp 00824FD4
****** END
|
00825009 5B pop ebx
0082500A 8BE5 mov esp, ebp
0082500C 5D pop ebp
0082500D C3 ret
*)
end;
procedure TfrmYFFP.v2Column2PropertiesButtonClick(Sender : TObject);
begin
(*
0082512C 55 push ebp
0082512D 8BEC mov ebp, esp
0082512F 51 push ecx
00825130 B90F000000 mov ecx, $0000000F
00825135 6A00 push $00
00825137 6A00 push $00
00825139 49 dec ecx
0082513A 75F9 jnz 00825135
0082513C 51 push ecx
0082513D 874DFC xchg [ebp-$04], ecx
00825140 53 push ebx
00825141 56 push esi
00825142 8BF0 mov esi, eax
00825144 33C0 xor eax, eax
00825146 55 push ebp
00825147 68D8548200 push $008254D8
***** TRY
|
0082514C 64FF30 push dword ptr fs:[eax]
0082514F 648920 mov fs:[eax], esp
00825152 33C0 xor eax, eax
00825154 55 push ebp
00825155 6884548200 push $00825484
***** TRY
|
0082515A 64FF30 push dword ptr fs:[eax]
0082515D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2ComTaitouPropertiesButtonClick(Sender : TObject);
begin
(*
00825620 55 push ebp
00825621 8BEC mov ebp, esp
00825623 51 push ecx
00825624 B906000000 mov ecx, $00000006
00825629 6A00 push $00
0082562B 6A00 push $00
0082562D 49 dec ecx
0082562E 75F9 jnz 00825629
00825630 51 push ecx
00825631 874DFC xchg [ebp-$04], ecx
00825634 53 push ebx
00825635 56 push esi
00825636 8BF0 mov esi, eax
00825638 33C0 xor eax, eax
0082563A 55 push ebp
0082563B 6877588200 push $00825877
***** TRY
|
00825640 64FF30 push dword ptr fs:[eax]
00825643 648920 mov fs:[eax], esp
00825646 33C0 xor eax, eax
00825648 55 push ebp
00825649 684D588200 push $0082584D
***** TRY
|
0082564E 64FF30 push dword ptr fs:[eax]
00825651 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.VBZPropertiesButtonClick(Sender : TObject);
begin
(*
0082595C 55 push ebp
0082595D 8BEC mov ebp, esp
0082595F 51 push ecx
00825960 B906000000 mov ecx, $00000006
00825965 6A00 push $00
00825967 6A00 push $00
00825969 49 dec ecx
0082596A 75F9 jnz 00825965
0082596C 51 push ecx
0082596D 874DFC xchg [ebp-$04], ecx
00825970 53 push ebx
00825971 56 push esi
00825972 8BF0 mov esi, eax
00825974 33C0 xor eax, eax
00825976 55 push ebp
* Possible String Reference to: '<27>:<3A><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00825977 68B55B8200 push $00825BB5
***** TRY
|
0082597C 64FF30 push dword ptr fs:[eax]
0082597F 648920 mov fs:[eax], esp
00825982 33C0 xor eax, eax
00825984 55 push ebp
00825985 688B5B8200 push $00825B8B
***** TRY
|
0082598A 64FF30 push dword ptr fs:[eax]
0082598D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2Column4PropertiesButtonClick(Sender : TObject);
begin
(*
00825CA0 55 push ebp
00825CA1 8BEC mov ebp, esp
00825CA3 51 push ecx
00825CA4 B906000000 mov ecx, $00000006
00825CA9 6A00 push $00
00825CAB 6A00 push $00
00825CAD 49 dec ecx
00825CAE 75F9 jnz 00825CA9
00825CB0 51 push ecx
00825CB1 874DFC xchg [ebp-$04], ecx
00825CB4 53 push ebx
00825CB5 56 push esi
00825CB6 8BF0 mov esi, eax
00825CB8 33C0 xor eax, eax
00825CBA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00825CBB 68F95E8200 push $00825EF9
***** TRY
|
00825CC0 64FF30 push dword ptr fs:[eax]
00825CC3 648920 mov fs:[eax], esp
00825CC6 33C0 xor eax, eax
00825CC8 55 push ebp
00825CC9 68CF5E8200 push $00825ECF
***** TRY
|
00825CCE 64FF30 push dword ptr fs:[eax]
00825CD1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2Column3PropertiesEditValueChanged(Sender : TObject);
begin
(*
00825FE4 55 push ebp
00825FE5 8BEC mov ebp, esp
00825FE7 B905000000 mov ecx, $00000005
00825FEC 6A00 push $00
00825FEE 6A00 push $00
00825FF0 49 dec ecx
00825FF1 75F9 jnz 00825FEC
00825FF3 51 push ecx
00825FF4 53 push ebx
00825FF5 56 push esi
00825FF6 8BDA mov ebx, edx
00825FF8 8BF0 mov esi, eax
00825FFA 33C0 xor eax, eax
00825FFC 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00825FFD 6838618200 push $00826138
***** TRY
|
00826002 64FF30 push dword ptr fs:[eax]
00826005 648920 mov fs:[eax], esp
00826008 8D55FC lea edx, [ebp-$04]
0082600B 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;
|
0082600D E8AA96D6FF call 0058F6BC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00826012 8B9E64030000 mov ebx, [esi+$0364]
00826018 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082601A E82124CAFF call 004C8440
0082601F 8D55E8 lea edx, [ebp-$18]
00826022 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826025 E8C248BEFF call 0040A8EC
0082602A 8B55E8 mov edx, [ebp-$18]
0082602D 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00826030 E8932DBFFF call 00418DC8
00826035 8D45EC lea eax, [ebp-$14]
00826038 50 push eax
* Possible String Reference to: 'P_CodeName'
|
00826039 BA50618200 mov edx, $00826150
0082603E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826040 E86F0BCAFF call 004C6BB4
00826045 5A pop edx
00826046 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00826048 FF91B4000000 call dword ptr [ecx+$00B4]
0082604E 8BC3 mov eax, ebx
00826050 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00826052 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00826058 8B9E0C030000 mov ebx, [esi+$030C]
0082605E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00826060 E86FF8C9FF call 004C58D4
00826065 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826067 E8407FCBFF call 004DDFAC
0082606C 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0082606E FF5244 call dword ptr [edx+$44]
00826071 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826073 E8347FCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826078 BA64618200 mov edx, $00826164
0082607D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082607F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set P_CodeName=''
|
00826082 6880618200 push $00826180
00826087 8D55E0 lea edx, [ebp-$20]
0082608A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082608D E85A48BEFF call 0040A8EC
00826092 FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00826095 689C618200 push $0082619C
0082609A 8D45E4 lea eax, [ebp-$1C]
0082609D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008260A2 E80DF6BDFF call 004056B4
008260A7 8B45E4 mov eax, [ebp-$1C]
008260AA 50 push eax
008260AB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008260AD E8FA7ECBFF call 004DDFAC
008260B2 5A pop edx
008260B3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008260B5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008260B8 68A8618200 push $008261A8
* Possible String Reference to: 'YFId'
|
008260BD BAC0618200 mov edx, $008261C0
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008260C2 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008260C8 E8E70ACAFF call 004C6BB4
008260CD 8D55D4 lea edx, [ebp-$2C]
008260D0 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008260D2 FF5160 call dword ptr [ecx+$60]
008260D5 8B45D4 mov eax, [ebp-$2C]
008260D8 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008260DB E80C48BEFF call 0040A8EC
008260E0 FF75D8 push dword ptr [ebp-$28]
008260E3 68D0618200 push $008261D0
008260E8 8D45DC lea eax, [ebp-$24]
008260EB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008260F0 E8BFF5BDFF call 004056B4
008260F5 8B45DC mov eax, [ebp-$24]
008260F8 50 push eax
008260F9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008260FB E8AC7ECBFF call 004DDFAC
00826100 5A pop edx
00826101 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00826103 FF5138 call dword ptr [ecx+$38]
00826106 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00826108 E8C77DCBFF call 004DDED4
0082610D 33C0 xor eax, eax
0082610F 5A pop edx
00826110 59 pop ecx
00826111 59 pop ecx
00826112 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00826115 683F618200 push $0082613F
0082611A 8D45D4 lea eax, [ebp-$2C]
0082611D BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00826122 E821F2BDFF call 00405348
00826127 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0082612A E845E5BEFF call 00414674
0082612F 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00826132 E8EDF1BDFF call 00405324
00826137 C3 ret
* Reference to: System.@HandleFinally;
|
00826138 E9B7E9BDFF jmp 00404AF4
0082613D EBDB jmp 0082611A
****** END
|
0082613F 5E pop esi
00826140 5B pop ebx
00826141 8BE5 mov esp, ebp
00826143 5D pop ebp
00826144 C3 ret
*)
end;
procedure TfrmYFFP.v2Column4PropertiesEditValueChanged(Sender : TObject);
begin
(*
008261D4 55 push ebp
008261D5 8BEC mov ebp, esp
008261D7 B905000000 mov ecx, $00000005
008261DC 6A00 push $00
008261DE 6A00 push $00
008261E0 49 dec ecx
008261E1 75F9 jnz 008261DC
008261E3 51 push ecx
008261E4 53 push ebx
008261E5 56 push esi
008261E6 8BDA mov ebx, edx
008261E8 8BF0 mov esi, eax
008261EA 33C0 xor eax, eax
008261EC 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008261ED 6828638200 push $00826328
***** TRY
|
008261F2 64FF30 push dword ptr fs:[eax]
008261F5 648920 mov fs:[eax], esp
008261F8 8D55FC lea edx, [ebp-$04]
008261FB 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;
|
008261FD E8BA94D6FF call 0058F6BC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00826202 8B9E64030000 mov ebx, [esi+$0364]
00826208 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082620A E83122CAFF call 004C8440
0082620F 8D55E8 lea edx, [ebp-$18]
00826212 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826215 E8D246BEFF call 0040A8EC
0082621A 8B55E8 mov edx, [ebp-$18]
0082621D 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00826220 E8A32BBFFF call 00418DC8
00826225 8D45EC lea eax, [ebp-$14]
00826228 50 push eax
* Possible String Reference to: 'P_Spec'
|
00826229 BA40638200 mov edx, $00826340
0082622E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826230 E87F09CAFF call 004C6BB4
00826235 5A pop edx
00826236 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00826238 FF91B4000000 call dword ptr [ecx+$00B4]
0082623E 8BC3 mov eax, ebx
00826240 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00826242 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00826248 8B9E0C030000 mov ebx, [esi+$030C]
0082624E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00826250 E87FF6C9FF call 004C58D4
00826255 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826257 E8507DCBFF call 004DDFAC
0082625C 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0082625E FF5244 call dword ptr [edx+$44]
00826261 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826263 E8447DCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826268 BA50638200 mov edx, $00826350
0082626D 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082626F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set P_Spec=''
|
00826272 686C638200 push $0082636C
00826277 8D55E0 lea edx, [ebp-$20]
0082627A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082627D E86A46BEFF call 0040A8EC
00826282 FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00826285 6884638200 push $00826384
0082628A 8D45E4 lea eax, [ebp-$1C]
0082628D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00826292 E81DF4BDFF call 004056B4
00826297 8B45E4 mov eax, [ebp-$1C]
0082629A 50 push eax
0082629B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082629D E80A7DCBFF call 004DDFAC
008262A2 5A pop edx
008262A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008262A5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008262A8 6890638200 push $00826390
* Possible String Reference to: 'YFId'
|
008262AD BAA8638200 mov edx, $008263A8
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008262B2 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008262B8 E8F708CAFF call 004C6BB4
008262BD 8D55D4 lea edx, [ebp-$2C]
008262C0 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008262C2 FF5160 call dword ptr [ecx+$60]
008262C5 8B45D4 mov eax, [ebp-$2C]
008262C8 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008262CB E81C46BEFF call 0040A8EC
008262D0 FF75D8 push dword ptr [ebp-$28]
008262D3 68B8638200 push $008263B8
008262D8 8D45DC lea eax, [ebp-$24]
008262DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008262E0 E8CFF3BDFF call 004056B4
008262E5 8B45DC mov eax, [ebp-$24]
008262E8 50 push eax
008262E9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008262EB E8BC7CCBFF call 004DDFAC
008262F0 5A pop edx
008262F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008262F3 FF5138 call dword ptr [ecx+$38]
008262F6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008262F8 E8D77BCBFF call 004DDED4
008262FD 33C0 xor eax, eax
008262FF 5A pop edx
00826300 59 pop ecx
00826301 59 pop ecx
00826302 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00826305 682F638200 push $0082632F
0082630A 8D45D4 lea eax, [ebp-$2C]
0082630D BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00826312 E831F0BDFF call 00405348
00826317 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0082631A E855E3BEFF call 00414674
0082631F 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00826322 E8FDEFBDFF call 00405324
00826327 C3 ret
* Reference to: System.@HandleFinally;
|
00826328 E9C7E7BDFF jmp 00404AF4
0082632D EBDB jmp 0082630A
****** END
|
0082632F 5E pop esi
00826330 5B pop ebx
00826331 8BE5 mov esp, ebp
00826333 5D pop ebp
00826334 C3 ret
*)
end;
procedure TfrmYFFP.v2KPNOPropertiesEditValueChanged(Sender : TObject);
begin
(*
008263BC 55 push ebp
008263BD 8BEC mov ebp, esp
008263BF B905000000 mov ecx, $00000005
008263C4 6A00 push $00
008263C6 6A00 push $00
008263C8 49 dec ecx
008263C9 75F9 jnz 008263C4
008263CB 51 push ecx
008263CC 53 push ebx
008263CD 56 push esi
008263CE 8BDA mov ebx, edx
008263D0 8BF0 mov esi, eax
008263D2 33C0 xor eax, eax
008263D4 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008263D5 6810658200 push $00826510
***** TRY
|
008263DA 64FF30 push dword ptr fs:[eax]
008263DD 648920 mov fs:[eax], esp
008263E0 8D55FC lea edx, [ebp-$04]
008263E3 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;
|
008263E5 E8D292D6FF call 0058F6BC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008263EA 8B9E64030000 mov ebx, [esi+$0364]
008263F0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008263F2 E84920CAFF call 004C8440
008263F7 8D55E8 lea edx, [ebp-$18]
008263FA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008263FD E8EA44BEFF call 0040A8EC
00826402 8B55E8 mov edx, [ebp-$18]
00826405 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00826408 E8BB29BFFF call 00418DC8
0082640D 8D45EC lea eax, [ebp-$14]
00826410 50 push eax
* Possible String Reference to: 'KPNO'
|
00826411 BA28658200 mov edx, $00826528
00826416 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826418 E89707CAFF call 004C6BB4
0082641D 5A pop edx
0082641E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00826420 FF91B4000000 call dword ptr [ecx+$00B4]
00826426 8BC3 mov eax, ebx
00826428 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0082642A FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00826430 8B9E0C030000 mov ebx, [esi+$030C]
00826436 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00826438 E897F4C9FF call 004C58D4
0082643D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082643F E8687BCBFF call 004DDFAC
00826444 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00826446 FF5244 call dword ptr [edx+$44]
00826449 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082644B E85C7BCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826450 BA38658200 mov edx, $00826538
00826455 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00826457 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPNO=''
|
0082645A 6854658200 push $00826554
0082645F 8D55E0 lea edx, [ebp-$20]
00826462 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826465 E88244BEFF call 0040A8EC
0082646A FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
0082646D 6868658200 push $00826568
00826472 8D45E4 lea eax, [ebp-$1C]
00826475 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0082647A E835F2BDFF call 004056B4
0082647F 8B45E4 mov eax, [ebp-$1C]
00826482 50 push eax
00826483 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826485 E8227BCBFF call 004DDFAC
0082648A 5A pop edx
0082648B 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082648D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00826490 6874658200 push $00826574
* Possible String Reference to: 'YFId'
|
00826495 BA8C658200 mov edx, $0082658C
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
0082649A 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008264A0 E80F07CAFF call 004C6BB4
008264A5 8D55D4 lea edx, [ebp-$2C]
008264A8 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008264AA FF5160 call dword ptr [ecx+$60]
008264AD 8B45D4 mov eax, [ebp-$2C]
008264B0 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008264B3 E83444BEFF call 0040A8EC
008264B8 FF75D8 push dword ptr [ebp-$28]
008264BB 689C658200 push $0082659C
008264C0 8D45DC lea eax, [ebp-$24]
008264C3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008264C8 E8E7F1BDFF call 004056B4
008264CD 8B45DC mov eax, [ebp-$24]
008264D0 50 push eax
008264D1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008264D3 E8D47ACBFF call 004DDFAC
008264D8 5A pop edx
008264D9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008264DB FF5138 call dword ptr [ecx+$38]
008264DE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008264E0 E8EF79CBFF call 004DDED4
008264E5 33C0 xor eax, eax
008264E7 5A pop edx
008264E8 59 pop ecx
008264E9 59 pop ecx
008264EA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008264ED 6817658200 push $00826517
008264F2 8D45D4 lea eax, [ebp-$2C]
008264F5 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008264FA E849EEBDFF call 00405348
008264FF 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00826502 E86DE1BEFF call 00414674
00826507 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0082650A E815EEBDFF call 00405324
0082650F C3 ret
* Reference to: System.@HandleFinally;
|
00826510 E9DFE5BDFF jmp 00404AF4
00826515 EBDB jmp 008264F2
****** END
|
00826517 5E pop esi
00826518 5B pop ebx
00826519 8BE5 mov esp, ebp
0082651B 5D pop ebp
0082651C C3 ret
*)
end;
procedure TfrmYFFP.v2KPDMNoPropertiesEditValueChanged(Sender : TObject);
begin
(*
008265A0 55 push ebp
008265A1 8BEC mov ebp, esp
008265A3 B905000000 mov ecx, $00000005
008265A8 6A00 push $00
008265AA 6A00 push $00
008265AC 49 dec ecx
008265AD 75F9 jnz 008265A8
008265AF 51 push ecx
008265B0 53 push ebx
008265B1 56 push esi
008265B2 8BDA mov ebx, edx
008265B4 8BF0 mov esi, eax
008265B6 33C0 xor eax, eax
008265B8 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008265B9 68F4668200 push $008266F4
***** TRY
|
008265BE 64FF30 push dword ptr fs:[eax]
008265C1 648920 mov fs:[eax], esp
008265C4 8D55FC lea edx, [ebp-$04]
008265C7 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;
|
008265C9 E8EE90D6FF call 0058F6BC
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008265CE 8B9E64030000 mov ebx, [esi+$0364]
008265D4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008265D6 E8651ECAFF call 004C8440
008265DB 8D55E8 lea edx, [ebp-$18]
008265DE 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008265E1 E80643BEFF call 0040A8EC
008265E6 8B55E8 mov edx, [ebp-$18]
008265E9 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008265EC E8D727BFFF call 00418DC8
008265F1 8D45EC lea eax, [ebp-$14]
008265F4 50 push eax
* Possible String Reference to: 'KPDMNo'
|
008265F5 BA0C678200 mov edx, $0082670C
008265FA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008265FC E8B305CAFF call 004C6BB4
00826601 5A pop edx
00826602 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00826604 FF91B4000000 call dword ptr [ecx+$00B4]
0082660A 8BC3 mov eax, ebx
0082660C 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0082660E FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
00826614 8B9E0C030000 mov ebx, [esi+$030C]
0082661A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082661C E8B3F2C9FF call 004C58D4
00826621 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826623 E88479CBFF call 004DDFAC
00826628 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0082662A FF5244 call dword ptr [edx+$44]
0082662D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082662F E87879CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826634 BA1C678200 mov edx, $0082671C
00826639 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082663B FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPDMNo=''
|
0082663E 6838678200 push $00826738
00826643 8D55E0 lea edx, [ebp-$20]
00826646 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826649 E89E42BEFF call 0040A8EC
0082664E FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00826651 6850678200 push $00826750
00826656 8D45E4 lea eax, [ebp-$1C]
00826659 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0082665E E851F0BDFF call 004056B4
00826663 8B45E4 mov eax, [ebp-$1C]
00826666 50 push eax
00826667 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00826669 E83E79CBFF call 004DDFAC
0082666E 5A pop edx
0082666F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00826671 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00826674 685C678200 push $0082675C
* Possible String Reference to: 'YFId'
|
00826679 BA74678200 mov edx, $00826774
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
0082667E 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826684 E82B05CAFF call 004C6BB4
00826689 8D55D4 lea edx, [ebp-$2C]
0082668C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0082668E FF5160 call dword ptr [ecx+$60]
00826691 8B45D4 mov eax, [ebp-$2C]
00826694 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826697 E85042BEFF call 0040A8EC
0082669C FF75D8 push dword ptr [ebp-$28]
0082669F 6884678200 push $00826784
008266A4 8D45DC lea eax, [ebp-$24]
008266A7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008266AC E803F0BDFF call 004056B4
008266B1 8B45DC mov eax, [ebp-$24]
008266B4 50 push eax
008266B5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008266B7 E8F078CBFF call 004DDFAC
008266BC 5A pop edx
008266BD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008266BF FF5138 call dword ptr [ecx+$38]
008266C2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008266C4 E80B78CBFF call 004DDED4
008266C9 33C0 xor eax, eax
008266CB 5A pop edx
008266CC 59 pop ecx
008266CD 59 pop ecx
008266CE 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008266D1 68FB668200 push $008266FB
008266D6 8D45D4 lea eax, [ebp-$2C]
008266D9 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008266DE E865ECBDFF call 00405348
008266E3 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008266E6 E889DFBEFF call 00414674
008266EB 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
008266EE E831ECBDFF call 00405324
008266F3 C3 ret
* Reference to: System.@HandleFinally;
|
008266F4 E9FBE3BDFF jmp 00404AF4
008266F9 EBDB jmp 008266D6
****** END
|
008266FB 5E pop esi
008266FC 5B pop ebx
008266FD 8BE5 mov esp, ebp
008266FF 5D pop ebp
00826700 C3 ret
*)
end;
procedure TfrmYFFP.KPNOKeyPress(Sender : TObject);
begin
(*
00826788 55 push ebp
00826789 8BEC mov ebp, esp
0082678B 6A00 push $00
0082678D 6A00 push $00
0082678F 6A00 push $00
00826791 6A00 push $00
00826793 53 push ebx
00826794 8945FC mov [ebp-$04], eax
00826797 33C0 xor eax, eax
00826799 55 push ebp
0082679A 68F4688200 push $008268F4
***** TRY
|
0082679F 64FF30 push dword ptr fs:[eax]
008267A2 648920 mov fs:[eax], esp
008267A5 33C0 xor eax, eax
008267A7 55 push ebp
008267A8 68CA688200 push $008268CA
***** TRY
|
008267AD 64FF30 push dword ptr fs:[eax]
008267B0 648920 mov fs:[eax], esp
008267B3 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008267B6 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
008267BC E8930DCAFF call 004C7554
008267C1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008267C4 8B9820030000 mov ebx, [eax+$0320]
008267CA 33D2 xor edx, edx
008267CC 8BC3 mov eax, ebx
008267CE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
008267D0 FF9190010000 call dword ptr [ecx+$0190]
008267D6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008267D8 E8F7F0C9FF call 004C58D4
008267DD 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008267DF E8C877CBFF call 004DDFAC
008267E4 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008267E6 FF5244 call dword ptr [edx+$44]
008267E9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008267EB E8BC77CBFF call 004DDFAC
* Possible String Reference to: ' select A.*,C.OrderNo '
|
008267F0 BA08698200 mov edx, $00826908
008267F5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008267F7 FF5138 call dword ptr [ecx+$38]
008267FA 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008267FC E8AB77CBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00826801 BA28698200 mov edx, $00826928
00826806 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00826808 FF5138 call dword ptr [ecx+$38]
0082680B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082680D E89A77CBFF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
| =B.CRID'
|
00826812 BA48698200 mov edx, $00826948
00826817 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00826819 FF5138 call dword ptr [ecx+$38]
0082681C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082681E E88977CBFF call 004DDFAC
* Possible String Reference to: ' left join JYOrder_Main C on A.Main
| Id=C.MainId '
|
00826823 BA7C698200 mov edx, $0082697C
00826828 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0082682A FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where A.KPNO='%'
|
0082682D 68B4698200 push $008269B4
00826832 8D55F0 lea edx, [ebp-$10]
00826835 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.KPNO : TEdit
|
00826838 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0082683E E8AD1DC6FF call 004885F0
00826843 8B45F0 mov eax, [ebp-$10]
00826846 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826849 E89E40BEFF call 0040A8EC
0082684E FF75F4 push dword ptr [ebp-$0C]
00826851 68CC698200 push $008269CC
* Possible String Reference to: '' and A.CRType='Ӧ<><D3A6><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>' '
|
00826856 68D8698200 push $008269D8
0082685B 8D45F8 lea eax, [ebp-$08]
0082685E BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00826863 E84CEEBDFF call 004056B4
00826868 8B45F8 mov eax, [ebp-$08]
0082686B 50 push eax
0082686C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0082686E E83977CBFF call 004DDFAC
00826873 5A pop edx
00826874 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00826876 FF5138 call dword ptr [ecx+$38]
00826879 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
0082687B E848F0C9FF call 004C58C8
00826880 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00826883 8B9064030000 mov edx, [eax+$0364]
00826889 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
0082688C 8B8020030000 mov eax, [eax+$0320]
|
00826892 E8F905F9FF call 007B6E90
00826897 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
0082689A 8B9064030000 mov edx, [eax+$0364]
008268A0 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008268A3 8B8020030000 mov eax, [eax+$0320]
|
008268A9 E86A07F9FF call 007B7018
008268AE 33C0 xor eax, eax
008268B0 5A pop edx
008268B1 59 pop ecx
008268B2 59 pop ecx
008268B3 648910 mov fs:[eax], edx
****** FINALLY
|
008268B6 68D1688200 push $008268D1
008268BB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryMain : TADOQuery
|
008268BE 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008268C4 E8AB0CCAFF call 004C7574
008268C9 C3 ret
* Reference to: System.@HandleFinally;
|
008268CA E925E2BDFF jmp 00404AF4
008268CF EBEA jmp 008268BB
****** END
|
008268D1 33C0 xor eax, eax
008268D3 5A pop edx
008268D4 59 pop ecx
008268D5 59 pop ecx
008268D6 648910 mov fs:[eax], edx
****** FINALLY
|
008268D9 68FB688200 push $008268FB
008268DE 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
008268E1 E83EEABDFF call 00405324
008268E6 8D45F4 lea eax, [ebp-$0C]
008268E9 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008268EE E855EABDFF call 00405348
008268F3 C3 ret
* Reference to: System.@HandleFinally;
|
008268F4 E9FBE1BDFF jmp 00404AF4
008268F9 EBE3 jmp 008268DE
****** END
|
008268FB 5B pop ebx
008268FC 8BE5 mov esp, ebp
008268FE 5D pop ebp
008268FF C3 ret
*)
end;
procedure TfrmYFFP.N1Click(Sender : TObject);
begin
(*
008269FC B201 mov dl, $01
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
008269FE 8B8064030000 mov eax, [eax+$0364]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00826A04 E89B1AF9FF call 007B84A4
00826A09 C3 ret
*)
end;
procedure TfrmYFFP.N2Click(Sender : TObject);
begin
(*
00826A0C 33D2 xor edx, edx
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00826A0E 8B8064030000 mov eax, [eax+$0364]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00826A14 E88B1AF9FF call 007B84A4
00826A19 C3 ret
*)
end;
procedure TfrmYFFP.v2SselPropertiesChange(Sender : TObject);
begin
(*
00826A1C 53 push ebx
00826A1D 56 push esi
00826A1E 8BD8 mov ebx, eax
* Reference to control TfrmYFFP.ToolBar1 : TToolBar
|
00826A20 8B83F8020000 mov eax, [ebx+$02F8]
00826A26 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
00826A28 FF92C4000000 call dword ptr [edx+$00C4]
* Possible String Reference to: 'KPMoney'
|
00826A2E BA6C6A8200 mov edx, $00826A6C
* Reference to control TfrmYFFP.CDS_HZ : TClientDataSet
|
00826A33 8BB364030000 mov esi, [ebx+$0364]
00826A39 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826A3B E87401CAFF call 004C6BB4
00826A40 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00826A42 FF524C call dword ptr [edx+$4C]
00826A45 D835746A8200 fdiv dword ptr [$00826A74]
00826A4B 83C4F8 add esp, -$08
00826A4E DD1C24 fstp qword ptr [esp]
00826A51 9B wait
* Reference to control TfrmYFFP.Label12 : TLabel
|
00826A52 8B93C0030000 mov edx, [ebx+$03C0]
00826A58 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00826A5A E83103F9FF call 007B6D90
00826A5F 5E pop esi
00826A60 5B pop ebx
00826A61 C3 ret
*)
end;
procedure TfrmYFFP.v2GYSNamePropertiesButtonClick(Sender : TObject);
begin
(*
00826A78 55 push ebp
00826A79 8BEC mov ebp, esp
00826A7B 51 push ecx
00826A7C B906000000 mov ecx, $00000006
00826A81 6A00 push $00
00826A83 6A00 push $00
00826A85 49 dec ecx
00826A86 75F9 jnz 00826A81
00826A88 51 push ecx
00826A89 874DFC xchg [ebp-$04], ecx
00826A8C 53 push ebx
00826A8D 56 push esi
00826A8E 8BF0 mov esi, eax
00826A90 33C0 xor eax, eax
00826A92 55 push ebp
00826A93 68CF6C8200 push $00826CCF
***** TRY
|
00826A98 64FF30 push dword ptr fs:[eax]
00826A9B 648920 mov fs:[eax], esp
00826A9E 33C0 xor eax, eax
00826AA0 55 push ebp
00826AA1 68A56C8200 push $00826CA5
***** TRY
|
00826AA6 64FF30 push dword ptr fs:[eax]
00826AA9 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2YFNamePropertiesButtonClick(Sender : TObject);
begin
(*
00826DC0 55 push ebp
00826DC1 8BEC mov ebp, esp
00826DC3 51 push ecx
00826DC4 B907000000 mov ecx, $00000007
00826DC9 6A00 push $00
00826DCB 6A00 push $00
00826DCD 49 dec ecx
00826DCE 75F9 jnz 00826DC9
00826DD0 874DFC xchg [ebp-$04], ecx
00826DD3 53 push ebx
00826DD4 56 push esi
00826DD5 8BF0 mov esi, eax
00826DD7 33C0 xor eax, eax
00826DD9 55 push ebp
* Possible String Reference to: '<27><>ڽ<EFBFBD><DABD><EFBFBD>^[<5B><>]<5D>'
|
00826DDA 6846708200 push $00827046
***** TRY
|
00826DDF 64FF30 push dword ptr fs:[eax]
00826DE2 648920 mov fs:[eax], esp
00826DE5 33C0 xor eax, eax
00826DE7 55 push ebp
00826DE8 6814708200 push $00827014
***** TRY
|
00826DED 64FF30 push dword ptr fs:[eax]
00826DF0 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2KPStatusPropertiesButtonClick(Sender : TObject);
begin
(*
00827134 55 push ebp
00827135 8BEC mov ebp, esp
00827137 51 push ecx
00827138 B907000000 mov ecx, $00000007
0082713D 6A00 push $00
0082713F 6A00 push $00
00827141 49 dec ecx
00827142 75F9 jnz 0082713D
00827144 874DFC xchg [ebp-$04], ecx
00827147 53 push ebx
00827148 56 push esi
00827149 8BF0 mov esi, eax
0082714B 33C0 xor eax, eax
0082714D 55 push ebp
* Possible String Reference to: '<27>5׽<35><D7BD><EFBFBD>^[<5B><>]<5D>'
|
0082714E 68BA738200 push $008273BA
***** TRY
|
00827153 64FF30 push dword ptr fs:[eax]
00827156 648920 mov fs:[eax], esp
00827159 33C0 xor eax, eax
0082715B 55 push ebp
0082715C 6888738200 push $00827388
***** TRY
|
00827161 64FF30 push dword ptr fs:[eax]
00827164 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP.v2FKTaitouPropertiesButtonClick(Sender : TObject);
begin
(*
008274AC 55 push ebp
008274AD 8BEC mov ebp, esp
008274AF 51 push ecx
008274B0 B906000000 mov ecx, $00000006
008274B5 6A00 push $00
008274B7 6A00 push $00
008274B9 49 dec ecx
008274BA 75F9 jnz 008274B5
008274BC 51 push ecx
008274BD 874DFC xchg [ebp-$04], ecx
008274C0 53 push ebx
008274C1 56 push esi
008274C2 8BF0 mov esi, eax
008274C4 33C0 xor eax, eax
008274C6 55 push ebp
* Possible String Reference to: '<27><>ӽ<EFBFBD><D3BD><EFBFBD>^[<5B><>]<5D>'
|
008274C7 68FC768200 push $008276FC
***** TRY
|
008274CC 64FF30 push dword ptr fs:[eax]
008274CF 648920 mov fs:[eax], esp
008274D2 33C0 xor eax, eax
008274D4 55 push ebp
008274D5 68C5768200 push $008276C5
***** TRY
|
008274DA 64FF30 push dword ptr fs:[eax]
008274DD 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00820F3D(Sender : TObject);
begin
(*
00820F3D 7064 jo 00820FA3
00820F3F 61 popa
00820F40 7465 jz 00820FA7
00820F42 205946 and [ecx+$46], bl
00820F45 5F pop edi
00820F46 4D dec ebp
00820F47 6F outsd
00820F48 6E outsb
00820F49 65795F jns 00820FAB
00820F4C 4B dec ebx
00820F4D 43 inc ebx
00820F4E 205365 and [ebx+$65], dl
00820F51 7420 jz 00820F73
00820F53 4B dec ebx
00820F54 43 inc ebx
00820F55 42 inc edx
00820F56 42 inc edx
00820F57 4D dec ebp
00820F58 6F outsd
00820F59 6E outsb
00820F5A 65793D jns 00820F9A
00820F5D 4B dec ebx
00820F5E 43 inc ebx
00820F5F 42 inc edx
00820F60 42 inc edx
00820F61 4D dec ebp
00820F62 6F outsd
00820F63 6E outsb
00820F64 65792D jns 00820F94
00820F67 00FF add bh, bh
00820F69 FFFF DB $FF, $FF //
00820F6B FF0D00000020 dec dword ptr [$20000000]
00820F71 7768 jnbe 00820FDB
00820F73 657265 jb 00820FDB
00820F76 204352 and [ebx+$52], al
00820F79 49 dec ecx
00820F7A 44 inc esp
00820F7B 3D27000000 cmp eax, $00000027
00820F80 FFFF DB $FF, $FF //
00820F82 FFFF DB $FF, $FF //
00820F84 0400 add al, +$00
00820F86 0000 add [eax], al
00820F88 43 inc ebx
00820F89 52 push edx
00820F8A 49 dec ecx
00820F8B 44 inc esp
00820F8C 0000 add [eax], al
00820F8E 0000 add [eax], al
00820F90 55 push ebp
00820F91 8BEC mov ebp, esp
00820F93 53 push ebx
00820F94 8BD8 mov ebx, eax
00820F96 33C0 xor eax, eax
00820F98 55 push ebp
* Possible String Reference to: '<27><>:<3A><><EFBFBD><EFBFBD>[]<5D>'
|
00820F99 680F108200 push $0082100F
***** TRY
|
00820F9E 64FF30 push dword ptr fs:[eax]
00820FA1 648920 mov fs:[eax], esp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00820FA4 B924108200 mov ecx, $00821024
* Reference to control ADOTemp : N.A.
|
00820FA9 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD>Ʊ'
|
00820FAF B838108200 mov eax, $00821038
|
00820FB4 E8EB69F9FF call 007B79A4
* Reference to control Label3 : TLabel
|
00820FB9 8B8308030000 mov eax, [ebx+$0308]
|
00820FBF E8C439F9FF call 007B4988
00820FC4 83C4F8 add esp, -$08
00820FC7 DD1C24 fstp qword ptr [esp]
00820FCA 9B wait
* Reference to control ConPerson1 : N.A.
|
00820FCB 8B8358030000 mov eax, [ebx+$0358]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00820FD1 E85612C5FF call 0047222C
* Reference to control ConPerson1 : N.A.
|
00820FD6 8B8358030000 mov eax, [ebx+$0358]
00820FDC DD8010020000 fld qword ptr [eax+$0210]
00820FE2 D82544108200 fsub dword ptr [$00821044]
00820FE8 83C4F8 add esp, -$08
00820FEB DD1C24 fstp qword ptr [esp]
00820FEE 9B wait
* Reference to control Label9 : TLabel
|
00820FEF 8B8354030000 mov eax, [ebx+$0354]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00820FF5 E83212C5FF call 0047222C
00820FFA 8BC3 mov eax, ebx
|
00820FFC E8ABF8FFFF call 008208AC
00821001 33C0 xor eax, eax
00821003 5A pop edx
00821004 59 pop ecx
00821005 59 pop ecx
00821006 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[]<5D>'
|
00821009 6816108200 push $00821016
0082100E C3 ret
*)
end;
procedure TfrmYFFP._PROC_00821285(Sender : TObject);
begin
(*
00821285 8BEC mov ebp, esp
00821287 B92D000000 mov ecx, $0000002D
0082128C 6A00 push $00
0082128E 6A00 push $00
00821290 49 dec ecx
00821291 75F9 jnz 0082128C
00821293 51 push ecx
00821294 53 push ebx
00821295 56 push esi
00821296 57 push edi
00821297 8945FC mov [ebp-$04], eax
0082129A 33C0 xor eax, eax
0082129C 55 push ebp
* Possible String Reference to: '<27><>0<EFBFBD><30><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
0082129D 686C1A8200 push $00821A6C
***** TRY
|
008212A2 64FF30 push dword ptr fs:[eax]
008212A5 648920 mov fs:[eax], esp
008212A8 33C0 xor eax, eax
008212AA 55 push ebp
008212AB 6816198200 push $00821916
***** TRY
|
008212B0 64FF30 push dword ptr fs:[eax]
008212B3 648920 mov fs:[eax], esp
008212B6 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
008212B9 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
008212BF E868ABCBFF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
008212C4 E8CB0FCBFF call 004D2294
* Possible String Reference to: 'YF_Money_CR'
|
008212C9 68881A8200 push $00821A88
008212CE 6A04 push $04
008212D0 6A01 push $01
008212D2 8D55F8 lea edx, [ebp-$08]
008212D5 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
008212D8 8B800C030000 mov eax, [eax+$030C]
* Possible String Reference to: 'YF'
|
008212DE B99C1A8200 mov ecx, $00821A9C
* Reference to : TfrmSelExportField._PROC_007B7708()
|
008212E3 E82064F9FF call 007B7708
008212E8 84C0 test al, al
008212EA 753A jnz 00821326
008212EC 33DB xor ebx, ebx
008212EE 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYFFP.ADOQueryCmd : TADOQuery
|
008212F1 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
008212F7 E830ABCBFF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
008212FC E8DF0FCBFF call 004D22E0
00821301 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00821303 B9A01A8200 mov ecx, $00821AA0
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
00821308 BAA81A8200 mov edx, $00821AA8
*)
end;
procedure TfrmYFFP._PROC_00821B29(Sender : TObject);
begin
(*
00821B29 7064 jo 00821B8F
00821B2B 61 popa
00821B2C 7465 jz 00821B93
00821B2E 205946 and [ecx+$46], bl
00821B31 5F pop edi
00821B32 4D dec ebp
00821B33 6F outsd
00821B34 6E outsb
00821B35 65795F jns 00821B97
00821B38 43 inc ebx
00821B39 52 push edx
00821B3A 49 dec ecx
00821B3B 44 inc esp
00821B3C 207365 and [ebx+$65], dh
00821B3F 7420 jz 00821B61
00821B41 43 inc ebx
00821B42 52 push edx
00821B43 49 dec ecx
00821B44 44 inc esp
00821B45 3D43524944 cmp eax, $44495243
00821B4A 2B31 sub esi, dword ptr [ecx]
00821B4C 0000 add [eax], al
00821B4E 0000 add [eax], al
00821B50 FFFF DB $FF, $FF //
00821B52 FFFF DB $FF, $FF //
00821B54 1C00 sbb al, $00
00821B56 0000 add [eax], al
00821B58 7365 jnb 00821BBF
00821B5A 6C insb
00821B5B 656374202A arpl gs:[eax+$2A], si
00821B60 206672 and [esi+$72], ah
00821B63 6F outsd
00821B64 6D insd
00821B65 205946 and [ecx+$46], bl
00821B68 5F pop edi
00821B69 4D dec ebp
00821B6A 6F outsd
00821B6B 6E outsb
00821B6C 65795F jns 00821BCE
00821B6F 43 inc ebx
00821B70 52 push edx
00821B71 49 dec ecx
00821B72 44 inc esp
00821B73 2000 and [eax], al
00821B75 0000 add [eax], al
00821B77 00FF add bh, bh
00821B79 FFFF DB $FF, $FF //
00821B7B FF23 jmp dword ptr [ebx]
00821B7D 0000 add [eax], al
00821B7F 007365 add [ebx+$65], dh
00821B82 6C insb
00821B83 656374202A arpl gs:[eax+$2A], si
00821B88 206672 and [esi+$72], ah
00821B8B 6F outsd
00821B8C 6D insd
00821B8D 205946 and [ecx+$46], bl
00821B90 5F pop edi
00821B91 4D dec ebp
00821B92 6F outsd
00821B93 6E outsb
00821B94 65795F jns 00821BF6
00821B97 4B dec ebx
00821B98 43 inc ebx
00821B99 207768 and [edi+$68], dh
00821B9C 657265 jb 00821C04
00821B9F 2031 and [ecx], dh
00821BA1 3D3200FFFF cmp eax, $FFFF0032
00821BA6 FFFF DB $FF, $FF //
00821BA8 0900 or [eax], eax
00821BAA 0000 add [eax], al
00821BAC 46 inc esi
00821BAD 61 popa
00821BAE 63746F72 arpl [edi+ebp*2+$72], si
00821BB2 794E jns 00821C02
00821BB4 6F outsd
00821BB5 0000 add [eax], al
00821BB7 00FF add bh, bh
00821BB9 FFFF DB $FF, $FF //
00821BBB FF07 inc dword ptr [edi]
00821BBD 0000 add [eax], al
00821BBF 005A64 add [edx+$64], bl
00821BC2 7953 jns 00821C17
00821BC4 7472 jz 00821C38
00821BC6 3100 xor [eax], eax
00821BC8 FFFF DB $FF, $FF //
00821BCA FFFF DB $FF, $FF //
00821BCC 06 push es
00821BCD 0000 add [eax], al
00821BCF 00D3 add bl, dl
00821BD1 A6 cmpsb
00821BD2 B8B6B8B600 mov eax, $00B6B8B6
00821BD7 00FF add bh, bh
00821BD9 FFFF DB $FF, $FF //
00821BDB FF23 jmp dword ptr [ebx]
00821BDD 0000 add [eax], al
00821BDF 007365 add [ebx+$65], dh
00821BE2 6C insb
00821BE3 656374202A arpl gs:[eax+$2A], si
00821BE8 206672 and [esi+$72], ah
00821BEB 6F outsd
00821BEC 6D insd
00821BED 205946 and [ecx+$46], bl
00821BF0 5F pop edi
00821BF1 4D dec ebp
00821BF2 6F outsd
00821BF3 6E outsb
00821BF4 65795F jns 00821C56
00821BF7 43 inc ebx
00821BF8 52 push edx
00821BF9 207768 and [edi+$68], dh
00821BFC 657265 jb 00821C64
00821BFF 2031 and [ecx], dh
00821C01 3D3200FFFF cmp eax, $FFFF0032
00821C06 FFFF DB $FF, $FF //
00821C08 0400 add al, +$00
00821C0A 0000 add [eax], al
00821C0C 59 pop ecx
00821C0D 46 inc esi
00821C0E 49 dec ecx
00821C0F 44 inc esp
00821C10 0000 add [eax], al
00821C12 0000 add [eax], al
00821C14 FFFF DB $FF, $FF //
00821C16 FFFF DB $FF, $FF //
00821C18 06 push es
00821C19 0000 add [eax], al
00821C1B 004669 add [esi+$69], al
00821C1E 6C insb
00821C1F 6C insb
00821C20 657200 jb 00821C23
00821C23 00FF add bh, bh
00821C25 FFFF DB $FF, $FF //
00821C27 FF06 inc dword ptr [esi]
00821C29 0000 add [eax], al
00821C2B 004352 add [ebx+$52], al
00821C2E 54 push esp
00821C2F 7970 jns 00821CA1
00821C31 650000 add gs:[eax], al
00821C34 FFFF DB $FF, $FF //
00821C36 FFFF DB $FF, $FF //
00821C38 0E push cs
00821C39 0000 add [eax], al
00821C3B 00D3 add bl, dl
00821C3D A6 cmpsb
00821C3E B8B6BFEEB7 mov eax, $B7EEBFB6
00821C43 A2C6B1B5C7 mov byte ptr [$C7B5B1C6], al
00821C48 BCC70000FF mov esp, $FF0000C7
00821C4D FFFF DB $FF, $FF //
00821C4F FF06 inc dword ptr [esi]
00821C51 0000 add [eax], al
00821C53 004352 add [ebx+$52], al
00821C56 46 inc esi
00821C57 6C insb
00821C58 61 popa
00821C59 670000 add [bx+si], al
00821C5C FFFF DB $FF, $FF //
00821C5E FFFF DB $FF, $FF //
00821C60 07 pop es
00821C61 0000 add [eax], al
00821C63 005174 add [ecx+$74], dl
00821C66 7946 jns 00821CAE
00821C68 6C insb
00821C69 61 popa
00821C6A 6700FF add bh, bh
00821C6D FFFF DB $FF, $FF //
00821C6F FF06 inc dword ptr [esi]
00821C71 0000 add [eax], al
00821C73 004352 add [ebx+$52], al
00821C76 54 push esp
00821C77 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
00821C7E FFFF DB $FF, $FF //
00821C80 06 push es
00821C81 0000 add [eax], al
00821C83 004650 add [esi+$50], al
00821C86 59 pop ecx
00821C87 46 inc esi
00821C88 49 dec ecx
00821C89 44 inc esp
00821C8A 0000 add [eax], al
00821C8C FFFF DB $FF, $FF //
00821C8E FFFF DB $FF, $FF //
00821C90 06 push es
00821C91 0000 add [eax], al
00821C93 00425A add [edx+$5A], al
00821C96 54 push esp
00821C97 7970 jns 00821D09
00821C99 650000 add gs:[eax], al
00821C9C FFFF DB $FF, $FF //
00821C9E FFFF DB $FF, $FF //
00821CA0 0300 add eax, [eax]
00821CA2 0000 add [eax], al
00821CA4 52 push edx
00821CA5 4D dec ebp
00821CA6 42 inc edx
00821CA7 00FF add bh, bh
00821CA9 FFFF DB $FF, $FF //
00821CAB FF0500000048 inc dword ptr [$48000000]
00821CB1 7569 jnz 00821D1C
00821CB3 4C dec esp
00821CB4 7600 jbe 00821CB6
00821CB6 0000 add [eax], al
00821CB8 FFFF DB $FF, $FF //
00821CBA FFFF DB $FF, $FF //
00821CBC 0400 add al, +$00
00821CBE 0000 add [eax], al
00821CC0 59 pop ecx
00821CC1 46 inc esi
00821CC2 49 dec ecx
00821CC3 640000 add fs:[eax], al
00821CC6 0000 add [eax], al
00821CC8 D4 aam
00821CC9 F6D0 not al
00821CCB D0CA ror dl, 1
00821CCD A7 cmpsd
00821CCE B0DC mov al, $DC
00821CD0 2100 and [eax], eax
00821CD2 0000 add [eax], al
00821CD4 55 push ebp
00821CD5 8BEC mov ebp, esp
00821CD7 B908000000 mov ecx, $00000008
00821CDC 6A00 push $00
00821CDE 6A00 push $00
00821CE0 49 dec ecx
00821CE1 75F9 jnz 00821CDC
00821CE3 51 push ecx
00821CE4 53 push ebx
00821CE5 56 push esi
00821CE6 8BDA mov ebx, edx
00821CE8 8BF0 mov esi, eax
00821CEA 33C0 xor eax, eax
00821CEC 55 push ebp
* Possible String Reference to: '<27>,<2C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00821CED 68E21E8200 push $00821EE2
***** TRY
|
00821CF2 64FF30 push dword ptr fs:[eax]
00821CF5 648920 mov fs:[eax], esp
00821CF8 8D55FC lea edx, [ebp-$04]
00821CFB 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;
|
00821CFD E8BAD9D6FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
00821D02 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00821D08 E83FA6E3FF 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;
|
00821D0D E852FEE2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00821D12 8B4050 mov eax, [eax+$50]
00821D15 8D55F4 lea edx, [ebp-$0C]
00821D18 8B08 mov ecx, [eax]
00821D1A FF5110 call dword ptr [ecx+$10]
00821D1D 8B45F4 mov eax, [ebp-$0C]
00821D20 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821D23 E8C48BBEFF call 0040A8EC
* Reference to control Label11 : TLabel
|
00821D28 8B9E64030000 mov ebx, [esi+$0364]
00821D2E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00821D30 E80B67CAFF call 004C8440
00821D35 8D55E0 lea edx, [ebp-$20]
00821D38 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821D3B E8AC8BBEFF call 0040A8EC
00821D40 8B55E0 mov edx, [ebp-$20]
00821D43 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00821D46 E87D70BFFF call 00418DC8
00821D4B 8D45E4 lea eax, [ebp-$1C]
00821D4E 50 push eax
00821D4F 8B55F8 mov edx, [ebp-$08]
00821D52 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00821D54 E85B4ECAFF call 004C6BB4
00821D59 5A pop edx
00821D5A 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00821D5C FF91B4000000 call dword ptr [ecx+$00B4]
00821D62 8BC3 mov eax, ebx
00821D64 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
00821D66 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00821D6C 8B9E0C030000 mov ebx, [esi+$030C]
00821D72 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00821D74 E85B3BCAFF call 004C58D4
00821D79 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;
|
00821D7B E82CC2CBFF call 004DDFAC
00821D80 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00821D82 FF5244 call dword ptr [edx+$44]
00821D85 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;
|
00821D87 E820C2CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
00821D8C BAF81E8200 mov edx, $00821EF8
00821D91 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00821D93 FF5138 call dword ptr [ecx+$38]
00821D96 8D55DC lea edx, [ebp-$24]
00821D99 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821D9C E84B8BBEFF call 0040A8EC
00821DA1 837DDC00 cmp dword ptr [ebp-$24], +$00
00821DA5 7440 jz 00821DE7
* Possible String Reference to: ' Set '
|
00821DA7 68141F8200 push $00821F14
00821DAC FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00821DAF 68241F8200 push $00821F24
00821DB4 8D55D4 lea edx, [ebp-$2C]
00821DB7 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821DBA E82D8BBEFF call 0040A8EC
00821DBF FF75D4 push dword ptr [ebp-$2C]
00821DC2 68301F8200 push $00821F30
00821DC7 8D45D8 lea eax, [ebp-$28]
00821DCA BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
00821DCF E8E038BEFF call 004056B4
00821DD4 8B45D8 mov eax, [ebp-$28]
00821DD7 50 push eax
00821DD8 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;
|
00821DDA E8CDC1CBFF call 004DDFAC
00821DDF 5A pop edx
00821DE0 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00821DE2 FF5138 call dword ptr [ecx+$38]
00821DE5 EB2B jmp 00821E12
00821DE7 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;
|
00821DE9 E8BEC1CBFF call 004DDFAC
00821DEE 50 push eax
* Possible String Reference to: ' Set '
|
00821DEF 68141F8200 push $00821F14
00821DF4 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00821DF7 683C1F8200 push $00821F3C
00821DFC 8D45D0 lea eax, [ebp-$30]
00821DFF BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00821E04 E8AB38BEFF call 004056B4
00821E09 8B55D0 mov edx, [ebp-$30]
00821E0C 58 pop eax
00821E0D 8B08 mov ecx, [eax]
00821E0F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00821E12 684C1F8200 push $00821F4C
00821E17 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFFP._PROC_00821EF9(Sender : TObject);
begin
(*
00821EF9 50 push eax
00821EFA 6461 popa
00821EFC 7465 jz 00821F63
00821EFE 205943 and [ecx+$43], bl
00821F01 4C dec esp
00821F02 5F pop edi
00821F03 53 push ebx
00821F04 47 inc edi
00821F05 5F pop edi
00821F06 48 dec eax
00821F07 5A pop edx
00821F08 2000 and [eax], al
00821F0A 0000 add [eax], al
00821F0C FFFF DB $FF, $FF //
00821F0E FFFF DB $FF, $FF //
00821F10 0500000020 add eax, +$20000000
00821F15 53 push ebx
00821F16 657420 jz 00821F39
00821F19 0000 add [eax], al
00821F1B 00FF add bh, bh
00821F1D FFFF DB $FF, $FF //
00821F1F FF02 inc dword ptr [edx]
00821F21 0000 add [eax], al
00821F23 003D270000FF add [$FF000027], bh
00821F29 FFFF DB $FF, $FF //
00821F2B FF01 inc dword ptr [ecx]
00821F2D 0000 add [eax], al
00821F2F 0027 add [edi], ah
00821F31 0000 add [eax], al
00821F33 00FF add bh, bh
00821F35 FFFF DB $FF, $FF //
00821F37 FF050000003D inc dword ptr [$3D000000]
00821F3D 4E dec esi
00821F3E 55 push ebp
00821F3F 4C dec esp
00821F40 4C dec esp
00821F41 0000 add [eax], al
00821F43 00FF add bh, bh
00821F45 FFFF DB $FF, $FF //
00821F47 FF09 dec dword ptr [ecx]
00821F49 0000 add [eax], al
00821F4B 002C4564697465 add [$65746964+eax*2], ch
00821F52 723D jb 00821F91
00821F54 27 daa
00821F55 0000 add [eax], al
00821F57 00FF add bh, bh
00821F59 FFFF DB $FF, $FF //
00821F5B FF1400 call dword ptr [eax+eax]
00821F5E 0000 add [eax], al
00821F60 2C45 sub al, $45
00821F62 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00821F6B 657464 jz 00821FD2
00821F6E 61 popa
00821F6F 7465 jz 00821FD6
00821F71 2829 sub [ecx], ch
00821F73 2000 and [eax], al
00821F75 0000 add [eax], al
00821F77 00FF add bh, bh
00821F79 FFFF DB $FF, $FF //
00821F7B FF0E dec dword ptr [esi]
00821F7D 0000 add [eax], al
00821F7F 0020 add [eax], ah
00821F81 7768 jnbe 00821FEB
00821F83 657265 jb 00821FEB
00821F86 205375 and [ebx+$75], dl
00821F89 624964 bound ecx, qword ptr [ecx+$64]
00821F8C 3D270000FF cmp eax, $FF000027
00821F91 FFFF DB $FF, $FF //
00821F93 FF0500000053 inc dword ptr [$53000000]
00821F99 7562 jnz 00821FFD
00821F9B 49 dec ecx
00821F9C 640000 add fs:[eax], al
00821F9F 00558B add [ebp-$75], dl
00821FA2 EC in al, dx
00821FA3 B920000000 mov ecx, $00000020
00821FA8 6A00 push $00
00821FAA 6A00 push $00
00821FAC 49 dec ecx
00821FAD 75F9 jnz 00821FA8
00821FAF 51 push ecx
00821FB0 53 push ebx
00821FB1 56 push esi
00821FB2 8BF2 mov esi, edx
00821FB4 8BD8 mov ebx, eax
00821FB6 33C0 xor eax, eax
00821FB8 55 push ebp
* Possible String Reference to: '<27>r$<24><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00821FB9 687D268200 push $0082267D
***** TRY
|
00821FBE 64FF30 push dword ptr fs:[eax]
00821FC1 648920 mov fs:[eax], esp
00821FC4 8D55FC lea edx, [ebp-$04]
00821FC7 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;
|
00821FC9 E8EED6D6FF call 0058F6BC
00821FCE 8D55DC lea edx, [ebp-$24]
00821FD1 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00821FD4 E81389BEFF call 0040A8EC
00821FD9 837DDC00 cmp dword ptr [ebp-$24], +$00
00821FDD 750D jnz 00821FEC
00821FDF 8D45FC lea eax, [ebp-$04]
00821FE2 BA94268200 mov edx, $00822694
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00821FE7 E8D033BEFF call 004053BC
* Reference to control ADOTemp : N.A.
|
00821FEC 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00821FF2 E855A3E3FF 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;
|
00821FF7 E868FBE2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00821FFC 8B4050 mov eax, [eax+$50]
00821FFF 8D55D8 lea edx, [ebp-$28]
00822002 8B08 mov ecx, [eax]
00822004 FF5110 call dword ptr [ecx+$10]
00822007 8B45D8 mov eax, [ebp-$28]
0082200A 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082200D E8DA88BEFF call 0040A8EC
* Reference to control Label11 : TLabel
|
00822012 8BB364030000 mov esi, [ebx+$0364]
00822018 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082201A E82164CAFF call 004C8440
0082201F 8D55C4 lea edx, [ebp-$3C]
00822022 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00822025 E8C288BEFF call 0040A8EC
0082202A 8B55C4 mov edx, [ebp-$3C]
0082202D 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00822030 E8936DBFFF call 00418DC8
00822035 8D45C8 lea eax, [ebp-$38]
00822038 50 push eax
00822039 8B55E4 mov edx, [ebp-$1C]
0082203C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082203E E8714BCAFF call 004C6BB4
00822043 5A pop edx
00822044 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00822046 FF91B4000000 call dword ptr [ecx+$00B4]
0082204C 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmYFFP._PROC_008227AD(Sender : TObject);
begin
(*
008227AD 50 push eax
008227AE 6461 popa
008227B0 7465 jz 00822817
008227B2 205946 and [ecx+$46], bl
008227B5 5F pop edi
008227B6 4D dec ebp
008227B7 6F outsd
008227B8 6E outsb
008227B9 65795F jns 0082281B
008227BC 43 inc ebx
008227BD 52 push edx
008227BE 2000 and [eax], al
008227C0 FFFF DB $FF, $FF //
008227C2 FFFF DB $FF, $FF //
008227C4 0500000020 add eax, +$20000000
008227C9 53 push ebx
008227CA 657420 jz 008227ED
008227CD 0000 add [eax], al
008227CF 00FF add bh, bh
008227D1 FFFF DB $FF, $FF //
008227D3 FF01 inc dword ptr [ecx]
008227D5 0000 add [eax], al
008227D7 003D000000FF add [$FF000000], bh
008227DD FFFF DB $FF, $FF //
008227DF FF0E dec dword ptr [esi]
008227E1 0000 add [eax], al
008227E3 002C53 add [ebx+edx*2], ch
008227E6 687569486F push $6F486975
008227EB 754D jnz 0082283A
008227ED 6F outsd
008227EE 6E outsb
008227EF 65793D jns 0082282F
008227F2 0000 add [eax], al
008227F4 FFFF DB $FF, $FF //
008227F6 FFFF DB $FF, $FF //
008227F8 0A00 or al, byte ptr [eax]
008227FA 0000 add [eax], al
008227FC 2C4B sub al, $4B
008227FE 50 push eax
008227FF 4D dec ebp
00822800 6F outsd
00822801 6E outsb
00822802 65793D jns 00822842
00822805 27 daa
00822806 0000 add [eax], al
00822808 FFFF DB $FF, $FF //
0082280A FFFF DB $FF, $FF //
0082280C 0900 or [eax], eax
0082280E 0000 add [eax], al
00822810 2C45 sub al, $45
00822812 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
0082281B 00FF add bh, bh
0082281D FFFF DB $FF, $FF //
0082281F FF1400 call dword ptr [eax+eax]
00822822 0000 add [eax], al
00822824 2C45 sub al, $45
00822826 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0082282F 657464 jz 00822896
00822832 61 popa
00822833 7465 jz 0082289A
00822835 2829 sub [ecx], ch
00822837 2000 and [eax], al
00822839 0000 add [eax], al
0082283B 00FF add bh, bh
0082283D FFFF DB $FF, $FF //
0082283F FF0D00000020 dec dword ptr [$20000000]
00822845 7768 jnbe 008228AF
00822847 657265 jb 008228AF
0082284A 205946 and [ecx+$46], bl
0082284D 49 dec ecx
0082284E 643D27000000 cmp eax, $00000027
00822854 FFFF DB $FF, $FF //
00822856 FFFF DB $FF, $FF //
00822858 0400 add al, +$00
0082285A 0000 add [eax], al
0082285C 59 pop ecx
0082285D 46 inc esi
0082285E 49 dec ecx
0082285F 640000 add fs:[eax], al
00822862 0000 add [eax], al
00822864 FFFF DB $FF, $FF //
00822866 FFFF DB $FF, $FF //
00822868 2B00 sub eax, dword ptr [eax]
0082286A 0000 add [eax], al
0082286C 55 push ebp
0082286D 7064 jo 008228D3
0082286F 61 popa
00822870 7465 jz 008228D7
00822872 205946 and [ecx+$46], bl
00822875 5F pop edi
00822876 4D dec ebp
00822877 6F outsd
00822878 6E outsb
00822879 65795F jns 008228DB
0082287C 4B dec ebx
0082287D 43 inc ebx
0082287E 205365 and [ebx+$65], dl
00822881 7420 jz 008228A3
00822883 4B dec ebx
00822884 43 inc ebx
00822885 4B dec ebx
00822886 50 push eax
00822887 4D dec ebp
00822888 6F outsd
00822889 6E outsb
0082288A 65793D jns 008228CA
0082288D 4B dec ebx
0082288E 43 inc ebx
0082288F 4B dec ebx
00822890 50 push eax
00822891 4D dec ebp
00822892 6F outsd
00822893 6E outsb
00822894 65792D jns 008228C4
00822897 00FF add bh, bh
00822899 FFFF DB $FF, $FF //
0082289B FF01 inc dword ptr [ecx]
0082289D 0000 add [eax], al
0082289F 002B add [ebx], ch
008228A1 0000 add [eax], al
008228A3 00FF add bh, bh
008228A5 FFFF DB $FF, $FF //
008228A7 FF0D00000020 dec dword ptr [$20000000]
008228AD 7768 jnbe 00822917
008228AF 657265 jb 00822917
008228B2 204352 and [ebx+$52], al
008228B5 49 dec ecx
008228B6 44 inc esp
008228B7 3D27000000 cmp eax, $00000027
008228BC FFFF DB $FF, $FF //
008228BE FFFF DB $FF, $FF //
008228C0 0400 add al, +$00
008228C2 0000 add [eax], al
008228C4 43 inc ebx
008228C5 52 push edx
008228C6 49 dec ecx
008228C7 44 inc esp
008228C8 0000 add [eax], al
008228CA 0000 add [eax], al
008228CC 55 push ebp
008228CD 8BEC mov ebp, esp
008228CF B908000000 mov ecx, $00000008
008228D4 6A00 push $00
008228D6 6A00 push $00
008228D8 49 dec ecx
008228D9 75F9 jnz 008228D4
008228DB 51 push ecx
008228DC 53 push ebx
008228DD 56 push esi
008228DE 8BDA mov ebx, edx
008228E0 8BF0 mov esi, eax
008228E2 33C0 xor eax, eax
008228E4 55 push ebp
008228E5 68DA2A8200 push $00822ADA
***** TRY
|
008228EA 64FF30 push dword ptr fs:[eax]
008228ED 648920 mov fs:[eax], esp
008228F0 8D55FC lea edx, [ebp-$04]
008228F3 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;
|
008228F5 E8C2CDD6FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
008228FA 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00822900 E8479AE3FF 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;
|
00822905 E85AF2E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
0082290A 8B4050 mov eax, [eax+$50]
0082290D 8D55F4 lea edx, [ebp-$0C]
00822910 8B08 mov ecx, [eax]
00822912 FF5110 call dword ptr [ecx+$10]
00822915 8B45F4 mov eax, [ebp-$0C]
00822918 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082291B E8CC7FBEFF call 0040A8EC
* Reference to control Label11 : TLabel
|
00822920 8B9E64030000 mov ebx, [esi+$0364]
00822926 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00822928 E8135BCAFF call 004C8440
0082292D 8D55E0 lea edx, [ebp-$20]
00822930 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00822933 E8B47FBEFF call 0040A8EC
00822938 8B55E0 mov edx, [ebp-$20]
0082293B 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082293E E88564BFFF call 00418DC8
00822943 8D45E4 lea eax, [ebp-$1C]
00822946 50 push eax
00822947 8B55F8 mov edx, [ebp-$08]
0082294A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082294C E86342CAFF call 004C6BB4
00822951 5A pop edx
00822952 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00822954 FF91B4000000 call dword ptr [ecx+$00B4]
0082295A 8BC3 mov eax, ebx
0082295C 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
0082295E FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00822964 8B9E0C030000 mov ebx, [esi+$030C]
0082296A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082296C E8632FCAFF call 004C58D4
00822971 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;
|
00822973 E834B6CBFF call 004DDFAC
00822978 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0082297A FF5244 call dword ptr [edx+$44]
0082297D 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;
|
0082297F E828B6CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00822984 BAF02A8200 mov edx, $00822AF0
00822989 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082298B FF5138 call dword ptr [ecx+$38]
0082298E 8D55DC lea edx, [ebp-$24]
00822991 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00822994 E8537FBEFF call 0040A8EC
00822999 837DDC00 cmp dword ptr [ebp-$24], +$00
0082299D 7440 jz 008229DF
* Possible String Reference to: ' Set '
|
0082299F 680C2B8200 push $00822B0C
008229A4 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008229A7 681C2B8200 push $00822B1C
008229AC 8D55D4 lea edx, [ebp-$2C]
008229AF 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008229B2 E8357FBEFF call 0040A8EC
008229B7 FF75D4 push dword ptr [ebp-$2C]
008229BA 68282B8200 push $00822B28
008229BF 8D45D8 lea eax, [ebp-$28]
008229C2 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008229C7 E8E82CBEFF call 004056B4
008229CC 8B45D8 mov eax, [ebp-$28]
008229CF 50 push eax
008229D0 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;
|
008229D2 E8D5B5CBFF call 004DDFAC
008229D7 5A pop edx
008229D8 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008229DA FF5138 call dword ptr [ecx+$38]
008229DD EB2B jmp 00822A0A
008229DF 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;
|
008229E1 E8C6B5CBFF call 004DDFAC
008229E6 50 push eax
* Possible String Reference to: ' Set '
|
008229E7 680C2B8200 push $00822B0C
008229EC FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
008229EF 68342B8200 push $00822B34
008229F4 8D45D0 lea eax, [ebp-$30]
008229F7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008229FC E8B32CBEFF call 004056B4
00822A01 8B55D0 mov edx, [ebp-$30]
00822A04 58 pop eax
00822A05 8B08 mov ecx, [eax]
00822A07 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00822A0A 68442B8200 push $00822B44
00822A0F 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYFFP._PROC_00822AF1(Sender : TObject);
begin
(*
00822AF1 50 push eax
00822AF2 6461 popa
00822AF4 7465 jz 00822B5B
00822AF6 205946 and [ecx+$46], bl
00822AF9 5F pop edi
00822AFA 4D dec ebp
00822AFB 6F outsd
00822AFC 6E outsb
00822AFD 65795F jns 00822B5F
00822B00 43 inc ebx
00822B01 52 push edx
00822B02 2000 and [eax], al
00822B04 FFFF DB $FF, $FF //
00822B06 FFFF DB $FF, $FF //
00822B08 0500000020 add eax, +$20000000
00822B0D 53 push ebx
00822B0E 657420 jz 00822B31
00822B11 0000 add [eax], al
00822B13 00FF add bh, bh
00822B15 FFFF DB $FF, $FF //
00822B17 FF02 inc dword ptr [edx]
00822B19 0000 add [eax], al
00822B1B 003D270000FF add [$FF000027], bh
00822B21 FFFF DB $FF, $FF //
00822B23 FF01 inc dword ptr [ecx]
00822B25 0000 add [eax], al
00822B27 0027 add [edi], ah
00822B29 0000 add [eax], al
00822B2B 00FF add bh, bh
00822B2D FFFF DB $FF, $FF //
00822B2F FF050000003D inc dword ptr [$3D000000]
00822B35 4E dec esi
00822B36 55 push ebp
00822B37 4C dec esp
00822B38 4C dec esp
00822B39 0000 add [eax], al
00822B3B 00FF add bh, bh
00822B3D FFFF DB $FF, $FF //
00822B3F FF09 dec dword ptr [ecx]
00822B41 0000 add [eax], al
00822B43 002C4564697465 add [$65746964+eax*2], ch
00822B4A 723D jb 00822B89
00822B4C 27 daa
00822B4D 0000 add [eax], al
00822B4F 00FF add bh, bh
00822B51 FFFF DB $FF, $FF //
00822B53 FF1400 call dword ptr [eax+eax]
00822B56 0000 add [eax], al
00822B58 2C45 sub al, $45
00822B5A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00822B63 657464 jz 00822BCA
00822B66 61 popa
00822B67 7465 jz 00822BCE
00822B69 2829 sub [ecx], ch
00822B6B 2000 and [eax], al
00822B6D 0000 add [eax], al
00822B6F 00FF add bh, bh
00822B71 FFFF DB $FF, $FF //
00822B73 FF0D00000020 dec dword ptr [$20000000]
00822B79 7768 jnbe 00822BE3
00822B7B 657265 jb 00822BE3
00822B7E 205946 and [ecx+$46], bl
00822B81 49 dec ecx
00822B82 643D27000000 cmp eax, $00000027
00822B88 FFFF DB $FF, $FF //
00822B8A FFFF DB $FF, $FF //
00822B8C 0400 add al, +$00
00822B8E 0000 add [eax], al
00822B90 59 pop ecx
00822B91 46 inc esi
00822B92 49 dec ecx
00822B93 640000 add fs:[eax], al
00822B96 0000 add [eax], al
00822B98 55 push ebp
00822B99 8BEC mov ebp, esp
00822B9B B911000000 mov ecx, $00000011
00822BA0 6A00 push $00
00822BA2 6A00 push $00
00822BA4 49 dec ecx
00822BA5 75F9 jnz 00822BA0
00822BA7 51 push ecx
00822BA8 56 push esi
00822BA9 8945FC mov [ebp-$04], eax
00822BAC 33C0 xor eax, eax
00822BAE 55 push ebp
00822BAF 685C2E8200 push $00822E5C
***** TRY
|
00822BB4 64FF30 push dword ptr fs:[eax]
00822BB7 648920 mov fs:[eax], esp
00822BBA 33C0 xor eax, eax
00822BBC 55 push ebp
00822BBD 68C12D8200 push $00822DC1
***** TRY
|
00822BC2 64FF30 push dword ptr fs:[eax]
00822BC5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_008232E5(Sender : TObject);
begin
(*
008232E5 50 push eax
008232E6 6461 popa
008232E8 7465 jz 0082334F
008232EA 205946 and [ecx+$46], bl
008232ED 5F pop edi
008232EE 4D dec ebp
008232EF 6F outsd
008232F0 6E outsb
008232F1 65795F jns 00823353
008232F4 43 inc ebx
008232F5 52 push edx
008232F6 2000 and [eax], al
008232F8 FFFF DB $FF, $FF //
008232FA FFFF DB $FF, $FF //
008232FC 0D00000020 or eax, $20000000
00823301 53 push ebx
00823302 657420 jz 00823325
00823305 59 pop ecx
00823306 46 inc esi
00823307 43 inc ebx
00823308 6F outsd
00823309 64653D27000000 cmp eax, $00000027
00823310 FFFF DB $FF, $FF //
00823312 FFFF DB $FF, $FF //
00823314 0100 add [eax], eax
00823316 0000 add [eax], al
00823318 27 daa
00823319 0000 add [eax], al
0082331B 00FF add bh, bh
0082331D FFFF DB $FF, $FF //
0082331F FF0A dec dword ptr [edx]
00823321 0000 add [eax], al
00823323 0020 add [eax], ah
00823325 2C59 sub al, $59
00823327 46 inc esi
00823328 4E dec esi
00823329 61 popa
0082332A 6D insd
0082332B 653D270000FF cmp eax, $FF000027
00823331 FFFF DB $FF, $FF //
00823333 FF09 dec dword ptr [ecx]
00823335 0000 add [eax], al
00823337 002C4564697465 add [$65746964+eax*2], ch
0082333E 723D jb 0082337D
00823340 27 daa
00823341 0000 add [eax], al
00823343 00FF add bh, bh
00823345 FFFF DB $FF, $FF //
00823347 FF1400 call dword ptr [eax+eax]
0082334A 0000 add [eax], al
0082334C 2C45 sub al, $45
0082334E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00823357 657464 jz 008233BE
0082335A 61 popa
0082335B 7465 jz 008233C2
0082335D 2829 sub [ecx], ch
0082335F 2000 and [eax], al
00823361 0000 add [eax], al
00823363 00FF add bh, bh
00823365 FFFF DB $FF, $FF //
00823367 FF0D00000020 dec dword ptr [$20000000]
0082336D 7768 jnbe 008233D7
0082336F 657265 jb 008233D7
00823372 205946 and [ecx+$46], bl
00823375 49 dec ecx
00823376 643D27000000 cmp eax, $00000027
0082337C FFFF DB $FF, $FF //
0082337E FFFF DB $FF, $FF //
00823380 0400 add al, +$00
00823382 0000 add [eax], al
00823384 59 pop ecx
00823385 46 inc esi
00823386 49 dec ecx
00823387 640000 add fs:[eax], al
0082338A 0000 add [eax], al
0082338C 55 push ebp
0082338D 8BEC mov ebp, esp
0082338F 51 push ecx
00823390 B906000000 mov ecx, $00000006
00823395 6A00 push $00
00823397 6A00 push $00
00823399 49 dec ecx
0082339A 75F9 jnz 00823395
0082339C 51 push ecx
0082339D 874DFC xchg [ebp-$04], ecx
008233A0 53 push ebx
008233A1 56 push esi
008233A2 8BF0 mov esi, eax
008233A4 33C0 xor eax, eax
008233A6 55 push ebp
008233A7 68E5358200 push $008235E5
***** TRY
|
008233AC 64FF30 push dword ptr fs:[eax]
008233AF 648920 mov fs:[eax], esp
008233B2 33C0 xor eax, eax
008233B4 55 push ebp
008233B5 68BB358200 push $008235BB
***** TRY
|
008233BA 64FF30 push dword ptr fs:[eax]
008233BD 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00823602(Sender : TObject);
begin
(*
00823602 6E outsb
00823603 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
0082360B FF08 dec dword ptr [eax]
0082360D 0000 add [eax], al
*)
end;
procedure TfrmYFFP._PROC_00823638(Sender : TObject);
begin
(*
00823638 6E outsb
00823639 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
00823641 0000 add [eax], al
*)
end;
procedure TfrmYFFP._PROC_00823645(Sender : TObject);
begin
(*
00823645 50 push eax
00823646 6461 popa
00823648 7465 jz 008236AF
0082364A 205946 and [ecx+$46], bl
0082364D 5F pop edi
0082364E 4D dec ebp
0082364F 6F outsd
00823650 6E outsb
00823651 65795F jns 008236B3
00823654 43 inc ebx
00823655 52 push edx
00823656 2000 and [eax], al
00823658 FFFF DB $FF, $FF //
0082365A FFFF DB $FF, $FF //
0082365C 0E push cs
0082365D 0000 add [eax], al
0082365F 0020 add [eax], ah
00823661 53 push ebx
00823662 657420 jz 00823685
00823665 51 push ecx
00823666 7479 jz 008236E1
00823668 55 push ebp
00823669 6E outsb
0082366A 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
00823672 FFFF DB $FF, $FF //
00823674 07 pop es
00823675 0000 add [eax], al
00823677 005A64 add [edx+$64], bl
0082367A 794E jns 008236CA
0082367C 61 popa
0082367D 6D insd
0082367E 6500FF add bh, bh
00823681 FFFF DB $FF, $FF //
00823683 FF01 inc dword ptr [ecx]
00823685 0000 add [eax], al
00823687 0027 add [edi], ah
00823689 0000 add [eax], al
0082368B 00FF add bh, bh
0082368D FFFF DB $FF, $FF //
0082368F FF09 dec dword ptr [ecx]
00823691 0000 add [eax], al
00823693 002C4564697465 add [$65746964+eax*2], ch
0082369A 723D jb 008236D9
0082369C 27 daa
0082369D 0000 add [eax], al
0082369F 00FF add bh, bh
008236A1 FFFF DB $FF, $FF //
008236A3 FF1400 call dword ptr [eax+eax]
008236A6 0000 add [eax], al
008236A8 2C45 sub al, $45
008236AA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008236B3 657464 jz 0082371A
008236B6 61 popa
008236B7 7465 jz 0082371E
008236B9 2829 sub [ecx], ch
008236BB 2000 and [eax], al
008236BD 0000 add [eax], al
008236BF 00FF add bh, bh
008236C1 FFFF DB $FF, $FF //
008236C3 FF0D00000020 dec dword ptr [$20000000]
008236C9 7768 jnbe 00823733
008236CB 657265 jb 00823733
008236CE 205946 and [ecx+$46], bl
008236D1 49 dec ecx
008236D2 643D27000000 cmp eax, $00000027
008236D8 FFFF DB $FF, $FF //
008236DA FFFF DB $FF, $FF //
008236DC 0400 add al, +$00
008236DE 0000 add [eax], al
008236E0 59 pop ecx
008236E1 46 inc esi
008236E2 49 dec ecx
008236E3 640000 add fs:[eax], al
008236E6 0000 add [eax], al
008236E8 55 push ebp
008236E9 8BEC mov ebp, esp
008236EB 51 push ecx
008236EC B906000000 mov ecx, $00000006
008236F1 6A00 push $00
008236F3 6A00 push $00
008236F5 49 dec ecx
008236F6 75F9 jnz 008236F1
008236F8 51 push ecx
008236F9 874DFC xchg [ebp-$04], ecx
008236FC 53 push ebx
008236FD 56 push esi
008236FE 8BF0 mov esi, eax
00823700 33C0 xor eax, eax
00823702 55 push ebp
00823703 6841398200 push $00823941
***** TRY
|
00823708 64FF30 push dword ptr fs:[eax]
0082370B 648920 mov fs:[eax], esp
0082370E 33C0 xor eax, eax
00823710 55 push ebp
00823711 6817398200 push $00823917
***** TRY
|
00823716 64FF30 push dword ptr fs:[eax]
00823719 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_0082398D(Sender : TObject);
begin
(*
0082398D 50 push eax
0082398E 6461 popa
00823990 7465 jz 008239F7
00823992 205946 and [ecx+$46], bl
00823995 5F pop edi
00823996 4D dec ebp
00823997 6F outsd
00823998 6E outsb
00823999 65795F jns 008239FB
0082399C 43 inc ebx
0082399D 52 push edx
0082399E 2000 and [eax], al
008239A0 FFFF DB $FF, $FF //
008239A2 FFFF DB $FF, $FF //
008239A4 1100 adc [eax], eax
008239A6 0000 add [eax], al
008239A8 205365 and [ebx+$65], dl
008239AB 7420 jz 008239CD
008239AD 50 push eax
008239AE 5F pop edi
008239AF 43 inc ebx
008239B0 6F outsd
008239B1 64654E dec esi
008239B4 61 popa
008239B5 6D insd
008239B6 653D27000000 cmp eax, $00000027
008239BC FFFF DB $FF, $FF //
008239BE FFFF DB $FF, $FF //
008239C0 07 pop es
008239C1 0000 add [eax], al
008239C3 005A64 add [edx+$64], bl
008239C6 794E jns 00823A16
008239C8 61 popa
008239C9 6D insd
008239CA 6500FF add bh, bh
008239CD FFFF DB $FF, $FF //
008239CF FF01 inc dword ptr [ecx]
008239D1 0000 add [eax], al
008239D3 0027 add [edi], ah
008239D5 0000 add [eax], al
008239D7 00FF add bh, bh
008239D9 FFFF DB $FF, $FF //
008239DB FF09 dec dword ptr [ecx]
008239DD 0000 add [eax], al
008239DF 002C4564697465 add [$65746964+eax*2], ch
008239E6 723D jb 00823A25
008239E8 27 daa
008239E9 0000 add [eax], al
008239EB 00FF add bh, bh
008239ED FFFF DB $FF, $FF //
008239EF FF1400 call dword ptr [eax+eax]
008239F2 0000 add [eax], al
008239F4 2C45 sub al, $45
008239F6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008239FF 657464 jz 00823A66
00823A02 61 popa
00823A03 7465 jz 00823A6A
00823A05 2829 sub [ecx], ch
00823A07 2000 and [eax], al
00823A09 0000 add [eax], al
00823A0B 00FF add bh, bh
00823A0D FFFF DB $FF, $FF //
00823A0F FF0D00000020 dec dword ptr [$20000000]
00823A15 7768 jnbe 00823A7F
00823A17 657265 jb 00823A7F
00823A1A 205946 and [ecx+$46], bl
00823A1D 49 dec ecx
00823A1E 643D27000000 cmp eax, $00000027
00823A24 FFFF DB $FF, $FF //
00823A26 FFFF DB $FF, $FF //
00823A28 0400 add al, +$00
00823A2A 0000 add [eax], al
00823A2C 59 pop ecx
00823A2D 46 inc esi
00823A2E 49 dec ecx
00823A2F 640000 add fs:[eax], al
00823A32 0000 add [eax], al
00823A34 53 push ebx
00823A35 8BD8 mov ebx, eax
* Reference to control ToolButton1 : TToolButton
|
00823A37 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00823A3D E87E44CAFF call 004C7EC0
00823A42 84C0 test al, al
00823A44 7516 jnz 00823A5C
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
00823A46 B9683A8200 mov ecx, $00823A68
* Reference to control ToolButton1 : TToolButton
|
00823A4B 8B9320030000 mov edx, [ebx+$0320]
* Reference to control ADOTemp : N.A.
|
00823A51 8B833C030000 mov eax, [ebx+$033C]
|
00823A57 E8D447F9FF call 007B8230
00823A5C 5B pop ebx
00823A5D C3 ret
00823A5E 0000 add [eax], al
00823A60 FFFF DB $FF, $FF //
00823A62 FFFF DB $FF, $FF //
00823A64 0A00 or al, byte ptr [eax]
00823A66 0000 add [eax], al
00823A68 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
00823A6E C1D0B1 rcl eax, $B1
00823A71 ED in eax, dx
00823A72 0000 add [eax], al
00823A74 55 push ebp
00823A75 8BEC mov ebp, esp
00823A77 51 push ecx
00823A78 B90E000000 mov ecx, $0000000E
00823A7D 6A00 push $00
00823A7F 6A00 push $00
00823A81 49 dec ecx
00823A82 75F9 jnz 00823A7D
00823A84 874DFC xchg [ebp-$04], ecx
00823A87 53 push ebx
00823A88 56 push esi
00823A89 8BF0 mov esi, eax
00823A8B 33C0 xor eax, eax
00823A8D 55 push ebp
* Possible String Reference to: '<27>'<27><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00823A8E 68C83D8200 push $00823DC8
***** TRY
|
00823A93 64FF30 push dword ptr fs:[eax]
00823A96 648920 mov fs:[eax], esp
00823A99 33C0 xor eax, eax
00823A9B 55 push ebp
00823A9C 68743D8200 push $00823D74
***** TRY
|
00823AA1 64FF30 push dword ptr fs:[eax]
00823AA4 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00823E39(Sender : TObject);
begin
(*
00823E39 50 push eax
00823E3A 6461 popa
00823E3C 7465 jz 00823EA3
00823E3E 205946 and [ecx+$46], bl
00823E41 5F pop edi
00823E42 4D dec ebp
00823E43 6F outsd
00823E44 6E outsb
00823E45 65795F jns 00823EA7
00823E48 43 inc ebx
00823E49 52 push edx
00823E4A 2000 and [eax], al
00823E4C FFFF DB $FF, $FF //
00823E4E FFFF DB $FF, $FF //
00823E50 0D00000020 or eax, $20000000
00823E55 53 push ebx
00823E56 657420 jz 00823E79
00823E59 4D dec ebp
00823E5A 61 popa
00823E5B 696E49643D2700 imul ebp, [esi+$49], $00273D64
00823E62 0000 add [eax], al
00823E64 FFFF DB $FF, $FF //
00823E66 FFFF DB $FF, $FF //
00823E68 0100 add [eax], eax
00823E6A 0000 add [eax], al
00823E6C 27 daa
00823E6D 0000 add [eax], al
00823E6F 00FF add bh, bh
00823E71 FFFF DB $FF, $FF //
00823E73 FF0C00 dec dword ptr [eax+eax]
00823E76 0000 add [eax], al
00823E78 2C43 sub al, $43
00823E7A 6F outsd
00823E7B 6D insd
00823E7C 54 push esp
00823E7D 61 popa
00823E7E 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
00823E86 0000 add [eax], al
00823E88 FFFF DB $FF, $FF //
00823E8A FFFF DB $FF, $FF //
00823E8C 0900 or [eax], eax
00823E8E 0000 add [eax], al
00823E90 2C45 sub al, $45
00823E92 64697465723D270000 imul esi, fs:[ebp+$72], $0000273D
00823E9B 00FF add bh, bh
00823E9D FFFF DB $FF, $FF //
00823E9F FF1400 call dword ptr [eax+eax]
00823EA2 0000 add [eax], al
00823EA4 2C45 sub al, $45
00823EA6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00823EAF 657464 jz 00823F16
00823EB2 61 popa
00823EB3 7465 jz 00823F1A
00823EB5 2829 sub [ecx], ch
00823EB7 2000 and [eax], al
00823EB9 0000 add [eax], al
00823EBB 00FF add bh, bh
00823EBD FFFF DB $FF, $FF //
00823EBF FF0D00000020 dec dword ptr [$20000000]
00823EC5 7768 jnbe 00823F2F
00823EC7 657265 jb 00823F2F
00823ECA 205946 and [ecx+$46], bl
00823ECD 49 dec ecx
00823ECE 643D27000000 cmp eax, $00000027
00823ED4 FFFF DB $FF, $FF //
00823ED6 FFFF DB $FF, $FF //
00823ED8 0400 add al, +$00
00823EDA 0000 add [eax], al
00823EDC 59 pop ecx
00823EDD 46 inc esi
00823EDE 49 dec ecx
00823EDF 640000 add fs:[eax], al
00823EE2 0000 add [eax], al
00823EE4 55 push ebp
00823EE5 8BEC mov ebp, esp
00823EE7 B915000000 mov ecx, $00000015
00823EEC 6A00 push $00
00823EEE 6A00 push $00
00823EF0 49 dec ecx
00823EF1 75F9 jnz 00823EEC
00823EF3 53 push ebx
00823EF4 56 push esi
00823EF5 57 push edi
00823EF6 8BDA mov ebx, edx
00823EF8 8BF0 mov esi, eax
00823EFA 33C0 xor eax, eax
00823EFC 55 push ebp
00823EFD 689E438200 push $0082439E
***** TRY
|
00823F02 64FF30 push dword ptr fs:[eax]
00823F05 648920 mov fs:[eax], esp
00823F08 8D55FC lea edx, [ebp-$04]
00823F0B 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;
|
00823F0D E8AAB7D6FF call 0058F6BC
00823F12 8D55DC lea edx, [ebp-$24]
00823F15 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00823F18 E8CF69BEFF call 0040A8EC
00823F1D 837DDC00 cmp dword ptr [ebp-$24], +$00
00823F21 750D jnz 00823F30
00823F23 8D45FC lea eax, [ebp-$04]
00823F26 BAB4438200 mov edx, $008243B4
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00823F2B E88C14BEFF call 004053BC
* Reference to control ADOTemp : N.A.
|
00823F30 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00823F36 E81184E3FF 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;
|
00823F3B E824DCE2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00823F40 8B4050 mov eax, [eax+$50]
00823F43 8D55D8 lea edx, [ebp-$28]
00823F46 8B08 mov ecx, [eax]
00823F48 FF5110 call dword ptr [ecx+$10]
00823F4B 8B45D8 mov eax, [ebp-$28]
00823F4E 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00823F51 E89669BEFF call 0040A8EC
* Reference to control Label11 : TLabel
|
00823F56 8B9E64030000 mov ebx, [esi+$0364]
00823F5C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00823F5E E8DD44CAFF call 004C8440
00823F63 8D55C4 lea edx, [ebp-$3C]
00823F66 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00823F69 E87E69BEFF call 0040A8EC
00823F6E 8B55C4 mov edx, [ebp-$3C]
00823F71 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00823F74 E84F4EBFFF call 00418DC8
00823F79 8D45C8 lea eax, [ebp-$38]
00823F7C 50 push eax
00823F7D 8B55F0 mov edx, [ebp-$10]
00823F80 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00823F82 E82D2CCAFF call 004C6BB4
00823F87 5A pop edx
00823F88 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00823F8A FF91B4000000 call dword ptr [ecx+$00B4]
00823F90 8BC3 mov eax, ebx
00823F92 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
00823F94 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
00823F9A 8B9E08030000 mov ebx, [esi+$0308]
00823FA0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00823FA2 E82D19CAFF call 004C58D4
00823FA7 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00823FA9 E8FE9FCBFF call 004DDFAC
00823FAE 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
00823FB0 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
| om YF_Money_CR where YFID=''
|
00823FB3 68C0438200 push $008243C0
* Possible String Reference to: 'YFID'
|
00823FB8 BA08448200 mov edx, $00824408
* Reference to control Label11 : TLabel
|
00823FBD 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00823FC3 E8EC2BCAFF call 004C6BB4
00823FC8 8D55BC lea edx, [ebp-$44]
00823FCB 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00823FCD FF5160 call dword ptr [ecx+$60]
00823FD0 FF75BC push dword ptr [ebp-$44]
00823FD3 6818448200 push $00824418
00823FD8 8D45C0 lea eax, [ebp-$40]
00823FDB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00823FE0 E8CF16BEFF call 004056B4
00823FE5 8B45C0 mov eax, [ebp-$40]
00823FE8 50 push eax
00823FE9 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00823FEB E8BC9FCBFF call 004DDFAC
00823FF0 5A pop edx
00823FF1 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00823FF3 FF5138 call dword ptr [ecx+$38]
00823FF6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00823FF8 E8CB18CAFF call 004C58C8
* Possible String Reference to: 'KPMoney'
|
00823FFD BA24448200 mov edx, $00824424
* Reference to control Label3 : TLabel
|
00824002 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824008 E8A72BCAFF call 004C6BB4
0082400D 8D55F4 lea edx, [ebp-$0C]
00824010 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00824012 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'KPMoney'
|
00824015 BA24448200 mov edx, $00824424
* Reference to control Label11 : TLabel
|
0082401A 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824020 E88F2BCAFF call 004C6BB4
00824025 8D55F8 lea edx, [ebp-$08]
00824028 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
0082402A FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Qty'
|
0082402D BA34448200 mov edx, $00824434
* Reference to control Label11 : TLabel
|
00824032 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824038 E8772BCAFF call 004C6BB4
0082403D 8D55B4 lea edx, [ebp-$4C]
00824040 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00824042 FF5160 call dword ptr [ecx+$60]
00824045 8B45B4 mov eax, [ebp-$4C]
00824048 8D55B8 lea edx, [ebp-$48]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082404B E89C68BEFF call 0040A8EC
00824050 837DB800 cmp dword ptr [ebp-$48], +$00
00824054 0F8434010000 jz 0082418E
* Possible String Reference to: 'Qty'
|
0082405A BA34448200 mov edx, $00824434
* Reference to control Label11 : TLabel
|
0082405F 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824065 E84A2BCAFF call 004C6BB4
0082406A 8D55EC lea edx, [ebp-$14]
0082406D 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
0082406F FF5160 call dword ptr [ecx+$60]
00824072 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00824075 E8B296BEFF call 0040D72C
0082407A D81D38448200 fcomp dword ptr [$00824438]
00824080 DFE0 fstsw ax
00824082 9E sahf
00824083 0F84C0020000 jz 00824349
00824089 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0082408C E89B96BEFF call 0040D72C
00824091 D80D3C448200 fmul dword ptr [$0082443C]
00824097 DB7DA8 fstp tbyte ptr [ebp-$58]
0082409A 9B wait
0082409B 8B45EC mov eax, [ebp-$14]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
0082409E E88996BEFF call 0040D72C
008240A3 DB6DA8 fld tbyte ptr [ebp-$58]
008240A6 DEF1 fdivrp st(1), st(0)
008240A8 DD5DE0 fstp qword ptr [ebp-$20]
008240AB 9B wait
* Reference to control Label11 : TLabel
|
008240AC 8BBE64030000 mov edi, [esi+$0364]
008240B2 8BC7 mov eax, edi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008240B4 E88743CAFF call 004C8440
* Possible String Reference to: 'Price'
|
008240B9 BA48448200 mov edx, $00824448
008240BE 8BC7 mov eax, edi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008240C0 E8EF2ACAFF call 004C6BB4
008240C5 50 push eax
008240C6 DD45E0 fld qword ptr [ebp-$20]
008240C9 8D4598 lea eax, [ebp-$68]
* Reference to: Variants.@VarFromReal;
|
008240CC E8BB4CBFFF call 00418D8C
008240D1 8D5598 lea edx, [ebp-$68]
008240D4 58 pop eax
008240D5 8B08 mov ecx, [eax]
008240D7 FF91B4000000 call dword ptr [ecx+$00B4]
008240DD 8BC7 mov eax, edi
008240DF 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
008240E1 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
008240E7 8B9E0C030000 mov ebx, [esi+$030C]
008240ED 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008240EF E8E017CAFF call 004C58D4
008240F4 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;
|
008240F6 E8B19ECBFF call 004DDFAC
008240FB 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008240FD FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'Price'
|
00824100 BA48448200 mov edx, $00824448
* Reference to control Label11 : TLabel
|
00824105 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082410B E8A42ACAFF call 004C6BB4
00824110 8D5590 lea edx, [ebp-$70]
00824113 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00824115 FF5160 call dword ptr [ecx+$60]
00824118 8B4D90 mov ecx, [ebp-$70]
0082411B 8D4594 lea eax, [ebp-$6C]
* Possible String Reference to: 'UPdate YF_Money_CR Set Price='
|
0082411E BA58448200 mov edx, $00824458
* Reference to: System.@LStrCat3;
|
00824123 E81815BEFF call 00405640
00824128 8B4594 mov eax, [ebp-$6C]
0082412B 50 push eax
0082412C 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;
|
0082412E E8799ECBFF call 004DDFAC
00824133 5A pop edx
00824134 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00824136 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFID=''
|
00824139 6880448200 push $00824480
* Possible String Reference to: 'YFID'
|
0082413E BA08448200 mov edx, $00824408
* Reference to control Label11 : TLabel
|
00824143 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00824149 E8662ACAFF call 004C6BB4
0082414E 8D5584 lea edx, [ebp-$7C]
00824151 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00824153 FF5160 call dword ptr [ecx+$60]
00824156 8B4584 mov eax, [ebp-$7C]
00824159 8D5588 lea edx, [ebp-$78]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082415C E88B67BEFF call 0040A8EC
00824161 FF7588 push dword ptr [ebp-$78]
00824164 6818448200 push $00824418
00824169 8D458C lea eax, [ebp-$74]
0082416C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00824171 E83E15BEFF call 004056B4
00824176 8B458C mov eax, [ebp-$74]
00824179 50 push eax
0082417A 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;
|
0082417C E82B9ECBFF call 004DDFAC
00824181 5A pop edx
00824182 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00824184 FF5138 call dword ptr [ecx+$38]
00824187 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00824189 E8469DCBFF call 004DDED4
* Reference to control OrdDate : N.A.
|
0082418E 8B9E0C030000 mov ebx, [esi+$030C]
00824194 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00824196 E83917CAFF call 004C58D4
0082419B 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;
|
0082419D E80A9ECBFF call 004DDFAC
008241A2 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008241A4 FF5244 call dword ptr [edx+$44]
008241A7 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;
|
008241A9 E8FE9DCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008241AE BA98448200 mov edx, $00824498
008241B3 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008241B5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008241B8 68B4448200 push $008244B4
008241BD FF75F0 push dword ptr [ebp-$10]
008241C0 68C4448200 push $008244C4
008241C5 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]
008241CB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008241CE E81967BEFF call 0040A8EC
008241D3 FFB57CFFFFFF push dword ptr [ebp+$FFFFFF7C]
008241D9 8D4580 lea eax, [ebp-$80]
008241DC BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008241E1 E8CE14BEFF call 004056B4
008241E6 8B4580 mov eax, [ebp-$80]
008241E9 50 push eax
008241EA 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;
|
008241EC E8BB9DCBFF call 004DDFAC
008241F1 5A pop edx
008241F2 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008241F4 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008241F7 68D0448200 push $008244D0
008241FC 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
*)
end;
procedure TfrmYFFP._PROC_00824459(Sender : TObject);
begin
(*
00824459 50 push eax
0082445A 6461 popa
0082445C 7465 jz 008244C3
0082445E 205946 and [ecx+$46], bl
00824461 5F pop edi
00824462 4D dec ebp
00824463 6F outsd
00824464 6E outsb
00824465 65795F jns 008244C7
00824468 43 inc ebx
00824469 52 push edx
0082446A 205365 and [ebx+$65], dl
0082446D 7420 jz 0082448F
0082446F 50 push eax
00824470 7269 jb 008244DB
00824472 63653D arpl [ebp+$3D], sp
00824475 0000 add [eax], al
00824477 00FF add bh, bh
00824479 FFFF DB $FF, $FF //
0082447B FF0D00000020 dec dword ptr [$20000000]
00824481 7768 jnbe 008244EB
00824483 657265 jb 008244EB
00824486 205946 and [ecx+$46], bl
00824489 49 dec ecx
0082448A 44 inc esp
0082448B 3D27000000 cmp eax, $00000027
00824490 FFFF DB $FF, $FF //
00824492 FFFF DB $FF, $FF //
00824494 1300 adc eax, [eax]
00824496 0000 add [eax], al
00824498 55 push ebp
00824499 50 push eax
0082449A 6461 popa
0082449C 7465 jz 00824503
0082449E 205946 and [ecx+$46], bl
008244A1 5F pop edi
008244A2 4D dec ebp
008244A3 6F outsd
008244A4 6E outsb
008244A5 65795F jns 00824507
008244A8 43 inc ebx
008244A9 52 push edx
008244AA 2000 and [eax], al
008244AC FFFF DB $FF, $FF //
008244AE FFFF DB $FF, $FF //
008244B0 0500000020 add eax, +$20000000
008244B5 53 push ebx
008244B6 657420 jz 008244D9
008244B9 0000 add [eax], al
008244BB 00FF add bh, bh
008244BD FFFF DB $FF, $FF //
008244BF FF01 inc dword ptr [ecx]
008244C1 0000 add [eax], al
008244C3 003D000000FF add [$FF000000], bh
008244C9 FFFF DB $FF, $FF //
008244CB FF09 dec dword ptr [ecx]
008244CD 0000 add [eax], al
008244CF 002C4564697465 add [$65746964+eax*2], ch
008244D6 723D jb 00824515
008244D8 27 daa
008244D9 0000 add [eax], al
008244DB 00FF add bh, bh
008244DD FFFF DB $FF, $FF //
008244DF FF1400 call dword ptr [eax+eax]
008244E2 0000 add [eax], al
008244E4 2C45 sub al, $45
008244E6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008244EF 657464 jz 00824556
008244F2 61 popa
008244F3 7465 jz 0082455A
008244F5 2829 sub [ecx], ch
008244F7 2000 and [eax], al
008244F9 0000 add [eax], al
008244FB 00FF add bh, bh
008244FD FFFF DB $FF, $FF //
008244FF FF0D00000020 dec dword ptr [$20000000]
00824505 7768 jnbe 0082456F
00824507 657265 jb 0082456F
0082450A 205946 and [ecx+$46], bl
0082450D 49 dec ecx
0082450E 643D27000000 cmp eax, $00000027
00824514 FFFF DB $FF, $FF //
00824516 FFFF DB $FF, $FF //
00824518 0400 add al, +$00
0082451A 0000 add [eax], al
0082451C 59 pop ecx
0082451D 46 inc esi
0082451E 49 dec ecx
0082451F 640000 add fs:[eax], al
00824522 0000 add [eax], al
00824524 FFFF DB $FF, $FF //
00824526 FFFF DB $FF, $FF //
00824528 2C00 sub al, $00
0082452A 0000 add [eax], al
0082452C 205570 and [ebp+$70], dl
0082452F 6461 popa
00824531 7465 jz 00824598
00824533 205946 and [ecx+$46], bl
00824536 5F pop edi
00824537 4D dec ebp
00824538 6F outsd
00824539 6E outsb
0082453A 65795F jns 0082459C
0082453D 4B dec ebx
0082453E 43 inc ebx
0082453F 205365 and [ebx+$65], dl
00824542 7420 jz 00824564
00824544 4B dec ebx
00824545 43 inc ebx
00824546 4B dec ebx
00824547 50 push eax
00824548 4D dec ebp
00824549 6F outsd
0082454A 6E outsb
0082454B 65793D jns 0082458B
0082454E 4B dec ebx
0082454F 43 inc ebx
00824550 4B dec ebx
00824551 50 push eax
00824552 4D dec ebp
00824553 6F outsd
00824554 6E outsb
00824555 65792D jns 00824585
00824558 0000 add [eax], al
0082455A 0000 add [eax], al
0082455C FFFF DB $FF, $FF //
0082455E FFFF DB $FF, $FF //
00824560 0100 add [eax], eax
00824562 0000 add [eax], al
00824564 2B00 sub eax, dword ptr [eax]
00824566 0000 add [eax], al
00824568 FFFF DB $FF, $FF //
0082456A FFFF DB $FF, $FF //
0082456C 0D00000020 or eax, $20000000
00824571 7768 jnbe 008245DB
00824573 657265 jb 008245DB
00824576 204352 and [ebx+$52], al
00824579 49 dec ecx
0082457A 44 inc esp
0082457B 3D27000000 cmp eax, $00000027
00824580 FFFF DB $FF, $FF //
00824582 FFFF DB $FF, $FF //
00824584 0400 add al, +$00
00824586 0000 add [eax], al
00824588 43 inc ebx
00824589 52 push edx
0082458A 49 dec ecx
0082458B 44 inc esp
0082458C 0000 add [eax], al
0082458E 0000 add [eax], al
00824590 55 push ebp
00824591 8BEC mov ebp, esp
00824593 B908000000 mov ecx, $00000008
00824598 6A00 push $00
0082459A 6A00 push $00
0082459C 49 dec ecx
0082459D 75F9 jnz 00824598
0082459F 53 push ebx
008245A0 56 push esi
008245A1 8BDA mov ebx, edx
008245A3 8BF0 mov esi, eax
008245A5 33C0 xor eax, eax
008245A7 55 push ebp
008245A8 6878478200 push $00824778
***** TRY
|
008245AD 64FF30 push dword ptr fs:[eax]
008245B0 648920 mov fs:[eax], esp
008245B3 8D55FC lea edx, [ebp-$04]
008245B6 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;
|
008245B8 E8FFB0D6FF call 0058F6BC
008245BD 8D55F4 lea edx, [ebp-$0C]
008245C0 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008245C3 E82463BEFF call 0040A8EC
008245C8 837DF400 cmp dword ptr [ebp-$0C], +$00
008245CC 750D jnz 008245DB
008245CE 8D45FC lea eax, [ebp-$04]
008245D1 BA90478200 mov edx, $00824790
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008245D6 E8E10DBEFF call 004053BC
* Reference to control ADOTemp : N.A.
|
008245DB 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008245E1 E8667DE3FF 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;
|
008245E6 E879D5E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
008245EB 8B4050 mov eax, [eax+$50]
008245EE 8D55F0 lea edx, [ebp-$10]
008245F1 8B08 mov ecx, [eax]
008245F3 FF5110 call dword ptr [ecx+$10]
008245F6 8B45F0 mov eax, [ebp-$10]
008245F9 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008245FC E8EB62BEFF call 0040A8EC
* Reference to control Label11 : TLabel
|
00824601 8B9E64030000 mov ebx, [esi+$0364]
00824607 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00824609 E8323ECAFF call 004C8440
0082460E 8D55DC lea edx, [ebp-$24]
00824611 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824614 E8D362BEFF call 0040A8EC
00824619 8B55DC mov edx, [ebp-$24]
0082461C 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0082461F E8A447BFFF call 00418DC8
00824624 8D45E0 lea eax, [ebp-$20]
00824627 50 push eax
00824628 8B55F8 mov edx, [ebp-$08]
0082462B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0082462D E88225CAFF call 004C6BB4
00824632 5A pop edx
00824633 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00824635 FF91B4000000 call dword ptr [ecx+$00B4]
0082463B 8BC3 mov eax, ebx
0082463D 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
0082463F FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00824645 8B9E0C030000 mov ebx, [esi+$030C]
0082464B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082464D E88212CAFF call 004C58D4
00824652 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;
|
00824654 E85399CBFF call 004DDFAC
00824659 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0082465B FF5244 call dword ptr [edx+$44]
0082465E 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;
|
00824660 E84799CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00824665 BA9C478200 mov edx, $0082479C
0082466A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082466C FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
0082466F 68B8478200 push $008247B8
00824674 FF75F8 push dword ptr [ebp-$08]
00824677 68C8478200 push $008247C8
0082467C 8D55D4 lea edx, [ebp-$2C]
0082467F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824682 E86562BEFF call 0040A8EC
00824687 FF75D4 push dword ptr [ebp-$2C]
0082468A 8D45D8 lea eax, [ebp-$28]
0082468D BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00824692 E81D10BEFF call 004056B4
00824697 8B45D8 mov eax, [ebp-$28]
0082469A 50 push eax
0082469B 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;
|
0082469D E80A99CBFF call 004DDFAC
008246A2 5A pop edx
008246A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008246A5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
008246A8 68D4478200 push $008247D4
008246AD 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmYFFP._PROC_0082479D(Sender : TObject);
begin
(*
0082479D 50 push eax
0082479E 6461 popa
008247A0 7465 jz 00824807
008247A2 205946 and [ecx+$46], bl
008247A5 5F pop edi
008247A6 4D dec ebp
008247A7 6F outsd
008247A8 6E outsb
008247A9 65795F jns 0082480B
008247AC 43 inc ebx
008247AD 52 push edx
008247AE 2000 and [eax], al
008247B0 FFFF DB $FF, $FF //
008247B2 FFFF DB $FF, $FF //
008247B4 0500000020 add eax, +$20000000
008247B9 53 push ebx
008247BA 657420 jz 008247DD
008247BD 0000 add [eax], al
008247BF 00FF add bh, bh
008247C1 FFFF DB $FF, $FF //
008247C3 FF01 inc dword ptr [ecx]
008247C5 0000 add [eax], al
008247C7 003D000000FF add [$FF000000], bh
008247CD FFFF DB $FF, $FF //
008247CF FF09 dec dword ptr [ecx]
008247D1 0000 add [eax], al
008247D3 002C4564697465 add [$65746964+eax*2], ch
008247DA 723D jb 00824819
008247DC 27 daa
008247DD 0000 add [eax], al
008247DF 00FF add bh, bh
008247E1 FFFF DB $FF, $FF //
008247E3 FF01 inc dword ptr [ecx]
008247E5 0000 add [eax], al
008247E7 0027 add [edi], ah
008247E9 0000 add [eax], al
008247EB 00FF add bh, bh
008247ED FFFF DB $FF, $FF //
008247EF FF1400 call dword ptr [eax+eax]
008247F2 0000 add [eax], al
008247F4 2C45 sub al, $45
008247F6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008247FF 657464 jz 00824866
00824802 61 popa
00824803 7465 jz 0082486A
00824805 2829 sub [ecx], ch
00824807 2000 and [eax], al
00824809 0000 add [eax], al
0082480B 00FF add bh, bh
0082480D FFFF DB $FF, $FF //
0082480F FF0D00000020 dec dword ptr [$20000000]
00824815 7768 jnbe 0082487F
00824817 657265 jb 0082487F
0082481A 205946 and [ecx+$46], bl
0082481D 49 dec ecx
0082481E 643D27000000 cmp eax, $00000027
00824824 FFFF DB $FF, $FF //
00824826 FFFF DB $FF, $FF //
00824828 0400 add al, +$00
0082482A 0000 add [eax], al
0082482C 59 pop ecx
0082482D 46 inc esi
0082482E 49 dec ecx
0082482F 640000 add fs:[eax], al
00824832 0000 add [eax], al
00824834 55 push ebp
00824835 8BEC mov ebp, esp
00824837 B907000000 mov ecx, $00000007
0082483C 6A00 push $00
0082483E 6A00 push $00
00824840 49 dec ecx
00824841 75F9 jnz 0082483C
00824843 51 push ecx
00824844 53 push ebx
00824845 56 push esi
00824846 8BDA mov ebx, edx
00824848 8BF0 mov esi, eax
0082484A 33C0 xor eax, eax
0082484C 55 push ebp
* Possible String Reference to: '<27><>'
|
0082484D 68044A8200 push $00824A04
***** TRY
|
00824852 64FF30 push dword ptr fs:[eax]
00824855 648920 mov fs:[eax], esp
00824858 8D55FC lea edx, [ebp-$04]
0082485B 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;
|
0082485D E85AAED6FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
00824862 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00824868 E8DF7AE3FF 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;
|
0082486D E8F2D2E2FF call 00651B64
* Reference to field N.A..OFFS_0050
|
00824872 8B4050 mov eax, [eax+$50]
00824875 8D55F4 lea edx, [ebp-$0C]
00824878 8B08 mov ecx, [eax]
0082487A FF5110 call dword ptr [ecx+$10]
0082487D 8B45F4 mov eax, [ebp-$0C]
00824880 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824883 E86460BEFF call 0040A8EC
* Reference to control Label11 : TLabel
|
00824888 8B9E64030000 mov ebx, [esi+$0364]
0082488E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00824890 E8AB3BCAFF call 004C8440
00824895 8D55E0 lea edx, [ebp-$20]
00824898 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082489B E84C60BEFF call 0040A8EC
008248A0 8B55E0 mov edx, [ebp-$20]
008248A3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008248A6 E81D45BFFF call 00418DC8
008248AB 8D45E4 lea eax, [ebp-$1C]
008248AE 50 push eax
008248AF 8B55F8 mov edx, [ebp-$08]
008248B2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008248B4 E8FB22CAFF call 004C6BB4
008248B9 5A pop edx
008248BA 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
008248BC FF91B4000000 call dword ptr [ecx+$00B4]
008248C2 8BC3 mov eax, ebx
008248C4 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
008248C6 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
008248CC 8B9E0C030000 mov ebx, [esi+$030C]
008248D2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008248D4 E8FB0FCAFF call 004C58D4
008248D9 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;
|
008248DB E8CC96CBFF call 004DDFAC
008248E0 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
008248E2 FF5244 call dword ptr [edx+$44]
008248E5 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;
|
008248E7 E8C096CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008248EC BA1C4A8200 mov edx, $00824A1C
008248F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008248F3 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008248F6 68384A8200 push $00824A38
008248FB FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008248FE 68484A8200 push $00824A48
00824903 8D55D8 lea edx, [ebp-$28]
00824906 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824909 E8DE5FBEFF call 0040A8EC
0082490E FF75D8 push dword ptr [ebp-$28]
00824911 68544A8200 push $00824A54
00824916 8D45DC lea eax, [ebp-$24]
00824919 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0082491E E8910DBEFF call 004056B4
00824923 8B45DC mov eax, [ebp-$24]
00824926 50 push eax
00824927 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;
|
00824929 E87E96CBFF call 004DDFAC
0082492E 5A pop edx
0082492F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00824931 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00824934 68604A8200 push $00824A60
00824939 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYFFP._PROC_00824A1D(Sender : TObject);
begin
(*
00824A1D 50 push eax
00824A1E 6461 popa
00824A20 7465 jz 00824A87
00824A22 205946 and [ecx+$46], bl
00824A25 5F pop edi
00824A26 4D dec ebp
00824A27 6F outsd
00824A28 6E outsb
00824A29 65795F jns 00824A8B
00824A2C 43 inc ebx
00824A2D 52 push edx
00824A2E 2000 and [eax], al
00824A30 FFFF DB $FF, $FF //
00824A32 FFFF DB $FF, $FF //
00824A34 0500000020 add eax, +$20000000
00824A39 53 push ebx
00824A3A 657420 jz 00824A5D
00824A3D 0000 add [eax], al
00824A3F 00FF add bh, bh
00824A41 FFFF DB $FF, $FF //
00824A43 FF02 inc dword ptr [edx]
00824A45 0000 add [eax], al
00824A47 003D270000FF add [$FF000027], bh
00824A4D FFFF DB $FF, $FF //
00824A4F FF01 inc dword ptr [ecx]
00824A51 0000 add [eax], al
00824A53 0027 add [edi], ah
00824A55 0000 add [eax], al
00824A57 00FF add bh, bh
00824A59 FFFF DB $FF, $FF //
00824A5B FF09 dec dword ptr [ecx]
00824A5D 0000 add [eax], al
00824A5F 002C4564697465 add [$65746964+eax*2], ch
00824A66 723D jb 00824AA5
00824A68 27 daa
00824A69 0000 add [eax], al
00824A6B 00FF add bh, bh
00824A6D FFFF DB $FF, $FF //
00824A6F FF1400 call dword ptr [eax+eax]
00824A72 0000 add [eax], al
00824A74 2C45 sub al, $45
00824A76 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00824A7F 657464 jz 00824AE6
00824A82 61 popa
00824A83 7465 jz 00824AEA
00824A85 2829 sub [ecx], ch
00824A87 2000 and [eax], al
00824A89 0000 add [eax], al
00824A8B 00FF add bh, bh
00824A8D FFFF DB $FF, $FF //
00824A8F FF0D00000020 dec dword ptr [$20000000]
00824A95 7768 jnbe 00824AFF
00824A97 657265 jb 00824AFF
00824A9A 205946 and [ecx+$46], bl
00824A9D 49 dec ecx
00824A9E 643D27000000 cmp eax, $00000027
00824AA4 FFFF DB $FF, $FF //
00824AA6 FFFF DB $FF, $FF //
00824AA8 0400 add al, +$00
00824AAA 0000 add [eax], al
00824AAC 59 pop ecx
00824AAD 46 inc esi
00824AAE 49 dec ecx
00824AAF 640000 add fs:[eax], al
00824AB2 0000 add [eax], al
00824AB4 55 push ebp
00824AB5 8BEC mov ebp, esp
00824AB7 51 push ecx
00824AB8 B906000000 mov ecx, $00000006
00824ABD 6A00 push $00
00824ABF 6A00 push $00
00824AC1 49 dec ecx
00824AC2 75F9 jnz 00824ABD
00824AC4 51 push ecx
00824AC5 874DFC xchg [ebp-$04], ecx
00824AC8 53 push ebx
00824AC9 56 push esi
00824ACA 8BF0 mov esi, eax
00824ACC 33C0 xor eax, eax
00824ACE 55 push ebp
00824ACF 680B4D8200 push $00824D0B
***** TRY
|
00824AD4 64FF30 push dword ptr fs:[eax]
00824AD7 648920 mov fs:[eax], esp
00824ADA 33C0 xor eax, eax
00824ADC 55 push ebp
00824ADD 68E14C8200 push $00824CE1
***** TRY
|
00824AE2 64FF30 push dword ptr fs:[eax]
00824AE5 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00824D55(Sender : TObject);
begin
(*
00824D55 50 push eax
00824D56 6461 popa
00824D58 7465 jz 00824DBF
00824D5A 205946 and [ecx+$46], bl
00824D5D 5F pop edi
00824D5E 4D dec ebp
00824D5F 6F outsd
00824D60 6E outsb
00824D61 65795F jns 00824DC3
00824D64 43 inc ebx
00824D65 52 push edx
00824D66 2000 and [eax], al
00824D68 FFFF DB $FF, $FF //
00824D6A FFFF DB $FF, $FF //
00824D6C 0E push cs
00824D6D 0000 add [eax], al
00824D6F 0020 add [eax], ah
00824D71 53 push ebx
00824D72 657420 jz 00824D95
00824D75 50 push eax
00824D76 61 popa
00824D77 794D jns 00824DC6
00824D79 656E outsb
00824D7B 743D jz 00824DBA
00824D7D 27 daa
00824D7E 0000 add [eax], al
00824D80 FFFF DB $FF, $FF //
00824D82 FFFF DB $FF, $FF //
00824D84 0100 add [eax], eax
00824D86 0000 add [eax], al
00824D88 27 daa
00824D89 0000 add [eax], al
00824D8B 00FF add bh, bh
00824D8D FFFF DB $FF, $FF //
00824D8F FF09 dec dword ptr [ecx]
00824D91 0000 add [eax], al
00824D93 002C4564697465 add [$65746964+eax*2], ch
00824D9A 723D jb 00824DD9
00824D9C 27 daa
00824D9D 0000 add [eax], al
00824D9F 00FF add bh, bh
00824DA1 FFFF DB $FF, $FF //
00824DA3 FF1400 call dword ptr [eax+eax]
00824DA6 0000 add [eax], al
00824DA8 2C45 sub al, $45
00824DAA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00824DB3 657464 jz 00824E1A
00824DB6 61 popa
00824DB7 7465 jz 00824E1E
00824DB9 2829 sub [ecx], ch
00824DBB 2000 and [eax], al
00824DBD 0000 add [eax], al
00824DBF 00FF add bh, bh
00824DC1 FFFF DB $FF, $FF //
00824DC3 FF0D00000020 dec dword ptr [$20000000]
00824DC9 7768 jnbe 00824E33
00824DCB 657265 jb 00824E33
00824DCE 205946 and [ecx+$46], bl
00824DD1 49 dec ecx
00824DD2 643D27000000 cmp eax, $00000027
00824DD8 FFFF DB $FF, $FF //
00824DDA FFFF DB $FF, $FF //
00824DDC 0400 add al, +$00
00824DDE 0000 add [eax], al
00824DE0 59 pop ecx
00824DE1 46 inc esi
00824DE2 49 dec ecx
00824DE3 640000 add fs:[eax], al
00824DE6 0000 add [eax], al
00824DE8 56 push esi
* Reference to control DlyDate : N.A.
|
00824DE9 8B8014030000 mov eax, [eax+$0314]
00824DEF 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00824DF3 E85CF7BDFF call 00404554
00824DF8 5E pop esi
00824DF9 C3 ret
00824DFA 8BC0 mov eax, eax
00824DFC 55 push ebp
00824DFD 8BEC mov ebp, esp
00824DFF 51 push ecx
00824E00 B904000000 mov ecx, $00000004
00824E05 6A00 push $00
00824E07 6A00 push $00
00824E09 49 dec ecx
00824E0A 75F9 jnz 00824E05
00824E0C 51 push ecx
00824E0D 874DFC xchg [ebp-$04], ecx
00824E10 53 push ebx
00824E11 8945FC mov [ebp-$04], eax
00824E14 33C0 xor eax, eax
00824E16 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00824E17 6802508200 push $00825002
***** TRY
|
00824E1C 64FF30 push dword ptr fs:[eax]
00824E1F 648920 mov fs:[eax], esp
00824E22 80390D cmp byte ptr [ecx], $0D
00824E25 0F859C010000 jnz 00824FC7
00824E2B 8D55F4 lea edx, [ebp-$0C]
00824E2E 8B45FC mov eax, [ebp-$04]
* Reference to control v1PriceUnit : N.A.
|
00824E31 8B8084030000 mov eax, [eax+$0384]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00824E37 E8B437C6FF call 004885F0
00824E3C 8B45F4 mov eax, [ebp-$0C]
00824E3F 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824E42 E8A55ABEFF call 0040A8EC
00824E47 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
00824E4A E8A507BEFF call 004055F4
00824E4F 83F804 cmp eax, +$04
00824E52 0F8C6F010000 jl 00824FC7
00824E58 8B45FC mov eax, [ebp-$04]
* Reference to control Label9 : TLabel
|
00824E5B 8B8054030000 mov eax, [eax+$0354]
00824E61 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_00C4
|
00824E63 FF92C4000000 call dword ptr [edx+$00C4]
00824E69 33C0 xor eax, eax
00824E6B 55 push ebp
00824E6C 68C04F8200 push $00824FC0
***** TRY
|
00824E71 64FF30 push dword ptr fs:[eax]
00824E74 648920 mov fs:[eax], esp
00824E77 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00824E7A 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
00824E80 E8CF26CAFF call 004C7554
00824E85 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00824E88 8B9820030000 mov ebx, [eax+$0320]
00824E8E 33D2 xor edx, edx
00824E90 8BC3 mov eax, ebx
00824E92 8B08 mov ecx, [eax]
* Possible reference to virtual method TToolButton.OFFS_0190
|
00824E94 FF9190010000 call dword ptr [ecx+$0190]
00824E9A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00824E9C E8330ACAFF call 004C58D4
00824EA1 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824EA3 E80491CBFF call 004DDFAC
00824EA8 8B10 mov edx, [eax]
* Reference to method TToolButton.GetClientRect()
|
00824EAA FF5244 call dword ptr [edx+$44]
00824EAD 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824EAF E8F890CBFF call 004DDFAC
* Possible String Reference to: ' select A.*,C.OrderNo '
|
00824EB4 BA18508200 mov edx, $00825018
00824EB9 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00824EBB FF5138 call dword ptr [ecx+$38]
00824EBE 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824EC0 E8E790CBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00824EC5 BA38508200 mov edx, $00825038
00824ECA 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00824ECC FF5138 call dword ptr [ecx+$38]
00824ECF 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824ED1 E8D690CBFF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
| =B.CRID'
|
00824ED6 BA58508200 mov edx, $00825058
00824EDB 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00824EDD FF5138 call dword ptr [ecx+$38]
00824EE0 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824EE2 E8C590CBFF call 004DDFAC
* Possible String Reference to: ' left join JYOrder_Main C on A.Main
| Id=C.MainId'
|
00824EE7 BA8C508200 mov edx, $0082508C
00824EEC 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00824EEE FF5138 call dword ptr [ecx+$38]
00824EF1 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824EF3 E8B490CBFF call 004DDFAC
* Possible String Reference to: 'where C.orderNo like :OrderNo'
|
00824EF8 BAC4508200 mov edx, $008250C4
00824EFD 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00824EFF FF5138 call dword ptr [ecx+$38]
00824F02 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00824F04 E8A390CBFF call 004DDFAC
* Possible String Reference to: 'and A.CRType='Ӧ<><D3A6><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>''
|
00824F09 BAEC508200 mov edx, $008250EC
00824F0E 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00824F10 FF5138 call dword ptr [ecx+$38]
00824F13 6814518200 push $00825114
00824F18 8D55D8 lea edx, [ebp-$28]
00824F1B 8B45FC mov eax, [ebp-$04]
* Reference to control v1PriceUnit : N.A.
|
00824F1E 8B8084030000 mov eax, [eax+$0384]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00824F24 E8C736C6FF call 004885F0
00824F29 8B45D8 mov eax, [ebp-$28]
00824F2C 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00824F2F E8B859BEFF call 0040A8EC
00824F34 FF75DC push dword ptr [ebp-$24]
00824F37 6814518200 push $00825114
00824F3C 8D45E0 lea eax, [ebp-$20]
00824F3F BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00824F44 E86B07BEFF call 004056B4
00824F49 8B55E0 mov edx, [ebp-$20]
00824F4C 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00824F4F E8743EBFFF call 00418DC8
00824F54 8D45E4 lea eax, [ebp-$1C]
00824F57 50 push eax
00824F58 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
00824F5A E89173CBFF call 004DC2F0
00824F5F BA1C518200 mov edx, $0082511C
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
00824F64 E897F4CAFF call 004D4400
00824F69 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
00824F6A E85507CBFF call 004D56C4
00824F6F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00824F71 E85209CAFF call 004C58C8
00824F76 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
00824F79 8B9064030000 mov edx, [eax+$0364]
00824F7F 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00824F82 8B8020030000 mov eax, [eax+$0320]
|
00824F88 E8031FF9FF call 007B6E90
00824F8D 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
00824F90 8B9064030000 mov edx, [eax+$0364]
00824F96 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00824F99 8B8020030000 mov eax, [eax+$0320]
|
00824F9F E87420F9FF call 007B7018
00824FA4 33C0 xor eax, eax
00824FA6 5A pop edx
00824FA7 59 pop ecx
00824FA8 59 pop ecx
00824FA9 648910 mov fs:[eax], edx
****** FINALLY
|
00824FAC 68C74F8200 push $00824FC7
00824FB1 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00824FB4 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00824FBA E8B525CAFF call 004C7574
00824FBF C3 ret
* Reference to: System.@HandleFinally;
|
00824FC0 E92FFBBDFF jmp 00404AF4
00824FC5 EBEA jmp 00824FB1
****** END
|
00824FC7 33C0 xor eax, eax
00824FC9 5A pop edx
00824FCA 59 pop ecx
00824FCB 59 pop ecx
00824FCC 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
00824FCF 6809508200 push $00825009
00824FD4 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
00824FD7 E84803BEFF call 00405324
00824FDC 8D45DC lea eax, [ebp-$24]
00824FDF BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00824FE4 E85F03BEFF call 00405348
00824FE9 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00824FEC E883F6BEFF call 00414674
00824FF1 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
00824FF4 E82B03BEFF call 00405324
00824FF9 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
00824FFC E82303BEFF call 00405324
00825001 C3 ret
*)
end;
procedure TfrmYFFP._PROC_00825551(Sender : TObject);
begin
(*
00825551 50 push eax
00825552 6461 popa
00825554 7465 jz 008255BB
00825556 205946 and [ecx+$46], bl
00825559 5F pop edi
0082555A 4D dec ebp
0082555B 6F outsd
0082555C 6E outsb
0082555D 65795F jns 008255BF
00825560 43 inc ebx
00825561 52 push edx
00825562 2000 and [eax], al
00825564 FFFF DB $FF, $FF //
00825566 FFFF DB $FF, $FF //
00825568 0E push cs
00825569 0000 add [eax], al
0082556B 0020 add [eax], ah
0082556D 53 push ebx
0082556E 657420 jz 00825591
00825571 4F dec edi
00825572 7264 jb 008255D8
00825574 65724E jb 008255C5
00825577 4F dec edi
00825578 3D270000FF cmp eax, $FF000027
0082557D FFFF DB $FF, $FF //
0082557F FF07 inc dword ptr [edi]
00825581 0000 add [eax], al
00825583 004F72 add [edi+$72], cl
00825586 6465724E jb 008255D8
0082558A 4F dec edi
0082558B 00FF add bh, bh
0082558D FFFF DB $FF, $FF //
0082558F FF01 inc dword ptr [ecx]
00825591 0000 add [eax], al
00825593 0027 add [edi], ah
00825595 0000 add [eax], al
00825597 00FF add bh, bh
00825599 FFFF DB $FF, $FF //
0082559B FF0E dec dword ptr [esi]
0082559D 0000 add [eax], al
0082559F 0020 add [eax], ah
008255A1 2C50 sub al, $50
008255A3 5F pop edi
008255A4 43 inc ebx
008255A5 6F outsd
008255A6 64654E dec esi
008255A9 61 popa
008255AA 6D insd
008255AB 653D270000FF cmp eax, $FF000027
008255B1 FFFF DB $FF, $FF //
008255B3 FF0A dec dword ptr [edx]
008255B5 0000 add [eax], al
008255B7 0020 add [eax], ah
008255B9 2C50 sub al, $50
008255BB 5F pop edi
008255BC 53 push ebx
008255BD 7065 jo 00825624
008255BF 633D270000FF arpl [$FF000027], di
008255C5 FFFF DB $FF, $FF //
008255C7 FF09 dec dword ptr [ecx]
008255C9 0000 add [eax], al
008255CB 002C4564697465 add [$65746964+eax*2], ch
008255D2 723D jb 00825611
008255D4 27 daa
008255D5 0000 add [eax], al
008255D7 00FF add bh, bh
008255D9 FFFF DB $FF, $FF //
008255DB FF1400 call dword ptr [eax+eax]
008255DE 0000 add [eax], al
008255E0 2C45 sub al, $45
008255E2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008255EB 657464 jz 00825652
008255EE 61 popa
008255EF 7465 jz 00825656
008255F1 2829 sub [ecx], ch
008255F3 2000 and [eax], al
008255F5 0000 add [eax], al
008255F7 00FF add bh, bh
008255F9 FFFF DB $FF, $FF //
008255FB FF0D00000020 dec dword ptr [$20000000]
00825601 7768 jnbe 0082566B
00825603 657265 jb 0082566B
00825606 205946 and [ecx+$46], bl
00825609 49 dec ecx
0082560A 643D27000000 cmp eax, $00000027
00825610 FFFF DB $FF, $FF //
00825612 FFFF DB $FF, $FF //
00825614 0400 add al, +$00
00825616 0000 add [eax], al
00825618 59 pop ecx
00825619 46 inc esi
0082561A 49 dec ecx
0082561B 640000 add fs:[eax], al
0082561E 0000 add [eax], al
00825620 55 push ebp
00825621 8BEC mov ebp, esp
00825623 51 push ecx
00825624 B906000000 mov ecx, $00000006
00825629 6A00 push $00
0082562B 6A00 push $00
0082562D 49 dec ecx
0082562E 75F9 jnz 00825629
00825630 51 push ecx
00825631 874DFC xchg [ebp-$04], ecx
00825634 53 push ebx
00825635 56 push esi
00825636 8BF0 mov esi, eax
00825638 33C0 xor eax, eax
0082563A 55 push ebp
0082563B 6877588200 push $00825877
***** TRY
|
00825640 64FF30 push dword ptr fs:[eax]
00825643 648920 mov fs:[eax], esp
00825646 33C0 xor eax, eax
00825648 55 push ebp
00825649 684D588200 push $0082584D
***** TRY
|
0082564E 64FF30 push dword ptr fs:[eax]
00825651 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_008258C5(Sender : TObject);
begin
(*
008258C5 50 push eax
008258C6 6461 popa
008258C8 7465 jz 0082592F
008258CA 205946 and [ecx+$46], bl
008258CD 5F pop edi
008258CE 4D dec ebp
008258CF 6F outsd
008258D0 6E outsb
008258D1 65795F jns 00825933
008258D4 43 inc ebx
008258D5 52 push edx
008258D6 2000 and [eax], al
008258D8 FFFF DB $FF, $FF //
008258DA FFFF DB $FF, $FF //
008258DC 1000 adc [eax], al
008258DE 0000 add [eax], al
008258E0 205365 and [ebx+$65], dl
008258E3 7420 jz 00825905
008258E5 43 inc ebx
008258E6 6F outsd
008258E7 6D insd
008258E8 54 push esp
008258E9 61 popa
008258EA 69746F753D270000 imul esi, [edi+ebp*2+$75], $0000273D
008258F2 0000 add [eax], al
008258F4 FFFF DB $FF, $FF //
008258F6 FFFF DB $FF, $FF //
008258F8 0100 add [eax], eax
008258FA 0000 add [eax], al
008258FC 27 daa
008258FD 0000 add [eax], al
008258FF 00FF add bh, bh
00825901 FFFF DB $FF, $FF //
00825903 FF09 dec dword ptr [ecx]
00825905 0000 add [eax], al
00825907 002C4564697465 add [$65746964+eax*2], ch
0082590E 723D jb 0082594D
00825910 27 daa
00825911 0000 add [eax], al
00825913 00FF add bh, bh
00825915 FFFF DB $FF, $FF //
00825917 FF1400 call dword ptr [eax+eax]
0082591A 0000 add [eax], al
0082591C 2C45 sub al, $45
0082591E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00825927 657464 jz 0082598E
0082592A 61 popa
0082592B 7465 jz 00825992
0082592D 2829 sub [ecx], ch
0082592F 2000 and [eax], al
00825931 0000 add [eax], al
00825933 00FF add bh, bh
00825935 FFFF DB $FF, $FF //
00825937 FF0D00000020 dec dword ptr [$20000000]
0082593D 7768 jnbe 008259A7
0082593F 657265 jb 008259A7
00825942 205946 and [ecx+$46], bl
00825945 49 dec ecx
00825946 643D27000000 cmp eax, $00000027
0082594C FFFF DB $FF, $FF //
0082594E FFFF DB $FF, $FF //
00825950 0400 add al, +$00
00825952 0000 add [eax], al
00825954 59 pop ecx
00825955 46 inc esi
00825956 49 dec ecx
00825957 640000 add fs:[eax], al
0082595A 0000 add [eax], al
0082595C 55 push ebp
0082595D 8BEC mov ebp, esp
0082595F 51 push ecx
00825960 B906000000 mov ecx, $00000006
00825965 6A00 push $00
00825967 6A00 push $00
00825969 49 dec ecx
0082596A 75F9 jnz 00825965
0082596C 51 push ecx
0082596D 874DFC xchg [ebp-$04], ecx
00825970 53 push ebx
00825971 56 push esi
00825972 8BF0 mov esi, eax
00825974 33C0 xor eax, eax
00825976 55 push ebp
* Possible String Reference to: '<27>:<3A><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00825977 68B55B8200 push $00825BB5
***** TRY
|
0082597C 64FF30 push dword ptr fs:[eax]
0082597F 648920 mov fs:[eax], esp
00825982 33C0 xor eax, eax
00825984 55 push ebp
00825985 688B5B8200 push $00825B8B
***** TRY
|
0082598A 64FF30 push dword ptr fs:[eax]
0082598D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00825BFD(Sender : TObject);
begin
(*
00825BFD 50 push eax
00825BFE 6461 popa
00825C00 7465 jz 00825C67
00825C02 205946 and [ecx+$46], bl
00825C05 5F pop edi
00825C06 4D dec ebp
00825C07 6F outsd
00825C08 6E outsb
00825C09 65795F jns 00825C6B
00825C0C 43 inc ebx
00825C0D 52 push edx
00825C0E 2000 and [eax], al
00825C10 FFFF DB $FF, $FF //
00825C12 FFFF DB $FF, $FF //
00825C14 0D00000020 or eax, $20000000
00825C19 53 push ebx
00825C1A 657420 jz 00825C3D
00825C1D 42 inc edx
00825C1E 5A pop edx
00825C1F 54 push esp
00825C20 7970 jns 00825C92
00825C22 653D27000000 cmp eax, $00000027
00825C28 FFFF DB $FF, $FF //
00825C2A FFFF DB $FF, $FF //
00825C2C 07 pop es
00825C2D 0000 add [eax], al
00825C2F 005A64 add [edx+$64], bl
00825C32 794E jns 00825C82
00825C34 61 popa
00825C35 6D insd
00825C36 6500FF add bh, bh
00825C39 FFFF DB $FF, $FF //
00825C3B FF01 inc dword ptr [ecx]
00825C3D 0000 add [eax], al
00825C3F 0027 add [edi], ah
00825C41 0000 add [eax], al
00825C43 00FF add bh, bh
00825C45 FFFF DB $FF, $FF //
00825C47 FF09 dec dword ptr [ecx]
00825C49 0000 add [eax], al
00825C4B 002C4564697465 add [$65746964+eax*2], ch
00825C52 723D jb 00825C91
00825C54 27 daa
00825C55 0000 add [eax], al
00825C57 00FF add bh, bh
00825C59 FFFF DB $FF, $FF //
00825C5B FF1400 call dword ptr [eax+eax]
00825C5E 0000 add [eax], al
00825C60 2C45 sub al, $45
00825C62 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00825C6B 657464 jz 00825CD2
00825C6E 61 popa
00825C6F 7465 jz 00825CD6
00825C71 2829 sub [ecx], ch
00825C73 2000 and [eax], al
00825C75 0000 add [eax], al
00825C77 00FF add bh, bh
00825C79 FFFF DB $FF, $FF //
00825C7B FF0D00000020 dec dword ptr [$20000000]
00825C81 7768 jnbe 00825CEB
00825C83 657265 jb 00825CEB
00825C86 205946 and [ecx+$46], bl
00825C89 49 dec ecx
00825C8A 643D27000000 cmp eax, $00000027
00825C90 FFFF DB $FF, $FF //
00825C92 FFFF DB $FF, $FF //
00825C94 0400 add al, +$00
00825C96 0000 add [eax], al
00825C98 59 pop ecx
00825C99 46 inc esi
00825C9A 49 dec ecx
00825C9B 640000 add fs:[eax], al
00825C9E 0000 add [eax], al
00825CA0 55 push ebp
00825CA1 8BEC mov ebp, esp
00825CA3 51 push ecx
00825CA4 B906000000 mov ecx, $00000006
00825CA9 6A00 push $00
00825CAB 6A00 push $00
00825CAD 49 dec ecx
00825CAE 75F9 jnz 00825CA9
00825CB0 51 push ecx
00825CB1 874DFC xchg [ebp-$04], ecx
00825CB4 53 push ebx
00825CB5 56 push esi
00825CB6 8BF0 mov esi, eax
00825CB8 33C0 xor eax, eax
00825CBA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00825CBB 68F95E8200 push $00825EF9
***** TRY
|
00825CC0 64FF30 push dword ptr fs:[eax]
00825CC3 648920 mov fs:[eax], esp
00825CC6 33C0 xor eax, eax
00825CC8 55 push ebp
00825CC9 68CF5E8200 push $00825ECF
***** TRY
|
00825CCE 64FF30 push dword ptr fs:[eax]
00825CD1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00825F41(Sender : TObject);
begin
(*
00825F41 50 push eax
00825F42 6461 popa
00825F44 7465 jz 00825FAB
00825F46 205946 and [ecx+$46], bl
00825F49 5F pop edi
00825F4A 4D dec ebp
00825F4B 6F outsd
00825F4C 6E outsb
00825F4D 65795F jns 00825FAF
00825F50 43 inc ebx
00825F51 52 push edx
00825F52 2000 and [eax], al
00825F54 FFFF DB $FF, $FF //
00825F56 FFFF DB $FF, $FF //
00825F58 0D00000020 or eax, $20000000
00825F5D 53 push ebx
00825F5E 657420 jz 00825F81
00825F61 50 push eax
00825F62 5F pop edi
00825F63 53 push ebx
00825F64 7065 jo 00825FCB
00825F66 633D27000000 arpl [$00000027], di
00825F6C FFFF DB $FF, $FF //
00825F6E FFFF DB $FF, $FF //
00825F70 07 pop es
00825F71 0000 add [eax], al
00825F73 005A64 add [edx+$64], bl
00825F76 794E jns 00825FC6
00825F78 61 popa
00825F79 6D insd
00825F7A 6500FF add bh, bh
00825F7D FFFF DB $FF, $FF //
00825F7F FF01 inc dword ptr [ecx]
00825F81 0000 add [eax], al
00825F83 0027 add [edi], ah
00825F85 0000 add [eax], al
00825F87 00FF add bh, bh
00825F89 FFFF DB $FF, $FF //
00825F8B FF09 dec dword ptr [ecx]
00825F8D 0000 add [eax], al
00825F8F 002C4564697465 add [$65746964+eax*2], ch
00825F96 723D jb 00825FD5
00825F98 27 daa
00825F99 0000 add [eax], al
00825F9B 00FF add bh, bh
00825F9D FFFF DB $FF, $FF //
00825F9F FF1400 call dword ptr [eax+eax]
00825FA2 0000 add [eax], al
00825FA4 2C45 sub al, $45
00825FA6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00825FAF 657464 jz 00826016
00825FB2 61 popa
00825FB3 7465 jz 0082601A
00825FB5 2829 sub [ecx], ch
00825FB7 2000 and [eax], al
00825FB9 0000 add [eax], al
00825FBB 00FF add bh, bh
00825FBD FFFF DB $FF, $FF //
00825FBF FF0D00000020 dec dword ptr [$20000000]
00825FC5 7768 jnbe 0082602F
00825FC7 657265 jb 0082602F
00825FCA 205946 and [ecx+$46], bl
00825FCD 49 dec ecx
00825FCE 643D27000000 cmp eax, $00000027
00825FD4 FFFF DB $FF, $FF //
00825FD6 FFFF DB $FF, $FF //
00825FD8 0400 add al, +$00
00825FDA 0000 add [eax], al
00825FDC 59 pop ecx
00825FDD 46 inc esi
00825FDE 49 dec ecx
00825FDF 640000 add fs:[eax], al
00825FE2 0000 add [eax], al
00825FE4 55 push ebp
00825FE5 8BEC mov ebp, esp
00825FE7 B905000000 mov ecx, $00000005
00825FEC 6A00 push $00
00825FEE 6A00 push $00
00825FF0 49 dec ecx
00825FF1 75F9 jnz 00825FEC
00825FF3 51 push ecx
00825FF4 53 push ebx
00825FF5 56 push esi
00825FF6 8BDA mov ebx, edx
00825FF8 8BF0 mov esi, eax
00825FFA 33C0 xor eax, eax
00825FFC 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00825FFD 6838618200 push $00826138
***** TRY
|
00826002 64FF30 push dword ptr fs:[eax]
00826005 648920 mov fs:[eax], esp
00826008 8D55FC lea edx, [ebp-$04]
0082600B 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;
|
0082600D E8AA96D6FF call 0058F6BC
* Reference to control Label11 : TLabel
|
00826012 8B9E64030000 mov ebx, [esi+$0364]
00826018 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082601A E82124CAFF call 004C8440
0082601F 8D55E8 lea edx, [ebp-$18]
00826022 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826025 E8C248BEFF call 0040A8EC
0082602A 8B55E8 mov edx, [ebp-$18]
0082602D 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00826030 E8932DBFFF call 00418DC8
00826035 8D45EC lea eax, [ebp-$14]
00826038 50 push eax
* Possible String Reference to: 'P_CodeName'
|
00826039 BA50618200 mov edx, $00826150
0082603E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826040 E86F0BCAFF call 004C6BB4
00826045 5A pop edx
00826046 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00826048 FF91B4000000 call dword ptr [ecx+$00B4]
0082604E 8BC3 mov eax, ebx
00826050 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
00826052 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00826058 8B9E0C030000 mov ebx, [esi+$030C]
0082605E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00826060 E86FF8C9FF call 004C58D4
00826065 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;
|
00826067 E8407FCBFF call 004DDFAC
0082606C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0082606E FF5244 call dword ptr [edx+$44]
00826071 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;
|
00826073 E8347FCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826078 BA64618200 mov edx, $00826164
0082607D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082607F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set P_CodeName=''
|
00826082 6880618200 push $00826180
00826087 8D55E0 lea edx, [ebp-$20]
0082608A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082608D E85A48BEFF call 0040A8EC
00826092 FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00826095 689C618200 push $0082619C
0082609A 8D45E4 lea eax, [ebp-$1C]
0082609D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008260A2 E80DF6BDFF call 004056B4
008260A7 8B45E4 mov eax, [ebp-$1C]
008260AA 50 push eax
008260AB 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;
|
008260AD E8FA7ECBFF call 004DDFAC
008260B2 5A pop edx
008260B3 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008260B5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008260B8 68A8618200 push $008261A8
* Possible String Reference to: 'YFId'
|
008260BD BAC0618200 mov edx, $008261C0
* Reference to control Label11 : TLabel
|
008260C2 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008260C8 E8E70ACAFF call 004C6BB4
008260CD 8D55D4 lea edx, [ebp-$2C]
008260D0 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
008260D2 FF5160 call dword ptr [ecx+$60]
008260D5 8B45D4 mov eax, [ebp-$2C]
008260D8 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008260DB E80C48BEFF call 0040A8EC
008260E0 FF75D8 push dword ptr [ebp-$28]
008260E3 68D0618200 push $008261D0
008260E8 8D45DC lea eax, [ebp-$24]
008260EB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008260F0 E8BFF5BDFF call 004056B4
008260F5 8B45DC mov eax, [ebp-$24]
008260F8 50 push eax
008260F9 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;
|
008260FB E8AC7ECBFF call 004DDFAC
00826100 5A pop edx
00826101 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00826103 FF5138 call dword ptr [ecx+$38]
00826106 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00826108 E8C77DCBFF call 004DDED4
0082610D 33C0 xor eax, eax
0082610F 5A pop edx
00826110 59 pop ecx
00826111 59 pop ecx
00826112 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00826115 683F618200 push $0082613F
0082611A 8D45D4 lea eax, [ebp-$2C]
0082611D BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00826122 E821F2BDFF call 00405348
00826127 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0082612A E845E5BEFF call 00414674
0082612F 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00826132 E8EDF1BDFF call 00405324
00826137 C3 ret
*)
end;
procedure TfrmYFFP._PROC_00826165(Sender : TObject);
begin
(*
00826165 50 push eax
00826166 6461 popa
00826168 7465 jz 008261CF
0082616A 205946 and [ecx+$46], bl
0082616D 5F pop edi
0082616E 4D dec ebp
0082616F 6F outsd
00826170 6E outsb
00826171 65795F jns 008261D3
00826174 43 inc ebx
00826175 52 push edx
00826176 2000 and [eax], al
00826178 FFFF DB $FF, $FF //
0082617A FFFF DB $FF, $FF //
0082617C 1100 adc [eax], eax
0082617E 0000 add [eax], al
00826180 205365 and [ebx+$65], dl
00826183 7420 jz 008261A5
00826185 50 push eax
00826186 5F pop edi
00826187 43 inc ebx
00826188 6F outsd
00826189 64654E dec esi
0082618C 61 popa
0082618D 6D insd
0082618E 653D27000000 cmp eax, $00000027
00826194 FFFF DB $FF, $FF //
00826196 FFFF DB $FF, $FF //
00826198 0200 add al, byte ptr [eax]
0082619A 0000 add [eax], al
0082619C 27 daa
0082619D 2000 and [eax], al
0082619F 00FF add bh, bh
008261A1 FFFF DB $FF, $FF //
008261A3 FF0D00000020 dec dword ptr [$20000000]
008261A9 7768 jnbe 00826213
008261AB 657265 jb 00826213
008261AE 205946 and [ecx+$46], bl
008261B1 49 dec ecx
008261B2 643D27000000 cmp eax, $00000027
008261B8 FFFF DB $FF, $FF //
008261BA FFFF DB $FF, $FF //
008261BC 0400 add al, +$00
008261BE 0000 add [eax], al
008261C0 59 pop ecx
008261C1 46 inc esi
008261C2 49 dec ecx
008261C3 640000 add fs:[eax], al
008261C6 0000 add [eax], al
008261C8 FFFF DB $FF, $FF //
008261CA FFFF DB $FF, $FF //
008261CC 0100 add [eax], eax
008261CE 0000 add [eax], al
008261D0 27 daa
008261D1 0000 add [eax], al
008261D3 00558B add [ebp-$75], dl
008261D6 EC in al, dx
008261D7 B905000000 mov ecx, $00000005
008261DC 6A00 push $00
008261DE 6A00 push $00
008261E0 49 dec ecx
008261E1 75F9 jnz 008261DC
008261E3 51 push ecx
008261E4 53 push ebx
008261E5 56 push esi
008261E6 8BDA mov ebx, edx
008261E8 8BF0 mov esi, eax
008261EA 33C0 xor eax, eax
008261EC 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008261ED 6828638200 push $00826328
***** TRY
|
008261F2 64FF30 push dword ptr fs:[eax]
008261F5 648920 mov fs:[eax], esp
008261F8 8D55FC lea edx, [ebp-$04]
008261FB 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;
|
008261FD E8BA94D6FF call 0058F6BC
* Reference to control Label11 : TLabel
|
00826202 8B9E64030000 mov ebx, [esi+$0364]
00826208 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0082620A E83122CAFF call 004C8440
0082620F 8D55E8 lea edx, [ebp-$18]
00826212 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826215 E8D246BEFF call 0040A8EC
0082621A 8B55E8 mov edx, [ebp-$18]
0082621D 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00826220 E8A32BBFFF call 00418DC8
00826225 8D45EC lea eax, [ebp-$14]
00826228 50 push eax
* Possible String Reference to: 'P_Spec'
|
00826229 BA40638200 mov edx, $00826340
0082622E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826230 E87F09CAFF call 004C6BB4
00826235 5A pop edx
00826236 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00826238 FF91B4000000 call dword ptr [ecx+$00B4]
0082623E 8BC3 mov eax, ebx
00826240 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
00826242 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00826248 8B9E0C030000 mov ebx, [esi+$030C]
0082624E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00826250 E87FF6C9FF call 004C58D4
00826255 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;
|
00826257 E8507DCBFF call 004DDFAC
0082625C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0082625E FF5244 call dword ptr [edx+$44]
00826261 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;
|
00826263 E8447DCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826268 BA50638200 mov edx, $00826350
0082626D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082626F FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set P_Spec=''
|
00826272 686C638200 push $0082636C
00826277 8D55E0 lea edx, [ebp-$20]
0082627A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082627D E86A46BEFF call 0040A8EC
00826282 FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00826285 6884638200 push $00826384
0082628A 8D45E4 lea eax, [ebp-$1C]
0082628D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00826292 E81DF4BDFF call 004056B4
00826297 8B45E4 mov eax, [ebp-$1C]
0082629A 50 push eax
0082629B 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;
|
0082629D E80A7DCBFF call 004DDFAC
008262A2 5A pop edx
008262A3 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008262A5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008262A8 6890638200 push $00826390
* Possible String Reference to: 'YFId'
|
008262AD BAA8638200 mov edx, $008263A8
* Reference to control Label11 : TLabel
|
008262B2 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008262B8 E8F708CAFF call 004C6BB4
008262BD 8D55D4 lea edx, [ebp-$2C]
008262C0 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
008262C2 FF5160 call dword ptr [ecx+$60]
008262C5 8B45D4 mov eax, [ebp-$2C]
008262C8 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008262CB E81C46BEFF call 0040A8EC
008262D0 FF75D8 push dword ptr [ebp-$28]
008262D3 68B8638200 push $008263B8
008262D8 8D45DC lea eax, [ebp-$24]
008262DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008262E0 E8CFF3BDFF call 004056B4
008262E5 8B45DC mov eax, [ebp-$24]
008262E8 50 push eax
008262E9 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;
|
008262EB E8BC7CCBFF call 004DDFAC
008262F0 5A pop edx
008262F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008262F3 FF5138 call dword ptr [ecx+$38]
008262F6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008262F8 E8D77BCBFF call 004DDED4
008262FD 33C0 xor eax, eax
008262FF 5A pop edx
00826300 59 pop ecx
00826301 59 pop ecx
00826302 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00826305 682F638200 push $0082632F
0082630A 8D45D4 lea eax, [ebp-$2C]
0082630D BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00826312 E831F0BDFF call 00405348
00826317 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0082631A E855E3BEFF call 00414674
0082631F 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00826322 E8FDEFBDFF call 00405324
00826327 C3 ret
*)
end;
procedure TfrmYFFP._PROC_00826351(Sender : TObject);
begin
(*
00826351 50 push eax
00826352 6461 popa
00826354 7465 jz 008263BB
00826356 205946 and [ecx+$46], bl
00826359 5F pop edi
0082635A 4D dec ebp
0082635B 6F outsd
0082635C 6E outsb
0082635D 65795F jns 008263BF
00826360 43 inc ebx
00826361 52 push edx
00826362 2000 and [eax], al
00826364 FFFF DB $FF, $FF //
00826366 FFFF DB $FF, $FF //
00826368 0D00000020 or eax, $20000000
0082636D 53 push ebx
0082636E 657420 jz 00826391
00826371 50 push eax
00826372 5F pop edi
00826373 53 push ebx
00826374 7065 jo 008263DB
00826376 633D27000000 arpl [$00000027], di
0082637C FFFF DB $FF, $FF //
0082637E FFFF DB $FF, $FF //
00826380 0200 add al, byte ptr [eax]
00826382 0000 add [eax], al
00826384 27 daa
00826385 2000 and [eax], al
00826387 00FF add bh, bh
00826389 FFFF DB $FF, $FF //
0082638B FF0D00000020 dec dword ptr [$20000000]
00826391 7768 jnbe 008263FB
00826393 657265 jb 008263FB
00826396 205946 and [ecx+$46], bl
00826399 49 dec ecx
0082639A 643D27000000 cmp eax, $00000027
008263A0 FFFF DB $FF, $FF //
008263A2 FFFF DB $FF, $FF //
008263A4 0400 add al, +$00
008263A6 0000 add [eax], al
008263A8 59 pop ecx
008263A9 46 inc esi
008263AA 49 dec ecx
008263AB 640000 add fs:[eax], al
008263AE 0000 add [eax], al
008263B0 FFFF DB $FF, $FF //
008263B2 FFFF DB $FF, $FF //
008263B4 0100 add [eax], eax
008263B6 0000 add [eax], al
008263B8 27 daa
008263B9 0000 add [eax], al
008263BB 00558B add [ebp-$75], dl
008263BE EC in al, dx
008263BF B905000000 mov ecx, $00000005
008263C4 6A00 push $00
008263C6 6A00 push $00
008263C8 49 dec ecx
008263C9 75F9 jnz 008263C4
008263CB 51 push ecx
008263CC 53 push ebx
008263CD 56 push esi
008263CE 8BDA mov ebx, edx
008263D0 8BF0 mov esi, eax
008263D2 33C0 xor eax, eax
008263D4 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008263D5 6810658200 push $00826510
***** TRY
|
008263DA 64FF30 push dword ptr fs:[eax]
008263DD 648920 mov fs:[eax], esp
008263E0 8D55FC lea edx, [ebp-$04]
008263E3 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;
|
008263E5 E8D292D6FF call 0058F6BC
* Reference to control Label11 : TLabel
|
008263EA 8B9E64030000 mov ebx, [esi+$0364]
008263F0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008263F2 E84920CAFF call 004C8440
008263F7 8D55E8 lea edx, [ebp-$18]
008263FA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008263FD E8EA44BEFF call 0040A8EC
00826402 8B55E8 mov edx, [ebp-$18]
00826405 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00826408 E8BB29BFFF call 00418DC8
0082640D 8D45EC lea eax, [ebp-$14]
00826410 50 push eax
* Possible String Reference to: 'KPNO'
|
00826411 BA28658200 mov edx, $00826528
00826416 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826418 E89707CAFF call 004C6BB4
0082641D 5A pop edx
0082641E 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00826420 FF91B4000000 call dword ptr [ecx+$00B4]
00826426 8BC3 mov eax, ebx
00826428 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
0082642A FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00826430 8B9E0C030000 mov ebx, [esi+$030C]
00826436 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00826438 E897F4C9FF call 004C58D4
0082643D 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;
|
0082643F E8687BCBFF call 004DDFAC
00826444 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00826446 FF5244 call dword ptr [edx+$44]
00826449 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;
|
0082644B E85C7BCBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826450 BA38658200 mov edx, $00826538
00826455 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00826457 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPNO=''
|
0082645A 6854658200 push $00826554
0082645F 8D55E0 lea edx, [ebp-$20]
00826462 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826465 E88244BEFF call 0040A8EC
0082646A FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
0082646D 6868658200 push $00826568
00826472 8D45E4 lea eax, [ebp-$1C]
00826475 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0082647A E835F2BDFF call 004056B4
0082647F 8B45E4 mov eax, [ebp-$1C]
00826482 50 push eax
00826483 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;
|
00826485 E8227BCBFF call 004DDFAC
0082648A 5A pop edx
0082648B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082648D FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00826490 6874658200 push $00826574
* Possible String Reference to: 'YFId'
|
00826495 BA8C658200 mov edx, $0082658C
* Reference to control Label11 : TLabel
|
0082649A 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008264A0 E80F07CAFF call 004C6BB4
008264A5 8D55D4 lea edx, [ebp-$2C]
008264A8 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
008264AA FF5160 call dword ptr [ecx+$60]
008264AD 8B45D4 mov eax, [ebp-$2C]
008264B0 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008264B3 E83444BEFF call 0040A8EC
008264B8 FF75D8 push dword ptr [ebp-$28]
008264BB 689C658200 push $0082659C
008264C0 8D45DC lea eax, [ebp-$24]
008264C3 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008264C8 E8E7F1BDFF call 004056B4
008264CD 8B45DC mov eax, [ebp-$24]
008264D0 50 push eax
008264D1 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;
|
008264D3 E8D47ACBFF call 004DDFAC
008264D8 5A pop edx
008264D9 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008264DB FF5138 call dword ptr [ecx+$38]
008264DE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008264E0 E8EF79CBFF call 004DDED4
008264E5 33C0 xor eax, eax
008264E7 5A pop edx
008264E8 59 pop ecx
008264E9 59 pop ecx
008264EA 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008264ED 6817658200 push $00826517
008264F2 8D45D4 lea eax, [ebp-$2C]
008264F5 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008264FA E849EEBDFF call 00405348
008264FF 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00826502 E86DE1BEFF call 00414674
00826507 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
0082650A E815EEBDFF call 00405324
0082650F C3 ret
*)
end;
procedure TfrmYFFP._PROC_00826539(Sender : TObject);
begin
(*
00826539 50 push eax
0082653A 6461 popa
0082653C 7465 jz 008265A3
0082653E 205946 and [ecx+$46], bl
00826541 5F pop edi
00826542 4D dec ebp
00826543 6F outsd
00826544 6E outsb
00826545 65795F jns 008265A7
00826548 43 inc ebx
00826549 52 push edx
0082654A 2000 and [eax], al
0082654C FFFF DB $FF, $FF //
0082654E FFFF DB $FF, $FF //
00826550 0B00 or eax, [eax]
00826552 0000 add [eax], al
00826554 205365 and [ebx+$65], dl
00826557 7420 jz 00826579
00826559 4B dec ebx
0082655A 50 push eax
0082655B 4E dec esi
0082655C 4F dec edi
0082655D 3D2700FFFF cmp eax, $FFFF0027
00826562 FFFF DB $FF, $FF //
00826564 0200 add al, byte ptr [eax]
00826566 0000 add [eax], al
00826568 27 daa
00826569 2000 and [eax], al
0082656B 00FF add bh, bh
0082656D FFFF DB $FF, $FF //
0082656F FF0D00000020 dec dword ptr [$20000000]
00826575 7768 jnbe 008265DF
00826577 657265 jb 008265DF
0082657A 205946 and [ecx+$46], bl
0082657D 49 dec ecx
0082657E 643D27000000 cmp eax, $00000027
00826584 FFFF DB $FF, $FF //
00826586 FFFF DB $FF, $FF //
00826588 0400 add al, +$00
0082658A 0000 add [eax], al
0082658C 59 pop ecx
0082658D 46 inc esi
0082658E 49 dec ecx
0082658F 640000 add fs:[eax], al
00826592 0000 add [eax], al
00826594 FFFF DB $FF, $FF //
00826596 FFFF DB $FF, $FF //
00826598 0100 add [eax], eax
0082659A 0000 add [eax], al
0082659C 27 daa
0082659D 0000 add [eax], al
0082659F 00558B add [ebp-$75], dl
008265A2 EC in al, dx
008265A3 B905000000 mov ecx, $00000005
008265A8 6A00 push $00
008265AA 6A00 push $00
008265AC 49 dec ecx
008265AD 75F9 jnz 008265A8
008265AF 51 push ecx
008265B0 53 push ebx
008265B1 56 push esi
008265B2 8BDA mov ebx, edx
008265B4 8BF0 mov esi, eax
008265B6 33C0 xor eax, eax
008265B8 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008265B9 68F4668200 push $008266F4
***** TRY
|
008265BE 64FF30 push dword ptr fs:[eax]
008265C1 648920 mov fs:[eax], esp
008265C4 8D55FC lea edx, [ebp-$04]
008265C7 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;
|
008265C9 E8EE90D6FF call 0058F6BC
* Reference to control Label11 : TLabel
|
008265CE 8B9E64030000 mov ebx, [esi+$0364]
008265D4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008265D6 E8651ECAFF call 004C8440
008265DB 8D55E8 lea edx, [ebp-$18]
008265DE 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008265E1 E80643BEFF call 0040A8EC
008265E6 8B55E8 mov edx, [ebp-$18]
008265E9 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008265EC E8D727BFFF call 00418DC8
008265F1 8D45EC lea eax, [ebp-$14]
008265F4 50 push eax
* Possible String Reference to: 'KPDMNo'
|
008265F5 BA0C678200 mov edx, $0082670C
008265FA 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008265FC E8B305CAFF call 004C6BB4
00826601 5A pop edx
00826602 8B08 mov ecx, [eax]
* Possible reference to virtual method TLabel.OFFS_00B4
|
00826604 FF91B4000000 call dword ptr [ecx+$00B4]
0082660A 8BC3 mov eax, ebx
0082660C 8B10 mov edx, [eax]
* Possible reference to virtual method TLabel.OFFS_024C
|
0082660E FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00826614 8B9E0C030000 mov ebx, [esi+$030C]
0082661A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0082661C E8B3F2C9FF call 004C58D4
00826621 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;
|
00826623 E88479CBFF call 004DDFAC
00826628 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
0082662A FF5244 call dword ptr [edx+$44]
0082662D 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;
|
0082662F E87879CBFF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00826634 BA1C678200 mov edx, $0082671C
00826639 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0082663B FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPDMNo=''
|
0082663E 6838678200 push $00826738
00826643 8D55E0 lea edx, [ebp-$20]
00826646 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826649 E89E42BEFF call 0040A8EC
0082664E FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: '' '
|
00826651 6850678200 push $00826750
00826656 8D45E4 lea eax, [ebp-$1C]
00826659 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0082665E E851F0BDFF call 004056B4
00826663 8B45E4 mov eax, [ebp-$1C]
00826666 50 push eax
00826667 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;
|
00826669 E83E79CBFF call 004DDFAC
0082666E 5A pop edx
0082666F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00826671 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00826674 685C678200 push $0082675C
* Possible String Reference to: 'YFId'
|
00826679 BA74678200 mov edx, $00826774
* Reference to control Label11 : TLabel
|
0082667E 8B8664030000 mov eax, [esi+$0364]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00826684 E82B05CAFF call 004C6BB4
00826689 8D55D4 lea edx, [ebp-$2C]
0082668C 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
0082668E FF5160 call dword ptr [ecx+$60]
00826691 8B45D4 mov eax, [ebp-$2C]
00826694 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826697 E85042BEFF call 0040A8EC
0082669C FF75D8 push dword ptr [ebp-$28]
0082669F 6884678200 push $00826784
008266A4 8D45DC lea eax, [ebp-$24]
008266A7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008266AC E803F0BDFF call 004056B4
008266B1 8B45DC mov eax, [ebp-$24]
008266B4 50 push eax
008266B5 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;
|
008266B7 E8F078CBFF call 004DDFAC
008266BC 5A pop edx
008266BD 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008266BF FF5138 call dword ptr [ecx+$38]
008266C2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
008266C4 E80B78CBFF call 004DDED4
008266C9 33C0 xor eax, eax
008266CB 5A pop edx
008266CC 59 pop ecx
008266CD 59 pop ecx
008266CE 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
008266D1 68FB668200 push $008266FB
008266D6 8D45D4 lea eax, [ebp-$2C]
008266D9 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008266DE E865ECBDFF call 00405348
008266E3 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008266E6 E889DFBEFF call 00414674
008266EB 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
008266EE E831ECBDFF call 00405324
008266F3 C3 ret
*)
end;
procedure TfrmYFFP._PROC_0082671D(Sender : TObject);
begin
(*
0082671D 50 push eax
0082671E 6461 popa
00826720 7465 jz 00826787
00826722 205946 and [ecx+$46], bl
00826725 5F pop edi
00826726 4D dec ebp
00826727 6F outsd
00826728 6E outsb
00826729 65795F jns 0082678B
0082672C 43 inc ebx
0082672D 52 push edx
0082672E 2000 and [eax], al
00826730 FFFF DB $FF, $FF //
00826732 FFFF DB $FF, $FF //
00826734 0D00000020 or eax, $20000000
00826739 53 push ebx
0082673A 657420 jz 0082675D
0082673D 4B dec ebx
0082673E 50 push eax
0082673F 44 inc esp
00826740 4D dec ebp
00826741 4E dec esi
00826742 6F outsd
00826743 3D27000000 cmp eax, $00000027
00826748 FFFF DB $FF, $FF //
0082674A FFFF DB $FF, $FF //
0082674C 0200 add al, byte ptr [eax]
0082674E 0000 add [eax], al
00826750 27 daa
00826751 2000 and [eax], al
00826753 00FF add bh, bh
00826755 FFFF DB $FF, $FF //
00826757 FF0D00000020 dec dword ptr [$20000000]
0082675D 7768 jnbe 008267C7
0082675F 657265 jb 008267C7
00826762 205946 and [ecx+$46], bl
00826765 49 dec ecx
00826766 643D27000000 cmp eax, $00000027
0082676C FFFF DB $FF, $FF //
0082676E FFFF DB $FF, $FF //
00826770 0400 add al, +$00
00826772 0000 add [eax], al
00826774 59 pop ecx
00826775 46 inc esi
00826776 49 dec ecx
00826777 640000 add fs:[eax], al
0082677A 0000 add [eax], al
0082677C FFFF DB $FF, $FF //
0082677E FFFF DB $FF, $FF //
00826780 0100 add [eax], eax
00826782 0000 add [eax], al
00826784 27 daa
00826785 0000 add [eax], al
00826787 00558B add [ebp-$75], dl
0082678A EC in al, dx
0082678B 6A00 push $00
0082678D 6A00 push $00
0082678F 6A00 push $00
00826791 6A00 push $00
00826793 53 push ebx
00826794 8945FC mov [ebp-$04], eax
00826797 33C0 xor eax, eax
00826799 55 push ebp
0082679A 68F4688200 push $008268F4
***** TRY
|
0082679F 64FF30 push dword ptr fs:[eax]
008267A2 648920 mov fs:[eax], esp
008267A5 33C0 xor eax, eax
008267A7 55 push ebp
008267A8 68CA688200 push $008268CA
***** TRY
|
008267AD 64FF30 push dword ptr fs:[eax]
008267B0 648920 mov fs:[eax], esp
008267B3 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
008267B6 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
008267BC E8930DCAFF call 004C7554
008267C1 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
008267C4 8B9820030000 mov ebx, [eax+$0320]
008267CA 33D2 xor edx, edx
008267CC 8BC3 mov eax, ebx
008267CE 8B08 mov ecx, [eax]
* Possible reference to virtual method TToolButton.OFFS_0190
|
008267D0 FF9190010000 call dword ptr [ecx+$0190]
008267D6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008267D8 E8F7F0C9FF call 004C58D4
008267DD 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008267DF E8C877CBFF call 004DDFAC
008267E4 8B10 mov edx, [eax]
* Reference to method TToolButton.GetClientRect()
|
008267E6 FF5244 call dword ptr [edx+$44]
008267E9 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008267EB E8BC77CBFF call 004DDFAC
* Possible String Reference to: ' select A.*,C.OrderNo '
|
008267F0 BA08698200 mov edx, $00826908
008267F5 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008267F7 FF5138 call dword ptr [ecx+$38]
008267FA 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008267FC E8AB77CBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00826801 BA28698200 mov edx, $00826928
00826806 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00826808 FF5138 call dword ptr [ecx+$38]
0082680B 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0082680D E89A77CBFF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
| =B.CRID'
|
00826812 BA48698200 mov edx, $00826948
00826817 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00826819 FF5138 call dword ptr [ecx+$38]
0082681C 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0082681E E88977CBFF call 004DDFAC
* Possible String Reference to: ' left join JYOrder_Main C on A.Main
| Id=C.MainId '
|
00826823 BA7C698200 mov edx, $0082697C
00826828 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0082682A FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where A.KPNO='%'
|
0082682D 68B4698200 push $008269B4
00826832 8D55F0 lea edx, [ebp-$10]
00826835 8B45FC mov eax, [ebp-$04]
* Reference to control Label1 : TLabel
|
00826838 8B80A0030000 mov eax, [eax+$03A0]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0082683E E8AD1DC6FF call 004885F0
00826843 8B45F0 mov eax, [ebp-$10]
00826846 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00826849 E89E40BEFF call 0040A8EC
0082684E FF75F4 push dword ptr [ebp-$0C]
00826851 68CC698200 push $008269CC
* Possible String Reference to: '' and A.CRType='Ӧ<><D3A6><EFBFBD>Ʊ<EEB7A2>Ǽ<EFBFBD>' '
|
00826856 68D8698200 push $008269D8
0082685B 8D45F8 lea eax, [ebp-$08]
0082685E BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00826863 E84CEEBDFF call 004056B4
00826868 8B45F8 mov eax, [ebp-$08]
0082686B 50 push eax
0082686C 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0082686E E83977CBFF call 004DDFAC
00826873 5A pop edx
00826874 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00826876 FF5138 call dword ptr [ecx+$38]
00826879 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
0082687B E848F0C9FF call 004C58C8
00826880 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
00826883 8B9064030000 mov edx, [eax+$0364]
00826889 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
0082688C 8B8020030000 mov eax, [eax+$0320]
|
00826892 E8F905F9FF call 007B6E90
00826897 8B45FC mov eax, [ebp-$04]
* Reference to control Label11 : TLabel
|
0082689A 8B9064030000 mov edx, [eax+$0364]
008268A0 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
008268A3 8B8020030000 mov eax, [eax+$0320]
|
008268A9 E86A07F9FF call 007B7018
008268AE 33C0 xor eax, eax
008268B0 5A pop edx
008268B1 59 pop ecx
008268B2 59 pop ecx
008268B3 648910 mov fs:[eax], edx
****** FINALLY
|
008268B6 68D1688200 push $008268D1
008268BB 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
008268BE 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008268C4 E8AB0CCAFF call 004C7574
008268C9 C3 ret
* Reference to: System.@HandleFinally;
|
008268CA E925E2BDFF jmp 00404AF4
008268CF EBEA jmp 008268BB
****** END
|
008268D1 33C0 xor eax, eax
008268D3 5A pop edx
008268D4 59 pop ecx
008268D5 59 pop ecx
008268D6 648910 mov fs:[eax], edx
****** FINALLY
|
008268D9 68FB688200 push $008268FB
008268DE 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
008268E1 E83EEABDFF call 00405324
008268E6 8D45F4 lea eax, [ebp-$0C]
008268E9 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008268EE E855EABDFF call 00405348
008268F3 C3 ret
*)
end;
procedure TfrmYFFP._PROC_00826D2D(Sender : TObject);
begin
(*
00826D2D 50 push eax
00826D2E 6461 popa
00826D30 7465 jz 00826D97
00826D32 205946 and [ecx+$46], bl
00826D35 5F pop edi
00826D36 4D dec ebp
00826D37 6F outsd
00826D38 6E outsb
00826D39 65795F jns 00826D9B
00826D3C 43 inc ebx
00826D3D 52 push edx
00826D3E 2000 and [eax], al
00826D40 FFFF DB $FF, $FF //
00826D42 FFFF DB $FF, $FF //
00826D44 0F0000 sldt word ptr [eax]
00826D47 0020 add [eax], ah
00826D49 53 push ebx
00826D4A 657420 jz 00826D6D
00826D4D 46 inc esi
00826D4E 4B dec ebx
00826D4F 54 push esp
00826D50 61 popa
00826D51 69746F753D2700FF imul esi, [edi+ebp*2+$75], $FF00273D
00826D59 FFFF DB $FF, $FF //
00826D5B FF01 inc dword ptr [ecx]
00826D5D 0000 add [eax], al
00826D5F 0027 add [edi], ah
00826D61 0000 add [eax], al
00826D63 00FF add bh, bh
00826D65 FFFF DB $FF, $FF //
00826D67 FF09 dec dword ptr [ecx]
00826D69 0000 add [eax], al
00826D6B 002C4564697465 add [$65746964+eax*2], ch
00826D72 723D jb 00826DB1
00826D74 27 daa
00826D75 0000 add [eax], al
00826D77 00FF add bh, bh
00826D79 FFFF DB $FF, $FF //
00826D7B FF1400 call dword ptr [eax+eax]
00826D7E 0000 add [eax], al
00826D80 2C45 sub al, $45
00826D82 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00826D8B 657464 jz 00826DF2
00826D8E 61 popa
00826D8F 7465 jz 00826DF6
00826D91 2829 sub [ecx], ch
00826D93 2000 and [eax], al
00826D95 0000 add [eax], al
00826D97 00FF add bh, bh
00826D99 FFFF DB $FF, $FF //
00826D9B FF0D00000020 dec dword ptr [$20000000]
00826DA1 7768 jnbe 00826E0B
00826DA3 657265 jb 00826E0B
00826DA6 205946 and [ecx+$46], bl
00826DA9 49 dec ecx
00826DAA 643D27000000 cmp eax, $00000027
00826DB0 FFFF DB $FF, $FF //
00826DB2 FFFF DB $FF, $FF //
00826DB4 0400 add al, +$00
00826DB6 0000 add [eax], al
00826DB8 59 pop ecx
00826DB9 46 inc esi
00826DBA 49 dec ecx
00826DBB 640000 add fs:[eax], al
00826DBE 0000 add [eax], al
00826DC0 55 push ebp
00826DC1 8BEC mov ebp, esp
00826DC3 51 push ecx
00826DC4 B907000000 mov ecx, $00000007
00826DC9 6A00 push $00
00826DCB 6A00 push $00
00826DCD 49 dec ecx
00826DCE 75F9 jnz 00826DC9
00826DD0 874DFC xchg [ebp-$04], ecx
00826DD3 53 push ebx
00826DD4 56 push esi
00826DD5 8BF0 mov esi, eax
00826DD7 33C0 xor eax, eax
00826DD9 55 push ebp
* Possible String Reference to: '<27><>ڽ<EFBFBD><DABD><EFBFBD>^[<5B><>]<5D>'
|
00826DDA 6846708200 push $00827046
***** TRY
|
00826DDF 64FF30 push dword ptr fs:[eax]
00826DE2 648920 mov fs:[eax], esp
00826DE5 33C0 xor eax, eax
00826DE7 55 push ebp
00826DE8 6814708200 push $00827014
***** TRY
|
00826DED 64FF30 push dword ptr fs:[eax]
00826DF0 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_008270A1(Sender : TObject);
begin
(*
008270A1 50 push eax
008270A2 6461 popa
008270A4 7465 jz 0082710B
008270A6 205946 and [ecx+$46], bl
008270A9 5F pop edi
008270AA 4D dec ebp
008270AB 6F outsd
008270AC 6E outsb
008270AD 65795F jns 0082710F
008270B0 43 inc ebx
008270B1 52 push edx
008270B2 2000 and [eax], al
008270B4 FFFF DB $FF, $FF //
008270B6 FFFF DB $FF, $FF //
008270B8 0D00000020 or eax, $20000000
008270BD 53 push ebx
008270BE 657420 jz 008270E1
008270C1 59 pop ecx
008270C2 46 inc esi
008270C3 4E dec esi
008270C4 61 popa
008270C5 6D insd
008270C6 653D27000000 cmp eax, $00000027
008270CC FFFF DB $FF, $FF //
008270CE FFFF DB $FF, $FF //
008270D0 0100 add [eax], eax
008270D2 0000 add [eax], al
008270D4 27 daa
008270D5 0000 add [eax], al
008270D7 00FF add bh, bh
008270D9 FFFF DB $FF, $FF //
008270DB FF09 dec dword ptr [ecx]
008270DD 0000 add [eax], al
008270DF 002C4564697465 add [$65746964+eax*2], ch
008270E6 723D jb 00827125
008270E8 27 daa
008270E9 0000 add [eax], al
008270EB 00FF add bh, bh
008270ED FFFF DB $FF, $FF //
008270EF FF1400 call dword ptr [eax+eax]
008270F2 0000 add [eax], al
008270F4 2C45 sub al, $45
008270F6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008270FF 657464 jz 00827166
00827102 61 popa
00827103 7465 jz 0082716A
00827105 2829 sub [ecx], ch
00827107 2000 and [eax], al
00827109 0000 add [eax], al
0082710B 00FF add bh, bh
0082710D FFFF DB $FF, $FF //
0082710F FF0D00000020 dec dword ptr [$20000000]
00827115 7768 jnbe 0082717F
00827117 657265 jb 0082717F
0082711A 205946 and [ecx+$46], bl
0082711D 49 dec ecx
0082711E 643D27000000 cmp eax, $00000027
00827124 FFFF DB $FF, $FF //
00827126 FFFF DB $FF, $FF //
00827128 0400 add al, +$00
0082712A 0000 add [eax], al
0082712C 59 pop ecx
0082712D 46 inc esi
0082712E 49 dec ecx
0082712F 640000 add fs:[eax], al
00827132 0000 add [eax], al
00827134 55 push ebp
00827135 8BEC mov ebp, esp
00827137 51 push ecx
00827138 B907000000 mov ecx, $00000007
0082713D 6A00 push $00
0082713F 6A00 push $00
00827141 49 dec ecx
00827142 75F9 jnz 0082713D
00827144 874DFC xchg [ebp-$04], ecx
00827147 53 push ebx
00827148 56 push esi
00827149 8BF0 mov esi, eax
0082714B 33C0 xor eax, eax
0082714D 55 push ebp
* Possible String Reference to: '<27>5׽<35><D7BD><EFBFBD>^[<5B><>]<5D>'
|
0082714E 68BA738200 push $008273BA
***** TRY
|
00827153 64FF30 push dword ptr fs:[eax]
00827156 648920 mov fs:[eax], esp
00827159 33C0 xor eax, eax
0082715B 55 push ebp
0082715C 6888738200 push $00827388
***** TRY
|
00827161 64FF30 push dword ptr fs:[eax]
00827164 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00827419(Sender : TObject);
begin
(*
00827419 50 push eax
0082741A 6461 popa
0082741C 7465 jz 00827483
0082741E 205946 and [ecx+$46], bl
00827421 5F pop edi
00827422 4D dec ebp
00827423 6F outsd
00827424 6E outsb
00827425 65795F jns 00827487
00827428 43 inc ebx
00827429 52 push edx
0082742A 2000 and [eax], al
0082742C FFFF DB $FF, $FF //
0082742E FFFF DB $FF, $FF //
00827430 0F0000 sldt word ptr [eax]
00827433 0020 add [eax], ah
00827435 53 push ebx
00827436 657420 jz 00827459
00827439 4B dec ebx
0082743A 50 push eax
0082743B 53 push ebx
0082743C 7461 jz 0082749F
0082743E 7475 jz 008274B5
00827440 733D jnb 0082747F
00827442 27 daa
00827443 00FF add bh, bh
00827445 FFFF DB $FF, $FF //
00827447 FF01 inc dword ptr [ecx]
00827449 0000 add [eax], al
0082744B 0027 add [edi], ah
0082744D 0000 add [eax], al
0082744F 00FF add bh, bh
00827451 FFFF DB $FF, $FF //
00827453 FF09 dec dword ptr [ecx]
00827455 0000 add [eax], al
00827457 002C4564697465 add [$65746964+eax*2], ch
0082745E 723D jb 0082749D
00827460 27 daa
00827461 0000 add [eax], al
00827463 00FF add bh, bh
00827465 FFFF DB $FF, $FF //
00827467 FF1400 call dword ptr [eax+eax]
0082746A 0000 add [eax], al
0082746C 2C45 sub al, $45
0082746E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00827477 657464 jz 008274DE
0082747A 61 popa
0082747B 7465 jz 008274E2
0082747D 2829 sub [ecx], ch
0082747F 2000 and [eax], al
00827481 0000 add [eax], al
00827483 00FF add bh, bh
00827485 FFFF DB $FF, $FF //
00827487 FF0D00000020 dec dword ptr [$20000000]
0082748D 7768 jnbe 008274F7
0082748F 657265 jb 008274F7
00827492 205946 and [ecx+$46], bl
00827495 49 dec ecx
00827496 643D27000000 cmp eax, $00000027
0082749C FFFF DB $FF, $FF //
0082749E FFFF DB $FF, $FF //
008274A0 0400 add al, +$00
008274A2 0000 add [eax], al
008274A4 59 pop ecx
008274A5 46 inc esi
008274A6 49 dec ecx
008274A7 640000 add fs:[eax], al
008274AA 0000 add [eax], al
008274AC 55 push ebp
008274AD 8BEC mov ebp, esp
008274AF 51 push ecx
008274B0 B906000000 mov ecx, $00000006
008274B5 6A00 push $00
008274B7 6A00 push $00
008274B9 49 dec ecx
008274BA 75F9 jnz 008274B5
008274BC 51 push ecx
008274BD 874DFC xchg [ebp-$04], ecx
008274C0 53 push ebx
008274C1 56 push esi
008274C2 8BF0 mov esi, eax
008274C4 33C0 xor eax, eax
008274C6 55 push ebp
* Possible String Reference to: '<27><>ӽ<EFBFBD><D3BD><EFBFBD>^[<5B><>]<5D>'
|
008274C7 68FC768200 push $008276FC
***** TRY
|
008274CC 64FF30 push dword ptr fs:[eax]
008274CF 648920 mov fs:[eax], esp
008274D2 33C0 xor eax, eax
008274D4 55 push ebp
008274D5 68C5768200 push $008276C5
***** TRY
|
008274DA 64FF30 push dword ptr fs:[eax]
008274DD 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYFFP._PROC_00827775(Sender : TObject);
begin
(*
00827775 50 push eax
00827776 6461 popa
00827778 7465 jz 008277DF
0082777A 205946 and [ecx+$46], bl
0082777D 5F pop edi
0082777E 4D dec ebp
0082777F 6F outsd
00827780 6E outsb
00827781 65795F jns 008277E3
00827784 43 inc ebx
00827785 52 push edx
00827786 2000 and [eax], al
00827788 FFFF DB $FF, $FF //
0082778A FFFF DB $FF, $FF //
0082778C 0F0000 sldt word ptr [eax]
0082778F 0020 add [eax], ah
00827791 53 push ebx
00827792 657420 jz 008277B5
00827795 46 inc esi
00827796 4B dec ebx
00827797 54 push esp
00827798 61 popa
00827799 69746F753D2700FF imul esi, [edi+ebp*2+$75], $FF00273D
008277A1 FFFF DB $FF, $FF //
008277A3 FF01 inc dword ptr [ecx]
008277A5 0000 add [eax], al
008277A7 0027 add [edi], ah
008277A9 0000 add [eax], al
008277AB 00FF add bh, bh
008277AD FFFF DB $FF, $FF //
008277AF FF0D00000020 dec dword ptr [$20000000]
008277B5 7768 jnbe 0082781F
008277B7 657265 jb 0082781F
008277BA 205946 and [ecx+$46], bl
008277BD 49 dec ecx
008277BE 643D27000000 cmp eax, $00000027
008277C4 FFFF DB $FF, $FF //
008277C6 FFFF DB $FF, $FF //
008277C8 0400 add al, +$00
008277CA 0000 add [eax], al
008277CC 59 pop ecx
008277CD 46 inc esi
008277CE 49 dec ecx
008277CF 640000 add fs:[eax], al
008277D2 0000 add [eax], al
008277D4 55 push ebp
008277D5 8BEC mov ebp, esp
008277D7 33C0 xor eax, eax
008277D9 55 push ebp
* Possible String Reference to: '<27><>ҽ<EFBFBD><D2BD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
008277DA 68F9778200 push $008277F9
***** TRY
|
008277DF 64FF30 push dword ptr fs:[eax]
008277E2 648920 mov fs:[eax], esp
008277E5 FF05C0598900 inc dword ptr [$008959C0]
008277EB 33C0 xor eax, eax
008277ED 5A pop edx
008277EE 59 pop ecx
008277EF 59 pop ecx
008277F0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
008277F3 6800788200 push $00827800
008277F8 C3 ret
* Reference to: System.@HandleFinally;
|
008277F9 E9F6D2BDFF jmp 00404AF4
008277FE EBF8 jmp 008277F8
****** END
|
00827800 5D pop ebp
00827801 C3 ret
00827802 8BC0 mov eax, eax
00827804 832DC059890001 sub dword ptr [$008959C0], +$01
0082780B C3 ret
0082780C 58 pop eax
0082780D 7882 js 00827791
0082780F 0000 add [eax], al
00827811 0000 add [eax], al
00827813 0000 add [eax], al
00827815 0000 add [eax], al
00827817 004C7982 add [ecx+edi*2-$7E], cl
0082781B 00748182 add [ecx+eax*4-$7E], dh
0082781F 006679 add [esi+$79], ah
00827822 820012 add dword ptr [eax], $12
00827825 7D82 jnl 008277A9
00827827 0000 add [eax], al
*)
end;
procedure TfrmYFFP._PROC_00827872(Sender : TObject);
begin
(*
00827872 48 dec eax
00827873 0050D4 add [eax-$2C], dl
00827876 42 inc edx
00827877 0008 add [eax], cl
00827879 2D4A007CD0 sub eax, $D07C004A
0082787E 42 inc edx
0082787F 00F4 add ah, dh
00827881 6B4A00D0 imul ecx, [edx+$00], $D0
00827885 1D4A0030F6 sbb eax, $F630004A
0082788A 48 dec eax
0082788B 004CFB48 add [ebx+edi*8+$48], cl
0082788F 0098FA48000C add [eax+$C0048FA], bl
00827895 7948 jns 008278DF
00827897 00ACF04800E829 add [eax+esi*8+$29E80048], ch
0082789E 4A dec edx
0082789F 00E4 add ah, ah
008278A1 ED in eax, dx
008278A2 48 dec eax
008278A3 00547848 add [eax+edi*2+$48], dl
008278A7 005878 add [eax+$78], bl
008278AA 48 dec eax
008278AB 00DC add ah, bl
008278AD 2A4A00 sub cl, byte ptr [edx+$00]
008278B0 3CA9 cmp al, $A9
008278B2 48 dec eax
008278B3 00C0 add al, al
008278B5 834800D0 or dword ptr [eax+$00], -$30
008278B9 7948 jns 00827903
008278BB 004C8548 add [ebp+eax*4+$48], cl
008278BF 00D0 add al, dl
008278C1 2C4A sub al, $4A
008278C3 009C2B4A008486 add [ebx+ebp+$8684004A], bl
008278CA 48 dec eax
008278CB 00482D add [eax+$2D], cl
008278CE 4A dec edx
008278CF 00C0 add al, al
008278D1 A9480038EE test eax, $EE380048
008278D6 48 dec eax
008278D7 00F4 add ah, dh
008278D9 EE out dx, al
008278DA 48 dec eax
008278DB 00F0 add al, dh
008278DD E94800D8EE jmp EF5A792A
008278E2 48 dec eax
008278E3 00D8 add al, bl
008278E5 1B4A00 sbb ecx, [edx+$00]
008278E8 EC in al, dx
008278E9 334A00 xor ecx, [edx+$00]
008278EC 20C4 and ah, al
008278EE 48 dec eax
008278EF 00B0404A0010 add [eax+$10004A40], dh
008278F5 44 inc esp
008278F6 4A dec edx
008278F7 00CC add ah, cl
008278F9 42 inc edx
008278FA 4A dec edx
008278FB 00B8C44800BC add [eax+$BC0048C4], bh
00827901 C44800 les ecx, [eax+$00]
00827904 48 dec eax
00827905 45 inc ebp
00827906 4A dec edx
00827907 001CC3 add [ebx+eax*8], bl
0082790A 48 dec eax
0082790B 0018 add [eax], bl
0082790D F0 lock
0082790E 48 dec eax
0082790F 00444C4A add [esp+ecx*2+$4A], al
00827913 000C02 add [edx+eax], cl
00827916 49 dec ecx
00827917 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
0082791E 4A dec edx
0082791F 008C154A003C18 add [ebp+edx+$183C004A], cl
00827926 4A dec edx
00827927 0038 add [eax], bh
00827929 52 push edx
0082792A 4A dec edx
0082792B 005C224A add [edx+$4A], bl
0082792F 00D8 add al, bl
00827931 224A00 and cl, byte ptr [edx+$00]
00827934 7C68 jl 0082799E
00827936 4A dec edx
00827937 00941F4A003C60 add [edi+ebx+$603C004A], dl
0082793E 4A dec edx
0082793F 001447 add [edi+eax*2], dl
00827942 4A dec edx
00827943 0034654A00CC2C add [$2CCC004A], dh
0082794A 4A dec edx
0082794B 000E add [esi], cl
0082794D 0000 add [eax], al
0082794F 0000 add [eax], al
00827951 0002 add [edx], al
00827953 0000 add [eax], al
00827955 0020 add [eax], ah
00827957 114000 adc [eax+$00], eax
0082795A F0 lock
0082795B 0300 add eax, [eax]
0082795D 0020 add [eax], ah
0082795F 114000 adc [eax+$00], eax
00827962 F4 hlt
00827963 0300 add eax, [eax]
00827965 003E add [esi], bh
00827967 0025818200F8 add [$F8008281], ah
0082796D 0200 add al, byte ptr [eax]
0082796F 0000 add [eax], al
00827971 0008 add [eax], cl
00827973 54 push esp
00827974 6F outsd
00827975 6F outsd
00827976 6C insb
00827977 42 inc edx
00827978 61 popa
00827979 7231 jb 008279AC
0082797B FC cld
0082797C 0200 add al, byte ptr [eax]
0082797E 0001 add [ecx], al
00827980 0009 add [ecx], cl
00827982 54 push esp
00827983 42 inc edx
00827984 52 push edx
00827985 61 popa
00827986 667265 jb 008279EE
00827989 7368 jnb 008279F3
0082798B 0003 add [ebx], al
0082798D 0000 add [eax], al
0082798F 0100 add [eax], eax
00827991 0554424465 add eax, +$65444254
00827996 6C insb
00827997 0403 add al, +$03
00827999 0000 add [eax], al
0082799B 0100 add [eax], eax
0082799D 07 pop es
0082799E 54 push esp
0082799F 42 inc edx
008279A0 43 inc ebx
008279A1 6C insb
008279A2 6F outsd
008279A3 7365 jnb 00827A0A
008279A5 0803 or [ebx], al
008279A7 0000 add [eax], al
008279A9 0200 add al, byte ptr [eax]
008279AB 0C41 or al, $41
008279AD 44 inc esp
008279AE 4F dec edi
008279AF 51 push ecx
008279B0 7565 jnz 00827A17
008279B2 7279 jb 00827A2D
008279B4 54 push esp
008279B5 656D insd
008279B7 700C jo 008279C5
008279B9 0300 add eax, [eax]
008279BB 0002 add [edx], al
008279BD 000B add [ebx], cl
008279BF 41 inc ecx
008279C0 44 inc esp
008279C1 4F dec edi
008279C2 51 push ecx
008279C3 7565 jnz 00827A2A
008279C5 7279 jb 00827A40
008279C7 43 inc ebx
008279C8 6D insd
008279C9 641003 adc fs:[ebx], al
008279CC 0000 add [eax], al
008279CE 0300 add eax, [eax]
008279D0 06 push es
008279D1 50 push eax
008279D2 61 popa
008279D3 6E outsb
008279D4 656C insb
008279D6 311403 xor [ebx+eax], edx
008279D9 0000 add [eax], al
008279DB 0100 add [eax], eax
008279DD 0B546F6F or edx, [edi+ebp*2+$6F]
008279E1 6C insb
008279E2 42 inc edx
008279E3 7574 jnz 00827A59
008279E5 746F jz 00827A56
008279E7 6E outsb
008279E8 3218 xor bl, byte ptr [eax]
008279EA 0300 add eax, [eax]
008279EC 000400 add [eax+eax], al
008279EF 06 push es
008279F0 4C dec esp
008279F1 61 popa
008279F2 62656C bound esp, qword ptr [ebp+$6C]
008279F5 311C03 xor [ebx+eax], ebx
008279F8 0000 add [eax], al
008279FA 05000A505F add eax, +$5F500A00
008279FF 43 inc ebx
00827A00 6F outsd
00827A01 64654E dec esi
00827A04 61 popa
00827A05 6D insd
00827A06 652003 and gs:[ebx], al
00827A09 0000 add [eax], al
00827A0B 0200 add al, byte ptr [eax]
00827A0D 0C41 or al, $41
00827A0F 44 inc esp
00827A10 4F dec edi
00827A11 51 push ecx
00827A12 7565 jnz 00827A79
00827A14 7279 jb 00827A8F
00827A16 4D dec ebp
00827A17 61 popa
00827A18 696E2403000001 imul ebp, [esi+$24], $01000003
00827A1F 000B add [ebx], cl
00827A21 54 push esp
00827A22 6F outsd
00827A23 6F outsd
00827A24 6C insb
00827A25 42 inc edx
00827A26 7574 jnz 00827A9C
00827A28 746F jz 00827A99
00827A2A 6E outsb
00827A2B 3128 xor [eax], ebp
00827A2D 0300 add eax, [eax]
00827A2F 0006 add [esi], al
00827A31 0003 add [ebx], al
00827A33 52 push edx
00827A34 4D dec ebp
00827A35 312C03 xor [ebx+eax], ebp
00827A38 0000 add [eax], al
00827A3A 07 pop es
00827A3B 0009 add [ecx], cl
00827A3D 52 push edx
00827A3E 4D dec ebp
00827A3F 44 inc esp
00827A40 42 inc edx
00827A41 5F pop edi
00827A42 4D dec ebp
00827A43 61 popa
00827A44 696E3003000004 imul ebp, [esi+$30], $04000003
00827A4B 0006 add [esi], al
00827A4D 4C dec esp
00827A4E 61 popa
00827A4F 62656C bound esp, qword ptr [ebp+$6C]
00827A52 333403 xor esi, [ebx+eax]
00827A55 0000 add [eax], al
00827A57 05000B4661 add eax, +$61460B00
00827A5C 63746F72 arpl [edi+ebp*2+$72], si
00827A60 794E jns 00827AB0
00827A62 61 popa
00827A63 6D insd
00827A64 653803 cmp gs:[ebx], al
00827A67 0000 add [eax], al
00827A69 0800 or [eax], al
00827A6B 07 pop es
00827A6C 637847 arpl [eax+$47], di
00827A6F 7269 jb 00827ADA
00827A71 64323C03 xor bh, byte ptr fs:[ebx+eax]
00827A75 0000 add [eax], al
00827A77 0900 or [eax], eax
00827A79 03547632 add edx, [esi+esi*2+$32]
00827A7D 40 inc eax
00827A7E 0300 add eax, [eax]
00827A80 000A add [edx], cl
00827A82 000F add [edi], cl
00827A84 637847 arpl [eax+$47], di
00827A87 7269 jb 00827AF2
00827A89 6444 inc esp
00827A8B 42 inc edx
00827A8C 43 inc ebx
00827A8D 6F outsd
00827A8E 6C insb
00827A8F 756D jnz 00827AFE
00827A91 6E outsb
00827A92 31440300 xor [ebx+eax+$00], eax
00827A96 000A add [edx], cl
00827A98 000F add [edi], cl
00827A9A 637847 arpl [eax+$47], di
00827A9D 7269 jb 00827B08
00827A9F 6444 inc esp
00827AA1 42 inc edx
00827AA2 43 inc ebx
00827AA3 6F outsd
00827AA4 6C insb
00827AA5 756D jnz 00827B14
00827AA7 6E outsb
00827AA8 334803 xor ecx, [eax+$03]
00827AAB 0000 add [eax], al
00827AAD 0A00 or al, byte ptr [eax]
00827AAF 0F637847 packusdw MM7, [eax+$47]
00827AB3 7269 jb 00827B1E
00827AB5 6444 inc esp
00827AB7 42 inc edx
00827AB8 43 inc ebx
00827AB9 6F outsd
00827ABA 6C insb
00827ABB 756D jnz 00827B2A
00827ABD 6E outsb
00827ABE 354C030000 xor eax, $0000034C
00827AC3 0A00 or al, byte ptr [eax]
00827AC5 0F637847 packusdw MM7, [eax+$47]
00827AC9 7269 jb 00827B34
00827ACB 6444 inc esp
00827ACD 42 inc edx
00827ACE 43 inc ebx
00827ACF 6F outsd
00827AD0 6C insb
00827AD1 756D jnz 00827B40
00827AD3 6E outsb
00827AD4 3650 push eax
00827AD6 0300 add eax, [eax]
00827AD8 000B add [ebx], cl
00827ADA 000C63 add [ebx], cl
00827ADD 7847 js 00827B26
00827ADF 7269 jb 00827B4A
00827AE1 644C dec esp
00827AE3 657665 jbe 00827B4B
00827AE6 6C insb
00827AE7 31540300 xor [ebx+eax+$00], edx
00827AEB 000400 add [eax+eax], al
00827AEE 06 push es
00827AEF 4C dec esp
00827AF0 61 popa
00827AF1 62656C bound esp, qword ptr [ebp+$6C]
00827AF4 325803 xor bl, byte ptr [eax+$03]
00827AF7 0000 add [eax], al
00827AF9 0C00 or al, $00
00827AFB 07 pop es
00827AFC 626567 bound esp, qword ptr [ebp+$67]
00827AFF 6461 popa
00827B01 7465 jz 00827B68
00827B03 5C pop esp
00827B04 0300 add eax, [eax]
00827B06 000C00 add [eax+eax], cl
00827B09 07 pop es
00827B0A 45 inc ebp
00827B0B 6E outsb
00827B0C 646461 popa
00827B0F 7465 jz 00827B76
00827B11 60 pusha
00827B12 0300 add eax, [eax]
00827B14 000D00106378 add [$78631000], cl
00827B1A 47 inc edi
00827B1B 7269 jb 00827B86
00827B1D 6450 push eax
00827B1F 6F outsd
00827B20 7075 jo 00827B97
00827B22 704D jo 00827B71
00827B24 656E outsb
00827B26 7532 jnz 00827B5A
00827B28 640300 add eax, fs:[eax]
00827B2B 000E add [esi], cl
00827B2D 000544535F48 add [$485F5344], al
00827B33 5A pop edx
00827B34 680300000F push $0F000003
00827B39 0006 add [esi], al
00827B3B 43 inc ebx
00827B3C 44 inc esp
00827B3D 53 push ebx
00827B3E 5F pop edi
00827B3F 48 dec eax
00827B40 5A pop edx
00827B41 6C insb
00827B42 0300 add eax, [eax]
00827B44 0001 add [ecx], al
00827B46 000B add [ebx], cl
00827B48 54 push esp
00827B49 6F outsd
00827B4A 6F outsd
00827B4B 6C insb
00827B4C 42 inc edx
00827B4D 7574 jnz 00827BC3
00827B4F 746F jz 00827BC0
00827B51 6E outsb
00827B52 337003 xor esi, [eax+$03]
00827B55 0000 add [eax], al
00827B57 0A00 or al, byte ptr [eax]
00827B59 097632 or [esi+$32], esi
00827B5C 43 inc ebx
00827B5D 6F outsd
00827B5E 6C insb
00827B5F 756D jnz 00827BCE
00827B61 6E outsb
00827B62 31740300 xor [ebx+eax+$00], esi
00827B66 000A add [edx], cl
00827B68 0003 add [ebx], al
00827B6A 56 push esi
00827B6B 42 inc edx
00827B6C 5A pop edx
00827B6D 7803 js 00827B72
00827B6F 0000 add [eax], al
00827B71 0A00 or al, byte ptr [eax]
00827B73 097632 or [esi+$32], esi
00827B76 43 inc ebx
00827B77 6F outsd
00827B78 6C insb
00827B79 756D jnz 00827BE8
00827B7B 6E outsb
00827B7C 367C03 jl 00827B82
00827B7F 0000 add [eax], al
00827B81 0A00 or al, byte ptr [eax]
00827B83 05564B504E add eax, +$4E504B56
00827B88 4F dec edi
00827B89 800300 add byte ptr [ebx], $00
00827B8C 000A add [edx], cl
00827B8E 000476 add [esi+esi*2], al
00827B91 324B50 xor cl, byte ptr [ebx+$50]
00827B94 8403 test [ebx], al
00827B96 0000 add [eax], al
00827B98 0A00 or al, byte ptr [eax]
00827B9A 097632 or [esi+$32], esi
00827B9D 50 push eax
00827B9E 61 popa
00827B9F 794D jns 00827BEE
00827BA1 656E outsb
00827BA3 7488 jz 00827B2D
00827BA5 0300 add eax, [eax]
00827BA7 000A add [edx], cl
00827BA9 0006 add [esi], al
00827BAB 7632 jbe 00827BDF
00827BAD 4E dec esi
00827BAE 6F outsd
00827BAF 7465 jz 00827C16
00827BB1 8C03 mov word ptr [ebx], es
00827BB3 0000 add [eax], al
00827BB5 0400 add al, +$00
00827BB7 06 push es
00827BB8 4C dec esp
00827BB9 61 popa
00827BBA 62656C bound esp, qword ptr [ebp+$6C]
00827BBD 3490 xor al, $90
00827BBF 0300 add eax, [eax]
00827BC1 000500044B50 add [$504B0400], al
00827BC7 4E dec esi
00827BC8 4F dec edi
00827BC9 94 xchg eax, esp
00827BCA 0300 add eax, [eax]
00827BCC 000A add [edx], cl
00827BCE 0006 add [esi], al
00827BD0 7632 jbe 00827C04
00827BD2 5A pop edx
00827BD3 46 inc esi
00827BD4 54 push esp
00827BD5 54 push esp
00827BD6 98 cwde
00827BD7 0300 add eax, [eax]
00827BD9 000A add [edx], cl
00827BDB 0008 add [eax], cl
00827BDD 7632 jbe 00827C11
00827BDF 50 push eax
00827BE0 5F pop edi
00827BE1 53 push ebx
00827BE2 7065 jo 00827C49
00827BE4 639C0300000400 arpl [ebx+eax+$40000], bx
00827BEB 07 pop es
00827BEC 4C dec esp
00827BED 61 popa
00827BEE 62656C bound esp, qword ptr [ebp+$6C]
00827BF1 3130 xor [eax], esi
00827BF3 A003000004 mov al, byte ptr [$04000003]
00827BF8 0007 add [edi], al
00827BFA 4C dec esp
00827BFB 61 popa
00827BFC 62656C bound esp, qword ptr [ebp+$6C]
00827BFF 3132 xor [edx], esi
00827C01 A4 movsb
00827C02 0300 add eax, [eax]
00827C04 000A add [edx], cl
00827C06 0006 add [esi], al
00827C08 7632 jbe 00827C3C
00827C0A 53 push ebx
00827C0B 7365 jnb 00827C72
00827C0D 6C insb
00827C0E A803 test al, $03
00827C10 0000 add [eax], al
00827C12 1000 adc [eax], al
00827C14 0A506F or dl, byte ptr [eax+$6F]
00827C17 7075 jo 00827C8E
00827C19 704D jo 00827C68
00827C1B 656E outsb
00827C1D 7531 jnz 00827C50
00827C1F AC lodsb
00827C20 0300 add eax, [eax]
00827C22 0011 add [ecx], dl
00827C24 0002 add [edx], al
00827C26 4E dec esi
00827C27 31B003000011 xor [eax+$11000003], esi
00827C2D 0002 add [edx], al
00827C2F 4E dec esi
00827C30 32B40300000400 xor dh, byte ptr [ebx+eax+$40000]
00827C37 06 push es
00827C38 4C dec esp
00827C39 61 popa
00827C3A 62656C bound esp, qword ptr [ebp+$6C]
00827C3D 36B803000005 mov eax, $05000003
00827C43 0009 add [ecx], cl
00827C45 43 inc ebx
00827C46 6F outsd
00827C47 6D insd
00827C48 54 push esp
00827C49 61 popa
00827C4A 69546F75BC030000 imul edx, [edi+ebp*2+$75], $000003BC
00827C52 0400 add al, +$00
00827C54 06 push es
00827C55 4C dec esp
00827C56 61 popa
00827C57 62656C bound esp, qword ptr [ebp+$6C]
00827C5A 37 aaa
00827C5B C00300 rol byte ptr [ebx], $00
00827C5E 000500075061 add [$61500700], al
00827C64 794D jns 00827CB3
00827C66 656E outsb
00827C68 74C4 jz 00827C2E
00827C6A 0300 add eax, [eax]
00827C6C 000400 add [eax+eax], al
00827C6F 06 push es
00827C70 4C dec esp
00827C71 61 popa
00827C72 62656C bound esp, qword ptr [ebp+$6C]
00827C75 38C8 cmp al, cl
00827C77 0300 add eax, [eax]
00827C79 00050008464B add [$4B460800], al
00827C7F 54 push esp
00827C80 61 popa
00827C81 69546F75CC030000 imul edx, [edi+ebp*2+$75], $000003CC
00827C89 0400 add al, +$00
00827C8B 07 pop es
00827C8C 4C dec esp
00827C8D 61 popa
00827C8E 62656C bound esp, qword ptr [ebp+$6C]
00827C91 3134D0 xor [eax+edx*8], esi
00827C94 0300 add eax, [eax]
00827C96 000500084B50 add [$504B0800], al
00827C9C 53 push ebx
00827C9D 7461 jz 00827D00
00827C9F 7475 jz 00827D16
00827CA1 73D4 jnb 00827C77
00827CA3 0300 add eax, [eax]
00827CA5 000A add [edx], cl
00827CA7 000A add [edx], cl
00827CA9 7632 jbe 00827CDD
00827CAB 4B dec ebx
00827CAC 50 push eax
00827CAD 53 push ebx
00827CAE 7461 jz 00827D11
00827CB0 7475 jz 00827D27
00827CB2 73D8 jnb 00827C8C
00827CB4 0300 add eax, [eax]
00827CB6 000400 add [eax+eax], al
00827CB9 07 pop es
00827CBA 4C dec esp
00827CBB 61 popa
00827CBC 62656C bound esp, qword ptr [ebp+$6C]
00827CBF 3135DC030000 xor [$000003DC], esi
00827CC5 0500044E6F add eax, +$6F4E0400
00827CCA 7465 jz 00827D31
00827CCC E003 loopn +$03
00827CCE 0000 add [eax], al
00827CD0 0A00 or al, byte ptr [eax]
00827CD2 0A7632 or dh, byte ptr [esi+$32]
00827CD5 46 inc esi
00827CD6 4B dec ebx
00827CD7 54 push esp
00827CD8 61 popa
00827CD9 69746F75E4030000 imul esi, [edi+ebp*2+$75], $000003E4
00827CE1 0A00 or al, byte ptr [eax]
00827CE3 07 pop es
00827CE4 7632 jbe 00827D18
00827CE6 48 dec eax
00827CE7 7569 jnz 00827D52
00827CE9 6C insb
00827CEA 76E8 jbe 00827CD4
00827CEC 0300 add eax, [eax]
00827CEE 000A add [edx], cl
00827CF0 000B add [ebx], cl
00827CF2 7632 jbe 00827D26
00827CF4 53 push ebx
00827CF5 6875694D6F push $6F4D6975
00827CFA 6E outsb
00827CFB 6579EC jns 00827CEA
00827CFE 0300 add eax, [eax]
00827D00 000A add [edx], cl
00827D02 000E add [esi], cl
00827D04 7632 jbe 00827D38
00827D06 53 push ebx
00827D07 687569486F push $6F486975
00827D0C 754D jnz 00827D5B
00827D0E 6F outsd
00827D0F 6E outsb
00827D10 657921 jns 00827D34
00827D13 0012 add [edx], dl
00827D15 00F0 add al, dh
00827D17 8482000B466F test [edx+$6F460B00], al
00827D1D 726D jb 00827D8C
00827D1F 44 inc esp
00827D20 657374 jnb 00827D97
00827D23 726F jb 00827D94
00827D25 7910 jns 00827D37
00827D27 00F8 add al, bh
00827D29 84820009466F test [edx+$6F460900], al
00827D2F 726D jb 00827D9E
00827D31 43 inc ebx
00827D32 6C insb
00827D33 6F outsd
00827D34 7365 jnb 00827D9B
00827D36 1300 adc eax, [eax]
00827D38 FC cld
00827D39 8482000C5442 test [edx+$42540C00], al
00827D3F 43 inc ebx
00827D40 6C insb
00827D41 6F outsd
00827D42 7365 jnb 00827DA9
00827D44 43 inc ebx
00827D45 6C insb
00827D46 69636B11004885 imul esp, [ebx+$6B], $85480011
00827D4D 82000A add dword ptr [eax], $0A
00827D50 54 push esp
00827D51 42 inc edx
00827D52 44 inc esp
00827D53 656C insb
00827D55 43 inc ebx
00827D56 6C insb
00827D57 69636B0F007888 imul esp, [ebx+$6B], $8878000F
00827D5E 820008 add dword ptr [eax], $08
00827D61 46 inc esi
00827D62 6F outsd
00827D63 726D jb 00827DD2
00827D65 53 push ebx
00827D66 686F771500 push $0015776F
00827D6B 308982000E54 xor [ecx+$540E0082], cl
00827D71 42 inc edx
00827D72 52 push edx
00827D73 61 popa
00827D74 667265 jb 00827DDC
00827D77 7368 jnb 00827DE1
00827D79 43 inc ebx
00827D7A 6C insb
00827D7B 69636B17004C89 imul esp, [ebx+$6B], $894C0017
00827D82 820010 add dword ptr [eax], $10
00827D85 54 push esp
00827D86 6F outsd
00827D87 6F outsd
00827D88 6C insb
00827D89 42 inc edx
00827D8A 7574 jnz 00827E00
00827D8C 746F jz 00827DFD
00827D8E 6E outsb
00827D8F 32436C xor al, byte ptr [ebx+$6C]
00827D92 69636B1800DC89 imul esp, [ebx+$6B], $89DC0018
00827D99 820011 add dword ptr [eax], $11
00827D9C 46 inc esi
00827D9D 61 popa
00827D9E 63746F72 arpl [edi+ebp*2+$72], si
00827DA2 794E jns 00827DF2
00827DA4 61 popa
00827DA5 6D insd
00827DA6 6543 inc ebx
00827DA8 68616E6765 push $65676E61
00827DAD 1300 adc eax, [eax]
00827DAF F0 lock
00827DB0 8982000C4275 mov [edx+$75420C00], eax
00827DB6 7474 jz 00827E2C
00827DB8 6F outsd
00827DB9 6E outsb
00827DBA 32436C xor al, byte ptr [ebx+$6C]
00827DBD 69636B30003095 imul esp, [ebx+$6B], $95300030
00827DC4 820029 add dword ptr [eax], $29
00827DC7 637847 arpl [eax+$47], di
00827DCA 7269 jb 00827E35
00827DCC 6444 inc esp
00827DCE 42 inc edx
00827DCF 43 inc ebx
00827DD0 6F outsd
00827DD1 6C insb
00827DD2 756D jnz 00827E41
00827DD4 6E outsb
00827DD5 385072 cmp [eax+$72], dl
00827DD8 6F outsd
00827DD9 7065 jo 00827E40
00827DDB 7274 jb 00827E51
00827DDD 69657345646974 imul esp, [ebp+$73], $74696445
00827DE4 56 push esi
00827DE5 61 popa
00827DE6 6C insb
00827DE7 7565 jnz 00827E4E
00827DE9 43 inc ebx
00827DEA 68616E6765 push $65676E61
00827DEF 643000 xor fs:[eax], al
00827DF2 FC cld
00827DF3 97 xchg eax, edi
00827DF4 820029 add dword ptr [eax], $29
00827DF7 637847 arpl [eax+$47], di
00827DFA 7269 jb 00827E65
00827DFC 6444 inc esp
00827DFE 42 inc edx
00827DFF 43 inc ebx
00827E00 6F outsd
00827E01 6C insb
00827E02 756D jnz 00827E71
00827E04 6E outsb
00827E05 3550726F70 xor eax, $706F7250
00827E0A 657274 jb 00827E81
00827E0D 69657345646974 imul esp, [ebp+$73], $74696445
00827E14 56 push esi
00827E15 61 popa
00827E16 6C insb
00827E17 7565 jnz 00827E7E
00827E19 43 inc ebx
00827E1A 68616E6765 push $65676E61
00827E1F 643000 xor fs:[eax], al
00827E22 28A182002963 sub [ecx+$63290082], ah
00827E28 7847 js 00827E71
00827E2A 7269 jb 00827E95
00827E2C 6444 inc esp
00827E2E 42 inc edx
00827E2F 43 inc ebx
00827E30 6F outsd
00827E31 6C insb
00827E32 756D jnz 00827EA1
00827E34 6E outsb
00827E35 315072 xor [eax+$72], edx
00827E38 6F outsd
00827E39 7065 jo 00827EA0
00827E3B 7274 jb 00827EB1
00827E3D 69657345646974 imul esp, [ebp+$73], $74696445
00827E44 56 push esi
00827E45 61 popa
00827E46 6C insb
00827E47 7565 jnz 00827EAE
00827E49 43 inc ebx
00827E4A 68616E6765 push $65676E61
00827E4F 6417 pop ss
00827E51 00F4 add ah, dh
00827E53 A382001054 mov dword ptr [$54100082], eax
00827E58 6F outsd
00827E59 6F outsd
00827E5A 6C insb
00827E5B 42 inc edx
00827E5C 7574 jnz 00827ED2
00827E5E 746F jz 00827ECF
00827E60 6E outsb
00827E61 33436C xor eax, [ebx+$6C]
00827E64 69636B2B0090A6 imul esp, [ebx+$6B], $A690002B
00827E6B 820024 add dword ptr [eax], $24
00827E6E 637847 arpl [eax+$47], di
00827E71 7269 jb 00827EDC
00827E73 6444 inc esp
00827E75 42 inc edx
00827E76 43 inc ebx
00827E77 6F outsd
00827E78 6C insb
00827E79 756D jnz 00827EE8
00827E7B 6E outsb
00827E7C 335072 xor edx, [eax+$72]
00827E7F 6F outsd
00827E80 7065 jo 00827EE7
00827E82 7274 jb 00827EF8
00827E84 69657342757474 imul esp, [ebp+$73], $74747542
00827E8B 6F outsd
00827E8C 6E outsb
00827E8D 43 inc ebx
00827E8E 6C insb
00827E8F 69636B2B0010AB imul esp, [ebx+$6B], $AB10002B
00827E96 820024 add dword ptr [eax], $24
00827E99 637847 arpl [eax+$47], di
00827E9C 7269 jb 00827F07
00827E9E 6444 inc esp
00827EA0 42 inc edx
00827EA1 43 inc ebx
00827EA2 6F outsd
00827EA3 6C insb
00827EA4 756D jnz 00827F13
00827EA6 6E outsb
00827EA7 3650 push eax
00827EA9 726F jb 00827F1A
00827EAB 7065 jo 00827F12
00827EAD 7274 jb 00827F23
00827EAF 69657342757474 imul esp, [ebp+$73], $74747542
00827EB6 6F outsd
00827EB7 6E outsb
00827EB8 43 inc ebx
00827EB9 6C insb
00827EBA 69636B25006CAE imul esp, [ebx+$6B], $AE6C0025
00827EC1 82001E add dword ptr [eax], $1E
00827EC4 7632 jbe 00827EF8
00827EC6 43 inc ebx
00827EC7 6F outsd
00827EC8 6C insb
00827EC9 756D jnz 00827F38
00827ECB 6E outsb
00827ECC 335072 xor edx, [eax+$72]
00827ECF 6F outsd
00827ED0 7065 jo 00827F37
00827ED2 7274 jb 00827F48
00827ED4 69657342757474 imul esp, [ebp+$73], $74747542
00827EDB 6F outsd
00827EDC 6E outsb
00827EDD 43 inc ebx
00827EDE 6C insb
00827EDF 69636B1700B0B1 imul esp, [ebx+$6B], $B1B00017
00827EE6 820010 add dword ptr [eax], $10
00827EE9 54 push esp
00827EEA 6F outsd
00827EEB 6F outsd
00827EEC 6C insb
00827EED 42 inc edx
00827EEE 7574 jnz 00827F64
00827EF0 746F jz 00827F61
00827EF2 6E outsb
00827EF3 31436C xor [ebx+$6C], eax
00827EF6 69636B2500F0B1 imul esp, [ebx+$6B], $B1F00025
00827EFD 82001E add dword ptr [eax], $1E
00827F00 7632 jbe 00827F34
00827F02 43 inc ebx
00827F03 6F outsd
00827F04 6C insb
00827F05 756D jnz 00827F74
00827F07 6E outsb
00827F08 37 aaa
00827F09 50 push eax
00827F0A 726F jb 00827F7B
00827F0C 7065 jo 00827F73
00827F0E 7274 jb 00827F84
00827F10 69657342757474 imul esp, [ebp+$73], $74747542
00827F17 6F outsd
00827F18 6E outsb
00827F19 43 inc ebx
00827F1A 6C insb
00827F1B 69636B2A0060B6 imul esp, [ebx+$6B], $B660002A
00827F22 820023 add dword ptr [eax], $23
00827F25 7632 jbe 00827F59
00827F27 43 inc ebx
00827F28 6F outsd
00827F29 6C insb
00827F2A 756D jnz 00827F99
00827F2C 6E outsb
00827F2D 325072 xor dl, byte ptr [eax+$72]
00827F30 6F outsd
00827F31 7065 jo 00827F98
00827F33 7274 jb 00827FA9
00827F35 69657345646974 imul esp, [ebp+$73], $74696445
00827F3C 56 push esi
00827F3D 61 popa
00827F3E 6C insb
00827F3F 7565 jnz 00827FA6
00827F41 43 inc ebx
00827F42 68616E6765 push $65676E61
00827F47 64250024BC82 and eax, $82BC2400
00827F4D 001E add [esi], bl
00827F4F 7632 jbe 00827F83
00827F51 50 push eax
00827F52 53 push ebx
00827F53 50 push eax
00827F54 726F jb 00827FC5
00827F56 7065 jo 00827FBD
00827F58 7274 jb 00827FCE
00827F5A 69657345646974 imul esp, [ebp+$73], $74696445
00827F61 56 push esi
00827F62 61 popa
00827F63 6C insb
00827F64 7565 jnz 00827FCB
00827F66 43 inc ebx
00827F67 68616E6765 push $65676E61
00827F6C 642A00 sub al, byte ptr fs:[eax]
00827F6F C8BE enter , $BE
00827F71 820023 add dword ptr [eax], $23
00827F74 7632 jbe 00827FA8
00827F76 42 inc edx
00827F77 61 popa
00827F78 7463 jz 00827FDD
00827F7A 684E6F5072 push $72506F4E
00827F7F 6F outsd
00827F80 7065 jo 00827FE7
00827F82 7274 jb 00827FF8
00827F84 69657345646974 imul esp, [ebp+$73], $74696445
00827F8B 56 push esi
00827F8C 61 popa
00827F8D 6C insb
00827F8E 7565 jnz 00827FF5
00827F90 43 inc ebx
00827F91 68616E6765 push $65676E61
00827F96 64250048C182 and eax, $82C14800
00827F9C 001E add [esi], bl
00827F9E 7632 jbe 00827FD2
00827FA0 50 push eax
00827FA1 61 popa
00827FA2 794D jns 00827FF1
00827FA4 656E outsb
00827FA6 7450 jz 00827FF8
00827FA8 726F jb 00828019
00827FAA 7065 jo 00828011
00827FAC 7274 jb 00828022
00827FAE 69657342757474 imul esp, [ebp+$73], $74747542
00827FB5 6F outsd
00827FB6 6E outsb
00827FB7 43 inc ebx
00827FB8 6C insb
00827FB9 69636B11007CC4 imul esp, [ebx+$6B], $C47C0011
00827FC0 82000A add dword ptr [eax], $0A
00827FC3 4B dec ebx
00827FC4 50 push eax
00827FC5 4E dec esi
00827FC6 4F dec edi
00827FC7 43 inc ebx
00827FC8 68616E6765 push $65676E61
00827FCD 260090C482001F add es:[eax+$1F0082C4], dl
00827FD4 56 push esi
00827FD5 4B dec ebx
00827FD6 50 push eax
00827FD7 4E dec esi
00827FD8 4F dec edi
00827FD9 50 push eax
00827FDA 726F jb 0082804B
00827FDC 7065 jo 00828043
00827FDE 7274 jb 00828054
00827FE0 69657345646974 imul esp, [ebp+$73], $74696445
00827FE7 56 push esi
00827FE8 61 popa
00827FE9 6C insb
00827FEA 7565 jnz 00828051
00827FEC 43 inc ebx
00827FED 68616E6765 push $65676E61
00827FF2 642900 sub dword ptr fs:[eax], eax
00827FF5 74C6 jz 00827FBD
00827FF7 820022 add dword ptr [eax], $22
00827FFA 7632 jbe 0082802E
00827FFC 4B dec ebx
00827FFD 50 push eax
00827FFE 44 inc esp
00827FFF 4D dec ebp
00828000 4E dec esi
00828001 6F outsd
00828002 50 push eax
00828003 726F jb 00828074
00828005 7065 jo 0082806C
00828007 7274 jb 0082807D
00828009 69657345646974 imul esp, [ebp+$73], $74696445
00828010 56 push esi
00828011 61 popa
00828012 6C insb
00828013 7565 jnz 0082807A
00828015 43 inc ebx
00828016 68616E6765 push $65676E61
0082801B 642200 and al, byte ptr fs:[eax]
0082801E 5C pop esp
0082801F C882 enter , $82
00828021 001B add [ebx], bl
00828023 7632 jbe 00828057
00828025 5A pop edx
00828026 46 inc esi
00828027 54 push esp
00828028 54 push esp
00828029 50 push eax
0082802A 726F jb 0082809B
0082802C 7065 jo 00828093
0082802E 7274 jb 008280A4
00828030 69657342757474 imul esp, [ebp+$73], $74747542
00828037 6F outsd
00828038 6E outsb
00828039 43 inc ebx
0082803A 6C insb
0082803B 69636B30001CCB imul esp, [ebx+$6B], $CB1C0030
00828042 820029 add dword ptr [eax], $29
00828045 637847 arpl [eax+$47], di
00828048 7269 jb 008280B3
0082804A 6444 inc esp
0082804C 42 inc edx
0082804D 43 inc ebx
0082804E 6F outsd
0082804F 6C insb
00828050 756D jnz 008280BF
00828052 6E outsb
00828053 335072 xor edx, [eax+$72]
00828056 6F outsd
00828057 7065 jo 008280BE
00828059 7274 jb 008280CF
0082805B 69657345646974 imul esp, [ebp+$73], $74696445
00828062 56 push esi
00828063 61 popa
00828064 6C insb
00828065 7565 jnz 008280CC
00828067 43 inc ebx
00828068 68616E6765 push $65676E61
0082806D 642900 sub dword ptr fs:[eax], eax
00828070 0CCD or al, $CD
00828072 820022 add dword ptr [eax], $22
00828075 7632 jbe 008280A9
00828077 50 push eax
00828078 5F pop edi
00828079 53 push ebx
0082807A 7065 jo 008280E1
0082807C 635072 arpl [eax+$72], dx
0082807F 6F outsd
00828080 7065 jo 008280E7
00828082 7274 jb 008280F8
00828084 69657345646974 imul esp, [ebp+$73], $74696445
0082808B 56 push esi
0082808C 61 popa
0082808D 6C insb
0082808E 7565 jnz 008280F5
00828090 43 inc ebx
00828091 68616E6765 push $65676E61
00828096 640E push cs
00828098 00F4 add ah, dh
0082809A CE into
0082809B 820007 add dword ptr [eax], $07
0082809E 4E dec esi
0082809F 31436C xor [ebx+$6C], eax
008280A2 69636B0E0004CF imul esp, [ebx+$6B], $CF04000E
008280A9 820007 add dword ptr [eax], $07
008280AC 4E dec esi
008280AD 32436C xor al, byte ptr [ebx+$6C]
008280B0 69636B1D0014CF imul esp, [ebx+$6B], $CF14001D
008280B7 820016 add dword ptr [eax], $16
008280BA 7632 jbe 008280EE
008280BC 53 push ebx
008280BD 7365 jnb 00828124
008280BF 6C insb
008280C0 50 push eax
008280C1 726F jb 00828132
008280C3 7065 jo 0082812A
008280C5 7274 jb 0082813B
008280C7 6965734368616E imul esp, [ebp+$73], $6E616843
008280CE 6765260070CF add es:[bx+si-$31], dh
008280D4 82001F add dword ptr [eax], $1F
008280D7 7632 jbe 0082810B
008280D9 46 inc esi
008280DA 4B dec ebx
008280DB 54 push esp
008280DC 61 popa
008280DD 69546F7550726F70 imul edx, [edi+ebp*2+$75], $706F7250
008280E5 657274 jb 0082815C
008280E8 69657342757474 imul esp, [ebp+$73], $74747542
008280EF 6F outsd
008280F0 6E outsb
008280F1 43 inc ebx
008280F2 6C insb
008280F3 69636B260000D3 imul esp, [ebx+$6B], $D3000026
008280FA 82001F add dword ptr [eax], $1F
008280FD 7632 jbe 00828131
008280FF 4B dec ebx
00828100 50 push eax
00828101 53 push ebx
00828102 7461 jz 00828165
00828104 7475 jz 0082817B
00828106 7350 jnb 00828158
00828108 726F jb 00828179
0082810A 7065 jo 00828171
0082810C 7274 jb 00828182
0082810E 69657342757474 imul esp, [ebp+$73], $74747542
00828115 6F outsd
00828116 6E outsb
00828117 43 inc ebx
00828118 6C insb
00828119 69636B08546672 imul esp, [ebx+$6B], $72665408
00828120 6D insd
00828121 59 pop ecx
00828122 53 push ebx
00828123 46 inc esi
00828124 50 push eax
00828125 1200 adc al, byte ptr [eax]
00828127 28944500648A45 sub [ebp+eax*2+$458A6400], dl
0082812E 00B8124D0020 add [eax+$20004D12], bh
00828134 42 inc edx
00828135 44 inc esp
00828136 001C5F add [edi+ebx*2], bl
00828139 47 inc edi
0082813A 00B867470064 add [eax+$64004767], bh
00828140 D37800 sar dword ptr [eax+$00], cl
00828143 A80A test al, $0A
00828145 7800 js 00828147
00828147 0016 add [esi], dl
00828149 6300 arpl [eax], ax
0082814B F4 hlt
0082814C B466 mov ah, $66
0082814E 0034B1 add [ecx+esi*4], dh
00828151 6600A40E6400E0A5 add [esi+ecx+$A5E00064], ah
00828159 45 inc ebp
0082815A 005876 add [eax+$76], bl
0082815D 7C00 jl 0082815F
0082815F 087F4B or [edi+$4B], bh
00828162 0088996A0088 add [eax+$88006A99], cl
00828168 7E49 jle 008281B3
0082816A 008C7649009074 add [esi+esi*2+$74900049], cl
00828171 81820007085466726D59 add dword ptr [edx+$54080700], $596D7266
0082817B 53 push ebx
0082817C 46 inc esi
0082817D 50 push eax
0082817E 58 pop eax
0082817F 7882 js 00828103
00828181 00D0 add al, dl
00828183 F2 repne
00828184 49 dec ecx
00828185 005E00 add [esi+$00], bl
00828188 06 push es
00828189 55 push ebp
0082818A 5F pop edi
0082818B 59 pop ecx
0082818C 53 push ebx
0082818D 46 inc esi
0082818E 50 push eax
0082818F 0000 add [eax], al
00828191 8D4000 lea eax, [eax+$00]
00828194 55 push ebp
00828195 8BEC mov ebp, esp
00828197 B906000000 mov ecx, $00000006
0082819C 6A00 push $00
0082819E 6A00 push $00
008281A0 49 dec ecx
008281A1 75F9 jnz 0082819C
008281A3 51 push ecx
008281A4 53 push ebx
008281A5 8945FC mov [ebp-$04], eax
008281A8 33C0 xor eax, eax
008281AA 55 push ebp
* Possible String Reference to: '<27>\ǽ<><C7BD><EFBFBD>[<5B><>]<5D>'
|
008281AB 6893838200 push $00828393
***** TRY
|
008281B0 64FF30 push dword ptr fs:[eax]
008281B3 648920 mov fs:[eax], esp
008281B6 33C0 xor eax, eax
008281B8 55 push ebp
008281B9 6854838200 push $00828354
***** TRY
|
008281BE 64FF30 push dword ptr fs:[eax]
008281C1 648920 mov fs:[eax], esp
008281C4 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
008281C7 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
008281CD E882F3C9FF call 004C7554
008281D2 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
008281D5 8B9820030000 mov ebx, [eax+$0320]
008281DB 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008281DD E8F2D6C9FF call 004C58D4
008281E2 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008281E4 E8C35DCBFF call 004DDFAC
008281E9 8B10 mov edx, [eax]
* Reference to method TToolButton.GetClientRect()
|
008281EB FF5244 call dword ptr [edx+$44]
008281EE 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008281F0 E8B75DCBFF call 004DDFAC
* Possible String Reference to: ' select A.*,C.OrderNo '
|
008281F5 BAA8838200 mov edx, $008283A8
008281FA 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008281FC FF5138 call dword ptr [ecx+$38]
008281FF 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00828201 E8A65DCBFF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
00828206 BAC8838200 mov edx, $008283C8
0082820B 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0082820D FF5138 call dword ptr [ecx+$38]
00828210 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00828212 E8955DCBFF call 004DDFAC
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
| =B.CRID'
|
00828217 BAE8838200 mov edx, $008283E8
0082821C 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0082821E FF5138 call dword ptr [ecx+$38]
00828221 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00828223 E8845DCBFF call 004DDFAC
* Possible String Reference to: ' left join JYOrder_Main C on A.Main
| Id=C.MainId'
|
00828228 BA1C848200 mov edx, $0082841C
0082822D 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0082822F FF5138 call dword ptr [ecx+$38]
00828232 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00828234 E8735DCBFF call 004DDFAC
* Possible String Reference to: 'where A.CRTime>=:begdate and A.CRTi
| me<:Enddate and A.CRType='Ӧ<>տ<D5BF>
| <20><>Ǽ<EFBFBD>' '
|
00828239 BA54848200 mov edx, $00828454
0082823E 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00828240 FF5138 call dword ptr [ecx+$38]
00828243 8B45FC mov eax, [ebp-$04]
* Reference to control ConPerson1 : N.A.
|
00828246 8B8058030000 mov eax, [eax+$0358]
0082824C FFB014020000 push dword ptr [eax+$0214]
00828252 FFB010020000 push dword ptr [eax+$0210]
00828258 8D55E4 lea edx, [ebp-$1C]
* Possible String Reference to: 'yyyy-MM-dd'
|
0082825B B8AC848200 mov eax, $008284AC
|
00828260 E85769BEFF call 0040EBBC
00828265 8B45E4 mov eax, [ebp-$1C]
00828268 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0082826B E87C26BEFF call 0040A8EC
00828270 8B55E8 mov edx, [ebp-$18]
00828273 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00828276 E84D0BBFFF call 00418DC8
0082827B 8D45EC lea eax, [ebp-$14]
0082827E 50 push eax
0082827F 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
00828281 E86A40CBFF call 004DC2F0
00828286 BABC848200 mov edx, $008284BC
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
0082828B E870C1CAFF call 004D4400
00828290 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
00828291 E82ED4CAFF call 004D56C4
00828296 8B45FC mov eax, [ebp-$04]
* Reference to control Label10 : TLabel
|
00828299 8B805C030000 mov eax, [eax+$035C]
0082829F DD8010020000 fld qword ptr [eax+$0210]
008282A5 D805CC848200 fadd dword ptr [$008284CC]
008282AB 83C4F8 add esp, -$08
008282AE DD1C24 fstp qword ptr [esp]
008282B1 9B wait
008282B2 8D55CC lea edx, [ebp-$34]
* Possible String Reference to: 'yyyy-MM-dd'
|
008282B5 B8AC848200 mov eax, $008284AC
|
008282BA E8FD68BEFF call 0040EBBC
008282BF 8B45CC mov eax, [ebp-$34]
008282C2 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008282C5 E82226BEFF call 0040A8EC
008282CA 8B55D0 mov edx, [ebp-$30]
008282CD 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008282D0 E8F30ABFFF call 00418DC8
008282D5 8D45D4 lea eax, [ebp-$2C]
008282D8 50 push eax
008282D9 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
008282DB E81040CBFF call 004DC2F0
008282E0 BAD4848200 mov edx, $008284D4
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
008282E5 E816C1CAFF call 004D4400
008282EA 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
008282EB E8D4D3CAFF call 004D56C4
008282F0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
008282F2 E8D1D5C9FF call 004C58C8
008282F7 8B45FC mov eax, [ebp-$04]
* Reference to control Label14 : TLabel
|
008282FA 8B9068030000 mov edx, [eax+$0368]
00828300 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00828303 8B8020030000 mov eax, [eax+$0320]
|
00828309 E882EBF8FF call 007B6E90
0082830E 8B45FC mov eax, [ebp-$04]
* Reference to control Label14 : TLabel
|
00828311 8B9068030000 mov edx, [eax+$0368]
00828317 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
0082831A 8B8020030000 mov eax, [eax+$0320]
|
00828320 E8F3ECF8FF call 007B7018
00828325 8B45FC mov eax, [ebp-$04]
* Reference to control Label1 : TLabel
|
00828328 8B80A0030000 mov eax, [eax+$03A0]
0082832E BAEC848200 mov edx, $008284EC
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00828333 E8E802C6FF call 00488620
00828338 33C0 xor eax, eax
0082833A 5A pop edx
0082833B 59 pop ecx
0082833C 59 pop ecx
0082833D 648910 mov fs:[eax], edx
****** FINALLY
|
00828340 685B838200 push $0082835B
00828345 8B45FC mov eax, [ebp-$04]
* Reference to control ToolButton1 : TToolButton
|
00828348 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
0082834E E821F2C9FF call 004C7574
00828353 C3 ret
* Reference to: System.@HandleFinally;
|
00828354 E99BC7BDFF jmp 00404AF4
00828359 EBEA jmp 00828345
****** END
|
0082835B 33C0 xor eax, eax
0082835D 5A pop edx
0082835E 59 pop ecx
0082835F 59 pop ecx
00828360 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
00828363 689A838200 push $0082839A
00828368 8D45CC lea eax, [ebp-$34]
0082836B BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00828370 E8D3CFBDFF call 00405348
00828375 8D45D4 lea eax, [ebp-$2C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00828378 E8F7C2BEFF call 00414674
0082837D 8D45E4 lea eax, [ebp-$1C]
00828380 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00828385 E8BECFBDFF call 00405348
0082838A 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0082838D E8E2C2BEFF call 00414674
00828392 C3 ret
*)
end;
end.
Reference in New Issue View Git Blame Copy Permalink