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

6826 lines
256 KiB
ObjectPascal
Raw Permalink Blame History

This file contains ambiguous Unicode characters

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

unit U_CaiWuHuilV;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmCaiWuHuiLV=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
V1BegDate: TcxGridDBColumn;
V1HuiLv: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
begdate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
v2EndDate: TcxGridDBColumn;
v2ssel: TcxGridDBColumn;
Edit1: TEdit;
Label7: TLabel;
Button1: TToolButton;
TADD: TToolButton;
TDel: TToolButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
TSel: TToolButton;
v2Filler: TcxGridDBColumn;
v2Note: TcxGridDBColumn;
Label1: TLabel;
HuiLV: TfrmCaiWuHuiLV;
TSave: TToolButton;
ADOQuery1: TADOQuery;
v2GSType: TcxGridDBColumn;
Label3: TLabel;
Label4: TLabel;
GSType: TComboBox;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure v2Column2PropertiesEditValueChanged(Sender : TObject);
procedure v2PSPropertiesEditValueChanged(Sender : TObject);
procedure v2BatchNoPropertiesEditValueChanged(Sender : TObject);
procedure v2PayMentPropertiesButtonClick(Sender : TObject);
procedure v2T_qtyPropertiesEditValueChanged(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure v2T_PricePropertiesEditValueChanged(Sender : TObject);
procedure v2OrderNOPropertiesButtonClick(Sender : TObject);
procedure v2ComTaiTouPropertiesButtonClick(Sender : TObject);
procedure v2P_ColorPropertiesButtonClick(Sender : TObject);
procedure TADDClick(Sender : TObject);
procedure TDelClick(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure v2KPTypePropertiesEditValueChanged(Sender : TObject);
procedure cxTabControl2Change(Sender : TObject);
procedure TSelClick(Sender : TObject);
procedure HuiLVChange(Sender : TObject);
procedure TSaveClick(Sender : TObject);
procedure v2GSTypePropertiesButtonClick(Sender : TObject);
procedure GSTypeChange(Sender : TObject);
procedure begdateChange(Sender : TObject);
procedure _PROC_00872311(Sender : TObject);
procedure _PROC_00872C39(Sender : TObject);
procedure _PROC_00873031(Sender : TObject);
procedure _PROC_00873549(Sender : TObject);
procedure _PROC_00873866(Sender : TObject);
procedure _PROC_0087389C(Sender : TObject);
procedure _PROC_008738A9(Sender : TObject);
procedure _PROC_00873BED(Sender : TObject);
procedure _PROC_00873F6D(Sender : TObject);
procedure _PROC_00874211(Sender : TObject);
procedure _PROC_008745F1(Sender : TObject);
procedure _PROC_00874921(Sender : TObject);
procedure _PROC_00874CCD(Sender : TObject);
procedure _PROC_008754D9(Sender : TObject);
procedure _PROC_00875975(Sender : TObject);
procedure _PROC_00875CE9(Sender : TObject);
procedure _PROC_008760BD(Sender : TObject);
procedure _PROC_0087638F(Sender : TObject);
procedure _PROC_0087659D(Sender : TObject);
procedure _PROC_00876C45(Sender : TObject);
procedure _PROC_00876C74(Sender : TObject);
procedure _PROC_00876C7C(Sender : TObject);
procedure _PROC_00876CAC(Sender : TObject);
procedure _PROC_00876CB4(Sender : TObject);
procedure _PROC_00876CE4(Sender : TObject);
procedure _PROC_00876CEC(Sender : TObject);
procedure _PROC_00876D1C(Sender : TObject);
procedure _PROC_00876D24(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmCaiWuHuiLV: TfrmCaiWuHuiLV;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmCaiWuHuiLV.FormDestroy(Sender : TObject);
begin
(*
00871DF8 33C0 xor eax, eax
* Reference to GlobalVar_00895AB8
|
00871DFA A3B85A8900 mov dword ptr [$00895AB8], eax
00871DFF C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.FormClose(Sender : TObject);
begin
(*
00871E00 C60102 mov byte ptr [ecx], $02
00871E03 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.TBCloseClick(Sender : TObject);
begin
(*
00871E04 53 push ebx
00871E05 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00871E07 B9301E8700 mov ecx, $00871E30
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
00871E0C 8B9328030000 mov edx, [ebx+$0328]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ'
|
00871E12 B8441E8700 mov eax, $00871E44
|
00871E17 E8845DF4FF call 007B7BA0
00871E1C 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00871E1E E87541C3FF call 004A5F98
00871E23 5B pop ebx
00871E24 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.FormShow(Sender : TObject);
begin
(*
00871E50 53 push ebx
00871E51 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00871E53 B99C1E8700 mov ecx, $00871E9C
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
00871E58 8B9328030000 mov edx, [ebx+$0328]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ'
|
00871E5E B8B01E8700 mov eax, $00871EB0
|
00871E63 E83C5BF4FF call 007B79A4
* Reference to control TfrmCaiWuHuiLV.ADOQueryTemp : TADOQuery
|
00871E68 8B8304030000 mov eax, [ebx+$0304]
|
00871E6E E8152BF4FF call 007B4988
00871E73 D825BC1E8700 fsub dword ptr [$00871EBC]
00871E79 83C4F8 add esp, -$08
00871E7C DD1C24 fstp qword ptr [esp]
00871E7F 9B wait
* Reference to control TfrmCaiWuHuiLV.begdate : TDateTimePicker
|
00871E80 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00871E86 E8A103C0FF call 0047222C
00871E8B 8BC3 mov eax, ebx
|
00871E8D E8FEFCFFFF call 00871B90
00871E92 5B pop ebx
00871E93 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.TBRafreshClick(Sender : TObject);
begin
(*
00871EC0 53 push ebx
00871EC1 8BD8 mov ebx, eax
* Reference to control TfrmCaiWuHuiLV.ToolBar1 : TToolBar
|
00871EC3 8B83F8020000 mov eax, [ebx+$02F8]
00871EC9 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
00871ECB FF92C4000000 call dword ptr [edx+$00C4]
00871ED1 8BC3 mov eax, ebx
|
00871ED3 E8B8FCFFFF call 00871B90
00871ED8 5B pop ebx
00871ED9 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.ToolButton2Click(Sender : TObject);
begin
(*
00871EDC 55 push ebp
00871EDD 8BEC mov ebp, esp
00871EDF 6A00 push $00
00871EE1 53 push ebx
00871EE2 8BD8 mov ebx, eax
00871EE4 33C0 xor eax, eax
00871EE6 55 push ebp
00871EE7 68511F8700 push $00871F51
***** TRY
|
00871EEC 64FF30 push dword ptr fs:[eax]
00871EEF 648920 mov fs:[eax], esp
00871EF2 8D45FC lea eax, [ebp-$04]
00871EF5 50 push eax
00871EF6 B902000000 mov ecx, $00000002
00871EFB BA01000000 mov edx, $00000001
* Reference to control TfrmCaiWuHuiLV.Panel1 : TPanel
|
00871F00 8B830C030000 mov eax, [ebx+$030C]
|
00871F06 E8A541F4FF call 007B60B0
00871F0B 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmCaiWuHuiLV.ADOQueryMain : TADOQuery
|
00871F0E 8B8314030000 mov eax, [ebx+$0314]
|
00871F14 E8AF4DF4FF call 007B6CC8
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00871F19 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmCaiWuHuiLV.ADOQueryMain : TADOQuery
|
00871F1F 8B8314030000 mov eax, [ebx+$0314]
|
00871F25 E8664FF4FF call 007B6E90
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00871F2A 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmCaiWuHuiLV.ADOQueryMain : TADOQuery
|
00871F30 8B8314030000 mov eax, [ebx+$0314]
|
00871F36 E8DD50F4FF call 007B7018
00871F3B 33C0 xor eax, eax
00871F3D 5A pop edx
00871F3E 59 pop ecx
00871F3F 59 pop ecx
00871F40 648910 mov fs:[eax], edx
****** FINALLY
|
00871F43 68581F8700 push $00871F58
00871F48 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00871F4B E8D433B9FF call 00405324
00871F50 C3 ret
* Reference to: System.@HandleFinally;
|
00871F51 E99E2BB9FF jmp 00404AF4
00871F56 EBF0 jmp 00871F48
****** END
|
00871F58 5B pop ebx
00871F59 59 pop ecx
00871F5A 5D pop ebp
00871F5B C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.FactoryNameChange(Sender : TObject);
begin
(*
00871F5C 56 push esi
* Reference to control TfrmCaiWuHuiLV.ToolButton2 : TToolButton
|
00871F5D 8B8010030000 mov eax, [eax+$0310]
00871F63 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00871F67 E8E825B9FF call 00404554
00871F6C 5E pop esi
00871F6D C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.Button2Click(Sender : TObject);
begin
(*
00871F70 55 push ebp
00871F71 8BEC mov ebp, esp
00871F73 33C9 xor ecx, ecx
00871F75 51 push ecx
00871F76 51 push ecx
00871F77 51 push ecx
00871F78 51 push ecx
00871F79 51 push ecx
00871F7A 53 push ebx
00871F7B 56 push esi
00871F7C 8BD8 mov ebx, eax
00871F7E 33C0 xor eax, eax
00871F80 55 push ebp
* Possible String Reference to: '<27>r*<2A><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00871F81 687D208700 push $0087207D
***** TRY
|
00871F86 64FF30 push dword ptr fs:[eax]
00871F89 648920 mov fs:[eax], esp
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00871F8C 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00871F92 E8295FC5FF call 004C7EC0
00871F97 84C0 test al, al
00871F99 0F85C3000000 jnz 00872062
00871F9F 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
00871FA1 B98C208700 mov ecx, $0087208C
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00871FA6 BA94208700 mov edx, $00872094
*)
end;
procedure TfrmCaiWuHuiLV.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
008720EC 55 push ebp
008720ED 8BEC mov ebp, esp
008720EF B908000000 mov ecx, $00000008
008720F4 6A00 push $00
008720F6 6A00 push $00
008720F8 49 dec ecx
008720F9 75F9 jnz 008720F4
008720FB 51 push ecx
008720FC 53 push ebx
008720FD 56 push esi
008720FE 8BDA mov ebx, edx
00872100 8BF0 mov esi, eax
00872102 33C0 xor eax, eax
00872104 55 push ebp
* Possible String Reference to: '<27><>'<27><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00872105 68FA228700 push $008722FA
***** TRY
|
0087210A 64FF30 push dword ptr fs:[eax]
0087210D 648920 mov fs:[eax], esp
00872110 8D55FC lea edx, [ebp-$04]
00872113 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;
|
00872115 E8A2D5D1FF call 0058F6BC
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
0087211A 8B8628030000 mov eax, [esi+$0328]
* 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;
|
00872120 E827A2DEFF 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;
|
00872125 E83AFADDFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0087212A 8B4050 mov eax, [eax+$50]
0087212D 8D55F4 lea edx, [ebp-$0C]
00872130 8B08 mov ecx, [eax]
00872132 FF5110 call dword ptr [ecx+$10]
00872135 8B45F4 mov eax, [ebp-$0C]
00872138 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087213B E8AC87B9FF call 0040A8EC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00872140 8B9E48030000 mov ebx, [esi+$0348]
00872146 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00872148 E8F362C5FF call 004C8440
0087214D 8D55E0 lea edx, [ebp-$20]
00872150 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00872153 E89487B9FF call 0040A8EC
00872158 8B55E0 mov edx, [ebp-$20]
0087215B 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0087215E E8656CBAFF call 00418DC8
00872163 8D45E4 lea eax, [ebp-$1C]
00872166 50 push eax
00872167 8B55F8 mov edx, [ebp-$08]
0087216A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0087216C E8434AC5FF call 004C6BB4
00872171 5A pop edx
00872172 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00872174 FF91B4000000 call dword ptr [ecx+$00B4]
0087217A 8BC3 mov eax, ebx
0087217C 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0087217E FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmCaiWuHuiLV.ADOQueryCmd : TADOQuery
|
00872184 8B9E08030000 mov ebx, [esi+$0308]
0087218A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0087218C E84337C5FF call 004C58D4
00872191 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00872193 E814BEC6FF call 004DDFAC
00872198 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
0087219A FF5244 call dword ptr [edx+$44]
0087219D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0087219F E808BEC6FF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
008721A4 BA10238700 mov edx, $00872310
008721A9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008721AB FF5138 call dword ptr [ecx+$38]
008721AE 8D55DC lea edx, [ebp-$24]
008721B1 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008721B4 E83387B9FF call 0040A8EC
008721B9 837DDC00 cmp dword ptr [ebp-$24], +$00
008721BD 7440 jz 008721FF
* Possible String Reference to: ' Set '
|
008721BF 682C238700 push $0087232C
008721C4 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008721C7 683C238700 push $0087233C
008721CC 8D55D4 lea edx, [ebp-$2C]
008721CF 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008721D2 E81587B9FF call 0040A8EC
008721D7 FF75D4 push dword ptr [ebp-$2C]
008721DA 6848238700 push $00872348
008721DF 8D45D8 lea eax, [ebp-$28]
008721E2 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008721E7 E8C834B9FF call 004056B4
008721EC 8B45D8 mov eax, [ebp-$28]
008721EF 50 push eax
008721F0 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008721F2 E8B5BDC6FF call 004DDFAC
008721F7 5A pop edx
008721F8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008721FA FF5138 call dword ptr [ecx+$38]
008721FD EB2B jmp 0087222A
008721FF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00872201 E8A6BDC6FF call 004DDFAC
00872206 50 push eax
* Possible String Reference to: ' Set '
|
00872207 682C238700 push $0087232C
0087220C FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
0087220F 6854238700 push $00872354
00872214 8D45D0 lea eax, [ebp-$30]
00872217 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0087221C E89334B9FF call 004056B4
00872221 8B55D0 mov edx, [ebp-$30]
00872224 58 pop eax
00872225 8B08 mov ecx, [eax]
00872227 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0087222A 6864238700 push $00872364
0087222F 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmCaiWuHuiLV.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
008723B8 55 push ebp
008723B9 8BEC mov ebp, esp
008723BB B921000000 mov ecx, $00000021
008723C0 6A00 push $00
008723C2 6A00 push $00
008723C4 49 dec ecx
008723C5 75F9 jnz 008723C0
008723C7 53 push ebx
008723C8 56 push esi
008723C9 8BF2 mov esi, edx
008723CB 8BD8 mov ebx, eax
008723CD 33C0 xor eax, eax
008723CF 55 push ebp
008723D0 68452B8700 push $00872B45
***** TRY
|
008723D5 64FF30 push dword ptr fs:[eax]
008723D8 648920 mov fs:[eax], esp
008723DB 8D55FC lea edx, [ebp-$04]
008723DE 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;
|
008723E0 E8D7D2D1FF call 0058F6BC
008723E5 8D55DC lea edx, [ebp-$24]
008723E8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008723EB E8FC84B9FF call 0040A8EC
008723F0 837DDC00 cmp dword ptr [ebp-$24], +$00
008723F4 750D jnz 00872403
008723F6 8D45FC lea eax, [ebp-$04]
008723F9 BA5C2B8700 mov edx, $00872B5C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008723FE E8B92FB9FF call 004053BC
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
00872403 8B8328030000 mov eax, [ebx+$0328]
* 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;
|
00872409 E83E9FDEFF 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;
|
0087240E E851F7DDFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00872413 8B4050 mov eax, [eax+$50]
00872416 8D55D8 lea edx, [ebp-$28]
00872419 8B08 mov ecx, [eax]
0087241B FF5110 call dword ptr [ecx+$10]
0087241E 8B45D8 mov eax, [ebp-$28]
00872421 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00872424 E8C384B9FF call 0040A8EC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00872429 8BB348030000 mov esi, [ebx+$0348]
0087242F 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00872431 E80A60C5FF call 004C8440
00872436 8D55C4 lea edx, [ebp-$3C]
00872439 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087243C E8AB84B9FF call 0040A8EC
00872441 8B55C4 mov edx, [ebp-$3C]
00872444 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00872447 E87C69BAFF call 00418DC8
0087244C 8D45C8 lea eax, [ebp-$38]
0087244F 50 push eax
00872450 8B55E0 mov edx, [ebp-$20]
00872453 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00872455 E85A47C5FF call 004C6BB4
0087245A 5A pop edx
0087245B 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0087245D FF91B4000000 call dword ptr [ecx+$00B4]
00872463 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmCaiWuHuiLV.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
00872D60 55 push ebp
00872D61 8BEC mov ebp, esp
00872D63 B909000000 mov ecx, $00000009
00872D68 6A00 push $00
00872D6A 6A00 push $00
00872D6C 49 dec ecx
00872D6D 75F9 jnz 00872D68
00872D6F 51 push ecx
00872D70 53 push ebx
00872D71 56 push esi
00872D72 8BDA mov ebx, edx
00872D74 8BF0 mov esi, eax
00872D76 33C0 xor eax, eax
00872D78 55 push ebp
00872D79 68D52F8700 push $00872FD5
***** TRY
|
00872D7E 64FF30 push dword ptr fs:[eax]
00872D81 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00872D84 BAEC2F8700 mov edx, $00872FEC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00872D89 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00872D8F E8203EC5FF call 004C6BB4
00872D94 8D55F0 lea edx, [ebp-$10]
00872D97 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00872D99 FF5160 call dword ptr [ecx+$60]
00872D9C 8B45F0 mov eax, [ebp-$10]
00872D9F 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00872DA2 E8457BB9FF call 0040A8EC
00872DA7 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00872DAA BAFC2F8700 mov edx, $00872FFC
* Reference to: System.@LStrCmp;
|
00872DAF E88C29B9FF call 00405740
00872DB4 751D jnz 00872DD3
00872DB6 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00872DB8 B908308700 mov ecx, $00873008
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00872DBD BA10308700 mov edx, $00873010
*)
end;
procedure TfrmCaiWuHuiLV.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
008730D8 55 push ebp
008730D9 8BEC mov ebp, esp
008730DB 51 push ecx
008730DC B90C000000 mov ecx, $0000000C
008730E1 6A00 push $00
008730E3 6A00 push $00
008730E5 49 dec ecx
008730E6 75F9 jnz 008730E1
008730E8 51 push ecx
008730E9 874DFC xchg [ebp-$04], ecx
008730EC 53 push ebx
008730ED 56 push esi
008730EE 8BF0 mov esi, eax
008730F0 33C0 xor eax, eax
008730F2 55 push ebp
008730F3 6877348700 push $00873477
***** TRY
|
008730F8 64FF30 push dword ptr fs:[eax]
008730FB 648920 mov fs:[eax], esp
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
008730FE 8B8648030000 mov eax, [esi+$0348]
* Possible String Reference to: 'YFType'
|
00873104 BA8C348700 mov edx, $0087348C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00873109 E8A63AC5FF call 004C6BB4
0087310E 8D55F8 lea edx, [ebp-$08]
00873111 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00873113 FF5160 call dword ptr [ecx+$60]
00873116 8B45F8 mov eax, [ebp-$08]
00873119 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087311C E8CB77B9FF call 0040A8EC
00873121 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00873124 BA9C348700 mov edx, $0087349C
* Reference to: System.@LStrCmp;
|
00873129 E81226B9FF call 00405740
0087312E 751D jnz 0087314D
00873130 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00873132 B9A8348700 mov ecx, $008734A8
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00873137 BAB0348700 mov edx, $008734B0
*)
end;
procedure TfrmCaiWuHuiLV.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
008735F0 55 push ebp
008735F1 8BEC mov ebp, esp
008735F3 51 push ecx
008735F4 B906000000 mov ecx, $00000006
008735F9 6A00 push $00
008735FB 6A00 push $00
008735FD 49 dec ecx
008735FE 75F9 jnz 008735F9
00873600 51 push ecx
00873601 874DFC xchg [ebp-$04], ecx
00873604 53 push ebx
00873605 56 push esi
00873606 8BF0 mov esi, eax
00873608 33C0 xor eax, eax
0087360A 55 push ebp
0087360B 6849388700 push $00873849
***** TRY
|
00873610 64FF30 push dword ptr fs:[eax]
00873613 648920 mov fs:[eax], esp
00873616 33C0 xor eax, eax
00873618 55 push ebp
00873619 681F388700 push $0087381F
***** TRY
|
0087361E 64FF30 push dword ptr fs:[eax]
00873621 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
0087394C 55 push ebp
0087394D 8BEC mov ebp, esp
0087394F 51 push ecx
00873950 B906000000 mov ecx, $00000006
00873955 6A00 push $00
00873957 6A00 push $00
00873959 49 dec ecx
0087395A 75F9 jnz 00873955
0087395C 51 push ecx
0087395D 874DFC xchg [ebp-$04], ecx
00873960 53 push ebx
00873961 56 push esi
00873962 8BF0 mov esi, eax
00873964 33C0 xor eax, eax
00873966 55 push ebp
00873967 68A53B8700 push $00873BA5
***** TRY
|
0087396C 64FF30 push dword ptr fs:[eax]
0087396F 648920 mov fs:[eax], esp
00873972 33C0 xor eax, eax
00873974 55 push ebp
00873975 687B3B8700 push $00873B7B
***** TRY
|
0087397A 64FF30 push dword ptr fs:[eax]
0087397D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV.ToolButton1Click(Sender : TObject);
begin
(*
00873C90 53 push ebx
00873C91 8BD8 mov ebx, eax
* Reference to control TfrmCaiWuHuiLV.ADOQueryMain : TADOQuery
|
00873C93 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00873C99 E82242C5FF call 004C7EC0
00873C9E 84C0 test al, al
00873CA0 7516 jnz 00873CB8
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
00873CA2 B9C43C8700 mov ecx, $00873CC4
* Reference to control TfrmCaiWuHuiLV.ADOQueryMain : TADOQuery
|
00873CA7 8B9314030000 mov edx, [ebx+$0314]
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
00873CAD 8B8328030000 mov eax, [ebx+$0328]
|
00873CB3 E87845F4FF call 007B8230
00873CB8 5B pop ebx
00873CB9 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.v2Column2PropertiesEditValueChanged(Sender : TObject);
begin
(*
00873CD0 55 push ebp
00873CD1 8BEC mov ebp, esp
00873CD3 B909000000 mov ecx, $00000009
00873CD8 6A00 push $00
00873CDA 6A00 push $00
00873CDC 49 dec ecx
00873CDD 75F9 jnz 00873CD8
00873CDF 53 push ebx
00873CE0 56 push esi
00873CE1 8BDA mov ebx, edx
00873CE3 8BF0 mov esi, eax
00873CE5 33C0 xor eax, eax
00873CE7 55 push ebp
00873CE8 68073F8700 push $00873F07
***** TRY
|
00873CED 64FF30 push dword ptr fs:[eax]
00873CF0 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00873CF3 BA1C3F8700 mov edx, $00873F1C
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00873CF8 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00873CFE E8B12EC5FF call 004C6BB4
00873D03 8D55F0 lea edx, [ebp-$10]
00873D06 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00873D08 FF5160 call dword ptr [ecx+$60]
00873D0B 8B45F0 mov eax, [ebp-$10]
00873D0E 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00873D11 E8D66BB9FF call 0040A8EC
00873D16 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00873D19 BA2C3F8700 mov edx, $00873F2C
* Reference to: System.@LStrCmp;
|
00873D1E E81D1AB9FF call 00405740
00873D23 751D jnz 00873D42
00873D25 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00873D27 B9383F8700 mov ecx, $00873F38
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00873D2C BA403F8700 mov edx, $00873F40
*)
end;
procedure TfrmCaiWuHuiLV.v2PSPropertiesEditValueChanged(Sender : TObject);
begin
(*
00874004 55 push ebp
00874005 8BEC mov ebp, esp
00874007 B908000000 mov ecx, $00000008
0087400C 6A00 push $00
0087400E 6A00 push $00
00874010 49 dec ecx
00874011 75F9 jnz 0087400C
00874013 53 push ebx
00874014 56 push esi
00874015 8BDA mov ebx, edx
00874017 8BF0 mov esi, eax
00874019 33C0 xor eax, eax
0087401B 55 push ebp
0087401C 68EC418700 push $008741EC
***** TRY
|
00874021 64FF30 push dword ptr fs:[eax]
00874024 648920 mov fs:[eax], esp
00874027 8D55FC lea edx, [ebp-$04]
0087402A 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;
|
0087402C E88BB6D1FF call 0058F6BC
00874031 8D55F4 lea edx, [ebp-$0C]
00874034 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874037 E8B068B9FF call 0040A8EC
0087403C 837DF400 cmp dword ptr [ebp-$0C], +$00
00874040 750D jnz 0087404F
00874042 8D45FC lea eax, [ebp-$04]
00874045 BA04428700 mov edx, $00874204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0087404A E86D13B9FF call 004053BC
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
0087404F 8B8628030000 mov eax, [esi+$0328]
* 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;
|
00874055 E8F282DEFF 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;
|
0087405A E805DBDDFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0087405F 8B4050 mov eax, [eax+$50]
00874062 8D55F0 lea edx, [ebp-$10]
00874065 8B08 mov ecx, [eax]
00874067 FF5110 call dword ptr [ecx+$10]
0087406A 8B45F0 mov eax, [ebp-$10]
0087406D 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874070 E87768B9FF call 0040A8EC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00874075 8B9E48030000 mov ebx, [esi+$0348]
0087407B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0087407D E8BE43C5FF call 004C8440
00874082 8D55DC lea edx, [ebp-$24]
00874085 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874088 E85F68B9FF call 0040A8EC
0087408D 8B55DC mov edx, [ebp-$24]
00874090 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874093 E8304DBAFF call 00418DC8
00874098 8D45E0 lea eax, [ebp-$20]
0087409B 50 push eax
0087409C 8B55F8 mov edx, [ebp-$08]
0087409F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008740A1 E80E2BC5FF call 004C6BB4
008740A6 5A pop edx
008740A7 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008740A9 FF91B4000000 call dword ptr [ecx+$00B4]
008740AF 8BC3 mov eax, ebx
008740B1 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008740B3 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmCaiWuHuiLV.ADOQueryCmd : TADOQuery
|
008740B9 8B9E08030000 mov ebx, [esi+$0308]
008740BF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008740C1 E80E18C5FF call 004C58D4
008740C6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008740C8 E8DF9EC6FF call 004DDFAC
008740CD 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008740CF FF5244 call dword ptr [edx+$44]
008740D2 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008740D4 E8D39EC6FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008740D9 BA10428700 mov edx, $00874210
008740DE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008740E0 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008740E3 682C428700 push $0087422C
008740E8 FF75F8 push dword ptr [ebp-$08]
008740EB 683C428700 push $0087423C
008740F0 8D55D4 lea edx, [ebp-$2C]
008740F3 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008740F6 E8F167B9FF call 0040A8EC
008740FB FF75D4 push dword ptr [ebp-$2C]
008740FE 8D45D8 lea eax, [ebp-$28]
00874101 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00874106 E8A915B9FF call 004056B4
0087410B 8B45D8 mov eax, [ebp-$28]
0087410E 50 push eax
0087410F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00874111 E8969EC6FF call 004DDFAC
00874116 5A pop edx
00874117 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00874119 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0087411C 6848428700 push $00874248
00874121 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmCaiWuHuiLV.v2BatchNoPropertiesEditValueChanged(Sender : TObject);
begin
(*
008742A8 55 push ebp
008742A9 8BEC mov ebp, esp
008742AB B90E000000 mov ecx, $0000000E
008742B0 6A00 push $00
008742B2 6A00 push $00
008742B4 49 dec ecx
008742B5 75F9 jnz 008742B0
008742B7 53 push ebx
008742B8 56 push esi
008742B9 8BDA mov ebx, edx
008742BB 8BF0 mov esi, eax
008742BD 33C0 xor eax, eax
008742BF 55 push ebp
008742C0 68A1458700 push $008745A1
***** TRY
|
008742C5 64FF30 push dword ptr fs:[eax]
008742C8 648920 mov fs:[eax], esp
008742CB 8D55FC lea edx, [ebp-$04]
008742CE 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;
|
008742D0 E8E7B3D1FF call 0058F6BC
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
008742D5 8B8628030000 mov eax, [esi+$0328]
* 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;
|
008742DB E86C80DEFF 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;
|
008742E0 E87FD8DDFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008742E5 8B4050 mov eax, [eax+$50]
008742E8 8D55F4 lea edx, [ebp-$0C]
008742EB 8B08 mov ecx, [eax]
008742ED FF5110 call dword ptr [ecx+$10]
008742F0 8B45F4 mov eax, [ebp-$0C]
008742F3 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008742F6 E8F165B9FF call 0040A8EC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
008742FB 8B9E48030000 mov ebx, [esi+$0348]
00874301 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00874303 E83841C5FF call 004C8440
00874308 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
0087430B BAB8458700 mov edx, $008745B8
* Reference to: System.@LStrCmp;
|
00874310 E82B14B9FF call 00405740
00874315 751E jnz 00874335
00874317 8D55F0 lea edx, [ebp-$10]
0087431A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087431D E8CA65B9FF call 0040A8EC
00874322 837DF000 cmp dword ptr [ebp-$10], +$00
00874326 750D jnz 00874335
00874328 8D45FC lea eax, [ebp-$04]
0087432B BAC8458700 mov edx, $008745C8
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00874330 E88710B9FF call 004053BC
00874335 8D55DC lea edx, [ebp-$24]
00874338 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087433B E8AC65B9FF call 0040A8EC
00874340 8B55DC mov edx, [ebp-$24]
00874343 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874346 E87D4ABAFF call 00418DC8
0087434B 8D45E0 lea eax, [ebp-$20]
0087434E 50 push eax
0087434F 8B55F8 mov edx, [ebp-$08]
00874352 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874354 E85B28C5FF call 004C6BB4
00874359 5A pop edx
0087435A 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
0087435C FF91B4000000 call dword ptr [ecx+$00B4]
00874362 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
00874365 BAB8458700 mov edx, $008745B8
* Reference to: System.@LStrCmp;
|
0087436A E8D113B9FF call 00405740
0087436F 7553 jnz 008743C4
* Possible String Reference to: 'GCPrice'
|
00874371 BAB8458700 mov edx, $008745B8
00874376 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874378 E83728C5FF call 004C6BB4
0087437D 8D55CC lea edx, [ebp-$34]
00874380 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_64
|
00874382 FF5164 call dword ptr [ecx+$64]
00874385 8D45CC lea eax, [ebp-$34]
00874388 50 push eax
* Possible String Reference to: 'Qty'
|
00874389 BAD4458700 mov edx, $008745D4
0087438E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874390 E81F28C5FF call 004C6BB4
00874395 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00874397 FF5254 call dword ptr [edx+$54]
0087439A 8D45BC lea eax, [ebp-$44]
* Reference to: Variants.@VarFromReal;
|
0087439D E8EA49BAFF call 00418D8C
008743A2 8D55BC lea edx, [ebp-$44]
008743A5 58 pop eax
* Reference to: System.@Initialize(Pointer;Pointer);
| or: System.@Finalize(Pointer;Pointer);
| or: System.@AddRef;
| or: Variants.@VarAdd(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarSub(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarMul(TVarData;TVarData;TVarData;TVarData);
|
008743A6 E8D58FBAFF call 0041D380
008743AB 8D45CC lea eax, [ebp-$34]
008743AE 50 push eax
* Possible String Reference to: 'GCMoney'
|
008743AF BAE0458700 mov edx, $008745E0
008743B4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008743B6 E8F927C5FF call 004C6BB4
008743BB 5A pop edx
008743BC 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008743BE FF91B4000000 call dword ptr [ecx+$00B4]
008743C4 8BC3 mov eax, ebx
008743C6 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008743C8 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmCaiWuHuiLV.ADOQueryCmd : TADOQuery
|
008743CE 8B9E08030000 mov ebx, [esi+$0308]
008743D4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008743D6 E8F914C5FF call 004C58D4
008743DB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008743DD E8CA9BC6FF call 004DDFAC
008743E2 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008743E4 FF5244 call dword ptr [edx+$44]
008743E7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008743E9 E8BE9BC6FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008743EE BAF0458700 mov edx, $008745F0
008743F3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008743F5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008743F8 680C468700 push $0087460C
008743FD FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00874400 681C468700 push $0087461C
00874405 8D55B4 lea edx, [ebp-$4C]
00874408 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087440B E8DC64B9FF call 0040A8EC
00874410 FF75B4 push dword ptr [ebp-$4C]
00874413 6828468700 push $00874628
00874418 8D45B8 lea eax, [ebp-$48]
0087441B BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
00874420 E88F12B9FF call 004056B4
00874425 8B45B8 mov eax, [ebp-$48]
00874428 50 push eax
00874429 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0087442B E87C9BC6FF call 004DDFAC
00874430 5A pop edx
00874431 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00874433 FF5138 call dword ptr [ecx+$38]
00874436 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
00874439 BAB8458700 mov edx, $008745B8
* Reference to: System.@LStrCmp;
|
0087443E E8FD12B9FF call 00405740
00874443 754E jnz 00874493
* Possible String Reference to: ',GCMoney=''
|
00874445 6834468700 push $00874634
* Possible String Reference to: 'GCMoney'
|
0087444A BAE0458700 mov edx, $008745E0
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087444F 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874455 E85A27C5FF call 004C6BB4
0087445A 8D55A8 lea edx, [ebp-$58]
0087445D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0087445F FF5160 call dword ptr [ecx+$60]
00874462 8B45A8 mov eax, [ebp-$58]
00874465 8D55AC lea edx, [ebp-$54]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874468 E87F64B9FF call 0040A8EC
0087446D FF75AC push dword ptr [ebp-$54]
00874470 6828468700 push $00874628
00874475 8D45B0 lea eax, [ebp-$50]
00874478 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0087447D E83212B9FF call 004056B4
00874482 8B45B0 mov eax, [ebp-$50]
00874485 50 push eax
00874486 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00874488 E81F9BC6FF call 004DDFAC
0087448D 5A pop edx
0087448E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00874490 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'GCMoney'
|
00874493 BAE0458700 mov edx, $008745E0
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00874498 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0087449E E81127C5FF call 004C6BB4
008744A3 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
008744A5 FF5254 call dword ptr [edx+$54]
008744A8 D81D40468700 fcomp dword ptr [$00874640]
008744AE DFE0 fstsw ax
008744B0 9E sahf
008744B1 744E jz 00874501
* Possible String Reference to: ',BBMoney=''
|
008744B3 684C468700 push $0087464C
* Possible String Reference to: 'GCMoney'
|
008744B8 BAE0458700 mov edx, $008745E0
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
008744BD 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008744C3 E8EC26C5FF call 004C6BB4
008744C8 8D559C lea edx, [ebp-$64]
008744CB 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008744CD FF5160 call dword ptr [ecx+$60]
008744D0 8B459C mov eax, [ebp-$64]
008744D3 8D55A0 lea edx, [ebp-$60]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008744D6 E81164B9FF call 0040A8EC
008744DB FF75A0 push dword ptr [ebp-$60]
008744DE 6828468700 push $00874628
008744E3 8D45A4 lea eax, [ebp-$5C]
008744E6 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008744EB E8C411B9FF call 004056B4
008744F0 8B45A4 mov eax, [ebp-$5C]
008744F3 50 push eax
008744F4 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008744F6 E8B19AC6FF call 004DDFAC
008744FB 5A pop edx
008744FC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008744FE FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00874501 6860468700 push $00874660
* Possible String Reference to: 'YFId'
|
00874506 BA78468700 mov edx, $00874678
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087450B 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874511 E89E26C5FF call 004C6BB4
00874516 8D5590 lea edx, [ebp-$70]
00874519 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
0087451B FF5160 call dword ptr [ecx+$60]
0087451E 8B4590 mov eax, [ebp-$70]
00874521 8D5594 lea edx, [ebp-$6C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874524 E8C363B9FF call 0040A8EC
00874529 FF7594 push dword ptr [ebp-$6C]
0087452C 6828468700 push $00874628
00874531 8D4598 lea eax, [ebp-$68]
00874534 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00874539 E87611B9FF call 004056B4
0087453E 8B4598 mov eax, [ebp-$68]
00874541 50 push eax
00874542 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00874544 E8639AC6FF call 004DDFAC
00874549 5A pop edx
0087454A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0087454C FF5138 call dword ptr [ecx+$38]
0087454F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00874551 E87E99C6FF call 004DDED4
00874556 33C0 xor eax, eax
00874558 5A pop edx
00874559 59 pop ecx
0087455A 59 pop ecx
0087455B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
0087455E 68A8458700 push $008745A8
00874563 8D4590 lea eax, [ebp-$70]
00874566 BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0087456B E8D80DB9FF call 00405348
00874570 8D45BC lea eax, [ebp-$44]
* Reference to object Variant
|
00874573 8B153C114000 mov edx, [$0040113C]
00874579 B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
0087457E E8911BB9FF call 00406114
00874583 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
00874586 E8990DB9FF call 00405324
0087458B 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0087458E E8E100BAFF call 00414674
00874593 8D45F0 lea eax, [ebp-$10]
00874596 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0087459B E8A80DB9FF call 00405348
008745A0 C3 ret
* Reference to: System.@HandleFinally;
|
008745A1 E94E05B9FF jmp 00404AF4
008745A6 EBBB jmp 00874563
****** END
|
008745A8 5E pop esi
008745A9 5B pop ebx
008745AA 8BE5 mov esp, ebp
008745AC 5D pop ebp
008745AD C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.v2PayMentPropertiesButtonClick(Sender : TObject);
begin
(*
00874680 55 push ebp
00874681 8BEC mov ebp, esp
00874683 51 push ecx
00874684 B906000000 mov ecx, $00000006
00874689 6A00 push $00
0087468B 6A00 push $00
0087468D 49 dec ecx
0087468E 75F9 jnz 00874689
00874690 51 push ecx
00874691 874DFC xchg [ebp-$04], ecx
00874694 53 push ebx
00874695 56 push esi
00874696 8BF0 mov esi, eax
00874698 33C0 xor eax, eax
0087469A 55 push ebp
0087469B 68D7488700 push $008748D7
***** TRY
|
008746A0 64FF30 push dword ptr fs:[eax]
008746A3 648920 mov fs:[eax], esp
008746A6 33C0 xor eax, eax
008746A8 55 push ebp
008746A9 68AD488700 push $008748AD
***** TRY
|
008746AE 64FF30 push dword ptr fs:[eax]
008746B1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV.v2T_qtyPropertiesEditValueChanged(Sender : TObject);
begin
(*
008749B4 55 push ebp
008749B5 8BEC mov ebp, esp
008749B7 B910000000 mov ecx, $00000010
008749BC 6A00 push $00
008749BE 6A00 push $00
008749C0 49 dec ecx
008749C1 75F9 jnz 008749BC
008749C3 51 push ecx
008749C4 53 push ebx
008749C5 56 push esi
008749C6 8BDA mov ebx, edx
008749C8 8BF0 mov esi, eax
008749CA 33C0 xor eax, eax
008749CC 55 push ebp
008749CD 685B4C8700 push $00874C5B
***** TRY
|
008749D2 64FF30 push dword ptr fs:[eax]
008749D5 648920 mov fs:[eax], esp
008749D8 8D55FC lea edx, [ebp-$04]
008749DB 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;
|
008749DD E8DAACD1FF call 0058F6BC
008749E2 8D55F0 lea edx, [ebp-$10]
008749E5 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008749E8 E8FF5EB9FF call 0040A8EC
008749ED 837DF000 cmp dword ptr [ebp-$10], +$00
008749F1 750D jnz 00874A00
008749F3 8D45FC lea eax, [ebp-$04]
008749F6 BA704C8700 mov edx, $00874C70
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008749FB E8BC09B9FF call 004053BC
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
00874A00 8B8628030000 mov eax, [esi+$0328]
* 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;
|
00874A06 E84179DEFF 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;
|
00874A0B E854D1DDFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00874A10 8B4050 mov eax, [eax+$50]
00874A13 8D55EC lea edx, [ebp-$14]
00874A16 8B08 mov ecx, [eax]
00874A18 FF5110 call dword ptr [ecx+$10]
00874A1B 8B45EC mov eax, [ebp-$14]
00874A1E 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874A21 E8C65EB9FF call 0040A8EC
00874A26 8D45F4 lea eax, [ebp-$0C]
00874A29 50 push eax
* Possible String Reference to: 'T_Price'
|
00874A2A BA7C4C8700 mov edx, $00874C7C
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00874A2F 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874A35 E87A21C5FF call 004C6BB4
00874A3A 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00874A3C FF5254 call dword ptr [edx+$54]
00874A3F DD5DDC fstp qword ptr [ebp-$24]
00874A42 9B wait
00874A43 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00874A46 E8E18CB9FF call 0040D72C
00874A4B DC4DDC fmul qword ptr [ebp-$24]
00874A4E DB7DD0 fstp tbyte ptr [ebp-$30]
00874A51 9B wait
00874A52 8D45D0 lea eax, [ebp-$30]
00874A55 8945E4 mov [ebp-$1C], eax
00874A58 C645E803 mov byte ptr [ebp-$18], $03
00874A5C 8D55E4 lea edx, [ebp-$1C]
00874A5F 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
00874A61 B88C4C8700 mov eax, $00874C8C
|
00874A66 E81981B9FF call 0040CB84
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00874A6B 8B9E48030000 mov ebx, [esi+$0348]
00874A71 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00874A73 E8C839C5FF call 004C8440
00874A78 8D55BC lea edx, [ebp-$44]
00874A7B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874A7E E8695EB9FF call 0040A8EC
00874A83 8B55BC mov edx, [ebp-$44]
00874A86 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874A89 E83A43BAFF call 00418DC8
00874A8E 8D45C0 lea eax, [ebp-$40]
00874A91 50 push eax
00874A92 8B55F8 mov edx, [ebp-$08]
00874A95 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874A97 E81821C5FF call 004C6BB4
00874A9C 5A pop edx
00874A9D 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00874A9F FF91B4000000 call dword ptr [ecx+$00B4]
00874AA5 8D55A8 lea edx, [ebp-$58]
00874AA8 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874AAB E83C5EB9FF call 0040A8EC
00874AB0 8B55A8 mov edx, [ebp-$58]
00874AB3 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874AB6 E80D43BAFF call 00418DC8
00874ABB 8D45AC lea eax, [ebp-$54]
00874ABE 50 push eax
* Possible String Reference to: 'T_Money'
|
00874ABF BA9C4C8700 mov edx, $00874C9C
00874AC4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874AC6 E8E920C5FF call 004C6BB4
00874ACB 5A pop edx
00874ACC 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00874ACE FF91B4000000 call dword ptr [ecx+$00B4]
00874AD4 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmCaiWuHuiLV.Button1Click(Sender : TObject);
begin
(*
00874D44 55 push ebp
00874D45 8BEC mov ebp, esp
00874D47 B910000000 mov ecx, $00000010
00874D4C 6A00 push $00
00874D4E 6A00 push $00
00874D50 49 dec ecx
00874D51 75F9 jnz 00874D4C
00874D53 51 push ecx
00874D54 53 push ebx
00874D55 56 push esi
00874D56 57 push edi
00874D57 8945FC mov [ebp-$04], eax
00874D5A 33C0 xor eax, eax
00874D5C 55 push ebp
00874D5D 68D5508700 push $008750D5
***** TRY
|
00874D62 64FF30 push dword ptr fs:[eax]
00874D65 648920 mov fs:[eax], esp
00874D68 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00874D6B 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00874D71 E84A31C5FF call 004C7EC0
00874D76 84C0 test al, al
00874D78 0F85F1020000 jnz 0087506F
00874D7E A0E4508700 mov al, byte ptr [$008750E4]
00874D83 50 push eax
00874D84 8D45EC lea eax, [ebp-$14]
00874D87 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00874D89 E8D63FBAFF call 00418D64
00874D8E 8D4DEC lea ecx, [ebp-$14]
00874D91 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00874D94 8B8048030000 mov eax, [eax+$0348]
* Possible String Reference to: 'ssel'
|
00874D9A BAF0508700 mov edx, $008750F0
00874D9F 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00874DA1 FF9344020000 call dword ptr [ebx+$0244]
00874DA7 84C0 test al, al
00874DA9 751D jnz 00874DC8
00874DAB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00874DAD B9F8508700 mov ecx, $008750F8
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00874DB2 BA00518700 mov edx, $00875100
*)
end;
procedure TfrmCaiWuHuiLV.v2T_PricePropertiesEditValueChanged(Sender : TObject);
begin
(*
008751C0 55 push ebp
008751C1 8BEC mov ebp, esp
008751C3 B910000000 mov ecx, $00000010
008751C8 6A00 push $00
008751CA 6A00 push $00
008751CC 49 dec ecx
008751CD 75F9 jnz 008751C8
008751CF 51 push ecx
008751D0 53 push ebx
008751D1 56 push esi
008751D2 8BDA mov ebx, edx
008751D4 8BF0 mov esi, eax
008751D6 33C0 xor eax, eax
008751D8 55 push ebp
008751D9 6867548700 push $00875467
***** TRY
|
008751DE 64FF30 push dword ptr fs:[eax]
008751E1 648920 mov fs:[eax], esp
008751E4 8D55FC lea edx, [ebp-$04]
008751E7 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;
|
008751E9 E8CEA4D1FF call 0058F6BC
008751EE 8D55F0 lea edx, [ebp-$10]
008751F1 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008751F4 E8F356B9FF call 0040A8EC
008751F9 837DF000 cmp dword ptr [ebp-$10], +$00
008751FD 750D jnz 0087520C
008751FF 8D45FC lea eax, [ebp-$04]
00875202 BA7C548700 mov edx, $0087547C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00875207 E8B001B9FF call 004053BC
* Reference to control TfrmCaiWuHuiLV.Tv2 : TcxGridDBTableView
|
0087520C 8B8628030000 mov eax, [esi+$0328]
* 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;
|
00875212 E83571DEFF 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;
|
00875217 E848C9DDFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0087521C 8B4050 mov eax, [eax+$50]
0087521F 8D55EC lea edx, [ebp-$14]
00875222 8B08 mov ecx, [eax]
00875224 FF5110 call dword ptr [ecx+$10]
00875227 8B45EC mov eax, [ebp-$14]
0087522A 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087522D E8BA56B9FF call 0040A8EC
00875232 8D45F4 lea eax, [ebp-$0C]
00875235 50 push eax
* Possible String Reference to: 'T_Qty'
|
00875236 BA88548700 mov edx, $00875488
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087523B 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00875241 E86E19C5FF call 004C6BB4
00875246 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00875248 FF5254 call dword ptr [edx+$54]
0087524B DD5DDC fstp qword ptr [ebp-$24]
0087524E 9B wait
0087524F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00875252 E8D584B9FF call 0040D72C
00875257 DC4DDC fmul qword ptr [ebp-$24]
0087525A DB7DD0 fstp tbyte ptr [ebp-$30]
0087525D 9B wait
0087525E 8D45D0 lea eax, [ebp-$30]
00875261 8945E4 mov [ebp-$1C], eax
00875264 C645E803 mov byte ptr [ebp-$18], $03
00875268 8D55E4 lea edx, [ebp-$1C]
0087526B 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
0087526D B898548700 mov eax, $00875498
|
00875272 E80D79B9FF call 0040CB84
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00875277 8B9E48030000 mov ebx, [esi+$0348]
0087527D 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0087527F E8BC31C5FF call 004C8440
00875284 8D55BC lea edx, [ebp-$44]
00875287 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087528A E85D56B9FF call 0040A8EC
0087528F 8B55BC mov edx, [ebp-$44]
00875292 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00875295 E82E3BBAFF call 00418DC8
0087529A 8D45C0 lea eax, [ebp-$40]
0087529D 50 push eax
0087529E 8B55F8 mov edx, [ebp-$08]
008752A1 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008752A3 E80C19C5FF call 004C6BB4
008752A8 5A pop edx
008752A9 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008752AB FF91B4000000 call dword ptr [ecx+$00B4]
008752B1 8D55A8 lea edx, [ebp-$58]
008752B4 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008752B7 E83056B9FF call 0040A8EC
008752BC 8B55A8 mov edx, [ebp-$58]
008752BF 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008752C2 E8013BBAFF call 00418DC8
008752C7 8D45AC lea eax, [ebp-$54]
008752CA 50 push eax
* Possible String Reference to: 'T_Money'
|
008752CB BAA8548700 mov edx, $008754A8
008752D0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008752D2 E8DD18C5FF call 004C6BB4
008752D7 5A pop edx
008752D8 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008752DA FF91B4000000 call dword ptr [ecx+$00B4]
008752E0 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmCaiWuHuiLV.v2OrderNOPropertiesButtonClick(Sender : TObject);
begin
(*
00875550 55 push ebp
00875551 8BEC mov ebp, esp
00875553 51 push ecx
00875554 B90F000000 mov ecx, $0000000F
00875559 6A00 push $00
0087555B 6A00 push $00
0087555D 49 dec ecx
0087555E 75F9 jnz 00875559
00875560 51 push ecx
00875561 874DFC xchg [ebp-$04], ecx
00875564 53 push ebx
00875565 56 push esi
00875566 8BF0 mov esi, eax
00875568 33C0 xor eax, eax
0087556A 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0087556B 68FC588700 push $008758FC
***** TRY
|
00875570 64FF30 push dword ptr fs:[eax]
00875573 648920 mov fs:[eax], esp
00875576 33C0 xor eax, eax
00875578 55 push ebp
00875579 68A8588700 push $008758A8
***** TRY
|
0087557E 64FF30 push dword ptr fs:[eax]
00875581 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV.v2ComTaiTouPropertiesButtonClick(Sender : TObject);
begin
(*
00875A44 55 push ebp
00875A45 8BEC mov ebp, esp
00875A47 51 push ecx
00875A48 B906000000 mov ecx, $00000006
00875A4D 6A00 push $00
00875A4F 6A00 push $00
00875A51 49 dec ecx
00875A52 75F9 jnz 00875A4D
00875A54 51 push ecx
00875A55 874DFC xchg [ebp-$04], ecx
00875A58 53 push ebx
00875A59 56 push esi
00875A5A 8BF0 mov esi, eax
00875A5C 33C0 xor eax, eax
00875A5E 55 push ebp
00875A5F 689B5C8700 push $00875C9B
***** TRY
|
00875A64 64FF30 push dword ptr fs:[eax]
00875A67 648920 mov fs:[eax], esp
00875A6A 33C0 xor eax, eax
00875A6C 55 push ebp
00875A6D 68715C8700 push $00875C71
***** TRY
|
00875A72 64FF30 push dword ptr fs:[eax]
00875A75 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV.v2P_ColorPropertiesButtonClick(Sender : TObject);
begin
(*
00875D80 55 push ebp
00875D81 8BEC mov ebp, esp
00875D83 51 push ecx
00875D84 B907000000 mov ecx, $00000007
00875D89 6A00 push $00
00875D8B 6A00 push $00
00875D8D 49 dec ecx
00875D8E 75F9 jnz 00875D89
00875D90 51 push ecx
00875D91 874DFC xchg [ebp-$04], ecx
00875D94 53 push ebx
00875D95 56 push esi
00875D96 8BF0 mov esi, eax
00875D98 33C0 xor eax, eax
00875D9A 55 push ebp
00875D9B 6833608700 push $00876033
***** TRY
|
00875DA0 64FF30 push dword ptr fs:[eax]
00875DA3 648920 mov fs:[eax], esp
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00875DA6 8B8648030000 mov eax, [esi+$0348]
* Possible String Reference to: 'YFType'
|
00875DAC BA48608700 mov edx, $00876048
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00875DB1 E8FE0DC5FF call 004C6BB4
00875DB6 8D55F8 lea edx, [ebp-$08]
00875DB9 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00875DBB FF5160 call dword ptr [ecx+$60]
00875DBE 8B45F8 mov eax, [ebp-$08]
00875DC1 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00875DC4 E8234BB9FF call 0040A8EC
00875DC9 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00875DCC BA58608700 mov edx, $00876058
* Reference to: System.@LStrCmp;
|
00875DD1 E86AF9B8FF call 00405740
00875DD6 751D jnz 00875DF5
00875DD8 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00875DDA B964608700 mov ecx, $00876064
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00875DDF BA6C608700 mov edx, $0087606C
*)
end;
procedure TfrmCaiWuHuiLV.TADDClick(Sender : TObject);
begin
(*
00876150 55 push ebp
00876151 8BEC mov ebp, esp
00876153 6A00 push $00
00876155 56 push esi
00876156 57 push edi
00876157 8BF8 mov edi, eax
00876159 33C0 xor eax, eax
0087615B 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^Y]<5D>'
|
0087615C 68E2618700 push $008761E2
***** TRY
|
00876161 64FF30 push dword ptr fs:[eax]
00876164 648920 mov fs:[eax], esp
00876167 8BB748030000 mov esi, [edi+$0348]
0087616D 8BC6 mov eax, esi
|
0087616F E81C24C5FF call 004C8590
00876174 8D55FC lea edx, [ebp-$04]
*)
end;
procedure TfrmCaiWuHuiLV.TDelClick(Sender : TObject);
begin
(*
00876210 55 push ebp
00876211 8BEC mov ebp, esp
00876213 33C9 xor ecx, ecx
00876215 51 push ecx
00876216 51 push ecx
00876217 51 push ecx
00876218 51 push ecx
00876219 51 push ecx
0087621A 53 push ebx
0087621B 56 push esi
0087621C 57 push edi
0087621D 8945FC mov [ebp-$04], eax
00876220 33C0 xor eax, eax
00876222 55 push ebp
* Possible String Reference to: '<27>n<EFBFBD><6E><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
00876223 6881638700 push $00876381
***** TRY
|
00876228 64FF30 push dword ptr fs:[eax]
0087622B 648920 mov fs:[eax], esp
0087622E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00876231 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00876237 E8841CC5FF call 004C7EC0
0087623C 84C0 test al, al
0087623E 0F8522010000 jnz 00876366
00876244 6A01 push $01
* Possible String Reference to: '<27><>ʾ'
|
00876246 B990638700 mov ecx, $00876390
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>'
|
0087624B BA98638700 mov edx, $00876398
*)
end;
procedure TfrmCaiWuHuiLV.N1Click(Sender : TObject);
begin
(*
0087640C B201 mov dl, $01
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087640E 8B8048030000 mov eax, [eax+$0348]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00876414 E88B20F4FF call 007B84A4
00876419 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.N2Click(Sender : TObject);
begin
(*
0087641C 33D2 xor edx, edx
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087641E 8B8048030000 mov eax, [eax+$0348]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00876424 E87B20F4FF call 007B84A4
00876429 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.v2KPTypePropertiesEditValueChanged(Sender : TObject);
begin
(*
0087642C 55 push ebp
0087642D 8BEC mov ebp, esp
0087642F B905000000 mov ecx, $00000005
00876434 6A00 push $00
00876436 6A00 push $00
00876438 49 dec ecx
00876439 75F9 jnz 00876434
0087643B 51 push ecx
0087643C 53 push ebx
0087643D 56 push esi
0087643E 8BDA mov ebx, edx
00876440 8BF0 mov esi, eax
00876442 33C0 xor eax, eax
00876444 55 push ebp
* Possible String Reference to: '<27>y<EFBFBD><79><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00876445 6876658700 push $00876576
***** TRY
|
0087644A 64FF30 push dword ptr fs:[eax]
0087644D 648920 mov fs:[eax], esp
00876450 8D55FC lea edx, [ebp-$04]
00876453 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;
|
00876455 E86292D1FF call 0058F6BC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087645A 8B9E48030000 mov ebx, [esi+$0348]
00876460 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00876462 E8D91FC5FF call 004C8440
00876467 8D55E8 lea edx, [ebp-$18]
0087646A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087646D E87A44B9FF call 0040A8EC
00876472 8B55E8 mov edx, [ebp-$18]
00876475 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00876478 E84B29BAFF call 00418DC8
0087647D 8D45EC lea eax, [ebp-$14]
00876480 50 push eax
* Possible String Reference to: 'KPType'
|
00876481 BA8C658700 mov edx, $0087658C
00876486 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00876488 E82707C5FF call 004C6BB4
0087648D 5A pop edx
0087648E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00876490 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmCaiWuHuiLV.ADOQueryCmd : TADOQuery
|
00876496 8B9E08030000 mov ebx, [esi+$0308]
0087649C 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0087649E E831F4C4FF call 004C58D4
008764A3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008764A5 E8027BC6FF call 004DDFAC
008764AA 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008764AC FF5244 call dword ptr [edx+$44]
008764AF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008764B1 E8F67AC6FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008764B6 BA9C658700 mov edx, $0087659C
008764BB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008764BD FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPType=''
|
008764C0 68B8658700 push $008765B8
008764C5 8D55E0 lea edx, [ebp-$20]
008764C8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008764CB E81C44B9FF call 0040A8EC
008764D0 FF75E0 push dword ptr [ebp-$20]
008764D3 68D0658700 push $008765D0
008764D8 8D45E4 lea eax, [ebp-$1C]
008764DB BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008764E0 E8CFF1B8FF call 004056B4
008764E5 8B45E4 mov eax, [ebp-$1C]
008764E8 50 push eax
008764E9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008764EB E8BC7AC6FF call 004DDFAC
008764F0 5A pop edx
008764F1 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008764F3 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
008764F6 68DC658700 push $008765DC
* Possible String Reference to: 'YFId'
|
008764FB BAF4658700 mov edx, $008765F4
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00876500 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00876506 E8A906C5FF call 004C6BB4
0087650B 8D55D4 lea edx, [ebp-$2C]
0087650E 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00876510 FF5160 call dword ptr [ecx+$60]
00876513 8B45D4 mov eax, [ebp-$2C]
00876516 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00876519 E8CE43B9FF call 0040A8EC
0087651E FF75D8 push dword ptr [ebp-$28]
00876521 68D0658700 push $008765D0
00876526 8D45DC lea eax, [ebp-$24]
00876529 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0087652E E881F1B8FF call 004056B4
00876533 8B45DC mov eax, [ebp-$24]
00876536 50 push eax
00876537 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00876539 E86E7AC6FF call 004DDFAC
0087653E 5A pop edx
0087653F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00876541 FF5138 call dword ptr [ecx+$38]
00876544 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00876546 E88979C6FF call 004DDED4
0087654B 33C0 xor eax, eax
0087654D 5A pop edx
0087654E 59 pop ecx
0087654F 59 pop ecx
00876550 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00876553 687D658700 push $0087657D
00876558 8D45D4 lea eax, [ebp-$2C]
0087655B BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00876560 E8E3EDB8FF call 00405348
00876565 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00876568 E807E1B9FF call 00414674
0087656D 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00876570 E8AFEDB8FF call 00405324
00876575 C3 ret
* Reference to: System.@HandleFinally;
|
00876576 E979E5B8FF jmp 00404AF4
0087657B EBDB jmp 00876558
****** END
|
0087657D 5E pop esi
0087657E 5B pop ebx
0087657F 8BE5 mov esp, ebp
00876581 5D pop ebp
00876582 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.cxTabControl2Change(Sender : TObject);
begin
(*
|
008765FC E88FB5FFFF call 00871B90
00876601 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.TSelClick(Sender : TObject);
begin
(*
00876604 55 push ebp
00876605 8BEC mov ebp, esp
00876607 33C9 xor ecx, ecx
00876609 51 push ecx
0087660A 51 push ecx
0087660B 51 push ecx
0087660C 51 push ecx
0087660D 53 push ebx
0087660E 56 push esi
0087660F 8BD8 mov ebx, eax
00876611 33C0 xor eax, eax
00876613 55 push ebp
* Possible String Reference to: '<27>]<5D><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00876614 6892668700 push $00876692
***** TRY
|
00876619 64FF30 push dword ptr fs:[eax]
0087661C 648920 mov fs:[eax], esp
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087661F 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00876625 E89618C5FF call 004C7EC0
0087662A 84C0 test al, al
0087662C 754E jnz 0087667C
0087662E A0A0668700 mov al, byte ptr [$008766A0]
00876633 50 push eax
00876634 8D45F0 lea eax, [ebp-$10]
00876637 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00876639 E82627BAFF call 00418D64
0087663E 8D4DF0 lea ecx, [ebp-$10]
* Possible String Reference to: 'Ssel'
|
00876641 BAAC668700 mov edx, $008766AC
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00876646 8B8348030000 mov eax, [ebx+$0348]
0087664C 8B30 mov esi, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
0087664E FF9644020000 call dword ptr [esi+$0244]
00876654 84C0 test al, al
00876656 751A jnz 00876672
00876658 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0087665A B9B4668700 mov ecx, $008766B4
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0087665F BABC668700 mov edx, $008766BC
*)
end;
procedure TfrmCaiWuHuiLV.HuiLVChange(Sender : TObject);
begin
(*
008766CC 56 push esi
* Reference to control TfrmCaiWuHuiLV.ToolButton2 : TToolButton
|
008766CD 8B8010030000 mov eax, [eax+$0310]
008766D3 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
008766D7 E878DEB8FF call 00404554
008766DC 5E pop esi
008766DD C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.TSaveClick(Sender : TObject);
begin
(*
008766E0 55 push ebp
008766E1 8BEC mov ebp, esp
008766E3 B908000000 mov ecx, $00000008
008766E8 6A00 push $00
008766EA 6A00 push $00
008766EC 49 dec ecx
008766ED 75F9 jnz 008766E8
008766EF 53 push ebx
008766F0 56 push esi
008766F1 8BD8 mov ebx, eax
008766F3 33C0 xor eax, eax
008766F5 55 push ebp
* Possible String Reference to: '<27>K<EFBFBD><4B><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008766F6 68A4698700 push $008769A4
***** TRY
|
008766FB 64FF30 push dword ptr fs:[eax]
008766FE 648920 mov fs:[eax], esp
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
00876701 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00876707 E8B417C5FF call 004C7EC0
0087670C 84C0 test al, al
0087670E 0F855D020000 jnz 00876971
00876714 A0B4698700 mov al, byte ptr [$008769B4]
00876719 50 push eax
0087671A 8D45E4 lea eax, [ebp-$1C]
0087671D B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0087671F E84026BAFF call 00418D64
00876724 8D4DE4 lea ecx, [ebp-$1C]
* Possible String Reference to: 'ssel'
|
00876727 BAC0698700 mov edx, $008769C0
* Reference to control TfrmCaiWuHuiLV.CDS_HZ : TClientDataSet
|
0087672C 8B8348030000 mov eax, [ebx+$0348]
00876732 8B30 mov esi, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00876734 FF9644020000 call dword ptr [esi+$0244]
0087673A 84C0 test al, al
0087673C 751D jnz 0087675B
0087673E 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00876740 B9C8698700 mov ecx, $008769C8
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00876745 BAD0698700 mov edx, $008769D0
*)
end;
procedure TfrmCaiWuHuiLV.v2GSTypePropertiesButtonClick(Sender : TObject);
begin
(*
00876AC0 55 push ebp
00876AC1 8BEC mov ebp, esp
00876AC3 6A00 push $00
00876AC5 6A00 push $00
00876AC7 6A00 push $00
00876AC9 6A00 push $00
00876ACB 6A00 push $00
00876ACD 6A00 push $00
00876ACF 53 push ebx
00876AD0 8BD8 mov ebx, eax
00876AD2 33C0 xor eax, eax
00876AD4 55 push ebp
00876AD5 68E76B8700 push $00876BE7
***** TRY
|
00876ADA 64FF30 push dword ptr fs:[eax]
00876ADD 648920 mov fs:[eax], esp
00876AE0 33C0 xor eax, eax
00876AE2 55 push ebp
00876AE3 68BD6B8700 push $00876BBD
***** TRY
|
00876AE8 64FF30 push dword ptr fs:[eax]
00876AEB 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV.GSTypeChange(Sender : TObject);
begin
(*
00876C28 56 push esi
* Reference to control TfrmCaiWuHuiLV.ToolButton2 : TToolButton
|
00876C29 8B8010030000 mov eax, [eax+$0310]
00876C2F 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00876C33 E81CD9B8FF call 00404554
00876C38 5E pop esi
00876C39 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV.begdateChange(Sender : TObject);
begin
(*
|
00876C3C E84FAFFFFF call 00871B90
00876C41 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00872311(Sender : TObject);
begin
(*
00872311 50 push eax
00872312 6461 popa
00872314 7465 jz 0087237B
00872316 205943 and [ecx+$43], bl
00872319 4C dec esp
0087231A 5F pop edi
0087231B 53 push ebx
0087231C 47 inc edi
0087231D 5F pop edi
0087231E 48 dec eax
0087231F 5A pop edx
00872320 2000 and [eax], al
00872322 0000 add [eax], al
00872324 FFFF DB $FF, $FF //
00872326 FFFF DB $FF, $FF //
00872328 0500000020 add eax, +$20000000
0087232D 53 push ebx
0087232E 657420 jz 00872351
00872331 0000 add [eax], al
00872333 00FF add bh, bh
00872335 FFFF DB $FF, $FF //
00872337 FF02 inc dword ptr [edx]
00872339 0000 add [eax], al
0087233B 003D270000FF add [$FF000027], bh
00872341 FFFF DB $FF, $FF //
00872343 FF01 inc dword ptr [ecx]
00872345 0000 add [eax], al
00872347 0027 add [edi], ah
00872349 0000 add [eax], al
0087234B 00FF add bh, bh
0087234D FFFF DB $FF, $FF //
0087234F FF050000003D inc dword ptr [$3D000000]
00872355 4E dec esi
00872356 55 push ebp
00872357 4C dec esp
00872358 4C dec esp
00872359 0000 add [eax], al
0087235B 00FF add bh, bh
0087235D FFFF DB $FF, $FF //
0087235F FF09 dec dword ptr [ecx]
00872361 0000 add [eax], al
00872363 002C4564697465 add [$65746964+eax*2], ch
0087236A 723D jb 008723A9
0087236C 27 daa
0087236D 0000 add [eax], al
0087236F 00FF add bh, bh
00872371 FFFF DB $FF, $FF //
00872373 FF1400 call dword ptr [eax+eax]
00872376 0000 add [eax], al
00872378 2C45 sub al, $45
0087237A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00872383 657464 jz 008723EA
00872386 61 popa
00872387 7465 jz 008723EE
00872389 2829 sub [ecx], ch
0087238B 2000 and [eax], al
0087238D 0000 add [eax], al
0087238F 00FF add bh, bh
00872391 FFFF DB $FF, $FF //
00872393 FF0E dec dword ptr [esi]
00872395 0000 add [eax], al
00872397 0020 add [eax], ah
00872399 7768 jnbe 00872403
0087239B 657265 jb 00872403
0087239E 205375 and [ebx+$75], dl
008723A1 624964 bound ecx, qword ptr [ecx+$64]
008723A4 3D270000FF cmp eax, $FF000027
008723A9 FFFF DB $FF, $FF //
008723AB FF0500000053 inc dword ptr [$53000000]
008723B1 7562 jnz 00872415
008723B3 49 dec ecx
008723B4 640000 add fs:[eax], al
008723B7 00558B add [ebp-$75], dl
008723BA EC in al, dx
008723BB B921000000 mov ecx, $00000021
008723C0 6A00 push $00
008723C2 6A00 push $00
008723C4 49 dec ecx
008723C5 75F9 jnz 008723C0
008723C7 53 push ebx
008723C8 56 push esi
008723C9 8BF2 mov esi, edx
008723CB 8BD8 mov ebx, eax
008723CD 33C0 xor eax, eax
008723CF 55 push ebp
008723D0 68452B8700 push $00872B45
***** TRY
|
008723D5 64FF30 push dword ptr fs:[eax]
008723D8 648920 mov fs:[eax], esp
008723DB 8D55FC lea edx, [ebp-$04]
008723DE 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;
|
008723E0 E8D7D2D1FF call 0058F6BC
008723E5 8D55DC lea edx, [ebp-$24]
008723E8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008723EB E8FC84B9FF call 0040A8EC
008723F0 837DDC00 cmp dword ptr [ebp-$24], +$00
008723F4 750D jnz 00872403
008723F6 8D45FC lea eax, [ebp-$04]
008723F9 BA5C2B8700 mov edx, $00872B5C
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008723FE E8B92FB9FF call 004053BC
* Reference to control cxGrid1 : N.A.
|
00872403 8B8328030000 mov eax, [ebx+$0328]
* 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;
|
00872409 E83E9FDEFF 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;
|
0087240E E851F7DDFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00872413 8B4050 mov eax, [eax+$50]
00872416 8D55D8 lea edx, [ebp-$28]
00872419 8B08 mov ecx, [eax]
0087241B FF5110 call dword ptr [ecx+$10]
0087241E 8B45D8 mov eax, [ebp-$28]
00872421 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00872424 E8C384B9FF call 0040A8EC
* Reference to control Order_Sub : N.A.
|
00872429 8BB348030000 mov esi, [ebx+$0348]
0087242F 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00872431 E80A60C5FF call 004C8440
00872436 8D55C4 lea edx, [ebp-$3C]
00872439 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087243C E8AB84B9FF call 0040A8EC
00872441 8B55C4 mov edx, [ebp-$3C]
00872444 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00872447 E87C69BAFF call 00418DC8
0087244C 8D45C8 lea eax, [ebp-$38]
0087244F 50 push eax
00872450 8B55E0 mov edx, [ebp-$20]
00872453 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00872455 E85A47C5FF call 004C6BB4
0087245A 5A pop edx
0087245B 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0087245D FF91B4000000 call dword ptr [ecx+$00B4]
00872463 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00872C39(Sender : TObject);
begin
(*
00872C39 50 push eax
00872C3A 6461 popa
00872C3C 7465 jz 00872CA3
00872C3E 205946 and [ecx+$46], bl
00872C41 5F pop edi
00872C42 4D dec ebp
00872C43 6F outsd
00872C44 6E outsb
00872C45 65795F jns 00872CA7
00872C48 43 inc ebx
00872C49 52 push edx
00872C4A 2000 and [eax], al
00872C4C FFFF DB $FF, $FF //
00872C4E FFFF DB $FF, $FF //
00872C50 0500000020 add eax, +$20000000
00872C55 53 push ebx
00872C56 657420 jz 00872C79
00872C59 0000 add [eax], al
00872C5B 00FF add bh, bh
00872C5D FFFF DB $FF, $FF //
00872C5F FF01 inc dword ptr [ecx]
00872C61 0000 add [eax], al
00872C63 003D000000FF add [$FF000000], bh
00872C69 FFFF DB $FF, $FF //
00872C6B FF07 inc dword ptr [edi]
00872C6D 0000 add [eax], al
00872C6F 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
00872C76 3D00FFFFFF cmp eax, $FFFFFF00
00872C7B FF050000002C inc dword ptr [$2C000000]
00872C81 51 push ecx
00872C82 7479 jz 00872CFD
00872C84 3D000000FF cmp eax, $FF000000
00872C89 FFFF DB $FF, $FF //
00872C8B FF09 dec dword ptr [ecx]
00872C8D 0000 add [eax], al
00872C8F 002C42 add [edx+eax*2], ch
00872C92 42 inc edx
00872C93 4D dec ebp
00872C94 6F outsd
00872C95 6E outsb
00872C96 65793D jns 00872CD6
00872C99 0000 add [eax], al
00872C9B 00FF add bh, bh
00872C9D FFFF DB $FF, $FF //
00872C9F FF09 dec dword ptr [ecx]
00872CA1 0000 add [eax], al
00872CA3 002C4564697465 add [$65746964+eax*2], ch
00872CAA 723D jb 00872CE9
00872CAC 27 daa
00872CAD 0000 add [eax], al
00872CAF 00FF add bh, bh
00872CB1 FFFF DB $FF, $FF //
00872CB3 FF1400 call dword ptr [eax+eax]
00872CB6 0000 add [eax], al
00872CB8 2C45 sub al, $45
00872CBA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00872CC3 657464 jz 00872D2A
00872CC6 61 popa
00872CC7 7465 jz 00872D2E
00872CC9 2829 sub [ecx], ch
00872CCB 2000 and [eax], al
00872CCD 0000 add [eax], al
00872CCF 00FF add bh, bh
00872CD1 FFFF DB $FF, $FF //
00872CD3 FF0D00000020 dec dword ptr [$20000000]
00872CD9 7768 jnbe 00872D43
00872CDB 657265 jb 00872D43
00872CDE 205946 and [ecx+$46], bl
00872CE1 49 dec ecx
00872CE2 643D27000000 cmp eax, $00000027
00872CE8 FFFF DB $FF, $FF //
00872CEA FFFF DB $FF, $FF //
00872CEC 0400 add al, +$00
00872CEE 0000 add [eax], al
00872CF0 59 pop ecx
00872CF1 46 inc esi
00872CF2 49 dec ecx
00872CF3 640000 add fs:[eax], al
00872CF6 0000 add [eax], al
00872CF8 FFFF DB $FF, $FF //
00872CFA FFFF DB $FF, $FF //
00872CFC 2B00 sub eax, dword ptr [eax]
00872CFE 0000 add [eax], al
00872D00 55 push ebp
00872D01 7064 jo 00872D67
00872D03 61 popa
00872D04 7465 jz 00872D6B
00872D06 205946 and [ecx+$46], bl
00872D09 5F pop edi
00872D0A 4D dec ebp
00872D0B 6F outsd
00872D0C 6E outsb
00872D0D 65795F jns 00872D6F
00872D10 4B dec ebx
00872D11 43 inc ebx
00872D12 205365 and [ebx+$65], dl
00872D15 7420 jz 00872D37
00872D17 4B dec ebx
00872D18 43 inc ebx
00872D19 42 inc edx
00872D1A 42 inc edx
00872D1B 4D dec ebp
00872D1C 6F outsd
00872D1D 6E outsb
00872D1E 65793D jns 00872D5E
00872D21 4B dec ebx
00872D22 43 inc ebx
00872D23 42 inc edx
00872D24 42 inc edx
00872D25 4D dec ebp
00872D26 6F outsd
00872D27 6E outsb
00872D28 65792D jns 00872D58
00872D2B 00FF add bh, bh
00872D2D FFFF DB $FF, $FF //
00872D2F FF01 inc dword ptr [ecx]
00872D31 0000 add [eax], al
00872D33 002B add [ebx], ch
00872D35 0000 add [eax], al
00872D37 00FF add bh, bh
00872D39 FFFF DB $FF, $FF //
00872D3B FF0D00000020 dec dword ptr [$20000000]
00872D41 7768 jnbe 00872DAB
00872D43 657265 jb 00872DAB
00872D46 204352 and [ebx+$52], al
00872D49 49 dec ecx
00872D4A 44 inc esp
00872D4B 3D27000000 cmp eax, $00000027
00872D50 FFFF DB $FF, $FF //
00872D52 FFFF DB $FF, $FF //
00872D54 0400 add al, +$00
00872D56 0000 add [eax], al
00872D58 43 inc ebx
00872D59 52 push edx
00872D5A 49 dec ecx
00872D5B 44 inc esp
00872D5C 0000 add [eax], al
00872D5E 0000 add [eax], al
00872D60 55 push ebp
00872D61 8BEC mov ebp, esp
00872D63 B909000000 mov ecx, $00000009
00872D68 6A00 push $00
00872D6A 6A00 push $00
00872D6C 49 dec ecx
00872D6D 75F9 jnz 00872D68
00872D6F 51 push ecx
00872D70 53 push ebx
00872D71 56 push esi
00872D72 8BDA mov ebx, edx
00872D74 8BF0 mov esi, eax
00872D76 33C0 xor eax, eax
00872D78 55 push ebp
00872D79 68D52F8700 push $00872FD5
***** TRY
|
00872D7E 64FF30 push dword ptr fs:[eax]
00872D81 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00872D84 BAEC2F8700 mov edx, $00872FEC
* Reference to control Order_Sub : N.A.
|
00872D89 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00872D8F E8203EC5FF call 004C6BB4
00872D94 8D55F0 lea edx, [ebp-$10]
00872D97 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00872D99 FF5160 call dword ptr [ecx+$60]
00872D9C 8B45F0 mov eax, [ebp-$10]
00872D9F 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00872DA2 E8457BB9FF call 0040A8EC
00872DA7 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00872DAA BAFC2F8700 mov edx, $00872FFC
* Reference to: System.@LStrCmp;
|
00872DAF E88C29B9FF call 00405740
00872DB4 751D jnz 00872DD3
00872DB6 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00872DB8 B908308700 mov ecx, $00873008
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00872DBD BA10308700 mov edx, $00873010
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00873031(Sender : TObject);
begin
(*
00873031 50 push eax
00873032 6461 popa
00873034 7465 jz 0087309B
00873036 205946 and [ecx+$46], bl
00873039 5F pop edi
0087303A 4D dec ebp
0087303B 6F outsd
0087303C 6E outsb
0087303D 65795F jns 0087309F
00873040 43 inc ebx
00873041 52 push edx
00873042 2000 and [eax], al
00873044 FFFF DB $FF, $FF //
00873046 FFFF DB $FF, $FF //
00873048 0500000020 add eax, +$20000000
0087304D 53 push ebx
0087304E 657420 jz 00873071
00873051 0000 add [eax], al
00873053 00FF add bh, bh
00873055 FFFF DB $FF, $FF //
00873057 FF02 inc dword ptr [edx]
00873059 0000 add [eax], al
0087305B 003D270000FF add [$FF000027], bh
00873061 FFFF DB $FF, $FF //
00873063 FF01 inc dword ptr [ecx]
00873065 0000 add [eax], al
00873067 0027 add [edi], ah
00873069 0000 add [eax], al
0087306B 00FF add bh, bh
0087306D FFFF DB $FF, $FF //
0087306F FF050000003D inc dword ptr [$3D000000]
00873075 4E dec esi
00873076 55 push ebp
00873077 4C dec esp
00873078 4C dec esp
00873079 0000 add [eax], al
0087307B 00FF add bh, bh
0087307D FFFF DB $FF, $FF //
0087307F FF09 dec dword ptr [ecx]
00873081 0000 add [eax], al
00873083 002C4564697465 add [$65746964+eax*2], ch
0087308A 723D jb 008730C9
0087308C 27 daa
0087308D 0000 add [eax], al
0087308F 00FF add bh, bh
00873091 FFFF DB $FF, $FF //
00873093 FF1400 call dword ptr [eax+eax]
00873096 0000 add [eax], al
00873098 2C45 sub al, $45
0087309A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008730A3 657464 jz 0087310A
008730A6 61 popa
008730A7 7465 jz 0087310E
008730A9 2829 sub [ecx], ch
008730AB 2000 and [eax], al
008730AD 0000 add [eax], al
008730AF 00FF add bh, bh
008730B1 FFFF DB $FF, $FF //
008730B3 FF0D00000020 dec dword ptr [$20000000]
008730B9 7768 jnbe 00873123
008730BB 657265 jb 00873123
008730BE 205946 and [ecx+$46], bl
008730C1 49 dec ecx
008730C2 643D27000000 cmp eax, $00000027
008730C8 FFFF DB $FF, $FF //
008730CA FFFF DB $FF, $FF //
008730CC 0400 add al, +$00
008730CE 0000 add [eax], al
008730D0 59 pop ecx
008730D1 46 inc esi
008730D2 49 dec ecx
008730D3 640000 add fs:[eax], al
008730D6 0000 add [eax], al
008730D8 55 push ebp
008730D9 8BEC mov ebp, esp
008730DB 51 push ecx
008730DC B90C000000 mov ecx, $0000000C
008730E1 6A00 push $00
008730E3 6A00 push $00
008730E5 49 dec ecx
008730E6 75F9 jnz 008730E1
008730E8 51 push ecx
008730E9 874DFC xchg [ebp-$04], ecx
008730EC 53 push ebx
008730ED 56 push esi
008730EE 8BF0 mov esi, eax
008730F0 33C0 xor eax, eax
008730F2 55 push ebp
008730F3 6877348700 push $00873477
***** TRY
|
008730F8 64FF30 push dword ptr fs:[eax]
008730FB 648920 mov fs:[eax], esp
* Reference to control Order_Sub : N.A.
|
008730FE 8B8648030000 mov eax, [esi+$0348]
* Possible String Reference to: 'YFType'
|
00873104 BA8C348700 mov edx, $0087348C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00873109 E8A63AC5FF call 004C6BB4
0087310E 8D55F8 lea edx, [ebp-$08]
00873111 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00873113 FF5160 call dword ptr [ecx+$60]
00873116 8B45F8 mov eax, [ebp-$08]
00873119 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087311C E8CB77B9FF call 0040A8EC
00873121 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00873124 BA9C348700 mov edx, $0087349C
* Reference to: System.@LStrCmp;
|
00873129 E81226B9FF call 00405740
0087312E 751D jnz 0087314D
00873130 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00873132 B9A8348700 mov ecx, $008734A8
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00873137 BAB0348700 mov edx, $008734B0
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00873549(Sender : TObject);
begin
(*
00873549 50 push eax
0087354A 6461 popa
0087354C 7465 jz 008735B3
0087354E 205946 and [ecx+$46], bl
00873551 5F pop edi
00873552 4D dec ebp
00873553 6F outsd
00873554 6E outsb
00873555 65795F jns 008735B7
00873558 43 inc ebx
00873559 52 push edx
0087355A 2000 and [eax], al
0087355C FFFF DB $FF, $FF //
0087355E FFFF DB $FF, $FF //
00873560 0D00000020 or eax, $20000000
00873565 53 push ebx
00873566 657420 jz 00873589
00873569 59 pop ecx
0087356A 46 inc esi
0087356B 43 inc ebx
0087356C 6F outsd
0087356D 64653D27000000 cmp eax, $00000027
00873574 FFFF DB $FF, $FF //
00873576 FFFF DB $FF, $FF //
00873578 0100 add [eax], eax
0087357A 0000 add [eax], al
0087357C 27 daa
0087357D 0000 add [eax], al
0087357F 00FF add bh, bh
00873581 FFFF DB $FF, $FF //
00873583 FF0A dec dword ptr [edx]
00873585 0000 add [eax], al
00873587 0020 add [eax], ah
00873589 2C59 sub al, $59
0087358B 46 inc esi
0087358C 4E dec esi
0087358D 61 popa
0087358E 6D insd
0087358F 653D270000FF cmp eax, $FF000027
00873595 FFFF DB $FF, $FF //
00873597 FF09 dec dword ptr [ecx]
00873599 0000 add [eax], al
0087359B 002C4564697465 add [$65746964+eax*2], ch
008735A2 723D jb 008735E1
008735A4 27 daa
008735A5 0000 add [eax], al
008735A7 00FF add bh, bh
008735A9 FFFF DB $FF, $FF //
008735AB FF1400 call dword ptr [eax+eax]
008735AE 0000 add [eax], al
008735B0 2C45 sub al, $45
008735B2 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008735BB 657464 jz 00873622
008735BE 61 popa
008735BF 7465 jz 00873626
008735C1 2829 sub [ecx], ch
008735C3 2000 and [eax], al
008735C5 0000 add [eax], al
008735C7 00FF add bh, bh
008735C9 FFFF DB $FF, $FF //
008735CB FF0D00000020 dec dword ptr [$20000000]
008735D1 7768 jnbe 0087363B
008735D3 657265 jb 0087363B
008735D6 205946 and [ecx+$46], bl
008735D9 49 dec ecx
008735DA 643D27000000 cmp eax, $00000027
008735E0 FFFF DB $FF, $FF //
008735E2 FFFF DB $FF, $FF //
008735E4 0400 add al, +$00
008735E6 0000 add [eax], al
008735E8 59 pop ecx
008735E9 46 inc esi
008735EA 49 dec ecx
008735EB 640000 add fs:[eax], al
008735EE 0000 add [eax], al
008735F0 55 push ebp
008735F1 8BEC mov ebp, esp
008735F3 51 push ecx
008735F4 B906000000 mov ecx, $00000006
008735F9 6A00 push $00
008735FB 6A00 push $00
008735FD 49 dec ecx
008735FE 75F9 jnz 008735F9
00873600 51 push ecx
00873601 874DFC xchg [ebp-$04], ecx
00873604 53 push ebx
00873605 56 push esi
00873606 8BF0 mov esi, eax
00873608 33C0 xor eax, eax
0087360A 55 push ebp
0087360B 6849388700 push $00873849
***** TRY
|
00873610 64FF30 push dword ptr fs:[eax]
00873613 648920 mov fs:[eax], esp
00873616 33C0 xor eax, eax
00873618 55 push ebp
00873619 681F388700 push $0087381F
***** TRY
|
0087361E 64FF30 push dword ptr fs:[eax]
00873621 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00873866(Sender : TObject);
begin
(*
00873866 6E outsb
00873867 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
0087386F FF08 dec dword ptr [eax]
00873871 0000 add [eax], al
*)
end;
procedure TfrmCaiWuHuiLV._PROC_0087389C(Sender : TObject);
begin
(*
0087389C 6E outsb
0087389D 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
008738A5 0000 add [eax], al
*)
end;
procedure TfrmCaiWuHuiLV._PROC_008738A9(Sender : TObject);
begin
(*
008738A9 50 push eax
008738AA 6461 popa
008738AC 7465 jz 00873913
008738AE 205946 and [ecx+$46], bl
008738B1 5F pop edi
008738B2 4D dec ebp
008738B3 6F outsd
008738B4 6E outsb
008738B5 65795F jns 00873917
008738B8 43 inc ebx
008738B9 52 push edx
008738BA 2000 and [eax], al
008738BC FFFF DB $FF, $FF //
008738BE FFFF DB $FF, $FF //
008738C0 0E push cs
008738C1 0000 add [eax], al
008738C3 0020 add [eax], ah
008738C5 53 push ebx
008738C6 657420 jz 008738E9
008738C9 51 push ecx
008738CA 7479 jz 00873945
008738CC 55 push ebp
008738CD 6E outsb
008738CE 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
008738D6 FFFF DB $FF, $FF //
008738D8 07 pop es
008738D9 0000 add [eax], al
008738DB 005A64 add [edx+$64], bl
008738DE 794E jns 0087392E
008738E0 61 popa
008738E1 6D insd
008738E2 6500FF add bh, bh
008738E5 FFFF DB $FF, $FF //
008738E7 FF01 inc dword ptr [ecx]
008738E9 0000 add [eax], al
008738EB 0027 add [edi], ah
008738ED 0000 add [eax], al
008738EF 00FF add bh, bh
008738F1 FFFF DB $FF, $FF //
008738F3 FF09 dec dword ptr [ecx]
008738F5 0000 add [eax], al
008738F7 002C4564697465 add [$65746964+eax*2], ch
008738FE 723D jb 0087393D
00873900 27 daa
00873901 0000 add [eax], al
00873903 00FF add bh, bh
00873905 FFFF DB $FF, $FF //
00873907 FF1400 call dword ptr [eax+eax]
0087390A 0000 add [eax], al
0087390C 2C45 sub al, $45
0087390E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00873917 657464 jz 0087397E
0087391A 61 popa
0087391B 7465 jz 00873982
0087391D 2829 sub [ecx], ch
0087391F 2000 and [eax], al
00873921 0000 add [eax], al
00873923 00FF add bh, bh
00873925 FFFF DB $FF, $FF //
00873927 FF0D00000020 dec dword ptr [$20000000]
0087392D 7768 jnbe 00873997
0087392F 657265 jb 00873997
00873932 205946 and [ecx+$46], bl
00873935 49 dec ecx
00873936 643D27000000 cmp eax, $00000027
0087393C FFFF DB $FF, $FF //
0087393E FFFF DB $FF, $FF //
00873940 0400 add al, +$00
00873942 0000 add [eax], al
00873944 59 pop ecx
00873945 46 inc esi
00873946 49 dec ecx
00873947 640000 add fs:[eax], al
0087394A 0000 add [eax], al
0087394C 55 push ebp
0087394D 8BEC mov ebp, esp
0087394F 51 push ecx
00873950 B906000000 mov ecx, $00000006
00873955 6A00 push $00
00873957 6A00 push $00
00873959 49 dec ecx
0087395A 75F9 jnz 00873955
0087395C 51 push ecx
0087395D 874DFC xchg [ebp-$04], ecx
00873960 53 push ebx
00873961 56 push esi
00873962 8BF0 mov esi, eax
00873964 33C0 xor eax, eax
00873966 55 push ebp
00873967 68A53B8700 push $00873BA5
***** TRY
|
0087396C 64FF30 push dword ptr fs:[eax]
0087396F 648920 mov fs:[eax], esp
00873972 33C0 xor eax, eax
00873974 55 push ebp
00873975 687B3B8700 push $00873B7B
***** TRY
|
0087397A 64FF30 push dword ptr fs:[eax]
0087397D 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00873BED(Sender : TObject);
begin
(*
00873BED 50 push eax
00873BEE 6461 popa
00873BF0 7465 jz 00873C57
00873BF2 205946 and [ecx+$46], bl
00873BF5 5F pop edi
00873BF6 4D dec ebp
00873BF7 6F outsd
00873BF8 6E outsb
00873BF9 65795F jns 00873C5B
00873BFC 43 inc ebx
00873BFD 52 push edx
00873BFE 2000 and [eax], al
00873C00 FFFF DB $FF, $FF //
00873C02 FFFF DB $FF, $FF //
00873C04 0D00000020 or eax, $20000000
00873C09 53 push ebx
00873C0A 657420 jz 00873C2D
00873C0D 42 inc edx
00873C0E 5A pop edx
00873C0F 54 push esp
00873C10 7970 jns 00873C82
00873C12 653D27000000 cmp eax, $00000027
00873C18 FFFF DB $FF, $FF //
00873C1A FFFF DB $FF, $FF //
00873C1C 07 pop es
00873C1D 0000 add [eax], al
00873C1F 005A64 add [edx+$64], bl
00873C22 794E jns 00873C72
00873C24 61 popa
00873C25 6D insd
00873C26 6500FF add bh, bh
00873C29 FFFF DB $FF, $FF //
00873C2B FF01 inc dword ptr [ecx]
00873C2D 0000 add [eax], al
00873C2F 0027 add [edi], ah
00873C31 0000 add [eax], al
00873C33 00FF add bh, bh
00873C35 FFFF DB $FF, $FF //
00873C37 FF09 dec dword ptr [ecx]
00873C39 0000 add [eax], al
00873C3B 002C4564697465 add [$65746964+eax*2], ch
00873C42 723D jb 00873C81
00873C44 27 daa
00873C45 0000 add [eax], al
00873C47 00FF add bh, bh
00873C49 FFFF DB $FF, $FF //
00873C4B FF1400 call dword ptr [eax+eax]
00873C4E 0000 add [eax], al
00873C50 2C45 sub al, $45
00873C52 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00873C5B 657464 jz 00873CC2
00873C5E 61 popa
00873C5F 7465 jz 00873CC6
00873C61 2829 sub [ecx], ch
00873C63 2000 and [eax], al
00873C65 0000 add [eax], al
00873C67 00FF add bh, bh
00873C69 FFFF DB $FF, $FF //
00873C6B FF0D00000020 dec dword ptr [$20000000]
00873C71 7768 jnbe 00873CDB
00873C73 657265 jb 00873CDB
00873C76 205946 and [ecx+$46], bl
00873C79 49 dec ecx
00873C7A 643D27000000 cmp eax, $00000027
00873C80 FFFF DB $FF, $FF //
00873C82 FFFF DB $FF, $FF //
00873C84 0400 add al, +$00
00873C86 0000 add [eax], al
00873C88 59 pop ecx
00873C89 46 inc esi
00873C8A 49 dec ecx
00873C8B 640000 add fs:[eax], al
00873C8E 0000 add [eax], al
00873C90 53 push ebx
00873C91 8BD8 mov ebx, eax
* Reference to control DlyDate : N.A.
|
00873C93 8B8314030000 mov eax, [ebx+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00873C99 E82242C5FF call 004C7EC0
00873C9E 84C0 test al, al
00873CA0 7516 jnz 00873CB8
* Possible String Reference to: 'Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
00873CA2 B9C43C8700 mov ecx, $00873CC4
* Reference to control DlyDate : N.A.
|
00873CA7 8B9314030000 mov edx, [ebx+$0314]
* Reference to control cxGrid1 : N.A.
|
00873CAD 8B8328030000 mov eax, [ebx+$0328]
|
00873CB3 E87845F4FF call 007B8230
00873CB8 5B pop ebx
00873CB9 C3 ret
00873CBA 0000 add [eax], al
00873CBC FFFF DB $FF, $FF //
00873CBE FFFF DB $FF, $FF //
00873CC0 0A00 or al, byte ptr [eax]
00873CC2 0000 add [eax], al
00873CC4 D3A6B8B6BFEE shl dword ptr [esi+$EEBFB6B8], cl
00873CCA C1D0B1 rcl eax, $B1
00873CCD ED in eax, dx
00873CCE 0000 add [eax], al
00873CD0 55 push ebp
00873CD1 8BEC mov ebp, esp
00873CD3 B909000000 mov ecx, $00000009
00873CD8 6A00 push $00
00873CDA 6A00 push $00
00873CDC 49 dec ecx
00873CDD 75F9 jnz 00873CD8
00873CDF 53 push ebx
00873CE0 56 push esi
00873CE1 8BDA mov ebx, edx
00873CE3 8BF0 mov esi, eax
00873CE5 33C0 xor eax, eax
00873CE7 55 push ebp
00873CE8 68073F8700 push $00873F07
***** TRY
|
00873CED 64FF30 push dword ptr fs:[eax]
00873CF0 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00873CF3 BA1C3F8700 mov edx, $00873F1C
* Reference to control Order_Sub : N.A.
|
00873CF8 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00873CFE E8B12EC5FF call 004C6BB4
00873D03 8D55F0 lea edx, [ebp-$10]
00873D06 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00873D08 FF5160 call dword ptr [ecx+$60]
00873D0B 8B45F0 mov eax, [ebp-$10]
00873D0E 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00873D11 E8D66BB9FF call 0040A8EC
00873D16 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00873D19 BA2C3F8700 mov edx, $00873F2C
* Reference to: System.@LStrCmp;
|
00873D1E E81D1AB9FF call 00405740
00873D23 751D jnz 00873D42
00873D25 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00873D27 B9383F8700 mov ecx, $00873F38
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00873D2C BA403F8700 mov edx, $00873F40
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00873F6D(Sender : TObject);
begin
(*
00873F6D 50 push eax
00873F6E 6461 popa
00873F70 7465 jz 00873FD7
00873F72 205946 and [ecx+$46], bl
00873F75 5F pop edi
00873F76 4D dec ebp
00873F77 6F outsd
00873F78 6E outsb
00873F79 65795F jns 00873FDB
00873F7C 43 inc ebx
00873F7D 52 push edx
00873F7E 2000 and [eax], al
00873F80 FFFF DB $FF, $FF //
00873F82 FFFF DB $FF, $FF //
00873F84 0500000020 add eax, +$20000000
00873F89 53 push ebx
00873F8A 657420 jz 00873FAD
00873F8D 0000 add [eax], al
00873F8F 00FF add bh, bh
00873F91 FFFF DB $FF, $FF //
00873F93 FF01 inc dword ptr [ecx]
00873F95 0000 add [eax], al
00873F97 003D000000FF add [$FF000000], bh
00873F9D FFFF DB $FF, $FF //
00873F9F FF09 dec dword ptr [ecx]
00873FA1 0000 add [eax], al
00873FA3 002C4564697465 add [$65746964+eax*2], ch
00873FAA 723D jb 00873FE9
00873FAC 27 daa
00873FAD 0000 add [eax], al
00873FAF 00FF add bh, bh
00873FB1 FFFF DB $FF, $FF //
00873FB3 FF01 inc dword ptr [ecx]
00873FB5 0000 add [eax], al
00873FB7 0027 add [edi], ah
00873FB9 0000 add [eax], al
00873FBB 00FF add bh, bh
00873FBD FFFF DB $FF, $FF //
00873FBF FF1400 call dword ptr [eax+eax]
00873FC2 0000 add [eax], al
00873FC4 2C45 sub al, $45
00873FC6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00873FCF 657464 jz 00874036
00873FD2 61 popa
00873FD3 7465 jz 0087403A
00873FD5 2829 sub [ecx], ch
00873FD7 2000 and [eax], al
00873FD9 0000 add [eax], al
00873FDB 00FF add bh, bh
00873FDD FFFF DB $FF, $FF //
00873FDF FF0D00000020 dec dword ptr [$20000000]
00873FE5 7768 jnbe 0087404F
00873FE7 657265 jb 0087404F
00873FEA 205946 and [ecx+$46], bl
00873FED 49 dec ecx
00873FEE 643D27000000 cmp eax, $00000027
00873FF4 FFFF DB $FF, $FF //
00873FF6 FFFF DB $FF, $FF //
00873FF8 0400 add al, +$00
00873FFA 0000 add [eax], al
00873FFC 59 pop ecx
00873FFD 46 inc esi
00873FFE 49 dec ecx
00873FFF 640000 add fs:[eax], al
00874002 0000 add [eax], al
00874004 55 push ebp
00874005 8BEC mov ebp, esp
00874007 B908000000 mov ecx, $00000008
0087400C 6A00 push $00
0087400E 6A00 push $00
00874010 49 dec ecx
00874011 75F9 jnz 0087400C
00874013 53 push ebx
00874014 56 push esi
00874015 8BDA mov ebx, edx
00874017 8BF0 mov esi, eax
00874019 33C0 xor eax, eax
0087401B 55 push ebp
0087401C 68EC418700 push $008741EC
***** TRY
|
00874021 64FF30 push dword ptr fs:[eax]
00874024 648920 mov fs:[eax], esp
00874027 8D55FC lea edx, [ebp-$04]
0087402A 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;
|
0087402C E88BB6D1FF call 0058F6BC
00874031 8D55F4 lea edx, [ebp-$0C]
00874034 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874037 E8B068B9FF call 0040A8EC
0087403C 837DF400 cmp dword ptr [ebp-$0C], +$00
00874040 750D jnz 0087404F
00874042 8D45FC lea eax, [ebp-$04]
00874045 BA04428700 mov edx, $00874204
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0087404A E86D13B9FF call 004053BC
* Reference to control cxGrid1 : N.A.
|
0087404F 8B8628030000 mov eax, [esi+$0328]
* 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;
|
00874055 E8F282DEFF 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;
|
0087405A E805DBDDFF call 00651B64
* Reference to field N.A..OFFS_0050
|
0087405F 8B4050 mov eax, [eax+$50]
00874062 8D55F0 lea edx, [ebp-$10]
00874065 8B08 mov ecx, [eax]
00874067 FF5110 call dword ptr [ecx+$10]
0087406A 8B45F0 mov eax, [ebp-$10]
0087406D 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874070 E87768B9FF call 0040A8EC
* Reference to control Order_Sub : N.A.
|
00874075 8B9E48030000 mov ebx, [esi+$0348]
0087407B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0087407D E8BE43C5FF call 004C8440
00874082 8D55DC lea edx, [ebp-$24]
00874085 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874088 E85F68B9FF call 0040A8EC
0087408D 8B55DC mov edx, [ebp-$24]
00874090 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874093 E8304DBAFF call 00418DC8
00874098 8D45E0 lea eax, [ebp-$20]
0087409B 50 push eax
0087409C 8B55F8 mov edx, [ebp-$08]
0087409F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008740A1 E80E2BC5FF call 004C6BB4
008740A6 5A pop edx
008740A7 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008740A9 FF91B4000000 call dword ptr [ecx+$00B4]
008740AF 8BC3 mov eax, ebx
008740B1 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008740B3 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
008740B9 8B9E08030000 mov ebx, [esi+$0308]
008740BF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008740C1 E80E18C5FF call 004C58D4
008740C6 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008740C8 E8DF9EC6FF call 004DDFAC
008740CD 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
008740CF FF5244 call dword ptr [edx+$44]
008740D2 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008740D4 E8D39EC6FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008740D9 BA10428700 mov edx, $00874210
008740DE 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008740E0 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008740E3 682C428700 push $0087422C
008740E8 FF75F8 push dword ptr [ebp-$08]
008740EB 683C428700 push $0087423C
008740F0 8D55D4 lea edx, [ebp-$2C]
008740F3 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008740F6 E8F167B9FF call 0040A8EC
008740FB FF75D4 push dword ptr [ebp-$2C]
008740FE 8D45D8 lea eax, [ebp-$28]
00874101 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00874106 E8A915B9FF call 004056B4
0087410B 8B45D8 mov eax, [ebp-$28]
0087410E 50 push eax
0087410F 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00874111 E8969EC6FF call 004DDFAC
00874116 5A pop edx
00874117 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00874119 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0087411C 6848428700 push $00874248
00874121 8D55CC lea edx, [ebp-$34]
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00874211(Sender : TObject);
begin
(*
00874211 50 push eax
00874212 6461 popa
00874214 7465 jz 0087427B
00874216 205946 and [ecx+$46], bl
00874219 5F pop edi
0087421A 4D dec ebp
0087421B 6F outsd
0087421C 6E outsb
0087421D 65795F jns 0087427F
00874220 43 inc ebx
00874221 52 push edx
00874222 2000 and [eax], al
00874224 FFFF DB $FF, $FF //
00874226 FFFF DB $FF, $FF //
00874228 0500000020 add eax, +$20000000
0087422D 53 push ebx
0087422E 657420 jz 00874251
00874231 0000 add [eax], al
00874233 00FF add bh, bh
00874235 FFFF DB $FF, $FF //
00874237 FF01 inc dword ptr [ecx]
00874239 0000 add [eax], al
0087423B 003D000000FF add [$FF000000], bh
00874241 FFFF DB $FF, $FF //
00874243 FF09 dec dword ptr [ecx]
00874245 0000 add [eax], al
00874247 002C4564697465 add [$65746964+eax*2], ch
0087424E 723D jb 0087428D
00874250 27 daa
00874251 0000 add [eax], al
00874253 00FF add bh, bh
00874255 FFFF DB $FF, $FF //
00874257 FF01 inc dword ptr [ecx]
00874259 0000 add [eax], al
0087425B 0027 add [edi], ah
0087425D 0000 add [eax], al
0087425F 00FF add bh, bh
00874261 FFFF DB $FF, $FF //
00874263 FF1400 call dword ptr [eax+eax]
00874266 0000 add [eax], al
00874268 2C45 sub al, $45
0087426A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00874273 657464 jz 008742DA
00874276 61 popa
00874277 7465 jz 008742DE
00874279 2829 sub [ecx], ch
0087427B 2000 and [eax], al
0087427D 0000 add [eax], al
0087427F 00FF add bh, bh
00874281 FFFF DB $FF, $FF //
00874283 FF0D00000020 dec dword ptr [$20000000]
00874289 7768 jnbe 008742F3
0087428B 657265 jb 008742F3
0087428E 205946 and [ecx+$46], bl
00874291 49 dec ecx
00874292 643D27000000 cmp eax, $00000027
00874298 FFFF DB $FF, $FF //
0087429A FFFF DB $FF, $FF //
0087429C 0400 add al, +$00
0087429E 0000 add [eax], al
008742A0 59 pop ecx
008742A1 46 inc esi
008742A2 49 dec ecx
008742A3 640000 add fs:[eax], al
008742A6 0000 add [eax], al
008742A8 55 push ebp
008742A9 8BEC mov ebp, esp
008742AB B90E000000 mov ecx, $0000000E
008742B0 6A00 push $00
008742B2 6A00 push $00
008742B4 49 dec ecx
008742B5 75F9 jnz 008742B0
008742B7 53 push ebx
008742B8 56 push esi
008742B9 8BDA mov ebx, edx
008742BB 8BF0 mov esi, eax
008742BD 33C0 xor eax, eax
008742BF 55 push ebp
008742C0 68A1458700 push $008745A1
***** TRY
|
008742C5 64FF30 push dword ptr fs:[eax]
008742C8 648920 mov fs:[eax], esp
008742CB 8D55FC lea edx, [ebp-$04]
008742CE 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;
|
008742D0 E8E7B3D1FF call 0058F6BC
* Reference to control cxGrid1 : N.A.
|
008742D5 8B8628030000 mov eax, [esi+$0328]
* 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;
|
008742DB E86C80DEFF 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;
|
008742E0 E87FD8DDFF call 00651B64
* Reference to field N.A..OFFS_0050
|
008742E5 8B4050 mov eax, [eax+$50]
008742E8 8D55F4 lea edx, [ebp-$0C]
008742EB 8B08 mov ecx, [eax]
008742ED FF5110 call dword ptr [ecx+$10]
008742F0 8B45F4 mov eax, [ebp-$0C]
008742F3 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008742F6 E8F165B9FF call 0040A8EC
* Reference to control Order_Sub : N.A.
|
008742FB 8B9E48030000 mov ebx, [esi+$0348]
00874301 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00874303 E83841C5FF call 004C8440
00874308 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
0087430B BAB8458700 mov edx, $008745B8
* Reference to: System.@LStrCmp;
|
00874310 E82B14B9FF call 00405740
00874315 751E jnz 00874335
00874317 8D55F0 lea edx, [ebp-$10]
0087431A 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087431D E8CA65B9FF call 0040A8EC
00874322 837DF000 cmp dword ptr [ebp-$10], +$00
00874326 750D jnz 00874335
00874328 8D45FC lea eax, [ebp-$04]
0087432B BAC8458700 mov edx, $008745C8
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00874330 E88710B9FF call 004053BC
00874335 8D55DC lea edx, [ebp-$24]
00874338 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087433B E8AC65B9FF call 0040A8EC
00874340 8B55DC mov edx, [ebp-$24]
00874343 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874346 E87D4ABAFF call 00418DC8
0087434B 8D45E0 lea eax, [ebp-$20]
0087434E 50 push eax
0087434F 8B55F8 mov edx, [ebp-$08]
00874352 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874354 E85B28C5FF call 004C6BB4
00874359 5A pop edx
0087435A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0087435C FF91B4000000 call dword ptr [ecx+$00B4]
00874362 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
00874365 BAB8458700 mov edx, $008745B8
* Reference to: System.@LStrCmp;
|
0087436A E8D113B9FF call 00405740
0087436F 7553 jnz 008743C4
* Possible String Reference to: 'GCPrice'
|
00874371 BAB8458700 mov edx, $008745B8
00874376 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874378 E83728C5FF call 004C6BB4
0087437D 8D55CC lea edx, [ebp-$34]
00874380 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00874382 FF5164 call dword ptr [ecx+$64]
00874385 8D45CC lea eax, [ebp-$34]
00874388 50 push eax
* Possible String Reference to: 'Qty'
|
00874389 BAD4458700 mov edx, $008745D4
0087438E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874390 E81F28C5FF call 004C6BB4
00874395 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
00874397 FF5254 call dword ptr [edx+$54]
0087439A 8D45BC lea eax, [ebp-$44]
* Reference to: Variants.@VarFromReal;
|
0087439D E8EA49BAFF call 00418D8C
008743A2 8D55BC lea edx, [ebp-$44]
008743A5 58 pop eax
* Reference to: System.@Initialize(Pointer;Pointer);
| or: System.@Finalize(Pointer;Pointer);
| or: System.@AddRef;
| or: Variants.@VarAdd(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarSub(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarMul(TVarData;TVarData;TVarData;TVarData);
|
008743A6 E8D58FBAFF call 0041D380
008743AB 8D45CC lea eax, [ebp-$34]
008743AE 50 push eax
* Possible String Reference to: 'GCMoney'
|
008743AF BAE0458700 mov edx, $008745E0
008743B4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008743B6 E8F927C5FF call 004C6BB4
008743BB 5A pop edx
008743BC 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008743BE FF91B4000000 call dword ptr [ecx+$00B4]
008743C4 8BC3 mov eax, ebx
008743C6 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008743C8 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
008743CE 8B9E08030000 mov ebx, [esi+$0308]
008743D4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008743D6 E8F914C5FF call 004C58D4
008743DB 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008743DD E8CA9BC6FF call 004DDFAC
008743E2 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
008743E4 FF5244 call dword ptr [edx+$44]
008743E7 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008743E9 E8BE9BC6FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008743EE BAF0458700 mov edx, $008745F0
008743F3 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008743F5 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
008743F8 680C468700 push $0087460C
008743FD FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00874400 681C468700 push $0087461C
00874405 8D55B4 lea edx, [ebp-$4C]
00874408 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0087440B E8DC64B9FF call 0040A8EC
00874410 FF75B4 push dword ptr [ebp-$4C]
00874413 6828468700 push $00874628
00874418 8D45B8 lea eax, [ebp-$48]
0087441B BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
00874420 E88F12B9FF call 004056B4
00874425 8B45B8 mov eax, [ebp-$48]
00874428 50 push eax
00874429 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0087442B E87C9BC6FF call 004DDFAC
00874430 5A pop edx
00874431 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00874433 FF5138 call dword ptr [ecx+$38]
00874436 8B45F8 mov eax, [ebp-$08]
* Possible String Reference to: 'GCPrice'
|
00874439 BAB8458700 mov edx, $008745B8
* Reference to: System.@LStrCmp;
|
0087443E E8FD12B9FF call 00405740
00874443 754E jnz 00874493
* Possible String Reference to: ',GCMoney=''
|
00874445 6834468700 push $00874634
* Possible String Reference to: 'GCMoney'
|
0087444A BAE0458700 mov edx, $008745E0
* Reference to control Order_Sub : N.A.
|
0087444F 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874455 E85A27C5FF call 004C6BB4
0087445A 8D55A8 lea edx, [ebp-$58]
0087445D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0087445F FF5160 call dword ptr [ecx+$60]
00874462 8B45A8 mov eax, [ebp-$58]
00874465 8D55AC lea edx, [ebp-$54]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874468 E87F64B9FF call 0040A8EC
0087446D FF75AC push dword ptr [ebp-$54]
00874470 6828468700 push $00874628
00874475 8D45B0 lea eax, [ebp-$50]
00874478 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
0087447D E83212B9FF call 004056B4
00874482 8B45B0 mov eax, [ebp-$50]
00874485 50 push eax
00874486 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00874488 E81F9BC6FF call 004DDFAC
0087448D 5A pop edx
0087448E 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00874490 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'GCMoney'
|
00874493 BAE0458700 mov edx, $008745E0
* Reference to control Order_Sub : N.A.
|
00874498 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0087449E E81127C5FF call 004C6BB4
008744A3 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
008744A5 FF5254 call dword ptr [edx+$54]
008744A8 D81D40468700 fcomp dword ptr [$00874640]
008744AE DFE0 fstsw ax
008744B0 9E sahf
008744B1 744E jz 00874501
* Possible String Reference to: ',BBMoney=''
|
008744B3 684C468700 push $0087464C
* Possible String Reference to: 'GCMoney'
|
008744B8 BAE0458700 mov edx, $008745E0
* Reference to control Order_Sub : N.A.
|
008744BD 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008744C3 E8EC26C5FF call 004C6BB4
008744C8 8D559C lea edx, [ebp-$64]
008744CB 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008744CD FF5160 call dword ptr [ecx+$60]
008744D0 8B459C mov eax, [ebp-$64]
008744D3 8D55A0 lea edx, [ebp-$60]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008744D6 E81164B9FF call 0040A8EC
008744DB FF75A0 push dword ptr [ebp-$60]
008744DE 6828468700 push $00874628
008744E3 8D45A4 lea eax, [ebp-$5C]
008744E6 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008744EB E8C411B9FF call 004056B4
008744F0 8B45A4 mov eax, [ebp-$5C]
008744F3 50 push eax
008744F4 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008744F6 E8B19AC6FF call 004DDFAC
008744FB 5A pop edx
008744FC 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008744FE FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00874501 6860468700 push $00874660
* Possible String Reference to: 'YFId'
|
00874506 BA78468700 mov edx, $00874678
* Reference to control Order_Sub : N.A.
|
0087450B 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874511 E89E26C5FF call 004C6BB4
00874516 8D5590 lea edx, [ebp-$70]
00874519 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
0087451B FF5160 call dword ptr [ecx+$60]
0087451E 8B4590 mov eax, [ebp-$70]
00874521 8D5594 lea edx, [ebp-$6C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874524 E8C363B9FF call 0040A8EC
00874529 FF7594 push dword ptr [ebp-$6C]
0087452C 6828468700 push $00874628
00874531 8D4598 lea eax, [ebp-$68]
00874534 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00874539 E87611B9FF call 004056B4
0087453E 8B4598 mov eax, [ebp-$68]
00874541 50 push eax
00874542 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00874544 E8639AC6FF call 004DDFAC
00874549 5A pop edx
0087454A 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0087454C FF5138 call dword ptr [ecx+$38]
0087454F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00874551 E87E99C6FF call 004DDED4
00874556 33C0 xor eax, eax
00874558 5A pop edx
00874559 59 pop ecx
0087455A 59 pop ecx
0087455B 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
0087455E 68A8458700 push $008745A8
00874563 8D4590 lea eax, [ebp-$70]
00874566 BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0087456B E8D80DB9FF call 00405348
00874570 8D45BC lea eax, [ebp-$44]
* Reference to object Variant
|
00874573 8B153C114000 mov edx, [$0040113C]
00874579 B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
0087457E E8911BB9FF call 00406114
00874583 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
00874586 E8990DB9FF call 00405324
0087458B 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0087458E E8E100BAFF call 00414674
00874593 8D45F0 lea eax, [ebp-$10]
00874596 BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0087459B E8A80DB9FF call 00405348
008745A0 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_008745F1(Sender : TObject);
begin
(*
008745F1 50 push eax
008745F2 6461 popa
008745F4 7465 jz 0087465B
008745F6 205946 and [ecx+$46], bl
008745F9 5F pop edi
008745FA 4D dec ebp
008745FB 6F outsd
008745FC 6E outsb
008745FD 65795F jns 0087465F
00874600 43 inc ebx
00874601 52 push edx
00874602 2000 and [eax], al
00874604 FFFF DB $FF, $FF //
00874606 FFFF DB $FF, $FF //
00874608 0500000020 add eax, +$20000000
0087460D 53 push ebx
0087460E 657420 jz 00874631
00874611 0000 add [eax], al
00874613 00FF add bh, bh
00874615 FFFF DB $FF, $FF //
00874617 FF02 inc dword ptr [edx]
00874619 0000 add [eax], al
0087461B 003D270000FF add [$FF000027], bh
00874621 FFFF DB $FF, $FF //
00874623 FF01 inc dword ptr [ecx]
00874625 0000 add [eax], al
00874627 0027 add [edi], ah
00874629 0000 add [eax], al
0087462B 00FF add bh, bh
0087462D FFFF DB $FF, $FF //
0087462F FF0A dec dword ptr [edx]
00874631 0000 add [eax], al
00874633 002C47 add [edi+eax*2], ch
00874636 43 inc ebx
00874637 4D dec ebp
00874638 6F outsd
00874639 6E outsb
0087463A 65793D jns 0087467A
0087463D 27 daa
0087463E 0000 add [eax], al
00874640 0000 add [eax], al
00874642 0000 add [eax], al
00874644 FFFF DB $FF, $FF //
00874646 FFFF DB $FF, $FF //
00874648 0A00 or al, byte ptr [eax]
0087464A 0000 add [eax], al
0087464C 2C42 sub al, $42
0087464E 42 inc edx
0087464F 4D dec ebp
00874650 6F outsd
00874651 6E outsb
00874652 65793D jns 00874692
00874655 27 daa
00874656 0000 add [eax], al
00874658 FFFF DB $FF, $FF //
0087465A FFFF DB $FF, $FF //
0087465C 0D00000020 or eax, $20000000
00874661 7768 jnbe 008746CB
00874663 657265 jb 008746CB
00874666 205946 and [ecx+$46], bl
00874669 49 dec ecx
0087466A 643D27000000 cmp eax, $00000027
00874670 FFFF DB $FF, $FF //
00874672 FFFF DB $FF, $FF //
00874674 0400 add al, +$00
00874676 0000 add [eax], al
00874678 59 pop ecx
00874679 46 inc esi
0087467A 49 dec ecx
0087467B 640000 add fs:[eax], al
0087467E 0000 add [eax], al
00874680 55 push ebp
00874681 8BEC mov ebp, esp
00874683 51 push ecx
00874684 B906000000 mov ecx, $00000006
00874689 6A00 push $00
0087468B 6A00 push $00
0087468D 49 dec ecx
0087468E 75F9 jnz 00874689
00874690 51 push ecx
00874691 874DFC xchg [ebp-$04], ecx
00874694 53 push ebx
00874695 56 push esi
00874696 8BF0 mov esi, eax
00874698 33C0 xor eax, eax
0087469A 55 push ebp
0087469B 68D7488700 push $008748D7
***** TRY
|
008746A0 64FF30 push dword ptr fs:[eax]
008746A3 648920 mov fs:[eax], esp
008746A6 33C0 xor eax, eax
008746A8 55 push ebp
008746A9 68AD488700 push $008748AD
***** TRY
|
008746AE 64FF30 push dword ptr fs:[eax]
008746B1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00874921(Sender : TObject);
begin
(*
00874921 50 push eax
00874922 6461 popa
00874924 7465 jz 0087498B
00874926 205946 and [ecx+$46], bl
00874929 5F pop edi
0087492A 4D dec ebp
0087492B 6F outsd
0087492C 6E outsb
0087492D 65795F jns 0087498F
00874930 43 inc ebx
00874931 52 push edx
00874932 2000 and [eax], al
00874934 FFFF DB $FF, $FF //
00874936 FFFF DB $FF, $FF //
00874938 0E push cs
00874939 0000 add [eax], al
0087493B 0020 add [eax], ah
0087493D 53 push ebx
0087493E 657420 jz 00874961
00874941 50 push eax
00874942 61 popa
00874943 794D jns 00874992
00874945 656E outsb
00874947 743D jz 00874986
00874949 27 daa
0087494A 0000 add [eax], al
0087494C FFFF DB $FF, $FF //
0087494E FFFF DB $FF, $FF //
00874950 0100 add [eax], eax
00874952 0000 add [eax], al
00874954 27 daa
00874955 0000 add [eax], al
00874957 00FF add bh, bh
00874959 FFFF DB $FF, $FF //
0087495B FF09 dec dword ptr [ecx]
0087495D 0000 add [eax], al
0087495F 002C4564697465 add [$65746964+eax*2], ch
00874966 723D jb 008749A5
00874968 27 daa
00874969 0000 add [eax], al
0087496B 00FF add bh, bh
0087496D FFFF DB $FF, $FF //
0087496F FF1400 call dword ptr [eax+eax]
00874972 0000 add [eax], al
00874974 2C45 sub al, $45
00874976 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0087497F 657464 jz 008749E6
00874982 61 popa
00874983 7465 jz 008749EA
00874985 2829 sub [ecx], ch
00874987 2000 and [eax], al
00874989 0000 add [eax], al
0087498B 00FF add bh, bh
0087498D FFFF DB $FF, $FF //
0087498F FF0D00000020 dec dword ptr [$20000000]
00874995 7768 jnbe 008749FF
00874997 657265 jb 008749FF
0087499A 205946 and [ecx+$46], bl
0087499D 49 dec ecx
0087499E 643D27000000 cmp eax, $00000027
008749A4 FFFF DB $FF, $FF //
008749A6 FFFF DB $FF, $FF //
008749A8 0400 add al, +$00
008749AA 0000 add [eax], al
008749AC 59 pop ecx
008749AD 46 inc esi
008749AE 49 dec ecx
008749AF 640000 add fs:[eax], al
008749B2 0000 add [eax], al
008749B4 55 push ebp
008749B5 8BEC mov ebp, esp
008749B7 B910000000 mov ecx, $00000010
008749BC 6A00 push $00
008749BE 6A00 push $00
008749C0 49 dec ecx
008749C1 75F9 jnz 008749BC
008749C3 51 push ecx
008749C4 53 push ebx
008749C5 56 push esi
008749C6 8BDA mov ebx, edx
008749C8 8BF0 mov esi, eax
008749CA 33C0 xor eax, eax
008749CC 55 push ebp
008749CD 685B4C8700 push $00874C5B
***** TRY
|
008749D2 64FF30 push dword ptr fs:[eax]
008749D5 648920 mov fs:[eax], esp
008749D8 8D55FC lea edx, [ebp-$04]
008749DB 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;
|
008749DD E8DAACD1FF call 0058F6BC
008749E2 8D55F0 lea edx, [ebp-$10]
008749E5 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008749E8 E8FF5EB9FF call 0040A8EC
008749ED 837DF000 cmp dword ptr [ebp-$10], +$00
008749F1 750D jnz 00874A00
008749F3 8D45FC lea eax, [ebp-$04]
008749F6 BA704C8700 mov edx, $00874C70
* Reference to: System.@LStrLAsg(void;void;void;void);
|
008749FB E8BC09B9FF call 004053BC
* Reference to control cxGrid1 : N.A.
|
00874A00 8B8628030000 mov eax, [esi+$0328]
* 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;
|
00874A06 E84179DEFF 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;
|
00874A0B E854D1DDFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00874A10 8B4050 mov eax, [eax+$50]
00874A13 8D55EC lea edx, [ebp-$14]
00874A16 8B08 mov ecx, [eax]
00874A18 FF5110 call dword ptr [ecx+$10]
00874A1B 8B45EC mov eax, [ebp-$14]
00874A1E 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874A21 E8C65EB9FF call 0040A8EC
00874A26 8D45F4 lea eax, [ebp-$0C]
00874A29 50 push eax
* Possible String Reference to: 'T_Price'
|
00874A2A BA7C4C8700 mov edx, $00874C7C
* Reference to control Order_Sub : N.A.
|
00874A2F 8B8648030000 mov eax, [esi+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874A35 E87A21C5FF call 004C6BB4
00874A3A 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
00874A3C FF5254 call dword ptr [edx+$54]
00874A3F DD5DDC fstp qword ptr [ebp-$24]
00874A42 9B wait
00874A43 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00874A46 E8E18CB9FF call 0040D72C
00874A4B DC4DDC fmul qword ptr [ebp-$24]
00874A4E DB7DD0 fstp tbyte ptr [ebp-$30]
00874A51 9B wait
00874A52 8D45D0 lea eax, [ebp-$30]
00874A55 8945E4 mov [ebp-$1C], eax
00874A58 C645E803 mov byte ptr [ebp-$18], $03
00874A5C 8D55E4 lea edx, [ebp-$1C]
00874A5F 33C9 xor ecx, ecx
* Possible String Reference to: '%.2f'
|
00874A61 B88C4C8700 mov eax, $00874C8C
|
00874A66 E81981B9FF call 0040CB84
* Reference to control Order_Sub : N.A.
|
00874A6B 8B9E48030000 mov ebx, [esi+$0348]
00874A71 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00874A73 E8C839C5FF call 004C8440
00874A78 8D55BC lea edx, [ebp-$44]
00874A7B 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874A7E E8695EB9FF call 0040A8EC
00874A83 8B55BC mov edx, [ebp-$44]
00874A86 8D45C0 lea eax, [ebp-$40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874A89 E83A43BAFF call 00418DC8
00874A8E 8D45C0 lea eax, [ebp-$40]
00874A91 50 push eax
00874A92 8B55F8 mov edx, [ebp-$08]
00874A95 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874A97 E81821C5FF call 004C6BB4
00874A9C 5A pop edx
00874A9D 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00874A9F FF91B4000000 call dword ptr [ecx+$00B4]
00874AA5 8D55A8 lea edx, [ebp-$58]
00874AA8 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00874AAB E83C5EB9FF call 0040A8EC
00874AB0 8B55A8 mov edx, [ebp-$58]
00874AB3 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00874AB6 E80D43BAFF call 00418DC8
00874ABB 8D45AC lea eax, [ebp-$54]
00874ABE 50 push eax
* Possible String Reference to: 'T_Money'
|
00874ABF BA9C4C8700 mov edx, $00874C9C
00874AC4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00874AC6 E8E920C5FF call 004C6BB4
00874ACB 5A pop edx
00874ACC 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00874ACE FF91B4000000 call dword ptr [ecx+$00B4]
00874AD4 8D55A4 lea edx, [ebp-$5C]
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00874CCD(Sender : TObject);
begin
(*
00874CCD 50 push eax
00874CCE 6461 popa
00874CD0 7465 jz 00874D37
00874CD2 205946 and [ecx+$46], bl
00874CD5 5F pop edi
00874CD6 4D dec ebp
00874CD7 6F outsd
00874CD8 6E outsb
00874CD9 65795F jns 00874D3B
00874CDC 43 inc ebx
00874CDD 52 push edx
00874CDE 2000 and [eax], al
00874CE0 FFFF DB $FF, $FF //
00874CE2 FFFF DB $FF, $FF //
00874CE4 0500000020 add eax, +$20000000
00874CE9 53 push ebx
00874CEA 657420 jz 00874D0D
00874CED 0000 add [eax], al
00874CEF 00FF add bh, bh
00874CF1 FFFF DB $FF, $FF //
00874CF3 FF01 inc dword ptr [ecx]
00874CF5 0000 add [eax], al
00874CF7 003D000000FF add [$FF000000], bh
00874CFD FFFF DB $FF, $FF //
00874CFF FF09 dec dword ptr [ecx]
00874D01 0000 add [eax], al
00874D03 002C54 add [esp+edx*2], ch
00874D06 5F pop edi
00874D07 4D dec ebp
00874D08 6F outsd
00874D09 6E outsb
00874D0A 65793D jns 00874D4A
00874D0D 0000 add [eax], al
00874D0F 00FF add bh, bh
00874D11 FFFF DB $FF, $FF //
00874D13 FF0D00000020 dec dword ptr [$20000000]
00874D19 7768 jnbe 00874D83
00874D1B 657265 jb 00874D83
00874D1E 205946 and [ecx+$46], bl
00874D21 49 dec ecx
00874D22 643D27000000 cmp eax, $00000027
00874D28 FFFF DB $FF, $FF //
00874D2A FFFF DB $FF, $FF //
00874D2C 0400 add al, +$00
00874D2E 0000 add [eax], al
00874D30 59 pop ecx
00874D31 46 inc esi
00874D32 49 dec ecx
00874D33 640000 add fs:[eax], al
00874D36 0000 add [eax], al
00874D38 FFFF DB $FF, $FF //
00874D3A FFFF DB $FF, $FF //
00874D3C 0100 add [eax], eax
00874D3E 0000 add [eax], al
00874D40 27 daa
00874D41 0000 add [eax], al
00874D43 00558B add [ebp-$75], dl
00874D46 EC in al, dx
00874D47 B910000000 mov ecx, $00000010
00874D4C 6A00 push $00
00874D4E 6A00 push $00
00874D50 49 dec ecx
00874D51 75F9 jnz 00874D4C
00874D53 51 push ecx
00874D54 53 push ebx
00874D55 56 push esi
00874D56 57 push edi
00874D57 8945FC mov [ebp-$04], eax
00874D5A 33C0 xor eax, eax
00874D5C 55 push ebp
00874D5D 68D5508700 push $008750D5
***** TRY
|
00874D62 64FF30 push dword ptr fs:[eax]
00874D65 648920 mov fs:[eax], esp
00874D68 8B45FC mov eax, [ebp-$04]
* Reference to control Order_Sub : N.A.
|
00874D6B 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00874D71 E84A31C5FF call 004C7EC0
00874D76 84C0 test al, al
00874D78 0F85F1020000 jnz 0087506F
00874D7E A0E4508700 mov al, byte ptr [$008750E4]
00874D83 50 push eax
00874D84 8D45EC lea eax, [ebp-$14]
00874D87 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00874D89 E8D63FBAFF call 00418D64
00874D8E 8D4DEC lea ecx, [ebp-$14]
00874D91 8B45FC mov eax, [ebp-$04]
* Reference to control Order_Sub : N.A.
|
00874D94 8B8048030000 mov eax, [eax+$0348]
* Possible String Reference to: 'ssel'
|
00874D9A BAF0508700 mov edx, $008750F0
00874D9F 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
00874DA1 FF9344020000 call dword ptr [ebx+$0244]
00874DA7 84C0 test al, al
00874DA9 751D jnz 00874DC8
00874DAB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00874DAD B9F8508700 mov ecx, $008750F8
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00874DB2 BA00518700 mov edx, $00875100
*)
end;
procedure TfrmCaiWuHuiLV._PROC_008754D9(Sender : TObject);
begin
(*
008754D9 50 push eax
008754DA 6461 popa
008754DC 7465 jz 00875543
008754DE 205946 and [ecx+$46], bl
008754E1 5F pop edi
008754E2 4D dec ebp
008754E3 6F outsd
008754E4 6E outsb
008754E5 65795F jns 00875547
008754E8 43 inc ebx
008754E9 52 push edx
008754EA 2000 and [eax], al
008754EC FFFF DB $FF, $FF //
008754EE FFFF DB $FF, $FF //
008754F0 0500000020 add eax, +$20000000
008754F5 53 push ebx
008754F6 657420 jz 00875519
008754F9 0000 add [eax], al
008754FB 00FF add bh, bh
008754FD FFFF DB $FF, $FF //
008754FF FF01 inc dword ptr [ecx]
00875501 0000 add [eax], al
00875503 003D000000FF add [$FF000000], bh
00875509 FFFF DB $FF, $FF //
0087550B FF09 dec dword ptr [ecx]
0087550D 0000 add [eax], al
0087550F 002C54 add [esp+edx*2], ch
00875512 5F pop edi
00875513 4D dec ebp
00875514 6F outsd
00875515 6E outsb
00875516 65793D jns 00875556
00875519 0000 add [eax], al
0087551B 00FF add bh, bh
0087551D FFFF DB $FF, $FF //
0087551F FF0D00000020 dec dword ptr [$20000000]
00875525 7768 jnbe 0087558F
00875527 657265 jb 0087558F
0087552A 205946 and [ecx+$46], bl
0087552D 49 dec ecx
0087552E 643D27000000 cmp eax, $00000027
00875534 FFFF DB $FF, $FF //
00875536 FFFF DB $FF, $FF //
00875538 0400 add al, +$00
0087553A 0000 add [eax], al
0087553C 59 pop ecx
0087553D 46 inc esi
0087553E 49 dec ecx
0087553F 640000 add fs:[eax], al
00875542 0000 add [eax], al
00875544 FFFF DB $FF, $FF //
00875546 FFFF DB $FF, $FF //
00875548 0100 add [eax], eax
0087554A 0000 add [eax], al
0087554C 27 daa
0087554D 0000 add [eax], al
0087554F 00558B add [ebp-$75], dl
00875552 EC in al, dx
00875553 51 push ecx
00875554 B90F000000 mov ecx, $0000000F
00875559 6A00 push $00
0087555B 6A00 push $00
0087555D 49 dec ecx
0087555E 75F9 jnz 00875559
00875560 51 push ecx
00875561 874DFC xchg [ebp-$04], ecx
00875564 53 push ebx
00875565 56 push esi
00875566 8BF0 mov esi, eax
00875568 33C0 xor eax, eax
0087556A 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0087556B 68FC588700 push $008758FC
***** TRY
|
00875570 64FF30 push dword ptr fs:[eax]
00875573 648920 mov fs:[eax], esp
00875576 33C0 xor eax, eax
00875578 55 push ebp
00875579 68A8588700 push $008758A8
***** TRY
|
0087557E 64FF30 push dword ptr fs:[eax]
00875581 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00875975(Sender : TObject);
begin
(*
00875975 50 push eax
00875976 6461 popa
00875978 7465 jz 008759DF
0087597A 205946 and [ecx+$46], bl
0087597D 5F pop edi
0087597E 4D dec ebp
0087597F 6F outsd
00875980 6E outsb
00875981 65795F jns 008759E3
00875984 43 inc ebx
00875985 52 push edx
00875986 2000 and [eax], al
00875988 FFFF DB $FF, $FF //
0087598A FFFF DB $FF, $FF //
0087598C 0E push cs
0087598D 0000 add [eax], al
0087598F 0020 add [eax], ah
00875991 53 push ebx
00875992 657420 jz 008759B5
00875995 4F dec edi
00875996 7264 jb 008759FC
00875998 65724E jb 008759E9
0087599B 4F dec edi
0087599C 3D270000FF cmp eax, $FF000027
008759A1 FFFF DB $FF, $FF //
008759A3 FF07 inc dword ptr [edi]
008759A5 0000 add [eax], al
008759A7 004F72 add [edi+$72], cl
008759AA 6465724E jb 008759FC
008759AE 4F dec edi
008759AF 00FF add bh, bh
008759B1 FFFF DB $FF, $FF //
008759B3 FF01 inc dword ptr [ecx]
008759B5 0000 add [eax], al
008759B7 0027 add [edi], ah
008759B9 0000 add [eax], al
008759BB 00FF add bh, bh
008759BD FFFF DB $FF, $FF //
008759BF FF0E dec dword ptr [esi]
008759C1 0000 add [eax], al
008759C3 0020 add [eax], ah
008759C5 2C50 sub al, $50
008759C7 5F pop edi
008759C8 43 inc ebx
008759C9 6F outsd
008759CA 64654E dec esi
008759CD 61 popa
008759CE 6D insd
008759CF 653D270000FF cmp eax, $FF000027
008759D5 FFFF DB $FF, $FF //
008759D7 FF0A dec dword ptr [edx]
008759D9 0000 add [eax], al
008759DB 0020 add [eax], ah
008759DD 2C50 sub al, $50
008759DF 5F pop edi
008759E0 53 push ebx
008759E1 7065 jo 00875A48
008759E3 633D270000FF arpl [$FF000027], di
008759E9 FFFF DB $FF, $FF //
008759EB FF09 dec dword ptr [ecx]
008759ED 0000 add [eax], al
008759EF 002C4564697465 add [$65746964+eax*2], ch
008759F6 723D jb 00875A35
008759F8 27 daa
008759F9 0000 add [eax], al
008759FB 00FF add bh, bh
008759FD FFFF DB $FF, $FF //
008759FF FF1400 call dword ptr [eax+eax]
00875A02 0000 add [eax], al
00875A04 2C45 sub al, $45
00875A06 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00875A0F 657464 jz 00875A76
00875A12 61 popa
00875A13 7465 jz 00875A7A
00875A15 2829 sub [ecx], ch
00875A17 2000 and [eax], al
00875A19 0000 add [eax], al
00875A1B 00FF add bh, bh
00875A1D FFFF DB $FF, $FF //
00875A1F FF0D00000020 dec dword ptr [$20000000]
00875A25 7768 jnbe 00875A8F
00875A27 657265 jb 00875A8F
00875A2A 205946 and [ecx+$46], bl
00875A2D 49 dec ecx
00875A2E 643D27000000 cmp eax, $00000027
00875A34 FFFF DB $FF, $FF //
00875A36 FFFF DB $FF, $FF //
00875A38 0400 add al, +$00
00875A3A 0000 add [eax], al
00875A3C 59 pop ecx
00875A3D 46 inc esi
00875A3E 49 dec ecx
00875A3F 640000 add fs:[eax], al
00875A42 0000 add [eax], al
00875A44 55 push ebp
00875A45 8BEC mov ebp, esp
00875A47 51 push ecx
00875A48 B906000000 mov ecx, $00000006
00875A4D 6A00 push $00
00875A4F 6A00 push $00
00875A51 49 dec ecx
00875A52 75F9 jnz 00875A4D
00875A54 51 push ecx
00875A55 874DFC xchg [ebp-$04], ecx
00875A58 53 push ebx
00875A59 56 push esi
00875A5A 8BF0 mov esi, eax
00875A5C 33C0 xor eax, eax
00875A5E 55 push ebp
00875A5F 689B5C8700 push $00875C9B
***** TRY
|
00875A64 64FF30 push dword ptr fs:[eax]
00875A67 648920 mov fs:[eax], esp
00875A6A 33C0 xor eax, eax
00875A6C 55 push ebp
00875A6D 68715C8700 push $00875C71
***** TRY
|
00875A72 64FF30 push dword ptr fs:[eax]
00875A75 648920 mov fs:[eax], esp
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00875CE9(Sender : TObject);
begin
(*
00875CE9 50 push eax
00875CEA 6461 popa
00875CEC 7465 jz 00875D53
00875CEE 205946 and [ecx+$46], bl
00875CF1 5F pop edi
00875CF2 4D dec ebp
00875CF3 6F outsd
00875CF4 6E outsb
00875CF5 65795F jns 00875D57
00875CF8 43 inc ebx
00875CF9 52 push edx
00875CFA 2000 and [eax], al
00875CFC FFFF DB $FF, $FF //
00875CFE FFFF DB $FF, $FF //
00875D00 1000 adc [eax], al
00875D02 0000 add [eax], al
00875D04 205365 and [ebx+$65], dl
00875D07 7420 jz 00875D29
00875D09 43 inc ebx
00875D0A 6F outsd
00875D0B 6D insd
00875D0C 54 push esp
00875D0D 61 popa
00875D0E 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
00875D16 0000 add [eax], al
00875D18 FFFF DB $FF, $FF //
00875D1A FFFF DB $FF, $FF //
00875D1C 0100 add [eax], eax
00875D1E 0000 add [eax], al
00875D20 27 daa
00875D21 0000 add [eax], al
00875D23 00FF add bh, bh
00875D25 FFFF DB $FF, $FF //
00875D27 FF09 dec dword ptr [ecx]
00875D29 0000 add [eax], al
00875D2B 002C4564697465 add [$65746964+eax*2], ch
00875D32 723D jb 00875D71
00875D34 27 daa
00875D35 0000 add [eax], al
00875D37 00FF add bh, bh
00875D39 FFFF DB $FF, $FF //
00875D3B FF1400 call dword ptr [eax+eax]
00875D3E 0000 add [eax], al
00875D40 2C45 sub al, $45
00875D42 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00875D4B 657464 jz 00875DB2
00875D4E 61 popa
00875D4F 7465 jz 00875DB6
00875D51 2829 sub [ecx], ch
00875D53 2000 and [eax], al
00875D55 0000 add [eax], al
00875D57 00FF add bh, bh
00875D59 FFFF DB $FF, $FF //
00875D5B FF0D00000020 dec dword ptr [$20000000]
00875D61 7768 jnbe 00875DCB
00875D63 657265 jb 00875DCB
00875D66 205946 and [ecx+$46], bl
00875D69 49 dec ecx
00875D6A 643D27000000 cmp eax, $00000027
00875D70 FFFF DB $FF, $FF //
00875D72 FFFF DB $FF, $FF //
00875D74 0400 add al, +$00
00875D76 0000 add [eax], al
00875D78 59 pop ecx
00875D79 46 inc esi
00875D7A 49 dec ecx
00875D7B 640000 add fs:[eax], al
00875D7E 0000 add [eax], al
00875D80 55 push ebp
00875D81 8BEC mov ebp, esp
00875D83 51 push ecx
00875D84 B907000000 mov ecx, $00000007
00875D89 6A00 push $00
00875D8B 6A00 push $00
00875D8D 49 dec ecx
00875D8E 75F9 jnz 00875D89
00875D90 51 push ecx
00875D91 874DFC xchg [ebp-$04], ecx
00875D94 53 push ebx
00875D95 56 push esi
00875D96 8BF0 mov esi, eax
00875D98 33C0 xor eax, eax
00875D9A 55 push ebp
00875D9B 6833608700 push $00876033
***** TRY
|
00875DA0 64FF30 push dword ptr fs:[eax]
00875DA3 648920 mov fs:[eax], esp
* Reference to control Order_Sub : N.A.
|
00875DA6 8B8648030000 mov eax, [esi+$0348]
* Possible String Reference to: 'YFType'
|
00875DAC BA48608700 mov edx, $00876048
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00875DB1 E8FE0DC5FF call 004C6BB4
00875DB6 8D55F8 lea edx, [ebp-$08]
00875DB9 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00875DBB FF5160 call dword ptr [ecx+$60]
00875DBE 8B45F8 mov eax, [ebp-$08]
00875DC1 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00875DC4 E8234BB9FF call 0040A8EC
00875DC9 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00875DCC BA58608700 mov edx, $00876058
* Reference to: System.@LStrCmp;
|
00875DD1 E86AF9B8FF call 00405740
00875DD6 751D jnz 00875DF5
00875DD8 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00875DDA B964608700 mov ecx, $00876064
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00875DDF BA6C608700 mov edx, $0087606C
*)
end;
procedure TfrmCaiWuHuiLV._PROC_008760BD(Sender : TObject);
begin
(*
008760BD 50 push eax
008760BE 6461 popa
008760C0 7465 jz 00876127
008760C2 205946 and [ecx+$46], bl
008760C5 5F pop edi
008760C6 4D dec ebp
008760C7 6F outsd
008760C8 6E outsb
008760C9 65795F jns 0087612B
008760CC 43 inc ebx
008760CD 52 push edx
008760CE 2000 and [eax], al
008760D0 FFFF DB $FF, $FF //
008760D2 FFFF DB $FF, $FF //
008760D4 0E push cs
008760D5 0000 add [eax], al
008760D7 0020 add [eax], ah
008760D9 53 push ebx
008760DA 657420 jz 008760FD
008760DD 50 push eax
008760DE 5F pop edi
008760DF 43 inc ebx
008760E0 6F outsd
008760E1 6C insb
008760E2 6F outsd
008760E3 723D jb 00876122
008760E5 27 daa
008760E6 0000 add [eax], al
008760E8 FFFF DB $FF, $FF //
008760EA FFFF DB $FF, $FF //
008760EC 0100 add [eax], eax
008760EE 0000 add [eax], al
008760F0 27 daa
008760F1 0000 add [eax], al
008760F3 00FF add bh, bh
008760F5 FFFF DB $FF, $FF //
008760F7 FF09 dec dword ptr [ecx]
008760F9 0000 add [eax], al
008760FB 002C4564697465 add [$65746964+eax*2], ch
00876102 723D jb 00876141
00876104 27 daa
00876105 0000 add [eax], al
00876107 00FF add bh, bh
00876109 FFFF DB $FF, $FF //
0087610B FF1400 call dword ptr [eax+eax]
0087610E 0000 add [eax], al
00876110 2C45 sub al, $45
00876112 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0087611B 657464 jz 00876182
0087611E 61 popa
0087611F 7465 jz 00876186
00876121 2829 sub [ecx], ch
00876123 2000 and [eax], al
00876125 0000 add [eax], al
00876127 00FF add bh, bh
00876129 FFFF DB $FF, $FF //
0087612B FF0D00000020 dec dword ptr [$20000000]
00876131 7768 jnbe 0087619B
00876133 657265 jb 0087619B
00876136 205946 and [ecx+$46], bl
00876139 49 dec ecx
0087613A 643D27000000 cmp eax, $00000027
00876140 FFFF DB $FF, $FF //
00876142 FFFF DB $FF, $FF //
00876144 0400 add al, +$00
00876146 0000 add [eax], al
00876148 59 pop ecx
00876149 46 inc esi
0087614A 49 dec ecx
0087614B 640000 add fs:[eax], al
0087614E 0000 add [eax], al
00876150 55 push ebp
00876151 8BEC mov ebp, esp
00876153 6A00 push $00
00876155 56 push esi
00876156 57 push edi
00876157 8BF8 mov edi, eax
00876159 33C0 xor eax, eax
0087615B 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^Y]<5D>'
|
0087615C 68E2618700 push $008761E2
***** TRY
|
00876161 64FF30 push dword ptr fs:[eax]
00876164 648920 mov fs:[eax], esp
00876167 8BB748030000 mov esi, [edi+$0348]
0087616D 8BC6 mov eax, esi
|
0087616F E81C24C5FF call 004C8590
00876174 8D55FC lea edx, [ebp-$04]
*)
end;
procedure TfrmCaiWuHuiLV._PROC_0087638F(Sender : TObject);
begin
(*
0087638F 00CC add ah, cl
00876391 E1CA loope -$36
00876393 BE00000000 mov esi, $00000000
00876398 C8B7 enter , $B7
0087639A B6A8 mov dh, $A8
0087639C D2AAC9BEB3FD shr byte ptr [edx+$FDB3BEC9], cl
008763A2 C2F000 ret $00F0
*)
end;
procedure TfrmCaiWuHuiLV._PROC_0087659D(Sender : TObject);
begin
(*
0087659D 50 push eax
0087659E 6461 popa
008765A0 7465 jz 00876607
008765A2 205946 and [ecx+$46], bl
008765A5 5F pop edi
008765A6 4D dec ebp
008765A7 6F outsd
008765A8 6E outsb
008765A9 65795F jns 0087660B
008765AC 43 inc ebx
008765AD 52 push edx
008765AE 2000 and [eax], al
008765B0 FFFF DB $FF, $FF //
008765B2 FFFF DB $FF, $FF //
008765B4 0D00000020 or eax, $20000000
008765B9 53 push ebx
008765BA 657420 jz 008765DD
008765BD 4B dec ebx
008765BE 50 push eax
008765BF 54 push esp
008765C0 7970 jns 00876632
008765C2 653D27000000 cmp eax, $00000027
008765C8 FFFF DB $FF, $FF //
008765CA FFFF DB $FF, $FF //
008765CC 0100 add [eax], eax
008765CE 0000 add [eax], al
008765D0 27 daa
008765D1 0000 add [eax], al
008765D3 00FF add bh, bh
008765D5 FFFF DB $FF, $FF //
008765D7 FF0D00000020 dec dword ptr [$20000000]
008765DD 7768 jnbe 00876647
008765DF 657265 jb 00876647
008765E2 205946 and [ecx+$46], bl
008765E5 49 dec ecx
008765E6 643D27000000 cmp eax, $00000027
008765EC FFFF DB $FF, $FF //
008765EE FFFF DB $FF, $FF //
008765F0 0400 add al, +$00
008765F2 0000 add [eax], al
008765F4 59 pop ecx
008765F5 46 inc esi
008765F6 49 dec ecx
008765F7 640000 add fs:[eax], al
008765FA 0000 add [eax], al
|
008765FC E88FB5FFFF call 00871B90
00876601 C3 ret
00876602 8BC0 mov eax, eax
00876604 55 push ebp
00876605 8BEC mov ebp, esp
00876607 33C9 xor ecx, ecx
00876609 51 push ecx
0087660A 51 push ecx
0087660B 51 push ecx
0087660C 51 push ecx
0087660D 53 push ebx
0087660E 56 push esi
0087660F 8BD8 mov ebx, eax
00876611 33C0 xor eax, eax
00876613 55 push ebp
* Possible String Reference to: '<27>]<5D><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00876614 6892668700 push $00876692
***** TRY
|
00876619 64FF30 push dword ptr fs:[eax]
0087661C 648920 mov fs:[eax], esp
* Reference to control Order_Sub : N.A.
|
0087661F 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00876625 E89618C5FF call 004C7EC0
0087662A 84C0 test al, al
0087662C 754E jnz 0087667C
0087662E A0A0668700 mov al, byte ptr [$008766A0]
00876633 50 push eax
00876634 8D45F0 lea eax, [ebp-$10]
00876637 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00876639 E82627BAFF call 00418D64
0087663E 8D4DF0 lea ecx, [ebp-$10]
* Possible String Reference to: 'Ssel'
|
00876641 BAAC668700 mov edx, $008766AC
* Reference to control Order_Sub : N.A.
|
00876646 8B8348030000 mov eax, [ebx+$0348]
0087664C 8B30 mov esi, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
0087664E FF9644020000 call dword ptr [esi+$0244]
00876654 84C0 test al, al
00876656 751A jnz 00876672
00876658 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
0087665A B9B4668700 mov ecx, $008766B4
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
0087665F BABC668700 mov edx, $008766BC
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876C45(Sender : TObject);
begin
(*
00876C45 8BEC mov ebp, esp
00876C47 33C0 xor eax, eax
00876C49 55 push ebp
* Possible String Reference to: '<27><>޸<EFBFBD><DEB8><EFBFBD>]Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876C4A 68696C8700 push $00876C69
***** TRY
|
00876C4F 64FF30 push dword ptr fs:[eax]
00876C52 648920 mov fs:[eax], esp
00876C55 FF05BC5A8900 inc dword ptr [$00895ABC]
00876C5B 33C0 xor eax, eax
00876C5D 5A pop edx
00876C5E 59 pop ecx
00876C5F 59 pop ecx
00876C60 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876C63 68706C8700 push $00876C70
00876C68 C3 ret
* Reference to: System.@HandleFinally;
|
00876C69 E986DEB8FF jmp 00404AF4
00876C6E EBF8 jmp 00876C68
****** END
|
00876C70 5D pop ebp
00876C71 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876C74(Sender : TObject);
begin
(*
00876C74 832DBC5A890001 sub dword ptr [$00895ABC], +$01
00876C7B C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876C7C(Sender : TObject);
begin
(*
00876C7C 55 push ebp
00876C7D 8BEC mov ebp, esp
00876C7F 33C0 xor eax, eax
00876C81 55 push ebp
* Possible String Reference to: '<27>N޸<4E><DEB8><EFBFBD>]Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876C82 68A16C8700 push $00876CA1
***** TRY
|
00876C87 64FF30 push dword ptr fs:[eax]
00876C8A 648920 mov fs:[eax], esp
00876C8D FF05C05A8900 inc dword ptr [$00895AC0]
00876C93 33C0 xor eax, eax
00876C95 5A pop edx
00876C96 59 pop ecx
00876C97 59 pop ecx
00876C98 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876C9B 68A86C8700 push $00876CA8
00876CA0 C3 ret
* Reference to: System.@HandleFinally;
|
00876CA1 E94EDEB8FF jmp 00404AF4
00876CA6 EBF8 jmp 00876CA0
****** END
|
00876CA8 5D pop ebp
00876CA9 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876CAC(Sender : TObject);
begin
(*
00876CAC 832DC05A890001 sub dword ptr [$00895AC0], +$01
00876CB3 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876CB4(Sender : TObject);
begin
(*
00876CB4 55 push ebp
00876CB5 8BEC mov ebp, esp
00876CB7 33C0 xor eax, eax
00876CB9 55 push ebp
00876CBA 68D96C8700 push $00876CD9
***** TRY
|
00876CBF 64FF30 push dword ptr fs:[eax]
00876CC2 648920 mov fs:[eax], esp
00876CC5 FF05C45A8900 inc dword ptr [$00895AC4]
00876CCB 33C0 xor eax, eax
00876CCD 5A pop edx
00876CCE 59 pop ecx
00876CCF 59 pop ecx
00876CD0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876CD3 68E06C8700 push $00876CE0
00876CD8 C3 ret
* Reference to: System.@HandleFinally;
|
00876CD9 E916DEB8FF jmp 00404AF4
00876CDE EBF8 jmp 00876CD8
****** END
|
00876CE0 5D pop ebp
00876CE1 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876CE4(Sender : TObject);
begin
(*
00876CE4 832DC45A890001 sub dword ptr [$00895AC4], +$01
00876CEB C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876CEC(Sender : TObject);
begin
(*
00876CEC 55 push ebp
00876CED 8BEC mov ebp, esp
00876CEF 33C0 xor eax, eax
00876CF1 55 push ebp
* Possible String Reference to: '<27><>ݸ<EFBFBD><DDB8><EFBFBD>]Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876CF2 68116D8700 push $00876D11
***** TRY
|
00876CF7 64FF30 push dword ptr fs:[eax]
00876CFA 648920 mov fs:[eax], esp
00876CFD FF05C85A8900 inc dword ptr [$00895AC8]
00876D03 33C0 xor eax, eax
00876D05 5A pop edx
00876D06 59 pop ecx
00876D07 59 pop ecx
00876D08 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
00876D0B 68186D8700 push $00876D18
00876D10 C3 ret
* Reference to: System.@HandleFinally;
|
00876D11 E9DEDDB8FF jmp 00404AF4
00876D16 EBF8 jmp 00876D10
****** END
|
00876D18 5D pop ebp
00876D19 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876D1C(Sender : TObject);
begin
(*
00876D1C 832DC85A890001 sub dword ptr [$00895AC8], +$01
00876D23 C3 ret
*)
end;
procedure TfrmCaiWuHuiLV._PROC_00876D24(Sender : TObject);
begin
(*
00876D24 706D jo 00876D93
00876D26 8700 xchg [eax], eax
00876D28 0000 add [eax], al
00876D2A 0000 add [eax], al
00876D2C 0000 add [eax], al
00876D2E 0000 add [eax], al
00876D30 646E outsb
00876D32 8700 xchg [eax], eax
00876D34 1C77 sbb al, $77
00876D36 8700 xchg [eax], eax
00876D38 9E sahf
00876D39 6E outsb
00876D3A 8700 xchg [eax], eax
00876D3C 267287 jb 00876CC6
00876D3F 0000 add [eax], al
00876D41 0000 add [eax], al
00876D43 00B576870004 add [ebp+$4008776], dh
00876D49 0400 add al, +$00
00876D4B 0088F1490028 add [eax+$280049F1], cl
00876D51 D4 aam
00876D52 42 inc edx
00876D53 005C1F4A add [edi+ebx+$4A], bl
00876D57 0010 add [eax], dl
00876D59 214A00 and [edx+$00], ecx
00876D5C BC4540008C mov esp, $8C004045
00876D61 45 inc ebp
00876D62 4A dec edx
00876D63 00E4 add ah, ah
00876D65 42 inc edx
00876D66 40 inc eax
00876D67 0000 add [eax], al
00876D69 43 inc ebx
00876D6A 40 inc eax
00876D6B 007821 add [eax+$21], bh
00876D6E 4A dec edx
00876D6F 001CFB add [ebx+edi*8], bl
00876D72 48 dec eax
00876D73 00F8 add al, bh
00876D75 264A dec edx
00876D77 00B83C420038 add [eax+$3800423C], bh
00876D7D 234A00 and ecx, [edx+$00]
00876D80 7423 jz 00876DA5
00876D82 4A dec edx
00876D83 0080244A00D8 add [eax+$D8004A24], al
00876D89 83480050 or dword ptr [eax+$00], +$50
00876D8D D4 aam
00876D8E 42 inc edx
00876D8F 0008 add [eax], cl
00876D91 2D4A007CD0 sub eax, $D07C004A
00876D96 42 inc edx
00876D97 00F4 add ah, dh
00876D99 6B4A00D0 imul ecx, [edx+$00], $D0
00876D9D 1D4A0030F6 sbb eax, $F630004A
00876DA2 48 dec eax
00876DA3 004CFB48 add [ebx+edi*8+$48], cl
00876DA7 0098FA48000C add [eax+$C0048FA], bl
00876DAD 7948 jns 00876DF7
00876DAF 00ACF04800E829 add [eax+esi*8+$29E80048], ch
00876DB6 4A dec edx
00876DB7 00E4 add ah, ah
00876DB9 ED in eax, dx
00876DBA 48 dec eax
00876DBB 00547848 add [eax+edi*2+$48], dl
00876DBF 005878 add [eax+$78], bl
00876DC2 48 dec eax
00876DC3 00DC add ah, bl
00876DC5 2A4A00 sub cl, byte ptr [edx+$00]
00876DC8 3CA9 cmp al, $A9
00876DCA 48 dec eax
00876DCB 00C0 add al, al
00876DCD 834800D0 or dword ptr [eax+$00], -$30
00876DD1 7948 jns 00876E1B
00876DD3 004C8548 add [ebp+eax*4+$48], cl
00876DD7 00D0 add al, dl
00876DD9 2C4A sub al, $4A
00876DDB 009C2B4A008486 add [ebx+ebp+$8684004A], bl
00876DE2 48 dec eax
00876DE3 00482D add [eax+$2D], cl
00876DE6 4A dec edx
00876DE7 00C0 add al, al
00876DE9 A9480038EE test eax, $EE380048
00876DEE 48 dec eax
00876DEF 00F4 add ah, dh
00876DF1 EE out dx, al
00876DF2 48 dec eax
00876DF3 00F0 add al, dh
00876DF5 E94800D8EE jmp EF5F6E42
00876DFA 48 dec eax
00876DFB 00D8 add al, bl
00876DFD 1B4A00 sbb ecx, [edx+$00]
00876E00 EC in al, dx
00876E01 334A00 xor ecx, [edx+$00]
00876E04 20C4 and ah, al
00876E06 48 dec eax
00876E07 00B0404A0010 add [eax+$10004A40], dh
00876E0D 44 inc esp
00876E0E 4A dec edx
00876E0F 00CC add ah, cl
00876E11 42 inc edx
00876E12 4A dec edx
00876E13 00B8C44800BC add [eax+$BC0048C4], bh
00876E19 C44800 les ecx, [eax+$00]
00876E1C 48 dec eax
00876E1D 45 inc ebp
00876E1E 4A dec edx
00876E1F 001CC3 add [ebx+eax*8], bl
00876E22 48 dec eax
00876E23 0018 add [eax], bl
00876E25 F0 lock
00876E26 48 dec eax
00876E27 00444C4A add [esp+ecx*2+$4A], al
00876E2B 000C02 add [edx+eax], cl
00876E2E 49 dec ecx
00876E2F 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
00876E36 4A dec edx
00876E37 008C154A003C18 add [ebp+edx+$183C004A], cl
00876E3E 4A dec edx
00876E3F 0038 add [eax], bh
00876E41 52 push edx
00876E42 4A dec edx
00876E43 005C224A add [edx+$4A], bl
00876E47 00D8 add al, bl
00876E49 224A00 and cl, byte ptr [edx+$00]
00876E4C 7C68 jl 00876EB6
00876E4E 4A dec edx
00876E4F 00941F4A003C60 add [edi+ebx+$603C004A], dl
00876E56 4A dec edx
00876E57 001447 add [edi+eax*2], dl
00876E5A 4A dec edx
00876E5B 0034654A00CC2C add [$2CCC004A], dh
00876E62 4A dec edx
00876E63 000E add [esi], cl
00876E65 0000 add [eax], al
00876E67 0000 add [eax], al
00876E69 0006 add [esi], al
00876E6B 0000 add [eax], al
00876E6D 0020 add [eax], ah
00876E6F 114000 adc [eax+$00], eax
00876E72 EC in al, dx
00876E73 0300 add eax, [eax]
00876E75 0020 add [eax], ah
00876E77 114000 adc [eax+$00], eax
00876E7A F0 lock
00876E7B 0300 add eax, [eax]
00876E7D 0020 add [eax], ah
00876E7F 114000 adc [eax+$00], eax
00876E82 F4 hlt
00876E83 0300 add eax, [eax]
00876E85 0020 add [eax], ah
00876E87 114000 adc [eax+$00], eax
00876E8A F8 clc
00876E8B 0300 add eax, [eax]
00876E8D 0020 add [eax], ah
00876E8F 114000 adc [eax+$00], eax
00876E92 FC cld
00876E93 0300 add eax, [eax]
00876E95 0020 add [eax], ah
00876E97 114000 adc [eax+$00], eax
00876E9A 000400 add [eax+eax], al
00876E9D 003C00 add [eax+eax], bh
00876EA0 C57687 lds esi, [esi-$79]
00876EA3 00F8 add al, bh
00876EA5 0200 add al, byte ptr [eax]
00876EA7 0000 add [eax], al
00876EA9 0008 add [eax], cl
00876EAB 54 push esp
00876EAC 6F outsd
00876EAD 6F outsd
00876EAE 6C insb
00876EAF 42 inc edx
00876EB0 61 popa
00876EB1 7231 jb 00876EE4
00876EB3 FC cld
00876EB4 0200 add al, byte ptr [eax]
00876EB6 0001 add [ecx], al
00876EB8 0009 add [ecx], cl
00876EBA 54 push esp
00876EBB 42 inc edx
00876EBC 52 push edx
00876EBD 61 popa
00876EBE 667265 jb 00876F26
00876EC1 7368 jnb 00876F2B
00876EC3 0003 add [ebx], al
00876EC5 0000 add [eax], al
00876EC7 0100 add [eax], eax
00876EC9 0554424465 add eax, +$65444254
00876ECE 6C insb
00876ECF 0403 add al, +$03
00876ED1 0000 add [eax], al
00876ED3 0100 add [eax], eax
00876ED5 07 pop es
00876ED6 54 push esp
00876ED7 42 inc edx
00876ED8 43 inc ebx
00876ED9 6C insb
00876EDA 6F outsd
00876EDB 7365 jnb 00876F42
00876EDD 0803 or [ebx], al
00876EDF 0000 add [eax], al
00876EE1 0200 add al, byte ptr [eax]
00876EE3 0C41 or al, $41
00876EE5 44 inc esp
00876EE6 4F dec edi
00876EE7 51 push ecx
00876EE8 7565 jnz 00876F4F
00876EEA 7279 jb 00876F65
00876EEC 54 push esp
00876EED 656D insd
00876EEF 700C jo 00876EFD
00876EF1 0300 add eax, [eax]
00876EF3 0002 add [edx], al
00876EF5 000B add [ebx], cl
00876EF7 41 inc ecx
00876EF8 44 inc esp
00876EF9 4F dec edi
00876EFA 51 push ecx
00876EFB 7565 jnz 00876F62
00876EFD 7279 jb 00876F78
00876EFF 43 inc ebx
00876F00 6D insd
00876F01 641003 adc fs:[ebx], al
00876F04 0000 add [eax], al
00876F06 0300 add eax, [eax]
00876F08 06 push es
00876F09 50 push eax
00876F0A 61 popa
00876F0B 6E outsb
00876F0C 656C insb
00876F0E 311403 xor [ebx+eax], edx
00876F11 0000 add [eax], al
00876F13 0100 add [eax], eax
00876F15 0B546F6F or edx, [edi+ebp*2+$6F]
00876F19 6C insb
00876F1A 42 inc edx
00876F1B 7574 jnz 00876F91
00876F1D 746F jz 00876F8E
00876F1F 6E outsb
00876F20 3218 xor bl, byte ptr [eax]
00876F22 0300 add eax, [eax]
00876F24 000400 add [eax+eax], al
00876F27 06 push es
00876F28 4C dec esp
00876F29 61 popa
00876F2A 62656C bound esp, qword ptr [ebp+$6C]
00876F2D 311C03 xor [ebx+eax], ebx
00876F30 0000 add [eax], al
00876F32 0500065946 add eax, +$46590600
00876F37 4E dec esi
00876F38 61 popa
00876F39 6D insd
00876F3A 652003 and gs:[ebx], al
00876F3D 0000 add [eax], al
00876F3F 0200 add al, byte ptr [eax]
00876F41 0C41 or al, $41
00876F43 44 inc esp
00876F44 4F dec edi
00876F45 51 push ecx
00876F46 7565 jnz 00876FAD
00876F48 7279 jb 00876FC3
00876F4A 4D dec ebp
00876F4B 61 popa
00876F4C 696E2403000001 imul ebp, [esi+$24], $01000003
00876F53 000B add [ebx], cl
00876F55 54 push esp
00876F56 6F outsd
00876F57 6F outsd
00876F58 6C insb
00876F59 42 inc edx
00876F5A 7574 jnz 00876FD0
00876F5C 746F jz 00876FCD
00876F5E 6E outsb
00876F5F 3128 xor [eax], ebp
00876F61 0300 add eax, [eax]
00876F63 0006 add [esi], al
00876F65 0003 add [ebx], al
00876F67 52 push edx
00876F68 4D dec ebp
00876F69 312C03 xor [ebx+eax], ebp
00876F6C 0000 add [eax], al
00876F6E 07 pop es
00876F6F 0009 add [ecx], cl
00876F71 52 push edx
00876F72 4D dec ebp
00876F73 44 inc esp
00876F74 42 inc edx
00876F75 5F pop edi
00876F76 4D dec ebp
00876F77 61 popa
00876F78 696E3003000008 imul ebp, [esi+$30], $08000003
00876F7F 0007 add [edi], al
00876F81 637847 arpl [eax+$47], di
00876F84 7269 jb 00876FEF
00876F86 64323403 xor dh, byte ptr fs:[ebx+eax]
00876F8A 0000 add [eax], al
00876F8C 0900 or [eax], eax
00876F8E 03547632 add edx, [esi+esi*2+$32]
00876F92 3803 cmp [ebx], al
00876F94 0000 add [eax], al
00876F96 0A00 or al, byte ptr [eax]
00876F98 0F637847 packusdw MM7, [eax+$47]
00876F9C 7269 jb 00877007
00876F9E 6444 inc esp
00876FA0 42 inc edx
00876FA1 43 inc ebx
00876FA2 6F outsd
00876FA3 6C insb
00876FA4 756D jnz 00877013
00876FA6 6E outsb
00876FA7 313C03 xor [ebx+eax], edi
00876FAA 0000 add [eax], al
00876FAC 0A00 or al, byte ptr [eax]
00876FAE 0F637847 packusdw MM7, [eax+$47]
00876FB2 7269 jb 0087701D
00876FB4 6444 inc esp
00876FB6 42 inc edx
00876FB7 43 inc ebx
00876FB8 6F outsd
00876FB9 6C insb
00876FBA 756D jnz 00877029
00876FBC 6E outsb
00876FBD 334003 xor eax, [eax+$03]
00876FC0 0000 add [eax], al
00876FC2 0B00 or eax, [eax]
00876FC4 0C63 or al, $63
00876FC6 7847 js 0087700F
00876FC8 7269 jb 00877033
00876FCA 644C dec esp
00876FCC 657665 jbe 00877034
00876FCF 6C insb
00876FD0 31440300 xor [ebx+eax+$00], eax
00876FD4 000400 add [eax+eax], al
00876FD7 06 push es
00876FD8 4C dec esp
00876FD9 61 popa
00876FDA 62656C bound esp, qword ptr [ebp+$6C]
00876FDD 324803 xor cl, byte ptr [eax+$03]
00876FE0 0000 add [eax], al
00876FE2 0400 add al, +$00
00876FE4 06 push es
00876FE5 4C dec esp
00876FE6 61 popa
00876FE7 62656C bound esp, qword ptr [ebp+$6C]
00876FEA 364C dec esp
00876FEC 0300 add eax, [eax]
00876FEE 000C00 add [eax+eax], cl
00876FF1 07 pop es
00876FF2 626567 bound esp, qword ptr [ebp+$67]
00876FF5 6461 popa
00876FF7 7465 jz 0087705E
00876FF9 50 push eax
00876FFA 0300 add eax, [eax]
00876FFC 000C00 add [eax+eax], cl
00876FFF 07 pop es
00877000 45 inc ebp
00877001 6E outsb
00877002 646461 popa
00877005 7465 jz 0087706C
00877007 54 push esp
00877008 0300 add eax, [eax]
0087700A 000D00106378 add [$78631000], cl
00877010 47 inc edi
00877011 7269 jb 0087707C
00877013 6450 push eax
00877015 6F outsd
00877016 7075 jo 0087708D
00877018 704D jo 00877067
0087701A 656E outsb
0087701C 7532 jnz 00877050
0087701E 58 pop eax
0087701F 0300 add eax, [eax]
00877021 000E add [esi], cl
00877023 000544535F48 add [$485F5344], al
00877029 5A pop edx
0087702A 5C pop esp
0087702B 0300 add eax, [eax]
0087702D 000F add [edi], cl
0087702F 0006 add [esi], al
00877031 43 inc ebx
00877032 44 inc esp
00877033 53 push ebx
00877034 5F pop edi
00877035 48 dec eax
00877036 5A pop edx
00877037 60 pusha
00877038 0300 add eax, [eax]
0087703A 0001 add [ecx], al
0087703C 000B add [ebx], cl
0087703E 54 push esp
0087703F 6F outsd
00877040 6F outsd
00877041 6C insb
00877042 42 inc edx
00877043 7574 jnz 008770B9
00877045 746F jz 008770B6
00877047 6E outsb
00877048 33640300 xor esp, [ebx+eax+$00]
0087704C 000A add [edx], cl
0087704E 0003 add [ebx], al
00877050 56 push esi
00877051 42 inc edx
00877052 5A pop edx
00877053 680300000A push $0A000003
00877058 0006 add [esi], al
0087705A 56 push esi
0087705B 4D dec ebp
0087705C 6F outsd
0087705D 6E outsb
0087705E 65796C jns 008770CD
00877061 0300 add eax, [eax]
00877063 000A add [edx], cl
00877065 0009 add [ecx], cl
00877067 7632 jbe 0087709B
00877069 43 inc ebx
0087706A 6F outsd
0087706B 6C insb
0087706C 756D jnz 008770DB
0087706E 6E outsb
0087706F 367003 jo 00877075
00877072 0000 add [eax], al
00877074 0A00 or al, byte ptr [eax]
00877076 08564F or [esi+$4F], dl
00877079 7264 jb 008770DF
0087707B 65724E jb 008770CC
0087707E 6F outsd
0087707F 7403 jz 00877084
00877081 0000 add [eax], al
00877083 0A00 or al, byte ptr [eax]
00877085 097632 or [esi+$32], esi
00877088 43 inc ebx
00877089 6F outsd
0087708A 6C insb
0087708B 756D jnz 008770FA
0087708D 6E outsb
0087708E 327803 xor bh, byte ptr [eax+$03]
00877091 0000 add [eax], al
00877093 0400 add al, +$00
00877095 06 push es
00877096 4C dec esp
00877097 61 popa
00877098 62656C bound esp, qword ptr [ebp+$6C]
0087709B 37 aaa
0087709C 7C03 jl 008770A1
0087709E 0000 add [eax], al
008770A0 0500054564 add eax, +$64450500
008770A5 6974318003000010 imul esi, [ecx+esi-$80], $10000003
008770AD 0007 add [edi], al
008770AF 42 inc edx
008770B0 7574 jnz 00877126
008770B2 746F jz 00877123
008770B4 6E outsb
008770B5 31840300001100 xor [ebx+eax+$110000], eax
008770BC 094368 or [ebx+$68], eax
008770BF 65636B42 arpl gs:[ebx+$42], bp
008770C3 6F outsd
008770C4 7831 js 008770F7
008770C6 8803 mov [ebx], al
008770C8 0000 add [eax], al
008770CA 0500074F72 add eax, +$724F0700
008770CF 6465724E jb 00877121
008770D3 6F outsd
008770D4 8C03 mov word ptr [ebx], es
008770D6 0000 add [eax], al
008770D8 0400 add al, +$00
008770DA 06 push es
008770DB 4C dec esp
008770DC 61 popa
008770DD 62656C bound esp, qword ptr [ebp+$6C]
008770E0 389003000001 cmp [eax+$1000003], dl
008770E6 0005545A4453 add [$53445A54], al
008770EC 43 inc ebx
008770ED 94 xchg eax, esp
008770EE 0300 add eax, [eax]
008770F0 000A add [edx], cl
008770F2 0007 add [edi], al
008770F4 7632 jbe 00877128
008770F6 43 inc ebx
008770F7 6F outsd
008770F8 6E outsb
008770F9 4E dec esi
008770FA 6F outsd
008770FB 98 cwde
008770FC 0300 add eax, [eax]
008770FE 000400 add [eax+eax], al
00877101 07 pop es
00877102 4C dec esp
00877103 61 popa
00877104 62656C bound esp, qword ptr [ebp+$6C]
00877107 3131 xor [ecx], esi
00877109 9C pushf
0087710A 0300 add eax, [eax]
0087710C 000400 add [eax+eax], al
0087710F 07 pop es
00877110 4C dec esp
00877111 61 popa
00877112 62656C bound esp, qword ptr [ebp+$6C]
00877115 3133 xor [ebx], esi
00877117 A003000004 mov al, byte ptr [$04000003]
0087711C 0006 add [esi], al
0087711E 4C dec esp
0087711F 61 popa
00877120 62656C bound esp, qword ptr [ebp+$6C]
00877123 34A4 xor al, $A4
00877125 0300 add eax, [eax]
00877127 00050005436F add [$6F430500], al
0087712D 6E outsb
0087712E 4E dec esi
0087712F 6F outsd
00877130 A803 test al, $03
00877132 0000 add [eax], al
*)
end;
end.
Reference in New Issue View Git Blame Copy Permalink