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

9744 lines
378 KiB
ObjectPascal
Raw Permalink Blame History

This file contains ambiguous Unicode characters

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

unit U_YSCRPB;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmYSCRPB=class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
Label1: TLabel;
YFName: TEdit;
ADOQueryMain: TADOQuery;
ToolButton1: TToolButton;
RM1: TRMGridReport;
RMDB_Main: TRMDBDataSet;
Label3: TLabel;
FactoryName: TEdit;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Label2: TLabel;
Label6: TLabel;
begdate: TDateTimePicker;
Enddate: TDateTimePicker;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_HZ: TDataSource;
CDS_HZ: TClientDataSet;
ToolButton3: TToolButton;
v2Column1: TcxGridDBColumn;
VYB: TcxGridDBColumn;
v2Column6: TcxGridDBColumn;
VOrderNo: TcxGridDBColumn;
v2Note: TcxGridDBColumn;
v2P_CodeName: TcxGridDBColumn;
v2Column4: TcxGridDBColumn;
v2Column5: TcxGridDBColumn;
P_CodeName: TEdit;
Label4: TLabel;
P_Spec: TEdit;
Label5: TLabel;
Label7: TLabel;
Edit1: TEdit;
Button1: TToolButton;
CheckBox1: TCheckBox;
OrderNo: TEdit;
Label8: TLabel;
Tchk: TToolButton;
Tnochk: TToolButton;
cxTabControl1: TcxTabControl;
v2ComTaitou: TcxGridDBColumn;
TZDSC: TToolButton;
v2ConNo: TcxGridDBColumn;
v2PBNote: TcxGridDBColumn;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
ConNo: TEdit;
v2chkstatus: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label15: TLabel;
chkstatus: TEdit;
v2chknote: TcxGridDBColumn;
Label18: TLabel;
Label19: TLabel;
v2BZType: TcxGridDBColumn;
Label16: TLabel;
KPNO: TEdit;
v2MQty: TcxGridDBColumn;
v2ConPrice: TcxGridDBColumn;
v2HxNum: TcxGridDBColumn;
v2WHXMoney: TcxGridDBColumn;
Label17: TLabel;
v2Huilv: TcxGridDBColumn;
v2OrderUnit: TcxGridDBColumn;
v2Filler: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure TBDelClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBRafreshClick(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure FactoryNameChange(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
procedure cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
procedure cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
procedure v2Column3PropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure v2Column7PropertiesButtonClick(Sender : TObject);
procedure v2PSPropertiesEditValueChanged(Sender : TObject);
procedure v2Column2PropertiesEditValueChanged(Sender : TObject);
procedure v2KPMoneyPropertiesEditValueChanged(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure CheckBox1Click(Sender : TObject);
procedure cxTabControl1Change(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure TchkClick(Sender : TObject);
procedure TnochkClick(Sender : TObject);
procedure v2ComTaitouPropertiesButtonClick(Sender : TObject);
procedure TZDSCClick(Sender : TObject);
procedure v2Column4PropertiesButtonClick(Sender : TObject);
procedure v2Column5PropertiesChange(Sender : TObject);
procedure v2ConNoPropertiesButtonClick(Sender : TObject);
procedure Tv2StylesGetContentStyle(Sender : TObject);
procedure N1Click(Sender : TObject);
procedure N2Click(Sender : TObject);
procedure TKPClick(Sender : TObject);
procedure TCXKPClick(Sender : TObject);
procedure v2KPTypePropertiesEditValueChanged(Sender : TObject);
procedure v2Column6PropertiesButtonClick(Sender : TObject);
procedure ConNoKeyPress(Sender : TObject);
procedure v2BZTypePropertiesButtonClick(Sender : TObject);
procedure _PROC_00852139(Sender : TObject);
procedure _PROC_0085255F(Sender : TObject);
procedure _PROC_00852EDD(Sender : TObject);
procedure _PROC_008537BD(Sender : TObject);
procedure _PROC_00853BB1(Sender : TObject);
procedure _PROC_008544B9(Sender : TObject);
procedure _PROC_00854589(Sender : TObject);
procedure _PROC_0085480D(Sender : TObject);
procedure _PROC_00854FB9(Sender : TObject);
procedure _PROC_008552D6(Sender : TObject);
procedure _PROC_0085530C(Sender : TObject);
procedure _PROC_00855319(Sender : TObject);
procedure _PROC_00855715(Sender : TObject);
procedure _PROC_0085601D(Sender : TObject);
procedure _PROC_008563DD(Sender : TObject);
procedure _PROC_0085665D(Sender : TObject);
procedure _PROC_00856A81(Sender : TObject);
procedure _PROC_00857BD5(Sender : TObject);
procedure _PROC_00858011(Sender : TObject);
procedure _PROC_008584A5(Sender : TObject);
procedure _PROC_00858DC5(Sender : TObject);
procedure _PROC_008590B5(Sender : TObject);
procedure _PROC_00859629(Sender : TObject);
procedure _PROC_0085976A(Sender : TObject);
procedure _PROC_00859C13(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmYSCRPB: TfrmYSCRPB;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmYSCRPB.FormDestroy(Sender : TObject);
begin
(*
0085289C 33C0 xor eax, eax
* Reference to GlobalVar_00895A94
|
0085289E A3945A8900 mov dword ptr [$00895A94], eax
008528A3 C3 ret
*)
end;
procedure TfrmYSCRPB.FormClose(Sender : TObject);
begin
(*
008528A4 C60102 mov byte ptr [ecx], $02
008528A7 C3 ret
*)
end;
procedure TfrmYSCRPB.TBCloseClick(Sender : TObject);
begin
(*
008528A8 53 push ebx
008528A9 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008528AB B9D4288500 mov ecx, $008528D4
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
008528B0 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>1'
|
008528B6 B8E8288500 mov eax, $008528E8
|
008528BB E8E052F6FF call 007B7BA0
008528C0 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
008528C2 E8D136C5FF call 004A5F98
008528C7 5B pop ebx
008528C8 C3 ret
*)
end;
procedure TfrmYSCRPB.TBDelClick(Sender : TObject);
begin
(*
008528F4 55 push ebp
008528F5 8BEC mov ebp, esp
008528F7 33C9 xor ecx, ecx
008528F9 51 push ecx
008528FA 51 push ecx
008528FB 51 push ecx
008528FC 51 push ecx
008528FD 51 push ecx
008528FE 51 push ecx
008528FF 51 push ecx
00852900 51 push ecx
00852901 53 push ebx
00852902 56 push esi
00852903 57 push edi
00852904 8945FC mov [ebp-$04], eax
00852907 33C0 xor eax, eax
00852909 55 push ebp
0085290A 68112B8500 push $00852B11
***** TRY
|
0085290F 64FF30 push dword ptr fs:[eax]
00852912 648920 mov fs:[eax], esp
00852915 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00852918 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0085291E E89D55C7FF call 004C7EC0
00852923 84C0 test al, al
00852925 0F85C3010000 jnz 00852AEE
0085292B 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.cxTabControl1 : TcxTabControl
|
0085292E 8B80C4030000 mov eax, [eax+$03C4]
* Reference to control ADOTemp : N.A.
|
00852934 83B83C03000000 cmp dword ptr [eax+$033C], +$00
0085293B 0F85AD010000 jnz 00852AEE
00852941 A0202B8500 mov al, byte ptr [$00852B20]
00852946 50 push eax
00852947 8D45EC lea eax, [ebp-$14]
0085294A B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0085294C E81364BCFF call 00418D64
00852951 8D4DEC lea ecx, [ebp-$14]
00852954 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00852957 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
0085295D BA2C2B8500 mov edx, $00852B2C
00852962 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00852964 FF9344020000 call dword ptr [ebx+$0244]
0085296A 84C0 test al, al
0085296C 751D jnz 0085298B
0085296E 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00852970 B9342B8500 mov ecx, $00852B34
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00852975 BA3C2B8500 mov edx, $00852B3C
*)
end;
procedure TfrmYSCRPB.FormShow(Sender : TObject);
begin
(*
00852BBC 53 push ebx
00852BBD 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00852BBF B9402C8500 mov ecx, $00852C40
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
00852BC4 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>1'
|
00852BCA B8542C8500 mov eax, $00852C54
|
00852BCF E8D04DF6FF call 007B79A4
* Reference to control TfrmYSCRPB.ADOQueryTemp : TADOQuery
|
00852BD4 8B8308030000 mov eax, [ebx+$0308]
|
00852BDA E8A91DF6FF call 007B4988
00852BDF 83C4F8 add esp, -$08
00852BE2 DD1C24 fstp qword ptr [esp]
00852BE5 9B wait
* Reference to control TfrmYSCRPB.Enddate : TDateTimePicker
|
00852BE6 8B8360030000 mov eax, [ebx+$0360]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00852BEC E83BF6C1FF call 0047222C
* Reference to control TfrmYSCRPB.ADOQueryTemp : TADOQuery
|
00852BF1 8B8308030000 mov eax, [ebx+$0308]
|
00852BF7 E88C1DF6FF call 007B4988
00852BFC D825602C8500 fsub dword ptr [$00852C60]
00852C02 83C4F8 add esp, -$08
00852C05 DD1C24 fstp qword ptr [esp]
00852C08 9B wait
* Reference to control TfrmYSCRPB.begdate : TDateTimePicker
|
00852C09 8B835C030000 mov eax, [ebx+$035C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
00852C0F E818F6C1FF call 0047222C
* Reference to control TfrmYSCRPB.ADOQueryTemp : TADOQuery
|
00852C14 8B8308030000 mov eax, [ebx+$0308]
|
00852C1A E8691DF6FF call 007B4988
00852C1F DD9B48040000 fstp qword ptr [ebx+$0448]
00852C25 9B wait
00852C26 8BC3 mov eax, ebx
|
00852C28 E8D7F2FFFF call 00851F04
00852C2D 8BC3 mov eax, ebx
|
00852C2F E804F5FFFF call 00852138
00852C34 5B pop ebx
00852C35 C3 ret
*)
end;
procedure TfrmYSCRPB.TBRafreshClick(Sender : TObject);
begin
(*
00852C64 53 push ebx
00852C65 8BD8 mov ebx, eax
* Reference to control TfrmYSCRPB.begdate : TDateTimePicker
|
00852C67 8B835C030000 mov eax, [ebx+$035C]
00852C6D 8B10 mov edx, [eax]
* Reference to method TDateTimePicker.SetFocus()
|
00852C6F FF92C4000000 call dword ptr [edx+$00C4]
00852C75 8BC3 mov eax, ebx
|
00852C77 E8BCF4FFFF call 00852138
00852C7C 5B pop ebx
00852C7D C3 ret
*)
end;
procedure TfrmYSCRPB.ToolButton2Click(Sender : TObject);
begin
(*
00852C80 55 push ebp
00852C81 8BEC mov ebp, esp
00852C83 6A00 push $00
00852C85 53 push ebx
00852C86 8BD8 mov ebx, eax
00852C88 33C0 xor eax, eax
00852C8A 55 push ebp
00852C8B 68342D8500 push $00852D34
***** TRY
|
00852C90 64FF30 push dword ptr fs:[eax]
00852C93 648920 mov fs:[eax], esp
00852C96 BA482D8500 mov edx, $00852D48
* Reference to control TfrmYSCRPB.Label12 : TLabel
|
00852C9B 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00852CA1 E87A59C3FF call 00488620
00852CA6 BA482D8500 mov edx, $00852D48
* Reference to control TfrmYSCRPB.Label13 : TLabel
|
00852CAB 8B83E4030000 mov eax, [ebx+$03E4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00852CB1 E86A59C3FF call 00488620
00852CB6 BA482D8500 mov edx, $00852D48
* Reference to control TfrmYSCRPB.Label19 : TLabel
|
00852CBB 8B8318040000 mov eax, [ebx+$0418]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00852CC1 E85A59C3FF call 00488620
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00852CC6 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
00852CCC E8432DC7FF call 004C5A14
00852CD1 84C0 test al, al
00852CD3 7449 jz 00852D1E
00852CD5 8D45FC lea eax, [ebp-$04]
00852CD8 50 push eax
00852CD9 B902000000 mov ecx, $00000002
00852CDE BA01000000 mov edx, $00000001
* Reference to control TfrmYSCRPB.Panel1 : TPanel
|
00852CE3 8B8310030000 mov eax, [ebx+$0310]
|
00852CE9 E8C233F6FF call 007B60B0
00852CEE 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00852CF1 8B8320030000 mov eax, [ebx+$0320]
|
00852CF7 E8CC3FF6FF call 007B6CC8
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00852CFC 8B936C030000 mov edx, [ebx+$036C]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00852D02 8B8320030000 mov eax, [ebx+$0320]
|
00852D08 E88341F6FF call 007B6E90
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00852D0D 8B936C030000 mov edx, [ebx+$036C]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00852D13 8B8320030000 mov eax, [ebx+$0320]
|
00852D19 E8FA42F6FF call 007B7018
00852D1E 33C0 xor eax, eax
00852D20 5A pop edx
00852D21 59 pop ecx
00852D22 59 pop ecx
00852D23 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]<5D>'
|
00852D26 683B2D8500 push $00852D3B
00852D2B 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
00852D2E E8F125BBFF call 00405324
00852D33 C3 ret
* Reference to: System.@HandleFinally;
|
00852D34 E9BB1DBBFF jmp 00404AF4
00852D39 EBF0 jmp 00852D2B
****** END
|
00852D3B 5B pop ebx
00852D3C 59 pop ecx
00852D3D 5D pop ebp
00852D3E C3 ret
*)
end;
procedure TfrmYSCRPB.FactoryNameChange(Sender : TObject);
begin
(*
00852D4C 56 push esi
* Reference to control TfrmYSCRPB.ToolButton2 : TToolButton
|
00852D4D 8B8014030000 mov eax, [eax+$0314]
00852D53 66BEEBFF mov si, $FFEB
* Reference to: System.@CallDynaInst;
|
00852D57 E8F817BBFF call 00404554
00852D5C 5E pop esi
00852D5D C3 ret
*)
end;
procedure TfrmYSCRPB.Button2Click(Sender : TObject);
begin
(*
00852D60 55 push ebp
00852D61 8BEC mov ebp, esp
00852D63 33C9 xor ecx, ecx
00852D65 51 push ecx
00852D66 51 push ecx
00852D67 51 push ecx
00852D68 51 push ecx
00852D69 51 push ecx
00852D6A 53 push ebx
00852D6B 56 push esi
00852D6C 8BD8 mov ebx, eax
00852D6E 33C0 xor eax, eax
00852D70 55 push ebp
00852D71 686D2E8500 push $00852E6D
***** TRY
|
00852D76 64FF30 push dword ptr fs:[eax]
00852D79 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00852D7C 8B836C030000 mov eax, [ebx+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00852D82 E83951C7FF call 004C7EC0
00852D87 84C0 test al, al
00852D89 0F85C3000000 jnz 00852E52
00852D8F 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
00852D91 B97C2E8500 mov ecx, $00852E7C
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
00852D96 BA842E8500 mov edx, $00852E84
*)
end;
procedure TfrmYSCRPB.cxGridDBColumn8PropertiesEditValueChanged(Sender : TObject);
begin
(*
0085398C 55 push ebp
0085398D 8BEC mov ebp, esp
0085398F B908000000 mov ecx, $00000008
00853994 6A00 push $00
00853996 6A00 push $00
00853998 49 dec ecx
00853999 75F9 jnz 00853994
0085399B 51 push ecx
0085399C 53 push ebx
0085399D 56 push esi
0085399E 8BDA mov ebx, edx
008539A0 8BF0 mov esi, eax
008539A2 33C0 xor eax, eax
008539A4 55 push ebp
008539A5 689A3B8500 push $00853B9A
***** TRY
|
008539AA 64FF30 push dword ptr fs:[eax]
008539AD 648920 mov fs:[eax], esp
008539B0 8D55FC lea edx, [ebp-$04]
008539B3 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;
|
008539B5 E802BDD3FF call 0058F6BC
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
008539BA 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008539C0 E88789E0FF 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;
|
008539C5 E89AE1DFFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008539CA 8B4050 mov eax, [eax+$50]
008539CD 8D55F4 lea edx, [ebp-$0C]
008539D0 8B08 mov ecx, [eax]
008539D2 FF5110 call dword ptr [ecx+$10]
008539D5 8B45F4 mov eax, [ebp-$0C]
008539D8 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008539DB E80C6FBBFF call 0040A8EC
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008539E0 8B9E6C030000 mov ebx, [esi+$036C]
008539E6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008539E8 E8534AC7FF call 004C8440
008539ED 8D55E0 lea edx, [ebp-$20]
008539F0 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008539F3 E8F46EBBFF call 0040A8EC
008539F8 8B55E0 mov edx, [ebp-$20]
008539FB 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008539FE E8C553BCFF call 00418DC8
00853A03 8D45E4 lea eax, [ebp-$1C]
00853A06 50 push eax
00853A07 8B55F8 mov edx, [ebp-$08]
00853A0A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00853A0C E8A331C7FF call 004C6BB4
00853A11 5A pop edx
00853A12 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00853A14 FF91B4000000 call dword ptr [ecx+$00B4]
00853A1A 8BC3 mov eax, ebx
00853A1C 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00853A1E FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
00853A24 8B9E0C030000 mov ebx, [esi+$030C]
00853A2A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00853A2C E8A31EC7FF call 004C58D4
00853A31 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00853A33 E874A5C8FF call 004DDFAC
00853A38 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00853A3A FF5244 call dword ptr [edx+$44]
00853A3D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00853A3F E868A5C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
00853A44 BAB03B8500 mov edx, $00853BB0
00853A49 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00853A4B FF5138 call dword ptr [ecx+$38]
00853A4E 8D55DC lea edx, [ebp-$24]
00853A51 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853A54 E8936EBBFF call 0040A8EC
00853A59 837DDC00 cmp dword ptr [ebp-$24], +$00
00853A5D 7440 jz 00853A9F
* Possible String Reference to: ' Set '
|
00853A5F 68CC3B8500 push $00853BCC
00853A64 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00853A67 68DC3B8500 push $00853BDC
00853A6C 8D55D4 lea edx, [ebp-$2C]
00853A6F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853A72 E8756EBBFF call 0040A8EC
00853A77 FF75D4 push dword ptr [ebp-$2C]
00853A7A 68E83B8500 push $00853BE8
00853A7F 8D45D8 lea eax, [ebp-$28]
00853A82 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
00853A87 E8281CBBFF call 004056B4
00853A8C 8B45D8 mov eax, [ebp-$28]
00853A8F 50 push eax
00853A90 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00853A92 E815A5C8FF call 004DDFAC
00853A97 5A pop edx
00853A98 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00853A9A FF5138 call dword ptr [ecx+$38]
00853A9D EB2B jmp 00853ACA
00853A9F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00853AA1 E806A5C8FF call 004DDFAC
00853AA6 50 push eax
* Possible String Reference to: ' Set '
|
00853AA7 68CC3B8500 push $00853BCC
00853AAC FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00853AAF 68F43B8500 push $00853BF4
00853AB4 8D45D0 lea eax, [ebp-$30]
00853AB7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00853ABC E8F31BBBFF call 004056B4
00853AC1 8B55D0 mov edx, [ebp-$30]
00853AC4 58 pop eax
00853AC5 8B08 mov ecx, [eax]
00853AC7 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00853ACA 68043C8500 push $00853C04
00853ACF 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYSCRPB.cxGridDBColumn5PropertiesEditValueChanged(Sender : TObject);
begin
(*
00853C58 55 push ebp
00853C59 8BEC mov ebp, esp
00853C5B B922000000 mov ecx, $00000022
00853C60 6A00 push $00
00853C62 6A00 push $00
00853C64 49 dec ecx
00853C65 75F9 jnz 00853C60
00853C67 53 push ebx
00853C68 56 push esi
00853C69 8BF2 mov esi, edx
00853C6B 8BD8 mov ebx, eax
00853C6D 33C0 xor eax, eax
00853C6F 55 push ebp
00853C70 68C5438500 push $008543C5
***** TRY
|
00853C75 64FF30 push dword ptr fs:[eax]
00853C78 648920 mov fs:[eax], esp
00853C7B 8D55FC lea edx, [ebp-$04]
00853C7E 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;
|
00853C80 E837BAD3FF call 0058F6BC
00853C85 8D55DC lea edx, [ebp-$24]
00853C88 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853C8B E85C6CBBFF call 0040A8EC
00853C90 837DDC00 cmp dword ptr [ebp-$24], +$00
00853C94 750D jnz 00853CA3
00853C96 8D45FC lea eax, [ebp-$04]
00853C99 BADC438500 mov edx, $008543DC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00853C9E E81917BBFF call 004053BC
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
00853CA3 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00853CA9 E89E86E0FF 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;
|
00853CAE E8B1DEDFFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00853CB3 8B4050 mov eax, [eax+$50]
00853CB6 8D55D8 lea edx, [ebp-$28]
00853CB9 8B08 mov ecx, [eax]
00853CBB FF5110 call dword ptr [ecx+$10]
00853CBE 8B45D8 mov eax, [ebp-$28]
00853CC1 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853CC4 E8236CBBFF call 0040A8EC
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00853CC9 8BB36C030000 mov esi, [ebx+$036C]
00853CCF 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00853CD1 E86A47C7FF call 004C8440
00853CD6 8D55C4 lea edx, [ebp-$3C]
00853CD9 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853CDC E80B6CBBFF call 0040A8EC
00853CE1 8B55C4 mov edx, [ebp-$3C]
00853CE4 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00853CE7 E8DC50BCFF call 00418DC8
00853CEC 8D45C8 lea eax, [ebp-$38]
00853CEF 50 push eax
00853CF0 8B55E0 mov edx, [ebp-$20]
00853CF3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00853CF5 E8BA2EC7FF call 004C6BB4
00853CFA 5A pop edx
00853CFB 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00853CFD FF91B4000000 call dword ptr [ecx+$00B4]
00853D03 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmYSCRPB.cxGridDBColumn1PropertiesEditValueChanged(Sender : TObject);
begin
(*
008545E8 55 push ebp
008545E9 8BEC mov ebp, esp
008545EB B908000000 mov ecx, $00000008
008545F0 6A00 push $00
008545F2 6A00 push $00
008545F4 49 dec ecx
008545F5 75F9 jnz 008545F0
008545F7 51 push ecx
008545F8 53 push ebx
008545F9 56 push esi
008545FA 8BDA mov ebx, edx
008545FC 8BF0 mov esi, eax
008545FE 33C0 xor eax, eax
00854600 55 push ebp
00854601 68F6478500 push $008547F6
***** TRY
|
00854606 64FF30 push dword ptr fs:[eax]
00854609 648920 mov fs:[eax], esp
0085460C 8D55FC lea edx, [ebp-$04]
0085460F 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;
|
00854611 E8A6B0D3FF call 0058F6BC
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
00854616 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
0085461C E82B7DE0FF 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;
|
00854621 E83ED5DFFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00854626 8B4050 mov eax, [eax+$50]
00854629 8D55F4 lea edx, [ebp-$0C]
0085462C 8B08 mov ecx, [eax]
0085462E FF5110 call dword ptr [ecx+$10]
00854631 8B45F4 mov eax, [ebp-$0C]
00854634 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00854637 E8B062BBFF call 0040A8EC
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
0085463C 8B9E6C030000 mov ebx, [esi+$036C]
00854642 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00854644 E8F73DC7FF call 004C8440
00854649 8D55E0 lea edx, [ebp-$20]
0085464C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0085464F E89862BBFF call 0040A8EC
00854654 8B55E0 mov edx, [ebp-$20]
00854657 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0085465A E86947BCFF call 00418DC8
0085465F 8D45E4 lea eax, [ebp-$1C]
00854662 50 push eax
00854663 8B55F8 mov edx, [ebp-$08]
00854666 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00854668 E84725C7FF call 004C6BB4
0085466D 5A pop edx
0085466E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00854670 FF91B4000000 call dword ptr [ecx+$00B4]
00854676 8BC3 mov eax, ebx
00854678 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
0085467A FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
00854680 8B9E0C030000 mov ebx, [esi+$030C]
00854686 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00854688 E84712C7FF call 004C58D4
0085468D 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0085468F E81899C8FF call 004DDFAC
00854694 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00854696 FF5244 call dword ptr [edx+$44]
00854699 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0085469B E80C99C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008546A0 BA0C488500 mov edx, $0085480C
008546A5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008546A7 FF5138 call dword ptr [ecx+$38]
008546AA 8D55DC lea edx, [ebp-$24]
008546AD 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008546B0 E83762BBFF call 0040A8EC
008546B5 837DDC00 cmp dword ptr [ebp-$24], +$00
008546B9 7440 jz 008546FB
* Possible String Reference to: ' Set '
|
008546BB 6828488500 push $00854828
008546C0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008546C3 6838488500 push $00854838
008546C8 8D55D4 lea edx, [ebp-$2C]
008546CB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008546CE E81962BBFF call 0040A8EC
008546D3 FF75D4 push dword ptr [ebp-$2C]
008546D6 6844488500 push $00854844
008546DB 8D45D8 lea eax, [ebp-$28]
008546DE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008546E3 E8CC0FBBFF call 004056B4
008546E8 8B45D8 mov eax, [ebp-$28]
008546EB 50 push eax
008546EC 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008546EE E8B998C8FF call 004DDFAC
008546F3 5A pop edx
008546F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008546F6 FF5138 call dword ptr [ecx+$38]
008546F9 EB2B jmp 00854726
008546FB 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008546FD E8AA98C8FF call 004DDFAC
00854702 50 push eax
* Possible String Reference to: ' Set '
|
00854703 6828488500 push $00854828
00854708 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
0085470B 6850488500 push $00854850
00854710 8D45D0 lea eax, [ebp-$30]
00854713 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00854718 E8970FBBFF call 004056B4
0085471D 8B55D0 mov edx, [ebp-$30]
00854720 58 pop eax
00854721 8B08 mov ecx, [eax]
00854723 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00854726 6860488500 push $00854860
0085472B 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYSCRPB.ToolButton3Click(Sender : TObject);
begin
(*
008548B4 55 push ebp
008548B5 8BEC mov ebp, esp
008548B7 B90C000000 mov ecx, $0000000C
008548BC 6A00 push $00
008548BE 6A00 push $00
008548C0 49 dec ecx
008548C1 75F9 jnz 008548BC
008548C3 51 push ecx
008548C4 56 push esi
008548C5 57 push edi
008548C6 8BF8 mov edi, eax
008548C8 33C0 xor eax, eax
008548CA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^<5E><>]<5D>'
|
008548CB 68F04A8500 push $00854AF0
***** TRY
|
008548D0 64FF30 push dword ptr fs:[eax]
008548D3 648920 mov fs:[eax], esp
008548D6 33C0 xor eax, eax
008548D8 55 push ebp
* Possible String Reference to: '<27>a'
|
008548D9 688E4A8500 push $00854A8E
***** TRY
|
008548DE 64FF30 push dword ptr fs:[eax]
008548E1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB.cxGridDBColumn3PropertiesButtonClick(Sender : TObject);
begin
(*
00854B84 55 push ebp
00854B85 8BEC mov ebp, esp
00854B87 51 push ecx
00854B88 B90C000000 mov ecx, $0000000C
00854B8D 6A00 push $00
00854B8F 6A00 push $00
00854B91 49 dec ecx
00854B92 75F9 jnz 00854B8D
00854B94 51 push ecx
00854B95 874DFC xchg [ebp-$04], ecx
00854B98 53 push ebx
00854B99 56 push esi
00854B9A 8BF0 mov esi, eax
00854B9C 33C0 xor eax, eax
00854B9E 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00854B9F 680E4F8500 push $00854F0E
***** TRY
|
00854BA4 64FF30 push dword ptr fs:[eax]
00854BA7 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00854BAA 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00854BB0 BA244F8500 mov edx, $00854F24
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00854BB5 E8FA1FC7FF call 004C6BB4
00854BBA 8D55F8 lea edx, [ebp-$08]
00854BBD 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00854BBF FF5160 call dword ptr [ecx+$60]
00854BC2 8B45F8 mov eax, [ebp-$08]
00854BC5 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00854BC8 E81F5DBBFF call 0040A8EC
00854BCD 837DFC00 cmp dword ptr [ebp-$04], +$00
00854BD1 741D jz 00854BF0
00854BD3 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00854BD5 B92C4F8500 mov ecx, $00854F2C
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2>ܸ<EFBFBD><DCB8><EFBFBD>!'
|
00854BDA BA344F8500 mov edx, $00854F34
*)
end;
procedure TfrmYSCRPB.cxGridDBColumn6PropertiesButtonClick(Sender : TObject);
begin
(*
00855060 55 push ebp
00855061 8BEC mov ebp, esp
00855063 51 push ecx
00855064 B906000000 mov ecx, $00000006
00855069 6A00 push $00
0085506B 6A00 push $00
0085506D 49 dec ecx
0085506E 75F9 jnz 00855069
00855070 51 push ecx
00855071 874DFC xchg [ebp-$04], ecx
00855074 53 push ebx
00855075 56 push esi
00855076 8BF0 mov esi, eax
00855078 33C0 xor eax, eax
0085507A 55 push ebp
* Possible String Reference to: '<27>6<EFBFBD><36><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0085507B 68B9528500 push $008552B9
***** TRY
|
00855080 64FF30 push dword ptr fs:[eax]
00855083 648920 mov fs:[eax], esp
00855086 33C0 xor eax, eax
00855088 55 push ebp
00855089 688F528500 push $0085528F
***** TRY
|
0085508E 64FF30 push dword ptr fs:[eax]
00855091 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB.v2Column3PropertiesButtonClick(Sender : TObject);
begin
(*
008553BC 55 push ebp
008553BD 8BEC mov ebp, esp
008553BF 51 push ecx
008553C0 B907000000 mov ecx, $00000007
008553C5 6A00 push $00
008553C7 6A00 push $00
008553C9 49 dec ecx
008553CA 75F9 jnz 008553C5
008553CC 51 push ecx
008553CD 874DFC xchg [ebp-$04], ecx
008553D0 53 push ebx
008553D1 56 push esi
008553D2 8BF0 mov esi, eax
008553D4 33C0 xor eax, eax
008553D6 55 push ebp
* Possible String Reference to: '<27>~<7E><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008553D7 6871568500 push $00855671
***** TRY
|
008553DC 64FF30 push dword ptr fs:[eax]
008553DF 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008553E2 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
008553E8 BA88568500 mov edx, $00855688
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008553ED E8C217C7FF call 004C6BB4
008553F2 8D55F8 lea edx, [ebp-$08]
008553F5 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008553F7 FF5160 call dword ptr [ecx+$60]
008553FA 8B45F8 mov eax, [ebp-$08]
008553FD 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00855400 E8E754BBFF call 0040A8EC
00855405 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00855408 BA98568500 mov edx, $00855698
* Reference to: System.@LStrCmp;
|
0085540D E82E03BBFF call 00405740
00855412 751D jnz 00855431
00855414 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00855416 B9A4568500 mov ecx, $008556A4
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
0085541B BAAC568500 mov edx, $008556AC
*)
end;
procedure TfrmYSCRPB.ToolButton1Click(Sender : TObject);
begin
(*
008557BC 53 push ebx
008557BD 8BD8 mov ebx, eax
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
008557BF 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008557C5 E8F626C7FF call 004C7EC0
008557CA 84C0 test al, al
008557CC 7516 jnz 008557E4
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>б<EFBFBD>'
|
008557CE B9F0578500 mov ecx, $008557F0
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
008557D3 8B9320030000 mov edx, [ebx+$0320]
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
008557D9 8B833C030000 mov eax, [ebx+$033C]
|
008557DF E84C2AF6FF call 007B8230
008557E4 5B pop ebx
008557E5 C3 ret
*)
end;
procedure TfrmYSCRPB.v2Column7PropertiesButtonClick(Sender : TObject);
begin
(*
008557FC 55 push ebp
008557FD 8BEC mov ebp, esp
008557FF 51 push ecx
00855800 B922000000 mov ecx, $00000022
00855805 6A00 push $00
00855807 6A00 push $00
00855809 49 dec ecx
0085580A 75F9 jnz 00855805
0085580C 874DFC xchg [ebp-$04], ecx
0085580F 53 push ebx
00855810 8945FC mov [ebp-$04], eax
00855813 33C0 xor eax, eax
00855815 55 push ebp
00855816 68515F8500 push $00855F51
***** TRY
|
0085581B 64FF30 push dword ptr fs:[eax]
0085581E 648920 mov fs:[eax], esp
00855821 33C0 xor eax, eax
00855823 55 push ebp
00855824 689D5E8500 push $00855E9D
***** TRY
|
00855829 64FF30 push dword ptr fs:[eax]
0085582C 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB.v2PSPropertiesEditValueChanged(Sender : TObject);
begin
(*
00856140 55 push ebp
00856141 8BEC mov ebp, esp
00856143 B909000000 mov ecx, $00000009
00856148 6A00 push $00
0085614A 6A00 push $00
0085614C 49 dec ecx
0085614D 75F9 jnz 00856148
0085614F 53 push ebx
00856150 56 push esi
00856151 8BDA mov ebx, edx
00856153 8BF0 mov esi, eax
00856155 33C0 xor eax, eax
00856157 55 push ebp
00856158 6877638500 push $00856377
***** TRY
|
0085615D 64FF30 push dword ptr fs:[eax]
00856160 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00856163 BA8C638500 mov edx, $0085638C
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00856168 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0085616E E8410AC7FF call 004C6BB4
00856173 8D55F0 lea edx, [ebp-$10]
00856176 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00856178 FF5160 call dword ptr [ecx+$60]
0085617B 8B45F0 mov eax, [ebp-$10]
0085617E 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856181 E86647BBFF call 0040A8EC
00856186 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00856189 BA9C638500 mov edx, $0085639C
* Reference to: System.@LStrCmp;
|
0085618E E8ADF5BAFF call 00405740
00856193 751D jnz 008561B2
00856195 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00856197 B9A8638500 mov ecx, $008563A8
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
0085619C BAB0638500 mov edx, $008563B0
*)
end;
procedure TfrmYSCRPB.v2Column2PropertiesEditValueChanged(Sender : TObject);
begin
(*
00856474 55 push ebp
00856475 8BEC mov ebp, esp
00856477 B907000000 mov ecx, $00000007
0085647C 6A00 push $00
0085647E 6A00 push $00
00856480 49 dec ecx
00856481 75F9 jnz 0085647C
00856483 51 push ecx
00856484 53 push ebx
00856485 56 push esi
00856486 8BDA mov ebx, edx
00856488 8BF0 mov esi, eax
0085648A 33C0 xor eax, eax
0085648C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0085648D 6844668500 push $00856644
***** TRY
|
00856492 64FF30 push dword ptr fs:[eax]
00856495 648920 mov fs:[eax], esp
00856498 8D55FC lea edx, [ebp-$04]
0085649B 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;
|
0085649D E81A92D3FF call 0058F6BC
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
008564A2 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008564A8 E89F5EE0FF 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;
|
008564AD E8B2B6DFFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
008564B2 8B4050 mov eax, [eax+$50]
008564B5 8D55F4 lea edx, [ebp-$0C]
008564B8 8B08 mov ecx, [eax]
008564BA FF5110 call dword ptr [ecx+$10]
008564BD 8B45F4 mov eax, [ebp-$0C]
008564C0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008564C3 E82444BBFF call 0040A8EC
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008564C8 8B9E6C030000 mov ebx, [esi+$036C]
008564CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008564D0 E86B1FC7FF call 004C8440
008564D5 8D55E0 lea edx, [ebp-$20]
008564D8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008564DB E80C44BBFF call 0040A8EC
008564E0 8B55E0 mov edx, [ebp-$20]
008564E3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008564E6 E8DD28BCFF call 00418DC8
008564EB 8D45E4 lea eax, [ebp-$1C]
008564EE 50 push eax
008564EF 8B55F8 mov edx, [ebp-$08]
008564F2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008564F4 E8BB06C7FF call 004C6BB4
008564F9 5A pop edx
008564FA 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
008564FC FF91B4000000 call dword ptr [ecx+$00B4]
00856502 8BC3 mov eax, ebx
00856504 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00856506 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
0085650C 8B9E0C030000 mov ebx, [esi+$030C]
00856512 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00856514 E8BBF3C6FF call 004C58D4
00856519 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0085651B E88C7AC8FF call 004DDFAC
00856520 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00856522 FF5244 call dword ptr [edx+$44]
00856525 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00856527 E8807AC8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0085652C BA5C668500 mov edx, $0085665C
00856531 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00856533 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00856536 6878668500 push $00856678
0085653B FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0085653E 6888668500 push $00856688
00856543 8D55D8 lea edx, [ebp-$28]
00856546 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856549 E89E43BBFF call 0040A8EC
0085654E FF75D8 push dword ptr [ebp-$28]
00856551 6894668500 push $00856694
00856556 8D45DC lea eax, [ebp-$24]
00856559 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0085655E E851F1BAFF call 004056B4
00856563 8B45DC mov eax, [ebp-$24]
00856566 50 push eax
00856567 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00856569 E83E7AC8FF call 004DDFAC
0085656E 5A pop edx
0085656F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00856571 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00856574 68A0668500 push $008566A0
00856579 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYSCRPB.v2KPMoneyPropertiesEditValueChanged(Sender : TObject);
begin
(*
008566F4 55 push ebp
008566F5 8BEC mov ebp, esp
008566F7 B90C000000 mov ecx, $0000000C
008566FC 6A00 push $00
008566FE 6A00 push $00
00856700 49 dec ecx
00856701 75F9 jnz 008566FC
00856703 53 push ebx
00856704 56 push esi
00856705 8BDA mov ebx, edx
00856707 8BF0 mov esi, eax
00856709 33C0 xor eax, eax
0085670B 55 push ebp
0085670C 68EB698500 push $008569EB
***** TRY
|
00856711 64FF30 push dword ptr fs:[eax]
00856714 648920 mov fs:[eax], esp
00856717 8D55FC lea edx, [ebp-$04]
0085671A 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;
|
0085671C E89B8FD3FF call 0058F6BC
00856721 8D55EC lea edx, [ebp-$14]
00856724 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856727 E8C041BBFF call 0040A8EC
0085672C 837DEC00 cmp dword ptr [ebp-$14], +$00
00856730 750D jnz 0085673F
00856732 8D45FC lea eax, [ebp-$04]
00856735 BA006A8500 mov edx, $00856A00
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0085673A E87DECBAFF call 004053BC
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
0085673F 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00856745 E8025CE0FF 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;
|
0085674A E815B4DFFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
0085674F 8B4050 mov eax, [eax+$50]
00856752 8D55E8 lea edx, [ebp-$18]
00856755 8B08 mov ecx, [eax]
00856757 FF5110 call dword ptr [ecx+$10]
0085675A 8B45E8 mov eax, [ebp-$18]
0085675D 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856760 E88741BBFF call 0040A8EC
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00856765 8B9E6C030000 mov ebx, [esi+$036C]
0085676B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0085676D E8CE1CC7FF call 004C8440
00856772 8D55D4 lea edx, [ebp-$2C]
00856775 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856778 E86F41BBFF call 0040A8EC
0085677D 8B55D4 mov edx, [ebp-$2C]
00856780 8D45D8 lea eax, [ebp-$28]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00856783 E84026BCFF call 00418DC8
00856788 8D45D8 lea eax, [ebp-$28]
0085678B 50 push eax
0085678C 8B55F0 mov edx, [ebp-$10]
0085678F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00856791 E81E04C7FF call 004C6BB4
00856796 5A pop edx
00856797 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00856799 FF91B4000000 call dword ptr [ecx+$00B4]
0085679F 8BC3 mov eax, ebx
008567A1 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
008567A3 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRPB.ADOQueryTemp : TADOQuery
|
008567A9 8B9E08030000 mov ebx, [esi+$0308]
008567AF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008567B1 E81EF1C6FF call 004C58D4
008567B6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008567B8 E8EF77C8FF call 004DDFAC
008567BD 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008567BF FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
| om YF_Money_CR where YFID=''
|
008567C2 680C6A8500 push $00856A0C
* Possible String Reference to: 'YFID'
|
008567C7 BA546A8500 mov edx, $00856A54
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008567CC 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008567D2 E8DD03C7FF call 004C6BB4
008567D7 8D55CC lea edx, [ebp-$34]
008567DA 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
008567DC FF5160 call dword ptr [ecx+$60]
008567DF FF75CC push dword ptr [ebp-$34]
008567E2 68646A8500 push $00856A64
008567E7 8D45D0 lea eax, [ebp-$30]
008567EA BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008567EF E8C0EEBAFF call 004056B4
008567F4 8B45D0 mov eax, [ebp-$30]
008567F7 50 push eax
008567F8 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008567FA E8AD77C8FF call 004DDFAC
008567FF 5A pop edx
00856800 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00856802 FF5138 call dword ptr [ecx+$38]
00856805 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00856807 E8BCF0C6FF call 004C58C8
* Possible String Reference to: 'KPMoney'
|
0085680C BA706A8500 mov edx, $00856A70
* Reference to control TfrmYSCRPB.ADOQueryTemp : TADOQuery
|
00856811 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00856817 E89803C7FF call 004C6BB4
0085681C 8D55F4 lea edx, [ebp-$0C]
0085681F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00856821 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'KPMoney'
|
00856824 BA706A8500 mov edx, $00856A70
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00856829 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0085682F E88003C7FF call 004C6BB4
00856834 8D55F8 lea edx, [ebp-$08]
00856837 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00856839 FF5160 call dword ptr [ecx+$60]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
0085683C 8B9E0C030000 mov ebx, [esi+$030C]
00856842 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00856844 E88BF0C6FF call 004C58D4
00856849 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0085684B E85C77C8FF call 004DDFAC
00856850 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00856852 FF5244 call dword ptr [edx+$44]
00856855 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00856857 E85077C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0085685C BA806A8500 mov edx, $00856A80
00856861 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00856863 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00856866 689C6A8500 push $00856A9C
0085686B FF75F0 push dword ptr [ebp-$10]
0085686E 68AC6A8500 push $00856AAC
00856873 8D55C4 lea edx, [ebp-$3C]
00856876 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856879 E86E40BBFF call 0040A8EC
0085687E FF75C4 push dword ptr [ebp-$3C]
00856881 8D45C8 lea eax, [ebp-$38]
00856884 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00856889 E826EEBAFF call 004056B4
0085688E 8B45C8 mov eax, [ebp-$38]
00856891 50 push eax
00856892 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00856894 E81377C8FF call 004DDFAC
00856899 5A pop edx
0085689A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0085689C FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0085689F 68B86A8500 push $00856AB8
008568A4 8D55BC lea edx, [ebp-$44]
*)
end;
procedure TfrmYSCRPB.Button1Click(Sender : TObject);
begin
(*
00856B74 55 push ebp
00856B75 8BEC mov ebp, esp
00856B77 B910000000 mov ecx, $00000010
00856B7C 6A00 push $00
00856B7E 6A00 push $00
00856B80 49 dec ecx
00856B81 75F9 jnz 00856B7C
00856B83 51 push ecx
00856B84 53 push ebx
00856B85 56 push esi
00856B86 57 push edi
00856B87 8945FC mov [ebp-$04], eax
00856B8A 33C0 xor eax, eax
00856B8C 55 push ebp
* Possible String Reference to: '<27><>ۺ<EFBFBD><DBBA><EFBFBD>_^[<5B><>]<5D>'
|
00856B8D 68056F8500 push $00856F05
***** TRY
|
00856B92 64FF30 push dword ptr fs:[eax]
00856B95 648920 mov fs:[eax], esp
00856B98 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00856B9B 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00856BA1 E81A13C7FF call 004C7EC0
00856BA6 84C0 test al, al
00856BA8 0F85F1020000 jnz 00856E9F
00856BAE A0146F8500 mov al, byte ptr [$00856F14]
00856BB3 50 push eax
00856BB4 8D45EC lea eax, [ebp-$14]
00856BB7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00856BB9 E8A621BCFF call 00418D64
00856BBE 8D4DEC lea ecx, [ebp-$14]
00856BC1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00856BC4 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
00856BCA BA206F8500 mov edx, $00856F20
00856BCF 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
00856BD1 FF9344020000 call dword ptr [ebx+$0244]
00856BD7 84C0 test al, al
00856BD9 751D jnz 00856BF8
00856BDB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00856BDD B9286F8500 mov ecx, $00856F28
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00856BE2 BA306F8500 mov edx, $00856F30
*)
end;
procedure TfrmYSCRPB.CheckBox1Click(Sender : TObject);
begin
(*
00856FF0 55 push ebp
00856FF1 8BEC mov ebp, esp
00856FF3 B905000000 mov ecx, $00000005
00856FF8 6A00 push $00
00856FFA 6A00 push $00
00856FFC 49 dec ecx
00856FFD 75F9 jnz 00856FF8
00856FFF 53 push ebx
00857000 56 push esi
00857001 57 push edi
00857002 8BF0 mov esi, eax
00857004 33C0 xor eax, eax
00857006 55 push ebp
00857007 68BE718500 push $008571BE
***** TRY
|
0085700C 64FF30 push dword ptr fs:[eax]
0085700F 648920 mov fs:[eax], esp
00857012 BAD4718500 mov edx, $008571D4
* Reference to control TfrmYSCRPB.Label12 : TLabel
|
00857017 8B86E0030000 mov eax, [esi+$03E0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0085701D E8FE15C3FF call 00488620
00857022 BAD4718500 mov edx, $008571D4
* Reference to control TfrmYSCRPB.Label13 : TLabel
|
00857027 8B86E4030000 mov eax, [esi+$03E4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0085702D E8EE15C3FF call 00488620
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00857032 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00857038 E8830EC7FF call 004C7EC0
0085703D 84C0 test al, al
0085703F 0F8543010000 jnz 00857188
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00857045 8B9E6C030000 mov ebx, [esi+$036C]
0085704B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0085704D E80205C7FF call 004C7554
00857052 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
00857054 E8D70FC7FF call 004C8030
00857059 E90F010000 jmp 0085716D
0085705E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00857060 E8DB13C7FF call 004C8440
* Reference to control TfrmYSCRPB.CheckBox1 : TCheckBox
|
00857065 8B86B0030000 mov eax, [esi+$03B0]
0085706B 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
0085706D FF92C8000000 call dword ptr [edx+$00C8]
00857073 8BD0 mov edx, eax
00857075 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00857078 E8E71CBCFF call 00418D64
0085707D 8D45F0 lea eax, [ebp-$10]
00857080 50 push eax
* Possible String Reference to: 'ssel'
|
00857081 BAE0718500 mov edx, $008571E0
00857086 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00857088 E827FBC6FF call 004C6BB4
0085708D 5A pop edx
0085708E 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00857090 FF91B4000000 call dword ptr [ecx+$00B4]
* Reference to control TfrmYSCRPB.CheckBox1 : TCheckBox
|
00857096 8B86B0030000 mov eax, [esi+$03B0]
0085709C 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
0085709E FF92C8000000 call dword ptr [edx+$00C8]
008570A4 3C01 cmp al, $01
008570A6 0F85B0000000 jnz 0085715C
* Possible String Reference to: 'Qty'
|
008570AC BAF0718500 mov edx, $008571F0
008570B1 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008570B3 E8FCFAC6FF call 004C6BB4
008570B8 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
008570BA FF524C call dword ptr [edx+$4C]
008570BD DF7DE4 fistp qword ptr [ebp-$1C]
008570C0 9B wait
008570C1 8D55E0 lea edx, [ebp-$20]
* Reference to control TfrmYSCRPB.Label12 : TLabel
|
008570C4 8BBEE0030000 mov edi, [esi+$03E0]
008570CA 8BC7 mov eax, edi
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
008570CC E81F15C3FF call 004885F0
008570D1 8B45E0 mov eax, [ebp-$20]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
008570D4 E85366BBFF call 0040D72C
008570D9 D80DF4718500 fmul dword ptr [$008571F4]
008570DF DF6DE4 fild qword ptr [ebp-$1C]
008570E2 DEC1 faddp st(1), st(0)
008570E4 D835F4718500 fdiv dword ptr [$008571F4]
008570EA 83C4F4 add esp, -$0C
008570ED DB3C24 fstp tbyte ptr [esp]
008570F0 9B wait
008570F1 8D45EC lea eax, [ebp-$14]
|
008570F4 E8B364BBFF call 0040D5AC
008570F9 8B55EC mov edx, [ebp-$14]
008570FC 8BC7 mov eax, edi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008570FE E81D15C3FF call 00488620
* Possible String Reference to: 'Money'
|
00857103 BA00728500 mov edx, $00857200
00857108 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0085710A E8A5FAC6FF call 004C6BB4
0085710F 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
00857111 FF524C call dword ptr [edx+$4C]
00857114 DF7DE4 fistp qword ptr [ebp-$1C]
00857117 9B wait
00857118 8D55D8 lea edx, [ebp-$28]
* Reference to control TfrmYSCRPB.Label13 : TLabel
|
0085711B 8B86E4030000 mov eax, [esi+$03E4]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00857121 E8CA14C3FF call 004885F0
00857126 8B45D8 mov eax, [ebp-$28]
* Reference to: SysUtils.StrToFloat(AnsiString):Extended;overload;
|
00857129 E8FE65BBFF call 0040D72C
0085712E D80DF4718500 fmul dword ptr [$008571F4]
00857134 DF6DE4 fild qword ptr [ebp-$1C]
00857137 DEC1 faddp st(1), st(0)
00857139 D835F4718500 fdiv dword ptr [$008571F4]
0085713F 83C4F4 add esp, -$0C
00857142 DB3C24 fstp tbyte ptr [esp]
00857145 9B wait
00857146 8D45DC lea eax, [ebp-$24]
|
00857149 E85E64BBFF call 0040D5AC
0085714E 8B55DC mov edx, [ebp-$24]
* Reference to control TfrmYSCRPB.Label13 : TLabel
|
00857151 8B86E4030000 mov eax, [esi+$03E4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00857157 E8C414C3FF call 00488620
0085715C 8BC3 mov eax, ebx
0085715E 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00857160 FF924C020000 call dword ptr [edx+$024C]
00857166 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
00857168 E8DF11C7FF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
0085716D 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
00857174 0F84E4FEFFFF jz 0085705E
0085717A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
0085717C E8AF0EC7FF call 004C8030
00857181 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00857183 E8EC03C7FF call 004C7574
00857188 33C0 xor eax, eax
0085718A 5A pop edx
0085718B 59 pop ecx
0085718C 59 pop ecx
0085718D 648910 mov fs:[eax], edx
****** FINALLY
|
00857190 68C5718500 push $008571C5
00857195 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
00857198 E887E1BAFF call 00405324
0085719D 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
008571A0 E87FE1BAFF call 00405324
008571A5 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
008571A8 E877E1BAFF call 00405324
008571AD 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
008571B0 E86FE1BAFF call 00405324
008571B5 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
008571B8 E8B7D4BBFF call 00414674
008571BD C3 ret
* Reference to: System.@HandleFinally;
|
008571BE E931D9BAFF jmp 00404AF4
008571C3 EBD0 jmp 00857195
****** END
|
008571C5 5F pop edi
008571C6 5E pop esi
008571C7 5B pop ebx
008571C8 8BE5 mov esp, ebp
008571CA 5D pop ebp
008571CB C3 ret
*)
end;
procedure TfrmYSCRPB.cxTabControl1Change(Sender : TObject);
begin
(*
00857208 53 push ebx
00857209 8BD8 mov ebx, eax
0085720B 8BC3 mov eax, ebx
|
0085720D E8F2ACFFFF call 00851F04
00857212 8BC3 mov eax, ebx
|
00857214 E81FAFFFFF call 00852138
00857219 5B pop ebx
0085721A C3 ret
*)
end;
procedure TfrmYSCRPB.FormCreate(Sender : TObject);
begin
(*
0085721C 55 push ebp
0085721D 8BEC mov ebp, esp
0085721F 6A00 push $00
00857221 53 push ebx
00857222 8BD8 mov ebx, eax
00857224 33C0 xor eax, eax
00857226 55 push ebp
* Possible String Reference to: '<27>}غ<><D8BA><EFBFBD>[Y]Í@'
|
00857227 6872728500 push $00857272
***** TRY
|
0085722C 64FF30 push dword ptr fs:[eax]
0085722F 648920 mov fs:[eax], esp
00857232 B205 mov dl, $05
* Reference to control TfrmYSCRPB.cxGrid2 : TcxGrid
|
00857234 8B8338030000 mov eax, [ebx+$0338]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
0085723A E89D08C3FF call 00487ADC
0085723F 8D55FC lea edx, [ebp-$04]
*)
end;
procedure TfrmYSCRPB.TchkClick(Sender : TObject);
begin
(*
00857280 55 push ebp
00857281 8BEC mov ebp, esp
00857283 B905000000 mov ecx, $00000005
00857288 6A00 push $00
0085728A 6A00 push $00
0085728C 49 dec ecx
0085728D 75F9 jnz 00857288
0085728F 51 push ecx
00857290 53 push ebx
00857291 56 push esi
00857292 57 push edi
00857293 8945FC mov [ebp-$04], eax
00857296 33C0 xor eax, eax
00857298 55 push ebp
* Possible String Reference to: '<27><>պ<EFBFBD><D5BA><EFBFBD>_^[<5B><>]<5D>'
|
00857299 6857758500 push $00857557
***** TRY
|
0085729E 64FF30 push dword ptr fs:[eax]
008572A1 648920 mov fs:[eax], esp
008572A4 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008572A7 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008572AD E80E0CC7FF call 004C7EC0
008572B2 84C0 test al, al
008572B4 0F857A020000 jnz 00857534
008572BA A068758500 mov al, byte ptr [$00857568]
008572BF 50 push eax
008572C0 8D45EC lea eax, [ebp-$14]
008572C3 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008572C5 E89A1ABCFF call 00418D64
008572CA 8D4DEC lea ecx, [ebp-$14]
008572CD 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008572D0 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
008572D6 BA74758500 mov edx, $00857574
008572DB 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008572DD FF9344020000 call dword ptr [ebx+$0244]
008572E3 84C0 test al, al
008572E5 751D jnz 00857304
008572E7 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008572E9 B97C758500 mov ecx, $0085757C
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008572EE BA84758500 mov edx, $00857584
*)
end;
procedure TfrmYSCRPB.TnochkClick(Sender : TObject);
begin
(*
00857664 55 push ebp
00857665 8BEC mov ebp, esp
00857667 B904000000 mov ecx, $00000004
0085766C 6A00 push $00
0085766E 6A00 push $00
00857670 49 dec ecx
00857671 75F9 jnz 0085766C
00857673 51 push ecx
00857674 53 push ebx
00857675 56 push esi
00857676 57 push edi
00857677 8945FC mov [ebp-$04], eax
0085767A 33C0 xor eax, eax
0085767C 55 push ebp
* Possible String Reference to: '<27>tҺ<74><D2BA><EFBFBD>_^[<5B><>]<5D>'
|
0085767D 687B788500 push $0085787B
***** TRY
|
00857682 64FF30 push dword ptr fs:[eax]
00857685 648920 mov fs:[eax], esp
00857688 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
0085768B 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00857691 E82A08C7FF call 004C7EC0
00857696 84C0 test al, al
00857698 0F85BA010000 jnz 00857858
0085769E A08C788500 mov al, byte ptr [$0085788C]
008576A3 50 push eax
008576A4 8D45EC lea eax, [ebp-$14]
008576A7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008576A9 E8B616BCFF call 00418D64
008576AE 8D4DEC lea ecx, [ebp-$14]
008576B1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008576B4 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
008576BA BA98788500 mov edx, $00857898
008576BF 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008576C1 FF9344020000 call dword ptr [ebx+$0244]
008576C7 84C0 test al, al
008576C9 751D jnz 008576E8
008576CB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008576CD B9A0788500 mov ecx, $008578A0
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008576D2 BAA8788500 mov edx, $008578A8
*)
end;
procedure TfrmYSCRPB.v2ComTaitouPropertiesButtonClick(Sender : TObject);
begin
(*
00857930 55 push ebp
00857931 8BEC mov ebp, esp
00857933 51 push ecx
00857934 B906000000 mov ecx, $00000006
00857939 6A00 push $00
0085793B 6A00 push $00
0085793D 49 dec ecx
0085793E 75F9 jnz 00857939
00857940 51 push ecx
00857941 874DFC xchg [ebp-$04], ecx
00857944 53 push ebx
00857945 56 push esi
00857946 8BF0 mov esi, eax
00857948 33C0 xor eax, eax
0085794A 55 push ebp
0085794B 68877B8500 push $00857B87
***** TRY
|
00857950 64FF30 push dword ptr fs:[eax]
00857953 648920 mov fs:[eax], esp
00857956 33C0 xor eax, eax
00857958 55 push ebp
00857959 685D7B8500 push $00857B5D
***** TRY
|
0085795E 64FF30 push dword ptr fs:[eax]
00857961 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB.TZDSCClick(Sender : TObject);
begin
(*
00857C6C 53 push ebx
00857C6D 8BD8 mov ebx, eax
00857C6F 8BCB mov ecx, ebx
00857C71 B201 mov dl, $01
* Reference to class TfrmSXCKNewList_SK
|
00857C73 A1BCF57E00 mov eax, dword ptr [$007EF5BC]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00857C78 E853A1C4FF call 004A1DD0
*)
end;
procedure TfrmYSCRPB.v2Column4PropertiesButtonClick(Sender : TObject);
begin
(*
00857CC0 55 push ebp
00857CC1 8BEC mov ebp, esp
00857CC3 51 push ecx
00857CC4 B907000000 mov ecx, $00000007
00857CC9 6A00 push $00
00857CCB 6A00 push $00
00857CCD 49 dec ecx
00857CCE 75F9 jnz 00857CC9
00857CD0 51 push ecx
00857CD1 874DFC xchg [ebp-$04], ecx
00857CD4 53 push ebx
00857CD5 56 push esi
00857CD6 8BF0 mov esi, eax
00857CD8 33C0 xor eax, eax
00857CDA 55 push ebp
* Possible String Reference to: '<27>z˺<7A><CBBA><EFBFBD>^[<5B><>]<5D>'
|
00857CDB 68757F8500 push $00857F75
***** TRY
|
00857CE0 64FF30 push dword ptr fs:[eax]
00857CE3 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00857CE6 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
00857CEC BA8C7F8500 mov edx, $00857F8C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00857CF1 E8BEEEC6FF call 004C6BB4
00857CF6 8D55F8 lea edx, [ebp-$08]
00857CF9 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00857CFB FF5160 call dword ptr [ecx+$60]
00857CFE 8B45F8 mov eax, [ebp-$08]
00857D01 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00857D04 E8E32BBBFF call 0040A8EC
00857D09 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00857D0C BA9C7F8500 mov edx, $00857F9C
* Reference to: System.@LStrCmp;
|
00857D11 E82ADABAFF call 00405740
00857D16 751D jnz 00857D35
00857D18 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00857D1A B9A87F8500 mov ecx, $00857FA8
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
00857D1F BAB07F8500 mov edx, $00857FB0
*)
end;
procedure TfrmYSCRPB.v2Column5PropertiesChange(Sender : TObject);
begin
(*
008580B4 53 push ebx
008580B5 56 push esi
008580B6 8BD8 mov ebx, eax
* Possible String Reference to: 'Qty'
|
008580B8 BA58818500 mov edx, $00858158
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008580BD 8BB36C030000 mov esi, [ebx+$036C]
008580C3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008580C5 E8EAEAC6FF call 004C6BB4
008580CA 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
008580CC FF524C call dword ptr [edx+$4C]
008580CF D8355C818500 fdiv dword ptr [$0085815C]
008580D5 83C4F8 add esp, -$08
008580D8 DD1C24 fstp qword ptr [esp]
008580DB 9B wait
* Reference to control TfrmYSCRPB.Label12 : TLabel
|
008580DC 8B93E0030000 mov edx, [ebx+$03E0]
008580E2 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
008580E4 E8A7ECF5FF call 007B6D90
* Possible String Reference to: 'Money'
|
008580E9 BA68818500 mov edx, $00858168
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008580EE 8BB36C030000 mov esi, [ebx+$036C]
008580F4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008580F6 E8B9EAC6FF call 004C6BB4
008580FB 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
008580FD FF524C call dword ptr [edx+$4C]
00858100 D8355C818500 fdiv dword ptr [$0085815C]
00858106 83C4F8 add esp, -$08
00858109 DD1C24 fstp qword ptr [esp]
0085810C 9B wait
* Reference to control TfrmYSCRPB.Label13 : TLabel
|
0085810D 8B93E4030000 mov edx, [ebx+$03E4]
00858113 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00858115 E876ECF5FF call 007B6D90
* Possible String Reference to: 'PS'
|
0085811A BA78818500 mov edx, $00858178
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
0085811F 8BB36C030000 mov esi, [ebx+$036C]
00858125 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00858127 E888EAC6FF call 004C6BB4
0085812C 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_4C
|
0085812E FF524C call dword ptr [edx+$4C]
00858131 D8355C818500 fdiv dword ptr [$0085815C]
00858137 83C4F8 add esp, -$08
0085813A DD1C24 fstp qword ptr [esp]
0085813D 9B wait
* Reference to control TfrmYSCRPB.Label19 : TLabel
|
0085813E 8B9318040000 mov edx, [ebx+$0418]
00858144 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00858146 E845ECF5FF call 007B6D90
0085814B 5E pop esi
0085814C 5B pop ebx
0085814D C3 ret
*)
end;
procedure TfrmYSCRPB.v2ConNoPropertiesButtonClick(Sender : TObject);
begin
(*
0085817C 55 push ebp
0085817D 8BEC mov ebp, esp
0085817F 51 push ecx
00858180 B90B000000 mov ecx, $0000000B
00858185 6A00 push $00
00858187 6A00 push $00
00858189 49 dec ecx
0085818A 75F9 jnz 00858185
0085818C 874DFC xchg [ebp-$04], ecx
0085818F 53 push ebx
00858190 56 push esi
00858191 8BF0 mov esi, eax
00858193 33C0 xor eax, eax
00858195 55 push ebp
* Possible String Reference to: '<27><>ƺ<EFBFBD><C6BA><EFBFBD>^[<5B><>]<5D>'
|
00858196 6851848500 push $00858451
***** TRY
|
0085819B 64FF30 push dword ptr fs:[eax]
0085819E 648920 mov fs:[eax], esp
008581A1 8BCE mov ecx, esi
008581A3 B201 mov dl, $01
* Reference to class TfrmJYorderConCX
|
008581A5 A164DF7D00 mov eax, dword ptr [$007DDF64]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
008581AA E8219CC4FF call 004A1DD0
*)
end;
procedure TfrmYSCRPB.Tv2StylesGetContentStyle(Sender : TObject);
begin
(*
0085854C 55 push ebp
0085854D 8BEC mov ebp, esp
0085854F 51 push ecx
00858550 B90A000000 mov ecx, $0000000A
00858555 6A00 push $00
00858557 6A00 push $00
00858559 49 dec ecx
0085855A 75F9 jnz 00858555
0085855C 51 push ecx
0085855D 874DFC xchg [ebp-$04], ecx
00858560 53 push ebx
00858561 56 push esi
00858562 894DFC mov [ebp-$04], ecx
00858565 8BD8 mov ebx, eax
00858567 33C0 xor eax, eax
00858569 55 push ebp
0085856A 683D868500 push $0085863D
***** TRY
|
0085856F 64FF30 push dword ptr fs:[eax]
00858572 648920 mov fs:[eax], esp
* Possible String Reference to: 'CRTime'
|
00858575 BA54868500 mov edx, $00858654
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
0085857A 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint;
| or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect;
| or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer;
| or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString);
| or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode;
| or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString;
|
00858580 E89B34E1FF call 0066BA20
* Reference to field TcxGridDBTableView.OFFS_006C
|
00858585 8B706C mov esi, [eax+$6C]
* Possible String Reference to: 'WHXMoney'
|
00858588 BA64868500 mov edx, $00858664
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
0085858D 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint;
| or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect;
| or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer;
| or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString);
| or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode;
| or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString;
|
00858593 E88834E1FF call 0066BA20
* Reference to field TcxGridDBTableView.OFFS_006C
|
00858598 8B406C mov eax, [eax+$6C]
0085859B 8945F8 mov [ebp-$08], eax
0085859E 8D4DE8 lea ecx, [ebp-$18]
008585A1 8BD6 mov edx, esi
008585A3 8B45FC mov eax, [ebp-$04]
008585A6 8B30 mov esi, [eax]
008585A8 FF5640 call dword ptr [esi+$40]
008585AB 8D45E8 lea eax, [ebp-$18]
008585AE 50 push eax
008585AF 8D45D8 lea eax, [ebp-$28]
008585B2 BA1E000000 mov edx, $0000001E
008585B7 B101 mov cl, $01
|
008585B9 E8B605BCFF call 00418B74
008585BE 8D55D8 lea edx, [ebp-$28]
008585C1 58 pop eax
* Reference to: System.@Initialize(Pointer;Pointer);
| or: System.@Finalize(Pointer;Pointer);
| or: System.@AddRef;
| or: Variants.@VarAdd(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarSub(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarMul(TVarData;TVarData;TVarData;TVarData);
|
008585C2 E8A14DBCFF call 0041D368
008585C7 8D45E8 lea eax, [ebp-$18]
008585CA 50 push eax
008585CB DD8348040000 fld qword ptr [ebx+$0448]
008585D1 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromTDateTime;
|
008585D4 E8C707BCFF call 00418DA0
008585D9 8D55C8 lea edx, [ebp-$38]
008585DC 58 pop eax
* Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData);
|
008585DD E83A4EBCFF call 0041D41C
008585E2 7F38 jnle 0085861C
008585E4 8D4DB8 lea ecx, [ebp-$48]
008585E7 8B55F8 mov edx, [ebp-$08]
008585EA 8B45FC mov eax, [ebp-$04]
008585ED 8B18 mov ebx, [eax]
008585EF FF5340 call dword ptr [ebx+$40]
008585F2 8D45B8 lea eax, [ebp-$48]
008585F5 50 push eax
008585F6 8D45A8 lea eax, [ebp-$58]
008585F9 33D2 xor edx, edx
008585FB B101 mov cl, $01
|
008585FD E87205BCFF call 00418B74
00858602 8D55A8 lea edx, [ebp-$58]
00858605 58 pop eax
* Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData);
|
00858606 E8214EBCFF call 0041D42C
0085860B 7E0F jle 0085861C
*)
end;
procedure TfrmYSCRPB.N1Click(Sender : TObject);
begin
(*
00858670 B201 mov dl, $01
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00858672 8B806C030000 mov eax, [eax+$036C]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00858678 E827FEF5FF call 007B84A4
0085867D C3 ret
*)
end;
procedure TfrmYSCRPB.N2Click(Sender : TObject);
begin
(*
00858680 33D2 xor edx, edx
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00858682 8B806C030000 mov eax, [eax+$036C]
* Reference to : TfrmSelExportField._PROC_007B84A4()
|
00858688 E817FEF5FF call 007B84A4
0085868D C3 ret
*)
end;
procedure TfrmYSCRPB.TKPClick(Sender : TObject);
begin
(*
00858690 55 push ebp
00858691 8BEC mov ebp, esp
00858693 B904000000 mov ecx, $00000004
00858698 6A00 push $00
0085869A 6A00 push $00
0085869C 49 dec ecx
0085869D 75F9 jnz 00858698
0085869F 51 push ecx
008586A0 53 push ebx
008586A1 56 push esi
008586A2 57 push edi
008586A3 8945FC mov [ebp-$04], eax
008586A6 33C0 xor eax, eax
008586A8 55 push ebp
* Possible String Reference to: '<27>Hº<48><C2BA><EFBFBD>_^[<5B><>]<5D>'
|
008586A9 68A7888500 push $008588A7
***** TRY
|
008586AE 64FF30 push dword ptr fs:[eax]
008586B1 648920 mov fs:[eax], esp
008586B4 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008586B7 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008586BD E8FEF7C6FF call 004C7EC0
008586C2 84C0 test al, al
008586C4 0F85BA010000 jnz 00858884
008586CA A0B8888500 mov al, byte ptr [$008588B8]
008586CF 50 push eax
008586D0 8D45EC lea eax, [ebp-$14]
008586D3 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008586D5 E88A06BCFF call 00418D64
008586DA 8D4DEC lea ecx, [ebp-$14]
008586DD 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008586E0 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
008586E6 BAC4888500 mov edx, $008588C4
008586EB 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008586ED FF9344020000 call dword ptr [ebx+$0244]
008586F3 84C0 test al, al
008586F5 751D jnz 00858714
008586F7 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008586F9 B9CC888500 mov ecx, $008588CC
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008586FE BAD4888500 mov edx, $008588D4
*)
end;
procedure TfrmYSCRPB.TCXKPClick(Sender : TObject);
begin
(*
00858964 55 push ebp
00858965 8BEC mov ebp, esp
00858967 B904000000 mov ecx, $00000004
0085896C 6A00 push $00
0085896E 6A00 push $00
00858970 49 dec ecx
00858971 75F9 jnz 0085896C
00858973 51 push ecx
00858974 53 push ebx
00858975 56 push esi
00858976 57 push edi
00858977 8945FC mov [ebp-$04], eax
0085897A 33C0 xor eax, eax
0085897C 55 push ebp
* Possible String Reference to: '<27>t<EFBFBD><74><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
0085897D 687B8B8500 push $00858B7B
***** TRY
|
00858982 64FF30 push dword ptr fs:[eax]
00858985 648920 mov fs:[eax], esp
00858988 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
0085898B 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00858991 E82AF5C6FF call 004C7EC0
00858996 84C0 test al, al
00858998 0F85BA010000 jnz 00858B58
0085899E A08C8B8500 mov al, byte ptr [$00858B8C]
008589A3 50 push eax
008589A4 8D45EC lea eax, [ebp-$14]
008589A7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008589A9 E8B603BCFF call 00418D64
008589AE 8D4DEC lea ecx, [ebp-$14]
008589B1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
008589B4 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
008589BA BA988B8500 mov edx, $00858B98
008589BF 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
008589C1 FF9344020000 call dword ptr [ebx+$0244]
008589C7 84C0 test al, al
008589C9 751D jnz 008589E8
008589CB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
008589CD B9A08B8500 mov ecx, $00858BA0
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
008589D2 BAA88B8500 mov edx, $00858BA8
*)
end;
procedure TfrmYSCRPB.v2KPTypePropertiesEditValueChanged(Sender : TObject);
begin
(*
00858C30 55 push ebp
00858C31 8BEC mov ebp, esp
00858C33 B906000000 mov ecx, $00000006
00858C38 6A00 push $00
00858C3A 6A00 push $00
00858C3C 49 dec ecx
00858C3D 75F9 jnz 00858C38
00858C3F 51 push ecx
00858C40 53 push ebx
00858C41 56 push esi
00858C42 8BDA mov ebx, edx
00858C44 8BF0 mov esi, eax
00858C46 33C0 xor eax, eax
00858C48 55 push ebp
* Possible String Reference to: '<27>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00858C49 68AD8D8500 push $00858DAD
***** TRY
|
00858C4E 64FF30 push dword ptr fs:[eax]
00858C51 648920 mov fs:[eax], esp
00858C54 8D55FC lea edx, [ebp-$04]
00858C57 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;
|
00858C59 E85E6AD3FF call 0058F6BC
* Reference to control TfrmYSCRPB.Tv2 : TcxGridDBTableView
|
00858C5E 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00858C64 E8E336E0FF 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;
|
00858C69 E8F68EDFFF call 00651B64
* Reference to field TcxGridDBTableView.OFFS_0050
|
00858C6E 8B4050 mov eax, [eax+$50]
00858C71 8D55F4 lea edx, [ebp-$0C]
00858C74 8B08 mov ecx, [eax]
00858C76 FF5110 call dword ptr [ecx+$10]
00858C79 8B45F4 mov eax, [ebp-$0C]
00858C7C 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00858C7F E8681CBBFF call 0040A8EC
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00858C84 8B9E6C030000 mov ebx, [esi+$036C]
00858C8A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00858C8C E8AFF7C6FF call 004C8440
00858C91 8D55E0 lea edx, [ebp-$20]
00858C94 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00858C97 E8501CBBFF call 0040A8EC
00858C9C 8B55E0 mov edx, [ebp-$20]
00858C9F 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00858CA2 E82101BCFF call 00418DC8
00858CA7 8D45E4 lea eax, [ebp-$1C]
00858CAA 50 push eax
00858CAB 8B55F8 mov edx, [ebp-$08]
00858CAE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00858CB0 E8FFDEC6FF call 004C6BB4
00858CB5 5A pop edx
00858CB6 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
00858CB8 FF91B4000000 call dword ptr [ecx+$00B4]
00858CBE 8BC3 mov eax, ebx
00858CC0 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
00858CC2 FF924C020000 call dword ptr [edx+$024C]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
00858CC8 8B9E0C030000 mov ebx, [esi+$030C]
00858CCE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00858CD0 E8FFCBC6FF call 004C58D4
00858CD5 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00858CD7 E8D052C8FF call 004DDFAC
00858CDC 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00858CDE FF5244 call dword ptr [edx+$44]
00858CE1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00858CE3 E8C452C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
00858CE8 BAC48D8500 mov edx, $00858DC4
00858CED 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00858CEF FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set KPType=''
|
00858CF2 68E08D8500 push $00858DE0
00858CF7 8D55D8 lea edx, [ebp-$28]
00858CFA 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00858CFD E8EA1BBBFF call 0040A8EC
00858D02 FF75D8 push dword ptr [ebp-$28]
00858D05 68F88D8500 push $00858DF8
00858D0A 8D45DC lea eax, [ebp-$24]
00858D0D BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00858D12 E89DC9BAFF call 004056B4
00858D17 8B45DC mov eax, [ebp-$24]
00858D1A 50 push eax
00858D1B 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00858D1D E88A52C8FF call 004DDFAC
00858D22 5A pop edx
00858D23 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00858D25 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where YFId=''
|
00858D28 68048E8500 push $00858E04
* Possible String Reference to: 'YFId'
|
00858D2D BA1C8E8500 mov edx, $00858E1C
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00858D32 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00858D38 E877DEC6FF call 004C6BB4
00858D3D 8D55CC lea edx, [ebp-$34]
00858D40 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00858D42 FF5160 call dword ptr [ecx+$60]
00858D45 8B45CC mov eax, [ebp-$34]
00858D48 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00858D4B E89C1BBBFF call 0040A8EC
00858D50 FF75D0 push dword ptr [ebp-$30]
00858D53 68F88D8500 push $00858DF8
00858D58 8D45D4 lea eax, [ebp-$2C]
00858D5B BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00858D60 E84FC9BAFF call 004056B4
00858D65 8B45D4 mov eax, [ebp-$2C]
00858D68 50 push eax
00858D69 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00858D6B E83C52C8FF call 004DDFAC
00858D70 5A pop edx
00858D71 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00858D73 FF5138 call dword ptr [ecx+$38]
00858D76 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
00858D78 E85751C8FF call 004DDED4
00858D7D 33C0 xor eax, eax
00858D7F 5A pop edx
00858D80 59 pop ecx
00858D81 59 pop ecx
00858D82 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00858D85 68B48D8500 push $00858DB4
00858D8A 8D45CC lea eax, [ebp-$34]
00858D8D BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00858D92 E8B1C5BAFF call 00405348
00858D97 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
00858D9A E8D5B8BBFF call 00414674
00858D9F 8D45F4 lea eax, [ebp-$0C]
00858DA2 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00858DA7 E89CC5BAFF call 00405348
00858DAC C3 ret
* Reference to: System.@HandleFinally;
|
00858DAD E942BDBAFF jmp 00404AF4
00858DB2 EBD6 jmp 00858D8A
****** END
|
00858DB4 5E pop esi
00858DB5 5B pop ebx
00858DB6 8BE5 mov esp, ebp
00858DB8 5D pop ebp
00858DB9 C3 ret
*)
end;
procedure TfrmYSCRPB.v2Column6PropertiesButtonClick(Sender : TObject);
begin
(*
00858E24 55 push ebp
00858E25 8BEC mov ebp, esp
00858E27 51 push ecx
00858E28 B906000000 mov ecx, $00000006
00858E2D 6A00 push $00
00858E2F 6A00 push $00
00858E31 49 dec ecx
00858E32 75F9 jnz 00858E2D
00858E34 874DFC xchg [ebp-$04], ecx
00858E37 53 push ebx
00858E38 56 push esi
00858E39 8BF0 mov esi, eax
00858E3B 33C0 xor eax, eax
00858E3D 55 push ebp
* Possible String Reference to: '驺<><E9A9BA><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00858E3E 6846908500 push $00859046
***** TRY
|
00858E43 64FF30 push dword ptr fs:[eax]
00858E46 648920 mov fs:[eax], esp
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00858E49 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFTypeID'
|
00858E4F BA5C908500 mov edx, $0085905C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00858E54 E85BDDC6FF call 004C6BB4
00858E59 8D55FC lea edx, [ebp-$04]
00858E5C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
00858E5E FF5160 call dword ptr [ecx+$60]
00858E61 837DFC00 cmp dword ptr [ebp-$04], +$00
00858E65 741D jz 00858E84
00858E67 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00858E69 B968908500 mov ecx, $00859068
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>'
|
00858E6E BA70908500 mov edx, $00859070
*)
end;
procedure TfrmYSCRPB.ConNoKeyPress(Sender : TObject);
begin
(*
00859118 55 push ebp
00859119 8BEC mov ebp, esp
0085911B 6A00 push $00
0085911D 6A00 push $00
0085911F 6A00 push $00
00859121 6A00 push $00
00859123 6A00 push $00
00859125 53 push ebx
00859126 56 push esi
00859127 8BD8 mov ebx, eax
00859129 33C0 xor eax, eax
0085912B 55 push ebp
* Possible String Reference to: '<27>7<EFBFBD><37><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0085912C 68B8928500 push $008592B8
***** TRY
|
00859131 64FF30 push dword ptr fs:[eax]
00859134 648920 mov fs:[eax], esp
00859137 80390D cmp byte ptr [ecx], $0D
0085913A 0F8548010000 jnz 00859288
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00859140 8BB320030000 mov esi, [ebx+$0320]
00859146 33D2 xor edx, edx
00859148 8BC6 mov eax, esi
0085914A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
0085914C FF9190010000 call dword ptr [ecx+$0190]
00859152 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00859154 E87BC7C6FF call 004C58D4
00859159 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0085915B E84C4EC8FF call 004DDFAC
00859160 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00859162 FF5244 call dword ptr [edx+$44]
00859165 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00859167 E8404EC8FF call 004DDFAC
* Possible String Reference to: 'select A.*'
|
0085916C BAD0928500 mov edx, $008592D0
00859171 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00859173 FF5138 call dword ptr [ecx+$38]
00859176 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00859178 E82F4EC8FF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
0085917D BAE4928500 mov edx, $008592E4
00859182 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00859184 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.ConNO like '%'
|
00859187 6800938500 push $00859300
0085918C 8D55F4 lea edx, [ebp-$0C]
* Reference to control TfrmYSCRPB.ConNo : TEdit
|
0085918F 8B83EC030000 mov eax, [ebx+$03EC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00859195 E856F4C2FF call 004885F0
0085919A 8B45F4 mov eax, [ebp-$0C]
0085919D 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008591A0 E84717BBFF call 0040A8EC
008591A5 FF75F8 push dword ptr [ebp-$08]
008591A8 6820938500 push $00859320
008591AD 682C938500 push $0085932C
008591B2 8D45FC lea eax, [ebp-$04]
008591B5 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008591BA E8F5C4BAFF call 004056B4
008591BF 8B45FC mov eax, [ebp-$04]
008591C2 50 push eax
008591C3 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008591C5 E8E24DC8FF call 004DDFAC
008591CA 5A pop edx
008591CB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008591CD FF5138 call dword ptr [ecx+$38]
008591D0 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008591D2 E8D54DC8FF call 004DDFAC
* Possible String Reference to: ' and A.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
008591D7 BA38938500 mov edx, $00859338
008591DC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008591DE FF5138 call dword ptr [ecx+$38]
* Reference to control TfrmYSCRPB.cxTabControl1 : TcxTabControl
|
008591E1 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to control ADOTemp : N.A.
|
008591E7 83B83C03000003 cmp dword ptr [eax+$033C], +$03
008591EE 7D3F jnl 0085922F
* Possible String Reference to: ' and isnull(A.status,'0')=''
|
008591F0 6860938500 push $00859360
008591F5 8D55EC lea edx, [ebp-$14]
* Reference to control TfrmYSCRPB.cxTabControl1 : TcxTabControl
|
008591F8 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to control ADOTemp : N.A.
|
008591FE 8B803C030000 mov eax, [eax+$033C]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00859204 E8031DBBFF call 0040AF0C
00859209 FF75EC push dword ptr [ebp-$14]
0085920C 682C938500 push $0085932C
00859211 8D45F0 lea eax, [ebp-$10]
00859214 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00859219 E896C4BAFF call 004056B4
0085921E 8B45F0 mov eax, [ebp-$10]
00859221 50 push eax
00859222 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00859224 E8834DC8FF call 004DDFAC
00859229 5A pop edx
0085922A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0085922C FF5138 call dword ptr [ecx+$38]
0085922F 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00859231 E892C6C6FF call 004C58C8
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00859236 8B936C030000 mov edx, [ebx+$036C]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
0085923C 8B8320030000 mov eax, [ebx+$0320]
|
00859242 E849DCF5FF call 007B6E90
* Reference to control TfrmYSCRPB.CDS_HZ : TClientDataSet
|
00859247 8B936C030000 mov edx, [ebx+$036C]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
0085924D 8B8320030000 mov eax, [ebx+$0320]
|
00859253 E8C0DDF5FF call 007B7018
00859258 BA84938500 mov edx, $00859384
* Reference to control TfrmYSCRPB.Label12 : TLabel
|
0085925D 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00859263 E8B8F3C2FF call 00488620
00859268 BA84938500 mov edx, $00859384
* Reference to control TfrmYSCRPB.Label13 : TLabel
|
0085926D 8B83E4030000 mov eax, [ebx+$03E4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00859273 E8A8F3C2FF call 00488620
00859278 BA84938500 mov edx, $00859384
* Reference to control TfrmYSCRPB.Label19 : TLabel
|
0085927D 8B8318040000 mov eax, [ebx+$0418]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00859283 E898F3C2FF call 00488620
00859288 33C0 xor eax, eax
0085928A 5A pop edx
0085928B 59 pop ecx
0085928C 59 pop ecx
0085928D 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00859290 68BF928500 push $008592BF
00859295 8D45EC lea eax, [ebp-$14]
00859298 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0085929D E8A6C0BAFF call 00405348
008592A2 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
008592A5 E87AC0BAFF call 00405324
008592AA 8D45F8 lea eax, [ebp-$08]
008592AD BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008592B2 E891C0BAFF call 00405348
008592B7 C3 ret
* Reference to: System.@HandleFinally;
|
008592B8 E937B8BAFF jmp 00404AF4
008592BD EBD6 jmp 00859295
****** END
|
008592BF 5E pop esi
008592C0 5B pop ebx
008592C1 8BE5 mov esp, ebp
008592C3 5D pop ebp
008592C4 C3 ret
*)
end;
procedure TfrmYSCRPB.v2BZTypePropertiesButtonClick(Sender : TObject);
begin
(*
00859388 55 push ebp
00859389 8BEC mov ebp, esp
0085938B 51 push ecx
0085938C B906000000 mov ecx, $00000006
00859391 6A00 push $00
00859393 6A00 push $00
00859395 49 dec ecx
00859396 75F9 jnz 00859391
00859398 51 push ecx
00859399 874DFC xchg [ebp-$04], ecx
0085939C 53 push ebx
0085939D 56 push esi
0085939E 8BF0 mov esi, eax
008593A0 33C0 xor eax, eax
008593A2 55 push ebp
008593A3 68E1958500 push $008595E1
***** TRY
|
008593A8 64FF30 push dword ptr fs:[eax]
008593AB 648920 mov fs:[eax], esp
008593AE 33C0 xor eax, eax
008593B0 55 push ebp
008593B1 68B7958500 push $008595B7
***** TRY
|
008593B6 64FF30 push dword ptr fs:[eax]
008593B9 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB._PROC_00852139(Sender : TObject);
begin
(*
00852139 8BEC mov ebp, esp
0085213B 33C9 xor ecx, ecx
0085213D 51 push ecx
0085213E 51 push ecx
0085213F 51 push ecx
00852140 51 push ecx
00852141 51 push ecx
00852142 51 push ecx
00852143 51 push ecx
00852144 51 push ecx
00852145 53 push ebx
00852146 56 push esi
00852147 8945FC mov [ebp-$04], eax
0085214A 33C0 xor eax, eax
0085214C 55 push ebp
* Possible String Reference to: '<27><>&<26><><EFBFBD><EFBFBD>^[<5B><>]<5D><><EFBFBD><EFBFBD><EFBFBD>V'
|
0085214D 686B248500 push $0085246B
***** TRY
|
00852152 64FF30 push dword ptr fs:[eax]
00852155 648920 mov fs:[eax], esp
00852158 33C0 xor eax, eax
0085215A 55 push ebp
0085215B 6849248500 push $00852449
***** TRY
|
00852160 64FF30 push dword ptr fs:[eax]
00852163 648920 mov fs:[eax], esp
00852166 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00852169 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
0085216F E8E053C7FF call 004C7554
00852174 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.ADOQueryMain : TADOQuery
|
00852177 8B9820030000 mov ebx, [eax+$0320]
0085217D 33D2 xor edx, edx
0085217F 8BC3 mov eax, ebx
00852181 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
00852183 FF9190010000 call dword ptr [ecx+$0190]
00852189 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
0085218B E84437C7FF call 004C58D4
00852190 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00852192 E815BEC8FF call 004DDFAC
00852197 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
00852199 FF5244 call dword ptr [edx+$44]
0085219C 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0085219E E809BEC8FF call 004DDFAC
* Possible String Reference to: 'select ConPrice=(select Top 1 B.PRT
| Price from JYOrderCon_Sub B where B
| .Subid=A.ConID) '
|
008521A3 BA80248500 mov edx, $00852480
008521A8 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008521AA FF5138 call dword ptr [ecx+$38]
008521AD 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008521AF E8F8BDC8FF call 004DDFAC
* Possible String Reference to: ',YJBLi=(select Top 1 B.YJBLi from J
| YOrderCon_Sub B where B.Subid=A.Con
| ID),WHXMoney=A.Money-isnull(A.HxNum
| ,0)'
|
008521B4 BAE0248500 mov edx, $008524E0
008521B9 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008521BB FF5138 call dword ptr [ecx+$38]
008521BE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008521C0 E8E7BDC8FF call 004DDFAC
* Possible String Reference to: ',OrderUnit=(select Top 1 B.OrderUni
| t from JYOrderCon_Sub B where B.Sub
| id=A.ConID)'
|
008521C5 BA58258500 mov edx, $00852558
008521CA 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008521CC FF5138 call dword ptr [ecx+$38]
008521CF 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008521D1 E8D6BDC8FF call 004DDFAC
* Possible String Reference to: ',YSZMoney=(select Sum(B.Money) from
| YF_Money_CR B where B.CRType='Ӧ<><D3A6>
| <20><><EFBFBD>Ǽ<EFBFBD>' and B.KPNo=A.KPNo)'
|
008521D6 BAB4258500 mov edx, $008525B4
008521DB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008521DD FF5138 call dword ptr [ecx+$38]
008521E0 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008521E2 E8C5BDC8FF call 004DDFAC
* Possible String Reference to: ',SKZMoney=(select Sum(B.KHDKMoney)
| from YF_Money_CR B where B.CRType='
| <20>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' and B.KPNo=A.KPNo)'
|
008521E7 BA20268500 mov edx, $00852620
008521EC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008521EE FF5138 call dword ptr [ecx+$38]
008521F1 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008521F3 E8B4BDC8FF call 004DDFAC
* Possible String Reference to: ',DKYJMoney=(select Sum(B.KHDKMoney)
| -Sum(case when B.CRType='<27>տ<EFBFBD><D5BF>Ǽ<EFBFBD>'
| then 0 else B.Money end) from YF_Mo
| ney_CR B where B.KPNo=A.KPNo)'
|
008521F8 BA8C268500 mov edx, $0085268C
008521FD 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008521FF FF5138 call dword ptr [ecx+$38]
00852202 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00852204 E8A3BDC8FF call 004DDFAC
* Possible String Reference to: ',A.*'
|
00852209 BA1C278500 mov edx, $0085271C
0085220E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00852210 FF5138 call dword ptr [ecx+$38]
00852213 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00852215 E892BDC8FF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
0085221A BA2C278500 mov edx, $0085272C
0085221F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00852221 FF5138 call dword ptr [ecx+$38]
00852224 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00852226 E881BDC8FF call 004DDFAC
* Possible String Reference to: ' where A.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
0085222B BA48278500 mov edx, $00852748
00852230 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00852232 FF5138 call dword ptr [ecx+$38]
00852235 8D55F8 lea edx, [ebp-$08]
*)
end;
procedure TfrmYSCRPB._PROC_0085255F(Sender : TObject);
begin
(*
0085255F 6E outsb
00852560 69743D2873656C65 imul esi, [ebp+edi+$28], $656C6573
00852568 63742054 arpl [eax+$54], si
0085256C 6F outsd
0085256D 7020 jo 0085258F
0085256F 3120 xor [eax], esp
00852571 42 inc edx
00852572 2E4F dec edi
00852574 7264 jb 008525DA
00852576 657255 jb 008525CE
00852579 6E outsb
0085257A 69742066726F6D20 imul esi, [eax+$66], $206D6F72
00852582 4A dec edx
00852583 59 pop ecx
00852584 4F dec edi
00852585 7264 jb 008525EB
00852587 657243 jb 008525CD
0085258A 6F outsd
0085258B 6E outsb
0085258C 5F pop edi
0085258D 53 push ebx
0085258E 7562 jnz 008525F2
00852590 204220 and [edx+$20], al
00852593 7768 jnbe 008525FD
00852595 657265 jb 008525FD
00852598 20422E and [edx+$2E], al
0085259B 53 push ebx
0085259C 7562 jnz 00852600
0085259E 69643D412E436F6E imul esp, [ebp+edi+$41], $6E6F432E
008525A6 49 dec ecx
008525A7 44 inc esp
008525A8 2900 sub dword ptr [eax], eax
008525AA 0000 add [eax], al
008525AC FFFF DB $FF, $FF //
008525AE FFFF DB $FF, $FF //
008525B0 60 pusha
008525B1 0000 add [eax], al
008525B3 002C59 add [ecx+ebx*2], ch
008525B6 53 push ebx
008525B7 5A pop edx
008525B8 4D dec ebp
008525B9 6F outsd
008525BA 6E outsb
008525BB 65793D jns 008525FB
008525BE 287365 sub [ebx+$65], dh
008525C1 6C insb
008525C2 6563742053 arpl gs:[eax+$53], si
008525C7 756D jnz 00852636
008525C9 28422E sub [edx+$2E], al
008525CC 4D dec ebp
008525CD 6F outsd
008525CE 6E outsb
008525CF 657929 jns 008525FB
008525D2 206672 and [esi+$72], ah
008525D5 6F outsd
008525D6 6D insd
008525D7 205946 and [ecx+$46], bl
008525DA 5F pop edi
008525DB 4D dec ebp
008525DC 6F outsd
008525DD 6E outsb
008525DE 65795F jns 00852640
008525E1 43 inc ebx
008525E2 52 push edx
008525E3 204220 and [edx+$20], al
008525E6 7768 jnbe 00852650
008525E8 657265 jb 00852650
008525EB 20422E and [edx+$2E], al
008525EE 43 inc ebx
008525EF 52 push edx
008525F0 54 push esp
008525F1 7970 jns 00852663
008525F3 653D27D3A6CA cmp eax, $CAA6D327
008525F9 D5 aad
008525FA BFEEB5C7BC mov edi, $BCC7B5EE
008525FF C72720616E64 mov dword ptr [edi], $646E6120
00852605 20422E and [edx+$2E], al
00852608 4B dec ebx
00852609 50 push eax
0085260A 4E dec esi
0085260B 6F outsd
0085260C 3D412E4B50 cmp eax, $504B2E41
00852611 4E dec esi
00852612 6F outsd
00852613 2900 sub dword ptr [eax], eax
00852615 0000 add [eax], al
00852617 00FF add bh, bh
00852619 FFFF DB $FF, $FF //
0085261B FF6200 jmp dword ptr [edx+$00]
0085261E 0000 add [eax], al
00852620 2C53 sub al, $53
00852622 4B dec ebx
00852623 5A pop edx
00852624 4D dec ebp
00852625 6F outsd
00852626 6E outsb
00852627 65793D jns 00852667
0085262A 287365 sub [ebx+$65], dh
0085262D 6C insb
0085262E 6563742053 arpl gs:[eax+$53], si
00852633 756D jnz 008526A2
00852635 28422E sub [edx+$2E], al
00852638 4B dec ebx
00852639 48 dec eax
0085263A 44 inc esp
0085263B 4B dec ebx
0085263C 4D dec ebp
0085263D 6F outsd
0085263E 6E outsb
0085263F 657929 jns 0085266B
00852642 206672 and [esi+$72], ah
00852645 6F outsd
00852646 6D insd
00852647 205946 and [ecx+$46], bl
0085264A 5F pop edi
0085264B 4D dec ebp
0085264C 6F outsd
0085264D 6E outsb
0085264E 65795F jns 008526B0
00852651 43 inc ebx
00852652 52 push edx
00852653 204220 and [edx+$20], al
00852656 7768 jnbe 008526C0
00852658 657265 jb 008526C0
0085265B 20422E and [edx+$2E], al
0085265E 43 inc ebx
0085265F 52 push edx
00852660 54 push esp
00852661 7970 jns 008526D3
00852663 653D27CAD5BF cmp eax, $BFD5CA27
00852669 EE out dx, al
0085266A B5C7 mov ch, $C7
0085266C BCC7272061 mov esp, $612027C7
00852671 6E outsb
00852672 6420422E and fs:[edx+$2E], al
00852676 4B dec ebx
00852677 50 push eax
00852678 4E dec esi
00852679 6F outsd
0085267A 3D412E4B50 cmp eax, $504B2E41
0085267F 4E dec esi
00852680 6F outsd
00852681 2900 sub dword ptr [eax], eax
00852683 00FF add bh, bh
00852685 FFFF DB $FF, $FF //
00852687 FF860000002C inc dword ptr [esi+$2C000000]
0085268D 44 inc esp
0085268E 4B dec ebx
0085268F 59 pop ecx
00852690 4A dec edx
00852691 4D dec ebp
00852692 6F outsd
00852693 6E outsb
00852694 65793D jns 008526D4
00852697 287365 sub [ebx+$65], dh
0085269A 6C insb
0085269B 6563742053 arpl gs:[eax+$53], si
008526A0 756D jnz 0085270F
008526A2 28422E sub [edx+$2E], al
008526A5 4B dec ebx
008526A6 48 dec eax
008526A7 44 inc esp
008526A8 4B dec ebx
008526A9 4D dec ebp
008526AA 6F outsd
008526AB 6E outsb
008526AC 657929 jns 008526D8
008526AF 2D53756D28 sub eax, $286D7553
008526B4 636173 arpl [ecx+$73], sp
008526B7 65207768 and gs:[edi+$68], dh
008526BB 656E outsb
008526BD 20422E and [edx+$2E], al
008526C0 43 inc ebx
008526C1 52 push edx
008526C2 54 push esp
008526C3 7970 jns 00852735
008526C5 653D27CAD5BF cmp eax, $BFD5CA27
008526CB EE out dx, al
008526CC B5C7 mov ch, $C7
008526CE BCC7272074 mov esp, $742027C7
008526D3 68656E2030 push $30206E65
008526D8 20656C and [ebp+$6C], ah
008526DB 7365 jnb 00852742
008526DD 20422E and [edx+$2E], al
008526E0 4D dec ebp
008526E1 6F outsd
008526E2 6E outsb
008526E3 657920 jns 00852706
008526E6 656E outsb
008526E8 642920 sub dword ptr fs:[eax], esp
008526EB 66726F jb 0085275D
008526EE 6D insd
008526EF 205946 and [ecx+$46], bl
008526F2 5F pop edi
008526F3 4D dec ebp
008526F4 6F outsd
008526F5 6E outsb
008526F6 65795F jns 00852758
008526F9 43 inc ebx
008526FA 52 push edx
008526FB 204220 and [edx+$20], al
008526FE 7768 jnbe 00852768
00852700 657265 jb 00852768
00852703 20422E and [edx+$2E], al
00852706 4B dec ebx
00852707 50 push eax
00852708 4E dec esi
00852709 6F outsd
0085270A 3D412E4B50 cmp eax, $504B2E41
0085270F 4E dec esi
00852710 6F outsd
00852711 2900 sub dword ptr [eax], eax
00852713 00FF add bh, bh
00852715 FFFF DB $FF, $FF //
00852717 FF0400 inc dword ptr [eax+eax]
0085271A 0000 add [eax], al
0085271C 2C41 sub al, $41
0085271E 2E2A00 sub al, byte ptr cs:[eax]
00852721 0000 add [eax], al
00852723 00FF add bh, bh
00852725 FFFF DB $FF, $FF //
00852727 FF13 call dword ptr [ebx]
00852729 0000 add [eax], al
0085272B 0020 add [eax], ah
0085272D 66726F jb 0085279F
00852730 6D insd
00852731 205946 and [ecx+$46], bl
00852734 5F pop edi
00852735 4D dec ebp
00852736 6F outsd
00852737 6E outsb
00852738 65795F jns 0085279A
0085273B 43 inc ebx
0085273C 52 push edx
0085273D 204100 and [ecx+$00], al
00852740 FFFF DB $FF, $FF //
00852742 FFFF DB $FF, $FF //
00852744 1D00000020 sbb eax, $20000000
00852749 7768 jnbe 008527B3
0085274B 657265 jb 008527B3
0085274E 20412E and [ecx+$2E], al
00852751 43 inc ebx
00852752 52 push edx
00852753 54 push esp
00852754 7970 jns 008527C6
00852756 653D27D3A6CA cmp eax, $CAA6D327
0085275C D5 aad
0085275D BFEEB5C7BC mov edi, $BCC7B5EE
00852762 C72720000000 mov dword ptr [edi], $00000020
00852768 FFFF DB $FF, $FF //
0085276A FFFF DB $FF, $FF //
0085276C 06 push es
0085276D 0000 add [eax], al
0085276F 00B8DFC8A8CF add [eax+$CFA8C8DF], bh
00852775 DE00 fiadd word ptr [eax]
00852777 00FF add bh, bh
00852779 FFFF DB $FF, $FF //
0085277B FF0F dec dword ptr [edi]
0085277D 0000 add [eax], al
0085277F 0020 add [eax], ah
00852781 61 popa
00852782 6E outsb
00852783 6420412E and fs:[ecx+$2E], al
00852787 46 inc esi
00852788 696C6C65723D2700 imul ebp, [esp+ebp*2+$65], $00273D72
00852790 FFFF DB $FF, $FF //
00852792 FFFF DB $FF, $FF //
00852794 0100 add [eax], eax
00852796 0000 add [eax], al
00852798 27 daa
00852799 0000 add [eax], al
0085279B 00FF add bh, bh
0085279D FFFF DB $FF, $FF //
0085279F FF10 call dword ptr [eax]
008527A1 0000 add [eax], al
008527A3 0020 add [eax], ah
008527A5 61 popa
008527A6 6E outsb
008527A7 6420412E and fs:[ecx+$2E], al
008527AB 43 inc ebx
008527AC 52 push edx
008527AD 54 push esp
008527AE 696D653E3D2700 imul ebp, [ebp+$65], $00273D3E
008527B5 0000 add [eax], al
008527B7 00FF add bh, bh
008527B9 FFFF DB $FF, $FF //
008527BB FF0A dec dword ptr [edx]
008527BD 0000 add [eax], al
008527BF 007979 add [ecx+$79], bh
008527C2 7979 jns 0085283D
008527C4 2D4D4D2D64 sub eax, $642D4D4D
008527C9 640000 add fs:[eax], al
008527CC FFFF DB $FF, $FF //
008527CE FFFF DB $FF, $FF //
008527D0 0200 add al, byte ptr [eax]
008527D2 0000 add [eax], al
008527D4 27 daa
008527D5 2000 and [eax], al
008527D7 00FF add bh, bh
008527D9 FFFF DB $FF, $FF //
008527DB FF0F dec dword ptr [edi]
008527DD 0000 add [eax], al
008527DF 0020 add [eax], ah
008527E1 61 popa
008527E2 6E outsb
008527E3 6420412E and fs:[ecx+$2E], al
008527E7 43 inc ebx
008527E8 52 push edx
008527E9 54 push esp
008527EA 696D653C270000 imul ebp, [ebp+$65], $0000273C
008527F1 00803FFFFFFF add [eax+$FFFFFF3F], al
008527F7 FF4000 inc dword ptr [eax+$00]
008527FA 0000 add [eax], al
008527FC 20616E and [ecx+$6E], ah
008527FF 642028 and fs:[eax], ch
00852802 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
00852809 41 inc ecx
0085280A 2E7374 jnb 00852881
0085280D 61 popa
0085280E 7475 jz 00852885
00852810 732C jnb 0085283E
00852812 27 daa
00852813 3027 xor [edi], ah
00852815 293D27302720 sub dword ptr [$20273027], edi
0085281B 6F outsd
0085281C 7220 jb 0085283E
0085281E 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
00852825 41 inc ecx
00852826 2E7374 jnb 0085289D
00852829 61 popa
0085282A 7475 jz 008528A1
0085282C 732C jnb 0085285A
0085282E 27 daa
0085282F 3027 xor [edi], ah
00852831 293D27B2BBCD sub dword ptr [$CDBBB227], edi
00852837 A8B9 test al, $B9
00852839 FD std
0085283A 27 daa
0085283B 2900 sub dword ptr [eax], eax
0085283D 0000 add [eax], al
0085283F 00FF add bh, bh
00852841 FFFF DB $FF, $FF //
00852843 FF1D00000020 call [$20000000]
00852849 61 popa
0085284A 6E outsb
0085284B 64206973 and fs:[ecx+$73], ch
0085284F 6E outsb
00852850 756C jnz 008528BE
00852852 6C insb
00852853 28412E sub [ecx+$2E], al
00852856 7374 jnb 008528CC
00852858 61 popa
00852859 7475 jz 008528D0
0085285B 732C jnb 00852889
0085285D 27 daa
0085285E 3027 xor [edi], ah
00852860 293D27312700 sub dword ptr [$00273127], edi
00852866 0000 add [eax], al
00852868 FFFF DB $FF, $FF //
0085286A FFFF DB $FF, $FF //
0085286C 1D00000020 sbb eax, $20000000
00852871 61 popa
00852872 6E outsb
00852873 64206973 and fs:[ecx+$73], ch
00852877 6E outsb
00852878 756C jnz 008528E6
0085287A 6C insb
0085287B 28412E sub [ecx+$2E], al
0085287E 7374 jnb 008528F4
00852880 61 popa
00852881 7475 jz 008528F8
00852883 732C jnb 008528B1
00852885 27 daa
00852886 3027 xor [edi], ah
00852888 293D27322700 sub dword ptr [$00273227], edi
0085288E 0000 add [eax], al
00852890 FFFF DB $FF, $FF //
00852892 FFFF DB $FF, $FF //
00852894 0100 add [eax], eax
00852896 0000 add [eax], al
00852898 3000 xor [eax], al
0085289A 0000 add [eax], al
0085289C 33C0 xor eax, eax
* Reference to GlobalVar_00895A94
|
0085289E A3945A8900 mov dword ptr [$00895A94], eax
008528A3 C3 ret
008528A4 C60102 mov byte ptr [ecx], $02
008528A7 C3 ret
008528A8 53 push ebx
008528A9 8BD8 mov ebx, eax
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
008528AB B9D4288500 mov ecx, $008528D4
* Reference to control ADOTemp : N.A.
|
008528B0 8B933C030000 mov edx, [ebx+$033C]
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>1'
|
008528B6 B8E8288500 mov eax, $008528E8
|
008528BB E8E052F6FF call 007B7BA0
008528C0 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
008528C2 E8D136C5FF call 004A5F98
008528C7 5B pop ebx
008528C8 C3 ret
008528C9 0000 add [eax], al
008528CB 00FF add bh, bh
008528CD FFFF DB $FF, $FF //
008528CF FF08 dec dword ptr [eax]
008528D1 0000 add [eax], al
008528D3 00B2C6CEF1B9 add [edx+$B9F1CEC6], dh
008528D9 DCC0 fadd st(0), st(0)
008528DB ED in eax, dx
008528DC 0000 add [eax], al
008528DE 0000 add [eax], al
008528E0 FFFF DB $FF, $FF //
008528E2 FFFF DB $FF, $FF //
008528E4 0B00 or eax, [eax]
008528E6 0000 add [eax], al
008528E8 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
008528EE B5C7 mov ch, $C7
008528F0 BCC7310055 mov esp, $550031C7
008528F5 8BEC mov ebp, esp
008528F7 33C9 xor ecx, ecx
008528F9 51 push ecx
008528FA 51 push ecx
008528FB 51 push ecx
008528FC 51 push ecx
008528FD 51 push ecx
008528FE 51 push ecx
008528FF 51 push ecx
00852900 51 push ecx
00852901 53 push ebx
00852902 56 push esi
00852903 57 push edi
00852904 8945FC mov [ebp-$04], eax
00852907 33C0 xor eax, eax
00852909 55 push ebp
0085290A 68112B8500 push $00852B11
***** TRY
|
0085290F 64FF30 push dword ptr fs:[eax]
00852912 648920 mov fs:[eax], esp
00852915 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
00852918 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
0085291E E89D55C7FF call 004C7EC0
00852923 84C0 test al, al
00852925 0F85C3010000 jnz 00852AEE
0085292B 8B45FC mov eax, [ebp-$04]
* Reference to control BankAddress : N.A.
|
0085292E 8B80C4030000 mov eax, [eax+$03C4]
* Reference to control ADOTemp : N.A.
|
00852934 83B83C03000000 cmp dword ptr [eax+$033C], +$00
0085293B 0F85AD010000 jnz 00852AEE
00852941 A0202B8500 mov al, byte ptr [$00852B20]
00852946 50 push eax
00852947 8D45EC lea eax, [ebp-$14]
0085294A B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
0085294C E81364BCFF call 00418D64
00852951 8D4DEC lea ecx, [ebp-$14]
00852954 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
00852957 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
0085295D BA2C2B8500 mov edx, $00852B2C
00852962 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
00852964 FF9344020000 call dword ptr [ebx+$0244]
0085296A 84C0 test al, al
0085296C 751D jnz 0085298B
0085296E 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00852970 B9342B8500 mov ecx, $00852B34
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00852975 BA3C2B8500 mov edx, $00852B3C
*)
end;
procedure TfrmYSCRPB._PROC_00852EDD(Sender : TObject);
begin
(*
00852EDD 8BEC mov ebp, esp
00852EDF B931000000 mov ecx, $00000031
00852EE4 6A00 push $00
00852EE6 6A00 push $00
00852EE8 49 dec ecx
00852EE9 75F9 jnz 00852EE4
00852EEB 53 push ebx
00852EEC 56 push esi
00852EED 57 push edi
00852EEE 8945FC mov [ebp-$04], eax
00852EF1 33C0 xor eax, eax
00852EF3 55 push ebp
00852EF4 6801378500 push $00853701
***** TRY
|
00852EF9 64FF30 push dword ptr fs:[eax]
00852EFC 648920 mov fs:[eax], esp
00852EFF 33C0 xor eax, eax
00852F01 55 push ebp
00852F02 68BB358500 push $008535BB
***** TRY
|
00852F07 64FF30 push dword ptr fs:[eax]
00852F0A 648920 mov fs:[eax], esp
00852F0D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
00852F10 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
00852F16 E8118FC8FF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
00852F1B E874F3C7FF call 004D2294
* Possible String Reference to: 'YF_Money_CR'
|
00852F20 681C378500 push $0085371C
00852F25 6A04 push $04
00852F27 6A01 push $01
00852F29 8D55F8 lea edx, [ebp-$08]
00852F2C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
00852F2F 8B800C030000 mov eax, [eax+$030C]
* Possible String Reference to: 'YS'
|
00852F35 B930378500 mov ecx, $00853730
* Reference to : TfrmSelExportField._PROC_007B7708()
|
00852F3A E8C947F6FF call 007B7708
00852F3F 84C0 test al, al
00852F41 753A jnz 00852F7D
00852F43 33DB xor ebx, ebx
00852F45 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmYSCRPB.ADOQueryCmd : TADOQuery
|
00852F48 8B800C030000 mov eax, [eax+$030C]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
00852F4E E8D98EC8FF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
00852F53 E888F3C7FF call 004D22E0
00852F58 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00852F5A B934378500 mov ecx, $00853734
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
00852F5F BA3C378500 mov edx, $0085373C
*)
end;
procedure TfrmYSCRPB._PROC_008537BD(Sender : TObject);
begin
(*
008537BD 7064 jo 00853823
008537BF 61 popa
008537C0 7465 jz 00853827
008537C2 205946 and [ecx+$46], bl
008537C5 5F pop edi
008537C6 4D dec ebp
008537C7 6F outsd
008537C8 6E outsb
008537C9 65795F jns 0085382B
008537CC 43 inc ebx
008537CD 52 push edx
008537CE 49 dec ecx
008537CF 44 inc esp
008537D0 207365 and [ebx+$65], dh
008537D3 7420 jz 008537F5
008537D5 43 inc ebx
008537D6 52 push edx
008537D7 49 dec ecx
008537D8 44 inc esp
008537D9 3D43524944 cmp eax, $44495243
008537DE 2B31 sub esi, dword ptr [ecx]
008537E0 0000 add [eax], al
008537E2 0000 add [eax], al
008537E4 FFFF DB $FF, $FF //
008537E6 FFFF DB $FF, $FF //
008537E8 1C00 sbb al, $00
008537EA 0000 add [eax], al
008537EC 7365 jnb 00853853
008537EE 6C insb
008537EF 656374202A arpl gs:[eax+$2A], si
008537F4 206672 and [esi+$72], ah
008537F7 6F outsd
008537F8 6D insd
008537F9 205946 and [ecx+$46], bl
008537FC 5F pop edi
008537FD 4D dec ebp
008537FE 6F outsd
008537FF 6E outsb
00853800 65795F jns 00853862
00853803 43 inc ebx
00853804 52 push edx
00853805 49 dec ecx
00853806 44 inc esp
00853807 2000 and [eax], al
00853809 0000 add [eax], al
0085380B 00FF add bh, bh
0085380D FFFF DB $FF, $FF //
0085380F FF23 jmp dword ptr [ebx]
00853811 0000 add [eax], al
00853813 007365 add [ebx+$65], dh
00853816 6C insb
00853817 656374202A arpl gs:[eax+$2A], si
0085381C 206672 and [esi+$72], ah
0085381F 6F outsd
00853820 6D insd
00853821 205946 and [ecx+$46], bl
00853824 5F pop edi
00853825 4D dec ebp
00853826 6F outsd
00853827 6E outsb
00853828 65795F jns 0085388A
0085382B 4B dec ebx
0085382C 43 inc ebx
0085382D 207768 and [edi+$68], dh
00853830 657265 jb 00853898
00853833 2031 and [ecx], dh
00853835 3D3200FFFF cmp eax, $FFFF0032
0085383A FFFF DB $FF, $FF //
0085383C 0900 or [eax], eax
0085383E 0000 add [eax], al
00853840 46 inc esi
00853841 61 popa
00853842 63746F72 arpl [edi+ebp*2+$72], si
00853846 794E jns 00853896
00853848 6F outsd
00853849 0000 add [eax], al
0085384B 00FF add bh, bh
0085384D FFFF DB $FF, $FF //
0085384F FF07 inc dword ptr [edi]
00853851 0000 add [eax], al
00853853 005A64 add [edx+$64], bl
00853856 7953 jns 008538AB
00853858 7472 jz 008538CC
0085385A 3100 xor [eax], eax
0085385C FFFF DB $FF, $FF //
0085385E FFFF DB $FF, $FF //
00853860 06 push es
00853861 0000 add [eax], al
00853863 00D3 add bl, dl
00853865 A6 cmpsb
00853866 CA ret
00853867 D5 aad
00853868 CA ret
00853869 D5 aad
0085386A 0000 add [eax], al
0085386C FFFF DB $FF, $FF //
0085386E FFFF DB $FF, $FF //
00853870 2300 and eax, [eax]
00853872 0000 add [eax], al
00853874 7365 jnb 008538DB
00853876 6C insb
00853877 656374202A arpl gs:[eax+$2A], si
0085387C 206672 and [esi+$72], ah
0085387F 6F outsd
00853880 6D insd
00853881 205946 and [ecx+$46], bl
00853884 5F pop edi
00853885 4D dec ebp
00853886 6F outsd
00853887 6E outsb
00853888 65795F jns 008538EA
0085388B 43 inc ebx
0085388C 52 push edx
0085388D 207768 and [edi+$68], dh
00853890 657265 jb 008538F8
00853893 2031 and [ecx], dh
00853895 3D3200FFFF cmp eax, $FFFF0032
0085389A FFFF DB $FF, $FF //
0085389C 0400 add al, +$00
0085389E 0000 add [eax], al
008538A0 59 pop ecx
008538A1 46 inc esi
008538A2 49 dec ecx
008538A3 44 inc esp
008538A4 0000 add [eax], al
008538A6 0000 add [eax], al
008538A8 FFFF DB $FF, $FF //
008538AA FFFF DB $FF, $FF //
008538AC 06 push es
008538AD 0000 add [eax], al
008538AF 004669 add [esi+$69], al
008538B2 6C insb
008538B3 6C insb
008538B4 657200 jb 008538B7
008538B7 00FF add bh, bh
008538B9 FFFF DB $FF, $FF //
008538BB FF06 inc dword ptr [esi]
008538BD 0000 add [eax], al
008538BF 004352 add [ebx+$52], al
008538C2 54 push esp
008538C3 7970 jns 00853935
008538C5 650000 add gs:[eax], al
008538C8 FFFF DB $FF, $FF //
008538CA FFFF DB $FF, $FF //
008538CC 0A00 or al, byte ptr [eax]
008538CE 0000 add [eax], al
008538D0 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
008538D6 B5C7 mov ch, $C7
008538D8 BCC70000FF mov esp, $FF0000C7
008538DD FFFF DB $FF, $FF //
008538DF FF06 inc dword ptr [esi]
008538E1 0000 add [eax], al
008538E3 004352 add [ebx+$52], al
008538E6 46 inc esi
008538E7 6C insb
008538E8 61 popa
008538E9 670000 add [bx+si], al
008538EC FFFF DB $FF, $FF //
008538EE FFFF DB $FF, $FF //
008538F0 07 pop es
008538F1 0000 add [eax], al
008538F3 005174 add [ecx+$74], dl
008538F6 7946 jns 0085393E
008538F8 6C insb
008538F9 61 popa
008538FA 6700FF add bh, bh
008538FD FFFF DB $FF, $FF //
008538FF FF06 inc dword ptr [esi]
00853901 0000 add [eax], al
00853903 004352 add [ebx+$52], al
00853906 54 push esp
00853907 696D650000FFFF imul ebp, [ebp+$65], $FFFF0000
0085390E FFFF DB $FF, $FF //
00853910 0A00 or al, byte ptr [eax]
00853912 0000 add [eax], al
00853914 59 pop ecx
00853915 46 inc esi
00853916 44 inc esp
00853917 656646 inc si
0085391A 6C insb
0085391B 61 popa
0085391C 673100 xor [bx+si], eax
0085391F 00FF add bh, bh
00853921 FFFF DB $FF, $FF //
00853923 FF0500000048 inc dword ptr [$48000000]
00853929 7569 jnz 00853994
0085392B 6C insb
0085392C 7600 jbe 0085392E
0085392E 0000 add [eax], al
00853930 FFFF DB $FF, $FF //
00853932 FFFF DB $FF, $FF //
00853934 06 push es
00853935 0000 add [eax], al
00853937 00425A add [edx+$5A], al
0085393A 54 push esp
0085393B 7970 jns 008539AD
0085393D 650000 add gs:[eax], al
00853940 FFFF DB $FF, $FF //
00853942 FFFF DB $FF, $FF //
00853944 0200 add al, byte ptr [eax]
00853946 0000 add [eax], al
00853948 A3A40000FF mov dword ptr [$FF0000A4], eax
0085394D FFFF DB $FF, $FF //
0085394F FF06 inc dword ptr [esi]
00853951 0000 add [eax], al
00853953 007374 add [ebx+$74], dh
00853956 61 popa
00853957 7475 jz 008539CE
00853959 7300 jnb 0085395B
0085395B 00FF add bh, bh
0085395D FFFF DB $FF, $FF //
0085395F FF09 dec dword ptr [ecx]
00853961 0000 add [eax], al
00853963 004368 add [ebx+$68], al
00853966 6B737461 imul esi, [ebx+$74], $61
0085396A 7475 jz 008539E1
0085396C 7300 jnb 0085396E
0085396E 0000 add [eax], al
00853970 FFFF DB $FF, $FF //
00853972 FFFF DB $FF, $FF //
00853974 0400 add al, +$00
00853976 0000 add [eax], al
00853978 59 pop ecx
00853979 46 inc esi
0085397A 49 dec ecx
0085397B 640000 add fs:[eax], al
0085397E 0000 add [eax], al
00853980 D4 aam
00853981 F6D0 not al
00853983 D0CA ror dl, 1
00853985 A7 cmpsd
00853986 B0DC mov al, $DC
00853988 2100 and [eax], eax
0085398A 0000 add [eax], al
0085398C 55 push ebp
0085398D 8BEC mov ebp, esp
0085398F B908000000 mov ecx, $00000008
00853994 6A00 push $00
00853996 6A00 push $00
00853998 49 dec ecx
00853999 75F9 jnz 00853994
0085399B 51 push ecx
0085399C 53 push ebx
0085399D 56 push esi
0085399E 8BDA mov ebx, edx
008539A0 8BF0 mov esi, eax
008539A2 33C0 xor eax, eax
008539A4 55 push ebp
008539A5 689A3B8500 push $00853B9A
***** TRY
|
008539AA 64FF30 push dword ptr fs:[eax]
008539AD 648920 mov fs:[eax], esp
008539B0 8D55FC lea edx, [ebp-$04]
008539B3 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;
|
008539B5 E802BDD3FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
008539BA 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008539C0 E88789E0FF 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;
|
008539C5 E89AE1DFFF call 00651B64
* Reference to field N.A..OFFS_0050
|
008539CA 8B4050 mov eax, [eax+$50]
008539CD 8D55F4 lea edx, [ebp-$0C]
008539D0 8B08 mov ecx, [eax]
008539D2 FF5110 call dword ptr [ecx+$10]
008539D5 8B45F4 mov eax, [ebp-$0C]
008539D8 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008539DB E80C6FBBFF call 0040A8EC
* Reference to control Label20 : N.A.
|
008539E0 8B9E6C030000 mov ebx, [esi+$036C]
008539E6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008539E8 E8534AC7FF call 004C8440
008539ED 8D55E0 lea edx, [ebp-$20]
008539F0 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008539F3 E8F46EBBFF call 0040A8EC
008539F8 8B55E0 mov edx, [ebp-$20]
008539FB 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008539FE E8C553BCFF call 00418DC8
00853A03 8D45E4 lea eax, [ebp-$1C]
00853A06 50 push eax
00853A07 8B55F8 mov edx, [ebp-$08]
00853A0A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00853A0C E8A331C7FF call 004C6BB4
00853A11 5A pop edx
00853A12 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00853A14 FF91B4000000 call dword ptr [ecx+$00B4]
00853A1A 8BC3 mov eax, ebx
00853A1C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00853A1E FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00853A24 8B9E0C030000 mov ebx, [esi+$030C]
00853A2A 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00853A2C E8A31EC7FF call 004C58D4
00853A31 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;
|
00853A33 E874A5C8FF call 004DDFAC
00853A38 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00853A3A FF5244 call dword ptr [edx+$44]
00853A3D 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;
|
00853A3F E868A5C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YCL_SG_HZ '
|
00853A44 BAB03B8500 mov edx, $00853BB0
00853A49 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00853A4B FF5138 call dword ptr [ecx+$38]
00853A4E 8D55DC lea edx, [ebp-$24]
00853A51 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853A54 E8936EBBFF call 0040A8EC
00853A59 837DDC00 cmp dword ptr [ebp-$24], +$00
00853A5D 7440 jz 00853A9F
* Possible String Reference to: ' Set '
|
00853A5F 68CC3B8500 push $00853BCC
00853A64 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
00853A67 68DC3B8500 push $00853BDC
00853A6C 8D55D4 lea edx, [ebp-$2C]
00853A6F 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853A72 E8756EBBFF call 0040A8EC
00853A77 FF75D4 push dword ptr [ebp-$2C]
00853A7A 68E83B8500 push $00853BE8
00853A7F 8D45D8 lea eax, [ebp-$28]
00853A82 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
00853A87 E8281CBBFF call 004056B4
00853A8C 8B45D8 mov eax, [ebp-$28]
00853A8F 50 push eax
00853A90 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;
|
00853A92 E815A5C8FF call 004DDFAC
00853A97 5A pop edx
00853A98 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00853A9A FF5138 call dword ptr [ecx+$38]
00853A9D EB2B jmp 00853ACA
00853A9F 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;
|
00853AA1 E806A5C8FF call 004DDFAC
00853AA6 50 push eax
* Possible String Reference to: ' Set '
|
00853AA7 68CC3B8500 push $00853BCC
00853AAC FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
00853AAF 68F43B8500 push $00853BF4
00853AB4 8D45D0 lea eax, [ebp-$30]
00853AB7 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00853ABC E8F31BBBFF call 004056B4
00853AC1 8B55D0 mov edx, [ebp-$30]
00853AC4 58 pop eax
00853AC5 8B08 mov ecx, [eax]
00853AC7 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00853ACA 68043C8500 push $00853C04
00853ACF 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYSCRPB._PROC_00853BB1(Sender : TObject);
begin
(*
00853BB1 50 push eax
00853BB2 6461 popa
00853BB4 7465 jz 00853C1B
00853BB6 205943 and [ecx+$43], bl
00853BB9 4C dec esp
00853BBA 5F pop edi
00853BBB 53 push ebx
00853BBC 47 inc edi
00853BBD 5F pop edi
00853BBE 48 dec eax
00853BBF 5A pop edx
00853BC0 2000 and [eax], al
00853BC2 0000 add [eax], al
00853BC4 FFFF DB $FF, $FF //
00853BC6 FFFF DB $FF, $FF //
00853BC8 0500000020 add eax, +$20000000
00853BCD 53 push ebx
00853BCE 657420 jz 00853BF1
00853BD1 0000 add [eax], al
00853BD3 00FF add bh, bh
00853BD5 FFFF DB $FF, $FF //
00853BD7 FF02 inc dword ptr [edx]
00853BD9 0000 add [eax], al
00853BDB 003D270000FF add [$FF000027], bh
00853BE1 FFFF DB $FF, $FF //
00853BE3 FF01 inc dword ptr [ecx]
00853BE5 0000 add [eax], al
00853BE7 0027 add [edi], ah
00853BE9 0000 add [eax], al
00853BEB 00FF add bh, bh
00853BED FFFF DB $FF, $FF //
00853BEF FF050000003D inc dword ptr [$3D000000]
00853BF5 4E dec esi
00853BF6 55 push ebp
00853BF7 4C dec esp
00853BF8 4C dec esp
00853BF9 0000 add [eax], al
00853BFB 00FF add bh, bh
00853BFD FFFF DB $FF, $FF //
00853BFF FF09 dec dword ptr [ecx]
00853C01 0000 add [eax], al
00853C03 002C4564697465 add [$65746964+eax*2], ch
00853C0A 723D jb 00853C49
00853C0C 27 daa
00853C0D 0000 add [eax], al
00853C0F 00FF add bh, bh
00853C11 FFFF DB $FF, $FF //
00853C13 FF1400 call dword ptr [eax+eax]
00853C16 0000 add [eax], al
00853C18 2C45 sub al, $45
00853C1A 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00853C23 657464 jz 00853C8A
00853C26 61 popa
00853C27 7465 jz 00853C8E
00853C29 2829 sub [ecx], ch
00853C2B 2000 and [eax], al
00853C2D 0000 add [eax], al
00853C2F 00FF add bh, bh
00853C31 FFFF DB $FF, $FF //
00853C33 FF0E dec dword ptr [esi]
00853C35 0000 add [eax], al
00853C37 0020 add [eax], ah
00853C39 7768 jnbe 00853CA3
00853C3B 657265 jb 00853CA3
00853C3E 205375 and [ebx+$75], dl
00853C41 624964 bound ecx, qword ptr [ecx+$64]
00853C44 3D270000FF cmp eax, $FF000027
00853C49 FFFF DB $FF, $FF //
00853C4B FF0500000053 inc dword ptr [$53000000]
00853C51 7562 jnz 00853CB5
00853C53 49 dec ecx
00853C54 640000 add fs:[eax], al
00853C57 00558B add [ebp-$75], dl
00853C5A EC in al, dx
00853C5B B922000000 mov ecx, $00000022
00853C60 6A00 push $00
00853C62 6A00 push $00
00853C64 49 dec ecx
00853C65 75F9 jnz 00853C60
00853C67 53 push ebx
00853C68 56 push esi
00853C69 8BF2 mov esi, edx
00853C6B 8BD8 mov ebx, eax
00853C6D 33C0 xor eax, eax
00853C6F 55 push ebp
00853C70 68C5438500 push $008543C5
***** TRY
|
00853C75 64FF30 push dword ptr fs:[eax]
00853C78 648920 mov fs:[eax], esp
00853C7B 8D55FC lea edx, [ebp-$04]
00853C7E 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;
|
00853C80 E837BAD3FF call 0058F6BC
00853C85 8D55DC lea edx, [ebp-$24]
00853C88 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853C8B E85C6CBBFF call 0040A8EC
00853C90 837DDC00 cmp dword ptr [ebp-$24], +$00
00853C94 750D jnz 00853CA3
00853C96 8D45FC lea eax, [ebp-$04]
00853C99 BADC438500 mov edx, $008543DC
* Reference to: System.@LStrLAsg(void;void;void;void);
|
00853C9E E81917BBFF call 004053BC
* Reference to control ADOTemp : N.A.
|
00853CA3 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00853CA9 E89E86E0FF 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;
|
00853CAE E8B1DEDFFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00853CB3 8B4050 mov eax, [eax+$50]
00853CB6 8D55D8 lea edx, [ebp-$28]
00853CB9 8B08 mov ecx, [eax]
00853CBB FF5110 call dword ptr [ecx+$10]
00853CBE 8B45D8 mov eax, [ebp-$28]
00853CC1 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853CC4 E8236CBBFF call 0040A8EC
* Reference to control Label20 : N.A.
|
00853CC9 8BB36C030000 mov esi, [ebx+$036C]
00853CCF 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00853CD1 E86A47C7FF call 004C8440
00853CD6 8D55C4 lea edx, [ebp-$3C]
00853CD9 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00853CDC E80B6CBBFF call 0040A8EC
00853CE1 8B55C4 mov edx, [ebp-$3C]
00853CE4 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00853CE7 E8DC50BCFF call 00418DC8
00853CEC 8D45C8 lea eax, [ebp-$38]
00853CEF 50 push eax
00853CF0 8B55E0 mov edx, [ebp-$20]
00853CF3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00853CF5 E8BA2EC7FF call 004C6BB4
00853CFA 5A pop edx
00853CFB 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00853CFD FF91B4000000 call dword ptr [ecx+$00B4]
00853D03 8D55C0 lea edx, [ebp-$40]
*)
end;
procedure TfrmYSCRPB._PROC_008544B9(Sender : TObject);
begin
(*
008544B9 50 push eax
008544BA 6461 popa
008544BC 7465 jz 00854523
008544BE 205946 and [ecx+$46], bl
008544C1 5F pop edi
008544C2 4D dec ebp
008544C3 6F outsd
008544C4 6E outsb
008544C5 65795F jns 00854527
008544C8 43 inc ebx
008544C9 52 push edx
008544CA 2000 and [eax], al
008544CC FFFF DB $FF, $FF //
008544CE FFFF DB $FF, $FF //
008544D0 0500000020 add eax, +$20000000
008544D5 53 push ebx
008544D6 657420 jz 008544F9
008544D9 0000 add [eax], al
008544DB 00FF add bh, bh
008544DD FFFF DB $FF, $FF //
008544DF FF01 inc dword ptr [ecx]
008544E1 0000 add [eax], al
008544E3 003D000000FF add [$FF000000], bh
008544E9 FFFF DB $FF, $FF //
008544EB FF09 dec dword ptr [ecx]
008544ED 0000 add [eax], al
008544EF 002C48 add [eax+ecx*2], ch
008544F2 59 pop ecx
008544F3 4D dec ebp
008544F4 6F outsd
008544F5 6E outsb
008544F6 65793D jns 00854536
008544F9 0000 add [eax], al
008544FB 00FF add bh, bh
008544FD FFFF DB $FF, $FF //
008544FF FF08 dec dword ptr [eax]
00854501 0000 add [eax], al
00854503 002C4D6F6E6579 add [$79656E6F+ecx*2], ch
0085450A 3D27000000 cmp eax, $00000027
0085450F 00FF add bh, bh
00854511 FFFF DB $FF, $FF //
00854513 FF09 dec dword ptr [ecx]
00854515 0000 add [eax], al
00854517 002C42 add [edx+eax*2], ch
0085451A 42 inc edx
0085451B 4D dec ebp
0085451C 6F outsd
0085451D 6E outsb
0085451E 65793D jns 0085455E
00854521 0000 add [eax], al
00854523 00FF add bh, bh
00854525 FFFF DB $FF, $FF //
00854527 FF09 dec dword ptr [ecx]
00854529 0000 add [eax], al
*)
end;
procedure TfrmYSCRPB._PROC_00854589(Sender : TObject);
begin
(*
00854589 7064 jo 008545EF
0085458B 61 popa
0085458C 7465 jz 008545F3
0085458E 205946 and [ecx+$46], bl
00854591 5F pop edi
00854592 4D dec ebp
00854593 6F outsd
00854594 6E outsb
00854595 65795F jns 008545F7
00854598 4B dec ebx
00854599 43 inc ebx
0085459A 205365 and [ebx+$65], dl
0085459D 7420 jz 008545BF
0085459F 4B dec ebx
008545A0 43 inc ebx
008545A1 42 inc edx
008545A2 42 inc edx
008545A3 4D dec ebp
008545A4 6F outsd
008545A5 6E outsb
008545A6 65793D jns 008545E6
008545A9 4B dec ebx
008545AA 43 inc ebx
008545AB 42 inc edx
008545AC 42 inc edx
008545AD 4D dec ebp
008545AE 6F outsd
008545AF 6E outsb
008545B0 65792D jns 008545E0
008545B3 00FF add bh, bh
008545B5 FFFF DB $FF, $FF //
008545B7 FF01 inc dword ptr [ecx]
008545B9 0000 add [eax], al
008545BB 002B add [ebx], ch
008545BD 0000 add [eax], al
008545BF 00FF add bh, bh
008545C1 FFFF DB $FF, $FF //
008545C3 FF0D00000020 dec dword ptr [$20000000]
008545C9 7768 jnbe 00854633
008545CB 657265 jb 00854633
008545CE 204352 and [ebx+$52], al
008545D1 49 dec ecx
008545D2 44 inc esp
008545D3 3D27000000 cmp eax, $00000027
008545D8 FFFF DB $FF, $FF //
008545DA FFFF DB $FF, $FF //
008545DC 0400 add al, +$00
008545DE 0000 add [eax], al
008545E0 43 inc ebx
008545E1 52 push edx
008545E2 49 dec ecx
008545E3 44 inc esp
008545E4 0000 add [eax], al
008545E6 0000 add [eax], al
008545E8 55 push ebp
008545E9 8BEC mov ebp, esp
008545EB B908000000 mov ecx, $00000008
008545F0 6A00 push $00
008545F2 6A00 push $00
008545F4 49 dec ecx
008545F5 75F9 jnz 008545F0
008545F7 51 push ecx
008545F8 53 push ebx
008545F9 56 push esi
008545FA 8BDA mov ebx, edx
008545FC 8BF0 mov esi, eax
008545FE 33C0 xor eax, eax
00854600 55 push ebp
00854601 68F6478500 push $008547F6
***** TRY
|
00854606 64FF30 push dword ptr fs:[eax]
00854609 648920 mov fs:[eax], esp
0085460C 8D55FC lea edx, [ebp-$04]
0085460F 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;
|
00854611 E8A6B0D3FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
00854616 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
0085461C E82B7DE0FF 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;
|
00854621 E83ED5DFFF call 00651B64
* Reference to field N.A..OFFS_0050
|
00854626 8B4050 mov eax, [eax+$50]
00854629 8D55F4 lea edx, [ebp-$0C]
0085462C 8B08 mov ecx, [eax]
0085462E FF5110 call dword ptr [ecx+$10]
00854631 8B45F4 mov eax, [ebp-$0C]
00854634 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00854637 E8B062BBFF call 0040A8EC
* Reference to control Label20 : N.A.
|
0085463C 8B9E6C030000 mov ebx, [esi+$036C]
00854642 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
00854644 E8F73DC7FF call 004C8440
00854649 8D55E0 lea edx, [ebp-$20]
0085464C 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0085464F E89862BBFF call 0040A8EC
00854654 8B55E0 mov edx, [ebp-$20]
00854657 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
0085465A E86947BCFF call 00418DC8
0085465F 8D45E4 lea eax, [ebp-$1C]
00854662 50 push eax
00854663 8B55F8 mov edx, [ebp-$08]
00854666 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00854668 E84725C7FF call 004C6BB4
0085466D 5A pop edx
0085466E 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00854670 FF91B4000000 call dword ptr [ecx+$00B4]
00854676 8BC3 mov eax, ebx
00854678 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
0085467A FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
00854680 8B9E0C030000 mov ebx, [esi+$030C]
00854686 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00854688 E84712C7FF call 004C58D4
0085468D 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;
|
0085468F E81899C8FF call 004DDFAC
00854694 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00854696 FF5244 call dword ptr [edx+$44]
00854699 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;
|
0085469B E80C99C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
008546A0 BA0C488500 mov edx, $0085480C
008546A5 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008546A7 FF5138 call dword ptr [ecx+$38]
008546AA 8D55DC lea edx, [ebp-$24]
008546AD 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008546B0 E83762BBFF call 0040A8EC
008546B5 837DDC00 cmp dword ptr [ebp-$24], +$00
008546B9 7440 jz 008546FB
* Possible String Reference to: ' Set '
|
008546BB 6828488500 push $00854828
008546C0 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
008546C3 6838488500 push $00854838
008546C8 8D55D4 lea edx, [ebp-$2C]
008546CB 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008546CE E81962BBFF call 0040A8EC
008546D3 FF75D4 push dword ptr [ebp-$2C]
008546D6 6844488500 push $00854844
008546DB 8D45D8 lea eax, [ebp-$28]
008546DE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
008546E3 E8CC0FBBFF call 004056B4
008546E8 8B45D8 mov eax, [ebp-$28]
008546EB 50 push eax
008546EC 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;
|
008546EE E8B998C8FF call 004DDFAC
008546F3 5A pop edx
008546F4 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
008546F6 FF5138 call dword ptr [ecx+$38]
008546F9 EB2B jmp 00854726
008546FB 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;
|
008546FD E8AA98C8FF call 004DDFAC
00854702 50 push eax
* Possible String Reference to: ' Set '
|
00854703 6828488500 push $00854828
00854708 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=NULL'
|
0085470B 6850488500 push $00854850
00854710 8D45D0 lea eax, [ebp-$30]
00854713 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00854718 E8970FBBFF call 004056B4
0085471D 8B55D0 mov edx, [ebp-$30]
00854720 58 pop eax
00854721 8B08 mov ecx, [eax]
00854723 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00854726 6860488500 push $00854860
0085472B 8D55C8 lea edx, [ebp-$38]
*)
end;
procedure TfrmYSCRPB._PROC_0085480D(Sender : TObject);
begin
(*
0085480D 50 push eax
0085480E 6461 popa
00854810 7465 jz 00854877
00854812 205946 and [ecx+$46], bl
00854815 5F pop edi
00854816 4D dec ebp
00854817 6F outsd
00854818 6E outsb
00854819 65795F jns 0085487B
0085481C 43 inc ebx
0085481D 52 push edx
0085481E 2000 and [eax], al
00854820 FFFF DB $FF, $FF //
00854822 FFFF DB $FF, $FF //
00854824 0500000020 add eax, +$20000000
00854829 53 push ebx
0085482A 657420 jz 0085484D
0085482D 0000 add [eax], al
0085482F 00FF add bh, bh
00854831 FFFF DB $FF, $FF //
00854833 FF02 inc dword ptr [edx]
00854835 0000 add [eax], al
00854837 003D270000FF add [$FF000027], bh
0085483D FFFF DB $FF, $FF //
0085483F FF01 inc dword ptr [ecx]
00854841 0000 add [eax], al
00854843 0027 add [edi], ah
00854845 0000 add [eax], al
00854847 00FF add bh, bh
00854849 FFFF DB $FF, $FF //
0085484B FF050000003D inc dword ptr [$3D000000]
00854851 4E dec esi
00854852 55 push ebp
00854853 4C dec esp
00854854 4C dec esp
00854855 0000 add [eax], al
00854857 00FF add bh, bh
00854859 FFFF DB $FF, $FF //
0085485B FF09 dec dword ptr [ecx]
0085485D 0000 add [eax], al
0085485F 002C4564697465 add [$65746964+eax*2], ch
00854866 723D jb 008548A5
00854868 27 daa
00854869 0000 add [eax], al
0085486B 00FF add bh, bh
0085486D FFFF DB $FF, $FF //
0085486F FF1400 call dword ptr [eax+eax]
00854872 0000 add [eax], al
00854874 2C45 sub al, $45
00854876 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0085487F 657464 jz 008548E6
00854882 61 popa
00854883 7465 jz 008548EA
00854885 2829 sub [ecx], ch
00854887 2000 and [eax], al
00854889 0000 add [eax], al
0085488B 00FF add bh, bh
0085488D FFFF DB $FF, $FF //
0085488F FF0D00000020 dec dword ptr [$20000000]
00854895 7768 jnbe 008548FF
00854897 657265 jb 008548FF
0085489A 205946 and [ecx+$46], bl
0085489D 49 dec ecx
0085489E 643D27000000 cmp eax, $00000027
008548A4 FFFF DB $FF, $FF //
008548A6 FFFF DB $FF, $FF //
008548A8 0400 add al, +$00
008548AA 0000 add [eax], al
008548AC 59 pop ecx
008548AD 46 inc esi
008548AE 49 dec ecx
008548AF 640000 add fs:[eax], al
008548B2 0000 add [eax], al
008548B4 55 push ebp
008548B5 8BEC mov ebp, esp
008548B7 B90C000000 mov ecx, $0000000C
008548BC 6A00 push $00
008548BE 6A00 push $00
008548C0 49 dec ecx
008548C1 75F9 jnz 008548BC
008548C3 51 push ecx
008548C4 56 push esi
008548C5 57 push edi
008548C6 8BF8 mov edi, eax
008548C8 33C0 xor eax, eax
008548CA 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^<5E><>]<5D>'
|
008548CB 68F04A8500 push $00854AF0
***** TRY
|
008548D0 64FF30 push dword ptr fs:[eax]
008548D3 648920 mov fs:[eax], esp
008548D6 33C0 xor eax, eax
008548D8 55 push ebp
* Possible String Reference to: '<27>a'
|
008548D9 688E4A8500 push $00854A8E
***** TRY
|
008548DE 64FF30 push dword ptr fs:[eax]
008548E1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB._PROC_00854FB9(Sender : TObject);
begin
(*
00854FB9 50 push eax
00854FBA 6461 popa
00854FBC 7465 jz 00855023
00854FBE 205946 and [ecx+$46], bl
00854FC1 5F pop edi
00854FC2 4D dec ebp
00854FC3 6F outsd
00854FC4 6E outsb
00854FC5 65795F jns 00855027
00854FC8 43 inc ebx
00854FC9 52 push edx
00854FCA 2000 and [eax], al
00854FCC FFFF DB $FF, $FF //
00854FCE FFFF DB $FF, $FF //
00854FD0 0D00000020 or eax, $20000000
00854FD5 53 push ebx
00854FD6 657420 jz 00854FF9
00854FD9 59 pop ecx
00854FDA 46 inc esi
00854FDB 43 inc ebx
00854FDC 6F outsd
00854FDD 64653D27000000 cmp eax, $00000027
00854FE4 FFFF DB $FF, $FF //
00854FE6 FFFF DB $FF, $FF //
00854FE8 0100 add [eax], eax
00854FEA 0000 add [eax], al
00854FEC 27 daa
00854FED 0000 add [eax], al
00854FEF 00FF add bh, bh
00854FF1 FFFF DB $FF, $FF //
00854FF3 FF0A dec dword ptr [edx]
00854FF5 0000 add [eax], al
00854FF7 0020 add [eax], ah
00854FF9 2C59 sub al, $59
00854FFB 46 inc esi
00854FFC 4E dec esi
00854FFD 61 popa
00854FFE 6D insd
00854FFF 653D270000FF cmp eax, $FF000027
00855005 FFFF DB $FF, $FF //
00855007 FF09 dec dword ptr [ecx]
00855009 0000 add [eax], al
0085500B 002C4564697465 add [$65746964+eax*2], ch
00855012 723D jb 00855051
00855014 27 daa
00855015 0000 add [eax], al
00855017 00FF add bh, bh
00855019 FFFF DB $FF, $FF //
0085501B FF1400 call dword ptr [eax+eax]
0085501E 0000 add [eax], al
00855020 2C45 sub al, $45
00855022 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0085502B 657464 jz 00855092
0085502E 61 popa
0085502F 7465 jz 00855096
00855031 2829 sub [ecx], ch
00855033 2000 and [eax], al
00855035 0000 add [eax], al
00855037 00FF add bh, bh
00855039 FFFF DB $FF, $FF //
0085503B FF0D00000020 dec dword ptr [$20000000]
00855041 7768 jnbe 008550AB
00855043 657265 jb 008550AB
00855046 205946 and [ecx+$46], bl
00855049 49 dec ecx
0085504A 643D27000000 cmp eax, $00000027
00855050 FFFF DB $FF, $FF //
00855052 FFFF DB $FF, $FF //
00855054 0400 add al, +$00
00855056 0000 add [eax], al
00855058 59 pop ecx
00855059 46 inc esi
0085505A 49 dec ecx
0085505B 640000 add fs:[eax], al
0085505E 0000 add [eax], al
00855060 55 push ebp
00855061 8BEC mov ebp, esp
00855063 51 push ecx
00855064 B906000000 mov ecx, $00000006
00855069 6A00 push $00
0085506B 6A00 push $00
0085506D 49 dec ecx
0085506E 75F9 jnz 00855069
00855070 51 push ecx
00855071 874DFC xchg [ebp-$04], ecx
00855074 53 push ebx
00855075 56 push esi
00855076 8BF0 mov esi, eax
00855078 33C0 xor eax, eax
0085507A 55 push ebp
* Possible String Reference to: '<27>6<EFBFBD><36><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0085507B 68B9528500 push $008552B9
***** TRY
|
00855080 64FF30 push dword ptr fs:[eax]
00855083 648920 mov fs:[eax], esp
00855086 33C0 xor eax, eax
00855088 55 push ebp
00855089 688F528500 push $0085528F
***** TRY
|
0085508E 64FF30 push dword ptr fs:[eax]
00855091 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB._PROC_008552D6(Sender : TObject);
begin
(*
008552D6 6E outsb
008552D7 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
008552DF FF08 dec dword ptr [eax]
008552E1 0000 add [eax], al
*)
end;
procedure TfrmYSCRPB._PROC_0085530C(Sender : TObject);
begin
(*
0085530C 6E outsb
0085530D 697400FFFFFFFF13 imul esi, [eax+eax-$01], $13FFFFFF
00855315 0000 add [eax], al
*)
end;
procedure TfrmYSCRPB._PROC_00855319(Sender : TObject);
begin
(*
00855319 50 push eax
0085531A 6461 popa
0085531C 7465 jz 00855383
0085531E 205946 and [ecx+$46], bl
00855321 5F pop edi
00855322 4D dec ebp
00855323 6F outsd
00855324 6E outsb
00855325 65795F jns 00855387
00855328 43 inc ebx
00855329 52 push edx
0085532A 2000 and [eax], al
0085532C FFFF DB $FF, $FF //
0085532E FFFF DB $FF, $FF //
00855330 0E push cs
00855331 0000 add [eax], al
00855333 0020 add [eax], ah
00855335 53 push ebx
00855336 657420 jz 00855359
00855339 51 push ecx
0085533A 7479 jz 008553B5
0085533C 55 push ebp
0085533D 6E outsb
0085533E 69743D270000FFFF imul esi, [ebp+edi+$27], $FFFF0000
00855346 FFFF DB $FF, $FF //
00855348 07 pop es
00855349 0000 add [eax], al
0085534B 005A64 add [edx+$64], bl
0085534E 794E jns 0085539E
00855350 61 popa
00855351 6D insd
00855352 6500FF add bh, bh
00855355 FFFF DB $FF, $FF //
00855357 FF01 inc dword ptr [ecx]
00855359 0000 add [eax], al
0085535B 0027 add [edi], ah
0085535D 0000 add [eax], al
0085535F 00FF add bh, bh
00855361 FFFF DB $FF, $FF //
00855363 FF09 dec dword ptr [ecx]
00855365 0000 add [eax], al
00855367 002C4564697465 add [$65746964+eax*2], ch
0085536E 723D jb 008553AD
00855370 27 daa
00855371 0000 add [eax], al
00855373 00FF add bh, bh
00855375 FFFF DB $FF, $FF //
00855377 FF1400 call dword ptr [eax+eax]
0085537A 0000 add [eax], al
0085537C 2C45 sub al, $45
0085537E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00855387 657464 jz 008553EE
0085538A 61 popa
0085538B 7465 jz 008553F2
0085538D 2829 sub [ecx], ch
0085538F 2000 and [eax], al
00855391 0000 add [eax], al
00855393 00FF add bh, bh
00855395 FFFF DB $FF, $FF //
00855397 FF0D00000020 dec dword ptr [$20000000]
0085539D 7768 jnbe 00855407
0085539F 657265 jb 00855407
008553A2 205946 and [ecx+$46], bl
008553A5 49 dec ecx
008553A6 643D27000000 cmp eax, $00000027
008553AC FFFF DB $FF, $FF //
008553AE FFFF DB $FF, $FF //
008553B0 0400 add al, +$00
008553B2 0000 add [eax], al
008553B4 59 pop ecx
008553B5 46 inc esi
008553B6 49 dec ecx
008553B7 640000 add fs:[eax], al
008553BA 0000 add [eax], al
008553BC 55 push ebp
008553BD 8BEC mov ebp, esp
008553BF 51 push ecx
008553C0 B907000000 mov ecx, $00000007
008553C5 6A00 push $00
008553C7 6A00 push $00
008553C9 49 dec ecx
008553CA 75F9 jnz 008553C5
008553CC 51 push ecx
008553CD 874DFC xchg [ebp-$04], ecx
008553D0 53 push ebx
008553D1 56 push esi
008553D2 8BF0 mov esi, eax
008553D4 33C0 xor eax, eax
008553D6 55 push ebp
* Possible String Reference to: '<27>~<7E><><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
008553D7 6871568500 push $00855671
***** TRY
|
008553DC 64FF30 push dword ptr fs:[eax]
008553DF 648920 mov fs:[eax], esp
* Reference to control Label20 : N.A.
|
008553E2 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFType'
|
008553E8 BA88568500 mov edx, $00855688
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008553ED E8C217C7FF call 004C6BB4
008553F2 8D55F8 lea edx, [ebp-$08]
008553F5 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008553F7 FF5160 call dword ptr [ecx+$60]
008553FA 8B45F8 mov eax, [ebp-$08]
008553FD 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00855400 E8E754BBFF call 0040A8EC
00855405 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00855408 BA98568500 mov edx, $00855698
* Reference to: System.@LStrCmp;
|
0085540D E82E03BBFF call 00405740
00855412 751D jnz 00855431
00855414 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00855416 B9A4568500 mov ecx, $008556A4
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
0085541B BAAC568500 mov edx, $008556AC
*)
end;
procedure TfrmYSCRPB._PROC_00855715(Sender : TObject);
begin
(*
00855715 50 push eax
00855716 6461 popa
00855718 7465 jz 0085577F
0085571A 205946 and [ecx+$46], bl
0085571D 5F pop edi
0085571E 4D dec ebp
0085571F 6F outsd
00855720 6E outsb
00855721 65795F jns 00855783
00855724 43 inc ebx
00855725 52 push edx
00855726 2000 and [eax], al
00855728 FFFF DB $FF, $FF //
0085572A FFFF DB $FF, $FF //
0085572C 1100 adc [eax], eax
0085572E 0000 add [eax], al
00855730 205365 and [ebx+$65], dl
00855733 7420 jz 00855755
00855735 50 push eax
00855736 5F pop edi
00855737 43 inc ebx
00855738 6F outsd
00855739 64654E dec esi
0085573C 61 popa
0085573D 6D insd
0085573E 653D27000000 cmp eax, $00000027
00855744 FFFF DB $FF, $FF //
00855746 FFFF DB $FF, $FF //
00855748 07 pop es
00855749 0000 add [eax], al
0085574B 005A64 add [edx+$64], bl
0085574E 794E jns 0085579E
00855750 61 popa
00855751 6D insd
00855752 6500FF add bh, bh
00855755 FFFF DB $FF, $FF //
00855757 FF01 inc dword ptr [ecx]
00855759 0000 add [eax], al
0085575B 0027 add [edi], ah
0085575D 0000 add [eax], al
0085575F 00FF add bh, bh
00855761 FFFF DB $FF, $FF //
00855763 FF09 dec dword ptr [ecx]
00855765 0000 add [eax], al
00855767 002C4564697465 add [$65746964+eax*2], ch
0085576E 723D jb 008557AD
00855770 27 daa
00855771 0000 add [eax], al
00855773 00FF add bh, bh
00855775 FFFF DB $FF, $FF //
00855777 FF1400 call dword ptr [eax+eax]
0085577A 0000 add [eax], al
0085577C 2C45 sub al, $45
0085577E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00855787 657464 jz 008557EE
0085578A 61 popa
0085578B 7465 jz 008557F2
0085578D 2829 sub [ecx], ch
0085578F 2000 and [eax], al
00855791 0000 add [eax], al
00855793 00FF add bh, bh
00855795 FFFF DB $FF, $FF //
00855797 FF0D00000020 dec dword ptr [$20000000]
0085579D 7768 jnbe 00855807
0085579F 657265 jb 00855807
008557A2 205946 and [ecx+$46], bl
008557A5 49 dec ecx
008557A6 643D27000000 cmp eax, $00000027
008557AC FFFF DB $FF, $FF //
008557AE FFFF DB $FF, $FF //
008557B0 0400 add al, +$00
008557B2 0000 add [eax], al
008557B4 59 pop ecx
008557B5 46 inc esi
008557B6 49 dec ecx
008557B7 640000 add fs:[eax], al
008557BA 0000 add [eax], al
008557BC 53 push ebx
008557BD 8BD8 mov ebx, eax
* Reference to control ToolButton1 : TToolButton
|
008557BF 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
008557C5 E8F626C7FF call 004C7EC0
008557CA 84C0 test al, al
008557CC 7516 jnz 008557E4
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>б<EFBFBD>'
|
008557CE B9F0578500 mov ecx, $008557F0
* Reference to control ToolButton1 : TToolButton
|
008557D3 8B9320030000 mov edx, [ebx+$0320]
* Reference to control ADOTemp : N.A.
|
008557D9 8B833C030000 mov eax, [ebx+$033C]
|
008557DF E84C2AF6FF call 007B8230
008557E4 5B pop ebx
008557E5 C3 ret
008557E6 0000 add [eax], al
008557E8 FFFF DB $FF, $FF //
008557EA FFFF DB $FF, $FF //
008557EC 0A00 or al, byte ptr [eax]
008557EE 0000 add [eax], al
008557F0 D3A6CAD5BFEE shl dword ptr [esi+$EEBFD5CA], cl
008557F6 C1D0B1 rcl eax, $B1
008557F9 ED in eax, dx
008557FA 0000 add [eax], al
008557FC 55 push ebp
008557FD 8BEC mov ebp, esp
008557FF 51 push ecx
00855800 B922000000 mov ecx, $00000022
00855805 6A00 push $00
00855807 6A00 push $00
00855809 49 dec ecx
0085580A 75F9 jnz 00855805
0085580C 874DFC xchg [ebp-$04], ecx
0085580F 53 push ebx
00855810 8945FC mov [ebp-$04], eax
00855813 33C0 xor eax, eax
00855815 55 push ebp
00855816 68515F8500 push $00855F51
***** TRY
|
0085581B 64FF30 push dword ptr fs:[eax]
0085581E 648920 mov fs:[eax], esp
00855821 33C0 xor eax, eax
00855823 55 push ebp
00855824 689D5E8500 push $00855E9D
***** TRY
|
00855829 64FF30 push dword ptr fs:[eax]
0085582C 648920 mov fs:[eax], esp
*)
end;
procedure TfrmYSCRPB._PROC_0085601D(Sender : TObject);
begin
(*
0085601D 50 push eax
0085601E 6461 popa
00856020 7465 jz 00856087
00856022 205946 and [ecx+$46], bl
00856025 5F pop edi
00856026 4D dec ebp
00856027 6F outsd
00856028 6E outsb
00856029 65795F jns 0085608B
0085602C 43 inc ebx
0085602D 52 push edx
0085602E 2000 and [eax], al
00856030 FFFF DB $FF, $FF //
00856032 FFFF DB $FF, $FF //
00856034 0D00000020 or eax, $20000000
00856039 53 push ebx
0085603A 657420 jz 0085605D
0085603D 4D dec ebp
0085603E 61 popa
0085603F 696E49643D2700 imul ebp, [esi+$49], $00273D64
00856046 0000 add [eax], al
00856048 FFFF DB $FF, $FF //
0085604A FFFF DB $FF, $FF //
0085604C 0100 add [eax], eax
0085604E 0000 add [eax], al
00856050 27 daa
00856051 0000 add [eax], al
00856053 00FF add bh, bh
00856055 FFFF DB $FF, $FF //
00856057 FF09 dec dword ptr [ecx]
00856059 0000 add [eax], al
0085605B 0020 add [eax], ah
0085605D 2C53 sub al, $53
0085605F 7562 jnz 008560C3
00856061 49 dec ecx
00856062 643D27000000 cmp eax, $00000027
00856068 FFFF DB $FF, $FF //
0085606A FFFF DB $FF, $FF //
0085606C 0500000053 add eax, +$53000000
00856071 7562 jnz 008560D5
00856073 49 dec ecx
00856074 640000 add fs:[eax], al
00856077 00FF add bh, bh
00856079 FFFF DB $FF, $FF //
0085607B FF0E dec dword ptr [esi]
0085607D 0000 add [eax], al
0085607F 0020 add [eax], ah
00856081 2C70 sub al, $70
00856083 5F pop edi
00856084 43 inc ebx
00856085 6F outsd
00856086 64654E dec esi
00856089 61 popa
0085608A 6D insd
0085608B 653D270000FF cmp eax, $FF000027
00856091 FFFF DB $FF, $FF //
00856093 FF09 dec dword ptr [ecx]
00856095 0000 add [eax], al
00856097 0020 add [eax], ah
00856099 2C43 sub al, $43
0085609B 6F outsd
0085609C 6E outsb
0085609D 4E dec esi
0085609E 4F dec edi
0085609F 3D27000000 cmp eax, $00000027
008560A4 FFFF DB $FF, $FF //
008560A6 FFFF DB $FF, $FF //
008560A8 0A00 or al, byte ptr [eax]
008560AA 0000 add [eax], al
008560AC 202C50 and [eax+edx*2], ch
008560AF 5F pop edi
008560B0 53 push ebx
008560B1 7065 jo 00856118
008560B3 633D270000FF arpl [$FF000027], di
008560B9 FFFF DB $FF, $FF //
008560BB FF0B dec dword ptr [ebx]
008560BD 0000 add [eax], al
008560BF 0020 add [eax], ah
008560C1 2C4F sub al, $4F
008560C3 7264 jb 00856129
008560C5 65724E jb 00856116
008560C8 6F outsd
008560C9 3D2700FFFF cmp eax, $FFFF0027
008560CE FFFF DB $FF, $FF //
008560D0 0D00000020 or eax, $20000000
008560D5 2C43 sub al, $43
008560D7 6F outsd
008560D8 6D insd
008560D9 54 push esp
008560DA 61 popa
008560DB 69746F753D270000 imul esi, [edi+ebp*2+$75], $0000273D
008560E3 00FF add bh, bh
008560E5 FFFF DB $FF, $FF //
008560E7 FF09 dec dword ptr [ecx]
008560E9 0000 add [eax], al
008560EB 002C4564697465 add [$65746964+eax*2], ch
008560F2 723D jb 00856131
008560F4 27 daa
008560F5 0000 add [eax], al
008560F7 00FF add bh, bh
008560F9 FFFF DB $FF, $FF //
008560FB FF1400 call dword ptr [eax+eax]
008560FE 0000 add [eax], al
00856100 2C45 sub al, $45
00856102 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0085610B 657464 jz 00856172
0085610E 61 popa
0085610F 7465 jz 00856176
00856111 2829 sub [ecx], ch
00856113 2000 and [eax], al
00856115 0000 add [eax], al
00856117 00FF add bh, bh
00856119 FFFF DB $FF, $FF //
0085611B FF0D00000020 dec dword ptr [$20000000]
00856121 7768 jnbe 0085618B
00856123 657265 jb 0085618B
00856126 205946 and [ecx+$46], bl
00856129 49 dec ecx
0085612A 643D27000000 cmp eax, $00000027
00856130 FFFF DB $FF, $FF //
00856132 FFFF DB $FF, $FF //
00856134 0400 add al, +$00
00856136 0000 add [eax], al
00856138 59 pop ecx
00856139 46 inc esi
0085613A 49 dec ecx
0085613B 640000 add fs:[eax], al
0085613E 0000 add [eax], al
00856140 55 push ebp
00856141 8BEC mov ebp, esp
00856143 B909000000 mov ecx, $00000009
00856148 6A00 push $00
0085614A 6A00 push $00
0085614C 49 dec ecx
0085614D 75F9 jnz 00856148
0085614F 53 push ebx
00856150 56 push esi
00856151 8BDA mov ebx, edx
00856153 8BF0 mov esi, eax
00856155 33C0 xor eax, eax
00856157 55 push ebp
00856158 6877638500 push $00856377
***** TRY
|
0085615D 64FF30 push dword ptr fs:[eax]
00856160 648920 mov fs:[eax], esp
* Possible String Reference to: 'YFType'
|
00856163 BA8C638500 mov edx, $0085638C
* Reference to control Label20 : N.A.
|
00856168 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0085616E E8410AC7FF call 004C6BB4
00856173 8D55F0 lea edx, [ebp-$10]
00856176 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00856178 FF5160 call dword ptr [ecx+$60]
0085617B 8B45F0 mov eax, [ebp-$10]
0085617E 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856181 E86647BBFF call 0040A8EC
00856186 8B45F4 mov eax, [ebp-$0C]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>'
|
00856189 BA9C638500 mov edx, $0085639C
* Reference to: System.@LStrCmp;
|
0085618E E8ADF5BAFF call 00405740
00856193 751D jnz 008561B2
00856195 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00856197 B9A8638500 mov ecx, $008563A8
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD>ɵ<EFBFBD><C9B5><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>!'
|
0085619C BAB0638500 mov edx, $008563B0
*)
end;
procedure TfrmYSCRPB._PROC_008563DD(Sender : TObject);
begin
(*
008563DD 50 push eax
008563DE 6461 popa
008563E0 7465 jz 00856447
008563E2 205946 and [ecx+$46], bl
008563E5 5F pop edi
008563E6 4D dec ebp
008563E7 6F outsd
008563E8 6E outsb
008563E9 65795F jns 0085644B
008563EC 43 inc ebx
008563ED 52 push edx
008563EE 2000 and [eax], al
008563F0 FFFF DB $FF, $FF //
008563F2 FFFF DB $FF, $FF //
008563F4 0500000020 add eax, +$20000000
008563F9 53 push ebx
008563FA 657420 jz 0085641D
008563FD 0000 add [eax], al
008563FF 00FF add bh, bh
00856401 FFFF DB $FF, $FF //
00856403 FF01 inc dword ptr [ecx]
00856405 0000 add [eax], al
00856407 003D000000FF add [$FF000000], bh
0085640D FFFF DB $FF, $FF //
0085640F FF09 dec dword ptr [ecx]
00856411 0000 add [eax], al
00856413 002C4564697465 add [$65746964+eax*2], ch
0085641A 723D jb 00856459
0085641C 27 daa
0085641D 0000 add [eax], al
0085641F 00FF add bh, bh
00856421 FFFF DB $FF, $FF //
00856423 FF01 inc dword ptr [ecx]
00856425 0000 add [eax], al
00856427 0027 add [edi], ah
00856429 0000 add [eax], al
0085642B 00FF add bh, bh
0085642D FFFF DB $FF, $FF //
0085642F FF1400 call dword ptr [eax+eax]
00856432 0000 add [eax], al
00856434 2C45 sub al, $45
00856436 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0085643F 657464 jz 008564A6
00856442 61 popa
00856443 7465 jz 008564AA
00856445 2829 sub [ecx], ch
00856447 2000 and [eax], al
00856449 0000 add [eax], al
0085644B 00FF add bh, bh
0085644D FFFF DB $FF, $FF //
0085644F FF0D00000020 dec dword ptr [$20000000]
00856455 7768 jnbe 008564BF
00856457 657265 jb 008564BF
0085645A 205946 and [ecx+$46], bl
0085645D 49 dec ecx
0085645E 643D27000000 cmp eax, $00000027
00856464 FFFF DB $FF, $FF //
00856466 FFFF DB $FF, $FF //
00856468 0400 add al, +$00
0085646A 0000 add [eax], al
0085646C 59 pop ecx
0085646D 46 inc esi
0085646E 49 dec ecx
0085646F 640000 add fs:[eax], al
00856472 0000 add [eax], al
00856474 55 push ebp
00856475 8BEC mov ebp, esp
00856477 B907000000 mov ecx, $00000007
0085647C 6A00 push $00
0085647E 6A00 push $00
00856480 49 dec ecx
00856481 75F9 jnz 0085647C
00856483 51 push ecx
00856484 53 push ebx
00856485 56 push esi
00856486 8BDA mov ebx, edx
00856488 8BF0 mov esi, eax
0085648A 33C0 xor eax, eax
0085648C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0085648D 6844668500 push $00856644
***** TRY
|
00856492 64FF30 push dword ptr fs:[eax]
00856495 648920 mov fs:[eax], esp
00856498 8D55FC lea edx, [ebp-$04]
0085649B 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;
|
0085649D E81A92D3FF call 0058F6BC
* Reference to control ADOTemp : N.A.
|
008564A2 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
008564A8 E89F5EE0FF 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;
|
008564AD E8B2B6DFFF call 00651B64
* Reference to field N.A..OFFS_0050
|
008564B2 8B4050 mov eax, [eax+$50]
008564B5 8D55F4 lea edx, [ebp-$0C]
008564B8 8B08 mov ecx, [eax]
008564BA FF5110 call dword ptr [ecx+$10]
008564BD 8B45F4 mov eax, [ebp-$0C]
008564C0 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008564C3 E82444BBFF call 0040A8EC
* Reference to control Label20 : N.A.
|
008564C8 8B9E6C030000 mov ebx, [esi+$036C]
008564CE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
008564D0 E86B1FC7FF call 004C8440
008564D5 8D55E0 lea edx, [ebp-$20]
008564D8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008564DB E80C44BBFF call 0040A8EC
008564E0 8B55E0 mov edx, [ebp-$20]
008564E3 8D45E4 lea eax, [ebp-$1C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
008564E6 E8DD28BCFF call 00418DC8
008564EB 8D45E4 lea eax, [ebp-$1C]
008564EE 50 push eax
008564EF 8B55F8 mov edx, [ebp-$08]
008564F2 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008564F4 E8BB06C7FF call 004C6BB4
008564F9 5A pop edx
008564FA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
008564FC FF91B4000000 call dword ptr [ecx+$00B4]
00856502 8BC3 mov eax, ebx
00856504 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00856506 FF924C020000 call dword ptr [edx+$024C]
* Reference to control OrdDate : N.A.
|
0085650C 8B9E0C030000 mov ebx, [esi+$030C]
00856512 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00856514 E8BBF3C6FF call 004C58D4
00856519 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;
|
0085651B E88C7AC8FF call 004DDFAC
00856520 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00856522 FF5244 call dword ptr [edx+$44]
00856525 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;
|
00856527 E8807AC8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0085652C BA5C668500 mov edx, $0085665C
00856531 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00856533 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00856536 6878668500 push $00856678
0085653B FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '=''
|
0085653E 6888668500 push $00856688
00856543 8D55D8 lea edx, [ebp-$28]
00856546 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856549 E89E43BBFF call 0040A8EC
0085654E FF75D8 push dword ptr [ebp-$28]
00856551 6894668500 push $00856694
00856556 8D45DC lea eax, [ebp-$24]
00856559 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
0085655E E851F1BAFF call 004056B4
00856563 8B45DC mov eax, [ebp-$24]
00856566 50 push eax
00856567 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;
|
00856569 E83E7AC8FF call 004DDFAC
0085656E 5A pop edx
0085656F 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00856571 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
00856574 68A0668500 push $008566A0
00856579 8D55D0 lea edx, [ebp-$30]
*)
end;
procedure TfrmYSCRPB._PROC_0085665D(Sender : TObject);
begin
(*
0085665D 50 push eax
0085665E 6461 popa
00856660 7465 jz 008566C7
00856662 205946 and [ecx+$46], bl
00856665 5F pop edi
00856666 4D dec ebp
00856667 6F outsd
00856668 6E outsb
00856669 65795F jns 008566CB
0085666C 43 inc ebx
0085666D 52 push edx
0085666E 2000 and [eax], al
00856670 FFFF DB $FF, $FF //
00856672 FFFF DB $FF, $FF //
00856674 0500000020 add eax, +$20000000
00856679 53 push ebx
0085667A 657420 jz 0085669D
0085667D 0000 add [eax], al
0085667F 00FF add bh, bh
00856681 FFFF DB $FF, $FF //
00856683 FF02 inc dword ptr [edx]
00856685 0000 add [eax], al
00856687 003D270000FF add [$FF000027], bh
0085668D FFFF DB $FF, $FF //
0085668F FF01 inc dword ptr [ecx]
00856691 0000 add [eax], al
00856693 0027 add [edi], ah
00856695 0000 add [eax], al
00856697 00FF add bh, bh
00856699 FFFF DB $FF, $FF //
0085669B FF09 dec dword ptr [ecx]
0085669D 0000 add [eax], al
0085669F 002C4564697465 add [$65746964+eax*2], ch
008566A6 723D jb 008566E5
008566A8 27 daa
008566A9 0000 add [eax], al
008566AB 00FF add bh, bh
008566AD FFFF DB $FF, $FF //
008566AF FF1400 call dword ptr [eax+eax]
008566B2 0000 add [eax], al
008566B4 2C45 sub al, $45
008566B6 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
008566BF 657464 jz 00856726
008566C2 61 popa
008566C3 7465 jz 0085672A
008566C5 2829 sub [ecx], ch
008566C7 2000 and [eax], al
008566C9 0000 add [eax], al
008566CB 00FF add bh, bh
008566CD FFFF DB $FF, $FF //
008566CF FF0D00000020 dec dword ptr [$20000000]
008566D5 7768 jnbe 0085673F
008566D7 657265 jb 0085673F
008566DA 205946 and [ecx+$46], bl
008566DD 49 dec ecx
008566DE 643D27000000 cmp eax, $00000027
008566E4 FFFF DB $FF, $FF //
008566E6 FFFF DB $FF, $FF //
008566E8 0400 add al, +$00
008566EA 0000 add [eax], al
008566EC 59 pop ecx
008566ED 46 inc esi
008566EE 49 dec ecx
008566EF 640000 add fs:[eax], al
008566F2 0000 add [eax], al
008566F4 55 push ebp
008566F5 8BEC mov ebp, esp
008566F7 B90C000000 mov ecx, $0000000C
008566FC 6A00 push $00
008566FE 6A00 push $00
00856700 49 dec ecx
00856701 75F9 jnz 008566FC
00856703 53 push ebx
00856704 56 push esi
00856705 8BDA mov ebx, edx
00856707 8BF0 mov esi, eax
00856709 33C0 xor eax, eax
0085670B 55 push ebp
0085670C 68EB698500 push $008569EB
***** TRY
|
00856711 64FF30 push dword ptr fs:[eax]
00856714 648920 mov fs:[eax], esp
00856717 8D55FC lea edx, [ebp-$04]
0085671A 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;
|
0085671C E89B8FD3FF call 0058F6BC
00856721 8D55EC lea edx, [ebp-$14]
00856724 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856727 E8C041BBFF call 0040A8EC
0085672C 837DEC00 cmp dword ptr [ebp-$14], +$00
00856730 750D jnz 0085673F
00856732 8D45FC lea eax, [ebp-$04]
00856735 BA006A8500 mov edx, $00856A00
* Reference to: System.@LStrLAsg(void;void;void;void);
|
0085673A E87DECBAFF call 004053BC
* Reference to control ADOTemp : N.A.
|
0085673F 8B863C030000 mov eax, [esi+$033C]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
00856745 E8025CE0FF 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;
|
0085674A E815B4DFFF call 00651B64
* Reference to field N.A..OFFS_0050
|
0085674F 8B4050 mov eax, [eax+$50]
00856752 8D55E8 lea edx, [ebp-$18]
00856755 8B08 mov ecx, [eax]
00856757 FF5110 call dword ptr [ecx+$10]
0085675A 8B45E8 mov eax, [ebp-$18]
0085675D 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856760 E88741BBFF call 0040A8EC
* Reference to control Label20 : N.A.
|
00856765 8B9E6C030000 mov ebx, [esi+$036C]
0085676B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0085676D E8CE1CC7FF call 004C8440
00856772 8D55D4 lea edx, [ebp-$2C]
00856775 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856778 E86F41BBFF call 0040A8EC
0085677D 8B55D4 mov edx, [ebp-$2C]
00856780 8D45D8 lea eax, [ebp-$28]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
00856783 E84026BCFF call 00418DC8
00856788 8D45D8 lea eax, [ebp-$28]
0085678B 50 push eax
0085678C 8B55F0 mov edx, [ebp-$10]
0085678F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00856791 E81E04C7FF call 004C6BB4
00856796 5A pop edx
00856797 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00856799 FF91B4000000 call dword ptr [ecx+$00B4]
0085679F 8BC3 mov eax, ebx
008567A1 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
008567A3 FF924C020000 call dword ptr [edx+$024C]
* Reference to control Label3 : TLabel
|
008567A9 8B9E08030000 mov ebx, [esi+$0308]
008567AF 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008567B1 E81EF1C6FF call 004C58D4
008567B6 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008567B8 E8EF77C8FF call 004DDFAC
008567BD 8B10 mov edx, [eax]
* Reference to method TLabel.GetClientRect()
|
008567BF FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select isnull(KPMoney,0) KPMoney fr
| om YF_Money_CR where YFID=''
|
008567C2 680C6A8500 push $00856A0C
* Possible String Reference to: 'YFID'
|
008567C7 BA546A8500 mov edx, $00856A54
* Reference to control Label20 : N.A.
|
008567CC 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008567D2 E8DD03C7FF call 004C6BB4
008567D7 8D55CC lea edx, [ebp-$34]
008567DA 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
008567DC FF5160 call dword ptr [ecx+$60]
008567DF FF75CC push dword ptr [ebp-$34]
008567E2 68646A8500 push $00856A64
008567E7 8D45D0 lea eax, [ebp-$30]
008567EA BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
008567EF E8C0EEBAFF call 004056B4
008567F4 8B45D0 mov eax, [ebp-$30]
008567F7 50 push eax
008567F8 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008567FA E8AD77C8FF call 004DDFAC
008567FF 5A pop edx
00856800 8B08 mov ecx, [eax]
* Reference to method TLabel.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00856802 FF5138 call dword ptr [ecx+$38]
00856805 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00856807 E8BCF0C6FF call 004C58C8
* Possible String Reference to: 'KPMoney'
|
0085680C BA706A8500 mov edx, $00856A70
* Reference to control Label3 : TLabel
|
00856811 8B8608030000 mov eax, [esi+$0308]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00856817 E89803C7FF call 004C6BB4
0085681C 8D55F4 lea edx, [ebp-$0C]
0085681F 8B08 mov ecx, [eax]
* Reference to method TLabel.SetDragMode(TDragMode)
|
00856821 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'KPMoney'
|
00856824 BA706A8500 mov edx, $00856A70
* Reference to control Label20 : N.A.
|
00856829 8B866C030000 mov eax, [esi+$036C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0085682F E88003C7FF call 004C6BB4
00856834 8D55F8 lea edx, [ebp-$08]
00856837 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00856839 FF5160 call dword ptr [ecx+$60]
* Reference to control OrdDate : N.A.
|
0085683C 8B9E0C030000 mov ebx, [esi+$030C]
00856842 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
00856844 E88BF0C6FF call 004C58D4
00856849 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;
|
0085684B E85C77C8FF call 004DDFAC
00856850 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_44
|
00856852 FF5244 call dword ptr [edx+$44]
00856855 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;
|
00856857 E85077C8FF call 004DDFAC
* Possible String Reference to: 'UPdate YF_Money_CR '
|
0085685C BA806A8500 mov edx, $00856A80
00856861 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
00856863 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' Set '
|
00856866 689C6A8500 push $00856A9C
0085686B FF75F0 push dword ptr [ebp-$10]
0085686E 68AC6A8500 push $00856AAC
00856873 8D55C4 lea edx, [ebp-$3C]
00856876 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00856879 E86E40BBFF call 0040A8EC
0085687E FF75C4 push dword ptr [ebp-$3C]
00856881 8D45C8 lea eax, [ebp-$38]
00856884 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
00856889 E826EEBAFF call 004056B4
0085688E 8B45C8 mov eax, [ebp-$38]
00856891 50 push eax
00856892 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;
|
00856894 E81377C8FF call 004DDFAC
00856899 5A pop edx
0085689A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_38
|
0085689C FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ',Editer=''
|
0085689F 68B86A8500 push $00856AB8
008568A4 8D55BC lea edx, [ebp-$44]
*)
end;
procedure TfrmYSCRPB._PROC_00856A81(Sender : TObject);
begin
(*
00856A81 50 push eax
00856A82 6461 popa
00856A84 7465 jz 00856AEB
00856A86 205946 and [ecx+$46], bl
00856A89 5F pop edi
00856A8A 4D dec ebp
00856A8B 6F outsd
00856A8C 6E outsb
00856A8D 65795F jns 00856AEF
00856A90 43 inc ebx
00856A91 52 push edx
00856A92 2000 and [eax], al
00856A94 FFFF DB $FF, $FF //
00856A96 FFFF DB $FF, $FF //
00856A98 0500000020 add eax, +$20000000
00856A9D 53 push ebx
00856A9E 657420 jz 00856AC1
00856AA1 0000 add [eax], al
00856AA3 00FF add bh, bh
00856AA5 FFFF DB $FF, $FF //
00856AA7 FF01 inc dword ptr [ecx]
00856AA9 0000 add [eax], al
00856AAB 003D000000FF add [$FF000000], bh
00856AB1 FFFF DB $FF, $FF //
00856AB3 FF09 dec dword ptr [ecx]
00856AB5 0000 add [eax], al
00856AB7 002C4564697465 add [$65746964+eax*2], ch
00856ABE 723D jb 00856AFD
00856AC0 27 daa
00856AC1 0000 add [eax], al
00856AC3 00FF add bh, bh
00856AC5 FFFF DB $FF, $FF //
00856AC7 FF1400 call dword ptr [eax+eax]
00856ACA 0000 add [eax], al
00856ACC 2C45 sub al, $45
00856ACE 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00856AD7 657464 jz 00856B3E
00856ADA 61 popa
00856ADB 7465 jz 00856B42
00856ADD 2829 sub [ecx], ch
00856ADF 2000 and [eax], al
00856AE1 0000 add [eax], al
00856AE3 00FF add bh, bh
00856AE5 FFFF DB $FF, $FF //
00856AE7 FF0D00000020 dec dword ptr [$20000000]
00856AED 7768 jnbe 00856B57
00856AEF 657265 jb 00856B57
00856AF2 205946 and [ecx+$46], bl
00856AF5 49 dec ecx
00856AF6 643D27000000 cmp eax, $00000027
00856AFC FFFF DB $FF, $FF //
00856AFE FFFF DB $FF, $FF //
00856B00 0400 add al, +$00
00856B02 0000 add [eax], al
00856B04 59 pop ecx
00856B05 46 inc esi
00856B06 49 dec ecx
00856B07 640000 add fs:[eax], al
00856B0A 0000 add [eax], al
00856B0C FFFF DB $FF, $FF //
00856B0E FFFF DB $FF, $FF //
00856B10 2B00 sub eax, dword ptr [eax]
00856B12 0000 add [eax], al
00856B14 55 push ebp
00856B15 7064 jo 00856B7B
00856B17 61 popa
00856B18 7465 jz 00856B7F
00856B1A 205946 and [ecx+$46], bl
00856B1D 5F pop edi
00856B1E 4D dec ebp
00856B1F 6F outsd
00856B20 6E outsb
00856B21 65795F jns 00856B83
00856B24 4B dec ebx
00856B25 43 inc ebx
00856B26 205365 and [ebx+$65], dl
00856B29 7420 jz 00856B4B
00856B2B 4B dec ebx
00856B2C 43 inc ebx
00856B2D 4B dec ebx
00856B2E 50 push eax
00856B2F 4D dec ebp
00856B30 6F outsd
00856B31 6E outsb
00856B32 65793D jns 00856B72
00856B35 4B dec ebx
00856B36 43 inc ebx
00856B37 4B dec ebx
00856B38 50 push eax
00856B39 4D dec ebp
00856B3A 6F outsd
00856B3B 6E outsb
00856B3C 65792D jns 00856B6C
00856B3F 00FF add bh, bh
00856B41 FFFF DB $FF, $FF //
00856B43 FF01 inc dword ptr [ecx]
00856B45 0000 add [eax], al
00856B47 002B add [ebx], ch
00856B49 0000 add [eax], al
00856B4B 00FF add bh, bh
00856B4D FFFF DB $FF, $FF //
00856B4F FF0D00000020 dec dword ptr [$20000000]
00856B55 7768 jnbe 00856BBF
00856B57 657265 jb 00856BBF
00856B5A 204352 and [ebx+$52], al
00856B5D 49 dec ecx
00856B5E 44 inc esp
00856B5F 3D27000000 cmp eax, $00000027
00856B64 FFFF DB $FF, $FF //
00856B66 FFFF DB $FF, $FF //
00856B68 0400 add al, +$00
00856B6A 0000 add [eax], al
00856B6C 43 inc ebx
00856B6D 52 push edx
00856B6E 49 dec ecx
00856B6F 44 inc esp
00856B70 0000 add [eax], al
00856B72 0000 add [eax], al
00856B74 55 push ebp
00856B75 8BEC mov ebp, esp
00856B77 B910000000 mov ecx, $00000010
00856B7C 6A00 push $00
00856B7E 6A00 push $00
00856B80 49 dec ecx
00856B81 75F9 jnz 00856B7C
00856B83 51 push ecx
00856B84 53 push ebx
00856B85 56 push esi
00856B86 57 push edi
00856B87 8945FC mov [ebp-$04], eax
00856B8A 33C0 xor eax, eax
00856B8C 55 push ebp
* Possible String Reference to: '<27><>ۺ<EFBFBD><DBBA><EFBFBD>_^[<5B><>]<5D>'
|
00856B8D 68056F8500 push $00856F05
***** TRY
|
00856B92 64FF30 push dword ptr fs:[eax]
00856B95 648920 mov fs:[eax], esp
00856B98 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
00856B9B 8B806C030000 mov eax, [eax+$036C]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00856BA1 E81A13C7FF call 004C7EC0
00856BA6 84C0 test al, al
00856BA8 0F85F1020000 jnz 00856E9F
00856BAE A0146F8500 mov al, byte ptr [$00856F14]
00856BB3 50 push eax
00856BB4 8D45EC lea eax, [ebp-$14]
00856BB7 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00856BB9 E8A621BCFF call 00418D64
00856BBE 8D4DEC lea ecx, [ebp-$14]
00856BC1 8B45FC mov eax, [ebp-$04]
* Reference to control Label20 : N.A.
|
00856BC4 8B806C030000 mov eax, [eax+$036C]
* Possible String Reference to: 'ssel'
|
00856BCA BA206F8500 mov edx, $00856F20
00856BCF 8B18 mov ebx, [eax]
* Possible reference to virtual method TN.A..OFFS_0244
|
00856BD1 FF9344020000 call dword ptr [ebx+$0244]
00856BD7 84C0 test al, al
00856BD9 751D jnz 00856BF8
00856BDB 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00856BDD B9286F8500 mov ecx, $00856F28
* Possible String Reference to: 'û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00856BE2 BA306F8500 mov edx, $00856F30
*)
end;
procedure TfrmYSCRPB._PROC_00857BD5(Sender : TObject);
begin
(*
00857BD5 50 push eax
00857BD6 6461 popa
00857BD8 7465 jz 00857C3F
00857BDA 205946 and [ecx+$46], bl
00857BDD 5F pop edi
00857BDE 4D dec ebp
00857BDF 6F outsd
00857BE0 6E outsb
00857BE1 65795F jns 00857C43
00857BE4 43 inc ebx
00857BE5 52 push edx
00857BE6 2000 and [eax], al
00857BE8 FFFF DB $FF, $FF //
00857BEA FFFF DB $FF, $FF //
00857BEC 1000 adc [eax], al
00857BEE 0000 add [eax], al
00857BF0 205365 and [ebx+$65], dl
00857BF3 7420 jz 00857C15
00857BF5 43 inc ebx
00857BF6 6F outsd
00857BF7 6D insd
00857BF8 54 push esp
00857BF9 61 popa
00857BFA 69546F753D270000 imul edx, [edi+ebp*2+$75], $0000273D
00857C02 0000 add [eax], al
00857C04 FFFF DB $FF, $FF //
00857C06 FFFF DB $FF, $FF //
00857C08 0100 add [eax], eax
00857C0A 0000 add [eax], al
00857C0C 27 daa
00857C0D 0000 add [eax], al
00857C0F 00FF add bh, bh
00857C11 FFFF DB $FF, $FF //
00857C13 FF09 dec dword ptr [ecx]
00857C15 0000 add [eax], al
00857C17 002C4564697465 add [$65746964+eax*2], ch
00857C1E 723D jb 00857C5D
00857C20 27 daa
00857C21 0000 add [eax], al
00857C23 00FF add bh, bh
00857C25 FFFF DB $FF, $FF //
00857C27 FF1400 call dword ptr [eax+eax]
00857C2A 0000 add [eax], al
00857C2C 2C45 sub al, $45
00857C2E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00857C37 657464 jz 00857C9E
00857C3A 61 popa
00857C3B 7465 jz 00857CA2
00857C3D 2829 sub [ecx], ch
00857C3F 2000 and [eax], al
00857C41 0000 add [eax], al
00857C43 00FF add bh, bh
00857C45 FFFF DB $FF, $FF //
00857C47 FF0D00000020 dec dword ptr [$20000000]
00857C4D 7768 jnbe 00857CB7
00857C4F 657265 jb 00857CB7
00857C52 205946 and [ecx+$46], bl
00857C55 49 dec ecx
00857C56 643D27000000 cmp eax, $00000027
00857C5C FFFF DB $FF, $FF //
00857C5E FFFF DB $FF, $FF //
00857C60 0400 add al, +$00
00857C62 0000 add [eax], al
00857C64 59 pop ecx
00857C65 46 inc esi
00857C66 49 dec ecx
00857C67 640000 add fs:[eax], al
00857C6A 0000 add [eax], al
00857C6C 53 push ebx
00857C6D 8BD8 mov ebx, eax
00857C6F 8BCB mov ecx, ebx
00857C71 B201 mov dl, $01
* Reference to class TfrmSXCKNewList_SK
|
00857C73 A1BCF57E00 mov eax, dword ptr [$007EF5BC]
* Reference to: Forms.TCustomForm.Create(TCustomForm;boolean;TComponent);
| or: QForms.TCustomForm.Create(TCustomForm;boolean;TComponent);
|
00857C78 E853A1C4FF call 004A1DD0
*)
end;
procedure TfrmYSCRPB._PROC_00858011(Sender : TObject);
begin
(*
00858011 50 push eax
00858012 6461 popa
00858014 7465 jz 0085807B
00858016 205946 and [ecx+$46], bl
00858019 5F pop edi
0085801A 4D dec ebp
0085801B 6F outsd
0085801C 6E outsb
0085801D 65795F jns 0085807F
00858020 43 inc ebx
00858021 52 push edx
00858022 2000 and [eax], al
00858024 FFFF DB $FF, $FF //
00858026 FFFF DB $FF, $FF //
00858028 0D00000020 or eax, $20000000
0085802D 53 push ebx
0085802E 657420 jz 00858051
00858031 50 push eax
00858032 5F pop edi
00858033 53 push ebx
00858034 7065 jo 0085809B
00858036 633D27000000 arpl [$00000027], di
0085803C FFFF DB $FF, $FF //
0085803E FFFF DB $FF, $FF //
00858040 07 pop es
00858041 0000 add [eax], al
00858043 005A64 add [edx+$64], bl
00858046 794E jns 00858096
00858048 61 popa
00858049 6D insd
0085804A 6500FF add bh, bh
0085804D FFFF DB $FF, $FF //
0085804F FF01 inc dword ptr [ecx]
00858051 0000 add [eax], al
00858053 0027 add [edi], ah
00858055 0000 add [eax], al
00858057 00FF add bh, bh
00858059 FFFF DB $FF, $FF //
0085805B FF09 dec dword ptr [ecx]
0085805D 0000 add [eax], al
0085805F 002C4564697465 add [$65746964+eax*2], ch
00858066 723D jb 008580A5
00858068 27 daa
00858069 0000 add [eax], al
0085806B 00FF add bh, bh
0085806D FFFF DB $FF, $FF //
0085806F FF1400 call dword ptr [eax+eax]
00858072 0000 add [eax], al
00858074 2C45 sub al, $45
00858076 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
0085807F 657464 jz 008580E6
00858082 61 popa
00858083 7465 jz 008580EA
00858085 2829 sub [ecx], ch
00858087 2000 and [eax], al
00858089 0000 add [eax], al
0085808B 00FF add bh, bh
0085808D FFFF DB $FF, $FF //
0085808F FF0D00000020 dec dword ptr [$20000000]
00858095 7768 jnbe 008580FF
00858097 657265 jb 008580FF
0085809A 205946 and [ecx+$46], bl
0085809D 49 dec ecx
0085809E 643D27000000 cmp eax, $00000027
008580A4 FFFF DB $FF, $FF //
008580A6 FFFF DB $FF, $FF //
008580A8 0400 add al, +$00
008580AA 0000 add [eax], al
008580AC 59 pop ecx
008580AD 46 inc esi
008580AE 49 dec ecx
008580AF 640000 add fs:[eax], al
008580B2 0000 add [eax], al
008580B4 53 push ebx
008580B5 56 push esi
008580B6 8BD8 mov ebx, eax
* Possible String Reference to: 'Qty'
|
008580B8 BA58818500 mov edx, $00858158
* Reference to control Label20 : N.A.
|
008580BD 8BB36C030000 mov esi, [ebx+$036C]
008580C3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008580C5 E8EAEAC6FF call 004C6BB4
008580CA 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
008580CC FF524C call dword ptr [edx+$4C]
008580CF D8355C818500 fdiv dword ptr [$0085815C]
008580D5 83C4F8 add esp, -$08
008580D8 DD1C24 fstp qword ptr [esp]
008580DB 9B wait
* Reference to control FaxNo : N.A.
|
008580DC 8B93E0030000 mov edx, [ebx+$03E0]
008580E2 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
008580E4 E8A7ECF5FF call 007B6D90
* Possible String Reference to: 'Money'
|
008580E9 BA68818500 mov edx, $00858168
* Reference to control Label20 : N.A.
|
008580EE 8BB36C030000 mov esi, [ebx+$036C]
008580F4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008580F6 E8B9EAC6FF call 004C6BB4
008580FB 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
008580FD FF524C call dword ptr [edx+$4C]
00858100 D8355C818500 fdiv dword ptr [$0085815C]
00858106 83C4F8 add esp, -$08
00858109 DD1C24 fstp qword ptr [esp]
0085810C 9B wait
* Reference to control DlyNote : N.A.
|
0085810D 8B93E4030000 mov edx, [ebx+$03E4]
00858113 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00858115 E876ECF5FF call 007B6D90
* Possible String Reference to: 'PS'
|
0085811A BA78818500 mov edx, $00858178
* Reference to control Label20 : N.A.
|
0085811F 8BB36C030000 mov esi, [ebx+$036C]
00858125 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00858127 E888EAC6FF call 004C6BB4
0085812C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_4C
|
0085812E FF524C call dword ptr [edx+$4C]
00858131 D8355C818500 fdiv dword ptr [$0085815C]
00858137 83C4F8 add esp, -$08
0085813A DD1C24 fstp qword ptr [esp]
0085813D 9B wait
* Reference to control Label12 : TLabel
|
0085813E 8B9318040000 mov edx, [ebx+$0418]
00858144 8BC6 mov eax, esi
* Reference to : TfrmSelExportField._PROC_007B6D90()
|
00858146 E845ECF5FF call 007B6D90
0085814B 5E pop esi
0085814C 5B pop ebx
0085814D C3 ret
*)
end;
procedure TfrmYSCRPB._PROC_008584A5(Sender : TObject);
begin
(*
008584A5 50 push eax
008584A6 6461 popa
008584A8 7465 jz 0085850F
008584AA 205946 and [ecx+$46], bl
008584AD 5F pop edi
008584AE 4D dec ebp
008584AF 6F outsd
008584B0 6E outsb
008584B1 65795F jns 00858513
008584B4 43 inc ebx
008584B5 52 push edx
008584B6 2000 and [eax], al
008584B8 FFFF DB $FF, $FF //
008584BA FFFF DB $FF, $FF //
008584BC 0C00 or al, $00
008584BE 0000 add [eax], al
008584C0 205365 and [ebx+$65], dl
008584C3 7420 jz 008584E5
008584C5 43 inc ebx
008584C6 6F outsd
008584C7 6E outsb
008584C8 69643D2700000000 imul esp, [ebp+edi+$27], $00000000
008584D0 FFFF DB $FF, $FF //
008584D2 FFFF DB $FF, $FF //
008584D4 0100 add [eax], eax
008584D6 0000 add [eax], al
008584D8 27 daa
008584D9 0000 add [eax], al
008584DB 00FF add bh, bh
008584DD FFFF DB $FF, $FF //
008584DF FF08 dec dword ptr [eax]
008584E1 0000 add [eax], al
008584E3 002C43 add [ebx+eax*2], ch
008584E6 6F outsd
008584E7 6E outsb
008584E8 4E dec esi
008584E9 6F outsd
008584EA 3D27000000 cmp eax, $00000027
008584EF 00FF add bh, bh
008584F1 FFFF DB $FF, $FF //
008584F3 FF09 dec dword ptr [ecx]
008584F5 0000 add [eax], al
008584F7 002C4564697465 add [$65746964+eax*2], ch
008584FE 723D jb 0085853D
00858500 27 daa
00858501 0000 add [eax], al
00858503 00FF add bh, bh
00858505 FFFF DB $FF, $FF //
00858507 FF1400 call dword ptr [eax+eax]
0085850A 0000 add [eax], al
0085850C 2C45 sub al, $45
0085850E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00858517 657464 jz 0085857E
0085851A 61 popa
0085851B 7465 jz 00858582
0085851D 2829 sub [ecx], ch
0085851F 2000 and [eax], al
00858521 0000 add [eax], al
00858523 00FF add bh, bh
00858525 FFFF DB $FF, $FF //
00858527 FF0D00000020 dec dword ptr [$20000000]
0085852D 7768 jnbe 00858597
0085852F 657265 jb 00858597
00858532 205946 and [ecx+$46], bl
00858535 49 dec ecx
00858536 643D27000000 cmp eax, $00000027
0085853C FFFF DB $FF, $FF //
0085853E FFFF DB $FF, $FF //
00858540 0400 add al, +$00
00858542 0000 add [eax], al
00858544 59 pop ecx
00858545 46 inc esi
00858546 49 dec ecx
00858547 640000 add fs:[eax], al
0085854A 0000 add [eax], al
0085854C 55 push ebp
0085854D 8BEC mov ebp, esp
0085854F 51 push ecx
00858550 B90A000000 mov ecx, $0000000A
00858555 6A00 push $00
00858557 6A00 push $00
00858559 49 dec ecx
0085855A 75F9 jnz 00858555
0085855C 51 push ecx
0085855D 874DFC xchg [ebp-$04], ecx
00858560 53 push ebx
00858561 56 push esi
00858562 894DFC mov [ebp-$04], ecx
00858565 8BD8 mov ebx, eax
00858567 33C0 xor eax, eax
00858569 55 push ebp
0085856A 683D868500 push $0085863D
***** TRY
|
0085856F 64FF30 push dword ptr fs:[eax]
00858572 648920 mov fs:[eax], esp
* Possible String Reference to: 'CRTime'
|
00858575 BA54868500 mov edx, $00858654
* Reference to control ADOTemp : N.A.
|
0085857A 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint;
| or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect;
| or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer;
| or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString);
| or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode;
| or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString;
|
00858580 E89B34E1FF call 0066BA20
* Reference to field N.A..OFFS_006C
|
00858585 8B706C mov esi, [eax+$6C]
* Possible String Reference to: 'WHXMoney'
|
00858588 BA64868500 mov edx, $00858664
* Reference to control ADOTemp : N.A.
|
0085858D 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ComCtrls.TCustomListView.GetViewOrigin(TCustomListView):Windows.TPoint;
| or: ComCtrls.TCustomListView.GetBoundingRect(TCustomListView):Windows.TRect;
| or: DB.TDataLink.MoveBy(TDataLink;Integer):Integer;
| or: InCookie.TInCookies.AddSrcCookie(TInCookies;AnsiString);
| or: Outline.TOutlineNode.GetNode(TOutlineNode;Longint):TOutlineNode;
| or: QFileDialog.TFileDialogForm.GetDirectory(TFileDialogForm):WideString;
|
00858593 E88834E1FF call 0066BA20
* Reference to field N.A..OFFS_006C
|
00858598 8B406C mov eax, [eax+$6C]
0085859B 8945F8 mov [ebp-$08], eax
0085859E 8D4DE8 lea ecx, [ebp-$18]
008585A1 8BD6 mov edx, esi
008585A3 8B45FC mov eax, [ebp-$04]
008585A6 8B30 mov esi, [eax]
008585A8 FF5640 call dword ptr [esi+$40]
008585AB 8D45E8 lea eax, [ebp-$18]
008585AE 50 push eax
008585AF 8D45D8 lea eax, [ebp-$28]
008585B2 BA1E000000 mov edx, $0000001E
008585B7 B101 mov cl, $01
|
008585B9 E8B605BCFF call 00418B74
008585BE 8D55D8 lea edx, [ebp-$28]
008585C1 58 pop eax
* Reference to: System.@Initialize(Pointer;Pointer);
| or: System.@Finalize(Pointer;Pointer);
| or: System.@AddRef;
| or: Variants.@VarAdd(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarSub(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarMul(TVarData;TVarData;TVarData;TVarData);
|
008585C2 E8A14DBCFF call 0041D368
008585C7 8D45E8 lea eax, [ebp-$18]
008585CA 50 push eax
008585CB DD8348040000 fld qword ptr [ebx+$0448]
008585D1 8D45C8 lea eax, [ebp-$38]
* Reference to: Variants.@VarFromTDateTime;
|
008585D4 E8C707BCFF call 00418DA0
008585D9 8D55C8 lea edx, [ebp-$38]
008585DC 58 pop eax
* Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData);
|
008585DD E83A4EBCFF call 0041D41C
008585E2 7F38 jnle 0085861C
008585E4 8D4DB8 lea ecx, [ebp-$48]
008585E7 8B55F8 mov edx, [ebp-$08]
008585EA 8B45FC mov eax, [ebp-$04]
008585ED 8B18 mov ebx, [eax]
008585EF FF5340 call dword ptr [ebx+$40]
008585F2 8D45B8 lea eax, [ebp-$48]
008585F5 50 push eax
008585F6 8D45A8 lea eax, [ebp-$58]
008585F9 33D2 xor edx, edx
008585FB B101 mov cl, $01
|
008585FD E87205BCFF call 00418B74
00858602 8D55A8 lea edx, [ebp-$58]
00858605 58 pop eax
* Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData);
|
00858606 E8214EBCFF call 0041D42C
0085860B 7E0F jle 0085861C
*)
end;
procedure TfrmYSCRPB._PROC_00858DC5(Sender : TObject);
begin
(*
00858DC5 50 push eax
00858DC6 6461 popa
00858DC8 7465 jz 00858E2F
00858DCA 205946 and [ecx+$46], bl
00858DCD 5F pop edi
00858DCE 4D dec ebp
00858DCF 6F outsd
00858DD0 6E outsb
00858DD1 65795F jns 00858E33
00858DD4 43 inc ebx
00858DD5 52 push edx
00858DD6 2000 and [eax], al
00858DD8 FFFF DB $FF, $FF //
00858DDA FFFF DB $FF, $FF //
00858DDC 0D00000020 or eax, $20000000
00858DE1 53 push ebx
00858DE2 657420 jz 00858E05
00858DE5 4B dec ebx
00858DE6 50 push eax
00858DE7 54 push esp
00858DE8 7970 jns 00858E5A
00858DEA 653D27000000 cmp eax, $00000027
00858DF0 FFFF DB $FF, $FF //
00858DF2 FFFF DB $FF, $FF //
00858DF4 0100 add [eax], eax
00858DF6 0000 add [eax], al
00858DF8 27 daa
00858DF9 0000 add [eax], al
00858DFB 00FF add bh, bh
00858DFD FFFF DB $FF, $FF //
00858DFF FF0D00000020 dec dword ptr [$20000000]
00858E05 7768 jnbe 00858E6F
00858E07 657265 jb 00858E6F
00858E0A 205946 and [ecx+$46], bl
00858E0D 49 dec ecx
00858E0E 643D27000000 cmp eax, $00000027
00858E14 FFFF DB $FF, $FF //
00858E16 FFFF DB $FF, $FF //
00858E18 0400 add al, +$00
00858E1A 0000 add [eax], al
00858E1C 59 pop ecx
00858E1D 46 inc esi
00858E1E 49 dec ecx
00858E1F 640000 add fs:[eax], al
00858E22 0000 add [eax], al
00858E24 55 push ebp
00858E25 8BEC mov ebp, esp
00858E27 51 push ecx
00858E28 B906000000 mov ecx, $00000006
00858E2D 6A00 push $00
00858E2F 6A00 push $00
00858E31 49 dec ecx
00858E32 75F9 jnz 00858E2D
00858E34 874DFC xchg [ebp-$04], ecx
00858E37 53 push ebx
00858E38 56 push esi
00858E39 8BF0 mov esi, eax
00858E3B 33C0 xor eax, eax
00858E3D 55 push ebp
* Possible String Reference to: '驺<><E9A9BA><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
00858E3E 6846908500 push $00859046
***** TRY
|
00858E43 64FF30 push dword ptr fs:[eax]
00858E46 648920 mov fs:[eax], esp
* Reference to control Label20 : N.A.
|
00858E49 8B866C030000 mov eax, [esi+$036C]
* Possible String Reference to: 'YFTypeID'
|
00858E4F BA5C908500 mov edx, $0085905C
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00858E54 E85BDDC6FF call 004C6BB4
00858E59 8D55FC lea edx, [ebp-$04]
00858E5C 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_60
|
00858E5E FF5160 call dword ptr [ecx+$60]
00858E61 837DFC00 cmp dword ptr [ebp-$04], +$00
00858E65 741D jz 00858E84
00858E67 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
00858E69 B968908500 mov ecx, $00859068
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD><EFBFBD>޸<EFBFBD>'
|
00858E6E BA70908500 mov edx, $00859070
*)
end;
procedure TfrmYSCRPB._PROC_008590B5(Sender : TObject);
begin
(*
008590B5 50 push eax
008590B6 6461 popa
008590B8 7465 jz 0085911F
008590BA 205946 and [ecx+$46], bl
008590BD 5F pop edi
008590BE 4D dec ebp
008590BF 6F outsd
008590C0 6E outsb
008590C1 65795F jns 00859123
008590C4 43 inc ebx
008590C5 52 push edx
008590C6 2000 and [eax], al
008590C8 FFFF DB $FF, $FF //
008590CA FFFF DB $FF, $FF //
008590CC 1200 adc al, byte ptr [eax]
008590CE 0000 add [eax], al
008590D0 205365 and [ebx+$65], dl
008590D3 7420 jz 008590F5
008590D5 46 inc esi
008590D6 61 popa
008590D7 63746F72 arpl [edi+ebp*2+$72], si
008590DB 794E jns 0085912B
008590DD 61 popa
008590DE 6D insd
008590DF 653D270000FF cmp eax, $FF000027
008590E5 FFFF DB $FF, $FF //
008590E7 FF01 inc dword ptr [ecx]
008590E9 0000 add [eax], al
008590EB 0027 add [edi], ah
008590ED 0000 add [eax], al
008590EF 00FF add bh, bh
008590F1 FFFF DB $FF, $FF //
008590F3 FF0D00000020 dec dword ptr [$20000000]
008590F9 7768 jnbe 00859163
008590FB 657265 jb 00859163
008590FE 205946 and [ecx+$46], bl
00859101 49 dec ecx
00859102 643D27000000 cmp eax, $00000027
00859108 FFFF DB $FF, $FF //
0085910A FFFF DB $FF, $FF //
0085910C 0400 add al, +$00
0085910E 0000 add [eax], al
00859110 59 pop ecx
00859111 46 inc esi
00859112 49 dec ecx
00859113 640000 add fs:[eax], al
00859116 0000 add [eax], al
00859118 55 push ebp
00859119 8BEC mov ebp, esp
0085911B 6A00 push $00
0085911D 6A00 push $00
0085911F 6A00 push $00
00859121 6A00 push $00
00859123 6A00 push $00
00859125 53 push ebx
00859126 56 push esi
00859127 8BD8 mov ebx, eax
00859129 33C0 xor eax, eax
0085912B 55 push ebp
* Possible String Reference to: '<27>7<EFBFBD><37><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
0085912C 68B8928500 push $008592B8
***** TRY
|
00859131 64FF30 push dword ptr fs:[eax]
00859134 648920 mov fs:[eax], esp
00859137 80390D cmp byte ptr [ecx], $0D
0085913A 0F8548010000 jnz 00859288
* Reference to control ToolButton1 : TToolButton
|
00859140 8BB320030000 mov esi, [ebx+$0320]
00859146 33D2 xor edx, edx
00859148 8BC6 mov eax, esi
0085914A 8B08 mov ecx, [eax]
* Possible reference to virtual method TToolButton.OFFS_0190
|
0085914C FF9190010000 call dword ptr [ecx+$0190]
00859152 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
00859154 E87BC7C6FF call 004C58D4
00859159 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
0085915B E84C4EC8FF call 004DDFAC
00859160 8B10 mov edx, [eax]
* Reference to method TToolButton.GetClientRect()
|
00859162 FF5244 call dword ptr [edx+$44]
00859165 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00859167 E8404EC8FF call 004DDFAC
* Possible String Reference to: 'select A.*'
|
0085916C BAD0928500 mov edx, $008592D0
00859171 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00859173 FF5138 call dword ptr [ecx+$38]
00859176 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00859178 E82F4EC8FF call 004DDFAC
* Possible String Reference to: ' from YF_Money_CR A'
|
0085917D BAE4928500 mov edx, $008592E4
00859182 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
00859184 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: ' where A.ConNO like '%'
|
00859187 6800938500 push $00859300
0085918C 8D55F4 lea edx, [ebp-$0C]
* Reference to control Label28 : N.A.
|
0085918F 8B83EC030000 mov eax, [ebx+$03EC]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00859195 E856F4C2FF call 004885F0
0085919A 8B45F4 mov eax, [ebp-$0C]
0085919D 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008591A0 E84717BBFF call 0040A8EC
008591A5 FF75F8 push dword ptr [ebp-$08]
008591A8 6820938500 push $00859320
008591AD 682C938500 push $0085932C
008591B2 8D45FC lea eax, [ebp-$04]
008591B5 BA04000000 mov edx, $00000004
* Reference to: System.@LStrCatN;
|
008591BA E8F5C4BAFF call 004056B4
008591BF 8B45FC mov eax, [ebp-$04]
008591C2 50 push eax
008591C3 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008591C5 E8E24DC8FF call 004DDFAC
008591CA 5A pop edx
008591CB 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008591CD FF5138 call dword ptr [ecx+$38]
008591D0 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
008591D2 E8D54DC8FF call 004DDFAC
* Possible String Reference to: ' and A.CRType='Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>' '
|
008591D7 BA38938500 mov edx, $00859338
008591DC 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
008591DE FF5138 call dword ptr [ecx+$38]
* Reference to control BankAddress : N.A.
|
008591E1 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to control ADOTemp : N.A.
|
008591E7 83B83C03000003 cmp dword ptr [eax+$033C], +$03
008591EE 7D3F jnl 0085922F
* Possible String Reference to: ' and isnull(A.status,'0')=''
|
008591F0 6860938500 push $00859360
008591F5 8D55EC lea edx, [ebp-$14]
* Reference to control BankAddress : N.A.
|
008591F8 8B83C4030000 mov eax, [ebx+$03C4]
* Reference to control ADOTemp : N.A.
|
008591FE 8B803C030000 mov eax, [eax+$033C]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
00859204 E8031DBBFF call 0040AF0C
00859209 FF75EC push dword ptr [ebp-$14]
0085920C 682C938500 push $0085932C
00859211 8D45F0 lea eax, [ebp-$10]
00859214 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
00859219 E896C4BAFF call 004056B4
0085921E 8B45F0 mov eax, [ebp-$10]
00859221 50 push eax
00859222 8BC6 mov eax, esi
* Reference to: Controls.TControl.GetFloatingDockSiteClass(TControl):TWinControlClass;
| or: QControls.TControl.GetPopupMenu(TControl):TPopupMenu;
|
00859224 E8834DC8FF call 004DDFAC
00859229 5A pop edx
0085922A 8B08 mov ecx, [eax]
* Reference to method TToolButton.ConstrainedResize(Integer,Integer,Integer,Integer)
|
0085922C FF5138 call dword ptr [ecx+$38]
0085922F 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
00859231 E892C6C6FF call 004C58C8
* Reference to control Label20 : N.A.
|
00859236 8B936C030000 mov edx, [ebx+$036C]
* Reference to control ToolButton1 : TToolButton
|
0085923C 8B8320030000 mov eax, [ebx+$0320]
|
00859242 E849DCF5FF call 007B6E90
* Reference to control Label20 : N.A.
|
00859247 8B936C030000 mov edx, [ebx+$036C]
* Reference to control ToolButton1 : TToolButton
|
0085924D 8B8320030000 mov eax, [ebx+$0320]
|
00859253 E8C0DDF5FF call 007B7018
00859258 BA84938500 mov edx, $00859384
* Reference to control FaxNo : N.A.
|
0085925D 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00859263 E8B8F3C2FF call 00488620
00859268 BA84938500 mov edx, $00859384
* Reference to control DlyNote : N.A.
|
0085926D 8B83E4030000 mov eax, [ebx+$03E4]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00859273 E8A8F3C2FF call 00488620
00859278 BA84938500 mov edx, $00859384
* Reference to control Label12 : TLabel
|
0085927D 8B8318040000 mov eax, [ebx+$0418]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00859283 E898F3C2FF call 00488620
00859288 33C0 xor eax, eax
0085928A 5A pop edx
0085928B 59 pop ecx
0085928C 59 pop ecx
0085928D 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
00859290 68BF928500 push $008592BF
00859295 8D45EC lea eax, [ebp-$14]
00859298 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0085929D E8A6C0BAFF call 00405348
008592A2 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
008592A5 E87AC0BAFF call 00405324
008592AA 8D45F8 lea eax, [ebp-$08]
008592AD BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
008592B2 E891C0BAFF call 00405348
008592B7 C3 ret
*)
end;
procedure TfrmYSCRPB._PROC_00859629(Sender : TObject);
begin
(*
00859629 50 push eax
0085962A 6461 popa
0085962C 7465 jz 00859693
0085962E 205946 and [ecx+$46], bl
00859631 5F pop edi
00859632 4D dec ebp
00859633 6F outsd
00859634 6E outsb
00859635 65795F jns 00859697
00859638 43 inc ebx
00859639 52 push edx
0085963A 2000 and [eax], al
0085963C FFFF DB $FF, $FF //
0085963E FFFF DB $FF, $FF //
00859640 0D00000020 or eax, $20000000
00859645 53 push ebx
00859646 657420 jz 00859669
00859649 42 inc edx
0085964A 5A pop edx
0085964B 54 push esp
0085964C 7970 jns 008596BE
0085964E 653D27000000 cmp eax, $00000027
00859654 FFFF DB $FF, $FF //
00859656 FFFF DB $FF, $FF //
00859658 07 pop es
00859659 0000 add [eax], al
0085965B 005A64 add [edx+$64], bl
0085965E 794E jns 008596AE
00859660 61 popa
00859661 6D insd
00859662 6500FF add bh, bh
00859665 FFFF DB $FF, $FF //
00859667 FF01 inc dword ptr [ecx]
00859669 0000 add [eax], al
0085966B 0027 add [edi], ah
0085966D 0000 add [eax], al
0085966F 00FF add bh, bh
00859671 FFFF DB $FF, $FF //
00859673 FF09 dec dword ptr [ecx]
00859675 0000 add [eax], al
00859677 002C4564697465 add [$65746964+eax*2], ch
0085967E 723D jb 008596BD
00859680 27 daa
00859681 0000 add [eax], al
00859683 00FF add bh, bh
00859685 FFFF DB $FF, $FF //
00859687 FF1400 call dword ptr [eax+eax]
0085968A 0000 add [eax], al
0085968C 2C45 sub al, $45
0085968E 64697474696D653D67 imul esi, fs:[esp+esi*2+$69], $673D656D
00859697 657464 jz 008596FE
0085969A 61 popa
0085969B 7465 jz 00859702
0085969D 2829 sub [ecx], ch
0085969F 2000 and [eax], al
008596A1 0000 add [eax], al
008596A3 00FF add bh, bh
008596A5 FFFF DB $FF, $FF //
008596A7 FF0D00000020 dec dword ptr [$20000000]
008596AD 7768 jnbe 00859717
008596AF 657265 jb 00859717
008596B2 205946 and [ecx+$46], bl
008596B5 49 dec ecx
008596B6 643D27000000 cmp eax, $00000027
008596BC FFFF DB $FF, $FF //
008596BE FFFF DB $FF, $FF //
008596C0 0400 add al, +$00
008596C2 0000 add [eax], al
008596C4 59 pop ecx
008596C5 46 inc esi
008596C6 49 dec ecx
008596C7 640000 add fs:[eax], al
008596CA 0000 add [eax], al
008596CC 55 push ebp
008596CD 8BEC mov ebp, esp
008596CF 33C0 xor eax, eax
008596D1 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Z<EFBFBD>'
|
008596D2 68F1968500 push $008596F1
***** TRY
|
008596D7 64FF30 push dword ptr fs:[eax]
008596DA 648920 mov fs:[eax], esp
008596DD FF05985A8900 inc dword ptr [$00895A98]
008596E3 33C0 xor eax, eax
008596E5 5A pop edx
008596E6 59 pop ecx
008596E7 59 pop ecx
008596E8 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Z<EFBFBD>'
|
008596EB 68F8968500 push $008596F8
008596F0 C3 ret
* Reference to: System.@HandleFinally;
|
008596F1 E9FEB3BAFF jmp 00404AF4
008596F6 EBF8 jmp 008596F0
****** END
|
008596F8 5D pop ebp
008596F9 C3 ret
008596FA 8BC0 mov eax, eax
008596FC 832D985A890001 sub dword ptr [$00895A98], +$01
00859703 C3 ret
00859704 50 push eax
00859705 97 xchg eax, edi
00859706 8500 test [eax], eax
00859708 0000 add [eax], al
0085970A 0000 add [eax], al
0085970C 0000 add [eax], al
0085970E 0000 add [eax], al
00859710 44 inc esp
00859711 98 cwde
00859712 8500 test [eax], eax
00859714 A0A185007E mov al, byte ptr [$7E0085A1]
00859719 98 cwde
0085971A 8500 test [eax], eax
0085971C 4C dec esp
0085971D 9C pushf
0085971E 8500 test [eax], eax
00859720 0000 add [eax], al
*)
end;
procedure TfrmYSCRPB._PROC_0085976A(Sender : TObject);
begin
(*
0085976A 48 dec eax
0085976B 0050D4 add [eax-$2C], dl
0085976E 42 inc edx
0085976F 0008 add [eax], cl
00859771 2D4A007CD0 sub eax, $D07C004A
00859776 42 inc edx
00859777 00F4 add ah, dh
00859779 6B4A00D0 imul ecx, [edx+$00], $D0
0085977D 1D4A0030F6 sbb eax, $F630004A
00859782 48 dec eax
00859783 004CFB48 add [ebx+edi*8+$48], cl
00859787 0098FA48000C add [eax+$C0048FA], bl
0085978D 7948 jns 008597D7
0085978F 00ACF04800E829 add [eax+esi*8+$29E80048], ch
00859796 4A dec edx
00859797 00E4 add ah, ah
00859799 ED in eax, dx
0085979A 48 dec eax
0085979B 00547848 add [eax+edi*2+$48], dl
0085979F 005878 add [eax+$78], bl
008597A2 48 dec eax
008597A3 00DC add ah, bl
008597A5 2A4A00 sub cl, byte ptr [edx+$00]
008597A8 3CA9 cmp al, $A9
008597AA 48 dec eax
008597AB 00C0 add al, al
008597AD 834800D0 or dword ptr [eax+$00], -$30
008597B1 7948 jns 008597FB
008597B3 004C8548 add [ebp+eax*4+$48], cl
008597B7 00D0 add al, dl
008597B9 2C4A sub al, $4A
008597BB 009C2B4A008486 add [ebx+ebp+$8684004A], bl
008597C2 48 dec eax
008597C3 00482D add [eax+$2D], cl
008597C6 4A dec edx
008597C7 00C0 add al, al
008597C9 A9480038EE test eax, $EE380048
008597CE 48 dec eax
008597CF 00F4 add ah, dh
008597D1 EE out dx, al
008597D2 48 dec eax
008597D3 00F0 add al, dh
008597D5 E94800D8EE jmp EF5D9822
008597DA 48 dec eax
008597DB 00D8 add al, bl
008597DD 1B4A00 sbb ecx, [edx+$00]
008597E0 EC in al, dx
008597E1 334A00 xor ecx, [edx+$00]
008597E4 20C4 and ah, al
008597E6 48 dec eax
008597E7 00B0404A0010 add [eax+$10004A40], dh
008597ED 44 inc esp
008597EE 4A dec edx
008597EF 00CC add ah, cl
008597F1 42 inc edx
008597F2 4A dec edx
008597F3 00B8C44800BC add [eax+$BC0048C4], bh
008597F9 C44800 les ecx, [eax+$00]
008597FC 48 dec eax
008597FD 45 inc ebp
008597FE 4A dec edx
008597FF 001CC3 add [ebx+eax*8], bl
00859802 48 dec eax
00859803 0018 add [eax], bl
00859805 F0 lock
00859806 48 dec eax
00859807 00444C4A add [esp+ecx*2+$4A], al
0085980B 000C02 add [edx+eax], cl
0085980E 49 dec ecx
0085980F 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
00859816 4A dec edx
00859817 008C154A003C18 add [ebp+edx+$183C004A], cl
0085981E 4A dec edx
0085981F 0038 add [eax], bh
00859821 52 push edx
00859822 4A dec edx
00859823 005C224A add [edx+$4A], bl
00859827 00D8 add al, bl
00859829 224A00 and cl, byte ptr [edx+$00]
0085982C 7C68 jl 00859896
0085982E 4A dec edx
0085982F 00941F4A003C60 add [edi+ebx+$603C004A], dl
00859836 4A dec edx
00859837 001447 add [edi+eax*2], dl
0085983A 4A dec edx
0085983B 0034654A00CC2C add [$2CCC004A], dh
00859842 4A dec edx
00859843 000E add [esi], cl
00859845 0000 add [eax], al
00859847 0000 add [eax], al
00859849 0006 add [esi], al
0085984B 0000 add [eax], al
0085984D 0020 add [eax], ah
0085984F 114000 adc [eax+$00], eax
00859852 0404 add al, +$04
00859854 0000 add [eax], al
00859856 2011 and [ecx], dl
00859858 40 inc eax
00859859 0008 add [eax], cl
0085985B 0400 add al, +$00
0085985D 0020 add [eax], ah
0085985F 114000 adc [eax+$00], eax
00859862 0C04 or al, $04
00859864 0000 add [eax], al
00859866 2011 and [ecx], dl
00859868 40 inc eax
00859869 0010 add [eax], dl
0085986B 0400 add al, +$00
0085986D 0020 add [eax], ah
0085986F 114000 adc [eax+$00], eax
00859872 1404 adc al, $04
00859874 0000 add [eax], al
00859876 2011 and [ecx], dl
00859878 40 inc eax
00859879 0018 add [eax], bl
0085987B 0400 add al, +$00
0085987D 004200 add [edx+$00], al
00859880 4D dec ebp
00859881 A18500F802 mov eax, dword ptr [$02F80085]
00859886 0000 add [eax], al
00859888 0000 add [eax], al
0085988A 08546F6F or [edi+ebp*2+$6F], dl
0085988E 6C insb
0085988F 42 inc edx
00859890 61 popa
00859891 7231 jb 008598C4
00859893 FC cld
00859894 0200 add al, byte ptr [eax]
00859896 0001 add [ecx], al
00859898 0009 add [ecx], cl
0085989A 54 push esp
0085989B 42 inc edx
0085989C 52 push edx
0085989D 61 popa
0085989E 667265 jb 00859906
008598A1 7368 jnb 0085990B
008598A3 0003 add [ebx], al
008598A5 0000 add [eax], al
008598A7 0100 add [eax], eax
008598A9 0554424465 add eax, +$65444254
008598AE 6C insb
008598AF 0403 add al, +$03
008598B1 0000 add [eax], al
008598B3 0100 add [eax], eax
008598B5 07 pop es
008598B6 54 push esp
008598B7 42 inc edx
008598B8 43 inc ebx
008598B9 6C insb
008598BA 6F outsd
008598BB 7365 jnb 00859922
008598BD 0803 or [ebx], al
008598BF 0000 add [eax], al
008598C1 0200 add al, byte ptr [eax]
008598C3 0C41 or al, $41
008598C5 44 inc esp
008598C6 4F dec edi
008598C7 51 push ecx
008598C8 7565 jnz 0085992F
008598CA 7279 jb 00859945
008598CC 54 push esp
008598CD 656D insd
008598CF 700C jo 008598DD
008598D1 0300 add eax, [eax]
008598D3 0002 add [edx], al
008598D5 000B add [ebx], cl
008598D7 41 inc ecx
008598D8 44 inc esp
008598D9 4F dec edi
008598DA 51 push ecx
008598DB 7565 jnz 00859942
008598DD 7279 jb 00859958
008598DF 43 inc ebx
008598E0 6D insd
008598E1 641003 adc fs:[ebx], al
008598E4 0000 add [eax], al
008598E6 0300 add eax, [eax]
008598E8 06 push es
008598E9 50 push eax
008598EA 61 popa
008598EB 6E outsb
008598EC 656C insb
008598EE 311403 xor [ebx+eax], edx
008598F1 0000 add [eax], al
008598F3 0100 add [eax], eax
008598F5 0B546F6F or edx, [edi+ebp*2+$6F]
008598F9 6C insb
008598FA 42 inc edx
008598FB 7574 jnz 00859971
008598FD 746F jz 0085996E
008598FF 6E outsb
00859900 3218 xor bl, byte ptr [eax]
00859902 0300 add eax, [eax]
00859904 000400 add [eax+eax], al
00859907 06 push es
00859908 4C dec esp
00859909 61 popa
0085990A 62656C bound esp, qword ptr [ebp+$6C]
0085990D 311C03 xor [ebx+eax], ebx
00859910 0000 add [eax], al
00859912 0500065946 add eax, +$46590600
00859917 4E dec esi
00859918 61 popa
00859919 6D insd
0085991A 652003 and gs:[ebx], al
0085991D 0000 add [eax], al
0085991F 0200 add al, byte ptr [eax]
00859921 0C41 or al, $41
00859923 44 inc esp
00859924 4F dec edi
00859925 51 push ecx
00859926 7565 jnz 0085998D
00859928 7279 jb 008599A3
0085992A 4D dec ebp
0085992B 61 popa
0085992C 696E2403000001 imul ebp, [esi+$24], $01000003
00859933 000B add [ebx], cl
00859935 54 push esp
00859936 6F outsd
00859937 6F outsd
00859938 6C insb
00859939 42 inc edx
0085993A 7574 jnz 008599B0
0085993C 746F jz 008599AD
0085993E 6E outsb
0085993F 3128 xor [eax], ebp
00859941 0300 add eax, [eax]
00859943 0006 add [esi], al
00859945 0003 add [ebx], al
00859947 52 push edx
00859948 4D dec ebp
00859949 312C03 xor [ebx+eax], ebp
0085994C 0000 add [eax], al
0085994E 07 pop es
0085994F 0009 add [ecx], cl
00859951 52 push edx
00859952 4D dec ebp
00859953 44 inc esp
00859954 42 inc edx
00859955 5F pop edi
00859956 4D dec ebp
00859957 61 popa
00859958 696E3003000008 imul ebp, [esi+$30], $08000003
0085995F 0007 add [edi], al
00859961 637847 arpl [eax+$47], di
00859964 7269 jb 008599CF
00859966 64323403 xor dh, byte ptr fs:[ebx+eax]
0085996A 0000 add [eax], al
0085996C 0900 or [eax], eax
0085996E 03547632 add edx, [esi+esi*2+$32]
00859972 3803 cmp [ebx], al
00859974 0000 add [eax], al
00859976 0A00 or al, byte ptr [eax]
00859978 0F637847 packusdw MM7, [eax+$47]
0085997C 7269 jb 008599E7
0085997E 6444 inc esp
00859980 42 inc edx
00859981 43 inc ebx
00859982 6F outsd
00859983 6C insb
00859984 756D jnz 008599F3
00859986 6E outsb
00859987 313C03 xor [ebx+eax], edi
0085998A 0000 add [eax], al
0085998C 0A00 or al, byte ptr [eax]
0085998E 0F637847 packusdw MM7, [eax+$47]
00859992 7269 jb 008599FD
00859994 6444 inc esp
00859996 42 inc edx
00859997 43 inc ebx
00859998 6F outsd
00859999 6C insb
0085999A 756D jnz 00859A09
0085999C 6E outsb
0085999D 334003 xor eax, [eax+$03]
008599A0 0000 add [eax], al
008599A2 0B00 or eax, [eax]
008599A4 0C63 or al, $63
008599A6 7847 js 008599EF
008599A8 7269 jb 00859A13
008599AA 644C dec esp
008599AC 657665 jbe 00859A14
008599AF 6C insb
008599B0 31440300 xor [ebx+eax+$00], eax
008599B4 000400 add [eax+eax], al
008599B7 06 push es
008599B8 4C dec esp
008599B9 61 popa
008599BA 62656C bound esp, qword ptr [ebp+$6C]
008599BD 324803 xor cl, byte ptr [eax+$03]
008599C0 0000 add [eax], al
008599C2 0400 add al, +$00
008599C4 06 push es
008599C5 4C dec esp
008599C6 61 popa
008599C7 62656C bound esp, qword ptr [ebp+$6C]
008599CA 364C dec esp
008599CC 0300 add eax, [eax]
008599CE 000C00 add [eax+eax], cl
008599D1 07 pop es
008599D2 626567 bound esp, qword ptr [ebp+$67]
008599D5 6461 popa
008599D7 7465 jz 00859A3E
008599D9 50 push eax
008599DA 0300 add eax, [eax]
008599DC 000C00 add [eax+eax], cl
008599DF 07 pop es
008599E0 45 inc ebp
008599E1 6E outsb
008599E2 646461 popa
008599E5 7465 jz 00859A4C
008599E7 54 push esp
008599E8 0300 add eax, [eax]
008599EA 000D00106378 add [$78631000], cl
008599F0 47 inc edi
008599F1 7269 jb 00859A5C
008599F3 6450 push eax
008599F5 6F outsd
008599F6 7075 jo 00859A6D
008599F8 704D jo 00859A47
008599FA 656E outsb
008599FC 7532 jnz 00859A30
008599FE 58 pop eax
008599FF 0300 add eax, [eax]
00859A01 000E add [esi], cl
00859A03 000544535F48 add [$485F5344], al
00859A09 5A pop edx
00859A0A 5C pop esp
00859A0B 0300 add eax, [eax]
00859A0D 000F add [edi], cl
00859A0F 0006 add [esi], al
00859A11 43 inc ebx
00859A12 44 inc esp
00859A13 53 push ebx
00859A14 5F pop edi
00859A15 48 dec eax
00859A16 5A pop edx
00859A17 60 pusha
00859A18 0300 add eax, [eax]
00859A1A 0001 add [ecx], al
00859A1C 000B add [ebx], cl
00859A1E 54 push esp
00859A1F 6F outsd
00859A20 6F outsd
00859A21 6C insb
00859A22 42 inc edx
00859A23 7574 jnz 00859A99
00859A25 746F jz 00859A96
00859A27 6E outsb
00859A28 33640300 xor esp, [ebx+eax+$00]
00859A2C 000A add [edx], cl
00859A2E 0003 add [ebx], al
00859A30 56 push esi
00859A31 42 inc edx
00859A32 5A pop edx
00859A33 680300000A push $0A000003
00859A38 0006 add [esi], al
00859A3A 56 push esi
00859A3B 4D dec ebp
00859A3C 6F outsd
00859A3D 6E outsb
00859A3E 65796C jns 00859AAD
00859A41 0300 add eax, [eax]
00859A43 000A add [edx], cl
00859A45 0009 add [ecx], cl
00859A47 7632 jbe 00859A7B
00859A49 43 inc ebx
00859A4A 6F outsd
00859A4B 6C insb
00859A4C 756D jnz 00859ABB
00859A4E 6E outsb
00859A4F 367003 jo 00859A55
00859A52 0000 add [eax], al
00859A54 0A00 or al, byte ptr [eax]
00859A56 08564F or [esi+$4F], dl
00859A59 7264 jb 00859ABF
00859A5B 65724E jb 00859AAC
00859A5E 6F outsd
00859A5F 7403 jz 00859A64
00859A61 0000 add [eax], al
00859A63 0A00 or al, byte ptr [eax]
00859A65 06 push es
00859A66 7632 jbe 00859A9A
00859A68 4E dec esi
00859A69 6F outsd
00859A6A 7465 jz 00859AD1
00859A6C 7803 js 00859A71
00859A6E 0000 add [eax], al
00859A70 0A00 or al, byte ptr [eax]
00859A72 097632 or [esi+$32], esi
00859A75 43 inc ebx
00859A76 6F outsd
00859A77 6C insb
00859A78 756D jnz 00859AE7
00859A7A 6E outsb
00859A7B 357C030000 xor eax, $0000037C
00859A80 0400 add al, +$00
00859A82 06 push es
00859A83 4C dec esp
00859A84 61 popa
00859A85 62656C bound esp, qword ptr [ebp+$6C]
00859A88 37 aaa
00859A89 800300 add byte ptr [ebx], $00
00859A8C 000500054564 add [$64450500], al
00859A92 6974318403000010 imul esi, [ecx+esi-$7C], $10000003
00859A9A 0007 add [edi], al
00859A9C 42 inc edx
00859A9D 7574 jnz 00859B13
00859A9F 746F jz 00859B10
00859AA1 6E outsb
00859AA2 318803000011 xor [eax+$11000003], ecx
00859AA8 0009 add [ecx], cl
00859AAA 43 inc ebx
00859AAB 6865636B42 push $426B6365
00859AB0 6F outsd
00859AB1 7831 js 00859AE4
00859AB3 8C03 mov word ptr [ebx], es
00859AB5 0000 add [eax], al
00859AB7 0500074F72 add eax, +$724F0700
00859ABC 6465724E jb 00859B0E
00859AC0 6F outsd
00859AC1 90 nop
00859AC2 0300 add eax, [eax]
00859AC4 000400 add [eax+eax], al
00859AC7 06 push es
00859AC8 4C dec esp
00859AC9 61 popa
00859ACA 62656C bound esp, qword ptr [ebp+$6C]
00859ACD 38940300000100 cmp [ebx+eax+$10000], dl
00859AD4 0454 add al, +$54
00859AD6 63686B arpl [eax+$6B], bp
00859AD9 98 cwde
00859ADA 0300 add eax, [eax]
00859ADC 0001 add [ecx], al
00859ADE 0006 add [esi], al
00859AE0 54 push esp
00859AE1 6E outsb
00859AE2 6F outsd
00859AE3 63686B arpl [eax+$6B], bp
00859AE6 9C pushf
00859AE7 0300 add eax, [eax]
00859AE9 0012 add [edx], dl
00859AEB 000D63785461 add [$61547863], cl
00859AF1 62436F bound eax, qword ptr [ebx+$6F]
00859AF4 6E outsb
00859AF5 7472 jz 00859B69
00859AF7 6F outsd
00859AF8 6C insb
00859AF9 31A00300000A xor [eax+$A000003], esp
00859AFF 000B add [ebx], cl
00859B01 7632 jbe 00859B35
00859B03 43 inc ebx
00859B04 6F outsd
00859B05 6D insd
00859B06 54 push esp
00859B07 61 popa
00859B08 69746F75A4030000 imul esi, [edi+ebp*2+$75], $000003A4
00859B10 0100 add [eax], eax
00859B12 05545A4453 add eax, +$53445A54
00859B17 43 inc ebx
00859B18 A803 test al, $03
00859B1A 0000 add [eax], al
00859B1C 0A00 or al, byte ptr [eax]
00859B1E 07 pop es
00859B1F 7632 jbe 00859B53
00859B21 43 inc ebx
00859B22 6F outsd
00859B23 6E outsb
00859B24 4E dec esi
00859B25 6F outsd
00859B26 AC lodsb
00859B27 0300 add eax, [eax]
00859B29 000400 add [eax+eax], al
00859B2C 07 pop es
00859B2D 4C dec esp
00859B2E 61 popa
00859B2F 62656C bound esp, qword ptr [ebp+$6C]
00859B32 3131 xor [ecx], esi
00859B34 B003 mov al, $03
00859B36 0000 add [eax], al
00859B38 0400 add al, +$00
00859B3A 07 pop es
00859B3B 4C dec esp
00859B3C 61 popa
00859B3D 62656C bound esp, qword ptr [ebp+$6C]
00859B40 3133 xor [ebx], esi
00859B42 B403 mov ah, $03
00859B44 0000 add [eax], al
00859B46 0400 add al, +$00
00859B48 06 push es
00859B49 4C dec esp
00859B4A 61 popa
00859B4B 62656C bound esp, qword ptr [ebp+$6C]
00859B4E 34B8 xor al, $B8
00859B50 0300 add eax, [eax]
00859B52 00050005436F add [$6F430500], al
00859B58 6E outsb
00859B59 4E dec esi
00859B5A 6F outsd
00859B5B BC03000004 mov esp, $04000003
00859B60 0006 add [esi], al
00859B62 4C dec esp
00859B63 61 popa
00859B64 62656C bound esp, qword ptr [ebp+$6C]
00859B67 35C0030000 xor eax, $000003C0
00859B6C 0500076368 add eax, +$68630700
00859B71 6B6E6F74 imul ebp, [esi+$6F], $74
00859B75 65C403 les eax, gs:[ebx]
00859B78 0000 add [eax], al
*)
end;
procedure TfrmYSCRPB._PROC_00859C13(Sender : TObject);
begin
(*
00859C13 6E outsb
00859C14 6974F00300000100 imul esi, [eax+esi*8+$03], $00010000
00859C1C 03545A44 add edx, [edx+ebx*2+$44]
00859C20 F4 hlt
00859C21 0300 add eax, [eax]
00859C23 000A add [edx], cl
00859C25 0009 add [ecx], cl
00859C27 7632 jbe 00859C5B
00859C29 50 push eax
00859C2A 61 popa
00859C2B 794D jns 00859C7A
00859C2D 656E outsb
00859C2F 74F8 jz 00859C29
00859C31 0300 add eax, [eax]
00859C33 000400 add [eax+eax], al
00859C36 07 pop es
00859C37 4C dec esp
00859C38 61 popa
00859C39 62656C bound esp, qword ptr [ebp+$6C]
00859C3C 3130 xor [eax], esi
00859C3E FC cld
00859C3F 0300 add eax, [eax]
00859C41 000500075061 add [$61500700], al
00859C47 794D jns 00859C96
00859C49 656E outsb
00859C4B 742C jz 00859C79
00859C4D 0012 add [edx], dl
00859C4F 0090A785000B add [eax+$B0085A7], dl
00859C55 46 inc esi
00859C56 6F outsd
00859C57 726D jb 00859CC6
00859C59 44 inc esp
00859C5A 657374 jnb 00859CD1
00859C5D 726F jb 00859CCE
00859C5F 7910 jns 00859C71
00859C61 0098A7850009 add [eax+$90085A7], bl
00859C67 46 inc esi
00859C68 6F outsd
00859C69 726D jb 00859CD8
00859C6B 43 inc ebx
00859C6C 6C insb
00859C6D 6F outsd
00859C6E 7365 jnb 00859CD5
00859C70 1300 adc eax, [eax]
00859C72 9C pushf
00859C73 A7 cmpsd
00859C74 8500 test [eax], eax
00859C76 0C54 or al, $54
00859C78 42 inc edx
00859C79 43 inc ebx
00859C7A 6C insb
00859C7B 6F outsd
00859C7C 7365 jnb 00859CE3
00859C7E 43 inc ebx
00859C7F 6C insb
00859C80 69636B1100E8A7 imul esp, [ebx+$6B], $A7E80011
00859C87 8500 test [eax], eax
00859C89 0A544244 or dl, byte ptr [edx+eax*2+$44]
00859C8D 656C insb
00859C8F 43 inc ebx
00859C90 6C insb
00859C91 69636B0F009CAA imul esp, [ebx+$6B], $AA9C000F
00859C98 8500 test [eax], eax
00859C9A 08466F or [esi+$6F], al
00859C9D 726D jb 00859D0C
00859C9F 53 push ebx
00859CA0 686F771500 push $0015776F
00859CA5 A8AB test al, $AB
00859CA7 8500 test [eax], eax
00859CA9 0E push cs
00859CAA 54 push esp
00859CAB 42 inc edx
00859CAC 52 push edx
00859CAD 61 popa
00859CAE 667265 jb 00859D16
00859CB1 7368 jnb 00859D1B
00859CB3 43 inc ebx
00859CB4 6C insb
00859CB5 69636B1700C4AB imul esp, [ebx+$6B], $ABC40017
00859CBC 8500 test [eax], eax
00859CBE 10546F6F adc [edi+ebp*2+$6F], dl
00859CC2 6C insb
00859CC3 42 inc edx
00859CC4 7574 jnz 00859D3A
00859CC6 746F jz 00859D37
00859CC8 6E outsb
00859CC9 32436C xor al, byte ptr [ebx+$6C]
00859CCC 69636B160070AC imul esp, [ebx+$6B], $AC700016
00859CD3 8500 test [eax], eax
00859CD5 0F436F6D cmovnb ebp, [edi+$6D]
00859CD9 54 push esp
00859CDA 61 popa
00859CDB 69746F754368616E imul esi, [edi+ebp*2+$75], $6E616843
00859CE3 67651300 adc eax, gs:[bx+si]
00859CE7 84AC85000C4275 test [ebp+eax*4+$75420C00], ch
00859CEE 7474 jz 00859D64
00859CF0 6F outsd
00859CF1 6E outsb
00859CF2 32436C xor al, byte ptr [ebx+$6C]
00859CF5 69636B30002CBB imul esp, [ebx+$6B], $BB2C0030
00859CFC 8500 test [eax], eax
00859CFE 296378 sub dword ptr [ebx+$78], esp
00859D01 47 inc edi
00859D02 7269 jb 00859D6D
00859D04 6444 inc esp
00859D06 42 inc edx
00859D07 43 inc ebx
00859D08 6F outsd
00859D09 6C insb
00859D0A 756D jnz 00859D79
00859D0C 6E outsb
00859D0D 385072 cmp [eax+$72], dl
00859D10 6F outsd
00859D11 7065 jo 00859D78
00859D13 7274 jb 00859D89
00859D15 69657345646974 imul esp, [ebp+$73], $74696445
00859D1C 56 push esi
00859D1D 61 popa
00859D1E 6C insb
00859D1F 7565 jnz 00859D86
00859D21 43 inc ebx
00859D22 68616E6765 push $65676E61
00859D27 643000 xor fs:[eax], al
00859D2A F8 clc
00859D2B BD85002963 mov ebp, $63290085
00859D30 7847 js 00859D79
00859D32 7269 jb 00859D9D
00859D34 6444 inc esp
00859D36 42 inc edx
00859D37 43 inc ebx
00859D38 6F outsd
00859D39 6C insb
00859D3A 756D jnz 00859DA9
00859D3C 6E outsb
00859D3D 3550726F70 xor eax, $706F7250
00859D42 657274 jb 00859DB9
00859D45 69657345646974 imul esp, [ebp+$73], $74696445
00859D4C 56 push esi
00859D4D 61 popa
00859D4E 6C insb
00859D4F 7565 jnz 00859DB6
00859D51 43 inc ebx
00859D52 68616E6765 push $65676E61
00859D57 643000 xor fs:[eax], al
00859D5A D4 aam
00859D5B C7850029637847726964 mov dword ptr [ebp+$78632900], $64697247
00859D65 44 inc esp
00859D66 42 inc edx
00859D67 43 inc ebx
00859D68 6F outsd
00859D69 6C insb
00859D6A 756D jnz 00859DD9
00859D6C 6E outsb
00859D6D 315072 xor [eax+$72], edx
00859D70 6F outsd
00859D71 7065 jo 00859DD8
00859D73 7274 jb 00859DE9
00859D75 69657345646974 imul esp, [ebp+$73], $74696445
00859D7C 56 push esi
00859D7D 61 popa
00859D7E 6C insb
00859D7F 7565 jnz 00859DE6
00859D81 43 inc ebx
00859D82 68616E6765 push $65676E61
00859D87 6417 pop ss
00859D89 00A0CA850010 add [eax+$100085CA], ah
00859D8F 54 push esp
00859D90 6F outsd
00859D91 6F outsd
00859D92 6C insb
00859D93 42 inc edx
00859D94 7574 jnz 00859E0A
00859D96 746F jz 00859E07
00859D98 6E outsb
00859D99 33436C xor eax, [ebx+$6C]
00859D9C 69636B2B00ECCE imul esp, [ebx+$6B], $CEEC002B
00859DA3 8500 test [eax], eax
00859DA5 2463 and al, $63
00859DA7 7847 js 00859DF0
00859DA9 7269 jb 00859E14
00859DAB 6444 inc esp
00859DAD 42 inc edx
00859DAE 43 inc ebx
00859DAF 6F outsd
00859DB0 6C insb
00859DB1 756D jnz 00859E20
00859DB3 6E outsb
00859DB4 335072 xor edx, [eax+$72]
00859DB7 6F outsd
00859DB8 7065 jo 00859E1F
00859DBA 7274 jb 00859E30
00859DBC 69657342757474 imul esp, [ebp+$73], $74747542
00859DC3 6F outsd
00859DC4 6E outsb
00859DC5 43 inc ebx
00859DC6 6C insb
00859DC7 69636B2B00B4D3 imul esp, [ebx+$6B], $D3B4002B
00859DCE 8500 test [eax], eax
00859DD0 2463 and al, $63
00859DD2 7847 js 00859E1B
00859DD4 7269 jb 00859E3F
00859DD6 6444 inc esp
00859DD8 42 inc edx
00859DD9 43 inc ebx
00859DDA 6F outsd
00859DDB 6C insb
00859DDC 756D jnz 00859E4B
00859DDE 6E outsb
00859DDF 3650 push eax
00859DE1 726F jb 00859E52
00859DE3 7065 jo 00859E4A
00859DE5 7274 jb 00859E5B
00859DE7 69657342757474 imul esp, [ebp+$73], $74747542
00859DEE 6F outsd
00859DEF 6E outsb
00859DF0 43 inc ebx
00859DF1 6C insb
00859DF2 69636B250010D7 imul esp, [ebx+$6B], $D7100025
00859DF9 8500 test [eax], eax
00859DFB 1E push ds
00859DFC 7632 jbe 00859E30
00859DFE 43 inc ebx
00859DFF 6F outsd
00859E00 6C insb
00859E01 756D jnz 00859E70
00859E03 6E outsb
00859E04 335072 xor edx, [eax+$72]
00859E07 6F outsd
00859E08 7065 jo 00859E6F
00859E0A 7274 jb 00859E80
00859E0C 69657342757474 imul esp, [ebp+$73], $74747542
00859E13 6F outsd
00859E14 6E outsb
00859E15 43 inc ebx
00859E16 6C insb
00859E17 69636B170070DA imul esp, [ebx+$6B], $DA700017
00859E1E 8500 test [eax], eax
00859E20 10546F6F adc [edi+ebp*2+$6F], dl
00859E24 6C insb
00859E25 42 inc edx
00859E26 7574 jnz 00859E9C
00859E28 746F jz 00859E99
00859E2A 6E outsb
00859E2B 31436C xor [ebx+$6C], eax
00859E2E 69636B2500B0DA imul esp, [ebx+$6B], $DAB00025
00859E35 8500 test [eax], eax
00859E37 1E push ds
00859E38 7632 jbe 00859E6C
00859E3A 43 inc ebx
00859E3B 6F outsd
00859E3C 6C insb
00859E3D 756D jnz 00859EAC
00859E3F 6E outsb
00859E40 37 aaa
00859E41 50 push eax
00859E42 726F jb 00859EB3
00859E44 7065 jo 00859EAB
00859E46 7274 jb 00859EBC
00859E48 69657342757474 imul esp, [ebp+$73], $74747542
00859E4F 6F outsd
00859E50 6E outsb
00859E51 43 inc ebx
00859E52 6C insb
00859E53 69636B2500ECE2 imul esp, [ebx+$6B], $E2EC0025
00859E5A 8500 test [eax], eax
00859E5C 1E push ds
00859E5D 7632 jbe 00859E91
00859E5F 50 push eax
00859E60 53 push ebx
00859E61 50 push eax
00859E62 726F jb 00859ED3
00859E64 7065 jo 00859ECB
00859E66 7274 jb 00859EDC
00859E68 69657345646974 imul esp, [ebp+$73], $74696445
00859E6F 56 push esi
00859E70 61 popa
00859E71 6C insb
00859E72 7565 jnz 00859ED9
00859E74 43 inc ebx
00859E75 68616E6765 push $65676E61
00859E7A 642A00 sub al, byte ptr fs:[eax]
00859E7D 90 nop
00859E7E E585 in eax, $85
00859E80 0023 add [ebx], ah
00859E82 7632 jbe 00859EB6
00859E84 43 inc ebx
00859E85 6F outsd
00859E86 6C insb
00859E87 756D jnz 00859EF6
00859E89 6E outsb
00859E8A 325072 xor dl, byte ptr [eax+$72]
00859E8D 6F outsd
00859E8E 7065 jo 00859EF5
00859E90 7274 jb 00859F06
00859E92 69657345646974 imul esp, [ebp+$73], $74696445
00859E99 56 push esi
00859E9A 61 popa
00859E9B 6C insb
00859E9C 7565 jnz 00859F03
00859E9E 43 inc ebx
00859E9F 68616E6765 push $65676E61
00859EA4 642A00 sub al, byte ptr fs:[eax]
00859EA7 10E8 adc al, ch
00859EA9 8500 test [eax], eax
00859EAB 237632 and esi, [esi+$32]
00859EAE 4B dec ebx
00859EAF 50 push eax
00859EB0 4D dec ebp
00859EB1 6F outsd
00859EB2 6E outsb
00859EB3 657950 jns 00859F06
00859EB6 726F jb 00859F27
00859EB8 7065 jo 00859F1F
00859EBA 7274 jb 00859F30
00859EBC 69657345646974 imul esp, [ebp+$73], $74696445
00859EC3 56 push esi
00859EC4 61 popa
00859EC5 6C insb
00859EC6 7565 jnz 00859F2D
00859EC8 43 inc ebx
00859EC9 68616E6765 push $65676E61
00859ECE 641300 adc eax, fs:[eax]
00859ED1 90 nop
00859ED2 EC in al, dx
00859ED3 8500 test [eax], eax
00859ED5 0C42 or al, $42
00859ED7 7574 jnz 00859F4D
00859ED9 746F jz 00859F4A
00859EDB 6E outsb
00859EDC 31436C xor [ebx+$6C], eax
00859EDF 69636B15000CF1 imul esp, [ebx+$6B], $F10C0015
00859EE6 8500 test [eax], eax
00859EE8 0E push cs
00859EE9 43 inc ebx
00859EEA 6865636B42 push $426B6365
00859EEF 6F outsd
00859EF0 7831 js 00859F23
00859EF2 43 inc ebx
00859EF3 6C insb
00859EF4 69636B1A0088F2 imul esp, [ebx+$6B], $F288001A
00859EFB 8500 test [eax], eax
00859EFD 136378 adc esp, [ebx+$78]
00859F00 54 push esp
00859F01 61 popa
00859F02 62436F bound eax, qword ptr [ebx+$6F]
00859F05 6E outsb
00859F06 7472 jz 00859F7A
00859F08 6F outsd
00859F09 6C insb
00859F0A 314368 xor [ebx+$68], eax
00859F0D 61 popa
00859F0E 6E outsb
00859F0F 67651100 adc gs:[bx+si], eax
00859F13 9C pushf
00859F14 F2 repne
00859F15 8500 test [eax], eax
00859F17 0A466F or al, byte ptr [esi+$6F]
00859F1A 726D jb 00859F89
00859F1C 43 inc ebx
00859F1D 7265 jb 00859F84
00859F1F 61 popa
00859F20 7465 jz 00859F87
00859F22 1000 adc [eax], al
00859F24 24F3 and al, $F3
00859F26 8500 test [eax], eax
00859F28 09546368 or [ebx+$68], edx
00859F2C 6B436C69 imul eax, [ebx+$6C], $69
00859F30 636B12 arpl [ebx+$12], bp
00859F33 00CC add ah, cl
00859F35 F5 cmc
00859F36 8500 test [eax], eax
00859F38 0B546E6F or edx, [esi+ebp*2+$6F]
00859F3C 63686B arpl [eax+$6B], bp
00859F3F 43 inc ebx
00859F40 6C insb
00859F41 69636B270074F8 imul esp, [ebx+$6B], $F8740027
00859F48 8500 test [eax], eax
00859F4A 207632 and [esi+$32], dh
00859F4D 43 inc ebx
00859F4E 6F outsd
00859F4F 6D insd
00859F50 54 push esp
00859F51 61 popa
00859F52 69746F7550726F70 imul esi, [edi+ebp*2+$75], $706F7250
00859F5A 657274 jb 00859FD1
00859F5D 69657342757474 imul esp, [ebp+$73], $74747542
00859F64 6F outsd
00859F65 6E outsb
00859F66 43 inc ebx
00859F67 6C insb
00859F68 69636B1F00B0FB imul esp, [ebx+$6B], $FBB0001F
00859F6F 8500 test [eax], eax
00859F71 185642 sbb [esi+$42], dl
00859F74 5A pop edx
00859F75 50 push eax
00859F76 726F jb 00859FE7
00859F78 7065 jo 00859FDF
00859F7A 7274 jb 00859FF0
00859F7C 69657342757474 imul esp, [ebp+$73], $74747542
00859F83 6F outsd
00859F84 6E outsb
00859F85 43 inc ebx
00859F86 6C insb
00859F87 69636B2500F4FE imul esp, [ebx+$6B], $FEF40025
00859F8E 8500 test [eax], eax
00859F90 1E push ds
00859F91 7632 jbe 00859FC5
00859F93 43 inc ebx
00859F94 6F outsd
00859F95 6C insb
00859F96 756D jnz 0085A005
00859F98 6E outsb
00859F99 3450 xor al, $50
00859F9B 726F jb 0085A00C
00859F9D 7065 jo 0085A004
00859F9F 7274 jb 0085A015
00859FA1 69657342757474 imul esp, [ebp+$73], $74747542
00859FA8 6F outsd
00859FA9 6E outsb
00859FAA 43 inc ebx
00859FAB 6C insb
00859FAC 69636B20004802 imul esp, [ebx+$6B], $02480020
00859FB3 8600 xchg [eax], al
00859FB5 197632 sbb [esi+$32], esi
00859FB8 43 inc ebx
00859FB9 6F outsd
00859FBA 6C insb
00859FBB 756D jnz 0085A02A
00859FBD 6E outsb
00859FBE 3550726F70 xor eax, $706F7250
00859FC3 657274 jb 0085A03A
00859FC6 6965734368616E imul esp, [ebp+$73], $6E616843
00859FCD 67652500940286 and eax, $86029400
00859FD4 001E add [esi], bl
00859FD6 7632 jbe 0085A00A
00859FD8 43 inc ebx
00859FD9 6F outsd
00859FDA 6E outsb
00859FDB 4E dec esi
00859FDC 6F outsd
00859FDD 48 dec eax
00859FDE 5A pop edx
00859FDF 50 push eax
00859FE0 726F jb 0085A051
00859FE2 7065 jo 0085A049
00859FE4 7274 jb 0085A05A
00859FE6 69657342757474 imul esp, [ebp+$73], $74747542
00859FED 6F outsd
00859FEE 6E outsb
00859FEF 43 inc ebx
00859FF0 6C insb
00859FF1 69636B25007406 imul esp, [ebx+$6B], $06740025
00859FF8 8600 xchg [eax], al
00859FFA 1E push ds
00859FFB 7632 jbe 0085A02F
00859FFD 47 inc edi
00859FFE 59 pop ecx
00859FFF 53 push ebx
0085A000 4E dec esi
0085A001 61 popa
0085A002 6D insd
0085A003 6550 push eax
0085A005 726F jb 0085A076
0085A007 7065 jo 0085A06E
0085A009 7274 jb 0085A07F
0085A00B 69657342757474 imul esp, [ebp+$73], $74747542
0085A012 6F outsd
0085A013 6E outsb
0085A014 43 inc ebx
0085A015 6C insb
0085A016 69636B2500EC08 imul esp, [ebx+$6B], $08EC0025
0085A01D 8600 xchg [eax], al
0085A01F 1E push ds
0085A020 7632 jbe 0085A054
0085A022 43 inc ebx
0085A023 6F outsd
0085A024 6C insb
0085A025 756D jnz 0085A094
0085A027 6E outsb
0085A028 3650 push eax
0085A02A 726F jb 0085A09B
0085A02C 7065 jo 0085A093
0085A02E 7274 jb 0085A0A4
0085A030 69657342757474 imul esp, [ebp+$73], $74747542
0085A037 6F outsd
0085A038 6E outsb
0085A039 43 inc ebx
0085A03A 6C insb
0085A03B 69636B14006C0B imul esp, [ebx+$6B], $0B6C0014
0085A042 8600 xchg [eax], al
0085A044 0D436F6E4E or eax, $4E6E6F43
0085A049 6F outsd
0085A04A 4B dec ebx
0085A04B 657950 jns 0085A09E
0085A04E 7265 jb 0085A0B5
0085A050 7373 jnb 0085A0C5
0085A052 16 push ss
0085A053 003C0F add [edi+ecx], bh
0085A056 8600 xchg [eax], al
0085A058 0F4F7264 cmovnle esi, [edx+$64]
0085A05C 65724E jb 0085A0AD
0085A05F 6F outsd
0085A060 4B dec ebx
0085A061 657950 jns 0085A0B4
0085A064 7265 jb 0085A0CB
0085A066 7373 jnb 0085A0DB
0085A068 1F pop ds
0085A069 0010 add [eax], dl
0085A06B 138600185476 adc eax, [esi+$76541800]
0085A071 325374 xor dl, byte ptr [ebx+$74]
0085A074 796C jns 0085A0E2
0085A076 657347 jnb 0085A0C0
0085A079 657443 jz 0085A0BF
0085A07C 6F outsd
0085A07D 6E outsb
0085A07E 7465 jz 0085A0E5
0085A080 6E outsb
0085A081 7453 jz 0085A0D6
0085A083 7479 jz 0085A0FE
0085A085 6C insb
0085A086 651100 adc gs:[eax], eax
0085A089 1813 sbb [ebx], dl
0085A08B 8600 xchg [eax], al
0085A08D 0A545A44 or dl, byte ptr [edx+ebx*2+$44]
0085A091 53 push ebx
0085A092 43 inc ebx
0085A093 43 inc ebx
0085A094 6C insb
0085A095 69636B1700D814 imul esp, [ebx+$6B], $14D80017
0085A09C 8600 xchg [eax], al
0085A09E 10546F6F adc [edi+ebp*2+$6F], dl
0085A0A2 6C insb
0085A0A3 42 inc edx
0085A0A4 7574 jnz 0085A11A
0085A0A6 746F jz 0085A117
0085A0A8 6E outsb
0085A0A9 3443 xor al, $43
0085A0AB 6C insb
0085A0AC 69636B1100A81C imul esp, [ebx+$6B], $1CA80011
0085A0B3 8600 xchg [eax], al
0085A0B5 0A54594A or dl, byte ptr [ecx+ebx*2+$4A]
0085A0B9 54 push esp
0085A0BA 48 dec eax
0085A0BB 43 inc ebx
0085A0BC 6C insb
0085A0BD 69636B25008021 imul esp, [ebx+$6B], $21800025
0085A0C4 8600 xchg [eax], al
0085A0C6 1E push ds
0085A0C7 7632 jbe 0085A0FB
0085A0C9 51 push ecx
0085A0CA 7479 jz 0085A145
0085A0CC 55 push ebp
0085A0CD 6E outsb
0085A0CE 697450726F706572 imul esi, [eax+edx*2+$72], $7265706F
0085A0D6 7469 jz 0085A141
0085A0D8 657342 jnb 0085A11D
0085A0DB 7574 jnz 0085A151
0085A0DD 746F jz 0085A14E
0085A0DF 6E outsb
0085A0E0 43 inc ebx
0085A0E1 6C insb
0085A0E2 69636B2600C824 imul esp, [ebx+$6B], $24C80026
0085A0E9 8600 xchg [eax], al
0085A0EB 1F pop ds
0085A0EC 7632 jbe 0085A120
0085A0EE 51 push ecx
0085A0EF 7479 jz 0085A16A
0085A0F1 50 push eax
0085A0F2 726F jb 0085A163
0085A0F4 7065 jo 0085A15B
0085A0F6 7274 jb 0085A16C
0085A0F8 69657345646974 imul esp, [ebp+$73], $74696445
0085A0FF 56 push esi
0085A100 61 popa
0085A101 6C insb
0085A102 7565 jnz 0085A169
0085A104 43 inc ebx
0085A105 68616E6765 push $65676E61
0085A10A 640F00642886 verr word ptr fs:[eax+ebp-$7A]
0085A110 0008 add [eax], cl
0085A112 54 push esp
0085A113 5A pop edx
0085A114 44 inc esp
0085A115 43 inc ebx
0085A116 6C insb
0085A117 69636B2500C028 imul esp, [ebx+$6B], $28C00025
0085A11E 8600 xchg [eax], al
0085A120 1E push ds
0085A121 7632 jbe 0085A155
0085A123 50 push eax
0085A124 61 popa
0085A125 794D jns 0085A174
0085A127 656E outsb
0085A129 7450 jz 0085A17B
0085A12B 726F jb 0085A19C
0085A12D 7065 jo 0085A194
0085A12F 7274 jb 0085A1A5
0085A131 69657342757474 imul esp, [ebp+$73], $74747542
0085A138 6F outsd
0085A139 6E outsb
0085A13A 43 inc ebx
0085A13B 6C insb
0085A13C 69636B0D546672 imul esp, [ebx+$6B], $7266540D
0085A143 6D insd
0085A144 59 pop ecx
0085A145 53 push ebx
0085A146 43 inc ebx
0085A147 52 push edx
0085A148 50 push eax
0085A149 42 inc edx
0085A14A 5F pop edi
0085A14B 51 push ecx
0085A14C 54 push esp
0085A14D 1300 adc eax, [eax]
0085A14F 28944500648A45 sub [ebp+eax*2+$458A6400], dl
0085A156 00B8124D0020 add [eax+$20004D12], bh
0085A15C 42 inc edx
0085A15D 44 inc esp
0085A15E 001C5F add [edi+ebx*2], bl
0085A161 47 inc edi
0085A162 00B867470064 add [eax+$64004767], bh
0085A168 D37800 sar dword ptr [eax+$00], cl
0085A16B A80A test al, $0A
0085A16D 7800 js 0085A16F
0085A16F 0016 add [esi], dl
0085A171 6300 arpl [eax], ax
0085A173 F4 hlt
0085A174 B466 mov ah, $66
0085A176 0034B1 add [ecx+esi*4], dh
0085A179 6600A40E6400E0A5 add [esi+ecx+$A5E00064], ah
0085A181 45 inc ebp
0085A182 005876 add [eax+$76], bl
0085A185 7C00 jl 0085A187
0085A187 087F4B or [edi+$4B], bh
0085A18A 0088996A0000 add [eax+$6A99], cl
0085A190 8E4700 mov es, word ptr [edi+$00]
0085A193 C0964700645D57 rcl byte ptr [esi+$5D640047], $57
0085A19A 0090A0A18500 add [eax+$85A1A0], dl
0085A1A0 07 pop es
0085A1A1 0D5466726D or eax, $6D726654
0085A1A6 59 pop ecx
0085A1A7 53 push ebx
0085A1A8 43 inc ebx
0085A1A9 52 push edx
0085A1AA 50 push eax
0085A1AB 42 inc edx
0085A1AC 5F pop edi
0085A1AD 51 push ecx
0085A1AE 54 push esp
0085A1AF 50 push eax
0085A1B0 97 xchg eax, edi
0085A1B1 8500 test [eax], eax
0085A1B3 D0F2 DB $D0, $F2 // dl, 1
0085A1B5 49 dec ecx
0085A1B6 005E00 add [esi+$00], bl
0085A1B9 0B555F or edx, [ebp+$5F]
0085A1BC 59 pop ecx
0085A1BD 53 push ebx
0085A1BE 43 inc ebx
0085A1BF 52 push edx
0085A1C0 50 push eax
0085A1C1 42 inc edx
0085A1C2 5F pop edi
0085A1C3 51 push ecx
0085A1C4 54 push esp
0085A1C5 0000 add [eax], al
*)
end;
end.
Reference in New Issue View Git Blame Copy Permalink