11111 lines
410 KiB
ObjectPascal
11111 lines
410 KiB
ObjectPascal
unit U_FKCR_SH;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Classes, Graphics,
|
||
Controls, Forms, Dialogs, StdCtrls
|
||
type
|
||
TfrmFKCR_SH=class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBDel: TToolButton;
|
||
TBClose: TToolButton;
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
Panel1: TPanel;
|
||
ToolButton2: TToolButton;
|
||
Label1: TLabel;
|
||
YFName: TEdit;
|
||
ADOQueryMain: TADOQuery;
|
||
ToolButton1: TToolButton;
|
||
RM1: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
Label3: TLabel;
|
||
FactoryName: TEdit;
|
||
Label2: TLabel;
|
||
begdate: TDateTimePicker;
|
||
Enddate: TDateTimePicker;
|
||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||
DS_HZ: TDataSource;
|
||
CDS_HZ: TClientDataSet;
|
||
ToolButton3: TToolButton;
|
||
Label4: TLabel;
|
||
ComTaitou: TEdit;
|
||
cxTabControl1: TcxTabControl;
|
||
Tchk: TToolButton;
|
||
TNochk: TToolButton;
|
||
Label5: TLabel;
|
||
conNo: TEdit;
|
||
Nochk: TToolButton;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
ChkNote: TEdit;
|
||
Label17: TLabel;
|
||
CheckBox1: TCheckBox;
|
||
Label10: TLabel;
|
||
Label12: TLabel;
|
||
Label7: TLabel;
|
||
FKType: TEdit;
|
||
Label6: TLabel;
|
||
Note: TEdit;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
v2Ssel: TcxGridDBColumn;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
VBZ: TcxGridDBColumn;
|
||
VYB: TcxGridDBColumn;
|
||
VHL: TcxGridDBColumn;
|
||
v2FXMoney: TcxGridDBColumn;
|
||
v2SXMoney: TcxGridDBColumn;
|
||
v2BankName: TcxGridDBColumn;
|
||
v2BankNo: TcxGridDBColumn;
|
||
VBB: TcxGridDBColumn;
|
||
v2ComTaiTou: TcxGridDBColumn;
|
||
v2Chkstatus: TcxGridDBColumn;
|
||
v2FKType: TcxGridDBColumn;
|
||
v2chknote: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
v2Huilv: TcxGridDBColumn;
|
||
v2KPStatus: TcxGridDBColumn;
|
||
v2COrderNo: TcxGridDBColumn;
|
||
Label9: TLabel;
|
||
OrderNO: TEdit;
|
||
procedure FormDestroy(Sender : TObject);
|
||
procedure FormClose(Sender : TObject);
|
||
procedure TBCloseClick(Sender : TObject);
|
||
procedure TBDelClick(Sender : TObject);
|
||
procedure FormShow(Sender : TObject);
|
||
procedure TBRafreshClick(Sender : TObject);
|
||
procedure ToolButton2Click(Sender : TObject);
|
||
procedure FactoryNameChange(Sender : TObject);
|
||
procedure Button2Click(Sender : TObject);
|
||
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
|
||
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
|
||
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
|
||
procedure ToolButton3Click(Sender : TObject);
|
||
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
|
||
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
|
||
procedure v2Column3PropertiesButtonClick(Sender : TObject);
|
||
procedure ToolButton1Click(Sender : TObject);
|
||
procedure v2Column4PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2Column1PropertiesButtonClick(Sender : TObject);
|
||
procedure VBBPropertiesEditValueChanged(Sender : TObject);
|
||
procedure ComTaitouChange(Sender : TObject);
|
||
procedure v2Column1PropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
procedure v2fstr1PropertiesEditValueChanged(Sender : TObject);
|
||
procedure TchkClick(Sender : TObject);
|
||
procedure TNochkClick(Sender : TObject);
|
||
procedure cxTabControl1Change(Sender : TObject);
|
||
procedure NochkClick(Sender : TObject);
|
||
procedure N1Click(Sender : TObject);
|
||
procedure N2Click(Sender : TObject);
|
||
procedure CheckBox1Click(Sender : TObject);
|
||
procedure v2SselPropertiesChange(Sender : TObject);
|
||
procedure _PROC_00834889(Sender : TObject);
|
||
procedure _PROC_008352A5(Sender : TObject);
|
||
procedure _PROC_00835B25(Sender : TObject);
|
||
procedure _PROC_00835EF5(Sender : TObject);
|
||
procedure _PROC_008366D1(Sender : TObject);
|
||
procedure _PROC_00836A0D(Sender : TObject);
|
||
procedure _PROC_00837129(Sender : TObject);
|
||
procedure _PROC_00837446(Sender : TObject);
|
||
procedure _PROC_0083747C(Sender : TObject);
|
||
procedure _PROC_00837489(Sender : TObject);
|
||
procedure _PROC_008377CD(Sender : TObject);
|
||
procedure _PROC_00837DD9(Sender : TObject);
|
||
procedure _PROC_00838299(Sender : TObject);
|
||
procedure _PROC_00838685(Sender : TObject);
|
||
procedure _PROC_00838971(Sender : TObject);
|
||
procedure _PROC_00838BA1(Sender : TObject);
|
||
procedure _PROC_00838D15(Sender : TObject);
|
||
procedure _PROC_008398A9(Sender : TObject);
|
||
procedure _PROC_008398D8(Sender : TObject);
|
||
procedure _PROC_008398E0(Sender : TObject);
|
||
procedure _PROC_00839910(Sender : TObject);
|
||
procedure _PROC_00839918(Sender : TObject);
|
||
procedure _PROC_00839948(Sender : TObject);
|
||
procedure _PROC_00839950(Sender : TObject);
|
||
procedure _PROC_00839980(Sender : TObject);
|
||
procedure _PROC_00839988(Sender : TObject);
|
||
procedure _PROC_008399B8(Sender : TObject);
|
||
procedure _PROC_008399C0(Sender : TObject);
|
||
procedure _PROC_008399F0(Sender : TObject);
|
||
procedure _PROC_008399F8(Sender : TObject);
|
||
procedure _PROC_00839A28(Sender : TObject);
|
||
procedure _PROC_00839A30(Sender : TObject);
|
||
procedure _PROC_00839A60(Sender : TObject);
|
||
procedure _PROC_00839A68(Sender : TObject);
|
||
procedure _PROC_00839A98(Sender : TObject);
|
||
procedure _PROC_00839AA0(Sender : TObject);
|
||
procedure _PROC_00839AD0(Sender : TObject);
|
||
procedure _PROC_00839AD8(Sender : TObject);
|
||
procedure _PROC_00839B08(Sender : TObject);
|
||
procedure _PROC_00839B10(Sender : TObject);
|
||
procedure _PROC_00839B40(Sender : TObject);
|
||
procedure _PROC_00839B48(Sender : TObject);
|
||
procedure _PROC_00839B78(Sender : TObject);
|
||
procedure _PROC_00839B80(Sender : TObject);
|
||
procedure _PROC_00839BB0(Sender : TObject);
|
||
procedure _PROC_00839BB8(Sender : TObject);
|
||
procedure _PROC_00839BE8(Sender : TObject);
|
||
procedure _PROC_00839BF0(Sender : TObject);
|
||
procedure _PROC_00839C20(Sender : TObject);
|
||
procedure _PROC_00839C28(Sender : TObject);
|
||
procedure _PROC_00839C58(Sender : TObject);
|
||
procedure _PROC_00839C60(Sender : TObject);
|
||
procedure _PROC_00839C90(Sender : TObject);
|
||
procedure _PROC_00839C98(Sender : TObject);
|
||
procedure _PROC_00839CC8(Sender : TObject);
|
||
procedure _PROC_00839CD0(Sender : TObject);
|
||
procedure _PROC_00839D00(Sender : TObject);
|
||
procedure _PROC_00839D08(Sender : TObject);
|
||
procedure _PROC_00839D38(Sender : TObject);
|
||
procedure _PROC_00839D40(Sender : TObject);
|
||
procedure _PROC_00839D70(Sender : TObject);
|
||
procedure _PROC_00839D78(Sender : TObject);
|
||
procedure _PROC_00839D87(Sender : TObject);
|
||
procedure _PROC_00839D9B(Sender : TObject);
|
||
procedure _PROC_00839DDE(Sender : TObject);
|
||
private
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end ;
|
||
|
||
var
|
||
frmFKCR_SH: TfrmFKCR_SH;
|
||
|
||
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
procedure TfrmFKCR_SH.FormDestroy(Sender : TObject);
|
||
begin
|
||
(*
|
||
00834CA4 33C0 xor eax, eax
|
||
|
||
* Reference to GlobalVar_008959D4
|
||
|
|
||
00834CA6 A3D4598900 mov dword ptr [$008959D4], eax
|
||
00834CAB C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.FormClose(Sender : TObject);
|
||
begin
|
||
(*
|
||
00834CAC C60102 mov byte ptr [ecx], $02
|
||
00834CAF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.TBCloseClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00834CB0 53 push ebx
|
||
00834CB1 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
00834CB3 B9DC4C8300 mov ecx, $00834CDC
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
00834CB8 8B93A8030000 mov edx, [ebx+$03A8]
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'
|
||
|
|
||
00834CBE B8F04C8300 mov eax, $00834CF0
|
||
|
||
|
|
||
00834CC3 E8D82EF8FF call 007B7BA0
|
||
00834CC8 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
||
|
|
||
00834CCA E8C912C7FF call 004A5F98
|
||
00834CCF 5B pop ebx
|
||
00834CD0 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.TBDelClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00834CFC 55 push ebp
|
||
00834CFD 8BEC mov ebp, esp
|
||
00834CFF 33C9 xor ecx, ecx
|
||
00834D01 51 push ecx
|
||
00834D02 51 push ecx
|
||
00834D03 51 push ecx
|
||
00834D04 51 push ecx
|
||
00834D05 51 push ecx
|
||
00834D06 51 push ecx
|
||
00834D07 51 push ecx
|
||
00834D08 51 push ecx
|
||
00834D09 53 push ebx
|
||
00834D0A 56 push esi
|
||
00834D0B 57 push edi
|
||
00834D0C 8945FC mov [ebp-$04], eax
|
||
00834D0F 33C0 xor eax, eax
|
||
00834D11 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00834D12 68034F8300 push $00834F03
|
||
|
||
***** TRY
|
||
|
|
||
00834D17 64FF30 push dword ptr fs:[eax]
|
||
00834D1A 648920 mov fs:[eax], esp
|
||
00834D1D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00834D20 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00834D26 E89531C9FF call 004C7EC0
|
||
00834D2B 84C0 test al, al
|
||
00834D2D 0F85AD010000 jnz 00834EE0
|
||
00834D33 A0144F8300 mov al, byte ptr [$00834F14]
|
||
00834D38 50 push eax
|
||
00834D39 8D45EC lea eax, [ebp-$14]
|
||
00834D3C B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00834D3E E82140BEFF call 00418D64
|
||
00834D43 8D4DEC lea ecx, [ebp-$14]
|
||
00834D46 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00834D49 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00834D4F BA204F8300 mov edx, $00834F20
|
||
00834D54 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
00834D56 FF9344020000 call dword ptr [ebx+$0244]
|
||
00834D5C 84C0 test al, al
|
||
00834D5E 751D jnz 00834D7D
|
||
00834D60 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00834D62 B9284F8300 mov ecx, $00834F28
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
00834D67 BA304F8300 mov edx, $00834F30
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.FormShow(Sender : TObject);
|
||
begin
|
||
(*
|
||
00834FB0 53 push ebx
|
||
00834FB1 8BD8 mov ebx, eax
|
||
00834FB3 33C0 xor eax, eax
|
||
|
||
* Reference to field TfrmFKCR_SH.OFFS_0408
|
||
|
|
||
00834FB5 898308040000 mov [ebx+$0408], eax
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
00834FBB B938508300 mov ecx, $00835038
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
00834FC0 8B93A8030000 mov edx, [ebx+$03A8]
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>'
|
||
|
|
||
00834FC6 B84C508300 mov eax, $0083504C
|
||
|
||
|
|
||
00834FCB E8D429F8FF call 007B79A4
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
00834FD0 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
00834FD6 E8ADF9F7FF call 007B4988
|
||
00834FDB 83C4F8 add esp, -$08
|
||
00834FDE DD1C24 fstp qword ptr [esp]
|
||
00834FE1 9B wait
|
||
|
||
* Reference to control TfrmFKCR_SH.Enddate : TDateTimePicker
|
||
|
|
||
00834FE2 8B8340030000 mov eax, [ebx+$0340]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
00834FE8 E83FD2C3FF call 0047222C
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
00834FED 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
|
|
||
00834FF3 E890F9F7FF call 007B4988
|
||
00834FF8 D82558508300 fsub dword ptr [$00835058]
|
||
00834FFE 83C4F8 add esp, -$08
|
||
00835001 DD1C24 fstp qword ptr [esp]
|
||
00835004 9B wait
|
||
|
||
* Reference to control TfrmFKCR_SH.begdate : TDateTimePicker
|
||
|
|
||
00835005 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
||
|
|
||
0083500B E81CD2C3FF call 0047222C
|
||
00835010 B201 mov dl, $01
|
||
|
||
* Reference to control TfrmFKCR_SH.VBZ : TcxGridDBColumn
|
||
|
|
||
00835012 8B83BC030000 mov eax, [ebx+$03BC]
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
||
|
|
||
00835018 E8A74BDFFF call 00629BC4
|
||
0083501D 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0083501F E84CF7FFFF call 00834770
|
||
00835024 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00835026 E85DF8FFFF call 00834888
|
||
0083502B 5B pop ebx
|
||
0083502C C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.TBRafreshClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083505C 53 push ebx
|
||
0083505D 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmFKCR_SH.ToolBar1 : TToolBar
|
||
|
|
||
0083505F 8B83F8020000 mov eax, [ebx+$02F8]
|
||
00835065 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TToolBar.SetFocus()
|
||
|
|
||
00835067 FF92C4000000 call dword ptr [edx+$00C4]
|
||
0083506D 8BC3 mov eax, ebx
|
||
|
||
|
|
||
0083506F E814F8FFFF call 00834888
|
||
00835074 5B pop ebx
|
||
00835075 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.ToolButton2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835078 55 push ebp
|
||
00835079 8BEC mov ebp, esp
|
||
0083507B 6A00 push $00
|
||
0083507D 53 push ebx
|
||
0083507E 8BD8 mov ebx, eax
|
||
00835080 33C0 xor eax, eax
|
||
00835082 55 push ebp
|
||
00835083 68FD508300 push $008350FD
|
||
|
||
***** TRY
|
||
|
|
||
00835088 64FF30 push dword ptr fs:[eax]
|
||
0083508B 648920 mov fs:[eax], esp
|
||
0083508E BA10518300 mov edx, $00835110
|
||
|
||
* Reference to control TfrmFKCR_SH.Label12 : TLabel
|
||
|
|
||
00835093 8B8390030000 mov eax, [ebx+$0390]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
00835099 E88235C5FF call 00488620
|
||
0083509E 8D45FC lea eax, [ebp-$04]
|
||
008350A1 50 push eax
|
||
008350A2 B902000000 mov ecx, $00000002
|
||
008350A7 BA01000000 mov edx, $00000001
|
||
|
||
* Reference to control TfrmFKCR_SH.Panel1 : TPanel
|
||
|
|
||
008350AC 8B8310030000 mov eax, [ebx+$0310]
|
||
|
||
|
|
||
008350B2 E8F90FF8FF call 007B60B0
|
||
008350B7 8B55FC mov edx, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
008350BA 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
008350C0 E8031CF8FF call 007B6CC8
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008350C5 8B934C030000 mov edx, [ebx+$034C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
008350CB 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
008350D1 E8BA1DF8FF call 007B6E90
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008350D6 8B934C030000 mov edx, [ebx+$034C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
008350DC 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
|
|
||
008350E2 E8311FF8FF call 007B7018
|
||
008350E7 33C0 xor eax, eax
|
||
008350E9 5A pop edx
|
||
008350EA 59 pop ecx
|
||
008350EB 59 pop ecx
|
||
008350EC 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
008350EF 6804518300 push $00835104
|
||
008350F4 8D45FC lea eax, [ebp-$04]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
008350F7 E82802BDFF call 00405324
|
||
008350FC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008350FD E9F2F9BCFF jmp 00404AF4
|
||
00835102 EBF0 jmp 008350F4
|
||
|
||
****** END
|
||
|
|
||
00835104 5B pop ebx
|
||
00835105 59 pop ecx
|
||
00835106 5D pop ebp
|
||
00835107 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.FactoryNameChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835114 56 push esi
|
||
|
||
* Reference to control TfrmFKCR_SH.ToolButton2 : TToolButton
|
||
|
|
||
00835115 8B8014030000 mov eax, [eax+$0314]
|
||
0083511B 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0083511F E830F4BCFF call 00404554
|
||
00835124 5E pop esi
|
||
00835125 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.Button2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835128 55 push ebp
|
||
00835129 8BEC mov ebp, esp
|
||
0083512B 33C9 xor ecx, ecx
|
||
0083512D 51 push ecx
|
||
0083512E 51 push ecx
|
||
0083512F 51 push ecx
|
||
00835130 51 push ecx
|
||
00835131 51 push ecx
|
||
00835132 53 push ebx
|
||
00835133 56 push esi
|
||
00835134 8BD8 mov ebx, eax
|
||
00835136 33C0 xor eax, eax
|
||
00835138 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00835139 6835528300 push $00835235
|
||
|
||
***** TRY
|
||
|
|
||
0083513E 64FF30 push dword ptr fs:[eax]
|
||
00835141 648920 mov fs:[eax], esp
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00835144 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
0083514A E8712DC9FF call 004C7EC0
|
||
0083514F 84C0 test al, al
|
||
00835151 0F85C3000000 jnz 0083521A
|
||
00835157 6A24 push $24
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00835159 B944528300 mov ecx, $00835244
|
||
|
||
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
||
|
|
||
0083515E BA4C528300 mov edx, $0083524C
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835CD0 55 push ebp
|
||
00835CD1 8BEC mov ebp, esp
|
||
00835CD3 B908000000 mov ecx, $00000008
|
||
00835CD8 6A00 push $00
|
||
00835CDA 6A00 push $00
|
||
00835CDC 49 dec ecx
|
||
00835CDD 75F9 jnz 00835CD8
|
||
00835CDF 51 push ecx
|
||
00835CE0 53 push ebx
|
||
00835CE1 56 push esi
|
||
00835CE2 8BDA mov ebx, edx
|
||
00835CE4 8BF0 mov esi, eax
|
||
00835CE6 33C0 xor eax, eax
|
||
00835CE8 55 push ebp
|
||
00835CE9 68DE5E8300 push $00835EDE
|
||
|
||
***** TRY
|
||
|
|
||
00835CEE 64FF30 push dword ptr fs:[eax]
|
||
00835CF1 648920 mov fs:[eax], esp
|
||
00835CF4 8D55FC lea edx, [ebp-$04]
|
||
00835CF7 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;
|
||
|
|
||
00835CF9 E8BE99D5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
00835CFE 8B86A8030000 mov eax, [esi+$03A8]
|
||
|
||
* 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;
|
||
|
|
||
00835D04 E84366E2FF 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;
|
||
|
|
||
00835D09 E856BEE1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
00835D0E 8B4050 mov eax, [eax+$50]
|
||
00835D11 8D55F4 lea edx, [ebp-$0C]
|
||
00835D14 8B08 mov ecx, [eax]
|
||
00835D16 FF5110 call dword ptr [ecx+$10]
|
||
00835D19 8B45F4 mov eax, [ebp-$0C]
|
||
00835D1C 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835D1F E8C84BBDFF call 0040A8EC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00835D24 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00835D2A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00835D2C E80F27C9FF call 004C8440
|
||
00835D31 8D55E0 lea edx, [ebp-$20]
|
||
00835D34 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835D37 E8B04BBDFF call 0040A8EC
|
||
00835D3C 8B55E0 mov edx, [ebp-$20]
|
||
00835D3F 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
00835D42 E88130BEFF call 00418DC8
|
||
00835D47 8D45E4 lea eax, [ebp-$1C]
|
||
00835D4A 50 push eax
|
||
00835D4B 8B55F8 mov edx, [ebp-$08]
|
||
00835D4E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00835D50 E85F0EC9FF call 004C6BB4
|
||
00835D55 5A pop edx
|
||
00835D56 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00835D58 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00835D5E 8BC3 mov eax, ebx
|
||
00835D60 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00835D62 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00835D68 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00835D6E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00835D70 E85FFBC8FF call 004C58D4
|
||
00835D75 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00835D77 E83082CAFF call 004DDFAC
|
||
00835D7C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00835D7E FF5244 call dword ptr [edx+$44]
|
||
00835D81 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00835D83 E82482CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
00835D88 BAF45E8300 mov edx, $00835EF4
|
||
00835D8D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00835D8F FF5138 call dword ptr [ecx+$38]
|
||
00835D92 8D55DC lea edx, [ebp-$24]
|
||
00835D95 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835D98 E84F4BBDFF call 0040A8EC
|
||
00835D9D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00835DA1 7440 jz 00835DE3
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00835DA3 68105F8300 push $00835F10
|
||
00835DA8 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00835DAB 68205F8300 push $00835F20
|
||
00835DB0 8D55D4 lea edx, [ebp-$2C]
|
||
00835DB3 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835DB6 E8314BBDFF call 0040A8EC
|
||
00835DBB FF75D4 push dword ptr [ebp-$2C]
|
||
00835DBE 682C5F8300 push $00835F2C
|
||
00835DC3 8D45D8 lea eax, [ebp-$28]
|
||
00835DC6 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00835DCB E8E4F8BCFF call 004056B4
|
||
00835DD0 8B45D8 mov eax, [ebp-$28]
|
||
00835DD3 50 push eax
|
||
00835DD4 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00835DD6 E8D181CAFF call 004DDFAC
|
||
00835DDB 5A pop edx
|
||
00835DDC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00835DDE FF5138 call dword ptr [ecx+$38]
|
||
00835DE1 EB2B jmp 00835E0E
|
||
00835DE3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00835DE5 E8C281CAFF call 004DDFAC
|
||
00835DEA 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00835DEB 68105F8300 push $00835F10
|
||
00835DF0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
00835DF3 68385F8300 push $00835F38
|
||
00835DF8 8D45D0 lea eax, [ebp-$30]
|
||
00835DFB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00835E00 E8AFF8BCFF call 004056B4
|
||
00835E05 8B55D0 mov edx, [ebp-$30]
|
||
00835E08 58 pop eax
|
||
00835E09 8B08 mov ecx, [eax]
|
||
00835E0B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00835E0E 68485F8300 push $00835F48
|
||
00835E13 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835F9C 55 push ebp
|
||
00835F9D 8BEC mov ebp, esp
|
||
00835F9F B91C000000 mov ecx, $0000001C
|
||
00835FA4 6A00 push $00
|
||
00835FA6 6A00 push $00
|
||
00835FA8 49 dec ecx
|
||
00835FA9 75F9 jnz 00835FA4
|
||
00835FAB 51 push ecx
|
||
00835FAC 53 push ebx
|
||
00835FAD 56 push esi
|
||
00835FAE 8BF2 mov esi, edx
|
||
00835FB0 8BD8 mov ebx, eax
|
||
00835FB2 33C0 xor eax, eax
|
||
00835FB4 55 push ebp
|
||
00835FB5 68FF658300 push $008365FF
|
||
|
||
***** TRY
|
||
|
|
||
00835FBA 64FF30 push dword ptr fs:[eax]
|
||
00835FBD 648920 mov fs:[eax], esp
|
||
00835FC0 8D55FC lea edx, [ebp-$04]
|
||
00835FC3 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;
|
||
|
|
||
00835FC5 E8F296D5FF call 0058F6BC
|
||
00835FCA 8D55DC lea edx, [ebp-$24]
|
||
00835FCD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835FD0 E81749BDFF call 0040A8EC
|
||
00835FD5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00835FD9 750D jnz 00835FE8
|
||
00835FDB 8D45FC lea eax, [ebp-$04]
|
||
00835FDE BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00835FE3 E8D4F3BCFF call 004053BC
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
00835FE8 8B83A8030000 mov eax, [ebx+$03A8]
|
||
|
||
* 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;
|
||
|
|
||
00835FEE E85963E2FF 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;
|
||
|
|
||
00835FF3 E86CBBE1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
00835FF8 8B4050 mov eax, [eax+$50]
|
||
00835FFB 8D55D8 lea edx, [ebp-$28]
|
||
00835FFE 8B08 mov ecx, [eax]
|
||
00836000 FF5110 call dword ptr [ecx+$10]
|
||
00836003 8B45D8 mov eax, [ebp-$28]
|
||
00836006 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836009 E8DE48BDFF call 0040A8EC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083600E 8BB34C030000 mov esi, [ebx+$034C]
|
||
00836014 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00836016 E82524C9FF call 004C8440
|
||
0083601B 8D55C4 lea edx, [ebp-$3C]
|
||
0083601E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836021 E8C648BDFF call 0040A8EC
|
||
00836026 8B55C4 mov edx, [ebp-$3C]
|
||
00836029 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083602C E8972DBEFF call 00418DC8
|
||
00836031 8D45C8 lea eax, [ebp-$38]
|
||
00836034 50 push eax
|
||
00836035 8B55E0 mov edx, [ebp-$20]
|
||
00836038 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083603A E8750BC9FF call 004C6BB4
|
||
0083603F 5A pop edx
|
||
00836040 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00836042 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00836048 8BC6 mov eax, esi
|
||
0083604A 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083604C FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
00836052 8BB308030000 mov esi, [ebx+$0308]
|
||
00836058 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083605A E875F8C8FF call 004C58D4
|
||
0083605F 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00836061 E8467FCAFF call 004DDFAC
|
||
00836066 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00836068 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083606B 6820668300 push $00836620
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
00836070 BA68668300 mov edx, $00836668
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00836075 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083607B E8340BC9FF call 004C6BB4
|
||
00836080 8D55BC lea edx, [ebp-$44]
|
||
00836083 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00836085 FF5160 call dword ptr [ecx+$60]
|
||
00836088 FF75BC push dword ptr [ebp-$44]
|
||
0083608B 6878668300 push $00836678
|
||
00836090 8D45C0 lea eax, [ebp-$40]
|
||
00836093 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00836098 E817F6BCFF call 004056B4
|
||
0083609D 8B45C0 mov eax, [ebp-$40]
|
||
008360A0 50 push eax
|
||
008360A1 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008360A3 E8047FCAFF call 004DDFAC
|
||
008360A8 5A pop edx
|
||
008360A9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008360AB FF5138 call dword ptr [ecx+$38]
|
||
008360AE 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008360B0 E813F8C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
008360B5 BA84668300 mov edx, $00836684
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
008360BA 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008360C0 E8EF0AC9FF call 004C6BB4
|
||
008360C5 8D55E4 lea edx, [ebp-$1C]
|
||
008360C8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
008360CA FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
008360CD BA94668300 mov edx, $00836694
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008360D2 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008360D8 E8D70AC9FF call 004C6BB4
|
||
008360DD 8D55B8 lea edx, [ebp-$48]
|
||
008360E0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
008360E2 FF5160 call dword ptr [ecx+$60]
|
||
008360E5 8B45B8 mov eax, [ebp-$48]
|
||
008360E8 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008360EB E8FC47BDFF call 0040A8EC
|
||
008360F0 8D55B4 lea edx, [ebp-$4C]
|
||
008360F3 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008360F6 E8F147BDFF call 0040A8EC
|
||
008360FB 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
008360FF 750D jnz 0083610E
|
||
00836101 8D45F8 lea eax, [ebp-$08]
|
||
00836104 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00836109 E8AEF2BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Price'
|
||
|
|
||
0083610E BAA0668300 mov edx, $008366A0
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00836113 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836119 E8960AC9FF call 004C6BB4
|
||
0083611E 8D55B0 lea edx, [ebp-$50]
|
||
00836121 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00836123 FF5160 call dword ptr [ecx+$60]
|
||
00836126 8B45B0 mov eax, [ebp-$50]
|
||
00836129 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083612C E8BB47BDFF call 0040A8EC
|
||
00836131 8D55AC lea edx, [ebp-$54]
|
||
00836134 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836137 E8B047BDFF call 0040A8EC
|
||
0083613C 837DAC00 cmp dword ptr [ebp-$54], +$00
|
||
00836140 750D jnz 0083614F
|
||
00836142 8D45F4 lea eax, [ebp-$0C]
|
||
00836145 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083614A E86DF2BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
0083614F BA94668300 mov edx, $00836694
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00836154 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083615A E8550AC9FF call 004C6BB4
|
||
0083615F 8D55A8 lea edx, [ebp-$58]
|
||
00836162 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00836164 FF5160 call dword ptr [ecx+$60]
|
||
00836167 8B45A8 mov eax, [ebp-$58]
|
||
0083616A 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083616D E87A47BDFF call 0040A8EC
|
||
00836172 8D55A4 lea edx, [ebp-$5C]
|
||
00836175 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836178 E86F47BDFF call 0040A8EC
|
||
0083617D 837DA400 cmp dword ptr [ebp-$5C], +$00
|
||
00836181 750D jnz 00836190
|
||
00836183 8D45F8 lea eax, [ebp-$08]
|
||
00836186 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083618B E82CF2BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00836190 BAB0668300 mov edx, $008366B0
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00836195 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083619B E8140AC9FF call 004C6BB4
|
||
008361A0 8D55A0 lea edx, [ebp-$60]
|
||
008361A3 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
008361A5 FF5160 call dword ptr [ecx+$60]
|
||
008361A8 8B45A0 mov eax, [ebp-$60]
|
||
008361AB 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361AE E83947BDFF call 0040A8EC
|
||
008361B3 8D559C lea edx, [ebp-$64]
|
||
008361B6 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361B9 E82E47BDFF call 0040A8EC
|
||
008361BE 837D9C00 cmp dword ptr [ebp-$64], +$00
|
||
008361C2 750D jnz 008361D1
|
||
008361C4 8D45F0 lea eax, [ebp-$10]
|
||
008361C7 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
008361CC E8EBF1BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
008361D1 BAC0668300 mov edx, $008366C0
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008361D6 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008361DC E8D309C9FF call 004C6BB4
|
||
008361E1 8D5598 lea edx, [ebp-$68]
|
||
008361E4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
008361E6 FF5160 call dword ptr [ecx+$60]
|
||
008361E9 8B4598 mov eax, [ebp-$68]
|
||
008361EC 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361EF E8F846BDFF call 0040A8EC
|
||
008361F4 8D5594 lea edx, [ebp-$6C]
|
||
008361F7 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361FA E8ED46BDFF call 0040A8EC
|
||
008361FF 837D9400 cmp dword ptr [ebp-$6C], +$00
|
||
00836203 750D jnz 00836212
|
||
00836205 8D45EC lea eax, [ebp-$14]
|
||
00836208 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083620D E8AAF1BCFF call 004053BC
|
||
00836212 8D5590 lea edx, [ebp-$70]
|
||
00836215 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836218 E8CF46BDFF call 0040A8EC
|
||
0083621D 8B4590 mov eax, [ebp-$70]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00836220 BAB0668300 mov edx, $008366B0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00836225 E816F5BCFF call 00405740
|
||
0083622A 0F84AD000000 jz 008362DD
|
||
00836230 8D558C lea edx, [ebp-$74]
|
||
00836233 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836236 E8B146BDFF call 0040A8EC
|
||
0083623B 8B458C mov eax, [ebp-$74]
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083623E BAC0668300 mov edx, $008366C0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00836243 E8F8F4BCFF call 00405740
|
||
00836248 7469 jz 008362B3
|
||
0083624A 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083624D E8DA74BDFF call 0040D72C
|
||
00836252 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00836255 9B wait
|
||
00836256 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836259 E8CE74BDFF call 0040D72C
|
||
0083625E DB6D80 fld tbyte ptr [ebp-$80]
|
||
00836261 DEC9 fmulp st(1), st(0)
|
||
00836263 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
|
||
00836269 9B wait
|
||
0083626A 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083626D E8BA74BDFF call 0040D72C
|
||
00836272 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
|
||
00836278 DEC9 fmulp st(1), st(0)
|
||
0083627A 83C4F4 add esp, -$0C
|
||
0083627D DB3C24 fstp tbyte ptr [esp]
|
||
00836280 9B wait
|
||
00836281 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00836284 E82373BDFF call 0040D5AC
|
||
00836289 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083628C E89B74BDFF call 0040D72C
|
||
00836291 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00836294 9B wait
|
||
00836295 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836298 E88F74BDFF call 0040D72C
|
||
0083629D DB6D80 fld tbyte ptr [ebp-$80]
|
||
008362A0 DEC9 fmulp st(1), st(0)
|
||
008362A2 83C4F4 add esp, -$0C
|
||
008362A5 DB3C24 fstp tbyte ptr [esp]
|
||
008362A8 9B wait
|
||
008362A9 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
008362AC E8FB72BDFF call 0040D5AC
|
||
008362B1 EB52 jmp 00836305
|
||
008362B3 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362B6 E87174BDFF call 0040D72C
|
||
008362BB DB7D80 fstp tbyte ptr [ebp-$80]
|
||
008362BE 9B wait
|
||
008362BF 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362C2 E86574BDFF call 0040D72C
|
||
008362C7 DB6D80 fld tbyte ptr [ebp-$80]
|
||
008362CA DEC9 fmulp st(1), st(0)
|
||
008362CC 83C4F4 add esp, -$0C
|
||
008362CF DB3C24 fstp tbyte ptr [esp]
|
||
008362D2 9B wait
|
||
008362D3 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
008362D6 E8D172BDFF call 0040D5AC
|
||
008362DB EB28 jmp 00836305
|
||
008362DD 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362E0 E84774BDFF call 0040D72C
|
||
008362E5 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
008362E8 9B wait
|
||
008362E9 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362EC E83B74BDFF call 0040D72C
|
||
008362F1 DB6D80 fld tbyte ptr [ebp-$80]
|
||
008362F4 DEC9 fmulp st(1), st(0)
|
||
008362F6 83C4F4 add esp, -$0C
|
||
008362F9 DB3C24 fstp tbyte ptr [esp]
|
||
008362FC 9B wait
|
||
008362FD 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00836300 E8A772BDFF call 0040D5AC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00836305 8BB34C030000 mov esi, [ebx+$034C]
|
||
0083630B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083630D E82E21C9FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00836312 BAB0668300 mov edx, $008366B0
|
||
00836317 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836319 E89608C9FF call 004C6BB4
|
||
0083631E 50 push eax
|
||
0083631F 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836322 E80574BDFF call 0040D72C
|
||
00836327 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083632D E85A2ABEFF call 00418D8C
|
||
00836332 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
|
||
00836338 58 pop eax
|
||
00836339 8B08 mov ecx, [eax]
|
||
0083633B FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00836341 BA84668300 mov edx, $00836684
|
||
00836346 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836348 E86708C9FF call 004C6BB4
|
||
0083634D 50 push eax
|
||
0083634E 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836351 E8D673BDFF call 0040D72C
|
||
00836356 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083635C E82B2ABEFF call 00418D8C
|
||
00836361 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
|
||
00836367 58 pop eax
|
||
00836368 8B08 mov ecx, [eax]
|
||
0083636A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00836370 8BC6 mov eax, esi
|
||
00836372 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00836374 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
0083637A 8BB30C030000 mov esi, [ebx+$030C]
|
||
00836380 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00836382 E84DF5C8FF call 004C58D4
|
||
00836387 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00836389 E81E7CCAFF call 004DDFAC
|
||
0083638E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00836390 FF5244 call dword ptr [edx+$44]
|
||
00836393 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00836395 E8127CCAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083639A BAD0668300 mov edx, $008366D0
|
||
0083639F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008363A1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
008363A4 68EC668300 push $008366EC
|
||
008363A9 FF75E0 push dword ptr [ebp-$20]
|
||
008363AC 68FC668300 push $008366FC
|
||
008363B1 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
|
||
008363B7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008363BA E82D45BDFF call 0040A8EC
|
||
008363BF FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
|
||
008363C5 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
|
||
008363CB BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008363D0 E8DFF2BCFF call 004056B4
|
||
008363D5 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
|
||
008363DB 50 push eax
|
||
008363DC 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008363DE E8C97BCAFF call 004DDFAC
|
||
008363E3 5A pop edx
|
||
008363E4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008363E6 FF5138 call dword ptr [ecx+$38]
|
||
008363E9 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
|
||
008363EF 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008363F2 E8F544BDFF call 0040A8EC
|
||
008363F7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
008363FD BAB0668300 mov edx, $008366B0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00836402 E839F3BCFF call 00405740
|
||
00836407 7427 jz 00836430
|
||
00836409 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083640B E89C7BCAFF call 004DDFAC
|
||
00836410 50 push eax
|
||
00836411 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
|
||
00836417 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',Money='
|
||
|
|
||
0083641A BA08678300 mov edx, $00836708
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083641F E81CF2BCFF call 00405640
|
||
00836424 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
|
||
0083642A 58 pop eax
|
||
0083642B 8B08 mov ecx, [eax]
|
||
0083642D FF5138 call dword ptr [ecx+$38]
|
||
00836430 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00836432 E8757BCAFF call 004DDFAC
|
||
00836437 50 push eax
|
||
00836438 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
|
||
0083643E 8B4DE8 mov ecx, [ebp-$18]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
00836441 BA18678300 mov edx, $00836718
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00836446 E8F5F1BCFF call 00405640
|
||
0083644B 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
|
||
00836451 58 pop eax
|
||
00836452 8B08 mov ecx, [eax]
|
||
00836454 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00836457 682C678300 push $0083672C
|
||
0083645C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
008367E8 55 push ebp
|
||
008367E9 8BEC mov ebp, esp
|
||
008367EB B908000000 mov ecx, $00000008
|
||
008367F0 6A00 push $00
|
||
008367F2 6A00 push $00
|
||
008367F4 49 dec ecx
|
||
008367F5 75F9 jnz 008367F0
|
||
008367F7 51 push ecx
|
||
008367F8 53 push ebx
|
||
008367F9 56 push esi
|
||
008367FA 8BDA mov ebx, edx
|
||
008367FC 8BF0 mov esi, eax
|
||
008367FE 33C0 xor eax, eax
|
||
00836800 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00836801 68F6698300 push $008369F6
|
||
|
||
***** TRY
|
||
|
|
||
00836806 64FF30 push dword ptr fs:[eax]
|
||
00836809 648920 mov fs:[eax], esp
|
||
0083680C 8D55FC lea edx, [ebp-$04]
|
||
0083680F 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;
|
||
|
|
||
00836811 E8A68ED5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
00836816 8B86A8030000 mov eax, [esi+$03A8]
|
||
|
||
* 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;
|
||
|
|
||
0083681C E82B5BE2FF 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;
|
||
|
|
||
00836821 E83EB3E1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
00836826 8B4050 mov eax, [eax+$50]
|
||
00836829 8D55F4 lea edx, [ebp-$0C]
|
||
0083682C 8B08 mov ecx, [eax]
|
||
0083682E FF5110 call dword ptr [ecx+$10]
|
||
00836831 8B45F4 mov eax, [ebp-$0C]
|
||
00836834 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836837 E8B040BDFF call 0040A8EC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083683C 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00836842 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00836844 E8F71BC9FF call 004C8440
|
||
00836849 8D55E0 lea edx, [ebp-$20]
|
||
0083684C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083684F E89840BDFF call 0040A8EC
|
||
00836854 8B55E0 mov edx, [ebp-$20]
|
||
00836857 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083685A E86925BEFF call 00418DC8
|
||
0083685F 8D45E4 lea eax, [ebp-$1C]
|
||
00836862 50 push eax
|
||
00836863 8B55F8 mov edx, [ebp-$08]
|
||
00836866 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836868 E84703C9FF call 004C6BB4
|
||
0083686D 5A pop edx
|
||
0083686E 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00836870 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00836876 8BC3 mov eax, ebx
|
||
00836878 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083687A FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00836880 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00836886 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00836888 E847F0C8FF call 004C58D4
|
||
0083688D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083688F E81877CAFF call 004DDFAC
|
||
00836894 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00836896 FF5244 call dword ptr [edx+$44]
|
||
00836899 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083689B E80C77CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
008368A0 BA0C6A8300 mov edx, $00836A0C
|
||
008368A5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008368A7 FF5138 call dword ptr [ecx+$38]
|
||
008368AA 8D55DC lea edx, [ebp-$24]
|
||
008368AD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008368B0 E83740BDFF call 0040A8EC
|
||
008368B5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
008368B9 7440 jz 008368FB
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
008368BB 68286A8300 push $00836A28
|
||
008368C0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
008368C3 68386A8300 push $00836A38
|
||
008368C8 8D55D4 lea edx, [ebp-$2C]
|
||
008368CB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008368CE E81940BDFF call 0040A8EC
|
||
008368D3 FF75D4 push dword ptr [ebp-$2C]
|
||
008368D6 68446A8300 push $00836A44
|
||
008368DB 8D45D8 lea eax, [ebp-$28]
|
||
008368DE BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008368E3 E8CCEDBCFF call 004056B4
|
||
008368E8 8B45D8 mov eax, [ebp-$28]
|
||
008368EB 50 push eax
|
||
008368EC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008368EE E8B976CAFF call 004DDFAC
|
||
008368F3 5A pop edx
|
||
008368F4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008368F6 FF5138 call dword ptr [ecx+$38]
|
||
008368F9 EB2B jmp 00836926
|
||
008368FB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008368FD E8AA76CAFF call 004DDFAC
|
||
00836902 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00836903 68286A8300 push $00836A28
|
||
00836908 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0083690B 68506A8300 push $00836A50
|
||
00836910 8D45D0 lea eax, [ebp-$30]
|
||
00836913 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00836918 E897EDBCFF call 004056B4
|
||
0083691D 8B55D0 mov edx, [ebp-$30]
|
||
00836920 58 pop eax
|
||
00836921 8B08 mov ecx, [eax]
|
||
00836923 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00836926 68606A8300 push $00836A60
|
||
0083692B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.ToolButton3Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00836AB4 55 push ebp
|
||
00836AB5 8BEC mov ebp, esp
|
||
00836AB7 B90C000000 mov ecx, $0000000C
|
||
00836ABC 6A00 push $00
|
||
00836ABE 6A00 push $00
|
||
00836AC0 49 dec ecx
|
||
00836AC1 75F9 jnz 00836ABC
|
||
00836AC3 53 push ebx
|
||
00836AC4 56 push esi
|
||
00836AC5 8BF0 mov esi, eax
|
||
00836AC7 33C0 xor eax, eax
|
||
00836AC9 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>3<33><DEBC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00836ACA 68BC6C8300 push $00836CBC
|
||
|
||
***** TRY
|
||
|
|
||
00836ACF 64FF30 push dword ptr fs:[eax]
|
||
00836AD2 648920 mov fs:[eax], esp
|
||
00836AD5 33C0 xor eax, eax
|
||
00836AD7 55 push ebp
|
||
00836AD8 686A6C8300 push $00836C6A
|
||
|
||
***** TRY
|
||
|
|
||
00836ADD 64FF30 push dword ptr fs:[eax]
|
||
00836AE0 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00836D50 55 push ebp
|
||
00836D51 8BEC mov ebp, esp
|
||
00836D53 51 push ecx
|
||
00836D54 B90B000000 mov ecx, $0000000B
|
||
00836D59 6A00 push $00
|
||
00836D5B 6A00 push $00
|
||
00836D5D 49 dec ecx
|
||
00836D5E 75F9 jnz 00836D59
|
||
00836D60 51 push ecx
|
||
00836D61 874DFC xchg [ebp-$04], ecx
|
||
00836D64 53 push ebx
|
||
00836D65 56 push esi
|
||
00836D66 8BF0 mov esi, eax
|
||
00836D68 33C0 xor eax, eax
|
||
00836D6A 55 push ebp
|
||
00836D6B 689B708300 push $0083709B
|
||
|
||
***** TRY
|
||
|
|
||
00836D70 64FF30 push dword ptr fs:[eax]
|
||
00836D73 648920 mov fs:[eax], esp
|
||
00836D76 33C0 xor eax, eax
|
||
00836D78 55 push ebp
|
||
00836D79 6854708300 push $00837054
|
||
|
||
***** TRY
|
||
|
|
||
00836D7E 64FF30 push dword ptr fs:[eax]
|
||
00836D81 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
008371D0 55 push ebp
|
||
008371D1 8BEC mov ebp, esp
|
||
008371D3 51 push ecx
|
||
008371D4 B906000000 mov ecx, $00000006
|
||
008371D9 6A00 push $00
|
||
008371DB 6A00 push $00
|
||
008371DD 49 dec ecx
|
||
008371DE 75F9 jnz 008371D9
|
||
008371E0 51 push ecx
|
||
008371E1 874DFC xchg [ebp-$04], ecx
|
||
008371E4 53 push ebx
|
||
008371E5 56 push esi
|
||
008371E6 8BF0 mov esi, eax
|
||
008371E8 33C0 xor eax, eax
|
||
008371EA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>ּ<EFBFBD><D6BC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
008371EB 6829748300 push $00837429
|
||
|
||
***** TRY
|
||
|
|
||
008371F0 64FF30 push dword ptr fs:[eax]
|
||
008371F3 648920 mov fs:[eax], esp
|
||
008371F6 33C0 xor eax, eax
|
||
008371F8 55 push ebp
|
||
008371F9 68FF738300 push $008373FF
|
||
|
||
***** TRY
|
||
|
|
||
008371FE 64FF30 push dword ptr fs:[eax]
|
||
00837201 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2Column3PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083752C 55 push ebp
|
||
0083752D 8BEC mov ebp, esp
|
||
0083752F 51 push ecx
|
||
00837530 B906000000 mov ecx, $00000006
|
||
00837535 6A00 push $00
|
||
00837537 6A00 push $00
|
||
00837539 49 dec ecx
|
||
0083753A 75F9 jnz 00837535
|
||
0083753C 51 push ecx
|
||
0083753D 874DFC xchg [ebp-$04], ecx
|
||
00837540 53 push ebx
|
||
00837541 56 push esi
|
||
00837542 8BF0 mov esi, eax
|
||
00837544 33C0 xor eax, eax
|
||
00837546 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>jӼ<6A><D3BC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00837547 6885778300 push $00837785
|
||
|
||
***** TRY
|
||
|
|
||
0083754C 64FF30 push dword ptr fs:[eax]
|
||
0083754F 648920 mov fs:[eax], esp
|
||
00837552 33C0 xor eax, eax
|
||
00837554 55 push ebp
|
||
00837555 685B778300 push $0083775B
|
||
|
||
***** TRY
|
||
|
|
||
0083755A 64FF30 push dword ptr fs:[eax]
|
||
0083755D 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.ToolButton1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
00837870 53 push ebx
|
||
00837871 8BD8 mov ebx, eax
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
00837873 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00837879 E84206C9FF call 004C7EC0
|
||
0083787E 84C0 test al, al
|
||
00837880 7516 jnz 00837898
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
||
|
|
||
00837882 B9A4788300 mov ecx, $008378A4
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
00837887 8B9320030000 mov edx, [ebx+$0320]
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
0083788D 8B83A8030000 mov eax, [ebx+$03A8]
|
||
|
||
|
|
||
00837893 E89809F8FF call 007B8230
|
||
00837898 5B pop ebx
|
||
00837899 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2Column4PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
008378B0 55 push ebp
|
||
008378B1 8BEC mov ebp, esp
|
||
008378B3 B915000000 mov ecx, $00000015
|
||
008378B8 6A00 push $00
|
||
008378BA 6A00 push $00
|
||
008378BC 49 dec ecx
|
||
008378BD 75F9 jnz 008378B8
|
||
008378BF 53 push ebx
|
||
008378C0 56 push esi
|
||
008378C1 8BF2 mov esi, edx
|
||
008378C3 8BD8 mov ebx, eax
|
||
008378C5 33C0 xor eax, eax
|
||
008378C7 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>ͼ<EFBFBD><CDBC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
008378C8 68227D8300 push $00837D22
|
||
|
||
***** TRY
|
||
|
|
||
008378CD 64FF30 push dword ptr fs:[eax]
|
||
008378D0 648920 mov fs:[eax], esp
|
||
008378D3 8D55FC lea edx, [ebp-$04]
|
||
008378D6 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;
|
||
|
|
||
008378D8 E8DF7DD5FF call 0058F6BC
|
||
008378DD 8D55E4 lea edx, [ebp-$1C]
|
||
008378E0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008378E3 E80430BDFF call 0040A8EC
|
||
008378E8 837DE400 cmp dword ptr [ebp-$1C], +$00
|
||
008378EC 750D jnz 008378FB
|
||
008378EE 8D45FC lea eax, [ebp-$04]
|
||
008378F1 BA387D8300 mov edx, $00837D38
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
008378F6 E8C1DABCFF call 004053BC
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
008378FB 8B83A8030000 mov eax, [ebx+$03A8]
|
||
|
||
* 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;
|
||
|
|
||
00837901 E8464AE2FF 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;
|
||
|
|
||
00837906 E859A2E1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
0083790B 8B4050 mov eax, [eax+$50]
|
||
0083790E 8D55E0 lea edx, [ebp-$20]
|
||
00837911 8B08 mov ecx, [eax]
|
||
00837913 FF5110 call dword ptr [ecx+$10]
|
||
00837916 8B45E0 mov eax, [ebp-$20]
|
||
00837919 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083791C E8CB2FBDFF call 0040A8EC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00837921 8BB34C030000 mov esi, [ebx+$034C]
|
||
00837927 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00837929 E8120BC9FF call 004C8440
|
||
0083792E 8D55CC lea edx, [ebp-$34]
|
||
00837931 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837934 E8B32FBDFF call 0040A8EC
|
||
00837939 8B55CC mov edx, [ebp-$34]
|
||
0083793C 8D45D0 lea eax, [ebp-$30]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083793F E88414BEFF call 00418DC8
|
||
00837944 8D45D0 lea eax, [ebp-$30]
|
||
00837947 50 push eax
|
||
00837948 8B55E8 mov edx, [ebp-$18]
|
||
0083794B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083794D E862F2C8FF call 004C6BB4
|
||
00837952 5A pop edx
|
||
00837953 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00837955 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083795B 8BC6 mov eax, esi
|
||
0083795D 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083795F FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
00837965 8BB308030000 mov esi, [ebx+$0308]
|
||
0083796B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083796D E862DFC8FF call 004C58D4
|
||
00837972 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00837974 E83366CAFF call 004DDFAC
|
||
00837979 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083797B FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083797E 68447D8300 push $00837D44
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
00837983 BA8C7D8300 mov edx, $00837D8C
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00837988 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083798E E821F2C8FF call 004C6BB4
|
||
00837993 8D55C4 lea edx, [ebp-$3C]
|
||
00837996 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00837998 FF5160 call dword ptr [ecx+$60]
|
||
0083799B FF75C4 push dword ptr [ebp-$3C]
|
||
0083799E 689C7D8300 push $00837D9C
|
||
008379A3 8D45C8 lea eax, [ebp-$38]
|
||
008379A6 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008379AB E804DDBCFF call 004056B4
|
||
008379B0 8B45C8 mov eax, [ebp-$38]
|
||
008379B3 50 push eax
|
||
008379B4 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008379B6 E8F165CAFF call 004DDFAC
|
||
008379BB 5A pop edx
|
||
008379BC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008379BE FF5138 call dword ptr [ecx+$38]
|
||
008379C1 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008379C3 E800DFC8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
008379C8 BAA87D8300 mov edx, $00837DA8
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
008379CD 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008379D3 E8DCF1C8FF call 004C6BB4
|
||
008379D8 8D55EC lea edx, [ebp-$14]
|
||
008379DB 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
008379DD FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
008379E0 BAB87D8300 mov edx, $00837DB8
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008379E5 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008379EB E8C4F1C8FF call 004C6BB4
|
||
008379F0 8D55C0 lea edx, [ebp-$40]
|
||
008379F3 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
008379F5 FF5160 call dword ptr [ecx+$60]
|
||
008379F8 8B45C0 mov eax, [ebp-$40]
|
||
008379FB 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008379FE E8E92EBDFF call 0040A8EC
|
||
00837A03 8D55BC lea edx, [ebp-$44]
|
||
00837A06 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837A09 E8DE2EBDFF call 0040A8EC
|
||
00837A0E 837DBC00 cmp dword ptr [ebp-$44], +$00
|
||
00837A12 750D jnz 00837A21
|
||
00837A14 8D45F8 lea eax, [ebp-$08]
|
||
00837A17 BA387D8300 mov edx, $00837D38
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00837A1C E89BD9BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
00837A21 BAC87D8300 mov edx, $00837DC8
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00837A26 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00837A2C E883F1C8FF call 004C6BB4
|
||
00837A31 8D55B8 lea edx, [ebp-$48]
|
||
00837A34 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00837A36 FF5160 call dword ptr [ecx+$60]
|
||
00837A39 8B45B8 mov eax, [ebp-$48]
|
||
00837A3C 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837A3F E8A82EBDFF call 0040A8EC
|
||
00837A44 8D55B4 lea edx, [ebp-$4C]
|
||
00837A47 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837A4A E89D2EBDFF call 0040A8EC
|
||
00837A4F 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
00837A53 750D jnz 00837A62
|
||
00837A55 8D45F4 lea eax, [ebp-$0C]
|
||
00837A58 BA387D8300 mov edx, $00837D38
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00837A5D E85AD9BCFF call 004053BC
|
||
00837A62 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837A65 E8C25CBDFF call 0040D72C
|
||
00837A6A DB7DA8 fstp tbyte ptr [ebp-$58]
|
||
00837A6D 9B wait
|
||
00837A6E 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837A71 E8B65CBDFF call 0040D72C
|
||
00837A76 DB6DA8 fld tbyte ptr [ebp-$58]
|
||
00837A79 DEC9 fmulp st(1), st(0)
|
||
00837A7B 83C4F4 add esp, -$0C
|
||
00837A7E DB3C24 fstp tbyte ptr [esp]
|
||
00837A81 9B wait
|
||
00837A82 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
00837A85 E8225BBDFF call 0040D5AC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00837A8A 8BB34C030000 mov esi, [ebx+$034C]
|
||
00837A90 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00837A92 E8A909C9FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00837A97 BAB87D8300 mov edx, $00837DB8
|
||
00837A9C 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00837A9E E811F1C8FF call 004C6BB4
|
||
00837AA3 50 push eax
|
||
00837AA4 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837AA7 E8805CBDFF call 0040D72C
|
||
00837AAC 8D4598 lea eax, [ebp-$68]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00837AAF E8D812BEFF call 00418D8C
|
||
00837AB4 8D5598 lea edx, [ebp-$68]
|
||
00837AB7 58 pop eax
|
||
00837AB8 8B08 mov ecx, [eax]
|
||
00837ABA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00837AC0 BAA87D8300 mov edx, $00837DA8
|
||
00837AC5 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00837AC7 E8E8F0C8FF call 004C6BB4
|
||
00837ACC 50 push eax
|
||
00837ACD 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837AD0 E8575CBDFF call 0040D72C
|
||
00837AD5 8D4588 lea eax, [ebp-$78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00837AD8 E8AF12BEFF call 00418D8C
|
||
00837ADD 8D5588 lea edx, [ebp-$78]
|
||
00837AE0 58 pop eax
|
||
00837AE1 8B08 mov ecx, [eax]
|
||
00837AE3 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00837AE9 8BC6 mov eax, esi
|
||
00837AEB 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00837AED FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00837AF3 8BB30C030000 mov esi, [ebx+$030C]
|
||
00837AF9 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00837AFB E8D4DDC8FF call 004C58D4
|
||
00837B00 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00837B02 E8A564CAFF call 004DDFAC
|
||
00837B07 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00837B09 FF5244 call dword ptr [edx+$44]
|
||
00837B0C 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00837B0E E89964CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00837B13 BAD87D8300 mov edx, $00837DD8
|
||
00837B18 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00837B1A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00837B1D 68F47D8300 push $00837DF4
|
||
00837B22 FF75E8 push dword ptr [ebp-$18]
|
||
00837B25 68047E8300 push $00837E04
|
||
00837B2A 8D5580 lea edx, [ebp-$80]
|
||
00837B2D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837B30 E8B72DBDFF call 0040A8EC
|
||
00837B35 FF7580 push dword ptr [ebp-$80]
|
||
00837B38 8D4584 lea eax, [ebp-$7C]
|
||
00837B3B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00837B40 E86FDBBCFF call 004056B4
|
||
00837B45 8B4584 mov eax, [ebp-$7C]
|
||
00837B48 50 push eax
|
||
00837B49 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00837B4B E85C64CAFF call 004DDFAC
|
||
00837B50 5A pop edx
|
||
00837B51 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00837B53 FF5138 call dword ptr [ecx+$38]
|
||
00837B56 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00837B58 E84F64CAFF call 004DDFAC
|
||
00837B5D 50 push eax
|
||
00837B5E 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
|
||
00837B64 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
00837B67 BA107E8300 mov edx, $00837E10
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00837B6C E8CFDABCFF call 00405640
|
||
00837B71 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
|
||
00837B77 58 pop eax
|
||
00837B78 8B08 mov ecx, [eax]
|
||
00837B7A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00837B7D 68247E8300 push $00837E24
|
||
00837B82 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2Column1PropertiesButtonClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00837EE0 55 push ebp
|
||
00837EE1 8BEC mov ebp, esp
|
||
00837EE3 51 push ecx
|
||
00837EE4 B90E000000 mov ecx, $0000000E
|
||
00837EE9 6A00 push $00
|
||
00837EEB 6A00 push $00
|
||
00837EED 49 dec ecx
|
||
00837EEE 75F9 jnz 00837EE9
|
||
00837EF0 51 push ecx
|
||
00837EF1 874DFC xchg [ebp-$04], ecx
|
||
00837EF4 53 push ebx
|
||
00837EF5 8945FC mov [ebp-$04], eax
|
||
00837EF8 33C0 xor eax, eax
|
||
00837EFA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>ȼ<EFBFBD><C8BC><EFBFBD>[<5B><>]<5D>'
|
||
|
|
||
00837EFB 6851828300 push $00838251
|
||
|
||
***** TRY
|
||
|
|
||
00837F00 64FF30 push dword ptr fs:[eax]
|
||
00837F03 648920 mov fs:[eax], esp
|
||
00837F06 33C0 xor eax, eax
|
||
00837F08 55 push ebp
|
||
00837F09 68FD818300 push $008381FD
|
||
|
||
***** TRY
|
||
|
|
||
00837F0E 64FF30 push dword ptr fs:[eax]
|
||
00837F11 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.VBBPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838350 55 push ebp
|
||
00838351 8BEC mov ebp, esp
|
||
00838353 B909000000 mov ecx, $00000009
|
||
00838358 6A00 push $00
|
||
0083835A 6A00 push $00
|
||
0083835C 49 dec ecx
|
||
0083835D 75F9 jnz 00838358
|
||
0083835F 51 push ecx
|
||
00838360 53 push ebx
|
||
00838361 56 push esi
|
||
00838362 8BDA mov ebx, edx
|
||
00838364 8BF0 mov esi, eax
|
||
00838366 33C0 xor eax, eax
|
||
00838368 55 push ebp
|
||
00838369 68EE858300 push $008385EE
|
||
|
||
***** TRY
|
||
|
|
||
0083836E 64FF30 push dword ptr fs:[eax]
|
||
00838371 648920 mov fs:[eax], esp
|
||
00838374 8D55FC lea edx, [ebp-$04]
|
||
00838377 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;
|
||
|
|
||
00838379 E83E73D5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
0083837E 8B9E08030000 mov ebx, [esi+$0308]
|
||
00838384 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838386 E849D5C8FF call 004C58D4
|
||
0083838B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083838D E81A5CCAFF call 004DDFAC
|
||
00838392 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00838394 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
00838397 6804868300 push $00838604
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083839C BA4C868300 mov edx, $0083864C
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008383A1 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008383A7 E808E8C8FF call 004C6BB4
|
||
008383AC 8D55F0 lea edx, [ebp-$10]
|
||
008383AF 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
008383B1 FF5160 call dword ptr [ecx+$60]
|
||
008383B4 FF75F0 push dword ptr [ebp-$10]
|
||
008383B7 685C868300 push $0083865C
|
||
008383BC 8D45F4 lea eax, [ebp-$0C]
|
||
008383BF BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008383C4 E8EBD2BCFF call 004056B4
|
||
008383C9 8B45F4 mov eax, [ebp-$0C]
|
||
008383CC 50 push eax
|
||
008383CD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008383CF E8D85BCAFF call 004DDFAC
|
||
008383D4 5A pop edx
|
||
008383D5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008383D7 FF5138 call dword ptr [ecx+$38]
|
||
008383DA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008383DC E8E7D4C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
008383E1 BA68868300 mov edx, $00838668
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryTemp : TADOQuery
|
||
|
|
||
008383E6 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008383EC E8C3E7C8FF call 004C6BB4
|
||
008383F1 8D55F8 lea edx, [ebp-$08]
|
||
008383F4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_60
|
||
|
|
||
008383F6 FF5160 call dword ptr [ecx+$60]
|
||
008383F9 8D55EC lea edx, [ebp-$14]
|
||
008383FC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008383FF E8E824BDFF call 0040A8EC
|
||
00838404 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
00838408 750D jnz 00838417
|
||
0083840A 8D45FC lea eax, [ebp-$04]
|
||
0083840D BA78868300 mov edx, $00838678
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00838412 E8A5CFBCFF call 004053BC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00838417 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0083841D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083841F E81C00C9FF call 004C8440
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00838424 BA68868300 mov edx, $00838668
|
||
00838429 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083842B E884E7C8FF call 004C6BB4
|
||
00838430 50 push eax
|
||
00838431 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00838434 E8F352BDFF call 0040D72C
|
||
00838439 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083843C E84B09BEFF call 00418D8C
|
||
00838441 8D55DC lea edx, [ebp-$24]
|
||
00838444 58 pop eax
|
||
00838445 8B08 mov ecx, [eax]
|
||
00838447 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083844D 8BC3 mov eax, ebx
|
||
0083844F 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00838451 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00838457 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083845D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083845F E870D4C8FF call 004C58D4
|
||
00838464 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838466 E8415BCAFF call 004DDFAC
|
||
0083846B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
0083846D FF5244 call dword ptr [edx+$44]
|
||
00838470 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838472 E8355BCAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838477 BA84868300 mov edx, $00838684
|
||
0083847C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083847E FF5138 call dword ptr [ecx+$38]
|
||
00838481 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838483 E8245BCAFF call 004DDFAC
|
||
00838488 50 push eax
|
||
00838489 8D45D8 lea eax, [ebp-$28]
|
||
0083848C 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set BBMoney='
|
||
|
|
||
0083848F BAA0868300 mov edx, $008386A0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00838494 E8A7D1BCFF call 00405640
|
||
00838499 8B55D8 mov edx, [ebp-$28]
|
||
0083849C 58 pop eax
|
||
0083849D 8B08 mov ecx, [eax]
|
||
0083849F FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
008384A2 68B8868300 push $008386B8
|
||
008384A7 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.ComTaitouChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838774 56 push esi
|
||
|
||
* Reference to control TfrmFKCR_SH.ToolButton2 : TToolButton
|
||
|
|
||
00838775 8B8014030000 mov eax, [eax+$0314]
|
||
0083877B 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0083877F E8D0BDBCFF call 00404554
|
||
00838784 5E pop esi
|
||
00838785 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2Column1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838788 55 push ebp
|
||
00838789 8BEC mov ebp, esp
|
||
0083878B B907000000 mov ecx, $00000007
|
||
00838790 6A00 push $00
|
||
00838792 6A00 push $00
|
||
00838794 49 dec ecx
|
||
00838795 75F9 jnz 00838790
|
||
00838797 51 push ecx
|
||
00838798 53 push ebx
|
||
00838799 56 push esi
|
||
0083879A 8BDA mov ebx, edx
|
||
0083879C 8BF0 mov esi, eax
|
||
0083879E 33C0 xor eax, eax
|
||
008387A0 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
008387A1 6858898300 push $00838958
|
||
|
||
***** TRY
|
||
|
|
||
008387A6 64FF30 push dword ptr fs:[eax]
|
||
008387A9 648920 mov fs:[eax], esp
|
||
008387AC 8D55FC lea edx, [ebp-$04]
|
||
008387AF 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;
|
||
|
|
||
008387B1 E8066FD5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmFKCR_SH.Tv2 : TcxGridDBTableView
|
||
|
|
||
008387B6 8B86A8030000 mov eax, [esi+$03A8]
|
||
|
||
* 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;
|
||
|
|
||
008387BC E88B3BE2FF 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;
|
||
|
|
||
008387C1 E89E93E1FF call 00651B64
|
||
|
||
* Reference to field TcxGridDBTableView.OFFS_0050
|
||
|
|
||
008387C6 8B4050 mov eax, [eax+$50]
|
||
008387C9 8D55F4 lea edx, [ebp-$0C]
|
||
008387CC 8B08 mov ecx, [eax]
|
||
008387CE FF5110 call dword ptr [ecx+$10]
|
||
008387D1 8B45F4 mov eax, [ebp-$0C]
|
||
008387D4 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008387D7 E81021BDFF call 0040A8EC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008387DC 8B9E4C030000 mov ebx, [esi+$034C]
|
||
008387E2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
008387E4 E857FCC8FF call 004C8440
|
||
008387E9 8D55E0 lea edx, [ebp-$20]
|
||
008387EC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008387EF E8F820BDFF call 0040A8EC
|
||
008387F4 8B55E0 mov edx, [ebp-$20]
|
||
008387F7 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
008387FA E8C905BEFF call 00418DC8
|
||
008387FF 8D45E4 lea eax, [ebp-$1C]
|
||
00838802 50 push eax
|
||
00838803 8B55F8 mov edx, [ebp-$08]
|
||
00838806 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838808 E8A7E3C8FF call 004C6BB4
|
||
0083880D 5A pop edx
|
||
0083880E 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00838810 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00838816 8BC3 mov eax, ebx
|
||
00838818 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
0083881A FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00838820 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00838826 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838828 E8A7D0C8FF call 004C58D4
|
||
0083882D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083882F E87857CAFF call 004DDFAC
|
||
00838834 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00838836 FF5244 call dword ptr [edx+$44]
|
||
00838839 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083883B E86C57CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838840 BA70898300 mov edx, $00838970
|
||
00838845 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838847 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083884A 688C898300 push $0083898C
|
||
0083884F FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00838852 689C898300 push $0083899C
|
||
00838857 8D55D8 lea edx, [ebp-$28]
|
||
0083885A 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083885D E88A20BDFF call 0040A8EC
|
||
00838862 FF75D8 push dword ptr [ebp-$28]
|
||
00838865 68A8898300 push $008389A8
|
||
0083886A 8D45DC lea eax, [ebp-$24]
|
||
0083886D BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00838872 E83DCEBCFF call 004056B4
|
||
00838877 8B45DC mov eax, [ebp-$24]
|
||
0083887A 50 push eax
|
||
0083887B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083887D E82A57CAFF call 004DDFAC
|
||
00838882 5A pop edx
|
||
00838883 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838885 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00838888 68B4898300 push $008389B4
|
||
0083888D 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2DerateMoneyPropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838A08 55 push ebp
|
||
00838A09 8BEC mov ebp, esp
|
||
00838A0B B905000000 mov ecx, $00000005
|
||
00838A10 6A00 push $00
|
||
00838A12 6A00 push $00
|
||
00838A14 49 dec ecx
|
||
00838A15 75F9 jnz 00838A10
|
||
00838A17 53 push ebx
|
||
00838A18 56 push esi
|
||
00838A19 8BDA mov ebx, edx
|
||
00838A1B 8BF0 mov esi, eax
|
||
00838A1D 33C0 xor eax, eax
|
||
00838A1F 55 push ebp
|
||
|
||
* Possible String Reference to: '醿<><E986BF><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00838A20 68698B8300 push $00838B69
|
||
|
||
***** TRY
|
||
|
|
||
00838A25 64FF30 push dword ptr fs:[eax]
|
||
00838A28 648920 mov fs:[eax], esp
|
||
00838A2B 8D55FC lea edx, [ebp-$04]
|
||
00838A2E 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;
|
||
|
|
||
00838A30 E8876CD5FF call 0058F6BC
|
||
00838A35 8D55F8 lea edx, [ebp-$08]
|
||
00838A38 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838A3B E8AC1EBDFF call 0040A8EC
|
||
00838A40 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
00838A44 750D jnz 00838A53
|
||
00838A46 8D45FC lea eax, [ebp-$04]
|
||
00838A49 BA808B8300 mov edx, $00838B80
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00838A4E E869C9BCFF call 004053BC
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00838A53 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00838A59 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00838A5B E8E0F9C8FF call 004C8440
|
||
00838A60 6A00 push $00
|
||
00838A62 6A00 push $00
|
||
00838A64 6A00 push $00
|
||
00838A66 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
||
|
|
||
00838A69 E8FA4CBDFF call 0040D768
|
||
00838A6E 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00838A71 E81603BEFF call 00418D8C
|
||
00838A76 8D45E8 lea eax, [ebp-$18]
|
||
00838A79 50 push eax
|
||
|
||
* Possible String Reference to: 'DerateMoney'
|
||
|
|
||
00838A7A BA8C8B8300 mov edx, $00838B8C
|
||
00838A7F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838A81 E82EE1C8FF call 004C6BB4
|
||
00838A86 5A pop edx
|
||
00838A87 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
00838A89 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00838A8F 8BC3 mov eax, ebx
|
||
00838A91 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
00838A93 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00838A99 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00838A9F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838AA1 E82ECEC8FF call 004C58D4
|
||
00838AA6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838AA8 E8FF54CAFF call 004DDFAC
|
||
00838AAD 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00838AAF FF5244 call dword ptr [edx+$44]
|
||
00838AB2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838AB4 E8F354CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838AB9 BAA08B8300 mov edx, $00838BA0
|
||
00838ABE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838AC0 FF5138 call dword ptr [ecx+$38]
|
||
00838AC3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838AC5 E8E254CAFF call 004DDFAC
|
||
00838ACA 50 push eax
|
||
00838ACB 8D45E4 lea eax, [ebp-$1C]
|
||
00838ACE 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set DerateMoney='
|
||
|
|
||
00838AD1 BABC8B8300 mov edx, $00838BBC
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00838AD6 E865CBBCFF call 00405640
|
||
00838ADB 8B55E4 mov edx, [ebp-$1C]
|
||
00838ADE 58 pop eax
|
||
00838ADF 8B08 mov ecx, [eax]
|
||
00838AE1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
00838AE4 68D88B8300 push $00838BD8
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
00838AE9 BAF08B8300 mov edx, $00838BF0
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00838AEE 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838AF4 E8BBE0C8FF call 004C6BB4
|
||
00838AF9 8D55D8 lea edx, [ebp-$28]
|
||
00838AFC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00838AFE FF5160 call dword ptr [ecx+$60]
|
||
00838B01 8B45D8 mov eax, [ebp-$28]
|
||
00838B04 8D55DC lea edx, [ebp-$24]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838B07 E8E01DBDFF call 0040A8EC
|
||
00838B0C FF75DC push dword ptr [ebp-$24]
|
||
00838B0F 68008C8300 push $00838C00
|
||
00838B14 8D45E0 lea eax, [ebp-$20]
|
||
00838B17 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00838B1C E893CBBCFF call 004056B4
|
||
00838B21 8B45E0 mov eax, [ebp-$20]
|
||
00838B24 50 push eax
|
||
00838B25 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838B27 E88054CAFF call 004DDFAC
|
||
00838B2C 5A pop edx
|
||
00838B2D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838B2F FF5138 call dword ptr [ecx+$38]
|
||
00838B32 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
00838B34 E89B53CAFF call 004DDED4
|
||
00838B39 33C0 xor eax, eax
|
||
00838B3B 5A pop edx
|
||
00838B3C 59 pop ecx
|
||
00838B3D 59 pop ecx
|
||
00838B3E 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
00838B41 68708B8300 push $00838B70
|
||
00838B46 8D45D8 lea eax, [ebp-$28]
|
||
00838B49 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00838B4E E8F5C7BCFF call 00405348
|
||
00838B53 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
00838B56 E819BBBDFF call 00414674
|
||
00838B5B 8D45F8 lea eax, [ebp-$08]
|
||
00838B5E BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00838B63 E8E0C7BCFF call 00405348
|
||
00838B68 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00838B69 E986BFBCFF jmp 00404AF4
|
||
00838B6E EBD6 jmp 00838B46
|
||
|
||
****** END
|
||
|
|
||
00838B70 5E pop esi
|
||
00838B71 5B pop ebx
|
||
00838B72 8BE5 mov esp, ebp
|
||
00838B74 5D pop ebp
|
||
00838B75 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2fstr1PropertiesEditValueChanged(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838C04 55 push ebp
|
||
00838C05 8BEC mov ebp, esp
|
||
00838C07 33C9 xor ecx, ecx
|
||
00838C09 51 push ecx
|
||
00838C0A 51 push ecx
|
||
00838C0B 51 push ecx
|
||
00838C0C 51 push ecx
|
||
00838C0D 51 push ecx
|
||
00838C0E 51 push ecx
|
||
00838C0F 51 push ecx
|
||
00838C10 53 push ebx
|
||
00838C11 56 push esi
|
||
00838C12 8BDA mov ebx, edx
|
||
00838C14 8BF0 mov esi, eax
|
||
00838C16 33C0 xor eax, eax
|
||
00838C18 55 push ebp
|
||
00838C19 68FF8C8300 push $00838CFF
|
||
|
||
***** TRY
|
||
|
|
||
00838C1E 64FF30 push dword ptr fs:[eax]
|
||
00838C21 648920 mov fs:[eax], esp
|
||
00838C24 8D55FC lea edx, [ebp-$04]
|
||
00838C27 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;
|
||
|
|
||
00838C29 E88E6AD5FF call 0058F6BC
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00838C2E 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00838C34 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838C36 E899CCC8FF call 004C58D4
|
||
00838C3B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838C3D E86A53CAFF call 004DDFAC
|
||
00838C42 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
00838C44 FF5244 call dword ptr [edx+$44]
|
||
00838C47 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838C49 E85E53CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838C4E BA148D8300 mov edx, $00838D14
|
||
00838C53 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838C55 FF5138 call dword ptr [ecx+$38]
|
||
00838C58 8D55F0 lea edx, [ebp-$10]
|
||
00838C5B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838C5E E8891CBDFF call 0040A8EC
|
||
00838C63 8B45F0 mov eax, [ebp-$10]
|
||
00838C66 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
||
|
|
||
00838C69 E8861DBDFF call 0040A9F4
|
||
00838C6E 8B4DF4 mov ecx, [ebp-$0C]
|
||
00838C71 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Possible String Reference to: ' set fstr1='
|
||
|
|
||
00838C74 BA308D8300 mov edx, $00838D30
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00838C79 E8C2C9BCFF call 00405640
|
||
00838C7E 8B45F8 mov eax, [ebp-$08]
|
||
00838C81 50 push eax
|
||
00838C82 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838C84 E82353CAFF call 004DDFAC
|
||
00838C89 5A pop edx
|
||
00838C8A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838C8C FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
00838C8F 68448D8300 push $00838D44
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
00838C94 BA5C8D8300 mov edx, $00838D5C
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00838C99 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838C9F E810DFC8FF call 004C6BB4
|
||
00838CA4 8D55E4 lea edx, [ebp-$1C]
|
||
00838CA7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_60
|
||
|
|
||
00838CA9 FF5160 call dword ptr [ecx+$60]
|
||
00838CAC 8B45E4 mov eax, [ebp-$1C]
|
||
00838CAF 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838CB2 E8351CBDFF call 0040A8EC
|
||
00838CB7 FF75E8 push dword ptr [ebp-$18]
|
||
00838CBA 686C8D8300 push $00838D6C
|
||
00838CBF 8D45EC lea eax, [ebp-$14]
|
||
00838CC2 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00838CC7 E8E8C9BCFF call 004056B4
|
||
00838CCC 8B45EC mov eax, [ebp-$14]
|
||
00838CCF 50 push eax
|
||
00838CD0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00838CD2 E8D552CAFF call 004DDFAC
|
||
00838CD7 5A pop edx
|
||
00838CD8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00838CDA FF5138 call dword ptr [ecx+$38]
|
||
00838CDD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
00838CDF E8F051CAFF call 004DDED4
|
||
00838CE4 33C0 xor eax, eax
|
||
00838CE6 5A pop edx
|
||
00838CE7 59 pop ecx
|
||
00838CE8 59 pop ecx
|
||
00838CE9 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00838CEC 68068D8300 push $00838D06
|
||
00838CF1 8D45E4 lea eax, [ebp-$1C]
|
||
00838CF4 BA07000000 mov edx, $00000007
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00838CF9 E84AC6BCFF call 00405348
|
||
00838CFE C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00838CFF E9F0BDBCFF jmp 00404AF4
|
||
00838D04 EBEB jmp 00838CF1
|
||
|
||
****** END
|
||
|
|
||
00838D06 5E pop esi
|
||
00838D07 5B pop ebx
|
||
00838D08 8BE5 mov esp, ebp
|
||
00838D0A 5D pop ebp
|
||
00838D0B C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.TchkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838D70 55 push ebp
|
||
00838D71 8BEC mov ebp, esp
|
||
00838D73 B905000000 mov ecx, $00000005
|
||
00838D78 6A00 push $00
|
||
00838D7A 6A00 push $00
|
||
00838D7C 49 dec ecx
|
||
00838D7D 75F9 jnz 00838D78
|
||
00838D7F 51 push ecx
|
||
00838D80 53 push ebx
|
||
00838D81 56 push esi
|
||
00838D82 57 push edi
|
||
00838D83 8945FC mov [ebp-$04], eax
|
||
00838D86 33C0 xor eax, eax
|
||
00838D88 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>W<EFBFBD><57><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00838D89 68988F8300 push $00838F98
|
||
|
||
***** TRY
|
||
|
|
||
00838D8E 64FF30 push dword ptr fs:[eax]
|
||
00838D91 648920 mov fs:[eax], esp
|
||
00838D94 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00838D97 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00838D9D E81EF1C8FF call 004C7EC0
|
||
00838DA2 84C0 test al, al
|
||
00838DA4 0F85CB010000 jnz 00838F75
|
||
00838DAA A0A88F8300 mov al, byte ptr [$00838FA8]
|
||
00838DAF 50 push eax
|
||
00838DB0 8D45EC lea eax, [ebp-$14]
|
||
00838DB3 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00838DB5 E8AAFFBDFF call 00418D64
|
||
00838DBA 8D4DEC lea ecx, [ebp-$14]
|
||
00838DBD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00838DC0 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00838DC6 BAB48F8300 mov edx, $00838FB4
|
||
00838DCB 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
00838DCD FF9344020000 call dword ptr [ebx+$0244]
|
||
00838DD3 84C0 test al, al
|
||
00838DD5 751D jnz 00838DF4
|
||
00838DD7 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00838DD9 B9BC8F8300 mov ecx, $00838FBC
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
00838DDE BAC48F8300 mov edx, $00838FC4
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.TNochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839054 55 push ebp
|
||
00839055 8BEC mov ebp, esp
|
||
00839057 B904000000 mov ecx, $00000004
|
||
0083905C 6A00 push $00
|
||
0083905E 6A00 push $00
|
||
00839060 49 dec ecx
|
||
00839061 75F9 jnz 0083905C
|
||
00839063 51 push ecx
|
||
00839064 53 push ebx
|
||
00839065 56 push esi
|
||
00839066 57 push edi
|
||
00839067 8945FC mov [ebp-$04], eax
|
||
0083906A 33C0 xor eax, eax
|
||
0083906C 55 push ebp
|
||
|
||
* Possible String Reference to: '霸<><E99CB8><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
0083906D 6853928300 push $00839253
|
||
|
||
***** TRY
|
||
|
|
||
00839072 64FF30 push dword ptr fs:[eax]
|
||
00839075 648920 mov fs:[eax], esp
|
||
00839078 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083907B 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00839081 E83AEEC8FF call 004C7EC0
|
||
00839086 84C0 test al, al
|
||
00839088 0F85A2010000 jnz 00839230
|
||
0083908E A064928300 mov al, byte ptr [$00839264]
|
||
00839093 50 push eax
|
||
00839094 8D45EC lea eax, [ebp-$14]
|
||
00839097 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00839099 E8C6FCBDFF call 00418D64
|
||
0083909E 8D4DEC lea ecx, [ebp-$14]
|
||
008390A1 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008390A4 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
008390AA BA70928300 mov edx, $00839270
|
||
008390AF 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
008390B1 FF9344020000 call dword ptr [ebx+$0244]
|
||
008390B7 84C0 test al, al
|
||
008390B9 751D jnz 008390D8
|
||
008390BB 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
008390BD B978928300 mov ecx, $00839278
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
008390C2 BA80928300 mov edx, $00839280
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.cxTabControl1Change(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839304 53 push ebx
|
||
00839305 8BD8 mov ebx, eax
|
||
00839307 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00839309 E862B4FFFF call 00834770
|
||
0083930E 8BC3 mov eax, ebx
|
||
|
||
|
|
||
00839310 E873B5FFFF call 00834888
|
||
00839315 5B pop ebx
|
||
00839316 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.NochkClick(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839318 55 push ebp
|
||
00839319 8BEC mov ebp, esp
|
||
0083931B B906000000 mov ecx, $00000006
|
||
00839320 6A00 push $00
|
||
00839322 6A00 push $00
|
||
00839324 49 dec ecx
|
||
00839325 75F9 jnz 00839320
|
||
00839327 51 push ecx
|
||
00839328 53 push ebx
|
||
00839329 56 push esi
|
||
0083932A 57 push edi
|
||
0083932B 8945FC mov [ebp-$04], eax
|
||
0083932E 33C0 xor eax, eax
|
||
00839330 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><<3C><><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00839331 68B3958300 push $008395B3
|
||
|
||
***** TRY
|
||
|
|
||
00839336 64FF30 push dword ptr fs:[eax]
|
||
00839339 648920 mov fs:[eax], esp
|
||
0083933C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083933F 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00839345 E876EBC8FF call 004C7EC0
|
||
0083934A 84C0 test al, al
|
||
0083934C 0F8521020000 jnz 00839573
|
||
00839352 A0C4958300 mov al, byte ptr [$008395C4]
|
||
00839357 50 push eax
|
||
00839358 8D45EC lea eax, [ebp-$14]
|
||
0083935B B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
0083935D E802FABDFF call 00418D64
|
||
00839362 8D4DEC lea ecx, [ebp-$14]
|
||
00839365 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00839368 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083936E BAD0958300 mov edx, $008395D0
|
||
00839373 8B18 mov ebx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
||
|
|
||
00839375 FF9344020000 call dword ptr [ebx+$0244]
|
||
0083937B 84C0 test al, al
|
||
0083937D 751D jnz 0083939C
|
||
0083937F 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00839381 B9D8958300 mov ecx, $008395D8
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
00839386 BAE0958300 mov edx, $008395E0
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.N1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
008396AC B201 mov dl, $01
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008396AE 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
||
|
|
||
008396B4 E8EBEDF7FF call 007B84A4
|
||
008396B9 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.N2Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
008396BC 33D2 xor edx, edx
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008396BE 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
||
|
|
||
008396C4 E8DBEDF7FF call 007B84A4
|
||
008396C9 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.CheckBox1Click(Sender : TObject);
|
||
begin
|
||
(*
|
||
008396CC 55 push ebp
|
||
008396CD 8BEC mov ebp, esp
|
||
008396CF 33C9 xor ecx, ecx
|
||
008396D1 51 push ecx
|
||
008396D2 51 push ecx
|
||
008396D3 51 push ecx
|
||
008396D4 51 push ecx
|
||
008396D5 51 push ecx
|
||
008396D6 51 push ecx
|
||
008396D7 51 push ecx
|
||
008396D8 51 push ecx
|
||
008396D9 53 push ebx
|
||
008396DA 56 push esi
|
||
008396DB 57 push edi
|
||
008396DC 8BF0 mov esi, eax
|
||
008396DE 33C0 xor eax, eax
|
||
008396E0 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Բ<EFBFBD><D4B2><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
008396E1 681B988300 push $0083981B
|
||
|
||
***** TRY
|
||
|
|
||
008396E6 64FF30 push dword ptr fs:[eax]
|
||
008396E9 648920 mov fs:[eax], esp
|
||
008396EC BA34988300 mov edx, $00839834
|
||
|
||
* Reference to control TfrmFKCR_SH.Label12 : TLabel
|
||
|
|
||
008396F1 8B8690030000 mov eax, [esi+$0390]
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
008396F7 E824EFC4FF call 00488620
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
008396FC 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00839702 E8B9E7C8FF call 004C7EC0
|
||
00839707 84C0 test al, al
|
||
00839709 0F85E6000000 jnz 008397F5
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
0083970F 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00839715 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
00839717 E838DEC8FF call 004C7554
|
||
0083971C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
0083971E E80DE9C8FF call 004C8030
|
||
00839723 E9B2000000 jmp 008397DA
|
||
00839728 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083972A E811EDC8FF call 004C8440
|
||
|
||
* Reference to control TfrmFKCR_SH.CheckBox1 : TCheckBox
|
||
|
|
||
0083972F 8B8688030000 mov eax, [esi+$0388]
|
||
00839735 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
00839737 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0083973D 8BD0 mov edx, eax
|
||
0083973F 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00839742 E81DF6BDFF call 00418D64
|
||
00839747 8D45F0 lea eax, [ebp-$10]
|
||
0083974A 50 push eax
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
0083974B BA40988300 mov edx, $00839840
|
||
00839750 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00839752 E85DD4C8FF call 004C6BB4
|
||
00839757 5A pop edx
|
||
00839758 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TClientDataSet.DestroyFields()
|
||
|
|
||
0083975A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Reference to control TfrmFKCR_SH.CheckBox1 : TCheckBox
|
||
|
|
||
00839760 8B8688030000 mov eax, [esi+$0388]
|
||
00839766 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TCheckBox.GetChecked()
|
||
|
|
||
00839768 FF92C8000000 call dword ptr [edx+$00C8]
|
||
0083976E 3C01 cmp al, $01
|
||
00839770 7557 jnz 008397C9
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00839772 BA50988300 mov edx, $00839850
|
||
00839777 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00839779 E836D4C8FF call 004C6BB4
|
||
0083977E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
00839780 FF524C call dword ptr [edx+$4C]
|
||
00839783 DF7DE4 fistp qword ptr [ebp-$1C]
|
||
00839786 9B wait
|
||
00839787 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to control TfrmFKCR_SH.Label12 : TLabel
|
||
|
|
||
0083978A 8BBE90030000 mov edi, [esi+$0390]
|
||
00839790 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
||
|
|
||
00839792 E859EEC4FF call 004885F0
|
||
00839797 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083979A E88D3FBDFF call 0040D72C
|
||
0083979F D80D58988300 fmul dword ptr [$00839858]
|
||
008397A5 DF6DE4 fild qword ptr [ebp-$1C]
|
||
008397A8 DEC1 faddp st(1), st(0)
|
||
008397AA D83558988300 fdiv dword ptr [$00839858]
|
||
008397B0 83C4F4 add esp, -$0C
|
||
008397B3 DB3C24 fstp tbyte ptr [esp]
|
||
008397B6 9B wait
|
||
008397B7 8D45EC lea eax, [ebp-$14]
|
||
|
||
|
|
||
008397BA E8ED3DBDFF call 0040D5AC
|
||
008397BF 8B55EC mov edx, [ebp-$14]
|
||
008397C2 8BC7 mov eax, edi
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
008397C4 E857EEC4FF call 00488620
|
||
008397C9 8BC3 mov eax, ebx
|
||
008397CB 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TClientDataSet.Post()
|
||
|
|
||
008397CD FF924C020000 call dword ptr [edx+$024C]
|
||
008397D3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Next(TDataSet);
|
||
|
|
||
008397D5 E872EBC8FF call 004C834C
|
||
|
||
* Reference to field TClientDataSet.Eof : Boolean
|
||
|
|
||
008397DA 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
|
||
008397E1 0F8441FFFFFF jz 00839728
|
||
008397E7 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.First(TDataSet);
|
||
|
|
||
008397E9 E842E8C8FF call 004C8030
|
||
008397EE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
008397F0 E87FDDC8FF call 004C7574
|
||
008397F5 33C0 xor eax, eax
|
||
008397F7 5A pop edx
|
||
008397F8 59 pop ecx
|
||
008397F9 59 pop ecx
|
||
008397FA 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '_^[<5B><>]<5D>'
|
||
|
|
||
008397FD 6822988300 push $00839822
|
||
00839802 8D45E0 lea eax, [ebp-$20]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
00839805 E81ABBBCFF call 00405324
|
||
0083980A 8D45EC lea eax, [ebp-$14]
|
||
|
||
* Reference to: System.@LStrClr(void;void);
|
||
|
|
||
0083980D E812BBBCFF call 00405324
|
||
00839812 8D45F0 lea eax, [ebp-$10]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
00839815 E85AAEBDFF call 00414674
|
||
0083981A C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083981B E9D4B2BCFF jmp 00404AF4
|
||
00839820 EBE0 jmp 00839802
|
||
|
||
****** END
|
||
|
|
||
00839822 5F pop edi
|
||
00839823 5E pop esi
|
||
00839824 5B pop ebx
|
||
00839825 8BE5 mov esp, ebp
|
||
00839827 5D pop ebp
|
||
00839828 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH.v2SselPropertiesChange(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083985C 53 push ebx
|
||
0083985D 56 push esi
|
||
0083985E 8BD8 mov ebx, eax
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00839860 BA9C988300 mov edx, $0083989C
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00839865 8BB34C030000 mov esi, [ebx+$034C]
|
||
0083986B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083986D E842D3C8FF call 004C6BB4
|
||
00839872 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
||
|
|
||
00839874 FF524C call dword ptr [edx+$4C]
|
||
00839877 D835A4988300 fdiv dword ptr [$008398A4]
|
||
0083987D 83C4F8 add esp, -$08
|
||
00839880 DD1C24 fstp qword ptr [esp]
|
||
00839883 9B wait
|
||
|
||
* Reference to control TfrmFKCR_SH.Label12 : TLabel
|
||
|
|
||
00839884 8B9390030000 mov edx, [ebx+$0390]
|
||
0083988A 8BC6 mov eax, esi
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
||
|
|
||
0083988C E8FFD4F7FF call 007B6D90
|
||
00839891 5E pop esi
|
||
00839892 5B pop ebx
|
||
00839893 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00834889(Sender : TObject);
|
||
begin
|
||
(*
|
||
00834889 8BEC mov ebp, esp
|
||
0083488B 33C9 xor ecx, ecx
|
||
0083488D 51 push ecx
|
||
0083488E 51 push ecx
|
||
0083488F 51 push ecx
|
||
00834890 51 push ecx
|
||
00834891 51 push ecx
|
||
00834892 53 push ebx
|
||
00834893 56 push esi
|
||
00834894 8945FC mov [ebp-$04], eax
|
||
00834897 33C0 xor eax, eax
|
||
00834899 55 push ebp
|
||
0083489A 68E04A8300 push $00834AE0
|
||
|
||
***** TRY
|
||
|
|
||
0083489F 64FF30 push dword ptr fs:[eax]
|
||
008348A2 648920 mov fs:[eax], esp
|
||
008348A5 33C0 xor eax, eax
|
||
008348A7 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>1'
|
||
|
|
||
008348A8 68BE4A8300 push $00834ABE
|
||
|
||
***** TRY
|
||
|
|
||
008348AD 64FF30 push dword ptr fs:[eax]
|
||
008348B0 648920 mov fs:[eax], esp
|
||
008348B3 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
008348B6 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
||
|
|
||
008348BC E8932CC9FF call 004C7554
|
||
008348C1 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
008348C4 8B9820030000 mov ebx, [eax+$0320]
|
||
008348CA 33D2 xor edx, edx
|
||
008348CC 8BC3 mov eax, ebx
|
||
008348CE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_0190
|
||
|
|
||
008348D0 FF9190010000 call dword ptr [ecx+$0190]
|
||
008348D6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
008348D8 E8F70FC9FF call 004C58D4
|
||
008348DD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008348DF E8C896CAFF call 004DDFAC
|
||
008348E4 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_44
|
||
|
|
||
008348E6 FF5244 call dword ptr [edx+$44]
|
||
008348E9 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008348EB E8BC96CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' select A.*,C.conNo,KHZJM=dbo.getPi
|
||
| nYin(A.FactoryName)'
|
||
|
|
||
008348F0 BAF84A8300 mov edx, $00834AF8
|
||
008348F5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008348F7 FF5138 call dword ptr [ecx+$38]
|
||
008348FA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008348FC E8AB96CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' from YF_Money_CR A'
|
||
|
|
||
00834901 BA384B8300 mov edx, $00834B38
|
||
00834906 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00834908 FF5138 call dword ptr [ecx+$38]
|
||
0083490B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083490D E89A96CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' inner join YF_Money_KC B on A.CRID
|
||
| =B.CRID'
|
||
|
|
||
00834912 BA584B8300 mov edx, $00834B58
|
||
00834917 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00834919 FF5138 call dword ptr [ecx+$38]
|
||
0083491C 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083491E E88996CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' left join conTract_main C on A.Mai
|
||
| nId=C.MainId'
|
||
|
|
||
00834923 BA8C4B8300 mov edx, $00834B8C
|
||
00834928 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
0083492A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: 'where A.CRTime>=''
|
||
|
|
||
0083492D 68C44B8300 push $00834BC4
|
||
00834932 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.begdate : TDateTimePicker
|
||
|
|
||
00834935 8B803C030000 mov eax, [eax+$033C]
|
||
0083493B FFB014020000 push dword ptr [eax+$0214]
|
||
00834941 FFB010020000 push dword ptr [eax+$0210]
|
||
00834947 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
0083494A B8E04B8300 mov eax, $00834BE0
|
||
|
||
|
|
||
0083494F E868A2BDFF call 0040EBBC
|
||
00834954 FF75F4 push dword ptr [ebp-$0C]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
00834957 68F44B8300 push $00834BF4
|
||
0083495C 8D45F8 lea eax, [ebp-$08]
|
||
0083495F BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00834964 E84B0DBDFF call 004056B4
|
||
00834969 8B45F8 mov eax, [ebp-$08]
|
||
0083496C 50 push eax
|
||
0083496D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
0083496F E83896CAFF call 004DDFAC
|
||
00834974 5A pop edx
|
||
00834975 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00834977 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' and CRTime<''
|
||
|
|
||
0083497A 68004C8300 push $00834C00
|
||
0083497F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.Enddate : TDateTimePicker
|
||
|
|
||
00834982 8B8040030000 mov eax, [eax+$0340]
|
||
00834988 DD8010020000 fld qword ptr [eax+$0210]
|
||
0083498E D805104C8300 fadd dword ptr [$00834C10]
|
||
00834994 83C4F8 add esp, -$08
|
||
00834997 DD1C24 fstp qword ptr [esp]
|
||
0083499A 9B wait
|
||
0083499B 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Possible String Reference to: 'yyyy-MM-dd'
|
||
|
|
||
0083499E B8E04B8300 mov eax, $00834BE0
|
||
|
||
|
|
||
008349A3 E814A2BDFF call 0040EBBC
|
||
008349A8 FF75EC push dword ptr [ebp-$14]
|
||
|
||
* Possible String Reference to: '' '
|
||
|
|
||
008349AB 68F44B8300 push $00834BF4
|
||
008349B0 8D45F0 lea eax, [ebp-$10]
|
||
008349B3 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008349B8 E8F70CBDFF call 004056B4
|
||
008349BD 8B45F0 mov eax, [ebp-$10]
|
||
008349C0 50 push eax
|
||
008349C1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008349C3 E8E495CAFF call 004DDFAC
|
||
008349C8 5A pop edx
|
||
008349C9 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008349CB FF5138 call dword ptr [ecx+$38]
|
||
008349CE 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008349D0 E8D795CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.CRType='<27><><EFBFBD><EFBFBD><EFBFBD>Ǽ<EFBFBD>' '
|
||
|
|
||
008349D5 BA1C4C8300 mov edx, $00834C1C
|
||
008349DA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008349DC FF5138 call dword ptr [ecx+$38]
|
||
008349DF 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.cxTabControl1 : TcxTabControl
|
||
|
|
||
008349E2 8B805C030000 mov eax, [eax+$035C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
008349E8 83B83C03000000 cmp dword ptr [eax+$033C], +$00
|
||
008349EF 7511 jnz 00834A02
|
||
008349F1 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
008349F3 E8B495CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.status='1' '
|
||
|
|
||
008349F8 BA404C8300 mov edx, $00834C40
|
||
008349FD 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
008349FF FF5138 call dword ptr [ecx+$38]
|
||
00834A02 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.cxTabControl1 : TcxTabControl
|
||
|
|
||
00834A05 8B805C030000 mov eax, [eax+$035C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00834A0B 83B83C03000001 cmp dword ptr [eax+$033C], +$01
|
||
00834A12 7511 jnz 00834A25
|
||
00834A14 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00834A16 E89195CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and A.status='2' '
|
||
|
|
||
00834A1B BA5C4C8300 mov edx, $00834C5C
|
||
00834A20 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00834A22 FF5138 call dword ptr [ecx+$38]
|
||
00834A25 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.cxTabControl1 : TcxTabControl
|
||
|
|
||
00834A28 8B805C030000 mov eax, [eax+$035C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
00834A2E 83B83C03000002 cmp dword ptr [eax+$033C], +$02
|
||
00834A35 7511 jnz 00834A48
|
||
00834A37 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
|
|
||
00834A39 E86E95CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: ' and isnull(A.Status,'0')<>'0' '
|
||
|
|
||
00834A3E BA784C8300 mov edx, $00834C78
|
||
00834A43 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TADOQuery.OFFS_38
|
||
|
|
||
00834A45 FF5138 call dword ptr [ecx+$38]
|
||
00834A48 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
00834A4A E8790EC9FF call 004C58C8
|
||
00834A4F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00834A52 8B904C030000 mov edx, [eax+$034C]
|
||
00834A58 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
00834A5B 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
|
|
||
00834A61 E82A24F8FF call 007B6E90
|
||
00834A66 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.CDS_HZ : TClientDataSet
|
||
|
|
||
00834A69 8B904C030000 mov edx, [eax+$034C]
|
||
00834A6F 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
00834A72 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
|
|
||
00834A78 E89B25F8FF call 007B7018
|
||
00834A7D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.Label12 : TLabel
|
||
|
|
||
00834A80 8B8090030000 mov eax, [eax+$0390]
|
||
00834A86 BAA04C8300 mov edx, $00834CA0
|
||
|
||
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
||
|
|
||
00834A8B E8903BC5FF call 00488620
|
||
00834A90 33C0 xor eax, eax
|
||
00834A92 5A pop edx
|
||
00834A93 59 pop ecx
|
||
00834A94 59 pop ecx
|
||
00834A95 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00834A98 68C54A8300 push $00834AC5
|
||
00834A9D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryMain : TADOQuery
|
||
|
|
||
00834AA0 8B8020030000 mov eax, [eax+$0320]
|
||
|
||
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
||
|
|
||
00834AA6 E8C92AC9FF call 004C7574
|
||
00834AAB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ToolButton2 : TToolButton
|
||
|
|
||
00834AAE 8B8014030000 mov eax, [eax+$0314]
|
||
00834AB4 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
00834AB8 E897FABCFF call 00404554
|
||
00834ABD C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00834ABE E93100BDFF jmp 00404AF4
|
||
00834AC3 EBD8 jmp 00834A9D
|
||
|
||
****** END
|
||
|
|
||
00834AC5 33C0 xor eax, eax
|
||
00834AC7 5A pop edx
|
||
00834AC8 59 pop ecx
|
||
00834AC9 59 pop ecx
|
||
00834ACA 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
00834ACD 68E74A8300 push $00834AE7
|
||
00834AD2 8D45EC lea eax, [ebp-$14]
|
||
00834AD5 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00834ADA E86908BDFF call 00405348
|
||
00834ADF C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00834AE0 E90F00BDFF jmp 00404AF4
|
||
00834AE5 EBEB jmp 00834AD2
|
||
|
||
****** END
|
||
|
|
||
00834AE7 5E pop esi
|
||
00834AE8 5B pop ebx
|
||
00834AE9 8BE5 mov esp, ebp
|
||
00834AEB 5D pop ebp
|
||
00834AEC C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008352A5(Sender : TObject);
|
||
begin
|
||
(*
|
||
008352A5 8BEC mov ebp, esp
|
||
008352A7 B92B000000 mov ecx, $0000002B
|
||
008352AC 6A00 push $00
|
||
008352AE 6A00 push $00
|
||
008352B0 49 dec ecx
|
||
008352B1 75F9 jnz 008352AC
|
||
008352B3 51 push ecx
|
||
008352B4 53 push ebx
|
||
008352B5 56 push esi
|
||
008352B6 57 push edi
|
||
008352B7 8945FC mov [ebp-$04], eax
|
||
008352BA 33C0 xor eax, eax
|
||
008352BC 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
008352BD 68665A8300 push $00835A66
|
||
|
||
***** TRY
|
||
|
|
||
008352C2 64FF30 push dword ptr fs:[eax]
|
||
008352C5 648920 mov fs:[eax], esp
|
||
008352C8 33C0 xor eax, eax
|
||
008352CA 55 push ebp
|
||
008352CB 6815598300 push $00835915
|
||
|
||
***** TRY
|
||
|
|
||
008352D0 64FF30 push dword ptr fs:[eax]
|
||
008352D3 648920 mov fs:[eax], esp
|
||
008352D6 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
008352D9 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
008352DF E8486BCAFF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
||
|
|
||
008352E4 E8ABCFC9FF call 004D2294
|
||
|
||
* Possible String Reference to: 'YF_Money_CR'
|
||
|
|
||
008352E9 68845A8300 push $00835A84
|
||
008352EE 6A04 push $04
|
||
008352F0 6A01 push $01
|
||
008352F2 8D55F8 lea edx, [ebp-$08]
|
||
008352F5 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
008352F8 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Possible String Reference to: 'FK'
|
||
|
|
||
008352FE B9985A8300 mov ecx, $00835A98
|
||
|
||
* Reference to : TfrmSelExportField._PROC_007B7708()
|
||
|
|
||
00835303 E80024F8FF call 007B7708
|
||
00835308 84C0 test al, al
|
||
0083530A 753A jnz 00835346
|
||
0083530C 33DB xor ebx, ebx
|
||
0083530E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control TfrmFKCR_SH.ADOQueryCmd : TADOQuery
|
||
|
|
||
00835311 8B800C030000 mov eax, [eax+$030C]
|
||
|
||
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
||
|
|
||
00835317 E8106BCAFF call 004DBE2C
|
||
|
||
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
||
|
|
||
0083531C E8BFCFC9FF call 004D22E0
|
||
00835321 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00835323 B99C5A8300 mov ecx, $00835A9C
|
||
|
||
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
||
|
|
||
00835328 BAA45A8300 mov edx, $00835AA4
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00835B25(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835B25 7064 jo 00835B8B
|
||
00835B27 61 popa
|
||
00835B28 7465 jz 00835B8F
|
||
00835B2A 205946 and [ecx+$46], bl
|
||
00835B2D 5F pop edi
|
||
00835B2E 4D dec ebp
|
||
00835B2F 6F outsd
|
||
00835B30 6E outsb
|
||
00835B31 65795F jns 00835B93
|
||
00835B34 43 inc ebx
|
||
00835B35 52 push edx
|
||
00835B36 49 dec ecx
|
||
00835B37 44 inc esp
|
||
00835B38 207365 and [ebx+$65], dh
|
||
00835B3B 7420 jz 00835B5D
|
||
00835B3D 43 inc ebx
|
||
00835B3E 52 push edx
|
||
00835B3F 49 dec ecx
|
||
00835B40 44 inc esp
|
||
00835B41 3D43524944 cmp eax, $44495243
|
||
00835B46 2B31 sub esi, dword ptr [ecx]
|
||
00835B48 0000 add [eax], al
|
||
|
||
00835B4A 0000 add [eax], al
|
||
|
||
00835B4C FFFF DB $FF, $FF //
|
||
00835B4E FFFF DB $FF, $FF //
|
||
00835B50 1C00 sbb al, $00
|
||
00835B52 0000 add [eax], al
|
||
|
||
00835B54 7365 jnb 00835BBB
|
||
00835B56 6C insb
|
||
00835B57 656374202A arpl gs:[eax+$2A], si
|
||
00835B5C 206672 and [esi+$72], ah
|
||
00835B5F 6F outsd
|
||
00835B60 6D insd
|
||
00835B61 205946 and [ecx+$46], bl
|
||
00835B64 5F pop edi
|
||
00835B65 4D dec ebp
|
||
00835B66 6F outsd
|
||
00835B67 6E outsb
|
||
00835B68 65795F jns 00835BCA
|
||
00835B6B 43 inc ebx
|
||
00835B6C 52 push edx
|
||
00835B6D 49 dec ecx
|
||
00835B6E 44 inc esp
|
||
00835B6F 2000 and [eax], al
|
||
00835B71 0000 add [eax], al
|
||
|
||
00835B73 00FF add bh, bh
|
||
00835B75 FFFF DB $FF, $FF //
|
||
00835B77 FF2400 jmp dword ptr [eax+eax]
|
||
00835B7A 0000 add [eax], al
|
||
|
||
00835B7C 7365 jnb 00835BE3
|
||
00835B7E 6C insb
|
||
00835B7F 656374202A arpl gs:[eax+$2A], si
|
||
00835B84 206672 and [esi+$72], ah
|
||
00835B87 6F outsd
|
||
00835B88 6D insd
|
||
00835B89 205946 and [ecx+$46], bl
|
||
00835B8C 5F pop edi
|
||
00835B8D 4D dec ebp
|
||
00835B8E 6F outsd
|
||
00835B8F 6E outsb
|
||
00835B90 65795F jns 00835BF2
|
||
00835B93 4B dec ebx
|
||
00835B94 43 inc ebx
|
||
00835B95 207768 and [edi+$68], dh
|
||
00835B98 657265 jb 00835C00
|
||
00835B9B 2031 and [ecx], dh
|
||
00835B9D 3C3E cmp al, $3E
|
||
00835B9F 3100 xor [eax], eax
|
||
00835BA1 0000 add [eax], al
|
||
|
||
00835BA3 00FF add bh, bh
|
||
00835BA5 FFFF DB $FF, $FF //
|
||
00835BA7 FF09 dec dword ptr [ecx]
|
||
00835BA9 0000 add [eax], al
|
||
|
||
00835BAB 004661 add [esi+$61], al
|
||
00835BAE 63746F72 arpl [edi+ebp*2+$72], si
|
||
00835BB2 794E jns 00835C02
|
||
00835BB4 6F outsd
|
||
00835BB5 0000 add [eax], al
|
||
|
||
00835BB7 00FF add bh, bh
|
||
00835BB9 FFFF DB $FF, $FF //
|
||
00835BBB FF07 inc dword ptr [edi]
|
||
00835BBD 0000 add [eax], al
|
||
|
||
00835BBF 005A64 add [edx+$64], bl
|
||
00835BC2 7953 jns 00835C17
|
||
00835BC4 7472 jz 00835C38
|
||
00835BC6 3100 xor [eax], eax
|
||
00835BC8 FFFF DB $FF, $FF //
|
||
00835BCA FFFF DB $FF, $FF //
|
||
00835BCC 06 push es
|
||
00835BCD 0000 add [eax], al
|
||
|
||
00835BCF 00D3 add bl, dl
|
||
00835BD1 A6 cmpsb
|
||
00835BD2 B8B6B8B600 mov eax, $00B6B8B6
|
||
00835BD7 00FF add bh, bh
|
||
00835BD9 FFFF DB $FF, $FF //
|
||
00835BDB FF2400 jmp dword ptr [eax+eax]
|
||
00835BDE 0000 add [eax], al
|
||
|
||
00835BE0 7365 jnb 00835C47
|
||
00835BE2 6C insb
|
||
00835BE3 656374202A arpl gs:[eax+$2A], si
|
||
00835BE8 206672 and [esi+$72], ah
|
||
00835BEB 6F outsd
|
||
00835BEC 6D insd
|
||
00835BED 205946 and [ecx+$46], bl
|
||
00835BF0 5F pop edi
|
||
00835BF1 4D dec ebp
|
||
00835BF2 6F outsd
|
||
00835BF3 6E outsb
|
||
00835BF4 65795F jns 00835C56
|
||
00835BF7 43 inc ebx
|
||
00835BF8 52 push edx
|
||
00835BF9 207768 and [edi+$68], dh
|
||
00835BFC 657265 jb 00835C64
|
||
00835BFF 2031 and [ecx], dh
|
||
00835C01 3C3E cmp al, $3E
|
||
00835C03 3100 xor [eax], eax
|
||
00835C05 0000 add [eax], al
|
||
|
||
00835C07 00FF add bh, bh
|
||
00835C09 FFFF DB $FF, $FF //
|
||
00835C0B FF0400 inc dword ptr [eax+eax]
|
||
00835C0E 0000 add [eax], al
|
||
|
||
00835C10 59 pop ecx
|
||
00835C11 46 inc esi
|
||
00835C12 49 dec ecx
|
||
00835C13 44 inc esp
|
||
00835C14 0000 add [eax], al
|
||
|
||
00835C16 0000 add [eax], al
|
||
|
||
00835C18 FFFF DB $FF, $FF //
|
||
00835C1A FFFF DB $FF, $FF //
|
||
00835C1C 06 push es
|
||
00835C1D 0000 add [eax], al
|
||
|
||
00835C1F 004669 add [esi+$69], al
|
||
00835C22 6C insb
|
||
00835C23 6C insb
|
||
00835C24 657200 jb 00835C27
|
||
00835C27 00FF add bh, bh
|
||
00835C29 FFFF DB $FF, $FF //
|
||
00835C2B FF06 inc dword ptr [esi]
|
||
00835C2D 0000 add [eax], al
|
||
|
||
00835C2F 004352 add [ebx+$52], al
|
||
00835C32 54 push esp
|
||
00835C33 7970 jns 00835CA5
|
||
00835C35 650000 add gs:[eax], al
|
||
00835C38 FFFF DB $FF, $FF //
|
||
00835C3A FFFF DB $FF, $FF //
|
||
00835C3C 0800 or [eax], al
|
||
00835C3E 0000 add [eax], al
|
||
|
||
00835C40 B8B6BFEEB5 mov eax, $B5EEBFB6
|
||
00835C45 C7BCC700000000FFFFFFFF mov dword ptr [edi+eax*8+$0000], $FFFFFFFF
|
||
00835C50 06 push es
|
||
00835C51 0000 add [eax], al
|
||
|
||
00835C53 004352 add [ebx+$52], al
|
||
00835C56 46 inc esi
|
||
00835C57 6C insb
|
||
00835C58 61 popa
|
||
00835C59 670000 add [bx+si], al
|
||
00835C5C FFFF DB $FF, $FF //
|
||
00835C5E FFFF DB $FF, $FF //
|
||
00835C60 07 pop es
|
||
00835C61 0000 add [eax], al
|
||
|
||
00835C63 005174 add [ecx+$74], dl
|
||
00835C66 7946 jns 00835CAE
|
||
00835C68 6C insb
|
||
00835C69 61 popa
|
||
00835C6A 6700FF add bh, bh
|
||
00835C6D FFFF DB $FF, $FF //
|
||
00835C6F FF06 inc dword ptr [esi]
|
||
00835C71 0000 add [eax], al
|
||
|
||
00835C73 004352 add [ebx+$52], al
|
||
00835C76 54 push esp
|
||
00835C77 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
|
||
00835C7E FFFF DB $FF, $FF //
|
||
00835C80 0A00 or al, byte ptr [eax]
|
||
00835C82 0000 add [eax], al
|
||
|
||
00835C84 7979 jns 00835CFF
|
||
00835C86 7979 jns 00835D01
|
||
00835C88 2D4D4D2D64 sub eax, $642D4D4D
|
||
00835C8D 640000 add fs:[eax], al
|
||
00835C90 FFFF DB $FF, $FF //
|
||
00835C92 FFFF DB $FF, $FF //
|
||
00835C94 0A00 or al, byte ptr [eax]
|
||
00835C96 0000 add [eax], al
|
||
|
||
00835C98 59 pop ecx
|
||
00835C99 46 inc esi
|
||
00835C9A 44 inc esp
|
||
00835C9B 656646 inc si
|
||
00835C9E 6C insb
|
||
00835C9F 61 popa
|
||
00835CA0 673100 xor [bx+si], eax
|
||
00835CA3 00FF add bh, bh
|
||
00835CA5 FFFF DB $FF, $FF //
|
||
00835CA7 FF06 inc dword ptr [esi]
|
||
00835CA9 0000 add [eax], al
|
||
|
||
00835CAB 007374 add [ebx+$74], dh
|
||
00835CAE 61 popa
|
||
00835CAF 7475 jz 00835D26
|
||
00835CB1 7300 jnb 00835CB3
|
||
00835CB3 00FF add bh, bh
|
||
00835CB5 FFFF DB $FF, $FF //
|
||
00835CB7 FF0400 inc dword ptr [eax+eax]
|
||
00835CBA 0000 add [eax], al
|
||
|
||
00835CBC 59 pop ecx
|
||
00835CBD 46 inc esi
|
||
00835CBE 49 dec ecx
|
||
00835CBF 640000 add fs:[eax], al
|
||
00835CC2 0000 add [eax], al
|
||
|
||
00835CC4 D4 aam
|
||
00835CC5 F6D0 not al
|
||
00835CC7 D0CA ror dl, 1
|
||
00835CC9 A7 cmpsd
|
||
00835CCA B0DC mov al, $DC
|
||
00835CCC 2100 and [eax], eax
|
||
00835CCE 0000 add [eax], al
|
||
|
||
00835CD0 55 push ebp
|
||
00835CD1 8BEC mov ebp, esp
|
||
00835CD3 B908000000 mov ecx, $00000008
|
||
00835CD8 6A00 push $00
|
||
00835CDA 6A00 push $00
|
||
00835CDC 49 dec ecx
|
||
00835CDD 75F9 jnz 00835CD8
|
||
00835CDF 51 push ecx
|
||
00835CE0 53 push ebx
|
||
00835CE1 56 push esi
|
||
00835CE2 8BDA mov ebx, edx
|
||
00835CE4 8BF0 mov esi, eax
|
||
00835CE6 33C0 xor eax, eax
|
||
00835CE8 55 push ebp
|
||
00835CE9 68DE5E8300 push $00835EDE
|
||
|
||
***** TRY
|
||
|
|
||
00835CEE 64FF30 push dword ptr fs:[eax]
|
||
00835CF1 648920 mov fs:[eax], esp
|
||
00835CF4 8D55FC lea edx, [ebp-$04]
|
||
00835CF7 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;
|
||
|
|
||
00835CF9 E8BE99D5FF call 0058F6BC
|
||
|
||
* Reference to control Label17 : TLabel
|
||
|
|
||
00835CFE 8B86A8030000 mov eax, [esi+$03A8]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
00835D04 E84366E2FF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
00835D09 E856BEE1FF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
00835D0E 8B4050 mov eax, [eax+$50]
|
||
00835D11 8D55F4 lea edx, [ebp-$0C]
|
||
00835D14 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
00835D16 FF5110 call dword ptr [ecx+$10]
|
||
00835D19 8B45F4 mov eax, [ebp-$0C]
|
||
00835D1C 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835D1F E8C84BBDFF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00835D24 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00835D2A 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00835D2C E80F27C9FF call 004C8440
|
||
00835D31 8D55E0 lea edx, [ebp-$20]
|
||
00835D34 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835D37 E8B04BBDFF call 0040A8EC
|
||
00835D3C 8B55E0 mov edx, [ebp-$20]
|
||
00835D3F 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
00835D42 E88130BEFF call 00418DC8
|
||
00835D47 8D45E4 lea eax, [ebp-$1C]
|
||
00835D4A 50 push eax
|
||
00835D4B 8B55F8 mov edx, [ebp-$08]
|
||
00835D4E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00835D50 E85F0EC9FF call 004C6BB4
|
||
00835D55 5A pop edx
|
||
00835D56 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
00835D58 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00835D5E 8BC3 mov eax, ebx
|
||
00835D60 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
00835D62 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00835D68 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00835D6E 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00835D70 E85FFBC8FF call 004C58D4
|
||
00835D75 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00835D77 E83082CAFF call 004DDFAC
|
||
00835D7C 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00835D7E FF5244 call dword ptr [edx+$44]
|
||
00835D81 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00835D83 E82482CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
||
|
|
||
00835D88 BAF45E8300 mov edx, $00835EF4
|
||
00835D8D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00835D8F FF5138 call dword ptr [ecx+$38]
|
||
00835D92 8D55DC lea edx, [ebp-$24]
|
||
00835D95 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835D98 E84F4BBDFF call 0040A8EC
|
||
00835D9D 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00835DA1 7440 jz 00835DE3
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00835DA3 68105F8300 push $00835F10
|
||
00835DA8 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00835DAB 68205F8300 push $00835F20
|
||
00835DB0 8D55D4 lea edx, [ebp-$2C]
|
||
00835DB3 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835DB6 E8314BBDFF call 0040A8EC
|
||
00835DBB FF75D4 push dword ptr [ebp-$2C]
|
||
00835DBE 682C5F8300 push $00835F2C
|
||
00835DC3 8D45D8 lea eax, [ebp-$28]
|
||
00835DC6 BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00835DCB E8E4F8BCFF call 004056B4
|
||
00835DD0 8B45D8 mov eax, [ebp-$28]
|
||
00835DD3 50 push eax
|
||
00835DD4 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00835DD6 E8D181CAFF call 004DDFAC
|
||
00835DDB 5A pop edx
|
||
00835DDC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00835DDE FF5138 call dword ptr [ecx+$38]
|
||
00835DE1 EB2B jmp 00835E0E
|
||
00835DE3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00835DE5 E8C281CAFF call 004DDFAC
|
||
00835DEA 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00835DEB 68105F8300 push $00835F10
|
||
00835DF0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
00835DF3 68385F8300 push $00835F38
|
||
00835DF8 8D45D0 lea eax, [ebp-$30]
|
||
00835DFB BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00835E00 E8AFF8BCFF call 004056B4
|
||
00835E05 8B55D0 mov edx, [ebp-$30]
|
||
00835E08 58 pop eax
|
||
00835E09 8B08 mov ecx, [eax]
|
||
00835E0B FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00835E0E 68485F8300 push $00835F48
|
||
00835E13 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00835EF5(Sender : TObject);
|
||
begin
|
||
(*
|
||
00835EF5 50 push eax
|
||
00835EF6 6461 popa
|
||
00835EF8 7465 jz 00835F5F
|
||
00835EFA 205943 and [ecx+$43], bl
|
||
00835EFD 4C dec esp
|
||
00835EFE 5F pop edi
|
||
00835EFF 53 push ebx
|
||
00835F00 47 inc edi
|
||
00835F01 5F pop edi
|
||
00835F02 48 dec eax
|
||
00835F03 5A pop edx
|
||
00835F04 2000 and [eax], al
|
||
00835F06 0000 add [eax], al
|
||
|
||
00835F08 FFFF DB $FF, $FF //
|
||
00835F0A FFFF DB $FF, $FF //
|
||
00835F0C 0500000020 add eax, +$20000000
|
||
00835F11 53 push ebx
|
||
00835F12 657420 jz 00835F35
|
||
00835F15 0000 add [eax], al
|
||
|
||
00835F17 00FF add bh, bh
|
||
00835F19 FFFF DB $FF, $FF //
|
||
00835F1B FF02 inc dword ptr [edx]
|
||
00835F1D 0000 add [eax], al
|
||
|
||
00835F1F 003D270000FF add [$FF000027], bh
|
||
00835F25 FFFF DB $FF, $FF //
|
||
00835F27 FF01 inc dword ptr [ecx]
|
||
00835F29 0000 add [eax], al
|
||
|
||
00835F2B 0027 add [edi], ah
|
||
00835F2D 0000 add [eax], al
|
||
|
||
00835F2F 00FF add bh, bh
|
||
00835F31 FFFF DB $FF, $FF //
|
||
00835F33 FF050000003D inc dword ptr [$3D000000]
|
||
00835F39 4E dec esi
|
||
00835F3A 55 push ebp
|
||
00835F3B 4C dec esp
|
||
00835F3C 4C dec esp
|
||
00835F3D 0000 add [eax], al
|
||
|
||
00835F3F 00FF add bh, bh
|
||
00835F41 FFFF DB $FF, $FF //
|
||
00835F43 FF09 dec dword ptr [ecx]
|
||
00835F45 0000 add [eax], al
|
||
|
||
00835F47 002C4564697465 add [$65746964+eax*2], ch
|
||
00835F4E 723D jb 00835F8D
|
||
00835F50 27 daa
|
||
00835F51 0000 add [eax], al
|
||
|
||
00835F53 00FF add bh, bh
|
||
00835F55 FFFF DB $FF, $FF //
|
||
00835F57 FF1400 call dword ptr [eax+eax]
|
||
00835F5A 0000 add [eax], al
|
||
|
||
00835F5C 2C45 sub al, $45
|
||
00835F5E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
00835F67 657464 jz 00835FCE
|
||
00835F6A 61 popa
|
||
00835F6B 7465 jz 00835FD2
|
||
00835F6D 2829 sub [ecx], ch
|
||
00835F6F 2000 and [eax], al
|
||
00835F71 0000 add [eax], al
|
||
|
||
00835F73 00FF add bh, bh
|
||
00835F75 FFFF DB $FF, $FF //
|
||
00835F77 FF0E dec dword ptr [esi]
|
||
00835F79 0000 add [eax], al
|
||
|
||
00835F7B 0020 add [eax], ah
|
||
00835F7D 7768 jnbe 00835FE7
|
||
00835F7F 657265 jb 00835FE7
|
||
00835F82 205375 and [ebx+$75], dl
|
||
00835F85 624964 bound ecx, qword ptr [ecx+$64]
|
||
00835F88 3D270000FF cmp eax, $FF000027
|
||
00835F8D FFFF DB $FF, $FF //
|
||
00835F8F FF0500000053 inc dword ptr [$53000000]
|
||
00835F95 7562 jnz 00835FF9
|
||
00835F97 49 dec ecx
|
||
00835F98 640000 add fs:[eax], al
|
||
00835F9B 00558B add [ebp-$75], dl
|
||
00835F9E EC in al, dx
|
||
00835F9F B91C000000 mov ecx, $0000001C
|
||
00835FA4 6A00 push $00
|
||
00835FA6 6A00 push $00
|
||
00835FA8 49 dec ecx
|
||
00835FA9 75F9 jnz 00835FA4
|
||
00835FAB 51 push ecx
|
||
00835FAC 53 push ebx
|
||
00835FAD 56 push esi
|
||
00835FAE 8BF2 mov esi, edx
|
||
00835FB0 8BD8 mov ebx, eax
|
||
00835FB2 33C0 xor eax, eax
|
||
00835FB4 55 push ebp
|
||
00835FB5 68FF658300 push $008365FF
|
||
|
||
***** TRY
|
||
|
|
||
00835FBA 64FF30 push dword ptr fs:[eax]
|
||
00835FBD 648920 mov fs:[eax], esp
|
||
00835FC0 8D55FC lea edx, [ebp-$04]
|
||
00835FC3 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;
|
||
|
|
||
00835FC5 E8F296D5FF call 0058F6BC
|
||
00835FCA 8D55DC lea edx, [ebp-$24]
|
||
00835FCD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00835FD0 E81749BDFF call 0040A8EC
|
||
00835FD5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
00835FD9 750D jnz 00835FE8
|
||
00835FDB 8D45FC lea eax, [ebp-$04]
|
||
00835FDE BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00835FE3 E8D4F3BCFF call 004053BC
|
||
|
||
* Reference to control Label17 : TLabel
|
||
|
|
||
00835FE8 8B83A8030000 mov eax, [ebx+$03A8]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
00835FEE E85963E2FF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
00835FF3 E86CBBE1FF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
00835FF8 8B4050 mov eax, [eax+$50]
|
||
00835FFB 8D55D8 lea edx, [ebp-$28]
|
||
00835FFE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
00836000 FF5110 call dword ptr [ecx+$10]
|
||
00836003 8B45D8 mov eax, [ebp-$28]
|
||
00836006 8D55E0 lea edx, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836009 E8DE48BDFF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0083600E 8BB34C030000 mov esi, [ebx+$034C]
|
||
00836014 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00836016 E82524C9FF call 004C8440
|
||
0083601B 8D55C4 lea edx, [ebp-$3C]
|
||
0083601E 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836021 E8C648BDFF call 0040A8EC
|
||
00836026 8B55C4 mov edx, [ebp-$3C]
|
||
00836029 8D45C8 lea eax, [ebp-$38]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083602C E8972DBEFF call 00418DC8
|
||
00836031 8D45C8 lea eax, [ebp-$38]
|
||
00836034 50 push eax
|
||
00836035 8B55E0 mov edx, [ebp-$20]
|
||
00836038 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083603A E8750BC9FF call 004C6BB4
|
||
0083603F 5A pop edx
|
||
00836040 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
00836042 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00836048 8BC6 mov eax, esi
|
||
0083604A 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083604C FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
00836052 8BB308030000 mov esi, [ebx+$0308]
|
||
00836058 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083605A E875F8C8FF call 004C58D4
|
||
0083605F 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
00836061 E8467FCAFF call 004DDFAC
|
||
00836066 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
00836068 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083606B 6820668300 push $00836620
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
00836070 BA68668300 mov edx, $00836668
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00836075 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083607B E8340BC9FF call 004C6BB4
|
||
00836080 8D55BC lea edx, [ebp-$44]
|
||
00836083 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00836085 FF5160 call dword ptr [ecx+$60]
|
||
00836088 FF75BC push dword ptr [ebp-$44]
|
||
0083608B 6878668300 push $00836678
|
||
00836090 8D45C0 lea eax, [ebp-$40]
|
||
00836093 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00836098 E817F6BCFF call 004056B4
|
||
0083609D 8B45C0 mov eax, [ebp-$40]
|
||
008360A0 50 push eax
|
||
008360A1 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
008360A3 E8047FCAFF call 004DDFAC
|
||
008360A8 5A pop edx
|
||
008360A9 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
008360AB FF5138 call dword ptr [ecx+$38]
|
||
008360AE 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008360B0 E813F8C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
008360B5 BA84668300 mov edx, $00836684
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
008360BA 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008360C0 E8EF0AC9FF call 004C6BB4
|
||
008360C5 8D55E4 lea edx, [ebp-$1C]
|
||
008360C8 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
008360CA FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
008360CD BA94668300 mov edx, $00836694
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
008360D2 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008360D8 E8D70AC9FF call 004C6BB4
|
||
008360DD 8D55B8 lea edx, [ebp-$48]
|
||
008360E0 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
008360E2 FF5160 call dword ptr [ecx+$60]
|
||
008360E5 8B45B8 mov eax, [ebp-$48]
|
||
008360E8 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008360EB E8FC47BDFF call 0040A8EC
|
||
008360F0 8D55B4 lea edx, [ebp-$4C]
|
||
008360F3 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008360F6 E8F147BDFF call 0040A8EC
|
||
008360FB 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
008360FF 750D jnz 0083610E
|
||
00836101 8D45F8 lea eax, [ebp-$08]
|
||
00836104 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00836109 E8AEF2BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Price'
|
||
|
|
||
0083610E BAA0668300 mov edx, $008366A0
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00836113 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836119 E8960AC9FF call 004C6BB4
|
||
0083611E 8D55B0 lea edx, [ebp-$50]
|
||
00836121 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00836123 FF5160 call dword ptr [ecx+$60]
|
||
00836126 8B45B0 mov eax, [ebp-$50]
|
||
00836129 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083612C E8BB47BDFF call 0040A8EC
|
||
00836131 8D55AC lea edx, [ebp-$54]
|
||
00836134 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836137 E8B047BDFF call 0040A8EC
|
||
0083613C 837DAC00 cmp dword ptr [ebp-$54], +$00
|
||
00836140 750D jnz 0083614F
|
||
00836142 8D45F4 lea eax, [ebp-$0C]
|
||
00836145 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083614A E86DF2BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Qty'
|
||
|
|
||
0083614F BA94668300 mov edx, $00836694
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00836154 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083615A E8550AC9FF call 004C6BB4
|
||
0083615F 8D55A8 lea edx, [ebp-$58]
|
||
00836162 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00836164 FF5160 call dword ptr [ecx+$60]
|
||
00836167 8B45A8 mov eax, [ebp-$58]
|
||
0083616A 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083616D E87A47BDFF call 0040A8EC
|
||
00836172 8D55A4 lea edx, [ebp-$5C]
|
||
00836175 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836178 E86F47BDFF call 0040A8EC
|
||
0083617D 837DA400 cmp dword ptr [ebp-$5C], +$00
|
||
00836181 750D jnz 00836190
|
||
00836183 8D45F8 lea eax, [ebp-$08]
|
||
00836186 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083618B E82CF2BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00836190 BAB0668300 mov edx, $008366B0
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00836195 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083619B E8140AC9FF call 004C6BB4
|
||
008361A0 8D55A0 lea edx, [ebp-$60]
|
||
008361A3 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
008361A5 FF5160 call dword ptr [ecx+$60]
|
||
008361A8 8B45A0 mov eax, [ebp-$60]
|
||
008361AB 8D55F0 lea edx, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361AE E83947BDFF call 0040A8EC
|
||
008361B3 8D559C lea edx, [ebp-$64]
|
||
008361B6 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361B9 E82E47BDFF call 0040A8EC
|
||
008361BE 837D9C00 cmp dword ptr [ebp-$64], +$00
|
||
008361C2 750D jnz 008361D1
|
||
008361C4 8D45F0 lea eax, [ebp-$10]
|
||
008361C7 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
008361CC E8EBF1BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
008361D1 BAC0668300 mov edx, $008366C0
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
008361D6 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008361DC E8D309C9FF call 004C6BB4
|
||
008361E1 8D5598 lea edx, [ebp-$68]
|
||
008361E4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
008361E6 FF5160 call dword ptr [ecx+$60]
|
||
008361E9 8B4598 mov eax, [ebp-$68]
|
||
008361EC 8D55EC lea edx, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361EF E8F846BDFF call 0040A8EC
|
||
008361F4 8D5594 lea edx, [ebp-$6C]
|
||
008361F7 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008361FA E8ED46BDFF call 0040A8EC
|
||
008361FF 837D9400 cmp dword ptr [ebp-$6C], +$00
|
||
00836203 750D jnz 00836212
|
||
00836205 8D45EC lea eax, [ebp-$14]
|
||
00836208 BA14668300 mov edx, $00836614
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
0083620D E8AAF1BCFF call 004053BC
|
||
00836212 8D5590 lea edx, [ebp-$70]
|
||
00836215 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836218 E8CF46BDFF call 0040A8EC
|
||
0083621D 8B4590 mov eax, [ebp-$70]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00836220 BAB0668300 mov edx, $008366B0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00836225 E816F5BCFF call 00405740
|
||
0083622A 0F84AD000000 jz 008362DD
|
||
00836230 8D558C lea edx, [ebp-$74]
|
||
00836233 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836236 E8B146BDFF call 0040A8EC
|
||
0083623B 8B458C mov eax, [ebp-$74]
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
0083623E BAC0668300 mov edx, $008366C0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00836243 E8F8F4BCFF call 00405740
|
||
00836248 7469 jz 008362B3
|
||
0083624A 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083624D E8DA74BDFF call 0040D72C
|
||
00836252 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00836255 9B wait
|
||
00836256 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836259 E8CE74BDFF call 0040D72C
|
||
0083625E DB6D80 fld tbyte ptr [ebp-$80]
|
||
00836261 DEC9 fmulp st(1), st(0)
|
||
00836263 DBBD74FFFFFF fstp tbyte ptr [ebp+$FFFFFF74]
|
||
00836269 9B wait
|
||
0083626A 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083626D E8BA74BDFF call 0040D72C
|
||
00836272 DBAD74FFFFFF fld tbyte ptr [ebp+$FFFFFF74]
|
||
00836278 DEC9 fmulp st(1), st(0)
|
||
0083627A 83C4F4 add esp, -$0C
|
||
0083627D DB3C24 fstp tbyte ptr [esp]
|
||
00836280 9B wait
|
||
00836281 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00836284 E82373BDFF call 0040D5AC
|
||
00836289 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
0083628C E89B74BDFF call 0040D72C
|
||
00836291 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
00836294 9B wait
|
||
00836295 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836298 E88F74BDFF call 0040D72C
|
||
0083629D DB6D80 fld tbyte ptr [ebp-$80]
|
||
008362A0 DEC9 fmulp st(1), st(0)
|
||
008362A2 83C4F4 add esp, -$0C
|
||
008362A5 DB3C24 fstp tbyte ptr [esp]
|
||
008362A8 9B wait
|
||
008362A9 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
008362AC E8FB72BDFF call 0040D5AC
|
||
008362B1 EB52 jmp 00836305
|
||
008362B3 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362B6 E87174BDFF call 0040D72C
|
||
008362BB DB7D80 fstp tbyte ptr [ebp-$80]
|
||
008362BE 9B wait
|
||
008362BF 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362C2 E86574BDFF call 0040D72C
|
||
008362C7 DB6D80 fld tbyte ptr [ebp-$80]
|
||
008362CA DEC9 fmulp st(1), st(0)
|
||
008362CC 83C4F4 add esp, -$0C
|
||
008362CF DB3C24 fstp tbyte ptr [esp]
|
||
008362D2 9B wait
|
||
008362D3 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
008362D6 E8D172BDFF call 0040D5AC
|
||
008362DB EB28 jmp 00836305
|
||
008362DD 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362E0 E84774BDFF call 0040D72C
|
||
008362E5 DB7D80 fstp tbyte ptr [ebp-$80]
|
||
008362E8 9B wait
|
||
008362E9 8B45EC mov eax, [ebp-$14]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
008362EC E83B74BDFF call 0040D72C
|
||
008362F1 DB6D80 fld tbyte ptr [ebp-$80]
|
||
008362F4 DEC9 fmulp st(1), st(0)
|
||
008362F6 83C4F4 add esp, -$0C
|
||
008362F9 DB3C24 fstp tbyte ptr [esp]
|
||
008362FC 9B wait
|
||
008362FD 8D45E8 lea eax, [ebp-$18]
|
||
|
||
|
|
||
00836300 E8A772BDFF call 0040D5AC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00836305 8BB34C030000 mov esi, [ebx+$034C]
|
||
0083630B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083630D E82E21C9FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00836312 BAB0668300 mov edx, $008366B0
|
||
00836317 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836319 E89608C9FF call 004C6BB4
|
||
0083631E 50 push eax
|
||
0083631F 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836322 E80574BDFF call 0040D72C
|
||
00836327 8D8564FFFFFF lea eax, [ebp+$FFFFFF64]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083632D E85A2ABEFF call 00418D8C
|
||
00836332 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
|
||
00836338 58 pop eax
|
||
00836339 8B08 mov ecx, [eax]
|
||
0083633B FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00836341 BA84668300 mov edx, $00836684
|
||
00836346 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836348 E86708C9FF call 004C6BB4
|
||
0083634D 50 push eax
|
||
0083634E 8B45E8 mov eax, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00836351 E8D673BDFF call 0040D72C
|
||
00836356 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083635C E82B2ABEFF call 00418D8C
|
||
00836361 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
|
||
00836367 58 pop eax
|
||
00836368 8B08 mov ecx, [eax]
|
||
0083636A FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00836370 8BC6 mov eax, esi
|
||
00836372 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
00836374 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
0083637A 8BB30C030000 mov esi, [ebx+$030C]
|
||
00836380 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00836382 E84DF5C8FF call 004C58D4
|
||
00836387 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00836389 E81E7CCAFF call 004DDFAC
|
||
0083638E 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00836390 FF5244 call dword ptr [edx+$44]
|
||
00836393 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00836395 E8127CCAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
0083639A BAD0668300 mov edx, $008366D0
|
||
0083639F 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008363A1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
008363A4 68EC668300 push $008366EC
|
||
008363A9 FF75E0 push dword ptr [ebp-$20]
|
||
008363AC 68FC668300 push $008366FC
|
||
008363B1 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
|
||
008363B7 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008363BA E82D45BDFF call 0040A8EC
|
||
008363BF FFB54CFFFFFF push dword ptr [ebp+$FFFFFF4C]
|
||
008363C5 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
|
||
008363CB BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008363D0 E8DFF2BCFF call 004056B4
|
||
008363D5 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
|
||
008363DB 50 push eax
|
||
008363DC 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
008363DE E8C97BCAFF call 004DDFAC
|
||
008363E3 5A pop edx
|
||
008363E4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008363E6 FF5138 call dword ptr [ecx+$38]
|
||
008363E9 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
|
||
008363EF 8B45E0 mov eax, [ebp-$20]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008363F2 E8F544BDFF call 0040A8EC
|
||
008363F7 8B8548FFFFFF mov eax, [ebp+$FFFFFF48]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
008363FD BAB0668300 mov edx, $008366B0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
00836402 E839F3BCFF call 00405740
|
||
00836407 7427 jz 00836430
|
||
00836409 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0083640B E89C7BCAFF call 004DDFAC
|
||
00836410 50 push eax
|
||
00836411 8D8544FFFFFF lea eax, [ebp+$FFFFFF44]
|
||
00836417 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',Money='
|
||
|
|
||
0083641A BA08678300 mov edx, $00836708
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
0083641F E81CF2BCFF call 00405640
|
||
00836424 8B9544FFFFFF mov edx, [ebp+$FFFFFF44]
|
||
0083642A 58 pop eax
|
||
0083642B 8B08 mov ecx, [eax]
|
||
0083642D FF5138 call dword ptr [ecx+$38]
|
||
00836430 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00836432 E8757BCAFF call 004DDFAC
|
||
00836437 50 push eax
|
||
00836438 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
|
||
0083643E 8B4DE8 mov ecx, [ebp-$18]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
00836441 BA18678300 mov edx, $00836718
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00836446 E8F5F1BCFF call 00405640
|
||
0083644B 8B9540FFFFFF mov edx, [ebp+$FFFFFF40]
|
||
00836451 58 pop eax
|
||
00836452 8B08 mov ecx, [eax]
|
||
00836454 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00836457 682C678300 push $0083672C
|
||
0083645C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008366D1(Sender : TObject);
|
||
begin
|
||
(*
|
||
008366D1 50 push eax
|
||
008366D2 6461 popa
|
||
008366D4 7465 jz 0083673B
|
||
008366D6 205946 and [ecx+$46], bl
|
||
008366D9 5F pop edi
|
||
008366DA 4D dec ebp
|
||
008366DB 6F outsd
|
||
008366DC 6E outsb
|
||
008366DD 65795F jns 0083673F
|
||
008366E0 43 inc ebx
|
||
008366E1 52 push edx
|
||
008366E2 2000 and [eax], al
|
||
008366E4 FFFF DB $FF, $FF //
|
||
008366E6 FFFF DB $FF, $FF //
|
||
008366E8 0500000020 add eax, +$20000000
|
||
008366ED 53 push ebx
|
||
008366EE 657420 jz 00836711
|
||
008366F1 0000 add [eax], al
|
||
|
||
008366F3 00FF add bh, bh
|
||
008366F5 FFFF DB $FF, $FF //
|
||
008366F7 FF01 inc dword ptr [ecx]
|
||
008366F9 0000 add [eax], al
|
||
|
||
008366FB 003D000000FF add [$FF000000], bh
|
||
00836701 FFFF DB $FF, $FF //
|
||
00836703 FF07 inc dword ptr [edi]
|
||
00836705 0000 add [eax], al
|
||
|
||
00836707 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
|
||
0083670E 3D00FFFFFF cmp eax, $FFFFFF00
|
||
00836713 FF09 dec dword ptr [ecx]
|
||
00836715 0000 add [eax], al
|
||
|
||
00836717 002C42 add [edx+eax*2], ch
|
||
0083671A 42 inc edx
|
||
0083671B 4D dec ebp
|
||
0083671C 6F outsd
|
||
0083671D 6E outsb
|
||
0083671E 65793D jns 0083675E
|
||
00836721 0000 add [eax], al
|
||
|
||
00836723 00FF add bh, bh
|
||
00836725 FFFF DB $FF, $FF //
|
||
00836727 FF09 dec dword ptr [ecx]
|
||
00836729 0000 add [eax], al
|
||
|
||
0083672B 002C4564697465 add [$65746964+eax*2], ch
|
||
00836732 723D jb 00836771
|
||
00836734 27 daa
|
||
00836735 0000 add [eax], al
|
||
|
||
00836737 00FF add bh, bh
|
||
00836739 FFFF DB $FF, $FF //
|
||
0083673B FF1400 call dword ptr [eax+eax]
|
||
0083673E 0000 add [eax], al
|
||
|
||
00836740 2C45 sub al, $45
|
||
00836742 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083674B 657464 jz 008367B2
|
||
0083674E 61 popa
|
||
0083674F 7465 jz 008367B6
|
||
00836751 2829 sub [ecx], ch
|
||
00836753 2000 and [eax], al
|
||
00836755 0000 add [eax], al
|
||
|
||
00836757 00FF add bh, bh
|
||
00836759 FFFF DB $FF, $FF //
|
||
0083675B FF0D00000020 dec dword ptr [$20000000]
|
||
00836761 7768 jnbe 008367CB
|
||
00836763 657265 jb 008367CB
|
||
00836766 205946 and [ecx+$46], bl
|
||
00836769 49 dec ecx
|
||
0083676A 643D27000000 cmp eax, $00000027
|
||
00836770 FFFF DB $FF, $FF //
|
||
00836772 FFFF DB $FF, $FF //
|
||
00836774 0400 add al, +$00
|
||
00836776 0000 add [eax], al
|
||
|
||
00836778 59 pop ecx
|
||
00836779 46 inc esi
|
||
0083677A 49 dec ecx
|
||
0083677B 640000 add fs:[eax], al
|
||
0083677E 0000 add [eax], al
|
||
|
||
00836780 FFFF DB $FF, $FF //
|
||
00836782 FFFF DB $FF, $FF //
|
||
00836784 2B00 sub eax, dword ptr [eax]
|
||
00836786 0000 add [eax], al
|
||
|
||
00836788 55 push ebp
|
||
00836789 7064 jo 008367EF
|
||
0083678B 61 popa
|
||
0083678C 7465 jz 008367F3
|
||
0083678E 205946 and [ecx+$46], bl
|
||
00836791 5F pop edi
|
||
00836792 4D dec ebp
|
||
00836793 6F outsd
|
||
00836794 6E outsb
|
||
00836795 65795F jns 008367F7
|
||
00836798 4B dec ebx
|
||
00836799 43 inc ebx
|
||
0083679A 205365 and [ebx+$65], dl
|
||
0083679D 7420 jz 008367BF
|
||
0083679F 4B dec ebx
|
||
008367A0 43 inc ebx
|
||
008367A1 42 inc edx
|
||
008367A2 42 inc edx
|
||
008367A3 4D dec ebp
|
||
008367A4 6F outsd
|
||
008367A5 6E outsb
|
||
008367A6 65793D jns 008367E6
|
||
008367A9 4B dec ebx
|
||
008367AA 43 inc ebx
|
||
008367AB 42 inc edx
|
||
008367AC 42 inc edx
|
||
008367AD 4D dec ebp
|
||
008367AE 6F outsd
|
||
008367AF 6E outsb
|
||
008367B0 65792D jns 008367E0
|
||
008367B3 00FF add bh, bh
|
||
008367B5 FFFF DB $FF, $FF //
|
||
008367B7 FF01 inc dword ptr [ecx]
|
||
008367B9 0000 add [eax], al
|
||
|
||
008367BB 002B add [ebx], ch
|
||
008367BD 0000 add [eax], al
|
||
|
||
008367BF 00FF add bh, bh
|
||
008367C1 FFFF DB $FF, $FF //
|
||
008367C3 FF0D00000020 dec dword ptr [$20000000]
|
||
008367C9 7768 jnbe 00836833
|
||
008367CB 657265 jb 00836833
|
||
008367CE 204352 and [ebx+$52], al
|
||
008367D1 49 dec ecx
|
||
008367D2 44 inc esp
|
||
008367D3 3D27000000 cmp eax, $00000027
|
||
008367D8 FFFF DB $FF, $FF //
|
||
008367DA FFFF DB $FF, $FF //
|
||
008367DC 0400 add al, +$00
|
||
008367DE 0000 add [eax], al
|
||
|
||
008367E0 43 inc ebx
|
||
008367E1 52 push edx
|
||
008367E2 49 dec ecx
|
||
008367E3 44 inc esp
|
||
008367E4 0000 add [eax], al
|
||
|
||
008367E6 0000 add [eax], al
|
||
|
||
008367E8 55 push ebp
|
||
008367E9 8BEC mov ebp, esp
|
||
008367EB B908000000 mov ecx, $00000008
|
||
008367F0 6A00 push $00
|
||
008367F2 6A00 push $00
|
||
008367F4 49 dec ecx
|
||
008367F5 75F9 jnz 008367F0
|
||
008367F7 51 push ecx
|
||
008367F8 53 push ebx
|
||
008367F9 56 push esi
|
||
008367FA 8BDA mov ebx, edx
|
||
008367FC 8BF0 mov esi, eax
|
||
008367FE 33C0 xor eax, eax
|
||
00836800 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00836801 68F6698300 push $008369F6
|
||
|
||
***** TRY
|
||
|
|
||
00836806 64FF30 push dword ptr fs:[eax]
|
||
00836809 648920 mov fs:[eax], esp
|
||
0083680C 8D55FC lea edx, [ebp-$04]
|
||
0083680F 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;
|
||
|
|
||
00836811 E8A68ED5FF call 0058F6BC
|
||
|
||
* Reference to control Label17 : TLabel
|
||
|
|
||
00836816 8B86A8030000 mov eax, [esi+$03A8]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
0083681C E82B5BE2FF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
00836821 E83EB3E1FF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
00836826 8B4050 mov eax, [eax+$50]
|
||
00836829 8D55F4 lea edx, [ebp-$0C]
|
||
0083682C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
0083682E FF5110 call dword ptr [ecx+$10]
|
||
00836831 8B45F4 mov eax, [ebp-$0C]
|
||
00836834 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00836837 E8B040BDFF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
0083683C 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00836842 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00836844 E8F71BC9FF call 004C8440
|
||
00836849 8D55E0 lea edx, [ebp-$20]
|
||
0083684C 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083684F E89840BDFF call 0040A8EC
|
||
00836854 8B55E0 mov edx, [ebp-$20]
|
||
00836857 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083685A E86925BEFF call 00418DC8
|
||
0083685F 8D45E4 lea eax, [ebp-$1C]
|
||
00836862 50 push eax
|
||
00836863 8B55F8 mov edx, [ebp-$08]
|
||
00836866 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00836868 E84703C9FF call 004C6BB4
|
||
0083686D 5A pop edx
|
||
0083686E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
00836870 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00836876 8BC3 mov eax, ebx
|
||
00836878 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083687A FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00836880 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00836886 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00836888 E847F0C8FF call 004C58D4
|
||
0083688D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0083688F E81877CAFF call 004DDFAC
|
||
00836894 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00836896 FF5244 call dword ptr [edx+$44]
|
||
00836899 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0083689B E80C77CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
008368A0 BA0C6A8300 mov edx, $00836A0C
|
||
008368A5 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008368A7 FF5138 call dword ptr [ecx+$38]
|
||
008368AA 8D55DC lea edx, [ebp-$24]
|
||
008368AD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008368B0 E83740BDFF call 0040A8EC
|
||
008368B5 837DDC00 cmp dword ptr [ebp-$24], +$00
|
||
008368B9 7440 jz 008368FB
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
008368BB 68286A8300 push $00836A28
|
||
008368C0 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
008368C3 68386A8300 push $00836A38
|
||
008368C8 8D55D4 lea edx, [ebp-$2C]
|
||
008368CB 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008368CE E81940BDFF call 0040A8EC
|
||
008368D3 FF75D4 push dword ptr [ebp-$2C]
|
||
008368D6 68446A8300 push $00836A44
|
||
008368DB 8D45D8 lea eax, [ebp-$28]
|
||
008368DE BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008368E3 E8CCEDBCFF call 004056B4
|
||
008368E8 8B45D8 mov eax, [ebp-$28]
|
||
008368EB 50 push eax
|
||
008368EC 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
008368EE E8B976CAFF call 004DDFAC
|
||
008368F3 5A pop edx
|
||
008368F4 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
008368F6 FF5138 call dword ptr [ecx+$38]
|
||
008368F9 EB2B jmp 00836926
|
||
008368FB 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
008368FD E8AA76CAFF call 004DDFAC
|
||
00836902 50 push eax
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00836903 68286A8300 push $00836A28
|
||
00836908 FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=NULL'
|
||
|
|
||
0083690B 68506A8300 push $00836A50
|
||
00836910 8D45D0 lea eax, [ebp-$30]
|
||
00836913 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00836918 E897EDBCFF call 004056B4
|
||
0083691D 8B55D0 mov edx, [ebp-$30]
|
||
00836920 58 pop eax
|
||
00836921 8B08 mov ecx, [eax]
|
||
00836923 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00836926 68606A8300 push $00836A60
|
||
0083692B 8D55C8 lea edx, [ebp-$38]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00836A0D(Sender : TObject);
|
||
begin
|
||
(*
|
||
00836A0D 50 push eax
|
||
00836A0E 6461 popa
|
||
00836A10 7465 jz 00836A77
|
||
00836A12 205946 and [ecx+$46], bl
|
||
00836A15 5F pop edi
|
||
00836A16 4D dec ebp
|
||
00836A17 6F outsd
|
||
00836A18 6E outsb
|
||
00836A19 65795F jns 00836A7B
|
||
00836A1C 43 inc ebx
|
||
00836A1D 52 push edx
|
||
00836A1E 2000 and [eax], al
|
||
00836A20 FFFF DB $FF, $FF //
|
||
00836A22 FFFF DB $FF, $FF //
|
||
00836A24 0500000020 add eax, +$20000000
|
||
00836A29 53 push ebx
|
||
00836A2A 657420 jz 00836A4D
|
||
00836A2D 0000 add [eax], al
|
||
|
||
00836A2F 00FF add bh, bh
|
||
00836A31 FFFF DB $FF, $FF //
|
||
00836A33 FF02 inc dword ptr [edx]
|
||
00836A35 0000 add [eax], al
|
||
|
||
00836A37 003D270000FF add [$FF000027], bh
|
||
00836A3D FFFF DB $FF, $FF //
|
||
00836A3F FF01 inc dword ptr [ecx]
|
||
00836A41 0000 add [eax], al
|
||
|
||
00836A43 0027 add [edi], ah
|
||
00836A45 0000 add [eax], al
|
||
|
||
00836A47 00FF add bh, bh
|
||
00836A49 FFFF DB $FF, $FF //
|
||
00836A4B FF050000003D inc dword ptr [$3D000000]
|
||
00836A51 4E dec esi
|
||
00836A52 55 push ebp
|
||
00836A53 4C dec esp
|
||
00836A54 4C dec esp
|
||
00836A55 0000 add [eax], al
|
||
|
||
00836A57 00FF add bh, bh
|
||
00836A59 FFFF DB $FF, $FF //
|
||
00836A5B FF09 dec dword ptr [ecx]
|
||
00836A5D 0000 add [eax], al
|
||
|
||
00836A5F 002C4564697465 add [$65746964+eax*2], ch
|
||
00836A66 723D jb 00836AA5
|
||
00836A68 27 daa
|
||
00836A69 0000 add [eax], al
|
||
|
||
00836A6B 00FF add bh, bh
|
||
00836A6D FFFF DB $FF, $FF //
|
||
00836A6F FF1400 call dword ptr [eax+eax]
|
||
00836A72 0000 add [eax], al
|
||
|
||
00836A74 2C45 sub al, $45
|
||
00836A76 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
00836A7F 657464 jz 00836AE6
|
||
00836A82 61 popa
|
||
00836A83 7465 jz 00836AEA
|
||
00836A85 2829 sub [ecx], ch
|
||
00836A87 2000 and [eax], al
|
||
00836A89 0000 add [eax], al
|
||
|
||
00836A8B 00FF add bh, bh
|
||
00836A8D FFFF DB $FF, $FF //
|
||
00836A8F FF0D00000020 dec dword ptr [$20000000]
|
||
00836A95 7768 jnbe 00836AFF
|
||
00836A97 657265 jb 00836AFF
|
||
00836A9A 205946 and [ecx+$46], bl
|
||
00836A9D 49 dec ecx
|
||
00836A9E 643D27000000 cmp eax, $00000027
|
||
00836AA4 FFFF DB $FF, $FF //
|
||
00836AA6 FFFF DB $FF, $FF //
|
||
00836AA8 0400 add al, +$00
|
||
00836AAA 0000 add [eax], al
|
||
|
||
00836AAC 59 pop ecx
|
||
00836AAD 46 inc esi
|
||
00836AAE 49 dec ecx
|
||
00836AAF 640000 add fs:[eax], al
|
||
00836AB2 0000 add [eax], al
|
||
|
||
00836AB4 55 push ebp
|
||
00836AB5 8BEC mov ebp, esp
|
||
00836AB7 B90C000000 mov ecx, $0000000C
|
||
00836ABC 6A00 push $00
|
||
00836ABE 6A00 push $00
|
||
00836AC0 49 dec ecx
|
||
00836AC1 75F9 jnz 00836ABC
|
||
00836AC3 53 push ebx
|
||
00836AC4 56 push esi
|
||
00836AC5 8BF0 mov esi, eax
|
||
00836AC7 33C0 xor eax, eax
|
||
00836AC9 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>3<33><DEBC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00836ACA 68BC6C8300 push $00836CBC
|
||
|
||
***** TRY
|
||
|
|
||
00836ACF 64FF30 push dword ptr fs:[eax]
|
||
00836AD2 648920 mov fs:[eax], esp
|
||
00836AD5 33C0 xor eax, eax
|
||
00836AD7 55 push ebp
|
||
00836AD8 686A6C8300 push $00836C6A
|
||
|
||
***** TRY
|
||
|
|
||
00836ADD 64FF30 push dword ptr fs:[eax]
|
||
00836AE0 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00837129(Sender : TObject);
|
||
begin
|
||
(*
|
||
00837129 50 push eax
|
||
0083712A 6461 popa
|
||
0083712C 7465 jz 00837193
|
||
0083712E 205946 and [ecx+$46], bl
|
||
00837131 5F pop edi
|
||
00837132 4D dec ebp
|
||
00837133 6F outsd
|
||
00837134 6E outsb
|
||
00837135 65795F jns 00837197
|
||
00837138 43 inc ebx
|
||
00837139 52 push edx
|
||
0083713A 2000 and [eax], al
|
||
0083713C FFFF DB $FF, $FF //
|
||
0083713E FFFF DB $FF, $FF //
|
||
00837140 0D00000020 or eax, $20000000
|
||
00837145 53 push ebx
|
||
00837146 657420 jz 00837169
|
||
00837149 59 pop ecx
|
||
0083714A 46 inc esi
|
||
0083714B 43 inc ebx
|
||
0083714C 6F outsd
|
||
0083714D 64653D27000000 cmp eax, $00000027
|
||
00837154 FFFF DB $FF, $FF //
|
||
00837156 FFFF DB $FF, $FF //
|
||
00837158 0100 add [eax], eax
|
||
0083715A 0000 add [eax], al
|
||
|
||
0083715C 27 daa
|
||
0083715D 0000 add [eax], al
|
||
|
||
0083715F 00FF add bh, bh
|
||
00837161 FFFF DB $FF, $FF //
|
||
00837163 FF0A dec dword ptr [edx]
|
||
00837165 0000 add [eax], al
|
||
|
||
00837167 0020 add [eax], ah
|
||
00837169 2C59 sub al, $59
|
||
0083716B 46 inc esi
|
||
0083716C 4E dec esi
|
||
0083716D 61 popa
|
||
0083716E 6D insd
|
||
0083716F 653D270000FF cmp eax, $FF000027
|
||
00837175 FFFF DB $FF, $FF //
|
||
00837177 FF09 dec dword ptr [ecx]
|
||
00837179 0000 add [eax], al
|
||
|
||
0083717B 002C4564697465 add [$65746964+eax*2], ch
|
||
00837182 723D jb 008371C1
|
||
00837184 27 daa
|
||
00837185 0000 add [eax], al
|
||
|
||
00837187 00FF add bh, bh
|
||
00837189 FFFF DB $FF, $FF //
|
||
0083718B FF1400 call dword ptr [eax+eax]
|
||
0083718E 0000 add [eax], al
|
||
|
||
00837190 2C45 sub al, $45
|
||
00837192 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083719B 657464 jz 00837202
|
||
0083719E 61 popa
|
||
0083719F 7465 jz 00837206
|
||
008371A1 2829 sub [ecx], ch
|
||
008371A3 2000 and [eax], al
|
||
008371A5 0000 add [eax], al
|
||
|
||
008371A7 00FF add bh, bh
|
||
008371A9 FFFF DB $FF, $FF //
|
||
008371AB FF0D00000020 dec dword ptr [$20000000]
|
||
008371B1 7768 jnbe 0083721B
|
||
008371B3 657265 jb 0083721B
|
||
008371B6 205946 and [ecx+$46], bl
|
||
008371B9 49 dec ecx
|
||
008371BA 643D27000000 cmp eax, $00000027
|
||
008371C0 FFFF DB $FF, $FF //
|
||
008371C2 FFFF DB $FF, $FF //
|
||
008371C4 0400 add al, +$00
|
||
008371C6 0000 add [eax], al
|
||
|
||
008371C8 59 pop ecx
|
||
008371C9 46 inc esi
|
||
008371CA 49 dec ecx
|
||
008371CB 640000 add fs:[eax], al
|
||
008371CE 0000 add [eax], al
|
||
|
||
008371D0 55 push ebp
|
||
008371D1 8BEC mov ebp, esp
|
||
008371D3 51 push ecx
|
||
008371D4 B906000000 mov ecx, $00000006
|
||
008371D9 6A00 push $00
|
||
008371DB 6A00 push $00
|
||
008371DD 49 dec ecx
|
||
008371DE 75F9 jnz 008371D9
|
||
008371E0 51 push ecx
|
||
008371E1 874DFC xchg [ebp-$04], ecx
|
||
008371E4 53 push ebx
|
||
008371E5 56 push esi
|
||
008371E6 8BF0 mov esi, eax
|
||
008371E8 33C0 xor eax, eax
|
||
008371EA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>ּ<EFBFBD><D6BC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
008371EB 6829748300 push $00837429
|
||
|
||
***** TRY
|
||
|
|
||
008371F0 64FF30 push dword ptr fs:[eax]
|
||
008371F3 648920 mov fs:[eax], esp
|
||
008371F6 33C0 xor eax, eax
|
||
008371F8 55 push ebp
|
||
008371F9 68FF738300 push $008373FF
|
||
|
||
***** TRY
|
||
|
|
||
008371FE 64FF30 push dword ptr fs:[eax]
|
||
00837201 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00837446(Sender : TObject);
|
||
begin
|
||
(*
|
||
00837446 6E outsb
|
||
00837447 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
|
||
0083744F FF08 dec dword ptr [eax]
|
||
00837451 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_0083747C(Sender : TObject);
|
||
begin
|
||
(*
|
||
0083747C 6E outsb
|
||
0083747D 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
|
||
00837485 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00837489(Sender : TObject);
|
||
begin
|
||
(*
|
||
00837489 50 push eax
|
||
0083748A 6461 popa
|
||
0083748C 7465 jz 008374F3
|
||
0083748E 205946 and [ecx+$46], bl
|
||
00837491 5F pop edi
|
||
00837492 4D dec ebp
|
||
00837493 6F outsd
|
||
00837494 6E outsb
|
||
00837495 65795F jns 008374F7
|
||
00837498 43 inc ebx
|
||
00837499 52 push edx
|
||
0083749A 2000 and [eax], al
|
||
0083749C FFFF DB $FF, $FF //
|
||
0083749E FFFF DB $FF, $FF //
|
||
008374A0 0E push cs
|
||
008374A1 0000 add [eax], al
|
||
|
||
008374A3 0020 add [eax], ah
|
||
008374A5 53 push ebx
|
||
008374A6 657420 jz 008374C9
|
||
008374A9 51 push ecx
|
||
008374AA 7479 jz 00837525
|
||
008374AC 55 push ebp
|
||
008374AD 6E outsb
|
||
008374AE 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
|
||
008374B6 FFFF DB $FF, $FF //
|
||
008374B8 07 pop es
|
||
008374B9 0000 add [eax], al
|
||
|
||
008374BB 005A64 add [edx+$64], bl
|
||
008374BE 794E jns 0083750E
|
||
008374C0 61 popa
|
||
008374C1 6D insd
|
||
008374C2 6500FF add bh, bh
|
||
008374C5 FFFF DB $FF, $FF //
|
||
008374C7 FF01 inc dword ptr [ecx]
|
||
008374C9 0000 add [eax], al
|
||
|
||
008374CB 0027 add [edi], ah
|
||
008374CD 0000 add [eax], al
|
||
|
||
008374CF 00FF add bh, bh
|
||
008374D1 FFFF DB $FF, $FF //
|
||
008374D3 FF09 dec dword ptr [ecx]
|
||
008374D5 0000 add [eax], al
|
||
|
||
008374D7 002C4564697465 add [$65746964+eax*2], ch
|
||
008374DE 723D jb 0083751D
|
||
008374E0 27 daa
|
||
008374E1 0000 add [eax], al
|
||
|
||
008374E3 00FF add bh, bh
|
||
008374E5 FFFF DB $FF, $FF //
|
||
008374E7 FF1400 call dword ptr [eax+eax]
|
||
008374EA 0000 add [eax], al
|
||
|
||
008374EC 2C45 sub al, $45
|
||
008374EE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
008374F7 657464 jz 0083755E
|
||
008374FA 61 popa
|
||
008374FB 7465 jz 00837562
|
||
008374FD 2829 sub [ecx], ch
|
||
008374FF 2000 and [eax], al
|
||
00837501 0000 add [eax], al
|
||
|
||
00837503 00FF add bh, bh
|
||
00837505 FFFF DB $FF, $FF //
|
||
00837507 FF0D00000020 dec dword ptr [$20000000]
|
||
0083750D 7768 jnbe 00837577
|
||
0083750F 657265 jb 00837577
|
||
00837512 205946 and [ecx+$46], bl
|
||
00837515 49 dec ecx
|
||
00837516 643D27000000 cmp eax, $00000027
|
||
0083751C FFFF DB $FF, $FF //
|
||
0083751E FFFF DB $FF, $FF //
|
||
00837520 0400 add al, +$00
|
||
00837522 0000 add [eax], al
|
||
|
||
00837524 59 pop ecx
|
||
00837525 46 inc esi
|
||
00837526 49 dec ecx
|
||
00837527 640000 add fs:[eax], al
|
||
0083752A 0000 add [eax], al
|
||
|
||
0083752C 55 push ebp
|
||
0083752D 8BEC mov ebp, esp
|
||
0083752F 51 push ecx
|
||
00837530 B906000000 mov ecx, $00000006
|
||
00837535 6A00 push $00
|
||
00837537 6A00 push $00
|
||
00837539 49 dec ecx
|
||
0083753A 75F9 jnz 00837535
|
||
0083753C 51 push ecx
|
||
0083753D 874DFC xchg [ebp-$04], ecx
|
||
00837540 53 push ebx
|
||
00837541 56 push esi
|
||
00837542 8BF0 mov esi, eax
|
||
00837544 33C0 xor eax, eax
|
||
00837546 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>jӼ<6A><D3BC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00837547 6885778300 push $00837785
|
||
|
||
***** TRY
|
||
|
|
||
0083754C 64FF30 push dword ptr fs:[eax]
|
||
0083754F 648920 mov fs:[eax], esp
|
||
00837552 33C0 xor eax, eax
|
||
00837554 55 push ebp
|
||
00837555 685B778300 push $0083775B
|
||
|
||
***** TRY
|
||
|
|
||
0083755A 64FF30 push dword ptr fs:[eax]
|
||
0083755D 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008377CD(Sender : TObject);
|
||
begin
|
||
(*
|
||
008377CD 50 push eax
|
||
008377CE 6461 popa
|
||
008377D0 7465 jz 00837837
|
||
008377D2 205946 and [ecx+$46], bl
|
||
008377D5 5F pop edi
|
||
008377D6 4D dec ebp
|
||
008377D7 6F outsd
|
||
008377D8 6E outsb
|
||
008377D9 65795F jns 0083783B
|
||
008377DC 43 inc ebx
|
||
008377DD 52 push edx
|
||
008377DE 2000 and [eax], al
|
||
008377E0 FFFF DB $FF, $FF //
|
||
008377E2 FFFF DB $FF, $FF //
|
||
008377E4 0D00000020 or eax, $20000000
|
||
008377E9 53 push ebx
|
||
008377EA 657420 jz 0083780D
|
||
008377ED 42 inc edx
|
||
008377EE 5A pop edx
|
||
008377EF 54 push esp
|
||
008377F0 7970 jns 00837862
|
||
008377F2 653D27000000 cmp eax, $00000027
|
||
008377F8 FFFF DB $FF, $FF //
|
||
008377FA FFFF DB $FF, $FF //
|
||
008377FC 07 pop es
|
||
008377FD 0000 add [eax], al
|
||
|
||
008377FF 005A64 add [edx+$64], bl
|
||
00837802 794E jns 00837852
|
||
00837804 61 popa
|
||
00837805 6D insd
|
||
00837806 6500FF add bh, bh
|
||
00837809 FFFF DB $FF, $FF //
|
||
0083780B FF01 inc dword ptr [ecx]
|
||
0083780D 0000 add [eax], al
|
||
|
||
0083780F 0027 add [edi], ah
|
||
00837811 0000 add [eax], al
|
||
|
||
00837813 00FF add bh, bh
|
||
00837815 FFFF DB $FF, $FF //
|
||
00837817 FF09 dec dword ptr [ecx]
|
||
00837819 0000 add [eax], al
|
||
|
||
0083781B 002C4564697465 add [$65746964+eax*2], ch
|
||
00837822 723D jb 00837861
|
||
00837824 27 daa
|
||
00837825 0000 add [eax], al
|
||
|
||
00837827 00FF add bh, bh
|
||
00837829 FFFF DB $FF, $FF //
|
||
0083782B FF1400 call dword ptr [eax+eax]
|
||
0083782E 0000 add [eax], al
|
||
|
||
00837830 2C45 sub al, $45
|
||
00837832 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083783B 657464 jz 008378A2
|
||
0083783E 61 popa
|
||
0083783F 7465 jz 008378A6
|
||
00837841 2829 sub [ecx], ch
|
||
00837843 2000 and [eax], al
|
||
00837845 0000 add [eax], al
|
||
|
||
00837847 00FF add bh, bh
|
||
00837849 FFFF DB $FF, $FF //
|
||
0083784B FF0D00000020 dec dword ptr [$20000000]
|
||
00837851 7768 jnbe 008378BB
|
||
00837853 657265 jb 008378BB
|
||
00837856 205946 and [ecx+$46], bl
|
||
00837859 49 dec ecx
|
||
0083785A 643D27000000 cmp eax, $00000027
|
||
00837860 FFFF DB $FF, $FF //
|
||
00837862 FFFF DB $FF, $FF //
|
||
00837864 0400 add al, +$00
|
||
00837866 0000 add [eax], al
|
||
|
||
00837868 59 pop ecx
|
||
00837869 46 inc esi
|
||
0083786A 49 dec ecx
|
||
0083786B 640000 add fs:[eax], al
|
||
0083786E 0000 add [eax], al
|
||
|
||
00837870 53 push ebx
|
||
00837871 8BD8 mov ebx, eax
|
||
|
||
* Reference to control ToolButton1 : TToolButton
|
||
|
|
||
00837873 8B8320030000 mov eax, [ebx+$0320]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00837879 E84206C9FF call 004C7EC0
|
||
0083787E 84C0 test al, al
|
||
00837880 7516 jnz 00837898
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>б<EFBFBD>'
|
||
|
|
||
00837882 B9A4788300 mov ecx, $008378A4
|
||
|
||
* Reference to control ToolButton1 : TToolButton
|
||
|
|
||
00837887 8B9320030000 mov edx, [ebx+$0320]
|
||
|
||
* Reference to control Label17 : TLabel
|
||
|
|
||
0083788D 8B83A8030000 mov eax, [ebx+$03A8]
|
||
|
||
|
|
||
00837893 E89809F8FF call 007B8230
|
||
00837898 5B pop ebx
|
||
00837899 C3 ret
|
||
|
||
0083789A 0000 add [eax], al
|
||
|
||
0083789C FFFF DB $FF, $FF //
|
||
0083789E FFFF DB $FF, $FF //
|
||
008378A0 0800 or [eax], al
|
||
008378A2 0000 add [eax], al
|
||
|
||
008378A4 B8B6BFEEC1 mov eax, $C1EEBFB6
|
||
008378A9 D0B1ED000000 DB $D0, $B1, $ED, $00, $00, $00 // byte ptr [ecx+$00ED], 1
|
||
008378AF 00558B add [ebp-$75], dl
|
||
008378B2 EC in al, dx
|
||
008378B3 B915000000 mov ecx, $00000015
|
||
008378B8 6A00 push $00
|
||
008378BA 6A00 push $00
|
||
008378BC 49 dec ecx
|
||
008378BD 75F9 jnz 008378B8
|
||
008378BF 53 push ebx
|
||
008378C0 56 push esi
|
||
008378C1 8BF2 mov esi, edx
|
||
008378C3 8BD8 mov ebx, eax
|
||
008378C5 33C0 xor eax, eax
|
||
008378C7 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>ͼ<EFBFBD><CDBC><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
008378C8 68227D8300 push $00837D22
|
||
|
||
***** TRY
|
||
|
|
||
008378CD 64FF30 push dword ptr fs:[eax]
|
||
008378D0 648920 mov fs:[eax], esp
|
||
008378D3 8D55FC lea edx, [ebp-$04]
|
||
008378D6 8BC6 mov eax, esi
|
||
|
||
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
|
||
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
||
|
|
||
008378D8 E8DF7DD5FF call 0058F6BC
|
||
008378DD 8D55E4 lea edx, [ebp-$1C]
|
||
008378E0 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008378E3 E80430BDFF call 0040A8EC
|
||
008378E8 837DE400 cmp dword ptr [ebp-$1C], +$00
|
||
008378EC 750D jnz 008378FB
|
||
008378EE 8D45FC lea eax, [ebp-$04]
|
||
008378F1 BA387D8300 mov edx, $00837D38
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
008378F6 E8C1DABCFF call 004053BC
|
||
|
||
* Reference to control Label17 : TLabel
|
||
|
|
||
008378FB 8B83A8030000 mov eax, [ebx+$03A8]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
00837901 E8464AE2FF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
00837906 E859A2E1FF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
0083790B 8B4050 mov eax, [eax+$50]
|
||
0083790E 8D55E0 lea edx, [ebp-$20]
|
||
00837911 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
00837913 FF5110 call dword ptr [ecx+$10]
|
||
00837916 8B45E0 mov eax, [ebp-$20]
|
||
00837919 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083791C E8CB2FBDFF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00837921 8BB34C030000 mov esi, [ebx+$034C]
|
||
00837927 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00837929 E8120BC9FF call 004C8440
|
||
0083792E 8D55CC lea edx, [ebp-$34]
|
||
00837931 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837934 E8B32FBDFF call 0040A8EC
|
||
00837939 8B55CC mov edx, [ebp-$34]
|
||
0083793C 8D45D0 lea eax, [ebp-$30]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
0083793F E88414BEFF call 00418DC8
|
||
00837944 8D45D0 lea eax, [ebp-$30]
|
||
00837947 50 push eax
|
||
00837948 8B55E8 mov edx, [ebp-$18]
|
||
0083794B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083794D E862F2C8FF call 004C6BB4
|
||
00837952 5A pop edx
|
||
00837953 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
00837955 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083795B 8BC6 mov eax, esi
|
||
0083795D 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083795F FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
00837965 8BB308030000 mov esi, [ebx+$0308]
|
||
0083796B 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083796D E862DFC8FF call 004C58D4
|
||
00837972 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
00837974 E83366CAFF call 004DDFAC
|
||
00837979 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
0083797B FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
0083797E 68447D8300 push $00837D44
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
00837983 BA8C7D8300 mov edx, $00837D8C
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00837988 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083798E E821F2C8FF call 004C6BB4
|
||
00837993 8D55C4 lea edx, [ebp-$3C]
|
||
00837996 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00837998 FF5160 call dword ptr [ecx+$60]
|
||
0083799B FF75C4 push dword ptr [ebp-$3C]
|
||
0083799E 689C7D8300 push $00837D9C
|
||
008379A3 8D45C8 lea eax, [ebp-$38]
|
||
008379A6 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008379AB E804DDBCFF call 004056B4
|
||
008379B0 8B45C8 mov eax, [ebp-$38]
|
||
008379B3 50 push eax
|
||
008379B4 8BC6 mov eax, esi
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
008379B6 E8F165CAFF call 004DDFAC
|
||
008379BB 5A pop edx
|
||
008379BC 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
008379BE FF5138 call dword ptr [ecx+$38]
|
||
008379C1 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008379C3 E800DFC8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
008379C8 BAA87D8300 mov edx, $00837DA8
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
008379CD 8B8308030000 mov eax, [ebx+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008379D3 E8DCF1C8FF call 004C6BB4
|
||
008379D8 8D55EC lea edx, [ebp-$14]
|
||
008379DB 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
008379DD FF5160 call dword ptr [ecx+$60]
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
008379E0 BAB87D8300 mov edx, $00837DB8
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
008379E5 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008379EB E8C4F1C8FF call 004C6BB4
|
||
008379F0 8D55C0 lea edx, [ebp-$40]
|
||
008379F3 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
008379F5 FF5160 call dword ptr [ecx+$60]
|
||
008379F8 8B45C0 mov eax, [ebp-$40]
|
||
008379FB 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008379FE E8E92EBDFF call 0040A8EC
|
||
00837A03 8D55BC lea edx, [ebp-$44]
|
||
00837A06 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837A09 E8DE2EBDFF call 0040A8EC
|
||
00837A0E 837DBC00 cmp dword ptr [ebp-$44], +$00
|
||
00837A12 750D jnz 00837A21
|
||
00837A14 8D45F8 lea eax, [ebp-$08]
|
||
00837A17 BA387D8300 mov edx, $00837D38
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00837A1C E89BD9BCFF call 004053BC
|
||
|
||
* Possible String Reference to: 'HuiLv'
|
||
|
|
||
00837A21 BAC87D8300 mov edx, $00837DC8
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00837A26 8B834C030000 mov eax, [ebx+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00837A2C E883F1C8FF call 004C6BB4
|
||
00837A31 8D55B8 lea edx, [ebp-$48]
|
||
00837A34 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00837A36 FF5160 call dword ptr [ecx+$60]
|
||
00837A39 8B45B8 mov eax, [ebp-$48]
|
||
00837A3C 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837A3F E8A82EBDFF call 0040A8EC
|
||
00837A44 8D55B4 lea edx, [ebp-$4C]
|
||
00837A47 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837A4A E89D2EBDFF call 0040A8EC
|
||
00837A4F 837DB400 cmp dword ptr [ebp-$4C], +$00
|
||
00837A53 750D jnz 00837A62
|
||
00837A55 8D45F4 lea eax, [ebp-$0C]
|
||
00837A58 BA387D8300 mov edx, $00837D38
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00837A5D E85AD9BCFF call 004053BC
|
||
00837A62 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837A65 E8C25CBDFF call 0040D72C
|
||
00837A6A DB7DA8 fstp tbyte ptr [ebp-$58]
|
||
00837A6D 9B wait
|
||
00837A6E 8B45F4 mov eax, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837A71 E8B65CBDFF call 0040D72C
|
||
00837A76 DB6DA8 fld tbyte ptr [ebp-$58]
|
||
00837A79 DEC9 fmulp st(1), st(0)
|
||
00837A7B 83C4F4 add esp, -$0C
|
||
00837A7E DB3C24 fstp tbyte ptr [esp]
|
||
00837A81 9B wait
|
||
00837A82 8D45F0 lea eax, [ebp-$10]
|
||
|
||
|
|
||
00837A85 E8225BBDFF call 0040D5AC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00837A8A 8BB34C030000 mov esi, [ebx+$034C]
|
||
00837A90 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00837A92 E8A909C9FF call 004C8440
|
||
|
||
* Possible String Reference to: 'Money'
|
||
|
|
||
00837A97 BAB87D8300 mov edx, $00837DB8
|
||
00837A9C 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00837A9E E811F1C8FF call 004C6BB4
|
||
00837AA3 50 push eax
|
||
00837AA4 8B45F8 mov eax, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837AA7 E8805CBDFF call 0040D72C
|
||
00837AAC 8D4598 lea eax, [ebp-$68]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00837AAF E8D812BEFF call 00418D8C
|
||
00837AB4 8D5598 lea edx, [ebp-$68]
|
||
00837AB7 58 pop eax
|
||
00837AB8 8B08 mov ecx, [eax]
|
||
00837ABA FF91B4000000 call dword ptr [ecx+$00B4]
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00837AC0 BAA87D8300 mov edx, $00837DA8
|
||
00837AC5 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00837AC7 E8E8F0C8FF call 004C6BB4
|
||
00837ACC 50 push eax
|
||
00837ACD 8B45F0 mov eax, [ebp-$10]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00837AD0 E8575CBDFF call 0040D72C
|
||
00837AD5 8D4588 lea eax, [ebp-$78]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00837AD8 E8AF12BEFF call 00418D8C
|
||
00837ADD 8D5588 lea edx, [ebp-$78]
|
||
00837AE0 58 pop eax
|
||
00837AE1 8B08 mov ecx, [eax]
|
||
00837AE3 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00837AE9 8BC6 mov eax, esi
|
||
00837AEB 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
00837AED FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00837AF3 8BB30C030000 mov esi, [ebx+$030C]
|
||
00837AF9 8BC6 mov eax, esi
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00837AFB E8D4DDC8FF call 004C58D4
|
||
00837B00 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00837B02 E8A564CAFF call 004DDFAC
|
||
00837B07 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00837B09 FF5244 call dword ptr [edx+$44]
|
||
00837B0C 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00837B0E E89964CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00837B13 BAD87D8300 mov edx, $00837DD8
|
||
00837B18 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00837B1A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
00837B1D 68F47D8300 push $00837DF4
|
||
00837B22 FF75E8 push dword ptr [ebp-$18]
|
||
00837B25 68047E8300 push $00837E04
|
||
00837B2A 8D5580 lea edx, [ebp-$80]
|
||
00837B2D 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00837B30 E8B72DBDFF call 0040A8EC
|
||
00837B35 FF7580 push dword ptr [ebp-$80]
|
||
00837B38 8D4584 lea eax, [ebp-$7C]
|
||
00837B3B BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00837B40 E86FDBBCFF call 004056B4
|
||
00837B45 8B4584 mov eax, [ebp-$7C]
|
||
00837B48 50 push eax
|
||
00837B49 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00837B4B E85C64CAFF call 004DDFAC
|
||
00837B50 5A pop edx
|
||
00837B51 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00837B53 FF5138 call dword ptr [ecx+$38]
|
||
00837B56 8BC6 mov eax, esi
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00837B58 E84F64CAFF call 004DDFAC
|
||
00837B5D 50 push eax
|
||
00837B5E 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
|
||
00837B64 8B4DF0 mov ecx, [ebp-$10]
|
||
|
||
* Possible String Reference to: ',BBMoney='
|
||
|
|
||
00837B67 BA107E8300 mov edx, $00837E10
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00837B6C E8CFDABCFF call 00405640
|
||
00837B71 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
|
||
00837B77 58 pop eax
|
||
00837B78 8B08 mov ecx, [eax]
|
||
00837B7A FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00837B7D 68247E8300 push $00837E24
|
||
00837B82 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00837DD9(Sender : TObject);
|
||
begin
|
||
(*
|
||
00837DD9 50 push eax
|
||
00837DDA 6461 popa
|
||
00837DDC 7465 jz 00837E43
|
||
00837DDE 205946 and [ecx+$46], bl
|
||
00837DE1 5F pop edi
|
||
00837DE2 4D dec ebp
|
||
00837DE3 6F outsd
|
||
00837DE4 6E outsb
|
||
00837DE5 65795F jns 00837E47
|
||
00837DE8 43 inc ebx
|
||
00837DE9 52 push edx
|
||
00837DEA 2000 and [eax], al
|
||
00837DEC FFFF DB $FF, $FF //
|
||
00837DEE FFFF DB $FF, $FF //
|
||
00837DF0 0500000020 add eax, +$20000000
|
||
00837DF5 53 push ebx
|
||
00837DF6 657420 jz 00837E19
|
||
00837DF9 0000 add [eax], al
|
||
|
||
00837DFB 00FF add bh, bh
|
||
00837DFD FFFF DB $FF, $FF //
|
||
00837DFF FF01 inc dword ptr [ecx]
|
||
00837E01 0000 add [eax], al
|
||
|
||
00837E03 003D000000FF add [$FF000000], bh
|
||
00837E09 FFFF DB $FF, $FF //
|
||
00837E0B FF09 dec dword ptr [ecx]
|
||
00837E0D 0000 add [eax], al
|
||
|
||
00837E0F 002C42 add [edx+eax*2], ch
|
||
00837E12 42 inc edx
|
||
00837E13 4D dec ebp
|
||
00837E14 6F outsd
|
||
00837E15 6E outsb
|
||
00837E16 65793D jns 00837E56
|
||
00837E19 0000 add [eax], al
|
||
|
||
00837E1B 00FF add bh, bh
|
||
00837E1D FFFF DB $FF, $FF //
|
||
00837E1F FF09 dec dword ptr [ecx]
|
||
00837E21 0000 add [eax], al
|
||
|
||
00837E23 002C4564697465 add [$65746964+eax*2], ch
|
||
00837E2A 723D jb 00837E69
|
||
00837E2C 27 daa
|
||
00837E2D 0000 add [eax], al
|
||
|
||
00837E2F 00FF add bh, bh
|
||
00837E31 FFFF DB $FF, $FF //
|
||
00837E33 FF1400 call dword ptr [eax+eax]
|
||
00837E36 0000 add [eax], al
|
||
|
||
00837E38 2C45 sub al, $45
|
||
00837E3A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
00837E43 657464 jz 00837EAA
|
||
00837E46 61 popa
|
||
00837E47 7465 jz 00837EAE
|
||
00837E49 2829 sub [ecx], ch
|
||
00837E4B 2000 and [eax], al
|
||
00837E4D 0000 add [eax], al
|
||
|
||
00837E4F 00FF add bh, bh
|
||
00837E51 FFFF DB $FF, $FF //
|
||
00837E53 FF0D00000020 dec dword ptr [$20000000]
|
||
00837E59 7768 jnbe 00837EC3
|
||
00837E5B 657265 jb 00837EC3
|
||
00837E5E 205946 and [ecx+$46], bl
|
||
00837E61 49 dec ecx
|
||
00837E62 643D27000000 cmp eax, $00000027
|
||
00837E68 FFFF DB $FF, $FF //
|
||
00837E6A FFFF DB $FF, $FF //
|
||
00837E6C 0400 add al, +$00
|
||
00837E6E 0000 add [eax], al
|
||
|
||
00837E70 59 pop ecx
|
||
00837E71 46 inc esi
|
||
00837E72 49 dec ecx
|
||
00837E73 640000 add fs:[eax], al
|
||
00837E76 0000 add [eax], al
|
||
|
||
00837E78 FFFF DB $FF, $FF //
|
||
00837E7A FFFF DB $FF, $FF //
|
||
00837E7C 2B00 sub eax, dword ptr [eax]
|
||
00837E7E 0000 add [eax], al
|
||
|
||
00837E80 55 push ebp
|
||
00837E81 7064 jo 00837EE7
|
||
00837E83 61 popa
|
||
00837E84 7465 jz 00837EEB
|
||
00837E86 205946 and [ecx+$46], bl
|
||
00837E89 5F pop edi
|
||
00837E8A 4D dec ebp
|
||
00837E8B 6F outsd
|
||
00837E8C 6E outsb
|
||
00837E8D 65795F jns 00837EEF
|
||
00837E90 4B dec ebx
|
||
00837E91 43 inc ebx
|
||
00837E92 205365 and [ebx+$65], dl
|
||
00837E95 7420 jz 00837EB7
|
||
00837E97 4B dec ebx
|
||
00837E98 43 inc ebx
|
||
00837E99 42 inc edx
|
||
00837E9A 42 inc edx
|
||
00837E9B 4D dec ebp
|
||
00837E9C 6F outsd
|
||
00837E9D 6E outsb
|
||
00837E9E 65793D jns 00837EDE
|
||
00837EA1 4B dec ebx
|
||
00837EA2 43 inc ebx
|
||
00837EA3 42 inc edx
|
||
00837EA4 42 inc edx
|
||
00837EA5 4D dec ebp
|
||
00837EA6 6F outsd
|
||
00837EA7 6E outsb
|
||
00837EA8 65792B jns 00837ED6
|
||
00837EAB 00FF add bh, bh
|
||
00837EAD FFFF DB $FF, $FF //
|
||
00837EAF FF01 inc dword ptr [ecx]
|
||
00837EB1 0000 add [eax], al
|
||
|
||
00837EB3 002D000000FF add [$FF000000], ch
|
||
00837EB9 FFFF DB $FF, $FF //
|
||
00837EBB FF0D00000020 dec dword ptr [$20000000]
|
||
00837EC1 7768 jnbe 00837F2B
|
||
00837EC3 657265 jb 00837F2B
|
||
00837EC6 204352 and [ebx+$52], al
|
||
00837EC9 49 dec ecx
|
||
00837ECA 44 inc esp
|
||
00837ECB 3D27000000 cmp eax, $00000027
|
||
00837ED0 FFFF DB $FF, $FF //
|
||
00837ED2 FFFF DB $FF, $FF //
|
||
00837ED4 0400 add al, +$00
|
||
00837ED6 0000 add [eax], al
|
||
|
||
00837ED8 43 inc ebx
|
||
00837ED9 52 push edx
|
||
00837EDA 49 dec ecx
|
||
00837EDB 44 inc esp
|
||
00837EDC 0000 add [eax], al
|
||
|
||
00837EDE 0000 add [eax], al
|
||
|
||
00837EE0 55 push ebp
|
||
00837EE1 8BEC mov ebp, esp
|
||
00837EE3 51 push ecx
|
||
00837EE4 B90E000000 mov ecx, $0000000E
|
||
00837EE9 6A00 push $00
|
||
00837EEB 6A00 push $00
|
||
00837EED 49 dec ecx
|
||
00837EEE 75F9 jnz 00837EE9
|
||
00837EF0 51 push ecx
|
||
00837EF1 874DFC xchg [ebp-$04], ecx
|
||
00837EF4 53 push ebx
|
||
00837EF5 8945FC mov [ebp-$04], eax
|
||
00837EF8 33C0 xor eax, eax
|
||
00837EFA 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><>ȼ<EFBFBD><C8BC><EFBFBD>[<5B><>]<5D>'
|
||
|
|
||
00837EFB 6851828300 push $00838251
|
||
|
||
***** TRY
|
||
|
|
||
00837F00 64FF30 push dword ptr fs:[eax]
|
||
00837F03 648920 mov fs:[eax], esp
|
||
00837F06 33C0 xor eax, eax
|
||
00837F08 55 push ebp
|
||
00837F09 68FD818300 push $008381FD
|
||
|
||
***** TRY
|
||
|
|
||
00837F0E 64FF30 push dword ptr fs:[eax]
|
||
00837F11 648920 mov fs:[eax], esp
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00838299(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838299 50 push eax
|
||
0083829A 6461 popa
|
||
0083829C 7465 jz 00838303
|
||
0083829E 205946 and [ecx+$46], bl
|
||
008382A1 5F pop edi
|
||
008382A2 4D dec ebp
|
||
008382A3 6F outsd
|
||
008382A4 6E outsb
|
||
008382A5 65795F jns 00838307
|
||
008382A8 43 inc ebx
|
||
008382A9 52 push edx
|
||
008382AA 2000 and [eax], al
|
||
008382AC FFFF DB $FF, $FF //
|
||
008382AE FFFF DB $FF, $FF //
|
||
008382B0 0D00000020 or eax, $20000000
|
||
008382B5 53 push ebx
|
||
008382B6 657420 jz 008382D9
|
||
008382B9 4D dec ebp
|
||
008382BA 61 popa
|
||
008382BB 696E49643D2700 imul ebp, [esi+$49], $00273D64
|
||
008382C2 0000 add [eax], al
|
||
|
||
008382C4 FFFF DB $FF, $FF //
|
||
008382C6 FFFF DB $FF, $FF //
|
||
008382C8 0100 add [eax], eax
|
||
008382CA 0000 add [eax], al
|
||
|
||
008382CC 27 daa
|
||
008382CD 0000 add [eax], al
|
||
|
||
008382CF 00FF add bh, bh
|
||
008382D1 FFFF DB $FF, $FF //
|
||
008382D3 FF09 dec dword ptr [ecx]
|
||
008382D5 0000 add [eax], al
|
||
|
||
008382D7 0020 add [eax], ah
|
||
008382D9 2C53 sub al, $53
|
||
008382DB 7562 jnz 0083833F
|
||
008382DD 49 dec ecx
|
||
008382DE 643D27000000 cmp eax, $00000027
|
||
008382E4 FFFF DB $FF, $FF //
|
||
008382E6 FFFF DB $FF, $FF //
|
||
008382E8 0500000053 add eax, +$53000000
|
||
008382ED 7562 jnz 00838351
|
||
008382EF 49 dec ecx
|
||
008382F0 640000 add fs:[eax], al
|
||
008382F3 00FF add bh, bh
|
||
008382F5 FFFF DB $FF, $FF //
|
||
008382F7 FF09 dec dword ptr [ecx]
|
||
008382F9 0000 add [eax], al
|
||
|
||
008382FB 002C4564697465 add [$65746964+eax*2], ch
|
||
00838302 723D jb 00838341
|
||
00838304 27 daa
|
||
00838305 0000 add [eax], al
|
||
|
||
00838307 00FF add bh, bh
|
||
00838309 FFFF DB $FF, $FF //
|
||
0083830B FF1400 call dword ptr [eax+eax]
|
||
0083830E 0000 add [eax], al
|
||
|
||
00838310 2C45 sub al, $45
|
||
00838312 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
0083831B 657464 jz 00838382
|
||
0083831E 61 popa
|
||
0083831F 7465 jz 00838386
|
||
00838321 2829 sub [ecx], ch
|
||
00838323 2000 and [eax], al
|
||
00838325 0000 add [eax], al
|
||
|
||
00838327 00FF add bh, bh
|
||
00838329 FFFF DB $FF, $FF //
|
||
0083832B FF0D00000020 dec dword ptr [$20000000]
|
||
00838331 7768 jnbe 0083839B
|
||
00838333 657265 jb 0083839B
|
||
00838336 205946 and [ecx+$46], bl
|
||
00838339 49 dec ecx
|
||
0083833A 643D27000000 cmp eax, $00000027
|
||
00838340 FFFF DB $FF, $FF //
|
||
00838342 FFFF DB $FF, $FF //
|
||
00838344 0400 add al, +$00
|
||
00838346 0000 add [eax], al
|
||
|
||
00838348 59 pop ecx
|
||
00838349 46 inc esi
|
||
0083834A 49 dec ecx
|
||
0083834B 640000 add fs:[eax], al
|
||
0083834E 0000 add [eax], al
|
||
|
||
00838350 55 push ebp
|
||
00838351 8BEC mov ebp, esp
|
||
00838353 B909000000 mov ecx, $00000009
|
||
00838358 6A00 push $00
|
||
0083835A 6A00 push $00
|
||
0083835C 49 dec ecx
|
||
0083835D 75F9 jnz 00838358
|
||
0083835F 51 push ecx
|
||
00838360 53 push ebx
|
||
00838361 56 push esi
|
||
00838362 8BDA mov ebx, edx
|
||
00838364 8BF0 mov esi, eax
|
||
00838366 33C0 xor eax, eax
|
||
00838368 55 push ebp
|
||
00838369 68EE858300 push $008385EE
|
||
|
||
***** TRY
|
||
|
|
||
0083836E 64FF30 push dword ptr fs:[eax]
|
||
00838371 648920 mov fs:[eax], esp
|
||
00838374 8D55FC lea edx, [ebp-$04]
|
||
00838377 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;
|
||
|
|
||
00838379 E83E73D5FF call 0058F6BC
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
0083837E 8B9E08030000 mov ebx, [esi+$0308]
|
||
00838384 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838386 E849D5C8FF call 004C58D4
|
||
0083838B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
0083838D E81A5CCAFF call 004DDFAC
|
||
00838392 8B10 mov edx, [eax]
|
||
|
||
* Reference to method TLabel.GetClientRect()
|
||
|
|
||
00838394 FF5244 call dword ptr [edx+$44]
|
||
|
||
* Possible String Reference to: 'select isnull(BBMoney,0) BBMoney fr
|
||
| om YF_Money_CR where YFID=''
|
||
|
|
||
00838397 6804868300 push $00838604
|
||
|
||
* Possible String Reference to: 'YFID'
|
||
|
|
||
0083839C BA4C868300 mov edx, $0083864C
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
008383A1 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008383A7 E808E8C8FF call 004C6BB4
|
||
008383AC 8D55F0 lea edx, [ebp-$10]
|
||
008383AF 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
008383B1 FF5160 call dword ptr [ecx+$60]
|
||
008383B4 FF75F0 push dword ptr [ebp-$10]
|
||
008383B7 685C868300 push $0083865C
|
||
008383BC 8D45F4 lea eax, [ebp-$0C]
|
||
008383BF BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
008383C4 E8EBD2BCFF call 004056B4
|
||
008383C9 8B45F4 mov eax, [ebp-$0C]
|
||
008383CC 50 push eax
|
||
008383CD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
008383CF E8D85BCAFF call 004DDFAC
|
||
008383D4 5A pop edx
|
||
008383D5 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
||
|
|
||
008383D7 FF5138 call dword ptr [ecx+$38]
|
||
008383DA 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Open(TDataSet);
|
||
|
|
||
008383DC E8E7D4C8FF call 004C58C8
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
008383E1 BA68868300 mov edx, $00838668
|
||
|
||
* Reference to control Label3 : TLabel
|
||
|
|
||
008383E6 8B8608030000 mov eax, [esi+$0308]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
008383EC E8C3E7C8FF call 004C6BB4
|
||
008383F1 8D55F8 lea edx, [ebp-$08]
|
||
008383F4 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetDragMode(TDragMode)
|
||
|
|
||
008383F6 FF5160 call dword ptr [ecx+$60]
|
||
008383F9 8D55EC lea edx, [ebp-$14]
|
||
008383FC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008383FF E8E824BDFF call 0040A8EC
|
||
00838404 837DEC00 cmp dword ptr [ebp-$14], +$00
|
||
00838408 750D jnz 00838417
|
||
0083840A 8D45FC lea eax, [ebp-$04]
|
||
0083840D BA78868300 mov edx, $00838678
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00838412 E8A5CFBCFF call 004053BC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00838417 8B9E4C030000 mov ebx, [esi+$034C]
|
||
0083841D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
0083841F E81C00C9FF call 004C8440
|
||
|
||
* Possible String Reference to: 'BBMoney'
|
||
|
|
||
00838424 BA68868300 mov edx, $00838668
|
||
00838429 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
0083842B E884E7C8FF call 004C6BB4
|
||
00838430 50 push eax
|
||
00838431 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
||
|
|
||
00838434 E8F352BDFF call 0040D72C
|
||
00838439 8D45DC lea eax, [ebp-$24]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
0083843C E84B09BEFF call 00418D8C
|
||
00838441 8D55DC lea edx, [ebp-$24]
|
||
00838444 58 pop eax
|
||
00838445 8B08 mov ecx, [eax]
|
||
00838447 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
0083844D 8BC3 mov eax, ebx
|
||
0083844F 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
00838451 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00838457 8B9E0C030000 mov ebx, [esi+$030C]
|
||
0083845D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
0083845F E870D4C8FF call 004C58D4
|
||
00838464 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838466 E8415BCAFF call 004DDFAC
|
||
0083846B 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
0083846D FF5244 call dword ptr [edx+$44]
|
||
00838470 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838472 E8355BCAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838477 BA84868300 mov edx, $00838684
|
||
0083847C 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
0083847E FF5138 call dword ptr [ecx+$38]
|
||
00838481 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838483 E8245BCAFF call 004DDFAC
|
||
00838488 50 push eax
|
||
00838489 8D45D8 lea eax, [ebp-$28]
|
||
0083848C 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set BBMoney='
|
||
|
|
||
0083848F BAA0868300 mov edx, $008386A0
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00838494 E8A7D1BCFF call 00405640
|
||
00838499 8B55D8 mov edx, [ebp-$28]
|
||
0083849C 58 pop eax
|
||
0083849D 8B08 mov ecx, [eax]
|
||
0083849F FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
008384A2 68B8868300 push $008386B8
|
||
008384A7 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00838685(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838685 50 push eax
|
||
00838686 6461 popa
|
||
00838688 7465 jz 008386EF
|
||
0083868A 205946 and [ecx+$46], bl
|
||
0083868D 5F pop edi
|
||
0083868E 4D dec ebp
|
||
0083868F 6F outsd
|
||
00838690 6E outsb
|
||
00838691 65795F jns 008386F3
|
||
00838694 43 inc ebx
|
||
00838695 52 push edx
|
||
00838696 2000 and [eax], al
|
||
00838698 FFFF DB $FF, $FF //
|
||
0083869A FFFF DB $FF, $FF //
|
||
0083869C 0D00000020 or eax, $20000000
|
||
008386A1 7365 jnb 00838708
|
||
008386A3 7420 jz 008386C5
|
||
008386A5 42 inc edx
|
||
008386A6 42 inc edx
|
||
008386A7 4D dec ebp
|
||
008386A8 6F outsd
|
||
008386A9 6E outsb
|
||
008386AA 65793D jns 008386EA
|
||
008386AD 0000 add [eax], al
|
||
|
||
008386AF 00FF add bh, bh
|
||
008386B1 FFFF DB $FF, $FF //
|
||
008386B3 FF09 dec dword ptr [ecx]
|
||
008386B5 0000 add [eax], al
|
||
|
||
008386B7 002C4564697465 add [$65746964+eax*2], ch
|
||
008386BE 723D jb 008386FD
|
||
008386C0 27 daa
|
||
008386C1 0000 add [eax], al
|
||
|
||
008386C3 00FF add bh, bh
|
||
008386C5 FFFF DB $FF, $FF //
|
||
008386C7 FF1400 call dword ptr [eax+eax]
|
||
008386CA 0000 add [eax], al
|
||
|
||
008386CC 2C45 sub al, $45
|
||
008386CE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
008386D7 657464 jz 0083873E
|
||
008386DA 61 popa
|
||
008386DB 7465 jz 00838742
|
||
008386DD 2829 sub [ecx], ch
|
||
008386DF 2000 and [eax], al
|
||
008386E1 0000 add [eax], al
|
||
|
||
008386E3 00FF add bh, bh
|
||
008386E5 FFFF DB $FF, $FF //
|
||
008386E7 FF0D00000020 dec dword ptr [$20000000]
|
||
008386ED 7768 jnbe 00838757
|
||
008386EF 657265 jb 00838757
|
||
008386F2 205946 and [ecx+$46], bl
|
||
008386F5 49 dec ecx
|
||
008386F6 643D27000000 cmp eax, $00000027
|
||
008386FC FFFF DB $FF, $FF //
|
||
008386FE FFFF DB $FF, $FF //
|
||
00838700 0400 add al, +$00
|
||
00838702 0000 add [eax], al
|
||
|
||
00838704 59 pop ecx
|
||
00838705 46 inc esi
|
||
00838706 49 dec ecx
|
||
00838707 640000 add fs:[eax], al
|
||
0083870A 0000 add [eax], al
|
||
|
||
0083870C FFFF DB $FF, $FF //
|
||
0083870E FFFF DB $FF, $FF //
|
||
00838710 2B00 sub eax, dword ptr [eax]
|
||
00838712 0000 add [eax], al
|
||
|
||
00838714 55 push ebp
|
||
00838715 7064 jo 0083877B
|
||
00838717 61 popa
|
||
00838718 7465 jz 0083877F
|
||
0083871A 205946 and [ecx+$46], bl
|
||
0083871D 5F pop edi
|
||
0083871E 4D dec ebp
|
||
0083871F 6F outsd
|
||
00838720 6E outsb
|
||
00838721 65795F jns 00838783
|
||
00838724 4B dec ebx
|
||
00838725 43 inc ebx
|
||
00838726 205365 and [ebx+$65], dl
|
||
00838729 7420 jz 0083874B
|
||
0083872B 4B dec ebx
|
||
0083872C 43 inc ebx
|
||
0083872D 42 inc edx
|
||
0083872E 42 inc edx
|
||
0083872F 4D dec ebp
|
||
00838730 6F outsd
|
||
00838731 6E outsb
|
||
00838732 65793D jns 00838772
|
||
00838735 4B dec ebx
|
||
00838736 43 inc ebx
|
||
00838737 42 inc edx
|
||
00838738 42 inc edx
|
||
00838739 4D dec ebp
|
||
0083873A 6F outsd
|
||
0083873B 6E outsb
|
||
0083873C 65792B jns 0083876A
|
||
0083873F 00FF add bh, bh
|
||
00838741 FFFF DB $FF, $FF //
|
||
00838743 FF01 inc dword ptr [ecx]
|
||
00838745 0000 add [eax], al
|
||
|
||
00838747 002D000000FF add [$FF000000], ch
|
||
0083874D FFFF DB $FF, $FF //
|
||
0083874F FF0D00000020 dec dword ptr [$20000000]
|
||
00838755 7768 jnbe 008387BF
|
||
00838757 657265 jb 008387BF
|
||
0083875A 204352 and [ebx+$52], al
|
||
0083875D 49 dec ecx
|
||
0083875E 44 inc esp
|
||
0083875F 3D27000000 cmp eax, $00000027
|
||
00838764 FFFF DB $FF, $FF //
|
||
00838766 FFFF DB $FF, $FF //
|
||
00838768 0400 add al, +$00
|
||
0083876A 0000 add [eax], al
|
||
|
||
0083876C 43 inc ebx
|
||
0083876D 52 push edx
|
||
0083876E 49 dec ecx
|
||
0083876F 44 inc esp
|
||
00838770 0000 add [eax], al
|
||
|
||
00838772 0000 add [eax], al
|
||
|
||
00838774 56 push esi
|
||
|
||
* Reference to control DlyDate : N.A.
|
||
|
|
||
00838775 8B8014030000 mov eax, [eax+$0314]
|
||
0083877B 66BEEBFF mov si, $FFEB
|
||
|
||
* Reference to: System.@CallDynaInst;
|
||
|
|
||
0083877F E8D0BDBCFF call 00404554
|
||
00838784 5E pop esi
|
||
00838785 C3 ret
|
||
|
||
00838786 8BC0 mov eax, eax
|
||
00838788 55 push ebp
|
||
00838789 8BEC mov ebp, esp
|
||
0083878B B907000000 mov ecx, $00000007
|
||
00838790 6A00 push $00
|
||
00838792 6A00 push $00
|
||
00838794 49 dec ecx
|
||
00838795 75F9 jnz 00838790
|
||
00838797 51 push ecx
|
||
00838798 53 push ebx
|
||
00838799 56 push esi
|
||
0083879A 8BDA mov ebx, edx
|
||
0083879C 8BF0 mov esi, eax
|
||
0083879E 33C0 xor eax, eax
|
||
008387A0 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
008387A1 6858898300 push $00838958
|
||
|
||
***** TRY
|
||
|
|
||
008387A6 64FF30 push dword ptr fs:[eax]
|
||
008387A9 648920 mov fs:[eax], esp
|
||
008387AC 8D55FC lea edx, [ebp-$04]
|
||
008387AF 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;
|
||
|
|
||
008387B1 E8066FD5FF call 0058F6BC
|
||
|
||
* Reference to control Label17 : TLabel
|
||
|
|
||
008387B6 8B86A8030000 mov eax, [esi+$03A8]
|
||
|
||
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
|
||
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
||
|
|
||
008387BC E88B3BE2FF call 0065C34C
|
||
|
||
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
||
|
|
||
008387C1 E89E93E1FF call 00651B64
|
||
|
||
* Reference to field TLabel.ControlStyle : TControlStyle
|
||
|
|
||
008387C6 8B4050 mov eax, [eax+$50]
|
||
008387C9 8D55F4 lea edx, [ebp-$0C]
|
||
008387CC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TControlStyle.OFFS_10
|
||
|
|
||
008387CE FF5110 call dword ptr [ecx+$10]
|
||
008387D1 8B45F4 mov eax, [ebp-$0C]
|
||
008387D4 8D55F8 lea edx, [ebp-$08]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008387D7 E81021BDFF call 0040A8EC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
008387DC 8B9E4C030000 mov ebx, [esi+$034C]
|
||
008387E2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
008387E4 E857FCC8FF call 004C8440
|
||
008387E9 8D55E0 lea edx, [ebp-$20]
|
||
008387EC 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
008387EF E8F820BDFF call 0040A8EC
|
||
008387F4 8B55E0 mov edx, [ebp-$20]
|
||
008387F7 8D45E4 lea eax, [ebp-$1C]
|
||
|
||
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
||
|
|
||
008387FA E8C905BEFF call 00418DC8
|
||
008387FF 8D45E4 lea eax, [ebp-$1C]
|
||
00838802 50 push eax
|
||
00838803 8B55F8 mov edx, [ebp-$08]
|
||
00838806 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838808 E8A7E3C8FF call 004C6BB4
|
||
0083880D 5A pop edx
|
||
0083880E 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
00838810 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00838816 8BC3 mov eax, ebx
|
||
00838818 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
0083881A FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00838820 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00838826 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838828 E8A7D0C8FF call 004C58D4
|
||
0083882D 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0083882F E87857CAFF call 004DDFAC
|
||
00838834 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00838836 FF5244 call dword ptr [edx+$44]
|
||
00838839 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0083883B E86C57CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838840 BA70898300 mov edx, $00838970
|
||
00838845 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838847 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' Set '
|
||
|
|
||
0083884A 688C898300 push $0083898C
|
||
0083884F FF75F8 push dword ptr [ebp-$08]
|
||
|
||
* Possible String Reference to: '=''
|
||
|
|
||
00838852 689C898300 push $0083899C
|
||
00838857 8D55D8 lea edx, [ebp-$28]
|
||
0083885A 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
0083885D E88A20BDFF call 0040A8EC
|
||
00838862 FF75D8 push dword ptr [ebp-$28]
|
||
00838865 68A8898300 push $008389A8
|
||
0083886A 8D45DC lea eax, [ebp-$24]
|
||
0083886D BA05000000 mov edx, $00000005
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00838872 E83DCEBCFF call 004056B4
|
||
00838877 8B45DC mov eax, [ebp-$24]
|
||
0083887A 50 push eax
|
||
0083887B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
0083887D E82A57CAFF call 004DDFAC
|
||
00838882 5A pop edx
|
||
00838883 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838885 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ',Editer=''
|
||
|
|
||
00838888 68B4898300 push $008389B4
|
||
0083888D 8D55D0 lea edx, [ebp-$30]
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00838971(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838971 50 push eax
|
||
00838972 6461 popa
|
||
00838974 7465 jz 008389DB
|
||
00838976 205946 and [ecx+$46], bl
|
||
00838979 5F pop edi
|
||
0083897A 4D dec ebp
|
||
0083897B 6F outsd
|
||
0083897C 6E outsb
|
||
0083897D 65795F jns 008389DF
|
||
00838980 43 inc ebx
|
||
00838981 52 push edx
|
||
00838982 2000 and [eax], al
|
||
00838984 FFFF DB $FF, $FF //
|
||
00838986 FFFF DB $FF, $FF //
|
||
00838988 0500000020 add eax, +$20000000
|
||
0083898D 53 push ebx
|
||
0083898E 657420 jz 008389B1
|
||
00838991 0000 add [eax], al
|
||
|
||
00838993 00FF add bh, bh
|
||
00838995 FFFF DB $FF, $FF //
|
||
00838997 FF02 inc dword ptr [edx]
|
||
00838999 0000 add [eax], al
|
||
|
||
0083899B 003D270000FF add [$FF000027], bh
|
||
008389A1 FFFF DB $FF, $FF //
|
||
008389A3 FF01 inc dword ptr [ecx]
|
||
008389A5 0000 add [eax], al
|
||
|
||
008389A7 0027 add [edi], ah
|
||
008389A9 0000 add [eax], al
|
||
|
||
008389AB 00FF add bh, bh
|
||
008389AD FFFF DB $FF, $FF //
|
||
008389AF FF09 dec dword ptr [ecx]
|
||
008389B1 0000 add [eax], al
|
||
|
||
008389B3 002C4564697465 add [$65746964+eax*2], ch
|
||
008389BA 723D jb 008389F9
|
||
008389BC 27 daa
|
||
008389BD 0000 add [eax], al
|
||
|
||
008389BF 00FF add bh, bh
|
||
008389C1 FFFF DB $FF, $FF //
|
||
008389C3 FF1400 call dword ptr [eax+eax]
|
||
008389C6 0000 add [eax], al
|
||
|
||
008389C8 2C45 sub al, $45
|
||
008389CA 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
|
||
008389D3 657464 jz 00838A3A
|
||
008389D6 61 popa
|
||
008389D7 7465 jz 00838A3E
|
||
008389D9 2829 sub [ecx], ch
|
||
008389DB 2000 and [eax], al
|
||
008389DD 0000 add [eax], al
|
||
|
||
008389DF 00FF add bh, bh
|
||
008389E1 FFFF DB $FF, $FF //
|
||
008389E3 FF0D00000020 dec dword ptr [$20000000]
|
||
008389E9 7768 jnbe 00838A53
|
||
008389EB 657265 jb 00838A53
|
||
008389EE 205946 and [ecx+$46], bl
|
||
008389F1 49 dec ecx
|
||
008389F2 643D27000000 cmp eax, $00000027
|
||
008389F8 FFFF DB $FF, $FF //
|
||
008389FA FFFF DB $FF, $FF //
|
||
008389FC 0400 add al, +$00
|
||
008389FE 0000 add [eax], al
|
||
|
||
00838A00 59 pop ecx
|
||
00838A01 46 inc esi
|
||
00838A02 49 dec ecx
|
||
00838A03 640000 add fs:[eax], al
|
||
00838A06 0000 add [eax], al
|
||
|
||
00838A08 55 push ebp
|
||
00838A09 8BEC mov ebp, esp
|
||
00838A0B B905000000 mov ecx, $00000005
|
||
00838A10 6A00 push $00
|
||
00838A12 6A00 push $00
|
||
00838A14 49 dec ecx
|
||
00838A15 75F9 jnz 00838A10
|
||
00838A17 53 push ebx
|
||
00838A18 56 push esi
|
||
00838A19 8BDA mov ebx, edx
|
||
00838A1B 8BF0 mov esi, eax
|
||
00838A1D 33C0 xor eax, eax
|
||
00838A1F 55 push ebp
|
||
|
||
* Possible String Reference to: '醿<><E986BF><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
||
|
|
||
00838A20 68698B8300 push $00838B69
|
||
|
||
***** TRY
|
||
|
|
||
00838A25 64FF30 push dword ptr fs:[eax]
|
||
00838A28 648920 mov fs:[eax], esp
|
||
00838A2B 8D55FC lea edx, [ebp-$04]
|
||
00838A2E 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;
|
||
|
|
||
00838A30 E8876CD5FF call 0058F6BC
|
||
00838A35 8D55F8 lea edx, [ebp-$08]
|
||
00838A38 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838A3B E8AC1EBDFF call 0040A8EC
|
||
00838A40 837DF800 cmp dword ptr [ebp-$08], +$00
|
||
00838A44 750D jnz 00838A53
|
||
00838A46 8D45FC lea eax, [ebp-$04]
|
||
00838A49 BA808B8300 mov edx, $00838B80
|
||
|
||
* Reference to: System.@LStrLAsg(void;void;void;void);
|
||
|
|
||
00838A4E E869C9BCFF call 004053BC
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00838A53 8B9E4C030000 mov ebx, [esi+$034C]
|
||
00838A59 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Edit(TDataSet);
|
||
|
|
||
00838A5B E8E0F9C8FF call 004C8440
|
||
00838A60 6A00 push $00
|
||
00838A62 6A00 push $00
|
||
00838A64 6A00 push $00
|
||
00838A66 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
||
|
|
||
00838A69 E8FA4CBDFF call 0040D768
|
||
00838A6E 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarFromReal;
|
||
|
|
||
00838A71 E81603BEFF call 00418D8C
|
||
00838A76 8D45E8 lea eax, [ebp-$18]
|
||
00838A79 50 push eax
|
||
|
||
* Possible String Reference to: 'DerateMoney'
|
||
|
|
||
00838A7A BA8C8B8300 mov edx, $00838B8C
|
||
00838A7F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838A81 E82EE1C8FF call 004C6BB4
|
||
00838A86 5A pop edx
|
||
00838A87 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_00B4
|
||
|
|
||
00838A89 FF91B4000000 call dword ptr [ecx+$00B4]
|
||
00838A8F 8BC3 mov eax, ebx
|
||
00838A91 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_024C
|
||
|
|
||
00838A93 FF924C020000 call dword ptr [edx+$024C]
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00838A99 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00838A9F 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838AA1 E82ECEC8FF call 004C58D4
|
||
00838AA6 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838AA8 E8FF54CAFF call 004DDFAC
|
||
00838AAD 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00838AAF FF5244 call dword ptr [edx+$44]
|
||
00838AB2 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838AB4 E8F354CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838AB9 BAA08B8300 mov edx, $00838BA0
|
||
00838ABE 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838AC0 FF5138 call dword ptr [ecx+$38]
|
||
00838AC3 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838AC5 E8E254CAFF call 004DDFAC
|
||
00838ACA 50 push eax
|
||
00838ACB 8D45E4 lea eax, [ebp-$1C]
|
||
00838ACE 8B4DFC mov ecx, [ebp-$04]
|
||
|
||
* Possible String Reference to: ' set DerateMoney='
|
||
|
|
||
00838AD1 BABC8B8300 mov edx, $00838BBC
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00838AD6 E865CBBCFF call 00405640
|
||
00838ADB 8B55E4 mov edx, [ebp-$1C]
|
||
00838ADE 58 pop eax
|
||
00838ADF 8B08 mov ecx, [eax]
|
||
00838AE1 FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
00838AE4 68D88B8300 push $00838BD8
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
00838AE9 BAF08B8300 mov edx, $00838BF0
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00838AEE 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838AF4 E8BBE0C8FF call 004C6BB4
|
||
00838AF9 8D55D8 lea edx, [ebp-$28]
|
||
00838AFC 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00838AFE FF5160 call dword ptr [ecx+$60]
|
||
00838B01 8B45D8 mov eax, [ebp-$28]
|
||
00838B04 8D55DC lea edx, [ebp-$24]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838B07 E8E01DBDFF call 0040A8EC
|
||
00838B0C FF75DC push dword ptr [ebp-$24]
|
||
00838B0F 68008C8300 push $00838C00
|
||
00838B14 8D45E0 lea eax, [ebp-$20]
|
||
00838B17 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00838B1C E893CBBCFF call 004056B4
|
||
00838B21 8B45E0 mov eax, [ebp-$20]
|
||
00838B24 50 push eax
|
||
00838B25 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838B27 E88054CAFF call 004DDFAC
|
||
00838B2C 5A pop edx
|
||
00838B2D 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838B2F FF5138 call dword ptr [ecx+$38]
|
||
00838B32 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
00838B34 E89B53CAFF call 004DDED4
|
||
00838B39 33C0 xor eax, eax
|
||
00838B3B 5A pop edx
|
||
00838B3C 59 pop ecx
|
||
00838B3D 59 pop ecx
|
||
00838B3E 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '^[<5B><>]<5D>'
|
||
|
|
||
00838B41 68708B8300 push $00838B70
|
||
00838B46 8D45D8 lea eax, [ebp-$28]
|
||
00838B49 BA04000000 mov edx, $00000004
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00838B4E E8F5C7BCFF call 00405348
|
||
00838B53 8D45E8 lea eax, [ebp-$18]
|
||
|
||
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
||
|
|
||
00838B56 E819BBBDFF call 00414674
|
||
00838B5B 8D45F8 lea eax, [ebp-$08]
|
||
00838B5E BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00838B63 E8E0C7BCFF call 00405348
|
||
00838B68 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00838BA1(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838BA1 50 push eax
|
||
00838BA2 6461 popa
|
||
00838BA4 7465 jz 00838C0B
|
||
00838BA6 205946 and [ecx+$46], bl
|
||
00838BA9 5F pop edi
|
||
00838BAA 4D dec ebp
|
||
00838BAB 6F outsd
|
||
00838BAC 6E outsb
|
||
00838BAD 65795F jns 00838C0F
|
||
00838BB0 43 inc ebx
|
||
00838BB1 52 push edx
|
||
00838BB2 2000 and [eax], al
|
||
00838BB4 FFFF DB $FF, $FF //
|
||
00838BB6 FFFF DB $FF, $FF //
|
||
00838BB8 1100 adc [eax], eax
|
||
00838BBA 0000 add [eax], al
|
||
|
||
00838BBC 207365 and [ebx+$65], dh
|
||
00838BBF 7420 jz 00838BE1
|
||
00838BC1 44 inc esp
|
||
00838BC2 657261 jb 00838C26
|
||
00838BC5 7465 jz 00838C2C
|
||
00838BC7 4D dec ebp
|
||
00838BC8 6F outsd
|
||
00838BC9 6E outsb
|
||
00838BCA 65793D jns 00838C0A
|
||
00838BCD 0000 add [eax], al
|
||
|
||
00838BCF 00FF add bh, bh
|
||
00838BD1 FFFF DB $FF, $FF //
|
||
00838BD3 FF0D00000020 dec dword ptr [$20000000]
|
||
00838BD9 7768 jnbe 00838C43
|
||
00838BDB 657265 jb 00838C43
|
||
00838BDE 205946 and [ecx+$46], bl
|
||
00838BE1 49 dec ecx
|
||
00838BE2 643D27000000 cmp eax, $00000027
|
||
00838BE8 FFFF DB $FF, $FF //
|
||
00838BEA FFFF DB $FF, $FF //
|
||
00838BEC 0400 add al, +$00
|
||
00838BEE 0000 add [eax], al
|
||
|
||
00838BF0 59 pop ecx
|
||
00838BF1 46 inc esi
|
||
00838BF2 49 dec ecx
|
||
00838BF3 640000 add fs:[eax], al
|
||
00838BF6 0000 add [eax], al
|
||
|
||
00838BF8 FFFF DB $FF, $FF //
|
||
00838BFA FFFF DB $FF, $FF //
|
||
00838BFC 0100 add [eax], eax
|
||
00838BFE 0000 add [eax], al
|
||
|
||
00838C00 27 daa
|
||
00838C01 0000 add [eax], al
|
||
|
||
00838C03 00558B add [ebp-$75], dl
|
||
00838C06 EC in al, dx
|
||
00838C07 33C9 xor ecx, ecx
|
||
00838C09 51 push ecx
|
||
00838C0A 51 push ecx
|
||
00838C0B 51 push ecx
|
||
00838C0C 51 push ecx
|
||
00838C0D 51 push ecx
|
||
00838C0E 51 push ecx
|
||
00838C0F 51 push ecx
|
||
00838C10 53 push ebx
|
||
00838C11 56 push esi
|
||
00838C12 8BDA mov ebx, edx
|
||
00838C14 8BF0 mov esi, eax
|
||
00838C16 33C0 xor eax, eax
|
||
00838C18 55 push ebp
|
||
00838C19 68FF8C8300 push $00838CFF
|
||
|
||
***** TRY
|
||
|
|
||
00838C1E 64FF30 push dword ptr fs:[eax]
|
||
00838C21 648920 mov fs:[eax], esp
|
||
00838C24 8D55FC lea edx, [ebp-$04]
|
||
00838C27 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;
|
||
|
|
||
00838C29 E88E6AD5FF call 0058F6BC
|
||
|
||
* Reference to control OrdDate : N.A.
|
||
|
|
||
00838C2E 8B9E0C030000 mov ebx, [esi+$030C]
|
||
00838C34 8BC3 mov eax, ebx
|
||
|
||
* Reference to: DB.TDataSet.Close(TDataSet);
|
||
|
|
||
00838C36 E899CCC8FF call 004C58D4
|
||
00838C3B 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838C3D E86A53CAFF call 004DDFAC
|
||
00838C42 8B10 mov edx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_44
|
||
|
|
||
00838C44 FF5244 call dword ptr [edx+$44]
|
||
00838C47 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838C49 E85E53CAFF call 004DDFAC
|
||
|
||
* Possible String Reference to: 'UPdate YF_Money_CR '
|
||
|
|
||
00838C4E BA148D8300 mov edx, $00838D14
|
||
00838C53 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838C55 FF5138 call dword ptr [ecx+$38]
|
||
00838C58 8D55F0 lea edx, [ebp-$10]
|
||
00838C5B 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838C5E E8891CBDFF call 0040A8EC
|
||
00838C63 8B45F0 mov eax, [ebp-$10]
|
||
00838C66 8D55F4 lea edx, [ebp-$0C]
|
||
|
||
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
||
|
|
||
00838C69 E8861DBDFF call 0040A9F4
|
||
00838C6E 8B4DF4 mov ecx, [ebp-$0C]
|
||
00838C71 8D45F8 lea eax, [ebp-$08]
|
||
|
||
* Possible String Reference to: ' set fstr1='
|
||
|
|
||
00838C74 BA308D8300 mov edx, $00838D30
|
||
|
||
* Reference to: System.@LStrCat3;
|
||
|
|
||
00838C79 E8C2C9BCFF call 00405640
|
||
00838C7E 8B45F8 mov eax, [ebp-$08]
|
||
00838C81 50 push eax
|
||
00838C82 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838C84 E82353CAFF call 004DDFAC
|
||
00838C89 5A pop edx
|
||
00838C8A 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838C8C FF5138 call dword ptr [ecx+$38]
|
||
|
||
* Possible String Reference to: ' where YFId=''
|
||
|
|
||
00838C8F 68448D8300 push $00838D44
|
||
|
||
* Possible String Reference to: 'YFId'
|
||
|
|
||
00838C94 BA5C8D8300 mov edx, $00838D5C
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00838C99 8B864C030000 mov eax, [esi+$034C]
|
||
|
||
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
||
|
|
||
00838C9F E810DFC8FF call 004C6BB4
|
||
00838CA4 8D55E4 lea edx, [ebp-$1C]
|
||
00838CA7 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_60
|
||
|
|
||
00838CA9 FF5160 call dword ptr [ecx+$60]
|
||
00838CAC 8B45E4 mov eax, [ebp-$1C]
|
||
00838CAF 8D55E8 lea edx, [ebp-$18]
|
||
|
||
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
||
|
|
||
00838CB2 E8351CBDFF call 0040A8EC
|
||
00838CB7 FF75E8 push dword ptr [ebp-$18]
|
||
00838CBA 686C8D8300 push $00838D6C
|
||
00838CBF 8D45EC lea eax, [ebp-$14]
|
||
00838CC2 BA03000000 mov edx, $00000003
|
||
|
||
* Reference to: System.@LStrCatN;
|
||
|
|
||
00838CC7 E8E8C9BCFF call 004056B4
|
||
00838CCC 8B45EC mov eax, [ebp-$14]
|
||
00838CCF 50 push eax
|
||
00838CD0 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
||
| or: ArrowCha.TArrowSeries.GetStartXValues(TArrowSeries):TChartValueList;
|
||
| or: ArrowCha.TArrowSeries.GetStartYValues(TArrowSeries):TChartValueList;
|
||
| or: ComCtrls.TCustomComboBoxEx.GetDropDownCount(TCustomComboBoxEx):Integer;
|
||
| or: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
|
||
| or: DB.TObjectField.GetFields(TObjectField):TFields;
|
||
|
|
||
00838CD2 E8D552CAFF call 004DDFAC
|
||
00838CD7 5A pop edx
|
||
00838CD8 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_38
|
||
|
|
||
00838CDA FF5138 call dword ptr [ecx+$38]
|
||
00838CDD 8BC3 mov eax, ebx
|
||
|
||
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
||
|
|
||
00838CDF E8F051CAFF call 004DDED4
|
||
00838CE4 33C0 xor eax, eax
|
||
00838CE6 5A pop edx
|
||
00838CE7 59 pop ecx
|
||
00838CE8 59 pop ecx
|
||
00838CE9 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00838CEC 68068D8300 push $00838D06
|
||
00838CF1 8D45E4 lea eax, [ebp-$1C]
|
||
00838CF4 BA07000000 mov edx, $00000007
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
00838CF9 E84AC6BCFF call 00405348
|
||
00838CFE C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00838D15(Sender : TObject);
|
||
begin
|
||
(*
|
||
00838D15 50 push eax
|
||
00838D16 6461 popa
|
||
00838D18 7465 jz 00838D7F
|
||
00838D1A 205946 and [ecx+$46], bl
|
||
00838D1D 5F pop edi
|
||
00838D1E 4D dec ebp
|
||
00838D1F 6F outsd
|
||
00838D20 6E outsb
|
||
00838D21 65795F jns 00838D83
|
||
00838D24 43 inc ebx
|
||
00838D25 52 push edx
|
||
00838D26 2000 and [eax], al
|
||
00838D28 FFFF DB $FF, $FF //
|
||
00838D2A FFFF DB $FF, $FF //
|
||
00838D2C 0B00 or eax, [eax]
|
||
00838D2E 0000 add [eax], al
|
||
|
||
00838D30 207365 and [ebx+$65], dh
|
||
00838D33 7420 jz 00838D55
|
||
00838D35 667374 jnb 00838DAC
|
||
00838D38 7231 jb 00838D6B
|
||
00838D3A 3D00FFFFFF cmp eax, $FFFFFF00
|
||
00838D3F FF0D00000020 dec dword ptr [$20000000]
|
||
00838D45 7768 jnbe 00838DAF
|
||
00838D47 657265 jb 00838DAF
|
||
00838D4A 205946 and [ecx+$46], bl
|
||
00838D4D 49 dec ecx
|
||
00838D4E 643D27000000 cmp eax, $00000027
|
||
00838D54 FFFF DB $FF, $FF //
|
||
00838D56 FFFF DB $FF, $FF //
|
||
00838D58 0400 add al, +$00
|
||
00838D5A 0000 add [eax], al
|
||
|
||
00838D5C 59 pop ecx
|
||
00838D5D 46 inc esi
|
||
00838D5E 49 dec ecx
|
||
00838D5F 640000 add fs:[eax], al
|
||
00838D62 0000 add [eax], al
|
||
|
||
00838D64 FFFF DB $FF, $FF //
|
||
00838D66 FFFF DB $FF, $FF //
|
||
00838D68 0100 add [eax], eax
|
||
00838D6A 0000 add [eax], al
|
||
|
||
00838D6C 27 daa
|
||
00838D6D 0000 add [eax], al
|
||
|
||
00838D6F 00558B add [ebp-$75], dl
|
||
00838D72 EC in al, dx
|
||
00838D73 B905000000 mov ecx, $00000005
|
||
00838D78 6A00 push $00
|
||
00838D7A 6A00 push $00
|
||
00838D7C 49 dec ecx
|
||
00838D7D 75F9 jnz 00838D78
|
||
00838D7F 51 push ecx
|
||
00838D80 53 push ebx
|
||
00838D81 56 push esi
|
||
00838D82 57 push edi
|
||
00838D83 8945FC mov [ebp-$04], eax
|
||
00838D86 33C0 xor eax, eax
|
||
00838D88 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>W<EFBFBD><57><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
||
|
|
||
00838D89 68988F8300 push $00838F98
|
||
|
||
***** TRY
|
||
|
|
||
00838D8E 64FF30 push dword ptr fs:[eax]
|
||
00838D91 648920 mov fs:[eax], esp
|
||
00838D94 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00838D97 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
||
|
|
||
00838D9D E81EF1C8FF call 004C7EC0
|
||
00838DA2 84C0 test al, al
|
||
00838DA4 0F85CB010000 jnz 00838F75
|
||
00838DAA A0A88F8300 mov al, byte ptr [$00838FA8]
|
||
00838DAF 50 push eax
|
||
00838DB0 8D45EC lea eax, [ebp-$14]
|
||
00838DB3 B201 mov dl, $01
|
||
|
||
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
||
|
|
||
00838DB5 E8AAFFBDFF call 00418D64
|
||
00838DBA 8D4DEC lea ecx, [ebp-$14]
|
||
00838DBD 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Reference to control ADOQuery1 : N.A.
|
||
|
|
||
00838DC0 8B804C030000 mov eax, [eax+$034C]
|
||
|
||
* Possible String Reference to: 'ssel'
|
||
|
|
||
00838DC6 BAB48F8300 mov edx, $00838FB4
|
||
00838DCB 8B18 mov ebx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_0244
|
||
|
|
||
00838DCD FF9344020000 call dword ptr [ebx+$0244]
|
||
00838DD3 84C0 test al, al
|
||
00838DD5 751D jnz 00838DF4
|
||
00838DD7 6A00 push $00
|
||
|
||
* Possible String Reference to: '<27><>ʾ'
|
||
|
|
||
00838DD9 B9BC8F8300 mov ecx, $00838FBC
|
||
|
||
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
||
|
|
||
00838DDE BAC48F8300 mov edx, $00838FC4
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008398A9(Sender : TObject);
|
||
begin
|
||
(*
|
||
008398A9 8BEC mov ebp, esp
|
||
008398AB 33C0 xor eax, eax
|
||
008398AD 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>"<22><><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008398AE 68CD988300 push $008398CD
|
||
|
||
***** TRY
|
||
|
|
||
008398B3 64FF30 push dword ptr fs:[eax]
|
||
008398B6 648920 mov fs:[eax], esp
|
||
008398B9 FF05D8598900 inc dword ptr [$008959D8]
|
||
008398BF 33C0 xor eax, eax
|
||
008398C1 5A pop edx
|
||
008398C2 59 pop ecx
|
||
008398C3 59 pop ecx
|
||
008398C4 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008398C7 68D4988300 push $008398D4
|
||
008398CC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008398CD E922B2BCFF jmp 00404AF4
|
||
008398D2 EBF8 jmp 008398CC
|
||
|
||
****** END
|
||
|
|
||
008398D4 5D pop ebp
|
||
008398D5 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008398D8(Sender : TObject);
|
||
begin
|
||
(*
|
||
008398D8 832DD859890001 sub dword ptr [$008959D8], +$01
|
||
008398DF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008398E0(Sender : TObject);
|
||
begin
|
||
(*
|
||
008398E0 55 push ebp
|
||
008398E1 8BEC mov ebp, esp
|
||
008398E3 33C0 xor eax, eax
|
||
008398E5 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>걼<EFBFBD><EAB1BC><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008398E6 6805998300 push $00839905
|
||
|
||
***** TRY
|
||
|
|
||
008398EB 64FF30 push dword ptr fs:[eax]
|
||
008398EE 648920 mov fs:[eax], esp
|
||
008398F1 FF05DC598900 inc dword ptr [$008959DC]
|
||
008398F7 33C0 xor eax, eax
|
||
008398F9 5A pop edx
|
||
008398FA 59 pop ecx
|
||
008398FB 59 pop ecx
|
||
008398FC 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008398FF 680C998300 push $0083990C
|
||
00839904 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839905 E9EAB1BCFF jmp 00404AF4
|
||
0083990A EBF8 jmp 00839904
|
||
|
||
****** END
|
||
|
|
||
0083990C 5D pop ebp
|
||
0083990D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839910(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839910 832DDC59890001 sub dword ptr [$008959DC], +$01
|
||
00839917 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839918(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839918 55 push ebp
|
||
00839919 8BEC mov ebp, esp
|
||
0083991B 33C0 xor eax, eax
|
||
0083991D 55 push ebp
|
||
|
||
* Possible String Reference to: '鲱<><E9B2B1><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
0083991E 683D998300 push $0083993D
|
||
|
||
***** TRY
|
||
|
|
||
00839923 64FF30 push dword ptr fs:[eax]
|
||
00839926 648920 mov fs:[eax], esp
|
||
00839929 FF05E0598900 inc dword ptr [$008959E0]
|
||
0083992F 33C0 xor eax, eax
|
||
00839931 5A pop edx
|
||
00839932 59 pop ecx
|
||
00839933 59 pop ecx
|
||
00839934 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839937 6844998300 push $00839944
|
||
0083993C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
0083993D E9B2B1BCFF jmp 00404AF4
|
||
00839942 EBF8 jmp 0083993C
|
||
|
||
****** END
|
||
|
|
||
00839944 5D pop ebp
|
||
00839945 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839948(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839948 832DE059890001 sub dword ptr [$008959E0], +$01
|
||
0083994F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839950(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839950 55 push ebp
|
||
00839951 8BEC mov ebp, esp
|
||
00839953 33C0 xor eax, eax
|
||
00839955 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>z<EFBFBD><7A><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839956 6875998300 push $00839975
|
||
|
||
***** TRY
|
||
|
|
||
0083995B 64FF30 push dword ptr fs:[eax]
|
||
0083995E 648920 mov fs:[eax], esp
|
||
00839961 FF05E4598900 inc dword ptr [$008959E4]
|
||
00839967 33C0 xor eax, eax
|
||
00839969 5A pop edx
|
||
0083996A 59 pop ecx
|
||
0083996B 59 pop ecx
|
||
0083996C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
0083996F 687C998300 push $0083997C
|
||
00839974 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839975 E97AB1BCFF jmp 00404AF4
|
||
0083997A EBF8 jmp 00839974
|
||
|
||
****** END
|
||
|
|
||
0083997C 5D pop ebp
|
||
0083997D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839980(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839980 832DE459890001 sub dword ptr [$008959E4], +$01
|
||
00839987 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839988(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839988 55 push ebp
|
||
00839989 8BEC mov ebp, esp
|
||
0083998B 33C0 xor eax, eax
|
||
0083998D 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
0083998E 68AD998300 push $008399AD
|
||
|
||
***** TRY
|
||
|
|
||
00839993 64FF30 push dword ptr fs:[eax]
|
||
00839996 648920 mov fs:[eax], esp
|
||
00839999 FF05E8598900 inc dword ptr [$008959E8]
|
||
0083999F 33C0 xor eax, eax
|
||
008399A1 5A pop edx
|
||
008399A2 59 pop ecx
|
||
008399A3 59 pop ecx
|
||
008399A4 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008399A7 68B4998300 push $008399B4
|
||
008399AC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008399AD E942B1BCFF jmp 00404AF4
|
||
008399B2 EBF8 jmp 008399AC
|
||
|
||
****** END
|
||
|
|
||
008399B4 5D pop ebp
|
||
008399B5 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008399B8(Sender : TObject);
|
||
begin
|
||
(*
|
||
008399B8 832DE859890001 sub dword ptr [$008959E8], +$01
|
||
008399BF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008399C0(Sender : TObject);
|
||
begin
|
||
(*
|
||
008399C0 55 push ebp
|
||
008399C1 8BEC mov ebp, esp
|
||
008399C3 33C0 xor eax, eax
|
||
008399C5 55 push ebp
|
||
|
||
* Possible String Reference to: '鱼<><E9B1BC><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008399C6 68E5998300 push $008399E5
|
||
|
||
***** TRY
|
||
|
|
||
008399CB 64FF30 push dword ptr fs:[eax]
|
||
008399CE 648920 mov fs:[eax], esp
|
||
008399D1 FF05EC598900 inc dword ptr [$008959EC]
|
||
008399D7 33C0 xor eax, eax
|
||
008399D9 5A pop edx
|
||
008399DA 59 pop ecx
|
||
008399DB 59 pop ecx
|
||
008399DC 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008399DF 68EC998300 push $008399EC
|
||
008399E4 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
008399E5 E90AB1BCFF jmp 00404AF4
|
||
008399EA EBF8 jmp 008399E4
|
||
|
||
****** END
|
||
|
|
||
008399EC 5D pop ebp
|
||
008399ED C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008399F0(Sender : TObject);
|
||
begin
|
||
(*
|
||
008399F0 832DEC59890001 sub dword ptr [$008959EC], +$01
|
||
008399F7 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_008399F8(Sender : TObject);
|
||
begin
|
||
(*
|
||
008399F8 55 push ebp
|
||
008399F9 8BEC mov ebp, esp
|
||
008399FB 33C0 xor eax, eax
|
||
008399FD 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>Ұ<EFBFBD><D2B0><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
008399FE 681D9A8300 push $00839A1D
|
||
|
||
***** TRY
|
||
|
|
||
00839A03 64FF30 push dword ptr fs:[eax]
|
||
00839A06 648920 mov fs:[eax], esp
|
||
00839A09 FF05F0598900 inc dword ptr [$008959F0]
|
||
00839A0F 33C0 xor eax, eax
|
||
00839A11 5A pop edx
|
||
00839A12 59 pop ecx
|
||
00839A13 59 pop ecx
|
||
00839A14 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839A17 68249A8300 push $00839A24
|
||
00839A1C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839A1D E9D2B0BCFF jmp 00404AF4
|
||
00839A22 EBF8 jmp 00839A1C
|
||
|
||
****** END
|
||
|
|
||
00839A24 5D pop ebp
|
||
00839A25 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839A28(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839A28 832DF059890001 sub dword ptr [$008959F0], +$01
|
||
00839A2F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839A30(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839A30 55 push ebp
|
||
00839A31 8BEC mov ebp, esp
|
||
00839A33 33C0 xor eax, eax
|
||
00839A35 55 push ebp
|
||
|
||
* Possible String Reference to: '隰<><E99AB0><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839A36 68559A8300 push $00839A55
|
||
|
||
***** TRY
|
||
|
|
||
00839A3B 64FF30 push dword ptr fs:[eax]
|
||
00839A3E 648920 mov fs:[eax], esp
|
||
00839A41 FF05F4598900 inc dword ptr [$008959F4]
|
||
00839A47 33C0 xor eax, eax
|
||
00839A49 5A pop edx
|
||
00839A4A 59 pop ecx
|
||
00839A4B 59 pop ecx
|
||
00839A4C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839A4F 685C9A8300 push $00839A5C
|
||
00839A54 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839A55 E99AB0BCFF jmp 00404AF4
|
||
00839A5A EBF8 jmp 00839A54
|
||
|
||
****** END
|
||
|
|
||
00839A5C 5D pop ebp
|
||
00839A5D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839A60(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839A60 832DF459890001 sub dword ptr [$008959F4], +$01
|
||
00839A67 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839A68(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839A68 55 push ebp
|
||
00839A69 8BEC mov ebp, esp
|
||
00839A6B 33C0 xor eax, eax
|
||
00839A6D 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>b<EFBFBD><62><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839A6E 688D9A8300 push $00839A8D
|
||
|
||
***** TRY
|
||
|
|
||
00839A73 64FF30 push dword ptr fs:[eax]
|
||
00839A76 648920 mov fs:[eax], esp
|
||
00839A79 FF05F8598900 inc dword ptr [$008959F8]
|
||
00839A7F 33C0 xor eax, eax
|
||
00839A81 5A pop edx
|
||
00839A82 59 pop ecx
|
||
00839A83 59 pop ecx
|
||
00839A84 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839A87 68949A8300 push $00839A94
|
||
00839A8C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839A8D E962B0BCFF jmp 00404AF4
|
||
00839A92 EBF8 jmp 00839A8C
|
||
|
||
****** END
|
||
|
|
||
00839A94 5D pop ebp
|
||
00839A95 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839A98(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839A98 832DF859890001 sub dword ptr [$008959F8], +$01
|
||
00839A9F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839AA0(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839AA0 55 push ebp
|
||
00839AA1 8BEC mov ebp, esp
|
||
00839AA3 33C0 xor eax, eax
|
||
00839AA5 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>*<2A><><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839AA6 68C59A8300 push $00839AC5
|
||
|
||
***** TRY
|
||
|
|
||
00839AAB 64FF30 push dword ptr fs:[eax]
|
||
00839AAE 648920 mov fs:[eax], esp
|
||
00839AB1 FF05FC598900 inc dword ptr [$008959FC]
|
||
00839AB7 33C0 xor eax, eax
|
||
00839AB9 5A pop edx
|
||
00839ABA 59 pop ecx
|
||
00839ABB 59 pop ecx
|
||
00839ABC 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
||
|
|
||
00839ABF 68CC9A8300 push $00839ACC
|
||
00839AC4 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839AC5 E92AB0BCFF jmp 00404AF4
|
||
00839ACA EBF8 jmp 00839AC4
|
||
|
||
****** END
|
||
|
|
||
00839ACC 5D pop ebp
|
||
00839ACD C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839AD0(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839AD0 832DFC59890001 sub dword ptr [$008959FC], +$01
|
||
00839AD7 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839AD8(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839AD8 55 push ebp
|
||
00839AD9 8BEC mov ebp, esp
|
||
00839ADB 33C0 xor eax, eax
|
||
00839ADD 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-'
|
||
|
|
||
00839ADE 68FD9A8300 push $00839AFD
|
||
|
||
***** TRY
|
||
|
|
||
00839AE3 64FF30 push dword ptr fs:[eax]
|
||
00839AE6 648920 mov fs:[eax], esp
|
||
00839AE9 FF05005A8900 inc dword ptr [$00895A00]
|
||
00839AEF 33C0 xor eax, eax
|
||
00839AF1 5A pop edx
|
||
00839AF2 59 pop ecx
|
||
00839AF3 59 pop ecx
|
||
00839AF4 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-'
|
||
|
|
||
00839AF7 68049B8300 push $00839B04
|
||
00839AFC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839AFD E9F2AFBCFF jmp 00404AF4
|
||
00839B02 EBF8 jmp 00839AFC
|
||
|
||
****** END
|
||
|
|
||
00839B04 5D pop ebp
|
||
00839B05 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839B08(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839B08 832D005A890001 sub dword ptr [$00895A00], +$01
|
||
00839B0F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839B10(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839B10 55 push ebp
|
||
00839B11 8BEC mov ebp, esp
|
||
00839B13 33C0 xor eax, eax
|
||
00839B15 55 push ebp
|
||
00839B16 68359B8300 push $00839B35
|
||
|
||
***** TRY
|
||
|
|
||
00839B1B 64FF30 push dword ptr fs:[eax]
|
||
00839B1E 648920 mov fs:[eax], esp
|
||
00839B21 FF05045A8900 inc dword ptr [$00895A04]
|
||
00839B27 33C0 xor eax, eax
|
||
00839B29 5A pop edx
|
||
00839B2A 59 pop ecx
|
||
00839B2B 59 pop ecx
|
||
00839B2C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839B2F 683C9B8300 push $00839B3C
|
||
00839B34 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839B35 E9BAAFBCFF jmp 00404AF4
|
||
00839B3A EBF8 jmp 00839B34
|
||
|
||
****** END
|
||
|
|
||
00839B3C 5D pop ebp
|
||
00839B3D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839B40(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839B40 832D045A890001 sub dword ptr [$00895A04], +$01
|
||
00839B47 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839B48(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839B48 55 push ebp
|
||
00839B49 8BEC mov ebp, esp
|
||
00839B4B 33C0 xor eax, eax
|
||
00839B4D 55 push ebp
|
||
00839B4E 686D9B8300 push $00839B6D
|
||
|
||
***** TRY
|
||
|
|
||
00839B53 64FF30 push dword ptr fs:[eax]
|
||
00839B56 648920 mov fs:[eax], esp
|
||
00839B59 FF05085A8900 inc dword ptr [$00895A08]
|
||
00839B5F 33C0 xor eax, eax
|
||
00839B61 5A pop edx
|
||
00839B62 59 pop ecx
|
||
00839B63 59 pop ecx
|
||
00839B64 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839B67 68749B8300 push $00839B74
|
||
00839B6C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839B6D E982AFBCFF jmp 00404AF4
|
||
00839B72 EBF8 jmp 00839B6C
|
||
|
||
****** END
|
||
|
|
||
00839B74 5D pop ebp
|
||
00839B75 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839B78(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839B78 832D085A890001 sub dword ptr [$00895A08], +$01
|
||
00839B7F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839B80(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839B80 55 push ebp
|
||
00839B81 8BEC mov ebp, esp
|
||
00839B83 33C0 xor eax, eax
|
||
00839B85 55 push ebp
|
||
00839B86 68A59B8300 push $00839BA5
|
||
|
||
***** TRY
|
||
|
|
||
00839B8B 64FF30 push dword ptr fs:[eax]
|
||
00839B8E 648920 mov fs:[eax], esp
|
||
00839B91 FF050C5A8900 inc dword ptr [$00895A0C]
|
||
00839B97 33C0 xor eax, eax
|
||
00839B99 5A pop edx
|
||
00839B9A 59 pop ecx
|
||
00839B9B 59 pop ecx
|
||
00839B9C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839B9F 68AC9B8300 push $00839BAC
|
||
00839BA4 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839BA5 E94AAFBCFF jmp 00404AF4
|
||
00839BAA EBF8 jmp 00839BA4
|
||
|
||
****** END
|
||
|
|
||
00839BAC 5D pop ebp
|
||
00839BAD C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839BB0(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839BB0 832D0C5A890001 sub dword ptr [$00895A0C], +$01
|
||
00839BB7 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839BB8(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839BB8 55 push ebp
|
||
00839BB9 8BEC mov ebp, esp
|
||
00839BBB 33C0 xor eax, eax
|
||
00839BBD 55 push ebp
|
||
00839BBE 68DD9B8300 push $00839BDD
|
||
|
||
***** TRY
|
||
|
|
||
00839BC3 64FF30 push dword ptr fs:[eax]
|
||
00839BC6 648920 mov fs:[eax], esp
|
||
00839BC9 FF05105A8900 inc dword ptr [$00895A10]
|
||
00839BCF 33C0 xor eax, eax
|
||
00839BD1 5A pop edx
|
||
00839BD2 59 pop ecx
|
||
00839BD3 59 pop ecx
|
||
00839BD4 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839BD7 68E49B8300 push $00839BE4
|
||
00839BDC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839BDD E912AFBCFF jmp 00404AF4
|
||
00839BE2 EBF8 jmp 00839BDC
|
||
|
||
****** END
|
||
|
|
||
00839BE4 5D pop ebp
|
||
00839BE5 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839BE8(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839BE8 832D105A890001 sub dword ptr [$00895A10], +$01
|
||
00839BEF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839BF0(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839BF0 55 push ebp
|
||
00839BF1 8BEC mov ebp, esp
|
||
00839BF3 33C0 xor eax, eax
|
||
00839BF5 55 push ebp
|
||
00839BF6 68159C8300 push $00839C15
|
||
|
||
***** TRY
|
||
|
|
||
00839BFB 64FF30 push dword ptr fs:[eax]
|
||
00839BFE 648920 mov fs:[eax], esp
|
||
00839C01 FF05145A8900 inc dword ptr [$00895A14]
|
||
00839C07 33C0 xor eax, eax
|
||
00839C09 5A pop edx
|
||
00839C0A 59 pop ecx
|
||
00839C0B 59 pop ecx
|
||
00839C0C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839C0F 681C9C8300 push $00839C1C
|
||
00839C14 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839C15 E9DAAEBCFF jmp 00404AF4
|
||
00839C1A EBF8 jmp 00839C14
|
||
|
||
****** END
|
||
|
|
||
00839C1C 5D pop ebp
|
||
00839C1D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839C20(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839C20 832D145A890001 sub dword ptr [$00895A14], +$01
|
||
00839C27 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839C28(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839C28 55 push ebp
|
||
00839C29 8BEC mov ebp, esp
|
||
00839C2B 33C0 xor eax, eax
|
||
00839C2D 55 push ebp
|
||
00839C2E 684D9C8300 push $00839C4D
|
||
|
||
***** TRY
|
||
|
|
||
00839C33 64FF30 push dword ptr fs:[eax]
|
||
00839C36 648920 mov fs:[eax], esp
|
||
00839C39 FF05185A8900 inc dword ptr [$00895A18]
|
||
00839C3F 33C0 xor eax, eax
|
||
00839C41 5A pop edx
|
||
00839C42 59 pop ecx
|
||
00839C43 59 pop ecx
|
||
00839C44 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839C47 68549C8300 push $00839C54
|
||
00839C4C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839C4D E9A2AEBCFF jmp 00404AF4
|
||
00839C52 EBF8 jmp 00839C4C
|
||
|
||
****** END
|
||
|
|
||
00839C54 5D pop ebp
|
||
00839C55 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839C58(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839C58 832D185A890001 sub dword ptr [$00895A18], +$01
|
||
00839C5F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839C60(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839C60 55 push ebp
|
||
00839C61 8BEC mov ebp, esp
|
||
00839C63 33C0 xor eax, eax
|
||
00839C65 55 push ebp
|
||
00839C66 68859C8300 push $00839C85
|
||
|
||
***** TRY
|
||
|
|
||
00839C6B 64FF30 push dword ptr fs:[eax]
|
||
00839C6E 648920 mov fs:[eax], esp
|
||
00839C71 FF051C5A8900 inc dword ptr [$00895A1C]
|
||
00839C77 33C0 xor eax, eax
|
||
00839C79 5A pop edx
|
||
00839C7A 59 pop ecx
|
||
00839C7B 59 pop ecx
|
||
00839C7C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
00839C7F 688C9C8300 push $00839C8C
|
||
00839C84 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839C85 E96AAEBCFF jmp 00404AF4
|
||
00839C8A EBF8 jmp 00839C84
|
||
|
||
****** END
|
||
|
|
||
00839C8C 5D pop ebp
|
||
00839C8D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839C90(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839C90 832D1C5A890001 sub dword ptr [$00895A1C], +$01
|
||
00839C97 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839C98(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839C98 55 push ebp
|
||
00839C99 8BEC mov ebp, esp
|
||
00839C9B 33C0 xor eax, eax
|
||
00839C9D 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>2<EFBFBD><32><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>- Z<>'
|
||
|
|
||
00839C9E 68BD9C8300 push $00839CBD
|
||
|
||
***** TRY
|
||
|
|
||
00839CA3 64FF30 push dword ptr fs:[eax]
|
||
00839CA6 648920 mov fs:[eax], esp
|
||
00839CA9 FF05205A8900 inc dword ptr [$00895A20]
|
||
00839CAF 33C0 xor eax, eax
|
||
00839CB1 5A pop edx
|
||
00839CB2 59 pop ecx
|
||
00839CB3 59 pop ecx
|
||
00839CB4 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>- Z<>'
|
||
|
|
||
00839CB7 68C49C8300 push $00839CC4
|
||
00839CBC C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839CBD E932AEBCFF jmp 00404AF4
|
||
00839CC2 EBF8 jmp 00839CBC
|
||
|
||
****** END
|
||
|
|
||
00839CC4 5D pop ebp
|
||
00839CC5 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839CC8(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839CC8 832D205A890001 sub dword ptr [$00895A20], +$01
|
||
00839CCF C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839CD0(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839CD0 55 push ebp
|
||
00839CD1 8BEC mov ebp, esp
|
||
00839CD3 33C0 xor eax, eax
|
||
00839CD5 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-$Z<>'
|
||
|
|
||
00839CD6 68F59C8300 push $00839CF5
|
||
|
||
***** TRY
|
||
|
|
||
00839CDB 64FF30 push dword ptr fs:[eax]
|
||
00839CDE 648920 mov fs:[eax], esp
|
||
00839CE1 FF05245A8900 inc dword ptr [$00895A24]
|
||
00839CE7 33C0 xor eax, eax
|
||
00839CE9 5A pop edx
|
||
00839CEA 59 pop ecx
|
||
00839CEB 59 pop ecx
|
||
00839CEC 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-$Z<>'
|
||
|
|
||
00839CEF 68FC9C8300 push $00839CFC
|
||
00839CF4 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839CF5 E9FAADBCFF jmp 00404AF4
|
||
00839CFA EBF8 jmp 00839CF4
|
||
|
||
****** END
|
||
|
|
||
00839CFC 5D pop ebp
|
||
00839CFD C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D00(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D00 832D245A890001 sub dword ptr [$00895A24], +$01
|
||
00839D07 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D08(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D08 55 push ebp
|
||
00839D09 8BEC mov ebp, esp
|
||
00839D0B 33C0 xor eax, eax
|
||
00839D0D 55 push ebp
|
||
|
||
* Possible String Reference to: '<27><EFBFBD><C2AD><EFBFBD><EFBFBD>]Ë<><C38B>-(Z<>'
|
||
|
|
||
00839D0E 682D9D8300 push $00839D2D
|
||
|
||
***** TRY
|
||
|
|
||
00839D13 64FF30 push dword ptr fs:[eax]
|
||
00839D16 648920 mov fs:[eax], esp
|
||
00839D19 FF05285A8900 inc dword ptr [$00895A28]
|
||
00839D1F 33C0 xor eax, eax
|
||
00839D21 5A pop edx
|
||
00839D22 59 pop ecx
|
||
00839D23 59 pop ecx
|
||
00839D24 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-(Z<>'
|
||
|
|
||
00839D27 68349D8300 push $00839D34
|
||
00839D2C C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839D2D E9C2ADBCFF jmp 00404AF4
|
||
00839D32 EBF8 jmp 00839D2C
|
||
|
||
****** END
|
||
|
|
||
00839D34 5D pop ebp
|
||
00839D35 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D38(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D38 832D285A890001 sub dword ptr [$00895A28], +$01
|
||
00839D3F C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D40(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D40 55 push ebp
|
||
00839D41 8BEC mov ebp, esp
|
||
00839D43 33C0 xor eax, eax
|
||
00839D45 55 push ebp
|
||
|
||
* Possible String Reference to: '銭<><E98AAD><EFBFBD><EFBFBD>]Ë<><C38B>-,Z<>'
|
||
|
|
||
00839D46 68659D8300 push $00839D65
|
||
|
||
***** TRY
|
||
|
|
||
00839D4B 64FF30 push dword ptr fs:[eax]
|
||
00839D4E 648920 mov fs:[eax], esp
|
||
00839D51 FF052C5A8900 inc dword ptr [$00895A2C]
|
||
00839D57 33C0 xor eax, eax
|
||
00839D59 5A pop edx
|
||
00839D5A 59 pop ecx
|
||
00839D5B 59 pop ecx
|
||
00839D5C 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: ']Ë<><C38B>-,Z<>'
|
||
|
|
||
00839D5F 686C9D8300 push $00839D6C
|
||
00839D64 C3 ret
|
||
|
||
|
||
* Reference to: System.@HandleFinally;
|
||
|
|
||
00839D65 E98AADBCFF jmp 00404AF4
|
||
00839D6A EBF8 jmp 00839D64
|
||
|
||
****** END
|
||
|
|
||
00839D6C 5D pop ebp
|
||
00839D6D C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D70(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D70 832D2C5A890001 sub dword ptr [$00895A2C], +$01
|
||
00839D77 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D78(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D78 C49D83000000 les ebx, [ebp+$0083]
|
||
00839D7E 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D87(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D87 0064A683 add [esi-$7D], ah
|
||
00839D8B 00DA add dl, bl
|
||
00839D8D 9E sahf
|
||
00839D8E 83008C add dword ptr [eax], -$74
|
||
00839D91 A283000000 mov byte ptr [$00000083], al
|
||
00839D96 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839D9B(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839D9B 000404 add [esp+eax], al
|
||
00839D9E 0000 add [eax], al
|
||
|
||
*)
|
||
end;
|
||
|
||
procedure TfrmFKCR_SH._PROC_00839DDE(Sender : TObject);
|
||
begin
|
||
(*
|
||
00839DDE 48 dec eax
|
||
00839DDF 0050D4 add [eax-$2C], dl
|
||
00839DE2 42 inc edx
|
||
00839DE3 0008 add [eax], cl
|
||
00839DE5 2D4A007CD0 sub eax, $D07C004A
|
||
00839DEA 42 inc edx
|
||
00839DEB 00F4 add ah, dh
|
||
00839DED 6B4A00D0 imul ecx, [edx+$00], $D0
|
||
00839DF1 1D4A0030F6 sbb eax, $F630004A
|
||
00839DF6 48 dec eax
|
||
00839DF7 004CFB48 add [ebx+edi*8+$48], cl
|
||
00839DFB 0098FA48000C add [eax+$C0048FA], bl
|
||
00839E01 7948 jns 00839E4B
|
||
00839E03 00ACF04800E829 add [eax+esi*8+$29E80048], ch
|
||
00839E0A 4A dec edx
|
||
00839E0B 00E4 add ah, ah
|
||
00839E0D ED in eax, dx
|
||
00839E0E 48 dec eax
|
||
00839E0F 00547848 add [eax+edi*2+$48], dl
|
||
00839E13 005878 add [eax+$78], bl
|
||
00839E16 48 dec eax
|
||
00839E17 00DC add ah, bl
|
||
00839E19 2A4A00 sub cl, byte ptr [edx+$00]
|
||
00839E1C 3CA9 cmp al, $A9
|
||
00839E1E 48 dec eax
|
||
00839E1F 00C0 add al, al
|
||
00839E21 834800D0 or dword ptr [eax+$00], -$30
|
||
00839E25 7948 jns 00839E6F
|
||
00839E27 004C8548 add [ebp+eax*4+$48], cl
|
||
00839E2B 00D0 add al, dl
|
||
00839E2D 2C4A sub al, $4A
|
||
00839E2F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
|
||
00839E36 48 dec eax
|
||
00839E37 00482D add [eax+$2D], cl
|
||
00839E3A 4A dec edx
|
||
00839E3B 00C0 add al, al
|
||
00839E3D A9480038EE test eax, $EE380048
|
||
00839E42 48 dec eax
|
||
00839E43 00F4 add ah, dh
|
||
00839E45 EE out dx, al
|
||
00839E46 48 dec eax
|
||
00839E47 00F0 add al, dh
|
||
00839E49 E94800D8EE jmp EF5B9E96
|
||
00839E4E 48 dec eax
|
||
00839E4F 00D8 add al, bl
|
||
00839E51 1B4A00 sbb ecx, [edx+$00]
|
||
00839E54 EC in al, dx
|
||
00839E55 334A00 xor ecx, [edx+$00]
|
||
00839E58 20C4 and ah, al
|
||
00839E5A 48 dec eax
|
||
00839E5B 00B0404A0010 add [eax+$10004A40], dh
|
||
00839E61 44 inc esp
|
||
00839E62 4A dec edx
|
||
00839E63 00CC add ah, cl
|
||
00839E65 42 inc edx
|
||
00839E66 4A dec edx
|
||
00839E67 00B8C44800BC add [eax+$BC0048C4], bh
|
||
00839E6D C44800 les ecx, [eax+$00]
|
||
00839E70 48 dec eax
|
||
00839E71 45 inc ebp
|
||
00839E72 4A dec edx
|
||
00839E73 001CC3 add [ebx+eax*8], bl
|
||
00839E76 48 dec eax
|
||
00839E77 0018 add [eax], bl
|
||
00839E79 F0 lock
|
||
00839E7A 48 dec eax
|
||
00839E7B 00444C4A add [esp+ecx*2+$4A], al
|
||
00839E7F 000C02 add [edx+eax], cl
|
||
00839E82 49 dec ecx
|
||
00839E83 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
|
||
00839E8A 4A dec edx
|
||
00839E8B 008C154A003C18 add [ebp+edx+$183C004A], cl
|
||
00839E92 4A dec edx
|
||
00839E93 0038 add [eax], bh
|
||
00839E95 52 push edx
|
||
00839E96 4A dec edx
|
||
00839E97 005C224A add [edx+$4A], bl
|
||
00839E9B 00D8 add al, bl
|
||
00839E9D 224A00 and cl, byte ptr [edx+$00]
|
||
00839EA0 7C68 jl 00839F0A
|
||
00839EA2 4A dec edx
|
||
00839EA3 00941F4A003C60 add [edi+ebx+$603C004A], dl
|
||
00839EAA 4A dec edx
|
||
00839EAB 001447 add [edi+eax*2], dl
|
||
00839EAE 4A dec edx
|
||
00839EAF 0034654A00CC2C add [$2CCC004A], dh
|
||
00839EB6 4A dec edx
|
||
00839EB7 000E add [esi], cl
|
||
00839EB9 0000 add [eax], al
|
||
|
||
00839EBB 0000 add [eax], al
|
||
|
||
00839EBD 0003 add [ebx], al
|
||
00839EBF 0000 add [eax], al
|
||
|
||
00839EC1 0020 add [eax], ah
|
||
00839EC3 114000 adc [eax+$00], eax
|
||
00839EC6 F8 clc
|
||
00839EC7 0300 add eax, [eax]
|
||
00839EC9 0020 add [eax], ah
|
||
00839ECB 114000 adc [eax+$00], eax
|
||
00839ECE FC cld
|
||
00839ECF 0300 add eax, [eax]
|
||
00839ED1 0020 add [eax], ah
|
||
00839ED3 114000 adc [eax+$00], eax
|
||
00839ED6 000400 add [eax+eax], al
|
||
00839ED9 003F add [edi], bh
|
||
00839EDB 0006 add [esi], al
|
||
00839EDD A6 cmpsb
|
||
00839EDE 8300F8 add dword ptr [eax], -$08
|
||
00839EE1 0200 add al, byte ptr [eax]
|
||
00839EE3 0000 add [eax], al
|
||
|
||
00839EE5 0008 add [eax], cl
|
||
00839EE7 54 push esp
|
||
00839EE8 6F outsd
|
||
00839EE9 6F outsd
|
||
00839EEA 6C insb
|
||
00839EEB 42 inc edx
|
||
00839EEC 61 popa
|
||
00839EED 7231 jb 00839F20
|
||
00839EEF FC cld
|
||
00839EF0 0200 add al, byte ptr [eax]
|
||
00839EF2 0001 add [ecx], al
|
||
00839EF4 0009 add [ecx], cl
|
||
00839EF6 54 push esp
|
||
00839EF7 42 inc edx
|
||
00839EF8 52 push edx
|
||
00839EF9 61 popa
|
||
00839EFA 667265 jb 00839F62
|
||
00839EFD 7368 jnb 00839F67
|
||
00839EFF 0003 add [ebx], al
|
||
00839F01 0000 add [eax], al
|
||
|
||
00839F03 0100 add [eax], eax
|
||
00839F05 0554424465 add eax, +$65444254
|
||
00839F0A 6C insb
|
||
00839F0B 0403 add al, +$03
|
||
00839F0D 0000 add [eax], al
|
||
|
||
00839F0F 0100 add [eax], eax
|
||
00839F11 07 pop es
|
||
00839F12 54 push esp
|
||
00839F13 42 inc edx
|
||
00839F14 43 inc ebx
|
||
00839F15 6C insb
|
||
00839F16 6F outsd
|
||
00839F17 7365 jnb 00839F7E
|
||
00839F19 0803 or [ebx], al
|
||
00839F1B 0000 add [eax], al
|
||
|
||
00839F1D 0200 add al, byte ptr [eax]
|
||
00839F1F 0C41 or al, $41
|
||
00839F21 44 inc esp
|
||
00839F22 4F dec edi
|
||
00839F23 51 push ecx
|
||
00839F24 7565 jnz 00839F8B
|
||
00839F26 7279 jb 00839FA1
|
||
00839F28 54 push esp
|
||
00839F29 656D insd
|
||
00839F2B 700C jo 00839F39
|
||
00839F2D 0300 add eax, [eax]
|
||
00839F2F 0002 add [edx], al
|
||
00839F31 000B add [ebx], cl
|
||
00839F33 41 inc ecx
|
||
00839F34 44 inc esp
|
||
00839F35 4F dec edi
|
||
00839F36 51 push ecx
|
||
00839F37 7565 jnz 00839F9E
|
||
00839F39 7279 jb 00839FB4
|
||
00839F3B 43 inc ebx
|
||
00839F3C 6D insd
|
||
00839F3D 641003 adc fs:[ebx], al
|
||
00839F40 0000 add [eax], al
|
||
|
||
00839F42 0300 add eax, [eax]
|
||
00839F44 06 push es
|
||
00839F45 50 push eax
|
||
00839F46 61 popa
|
||
00839F47 6E outsb
|
||
00839F48 656C insb
|
||
00839F4A 311403 xor [ebx+eax], edx
|
||
00839F4D 0000 add [eax], al
|
||
|
||
00839F4F 0100 add [eax], eax
|
||
00839F51 0B546F6F or edx, [edi+ebp*2+$6F]
|
||
00839F55 6C insb
|
||
00839F56 42 inc edx
|
||
00839F57 7574 jnz 00839FCD
|
||
00839F59 746F jz 00839FCA
|
||
00839F5B 6E outsb
|
||
00839F5C 3218 xor bl, byte ptr [eax]
|
||
00839F5E 0300 add eax, [eax]
|
||
00839F60 000400 add [eax+eax], al
|
||
00839F63 06 push es
|
||
00839F64 4C dec esp
|
||
00839F65 61 popa
|
||
00839F66 62656C bound esp, qword ptr [ebp+$6C]
|
||
00839F69 311C03 xor [ebx+eax], ebx
|
||
00839F6C 0000 add [eax], al
|
||
|
||
00839F6E 0500065946 add eax, +$46590600
|
||
00839F73 4E dec esi
|
||
00839F74 61 popa
|
||
00839F75 6D insd
|
||
00839F76 652003 and gs:[ebx], al
|
||
00839F79 0000 add [eax], al
|
||
|
||
00839F7B 0200 add al, byte ptr [eax]
|
||
00839F7D 0C41 or al, $41
|
||
00839F7F 44 inc esp
|
||
00839F80 4F dec edi
|
||
00839F81 51 push ecx
|
||
00839F82 7565 jnz 00839FE9
|
||
00839F84 7279 jb 00839FFF
|
||
00839F86 4D dec ebp
|
||
00839F87 61 popa
|
||
00839F88 696E2403000001 imul ebp, [esi+$24], $01000003
|
||
00839F8F 000B add [ebx], cl
|
||
00839F91 54 push esp
|
||
00839F92 6F outsd
|
||
00839F93 6F outsd
|
||
00839F94 6C insb
|
||
00839F95 42 inc edx
|
||
00839F96 7574 jnz 0083A00C
|
||
00839F98 746F jz 0083A009
|
||
00839F9A 6E outsb
|
||
00839F9B 3128 xor [eax], ebp
|
||
00839F9D 0300 add eax, [eax]
|
||
00839F9F 0006 add [esi], al
|
||
00839FA1 0003 add [ebx], al
|
||
00839FA3 52 push edx
|
||
00839FA4 4D dec ebp
|
||
00839FA5 312C03 xor [ebx+eax], ebp
|
||
00839FA8 0000 add [eax], al
|
||
|
||
00839FAA 07 pop es
|
||
00839FAB 0009 add [ecx], cl
|
||
00839FAD 52 push edx
|
||
00839FAE 4D dec ebp
|
||
00839FAF 44 inc esp
|
||
00839FB0 42 inc edx
|
||
00839FB1 5F pop edi
|
||
00839FB2 4D dec ebp
|
||
00839FB3 61 popa
|
||
00839FB4 696E3003000004 imul ebp, [esi+$30], $04000003
|
||
00839FBB 0006 add [esi], al
|
||
00839FBD 4C dec esp
|
||
00839FBE 61 popa
|
||
00839FBF 62656C bound esp, qword ptr [ebp+$6C]
|
||
00839FC2 333403 xor esi, [ebx+eax]
|
||
00839FC5 0000 add [eax], al
|
||
|
||
00839FC7 05000B4661 add eax, +$61460B00
|
||
00839FCC 63746F72 arpl [edi+ebp*2+$72], si
|
||
00839FD0 794E jns 0083A020
|
||
00839FD2 61 popa
|
||
00839FD3 6D insd
|
||
00839FD4 653803 cmp gs:[ebx], al
|
||
00839FD7 0000 add [eax], al
|
||
|
||
00839FD9 0800 or [eax], al
|
||
00839FDB 07 pop es
|
||
00839FDC 637847 arpl [eax+$47], di
|
||
00839FDF 7269 jb 0083A04A
|
||
00839FE1 64323C03 xor bh, byte ptr fs:[ebx+eax]
|
||
00839FE5 0000 add [eax], al
|
||
|
||
00839FE7 0900 or [eax], eax
|
||
00839FE9 03547632 add edx, [esi+esi*2+$32]
|
||
00839FED 40 inc eax
|
||
00839FEE 0300 add eax, [eax]
|
||
00839FF0 000A add [edx], cl
|
||
00839FF2 000F add [edi], cl
|
||
00839FF4 637847 arpl [eax+$47], di
|
||
00839FF7 7269 jb 0083A062
|
||
00839FF9 6444 inc esp
|
||
00839FFB 42 inc edx
|
||
00839FFC 43 inc ebx
|
||
00839FFD 6F outsd
|
||
00839FFE 6C insb
|
||
00839FFF 756D jnz 0083A06E
|
||
0083A001 6E outsb
|
||
0083A002 31440300 xor [ebx+eax+$00], eax
|
||
0083A006 000A add [edx], cl
|
||
0083A008 000F add [edi], cl
|
||
0083A00A 637847 arpl [eax+$47], di
|
||
0083A00D 7269 jb 0083A078
|
||
0083A00F 6444 inc esp
|
||
0083A011 42 inc edx
|
||
0083A012 43 inc ebx
|
||
0083A013 6F outsd
|
||
0083A014 6C insb
|
||
0083A015 756D jnz 0083A084
|
||
0083A017 6E outsb
|
||
0083A018 334803 xor ecx, [eax+$03]
|
||
0083A01B 0000 add [eax], al
|
||
|
||
0083A01D 0B00 or eax, [eax]
|
||
0083A01F 0C63 or al, $63
|
||
0083A021 7847 js 0083A06A
|
||
0083A023 7269 jb 0083A08E
|
||
0083A025 644C dec esp
|
||
0083A027 657665 jbe 0083A08F
|
||
0083A02A 6C insb
|
||
0083A02B 314C0300 xor [ebx+eax+$00], ecx
|
||
0083A02F 000400 add [eax+eax], al
|
||
0083A032 06 push es
|
||
0083A033 4C dec esp
|
||
0083A034 61 popa
|
||
0083A035 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A038 325003 xor dl, byte ptr [eax+$03]
|
||
0083A03B 0000 add [eax], al
|
||
|
||
0083A03D 0C00 or al, $00
|
||
0083A03F 07 pop es
|
||
0083A040 626567 bound esp, qword ptr [ebp+$67]
|
||
0083A043 6461 popa
|
||
0083A045 7465 jz 0083A0AC
|
||
0083A047 54 push esp
|
||
0083A048 0300 add eax, [eax]
|
||
0083A04A 000C00 add [eax+eax], cl
|
||
0083A04D 07 pop es
|
||
0083A04E 45 inc ebp
|
||
0083A04F 6E outsb
|
||
0083A050 646461 popa
|
||
0083A053 7465 jz 0083A0BA
|
||
0083A055 58 pop eax
|
||
0083A056 0300 add eax, [eax]
|
||
0083A058 000D00106378 add [$78631000], cl
|
||
0083A05E 47 inc edi
|
||
0083A05F 7269 jb 0083A0CA
|
||
0083A061 6450 push eax
|
||
0083A063 6F outsd
|
||
0083A064 7075 jo 0083A0DB
|
||
0083A066 704D jo 0083A0B5
|
||
0083A068 656E outsb
|
||
0083A06A 7532 jnz 0083A09E
|
||
0083A06C 5C pop esp
|
||
0083A06D 0300 add eax, [eax]
|
||
0083A06F 000E add [esi], cl
|
||
0083A071 000544535F48 add [$485F5344], al
|
||
0083A077 5A pop edx
|
||
0083A078 60 pusha
|
||
0083A079 0300 add eax, [eax]
|
||
0083A07B 000F add [edi], cl
|
||
0083A07D 0006 add [esi], al
|
||
0083A07F 43 inc ebx
|
||
0083A080 44 inc esp
|
||
0083A081 53 push ebx
|
||
0083A082 5F pop edi
|
||
0083A083 48 dec eax
|
||
0083A084 5A pop edx
|
||
0083A085 640300 add eax, fs:[eax]
|
||
0083A088 0001 add [ecx], al
|
||
0083A08A 000B add [ebx], cl
|
||
0083A08C 54 push esp
|
||
0083A08D 6F outsd
|
||
0083A08E 6F outsd
|
||
0083A08F 6C insb
|
||
0083A090 42 inc edx
|
||
0083A091 7574 jnz 0083A107
|
||
0083A093 746F jz 0083A104
|
||
0083A095 6E outsb
|
||
0083A096 336803 xor ebp, [eax+$03]
|
||
0083A099 0000 add [eax], al
|
||
|
||
0083A09B 0A00 or al, byte ptr [eax]
|
||
0083A09D 035642 add edx, [esi+$42]
|
||
0083A0A0 5A pop edx
|
||
0083A0A1 6C insb
|
||
0083A0A2 0300 add eax, [eax]
|
||
0083A0A4 000A add [edx], cl
|
||
0083A0A6 0003 add [ebx], al
|
||
0083A0A8 56 push esi
|
||
0083A0A9 59 pop ecx
|
||
0083A0AA 42 inc edx
|
||
0083A0AB 7003 jo 0083A0B0
|
||
0083A0AD 0000 add [eax], al
|
||
|
||
0083A0AF 0A00 or al, byte ptr [eax]
|
||
0083A0B1 097632 or [esi+$32], esi
|
||
0083A0B4 43 inc ebx
|
||
0083A0B5 6F outsd
|
||
0083A0B6 6C insb
|
||
0083A0B7 756D jnz 0083A126
|
||
0083A0B9 6E outsb
|
||
0083A0BA 367403 jz 0083A0C0
|
||
0083A0BD 0000 add [eax], al
|
||
|
||
0083A0BF 0400 add al, +$00
|
||
0083A0C1 06 push es
|
||
0083A0C2 4C dec esp
|
||
0083A0C3 61 popa
|
||
0083A0C4 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A0C7 3478 xor al, $78
|
||
0083A0C9 0300 add eax, [eax]
|
||
0083A0CB 000500054D6F add [$6F4D0500], al
|
||
0083A0D1 6E outsb
|
||
0083A0D2 65797C jns 0083A151
|
||
0083A0D5 0300 add eax, [eax]
|
||
0083A0D7 000A add [edx], cl
|
||
0083A0D9 0009 add [ecx], cl
|
||
0083A0DB 7632 jbe 0083A10F
|
||
0083A0DD 43 inc ebx
|
||
0083A0DE 6F outsd
|
||
0083A0DF 6C insb
|
||
0083A0E0 756D jnz 0083A14F
|
||
0083A0E2 6E outsb
|
||
0083A0E3 31800300000A xor [eax+$A000003], eax
|
||
0083A0E9 000D76324465 add [$65443276], cl
|
||
0083A0EF 7261 jb 0083A152
|
||
0083A0F1 7465 jz 0083A158
|
||
0083A0F3 4D dec ebp
|
||
0083A0F4 6F outsd
|
||
0083A0F5 6E outsb
|
||
0083A0F6 657984 jns 0083A07D
|
||
0083A0F9 0300 add eax, [eax]
|
||
0083A0FB 0001 add [ecx], al
|
||
0083A0FD 000474 add [esp+esi*2], al
|
||
0083A100 63686B arpl [eax+$6B], bp
|
||
0083A103 8803 mov [ebx], al
|
||
0083A105 0000 add [eax], al
|
||
|
||
0083A107 0100 add [eax], eax
|
||
0083A109 06 push es
|
||
0083A10A 746E jz 0083A17A
|
||
0083A10C 6F outsd
|
||
0083A10D 63686B arpl [eax+$6B], bp
|
||
0083A110 8C03 mov word ptr [ebx], es
|
||
0083A112 0000 add [eax], al
|
||
|
||
0083A114 1000 adc [eax], al
|
||
0083A116 0D63785461 or eax, $61547863
|
||
0083A11B 62436F bound eax, qword ptr [ebx+$6F]
|
||
0083A11E 6E outsb
|
||
0083A11F 7472 jz 0083A193
|
||
0083A121 6F outsd
|
||
0083A122 6C insb
|
||
0083A123 31900300000A xor [eax+$A000003], edx
|
||
0083A129 0006 add [esi], al
|
||
0083A12B 7632 jbe 0083A15F
|
||
0083A12D 53 push ebx
|
||
0083A12E 7365 jnb 0083A195
|
||
0083A130 6C insb
|
||
0083A131 94 xchg eax, esp
|
||
0083A132 0300 add eax, [eax]
|
||
0083A134 000A add [edx], cl
|
||
0083A136 000B add [ebx], cl
|
||
0083A138 7632 jbe 0083A16C
|
||
0083A13A 43 inc ebx
|
||
0083A13B 6F outsd
|
||
0083A13C 6D insd
|
||
0083A13D 54 push esp
|
||
0083A13E 61 popa
|
||
0083A13F 69746F7598030000 imul esi, [edi+ebp*2+$75], $00000398
|
||
0083A147 0100 add [eax], eax
|
||
0083A149 056E6F6368 add eax, +$68636F6E
|
||
0083A14E 6B9C030000010003 imul ebx, [ebx+eax+$10000], $03
|
||
0083A156 54 push esp
|
||
0083A157 53 push ebx
|
||
0083A158 44 inc esp
|
||
0083A159 A00300000A mov al, byte ptr [$0A000003]
|
||
0083A15E 0006 add [esi], al
|
||
0083A160 7632 jbe 0083A194
|
||
0083A162 49 dec ecx
|
||
0083A163 46 inc esi
|
||
0083A164 53 push ebx
|
||
0083A165 44 inc esp
|
||
0083A166 A4 movsb
|
||
0083A167 0300 add eax, [eax]
|
||
0083A169 0011 add [ecx], dl
|
||
0083A16B 000A add [edx], cl
|
||
0083A16D 50 push eax
|
||
0083A16E 6F outsd
|
||
0083A16F 7075 jo 0083A1E6
|
||
0083A171 704D jo 0083A1C0
|
||
0083A173 656E outsb
|
||
0083A175 7531 jnz 0083A1A8
|
||
0083A177 A803 test al, $03
|
||
0083A179 0000 add [eax], al
|
||
|
||
0083A17B 1200 adc al, byte ptr [eax]
|
||
0083A17D 024E31 add cl, byte ptr [esi+$31]
|
||
0083A180 AC lodsb
|
||
0083A181 0300 add eax, [eax]
|
||
0083A183 0012 add [edx], dl
|
||
0083A185 0002 add [edx], al
|
||
0083A187 4E dec esi
|
||
0083A188 32B003000004 xor dh, byte ptr [eax+$4000003]
|
||
0083A18E 0007 add [edi], al
|
||
0083A190 4C dec esp
|
||
0083A191 61 popa
|
||
0083A192 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A195 3130 xor [eax], esi
|
||
0083A197 B403 mov ah, $03
|
||
0083A199 0000 add [eax], al
|
||
|
||
0083A19B 0400 add al, +$00
|
||
0083A19D 07 pop es
|
||
0083A19E 4C dec esp
|
||
0083A19F 61 popa
|
||
0083A1A0 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A1A3 3132 xor [edx], esi
|
||
0083A1A5 B803000005 mov eax, $05000003
|
||
0083A1AA 0007 add [edi], al
|
||
0083A1AC 43 inc ebx
|
||
0083A1AD 686B4E6F74 push $746F4E6B
|
||
0083A1B2 65BC03000004 mov esp, $04000003
|
||
0083A1B8 0007 add [edi], al
|
||
0083A1BA 4C dec esp
|
||
0083A1BB 61 popa
|
||
0083A1BC 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A1BF 3137 xor [edi], esi
|
||
0083A1C1 C00300 rol byte ptr [ebx], $00
|
||
0083A1C4 0013 add [ebx], dl
|
||
0083A1C6 0009 add [ecx], cl
|
||
0083A1C8 43 inc ebx
|
||
0083A1C9 6865636B42 push $426B6365
|
||
0083A1CE 6F outsd
|
||
0083A1CF 7831 js 0083A202
|
||
0083A1D1 C403 les eax, [ebx]
|
||
0083A1D3 0000 add [eax], al
|
||
|
||
0083A1D5 0A00 or al, byte ptr [eax]
|
||
0083A1D7 0B7632 or esi, [esi+$32]
|
||
0083A1DA 4B dec ebx
|
||
0083A1DB 48 dec eax
|
||
0083A1DC 44 inc esp
|
||
0083A1DD 4B dec ebx
|
||
0083A1DE 4D dec ebp
|
||
0083A1DF 6F outsd
|
||
0083A1E0 6E outsb
|
||
0083A1E1 6579C8 jns 0083A1AC
|
||
0083A1E4 0300 add eax, [eax]
|
||
0083A1E6 001400 add [eax+eax], dl
|
||
0083A1E9 126378 adc ah, byte ptr [ebx+$78]
|
||
0083A1EC 53 push ebx
|
||
0083A1ED 7479 jz 0083A268
|
||
0083A1EF 6C insb
|
||
0083A1F0 6552 push edx
|
||
0083A1F2 65706F jo 0083A264
|
||
0083A1F5 7369 jnb 0083A260
|
||
0083A1F7 746F jz 0083A268
|
||
0083A1F9 7279 jb 0083A274
|
||
0083A1FB 31CC xor esp, ecx
|
||
0083A1FD 0300 add eax, [eax]
|
||
0083A1FF 001500086378 add [$78630800], dl
|
||
0083A205 53 push ebx
|
||
0083A206 7479 jz 0083A281
|
||
0083A208 6C insb
|
||
0083A209 6531D0 xor eax, edx
|
||
0083A20C 0300 add eax, [eax]
|
||
0083A20E 000400 add [eax+eax], al
|
||
0083A211 06 push es
|
||
0083A212 4C dec esp
|
||
0083A213 61 popa
|
||
0083A214 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A217 35D4030000 xor eax, $000003D4
|
||
0083A21C 0500046E6F add eax, +$6F6E0400
|
||
0083A221 7465 jz 0083A288
|
||
0083A223 D803 fadd dword ptr [ebx]
|
||
0083A225 0000 add [eax], al
|
||
|
||
0083A227 0A00 or al, byte ptr [eax]
|
||
0083A229 097632 or [esi+$32], esi
|
||
0083A22C 53 push ebx
|
||
0083A22D 58 pop eax
|
||
0083A22E 4D dec ebp
|
||
0083A22F 6F outsd
|
||
0083A230 6E outsb
|
||
0083A231 6579DC jns 0083A210
|
||
0083A234 0300 add eax, [eax]
|
||
0083A236 000A add [edx], cl
|
||
0083A238 0007 add [edi], al
|
||
0083A23A 7632 jbe 0083A26E
|
||
0083A23C 48 dec eax
|
||
0083A23D 784E js 0083A28D
|
||
0083A23F 756D jnz 0083A2AE
|
||
0083A241 E003 loopn +$03
|
||
0083A243 0000 add [eax], al
|
||
|
||
0083A245 0A00 or al, byte ptr [eax]
|
||
0083A247 07 pop es
|
||
0083A248 7632 jbe 0083A27C
|
||
0083A24A 48 dec eax
|
||
0083A24B 7569 jnz 0083A2B6
|
||
0083A24D 6C insb
|
||
0083A24E 76E4 jbe 0083A234
|
||
0083A250 0300 add eax, [eax]
|
||
0083A252 000A add [edx], cl
|
||
0083A254 000A add [edx], cl
|
||
0083A256 7632 jbe 0083A28A
|
||
0083A258 4B dec ebx
|
||
0083A259 50 push eax
|
||
0083A25A 53 push ebx
|
||
0083A25B 7461 jz 0083A2BE
|
||
0083A25D 7475 jz 0083A2D4
|
||
0083A25F 73E8 jnb 0083A249
|
||
0083A261 0300 add eax, [eax]
|
||
0083A263 000400 add [eax+eax], al
|
||
0083A266 06 push es
|
||
0083A267 4C dec esp
|
||
0083A268 61 popa
|
||
0083A269 62656C bound esp, qword ptr [ebp+$6C]
|
||
0083A26C 36EC in al, dx
|
||
0083A26E 0300 add eax, [eax]
|
||
0083A270 000500074F72 add [$724F0700], al
|
||
0083A276 6465724E jb 0083A2C8
|
||
0083A27A 6F outsd
|
||
0083A27B F0 lock
|
||
0083A27C 0300 add eax, [eax]
|
||
0083A27E 000A add [edx], cl
|
||
0083A280 000A add [edx], cl
|
||
0083A282 7632 jbe 0083A2B6
|
||
0083A284 43 inc ebx
|
||
0083A285 4F dec edi
|
||
0083A286 7264 jb 0083A2EC
|
||
0083A288 65724E jb 0083A2D9
|
||
0083A28B 6F outsd
|
||
0083A28C 2000 and [eax], al
|
||
0083A28E 1200 adc al, byte ptr [eax]
|
||
0083A290 D8AC83000B466F fsubr dword ptr [ebx+eax*4+$6F460B00]
|
||
0083A297 726D jb 0083A306
|
||
0083A299 44 inc esp
|
||
0083A29A 657374 jnb 0083A311
|
||
0083A29D 726F jb 0083A30E
|
||
0083A29F 7910 jns 0083A2B1
|
||
0083A2A1 00E0 add al, ah
|
||
0083A2A3 AC lodsb
|
||
0083A2A4 830009 add dword ptr [eax], +$09
|
||
0083A2A7 46 inc esi
|
||
0083A2A8 6F outsd
|
||
0083A2A9 726D jb 0083A318
|
||
0083A2AB 43 inc ebx
|
||
0083A2AC 6C insb
|
||
0083A2AD 6F outsd
|
||
0083A2AE 7365 jnb 0083A315
|
||
0083A2B0 1300 adc eax, [eax]
|
||
0083A2B2 E4AC in al, $AC
|
||
0083A2B4 83000C add dword ptr [eax], +$0C
|
||
0083A2B7 54 push esp
|
||
0083A2B8 42 inc edx
|
||
0083A2B9 43 inc ebx
|
||
0083A2BA 6C insb
|
||
0083A2BB 6F outsd
|
||
0083A2BC 7365 jnb 0083A323
|
||
0083A2BE 43 inc ebx
|
||
0083A2BF 6C insb
|
||
0083A2C0 69636B110030AD imul esp, [ebx+$6B], $AD300011
|
||
0083A2C7 83000A add dword ptr [eax], +$0A
|
||
0083A2CA 54 push esp
|
||
0083A2CB 42 inc edx
|
||
0083A2CC 44 inc esp
|
||
0083A2CD 656C insb
|
||
0083A2CF 43 inc ebx
|
||
0083A2D0 6C insb
|
||
0083A2D1 69636B0F00E4AF imul esp, [ebx+$6B], $AFE4000F
|
||
0083A2D8 830008 add dword ptr [eax], +$08
|
||
0083A2DB 46 inc esi
|
||
0083A2DC 6F outsd
|
||
0083A2DD 726D jb 0083A34C
|
||
0083A2DF 53 push ebx
|
||
0083A2E0 686F771500 push $0015776F
|
||
0083A2E5 80B083000E5442 xor byte ptr [eax+$540E0083], $42
|
||
0083A2EC 52 push edx
|
||
0083A2ED 61 popa
|
||
0083A2EE 667265 jb 0083A356
|
||
0083A2F1 7368 jnb 0083A35B
|
||
0083A2F3 43 inc ebx
|
||
0083A2F4 6C insb
|
||
0083A2F5 69636B170088B0 imul esp, [ebx+$6B], $B0880017
|
||
0083A2FC 830010 add dword ptr [eax], +$10
|
||
0083A2FF 54 push esp
|
||
0083A300 6F outsd
|
||
0083A301 6F outsd
|
||
0083A302 6C insb
|
||
0083A303 42 inc edx
|
||
0083A304 7574 jnz 0083A37A
|
||
0083A306 746F jz 0083A377
|
||
0083A308 6E outsb
|
||
0083A309 32436C xor al, byte ptr [ebx+$6C]
|
||
0083A30C 69636B180034B1 imul esp, [ebx+$6B], $B1340018
|
||
0083A313 830011 add dword ptr [eax], +$11
|
||
0083A316 46 inc esi
|
||
0083A317 61 popa
|
||
0083A318 63746F72 arpl [edi+ebp*2+$72], si
|
||
0083A31C 794E jns 0083A36C
|
||
0083A31E 61 popa
|
||
0083A31F 6D insd
|
||
0083A320 6543 inc ebx
|
||
0083A322 68616E6765 push $65676E61
|
||
0083A327 1300 adc eax, [eax]
|
||
0083A329 48 dec eax
|
||
0083A32A B183 mov cl, $83
|
||
0083A32C 000C42 add [edx+eax*2], cl
|
||
0083A32F 7574 jnz 0083A3A5
|
||
0083A331 746F jz 0083A3A2
|
||
0083A333 6E outsb
|
||
0083A334 32436C xor al, byte ptr [ebx+$6C]
|
||
0083A337 69636B300080BC imul esp, [ebx+$6B], $BC800030
|
||
0083A33E 830029 add dword ptr [eax], +$29
|
||
0083A341 637847 arpl [eax+$47], di
|
||
0083A344 7269 jb 0083A3AF
|
||
0083A346 6444 inc esp
|
||
0083A348 42 inc edx
|
||
0083A349 43 inc ebx
|
||
0083A34A 6F outsd
|
||
0083A34B 6C insb
|
||
0083A34C 756D jnz 0083A3BB
|
||
0083A34E 6E outsb
|
||
0083A34F 385072 cmp [eax+$72], dl
|
||
0083A352 6F outsd
|
||
0083A353 7065 jo 0083A3BA
|
||
0083A355 7274 jb 0083A3CB
|
||
0083A357 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A35E 56 push esi
|
||
0083A35F 61 popa
|
||
0083A360 6C insb
|
||
0083A361 7565 jnz 0083A3C8
|
||
0083A363 43 inc ebx
|
||
0083A364 68616E6765 push $65676E61
|
||
0083A369 643000 xor fs:[eax], al
|
||
0083A36C 4C dec esp
|
||
0083A36D BF83002963 mov edi, $63290083
|
||
0083A372 7847 js 0083A3BB
|
||
0083A374 7269 jb 0083A3DF
|
||
0083A376 6444 inc esp
|
||
0083A378 42 inc edx
|
||
0083A379 43 inc ebx
|
||
0083A37A 6F outsd
|
||
0083A37B 6C insb
|
||
0083A37C 756D jnz 0083A3EB
|
||
0083A37E 6E outsb
|
||
0083A37F 3550726F70 xor eax, $706F7250
|
||
0083A384 657274 jb 0083A3FB
|
||
0083A387 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A38E 56 push esi
|
||
0083A38F 61 popa
|
||
0083A390 6C insb
|
||
0083A391 7565 jnz 0083A3F8
|
||
0083A393 43 inc ebx
|
||
0083A394 68616E6765 push $65676E61
|
||
0083A399 643000 xor fs:[eax], al
|
||
0083A39C B0C7 mov al, $C7
|
||
0083A39E 830029 add dword ptr [eax], +$29
|
||
0083A3A1 637847 arpl [eax+$47], di
|
||
0083A3A4 7269 jb 0083A40F
|
||
0083A3A6 6444 inc esp
|
||
0083A3A8 42 inc edx
|
||
0083A3A9 43 inc ebx
|
||
0083A3AA 6F outsd
|
||
0083A3AB 6C insb
|
||
0083A3AC 756D jnz 0083A41B
|
||
0083A3AE 6E outsb
|
||
0083A3AF 315072 xor [eax+$72], edx
|
||
0083A3B2 6F outsd
|
||
0083A3B3 7065 jo 0083A41A
|
||
0083A3B5 7274 jb 0083A42B
|
||
0083A3B7 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A3BE 56 push esi
|
||
0083A3BF 61 popa
|
||
0083A3C0 6C insb
|
||
0083A3C1 7565 jnz 0083A428
|
||
0083A3C3 43 inc ebx
|
||
0083A3C4 68616E6765 push $65676E61
|
||
0083A3C9 6417 pop ss
|
||
0083A3CB 0094CA83001054 add [edx+ecx*8+$54100083], dl
|
||
0083A3D2 6F outsd
|
||
0083A3D3 6F outsd
|
||
0083A3D4 6C insb
|
||
0083A3D5 42 inc edx
|
||
0083A3D6 7574 jnz 0083A44C
|
||
0083A3D8 746F jz 0083A449
|
||
0083A3DA 6E outsb
|
||
0083A3DB 33436C xor eax, [ebx+$6C]
|
||
0083A3DE 69636B2B0070CD imul esp, [ebx+$6B], $CD70002B
|
||
0083A3E5 830024 add dword ptr [eax], +$24
|
||
0083A3E8 637847 arpl [eax+$47], di
|
||
0083A3EB 7269 jb 0083A456
|
||
0083A3ED 6444 inc esp
|
||
0083A3EF 42 inc edx
|
||
0083A3F0 43 inc ebx
|
||
0083A3F1 6F outsd
|
||
0083A3F2 6C insb
|
||
0083A3F3 756D jnz 0083A462
|
||
0083A3F5 6E outsb
|
||
0083A3F6 335072 xor edx, [eax+$72]
|
||
0083A3F9 6F outsd
|
||
0083A3FA 7065 jo 0083A461
|
||
0083A3FC 7274 jb 0083A472
|
||
0083A3FE 69657342757474 imul esp, [ebp+$73], $74747542
|
||
0083A405 6F outsd
|
||
0083A406 6E outsb
|
||
0083A407 43 inc ebx
|
||
0083A408 6C insb
|
||
0083A409 69636B2B00F0D1 imul esp, [ebx+$6B], $D1F0002B
|
||
0083A410 830024 add dword ptr [eax], +$24
|
||
0083A413 637847 arpl [eax+$47], di
|
||
0083A416 7269 jb 0083A481
|
||
0083A418 6444 inc esp
|
||
0083A41A 42 inc edx
|
||
0083A41B 43 inc ebx
|
||
0083A41C 6F outsd
|
||
0083A41D 6C insb
|
||
0083A41E 756D jnz 0083A48D
|
||
0083A420 6E outsb
|
||
0083A421 3650 push eax
|
||
0083A423 726F jb 0083A494
|
||
0083A425 7065 jo 0083A48C
|
||
0083A427 7274 jb 0083A49D
|
||
0083A429 69657342757474 imul esp, [ebp+$73], $74747542
|
||
0083A430 6F outsd
|
||
0083A431 6E outsb
|
||
0083A432 43 inc ebx
|
||
0083A433 6C insb
|
||
0083A434 69636B25004CD5 imul esp, [ebx+$6B], $D54C0025
|
||
0083A43B 83001E add dword ptr [eax], +$1E
|
||
0083A43E 7632 jbe 0083A472
|
||
0083A440 43 inc ebx
|
||
0083A441 6F outsd
|
||
0083A442 6C insb
|
||
0083A443 756D jnz 0083A4B2
|
||
0083A445 6E outsb
|
||
0083A446 335072 xor edx, [eax+$72]
|
||
0083A449 6F outsd
|
||
0083A44A 7065 jo 0083A4B1
|
||
0083A44C 7274 jb 0083A4C2
|
||
0083A44E 69657342757474 imul esp, [ebp+$73], $74747542
|
||
0083A455 6F outsd
|
||
0083A456 6E outsb
|
||
0083A457 43 inc ebx
|
||
0083A458 6C insb
|
||
0083A459 69636B170090D8 imul esp, [ebx+$6B], $D8900017
|
||
0083A460 830010 add dword ptr [eax], +$10
|
||
0083A463 54 push esp
|
||
0083A464 6F outsd
|
||
0083A465 6F outsd
|
||
0083A466 6C insb
|
||
0083A467 42 inc edx
|
||
0083A468 7574 jnz 0083A4DE
|
||
0083A46A 746F jz 0083A4DB
|
||
0083A46C 6E outsb
|
||
0083A46D 31436C xor [ebx+$6C], eax
|
||
0083A470 69636B2A00D0D8 imul esp, [ebx+$6B], $D8D0002A
|
||
0083A477 830023 add dword ptr [eax], +$23
|
||
0083A47A 7632 jbe 0083A4AE
|
||
0083A47C 43 inc ebx
|
||
0083A47D 6F outsd
|
||
0083A47E 6C insb
|
||
0083A47F 756D jnz 0083A4EE
|
||
0083A481 6E outsb
|
||
0083A482 3450 xor al, $50
|
||
0083A484 726F jb 0083A4F5
|
||
0083A486 7065 jo 0083A4ED
|
||
0083A488 7274 jb 0083A4FE
|
||
0083A48A 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A491 56 push esi
|
||
0083A492 61 popa
|
||
0083A493 6C insb
|
||
0083A494 7565 jnz 0083A4FB
|
||
0083A496 43 inc ebx
|
||
0083A497 68616E6765 push $65676E61
|
||
0083A49C 64250018DF83 and eax, $83DF1800
|
||
0083A4A2 001E add [esi], bl
|
||
0083A4A4 7632 jbe 0083A4D8
|
||
0083A4A6 43 inc ebx
|
||
0083A4A7 6F outsd
|
||
0083A4A8 6C insb
|
||
0083A4A9 756D jnz 0083A518
|
||
0083A4AB 6E outsb
|
||
0083A4AC 315072 xor [eax+$72], edx
|
||
0083A4AF 6F outsd
|
||
0083A4B0 7065 jo 0083A517
|
||
0083A4B2 7274 jb 0083A528
|
||
0083A4B4 69657342757474 imul esp, [ebp+$73], $74747542
|
||
0083A4BB 6F outsd
|
||
0083A4BC 6E outsb
|
||
0083A4BD 43 inc ebx
|
||
0083A4BE 6C insb
|
||
0083A4BF 69636B2400E8E2 imul esp, [ebx+$6B], $E2E80024
|
||
0083A4C6 83001D add dword ptr [eax], +$1D
|
||
0083A4C9 56 push esi
|
||
0083A4CA 42 inc edx
|
||
0083A4CB 42 inc edx
|
||
0083A4CC 50 push eax
|
||
0083A4CD 726F jb 0083A53E
|
||
0083A4CF 7065 jo 0083A536
|
||
0083A4D1 7274 jb 0083A547
|
||
0083A4D3 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A4DA 56 push esi
|
||
0083A4DB 61 popa
|
||
0083A4DC 6C insb
|
||
0083A4DD 7565 jnz 0083A544
|
||
0083A4DF 43 inc ebx
|
||
0083A4E0 68616E6765 push $65676E61
|
||
0083A4E5 641200 adc al, byte ptr fs:[eax]
|
||
0083A4E8 24E7 and al, $E7
|
||
0083A4EA 83000B add dword ptr [eax], +$0B
|
||
0083A4ED 4D dec ebp
|
||
0083A4EE 6F outsd
|
||
0083A4EF 6E outsb
|
||
0083A4F0 657943 jns 0083A536
|
||
0083A4F3 68616E6765 push $65676E61
|
||
0083A4F8 2A00 sub al, byte ptr [eax]
|
||
0083A4FA 2CE7 sub al, $E7
|
||
0083A4FC 830023 add dword ptr [eax], +$23
|
||
0083A4FF 7632 jbe 0083A533
|
||
0083A501 43 inc ebx
|
||
0083A502 6F outsd
|
||
0083A503 6C insb
|
||
0083A504 756D jnz 0083A573
|
||
0083A506 6E outsb
|
||
0083A507 315072 xor [eax+$72], edx
|
||
0083A50A 6F outsd
|
||
0083A50B 7065 jo 0083A572
|
||
0083A50D 7274 jb 0083A583
|
||
0083A50F 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A516 56 push esi
|
||
0083A517 61 popa
|
||
0083A518 6C insb
|
||
0083A519 7565 jnz 0083A580
|
||
0083A51B 43 inc ebx
|
||
0083A51C 68616E6765 push $65676E61
|
||
0083A521 642E0044E983 add cs:[ecx+ebp*8-$7D], al
|
||
0083A527 0027 add [edi], ah
|
||
0083A529 7632 jbe 0083A55D
|
||
0083A52B 44 inc esp
|
||
0083A52C 657261 jb 0083A590
|
||
0083A52F 7465 jz 0083A596
|
||
0083A531 4D dec ebp
|
||
0083A532 6F outsd
|
||
0083A533 6E outsb
|
||
0083A534 657950 jns 0083A587
|
||
0083A537 726F jb 0083A5A8
|
||
0083A539 7065 jo 0083A5A0
|
||
0083A53B 7274 jb 0083A5B1
|
||
0083A53D 69657345646974 imul esp, [ebp+$73], $74696445
|
||
0083A544 56 push esi
|
||
0083A545 61 popa
|
||
0083A546 6C insb
|
||
0083A547 7565 jnz 0083A5AE
|
||
0083A549 43 inc ebx
|
||
0083A54A 68616E6765 push $65676E61
|
||
0083A54F 641000 adc fs:[eax], al
|
||
0083A552 58 pop eax
|
||
0083A553 EB83 jmp 0083A4D8
|
||
0083A555 0009 add [ecx], cl
|
||
0083A557 7463 jz 0083A5BC
|
||
0083A559 686B436C69 push $696C436B
|
||
0083A55E 636B12 arpl [ebx+$12], bp
|
||
0083A561 0024EE add [esi+ebp*8], ah
|
||
0083A564 83000B add dword ptr [eax], +$0B
|
||
0083A567 746E jz 0083A5D7
|
||
0083A569 6F outsd
|
||
0083A56A 63686B arpl [eax+$6B], bp
|
||
0083A56D 43 inc ebx
|
||
0083A56E 6C insb
|
||
0083A56F 69636B1A00F0F0 imul esp, [ebx+$6B], $F0F0001A
|
||
0083A576 830013 add dword ptr [eax], +$13
|
||
0083A579 637854 arpl [eax+$54], di
|
||
0083A57C 61 popa
|
||
0083A57D 62436F bound eax, qword ptr [ebx+$6F]
|
||
0083A580 6E outsb
|
||
0083A581 7472 jz 0083A5F5
|
||
0083A583 6F outsd
|
||
0083A584 6C insb
|
||
0083A585 314368 xor [ebx+$68], eax
|
||
0083A588 61 popa
|
||
0083A589 6E outsb
|
||
0083A58A 67651100 adc gs:[bx+si], eax
|
||
0083A58E 04F1 add al, -$0F
|
||
0083A590 83000A add dword ptr [eax], +$0A
|
||
0083A593 6E outsb
|
||
0083A594 6F outsd
|
||
0083A595 63686B arpl [eax+$6B], bp
|
||
0083A598 43 inc ebx
|
||
0083A599 6C insb
|
||
0083A59A 69636B0F0040F4 imul esp, [ebx+$6B], $F440000F
|
||
0083A5A1 830008 add dword ptr [eax], +$08
|
||
0083A5A4 54 push esp
|
||
0083A5A5 53 push ebx
|
||
0083A5A6 44 inc esp
|
||
0083A5A7 43 inc ebx
|
||
0083A5A8 6C insb
|
||
0083A5A9 69636B0E0038F5 imul esp, [ebx+$6B], $F538000E
|
||
0083A5B0 830007 add dword ptr [eax], +$07
|
||
0083A5B3 4E dec esi
|
||
0083A5B4 31436C xor [ebx+$6C], eax
|
||
0083A5B7 69636B0E0048F5 imul esp, [ebx+$6B], $F548000E
|
||
0083A5BE 830007 add dword ptr [eax], +$07
|
||
0083A5C1 4E dec esi
|
||
0083A5C2 32436C xor al, byte ptr [ebx+$6C]
|
||
0083A5C5 69636B1D0058F5 imul esp, [ebx+$6B], $F558001D
|
||
0083A5CC 830016 add dword ptr [eax], +$16
|
||
0083A5CF 7632 jbe 0083A603
|
||
0083A5D1 53 push ebx
|
||
0083A5D2 7365 jnb 0083A639
|
||
0083A5D4 6C insb
|
||
0083A5D5 50 push eax
|
||
0083A5D6 726F jb 0083A647
|
||
0083A5D8 7065 jo 0083A63F
|
||
0083A5DA 7274 jb 0083A650
|
||
0083A5DC 6965734368616E imul esp, [ebp+$73], $6E616843
|
||
0083A5E3 67651500B4F583 adc eax, $83F5B400
|
||
0083A5EA 000E add [esi], cl
|
||
0083A5EC 43 inc ebx
|
||
0083A5ED 6865636B42 push $426B6365
|
||
0083A5F2 6F outsd
|
||
0083A5F3 7831 js 0083A626
|
||
0083A5F5 43 inc ebx
|
||
0083A5F6 6C insb
|
||
0083A5F7 69636B0B546672 imul esp, [ebx+$6B], $7266540B
|
||
0083A5FE 6D insd
|
||
0083A5FF 53 push ebx
|
||
0083A600 4B dec ebx
|
||
0083A601 43 inc ebx
|
||
0083A602 52 push edx
|
||
0083A603 5F pop edi
|
||
0083A604 53 push ebx
|
||
0083A605 48 dec eax
|
||
0083A606 16 push ss
|
||
0083A607 0028 add [eax], ch
|
||
0083A609 94 xchg eax, esp
|
||
0083A60A 45 inc ebp
|
||
0083A60B 00648A45 add [edx+ecx*4+$45], ah
|
||
0083A60F 00B8124D0020 add [eax+$20004D12], bh
|
||
0083A615 42 inc edx
|
||
0083A616 44 inc esp
|
||
0083A617 001C5F add [edi+ebx*2], bl
|
||
0083A61A 47 inc edi
|
||
0083A61B 00B867470064 add [eax+$64004767], bh
|
||
0083A621 D37800 sar dword ptr [eax+$00], cl
|
||
0083A624 A80A test al, $0A
|
||
0083A626 7800 js 0083A628
|
||
0083A628 0016 add [esi], dl
|
||
0083A62A 6300 arpl [eax], ax
|
||
0083A62C F4 hlt
|
||
0083A62D B466 mov ah, $66
|
||
0083A62F 0034B1 add [ecx+esi*4], dh
|
||
0083A632 6600A40E6400E0A5 add [esi+ecx+$A5E00064], ah
|
||
0083A63A 45 inc ebp
|
||
0083A63B 005876 add [eax+$76], bl
|
||
0083A63E 7C00 jl 0083A640
|
||
0083A640 087F4B or [edi+$4B], bh
|
||
0083A643 0088996A0064 add [eax+$64006A99], cl
|
||
0083A649 5D pop ebp
|
||
0083A64A 57 push edi
|
||
0083A64B 00887E49008C add [eax+$8C00497E], cl
|
||
0083A651 7649 jbe 0083A69C
|
||
0083A653 00C0 add al, al
|
||
0083A655 96 xchg eax, esi
|
||
0083A656 47 inc edi
|
||
0083A657 009C6D4F005070 add [ebp+ebp*2+$7050004F], bl
|
||
0083A65E 4F dec edi
|
||
0083A65F 0064A683 add [esi-$7D], ah
|
||
0083A663 0007 add [edi], al
|
||
0083A665 0B546672 or edx, [esi+$72]
|
||
0083A669 6D insd
|
||
0083A66A 53 push ebx
|
||
0083A66B 4B dec ebx
|
||
0083A66C 43 inc ebx
|
||
0083A66D 52 push edx
|
||
0083A66E 5F pop edi
|
||
0083A66F 53 push ebx
|
||
0083A670 48 dec eax
|
||
0083A671 C49D8300D0F2 les ebx, [ebp+$F2D00083]
|
||
0083A677 49 dec ecx
|
||
0083A678 005E00 add [esi+$00], bl
|
||
0083A67B 09555F or [ebp+$5F], edx
|
||
0083A67E 53 push ebx
|
||
0083A67F 4B dec ebx
|
||
0083A680 43 inc ebx
|
||
0083A681 52 push edx
|
||
0083A682 5F pop edi
|
||
0083A683 53 push ebx
|
||
0083A684 48 dec eax
|
||
0083A685 0000 add [eax], al
|
||
|
||
0083A687 90 nop
|
||
0083A688 55 push ebp
|
||
0083A689 8BEC mov ebp, esp
|
||
0083A68B 6A00 push $00
|
||
0083A68D 6A00 push $00
|
||
0083A68F 53 push ebx
|
||
0083A690 56 push esi
|
||
0083A691 57 push edi
|
||
0083A692 8BD8 mov ebx, eax
|
||
0083A694 33C0 xor eax, eax
|
||
0083A696 55 push ebp
|
||
|
||
* Possible String Reference to: '<27>F<EFBFBD><46><EFBFBD><EFBFBD><EFBFBD>_^[YY]<5D>'
|
||
|
|
||
0083A697 68A9A78300 push $0083A7A9
|
||
|
||
***** TRY
|
||
|
|
||
0083A69C 64FF30 push dword ptr fs:[eax]
|
||
0083A69F 648920 mov fs:[eax], esp
|
||
0083A6A2 33D2 xor edx, edx
|
||
|
||
* Reference to control v1PriceUnit : N.A.
|
||
|
|
||
0083A6A4 8B8384030000 mov eax, [ebx+$0384]
|
||
0083A6AA 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_64
|
||
|
|
||
0083A6AC FF5164 call dword ptr [ecx+$64]
|
||
0083A6AF 33D2 xor edx, edx
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0083A6B1 8B8388030000 mov eax, [ebx+$0388]
|
||
0083A6B7 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetEnabled(Boolean)
|
||
|
|
||
0083A6B9 FF5164 call dword ptr [ecx+$64]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A6BC 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
|
||
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
|
||
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
|
||
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
|
||
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
|
||
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
||
|
|
||
0083A6C2 E87D1CE2FF call 0065C344
|
||
0083A6C7 8BF0 mov esi, eax
|
||
0083A6C9 4E dec esi
|
||
0083A6CA 85F6 test esi, esi
|
||
0083A6CC 7C54 jl 0083A722
|
||
0083A6CE 46 inc esi
|
||
0083A6CF 33FF xor edi, edi
|
||
0083A6D1 8BD7 mov edx, edi
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A6D3 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0083A6D9 E8F212E3FF call 0066B9D0
|
||
|
||
|
|
||
0083A6DE E83D11E3FF call 0066B820
|
||
0083A6E3 8D55F8 lea edx, [ebp-$08]
|
||
|
||
|
|
||
0083A6E6 E8DD06E3FF call 0066ADC8
|
||
0083A6EB 8B45F8 mov eax, [ebp-$08]
|
||
0083A6EE 8D55FC lea edx, [ebp-$04]
|
||
|
||
|
|
||
0083A6F1 E886FDBCFF call 0040A47C
|
||
0083A6F6 8B45FC mov eax, [ebp-$04]
|
||
|
||
* Possible String Reference to: 'SSEL'
|
||
|
|
||
0083A6F9 BAC0A78300 mov edx, $0083A7C0
|
||
|
||
* Reference to: System.@LStrCmp;
|
||
|
|
||
0083A6FE E83DB0BCFF call 00405740
|
||
0083A703 7419 jz 0083A71E
|
||
0083A705 8BD7 mov edx, edi
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A707 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0083A70D E8BE12E3FF call 0066B9D0
|
||
|
||
|
|
||
0083A712 E8B9FAE1FF call 0065A1D0
|
||
0083A717 33D2 xor edx, edx
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
||
|
|
||
0083A719 E842E8DEFF call 00628F60
|
||
0083A71E 47 inc edi
|
||
0083A71F 4E dec esi
|
||
0083A720 75AF jnz 0083A6D1
|
||
|
||
* Reference to control PriceNote : N.A.
|
||
|
|
||
0083A722 8B838C030000 mov eax, [ebx+$038C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A728 83B83C03000000 cmp dword ptr [eax+$033C], +$00
|
||
0083A72F 7541 jnz 0083A772
|
||
0083A731 B201 mov dl, $01
|
||
|
||
* Reference to control v1PriceUnit : N.A.
|
||
|
|
||
0083A733 8B8384030000 mov eax, [ebx+$0384]
|
||
0083A739 8B08 mov ecx, [eax]
|
||
|
||
* Possible reference to virtual method TN.A..OFFS_64
|
||
|
|
||
0083A73B FF5164 call dword ptr [ecx+$64]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A73E 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
|
||
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
|
||
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
|
||
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
|
||
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
|
||
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
||
|
|
||
0083A744 E8FB1BE2FF call 0065C344
|
||
0083A749 8BF0 mov esi, eax
|
||
0083A74B 4E dec esi
|
||
0083A74C 85F6 test esi, esi
|
||
0083A74E 7E22 jle 0083A772
|
||
0083A750 BF01000000 mov edi, $00000001
|
||
0083A755 8BD7 mov edx, edi
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A757 8B833C030000 mov eax, [ebx+$033C]
|
||
|
||
* 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;
|
||
|
|
||
0083A75D E86E12E3FF call 0066B9D0
|
||
|
||
|
|
||
0083A762 E869FAE1FF call 0065A1D0
|
||
0083A767 B201 mov dl, $01
|
||
|
||
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
||
|
|
||
0083A769 E8F2E7DEFF call 00628F60
|
||
0083A76E 47 inc edi
|
||
0083A76F 4E dec esi
|
||
0083A770 75E3 jnz 0083A755
|
||
|
||
* Reference to control PriceNote : N.A.
|
||
|
|
||
0083A772 8B838C030000 mov eax, [ebx+$038C]
|
||
|
||
* Reference to control ADOTemp : N.A.
|
||
|
|
||
0083A778 83B83C03000001 cmp dword ptr [eax+$033C], +$01
|
||
0083A77F 750D jnz 0083A78E
|
||
0083A781 B201 mov dl, $01
|
||
|
||
* Reference to control Label5 : TLabel
|
||
|
|
||
0083A783 8B8388030000 mov eax, [ebx+$0388]
|
||
0083A789 8B08 mov ecx, [eax]
|
||
|
||
* Reference to method TLabel.SetEnabled(Boolean)
|
||
|
|
||
0083A78B FF5164 call dword ptr [ecx+$64]
|
||
0083A78E 33C0 xor eax, eax
|
||
0083A790 5A pop edx
|
||
0083A791 59 pop ecx
|
||
0083A792 59 pop ecx
|
||
0083A793 648910 mov fs:[eax], edx
|
||
|
||
****** FINALLY
|
||
|
|
||
|
||
* Possible String Reference to: '_^[YY]<5D>'
|
||
|
|
||
0083A796 68B0A78300 push $0083A7B0
|
||
0083A79B 8D45F8 lea eax, [ebp-$08]
|
||
0083A79E BA02000000 mov edx, $00000002
|
||
|
||
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
||
|
|
||
0083A7A3 E8A0ABBCFF call 00405348
|
||
0083A7A8 C3 ret
|
||
|
||
*)
|
||
end;
|
||
|
||
end. |