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

4269 lines
158 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_ConInPut_CX;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmConInPut=class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
ScrollBox1: TScrollBox;
Label3: TLabel;
OrdDate: TDateTimePicker;
Label4: TLabel;
DlyDate: TDateTimePicker;
Label7: TLabel;
ToolBar2: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
v1PRTColor: TcxGridDBColumn;
v1PRTPrice: TcxGridDBColumn;
ADOTemp: TADOQuery;
ADOCmd: TADOQuery;
DataSource1: TDataSource;
Order_Sub: TClientDataSet;
ADOQuery1: TADOQuery;
v1PRTOrderQty: TcxGridDBColumn;
Label9: TLabel;
ConPerson1: TEdit;
Label10: TLabel;
ConNo: TEdit;
Label11: TLabel;
Label14: TLabel;
Label20: TLabel;
FromPlace: TBtnEditC;
CustomerNoName: TBtnEditC;
v1XHNo: TcxGridDBColumn;
SYRName: TBtnEditC;
v1OrderUnit: TcxGridDBColumn;
v1PriceUnit: TcxGridDBColumn;
Label5: TLabel;
PriceNote: TBtnEditC;
Label6: TLabel;
QtyNote: TBtnEditC;
Label15: TLabel;
Payment: TBtnEditC;
Label1: TLabel;
ToPlace: TBtnEditC;
Label17: TLabel;
Label18: TLabel;
BankNo: TBtnEditC;
SYRAddress: TEdit;
Label19: TLabel;
BankName: TEdit;
Label21: TLabel;
BankAddress: TEdit;
ToolButton3: TToolButton;
v1Column1: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
Label8: TLabel;
TelNo: TEdit;
Label23: TLabel;
FaxNo: TEdit;
DlyNote: TBtnEditC;
CDS_Type: TClientDataSet;
Label28: TLabel;
BankSelfFastNo: TEdit;
Label29: TLabel;
KHConNo: TEdit;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column8: TcxGridDBColumn;
ConPerson2: TBtnEditC;
Label2: TLabel;
conDefstr1: TEdit;
Label12: TLabel;
conDefstr2: TEdit;
Label13: TLabel;
Label31: TLabel;
conDefstr3: TEdit;
Label33: TLabel;
conDefstr5: TEdit;
EmailNo: TEdit;
Label38: TLabel;
CustomerNo: TEdit;
Label40: TLabel;
Label32: TLabel;
FKPerson: TBtnEditC;
Label35: TLabel;
ConType: TBtnEditC;
Label16: TLabel;
ShippMent: TBtnEditC;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
v1Column10: TcxGridDBColumn;
v1Column11: TcxGridDBColumn;
v1Column12: TcxGridDBColumn;
Label34: TLabel;
HuoDai: TBtnEditC;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Button1: TButton;
Button2: TButton;
Order_Note: TClientDataSet;
DataSource2: TDataSource;
Label22: TLabel;
KeFu: TEdit;
v1Column13: TcxGridDBColumn;
v1Column14: TcxGridDBColumn;
v1Column15: TcxGridDBColumn;
Label24: TLabel;
Label25: TLabel;
CPCFBi: TcxCurrencyEdit;
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBSaveClick(Sender : TObject);
procedure v1PRTColorPropertiesButtonClick(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure CustomerNoNameBtnUpClick(Sender : TObject);
procedure CustomerNoNameBtnDnClick(Sender : TObject);
procedure v1Column1PropertiesButtonClick(Sender : TObject);
procedure v1OrderUnitPropertiesButtonClick(Sender : TObject);
procedure v1PriceUnitPropertiesButtonClick(Sender : TObject);
procedure SYRNameBtnUpClick(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure CPCFNoDblClick(Sender : TObject);
procedure CPRanHouGYBtnDnClick(Sender : TObject);
procedure v1PRTOrderQtyPropertiesEditValueChanged(Sender : TObject);
procedure v1OrderUnitPropertiesEditValueChanged(Sender : TObject);
procedure v1PRTPricePropertiesEditValueChanged(Sender : TObject);
procedure v1Column5PropertiesButtonClick(Sender : TObject);
procedure v1Column7PropertiesButtonClick(Sender : TObject);
procedure v1Column8PropertiesButtonClick(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure _PROC_007D916D(Sender : TObject);
procedure _PROC_007D98E5(Sender : TObject);
procedure _PROC_007DA899(Sender : TObject);
procedure _PROC_007DB40E(Sender : TObject);
procedure _PROC_007DB45A(Sender : TObject);
procedure _PROC_007DC14F(Sender : TObject);
procedure _PROC_007DC34A(Sender : TObject);
procedure _PROC_007DC375(Sender : TObject);
procedure _PROC_007DC39C(Sender : TObject);
procedure _PROC_007DC56E(Sender : TObject);
procedure _PROC_007DD512(Sender : TObject);
procedure _PROC_007DDF2D(Sender : TObject);
procedure _PROC_007DDF5C(Sender : TObject);
procedure _PROC_007DDF64(Sender : TObject);
procedure _PROC_007DDFCA(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmConInPut: TfrmConInPut;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmConInPut.TBCloseClick(Sender : TObject);
begin
(*
007D9118 53 push ebx
007D9119 8BD8 mov ebx, eax
007D911B 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007D911D E876CECCFF call 004A5F98
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007D9122 B944917D00 mov ecx, $007D9144
* Reference to control TfrmConInPut.Tv1 : TcxGridDBTableView
|
007D9127 8B932C030000 mov edx, [ebx+$032C]
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ¼<CDAC><C2BC>1'
|
007D912D B85C917D00 mov eax, $007D915C
|
007D9132 E869EAFDFF call 007B7BA0
007D9137 5B pop ebx
007D9138 C3 ret
*)
end;
procedure TfrmConInPut.FormShow(Sender : TObject);
begin
(*
007D9880 53 push ebx
007D9881 8BD8 mov ebx, eax
* Reference to field TfrmConInPut.OFFS_04C0
|
007D9883 8D83C0040000 lea eax, [ebx+$04C0]
*)
end;
procedure TfrmConInPut.TBSaveClick(Sender : TObject);
begin
(*
007DABB8 55 push ebp
007DABB9 8BEC mov ebp, esp
007DABBB B920000000 mov ecx, $00000020
007DABC0 6A00 push $00
007DABC2 6A00 push $00
007DABC4 49 dec ecx
007DABC5 75F9 jnz 007DABC0
007DABC7 53 push ebx
007DABC8 56 push esi
007DABC9 57 push edi
007DABCA 8BD8 mov ebx, eax
*)
end;
procedure TfrmConInPut.v1PRTColorPropertiesButtonClick(Sender : TObject);
begin
(*
007DB47C 55 push ebp
007DB47D 8BEC mov ebp, esp
007DB47F 51 push ecx
007DB480 B906000000 mov ecx, $00000006
007DB485 6A00 push $00
007DB487 6A00 push $00
007DB489 49 dec ecx
007DB48A 75F9 jnz 007DB485
007DB48C 874DFC xchg [ebp-$04], ecx
007DB48F 53 push ebx
007DB490 8BD8 mov ebx, eax
007DB492 33C0 xor eax, eax
007DB494 55 push ebp
* Possible String Reference to: '<27>t<EFBFBD><74><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DB495 687BB67D00 push $007DB67B
***** TRY
|
007DB49A 64FF30 push dword ptr fs:[eax]
007DB49D 648920 mov fs:[eax], esp
007DB4A0 33C0 xor eax, eax
007DB4A2 55 push ebp
007DB4A3 6834B67D00 push $007DB634
***** TRY
|
007DB4A8 64FF30 push dword ptr fs:[eax]
007DB4AB 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.ToolButton1Click(Sender : TObject);
begin
(*
007DB71C 55 push ebp
007DB71D 8BEC mov ebp, esp
007DB71F B909000000 mov ecx, $00000009
007DB724 6A00 push $00
007DB726 6A00 push $00
007DB728 49 dec ecx
007DB729 75F9 jnz 007DB724
007DB72B 51 push ecx
007DB72C 53 push ebx
007DB72D 56 push esi
007DB72E 57 push edi
007DB72F 8BD8 mov ebx, eax
007DB731 33C0 xor eax, eax
007DB733 55 push ebp
* Possible String Reference to: '<27>g<EFBFBD><67><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007DB734 6888B87D00 push $007DB888
***** TRY
|
007DB739 64FF30 push dword ptr fs:[eax]
007DB73C 648920 mov fs:[eax], esp
007DB73F 8D55F8 lea edx, [ebp-$08]
* Reference to control TfrmConInPut.ConNo : TEdit
|
007DB742 8B8360030000 mov eax, [ebx+$0360]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007DB748 E8A3CECAFF call 004885F0
007DB74D 8B45F8 mov eax, [ebp-$08]
007DB750 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DB753 E894F1C2FF call 0040A8EC
007DB758 837DFC00 cmp dword ptr [ebp-$04], +$00
007DB75C 751D jnz 007DB77B
007DB75E 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007DB760 B998B87D00 mov ecx, $007DB898
* Possible String Reference to: '<27><>ͬ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007DB765 BAA0B87D00 mov edx, $007DB8A0
*)
end;
procedure TfrmConInPut.ToolButton2Click(Sender : TObject);
begin
(*
007DB8FC 55 push ebp
007DB8FD 8BEC mov ebp, esp
007DB8FF 33C9 xor ecx, ecx
007DB901 51 push ecx
007DB902 51 push ecx
007DB903 51 push ecx
007DB904 51 push ecx
007DB905 51 push ecx
007DB906 53 push ebx
007DB907 56 push esi
007DB908 8BD8 mov ebx, eax
007DB90A 33C0 xor eax, eax
007DB90C 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DB90D 6809BA7D00 push $007DBA09
***** TRY
|
007DB912 64FF30 push dword ptr fs:[eax]
007DB915 648920 mov fs:[eax], esp
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DB918 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007DB91E E89DC5CEFF call 004C7EC0
007DB923 84C0 test al, al
007DB925 0F85C3000000 jnz 007DB9EE
* Possible String Reference to: 'SubId'
|
007DB92B BA20BA7D00 mov edx, $007DBA20
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DB930 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DB936 E879B2CEFF call 004C6BB4
007DB93B 8D55F8 lea edx, [ebp-$08]
007DB93E 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007DB940 FF5160 call dword ptr [ecx+$60]
007DB943 8B45F8 mov eax, [ebp-$08]
007DB946 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DB949 E89EEFC2FF call 0040A8EC
007DB94E 837DFC00 cmp dword ptr [ebp-$04], +$00
007DB952 0F848B000000 jz 007DB9E3
007DB958 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
007DB95A B928BA7D00 mov ecx, $007DBA28
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007DB95F BA30BA7D00 mov edx, $007DBA30
*)
end;
procedure TfrmConInPut.CustomerNoNameBtnUpClick(Sender : TObject);
begin
(*
007DBA7C 55 push ebp
007DBA7D 8BEC mov ebp, esp
007DBA7F B90B000000 mov ecx, $0000000B
007DBA84 6A00 push $00
007DBA86 6A00 push $00
007DBA88 49 dec ecx
007DBA89 75F9 jnz 007DBA84
007DBA8B 53 push ebx
007DBA8C 56 push esi
007DBA8D 8BD8 mov ebx, eax
007DBA8F 33C0 xor eax, eax
007DBA91 55 push ebp
* Possible String Reference to: '<27>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DBA92 68A1BD7D00 push $007DBDA1
***** TRY
|
007DBA97 64FF30 push dword ptr fs:[eax]
007DBA9A 648920 mov fs:[eax], esp
007DBA9D 33C0 xor eax, eax
007DBA9F 55 push ebp
007DBAA0 686ABD7D00 push $007DBD6A
***** TRY
|
007DBAA5 64FF30 push dword ptr fs:[eax]
007DBAA8 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.CustomerNoNameBtnDnClick(Sender : TObject);
begin
(*
007DBE90 53 push ebx
007DBE91 56 push esi
007DBE92 8BDA mov ebx, edx
007DBE94 33D2 xor edx, edx
007DBE96 8BF3 mov esi, ebx
007DBE98 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007DBE9A E881C7CAFF call 00488620
007DBE9F 8D8638020000 lea eax, [esi+$0238]
* Reference to: System.@LStrClr(void;void);
|
007DBEA5 E87A94C2FF call 00405324
007DBEAA 5E pop esi
007DBEAB 5B pop ebx
007DBEAC C3 ret
*)
end;
procedure TfrmConInPut.v1Column1PropertiesButtonClick(Sender : TObject);
begin
(*
007DBEB0 55 push ebp
007DBEB1 8BEC mov ebp, esp
007DBEB3 51 push ecx
007DBEB4 B909000000 mov ecx, $00000009
007DBEB9 6A00 push $00
007DBEBB 6A00 push $00
007DBEBD 49 dec ecx
007DBEBE 75F9 jnz 007DBEB9
007DBEC0 874DFC xchg [ebp-$04], ecx
007DBEC3 53 push ebx
007DBEC4 56 push esi
007DBEC5 8BF0 mov esi, eax
007DBEC7 33C0 xor eax, eax
007DBEC9 55 push ebp
* Possible String Reference to: '魉<><E9AD89><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DBECA 6842C17D00 push $007DC142
***** TRY
|
007DBECF 64FF30 push dword ptr fs:[eax]
007DBED2 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.v1OrderUnitPropertiesButtonClick(Sender : TObject);
begin
(*
007DC1EC 55 push ebp
007DC1ED 8BEC mov ebp, esp
007DC1EF 6A00 push $00
007DC1F1 6A00 push $00
007DC1F3 6A00 push $00
007DC1F5 6A00 push $00
007DC1F7 6A00 push $00
007DC1F9 6A00 push $00
007DC1FB 6A00 push $00
007DC1FD 53 push ebx
007DC1FE 8945FC mov [ebp-$04], eax
007DC201 33C0 xor eax, eax
007DC203 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DC204 682EC37D00 push $007DC32E
***** TRY
|
007DC209 64FF30 push dword ptr fs:[eax]
007DC20C 648920 mov fs:[eax], esp
007DC20F 33C0 xor eax, eax
007DC211 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>E<EFBFBD><45>q'
|
007DC212 68F4C27D00 push $007DC2F4
***** TRY
|
007DC217 64FF30 push dword ptr fs:[eax]
007DC21A 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.v1PriceUnitPropertiesButtonClick(Sender : TObject);
begin
(*
007DC3C4 55 push ebp
007DC3C5 8BEC mov ebp, esp
007DC3C7 6A00 push $00
007DC3C9 6A00 push $00
007DC3CB 6A00 push $00
007DC3CD 6A00 push $00
007DC3CF 6A00 push $00
007DC3D1 6A00 push $00
007DC3D3 6A00 push $00
007DC3D5 53 push ebx
007DC3D6 8BD8 mov ebx, eax
007DC3D8 33C0 xor eax, eax
007DC3DA 55 push ebp
* Possible String Reference to: '鞅<><E99E85><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DC3DB 6851C57D00 push $007DC551
***** TRY
|
007DC3E0 64FF30 push dword ptr fs:[eax]
007DC3E3 648920 mov fs:[eax], esp
007DC3E6 33C0 xor eax, eax
007DC3E8 55 push ebp
007DC3E9 681FC57D00 push $007DC51F
***** TRY
|
007DC3EE 64FF30 push dword ptr fs:[eax]
007DC3F1 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.SYRNameBtnUpClick(Sender : TObject);
begin
(*
007DC5A8 55 push ebp
007DC5A9 8BEC mov ebp, esp
007DC5AB B91A000000 mov ecx, $0000001A
007DC5B0 6A00 push $00
007DC5B2 6A00 push $00
007DC5B4 49 dec ecx
007DC5B5 75F9 jnz 007DC5B0
007DC5B7 51 push ecx
007DC5B8 53 push ebx
007DC5B9 56 push esi
007DC5BA 8955FC mov [ebp-$04], edx
007DC5BD 8BD8 mov ebx, eax
007DC5BF 33C0 xor eax, eax
007DC5C1 55 push ebp
* Possible String Reference to: '<27><>|<7C><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DC5C2 686CCE7D00 push $007DCE6C
***** TRY
|
007DC5C7 64FF30 push dword ptr fs:[eax]
007DC5CA 648920 mov fs:[eax], esp
007DC5CD 8D55F8 lea edx, [ebp-$08]
007DC5D0 8B45FC mov eax, [ebp-$04]
007DC5D3 8B8080000000 mov eax, [eax+$0080]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DC5D9 E80EE3C2FF call 0040A8EC
007DC5DE 8B55F8 mov edx, [ebp-$08]
007DC5E1 B884CE7D00 mov eax, $007DCE84
* Reference to: System.@LStrPos;
|
007DC5E6 E84D93C2FF call 00405938
007DC5EB 8BF0 mov esi, eax
007DC5ED 33C0 xor eax, eax
007DC5EF 55 push ebp
007DC5F0 6847CE7D00 push $007DCE47
***** TRY
|
007DC5F5 64FF30 push dword ptr fs:[eax]
007DC5F8 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.ToolButton3Click(Sender : TObject);
begin
(*
007DD15C 53 push ebx
007DD15D 8BD8 mov ebx, eax
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD15F 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007DD165 E856ADCEFF call 004C7EC0
007DD16A 84C0 test al, al
007DD16C 7511 jnz 007DD17F
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD16E 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmConInPut.Tv1 : TcxGridDBTableView
|
007DD174 8B832C030000 mov eax, [ebx+$032C]
* Reference to : TfrmSelExportField._PROC_007B752C()
|
007DD17A E8ADA3FDFF call 007B752C
007DD17F 5B pop ebx
007DD180 C3 ret
*)
end;
procedure TfrmConInPut.CPCFNoDblClick(Sender : TObject);
begin
(*
007DD184 55 push ebp
007DD185 8BEC mov ebp, esp
007DD187 53 push ebx
007DD188 56 push esi
007DD189 8BD8 mov ebx, eax
007DD18B 33C0 xor eax, eax
007DD18D 55 push ebp
* Possible String Reference to: '<27>(x<><78><EFBFBD><EFBFBD>^[]<5D>'
|
007DD18E 68C7D27D00 push $007DD2C7
***** TRY
|
007DD193 64FF30 push dword ptr fs:[eax]
007DD196 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.CPRanHouGYBtnDnClick(Sender : TObject);
begin
(*
007DD36C 53 push ebx
007DD36D 56 push esi
007DD36E 8BDA mov ebx, edx
007DD370 33D2 xor edx, edx
007DD372 8BF3 mov esi, ebx
007DD374 8BC6 mov eax, esi
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007DD376 E8A5B2CAFF call 00488620
007DD37B 8D8638020000 lea eax, [esi+$0238]
* Reference to: System.@LStrClr(void;void);
|
007DD381 E89E7FC2FF call 00405324
007DD386 5E pop esi
007DD387 5B pop ebx
007DD388 C3 ret
*)
end;
procedure TfrmConInPut.v1PRTOrderQtyPropertiesEditValueChanged(Sender : TObject);
begin
(*
007DD38C 55 push ebp
007DD38D 8BEC mov ebp, esp
007DD38F 33C9 xor ecx, ecx
007DD391 51 push ecx
007DD392 51 push ecx
007DD393 51 push ecx
007DD394 51 push ecx
007DD395 51 push ecx
007DD396 51 push ecx
007DD397 53 push ebx
007DD398 56 push esi
007DD399 8BDA mov ebx, edx
007DD39B 8BF0 mov esi, eax
007DD39D 33C0 xor eax, eax
007DD39F 55 push ebp
* Possible String Reference to: '<27><>v<EFBFBD><76><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DD3A0 6838D47D00 push $007DD438
***** TRY
|
007DD3A5 64FF30 push dword ptr fs:[eax]
007DD3A8 648920 mov fs:[eax], esp
007DD3AB 8D55FC lea edx, [ebp-$04]
007DD3AE 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;
|
007DD3B0 E80723DBFF call 0058F6BC
007DD3B5 8D55F8 lea edx, [ebp-$08]
007DD3B8 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD3BB E82CD5C2FF call 0040A8EC
007DD3C0 837DF800 cmp dword ptr [ebp-$08], +$00
007DD3C4 750D jnz 007DD3D3
007DD3C6 8D45FC lea eax, [ebp-$04]
007DD3C9 BA50D47D00 mov edx, $007DD450
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007DD3CE E8E97FC2FF call 004053BC
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD3D3 8B9E48030000 mov ebx, [esi+$0348]
007DD3D9 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007DD3DB E860B0CEFF call 004C8440
* Possible String Reference to: 'PRTOrderQty'
|
007DD3E0 BA5CD47D00 mov edx, $007DD45C
007DD3E5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD3E7 E8C897CEFF call 004C6BB4
007DD3EC 50 push eax
007DD3ED 8D45E8 lea eax, [ebp-$18]
007DD3F0 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007DD3F3 E8D0B9C3FF call 00418DC8
007DD3F8 8D55E8 lea edx, [ebp-$18]
007DD3FB 58 pop eax
007DD3FC 8B08 mov ecx, [eax]
007DD3FE FF91B4000000 call dword ptr [ecx+$00B4]
007DD404 8BC3 mov eax, ebx
007DD406 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007DD408 FF924C020000 call dword ptr [edx+$024C]
007DD40E 8BC6 mov eax, esi
* Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown);
| or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown);
| or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString);
| or: IWDBStdCtrls.SetFieldText(TField;AnsiString);
|
007DD410 E85FEFFFFF call 007DC374
007DD415 33C0 xor eax, eax
007DD417 5A pop edx
007DD418 59 pop ecx
007DD419 59 pop ecx
007DD41A 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007DD41D 683FD47D00 push $007DD43F
007DD422 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007DD425 E84A72C3FF call 00414674
007DD42A 8D45F8 lea eax, [ebp-$08]
007DD42D BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007DD432 E8117FC2FF call 00405348
007DD437 C3 ret
* Reference to: System.@HandleFinally;
|
007DD438 E9B776C2FF jmp 00404AF4
007DD43D EBE3 jmp 007DD422
****** END
|
007DD43F 5E pop esi
007DD440 5B pop ebx
007DD441 8BE5 mov esp, ebp
007DD443 5D pop ebp
007DD444 C3 ret
*)
end;
procedure TfrmConInPut.v1OrderUnitPropertiesEditValueChanged(Sender : TObject);
begin
(*
007DD468 55 push ebp
007DD469 8BEC mov ebp, esp
007DD46B 33C9 xor ecx, ecx
007DD46D 51 push ecx
007DD46E 51 push ecx
007DD46F 51 push ecx
007DD470 51 push ecx
007DD471 51 push ecx
007DD472 53 push ebx
007DD473 56 push esi
007DD474 8BF2 mov esi, edx
007DD476 8BD8 mov ebx, eax
007DD478 33C0 xor eax, eax
007DD47A 55 push ebp
007DD47B 68F7D47D00 push $007DD4F7
***** TRY
|
007DD480 64FF30 push dword ptr fs:[eax]
007DD483 648920 mov fs:[eax], esp
007DD486 8D55FC lea edx, [ebp-$04]
007DD489 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;
|
007DD48B E82C22DBFF call 0058F6BC
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD490 8BB348030000 mov esi, [ebx+$0348]
007DD496 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007DD498 E8A3AFCEFF call 004C8440
* Possible String Reference to: 'OrderUnit'
|
007DD49D BA0CD57D00 mov edx, $007DD50C
007DD4A2 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD4A4 E80B97CEFF call 004C6BB4
007DD4A9 50 push eax
007DD4AA 8D45EC lea eax, [ebp-$14]
007DD4AD 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007DD4B0 E813B9C3FF call 00418DC8
007DD4B5 8D55EC lea edx, [ebp-$14]
007DD4B8 58 pop eax
007DD4B9 8B08 mov ecx, [eax]
007DD4BB FF91B4000000 call dword ptr [ecx+$00B4]
007DD4C1 8BC6 mov eax, esi
007DD4C3 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007DD4C5 FF924C020000 call dword ptr [edx+$024C]
007DD4CB 8BC3 mov eax, ebx
* Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown);
| or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown);
| or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString);
| or: IWDBStdCtrls.SetFieldText(TField;AnsiString);
|
007DD4CD E8A2EEFFFF call 007DC374
007DD4D2 8BC3 mov eax, ebx
* Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown);
| or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown);
| or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString);
| or: IWDBStdCtrls.SetFieldText(TField;AnsiString);
|
007DD4D4 E8C3EEFFFF call 007DC39C
007DD4D9 33C0 xor eax, eax
007DD4DB 5A pop edx
007DD4DC 59 pop ecx
007DD4DD 59 pop ecx
007DD4DE 648910 mov fs:[eax], edx
****** FINALLY
|
007DD4E1 68FED47D00 push $007DD4FE
007DD4E6 8D45EC lea eax, [ebp-$14]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007DD4E9 E88671C3FF call 00414674
007DD4EE 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007DD4F1 E82E7EC2FF call 00405324
007DD4F6 C3 ret
* Reference to: System.@HandleFinally;
|
007DD4F7 E9F875C2FF jmp 00404AF4
007DD4FC EBE8 jmp 007DD4E6
****** END
|
007DD4FE 5E pop esi
007DD4FF 5B pop ebx
007DD500 8BE5 mov esp, ebp
007DD502 5D pop ebp
007DD503 C3 ret
*)
end;
procedure TfrmConInPut.v1PRTPricePropertiesEditValueChanged(Sender : TObject);
begin
(*
007DD518 55 push ebp
007DD519 8BEC mov ebp, esp
007DD51B B907000000 mov ecx, $00000007
007DD520 6A00 push $00
007DD522 6A00 push $00
007DD524 49 dec ecx
007DD525 75F9 jnz 007DD520
007DD527 53 push ebx
007DD528 56 push esi
007DD529 8BF2 mov esi, edx
007DD52B 8BD8 mov ebx, eax
007DD52D 33C0 xor eax, eax
007DD52F 55 push ebp
* Possible String Reference to: '<27><>s<EFBFBD><73><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DD530 68FAD67D00 push $007DD6FA
***** TRY
|
007DD535 64FF30 push dword ptr fs:[eax]
007DD538 648920 mov fs:[eax], esp
007DD53B 8D55FC lea edx, [ebp-$04]
007DD53E 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;
|
007DD540 E87721DBFF call 0058F6BC
007DD545 8D55F8 lea edx, [ebp-$08]
007DD548 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD54B E89CD3C2FF call 0040A8EC
007DD550 837DF800 cmp dword ptr [ebp-$08], +$00
007DD554 750D jnz 007DD563
007DD556 8D45FC lea eax, [ebp-$04]
007DD559 BA10D77D00 mov edx, $007DD710
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007DD55E E8597EC2FF call 004053BC
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD563 8BB348030000 mov esi, [ebx+$0348]
007DD569 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007DD56B E8D0AECEFF call 004C8440
* Possible String Reference to: 'PRTPrice'
|
007DD570 BA1CD77D00 mov edx, $007DD71C
007DD575 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD577 E83896CEFF call 004C6BB4
007DD57C 50 push eax
007DD57D 8D45E8 lea eax, [ebp-$18]
007DD580 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007DD583 E840B8C3FF call 00418DC8
007DD588 8D55E8 lea edx, [ebp-$18]
007DD58B 58 pop eax
007DD58C 8B08 mov ecx, [eax]
007DD58E FF91B4000000 call dword ptr [ecx+$00B4]
007DD594 8BC6 mov eax, esi
007DD596 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007DD598 FF924C020000 call dword ptr [edx+$024C]
007DD59E 8BC3 mov eax, ebx
* Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown);
| or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown);
| or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString);
| or: IWDBStdCtrls.SetFieldText(TField;AnsiString);
|
007DD5A0 E8F7EDFFFF call 007DC39C
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007DD5A5 8BB340030000 mov esi, [ebx+$0340]
007DD5AB 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007DD5AD E82283CEFF call 004C58D4
007DD5B2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD5B4 E8F309D0FF call 004DDFAC
007DD5B9 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007DD5BB FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select * from YF_Money_CR where YFT
| ypeId=''
|
007DD5BE 6830D77D00 push $007DD730
* Possible String Reference to: 'Subid'
|
007DD5C3 BA64D77D00 mov edx, $007DD764
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD5C8 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD5CE E8E195CEFF call 004C6BB4
007DD5D3 8D55DC lea edx, [ebp-$24]
007DD5D6 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007DD5D8 FF5160 call dword ptr [ecx+$60]
007DD5DB 8B45DC mov eax, [ebp-$24]
007DD5DE 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD5E1 E806D3C2FF call 0040A8EC
007DD5E6 FF75E0 push dword ptr [ebp-$20]
007DD5E9 6874D77D00 push $007DD774
007DD5EE 8D45E4 lea eax, [ebp-$1C]
007DD5F1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007DD5F6 E8B980C2FF call 004056B4
007DD5FB 8B45E4 mov eax, [ebp-$1C]
007DD5FE 50 push eax
007DD5FF 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD601 E8A609D0FF call 004DDFAC
007DD606 5A pop edx
007DD607 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007DD609 FF5138 call dword ptr [ecx+$38]
007DD60C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007DD60E E8B582CEFF call 004C58C8
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007DD613 8B8340030000 mov eax, [ebx+$0340]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007DD619 E8A2A8CEFF call 004C7EC0
007DD61E 84C0 test al, al
007DD620 0F85A4000000 jnz 007DD6CA
* Reference to control TfrmConInPut.ADOTemp : TADOQuery
|
007DD626 8BB33C030000 mov esi, [ebx+$033C]
007DD62C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007DD62E E8A182CEFF call 004C58D4
007DD633 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD635 E87209D0FF call 004DDFAC
007DD63A 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007DD63C FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'update YF_Money_CR set Price=''
|
007DD63F 6880D77D00 push $007DD780
007DD644 8D55D4 lea edx, [ebp-$2C]
007DD647 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD64A E89DD2C2FF call 0040A8EC
007DD64F FF75D4 push dword ptr [ebp-$2C]
* Possible String Reference to: '' '
|
007DD652 68A8D77D00 push $007DD7A8
007DD657 8D45D8 lea eax, [ebp-$28]
007DD65A BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007DD65F E85080C2FF call 004056B4
007DD664 8B45D8 mov eax, [ebp-$28]
007DD667 50 push eax
007DD668 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD66A E83D09D0FF call 004DDFAC
007DD66F 5A pop edx
007DD670 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007DD672 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where YFTypeId=''
|
007DD675 68B4D77D00 push $007DD7B4
* Possible String Reference to: 'Subid'
|
007DD67A BA64D77D00 mov edx, $007DD764
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD67F 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD685 E82A95CEFF call 004C6BB4
007DD68A 8D55C8 lea edx, [ebp-$38]
007DD68D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007DD68F FF5160 call dword ptr [ecx+$60]
007DD692 8B45C8 mov eax, [ebp-$38]
007DD695 8D55CC lea edx, [ebp-$34]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD698 E84FD2C2FF call 0040A8EC
007DD69D FF75CC push dword ptr [ebp-$34]
007DD6A0 6874D77D00 push $007DD774
007DD6A5 8D45D0 lea eax, [ebp-$30]
007DD6A8 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007DD6AD E80280C2FF call 004056B4
007DD6B2 8B45D0 mov eax, [ebp-$30]
007DD6B5 50 push eax
007DD6B6 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD6B8 E8EF08D0FF call 004DDFAC
007DD6BD 5A pop edx
007DD6BE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007DD6C0 FF5138 call dword ptr [ecx+$38]
007DD6C3 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007DD6C5 E80A08D0FF call 004DDED4
007DD6CA 33C0 xor eax, eax
007DD6CC 5A pop edx
007DD6CD 59 pop ecx
007DD6CE 59 pop ecx
007DD6CF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007DD6D2 6801D77D00 push $007DD701
007DD6D7 8D45C8 lea eax, [ebp-$38]
007DD6DA BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007DD6DF E8647CC2FF call 00405348
007DD6E4 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007DD6E7 E8886FC3FF call 00414674
007DD6EC 8D45F8 lea eax, [ebp-$08]
007DD6EF BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007DD6F4 E84F7CC2FF call 00405348
007DD6F9 C3 ret
* Reference to: System.@HandleFinally;
|
007DD6FA E9F573C2FF jmp 00404AF4
007DD6FF EBD6 jmp 007DD6D7
****** END
|
007DD701 5E pop esi
007DD702 5B pop ebx
007DD703 8BE5 mov esp, ebp
007DD705 5D pop ebp
007DD706 C3 ret
*)
end;
procedure TfrmConInPut.v1Column5PropertiesButtonClick(Sender : TObject);
begin
(*
007DD7C8 55 push ebp
007DD7C9 8BEC mov ebp, esp
007DD7CB 6A00 push $00
007DD7CD 6A00 push $00
007DD7CF 6A00 push $00
007DD7D1 6A00 push $00
007DD7D3 6A00 push $00
007DD7D5 6A00 push $00
007DD7D7 6A00 push $00
007DD7D9 53 push ebx
007DD7DA 8945FC mov [ebp-$04], eax
007DD7DD 33C0 xor eax, eax
007DD7DF 55 push ebp
* Possible String Reference to: '<27><>q<EFBFBD><71><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DD7E0 6826D97D00 push $007DD926
***** TRY
|
007DD7E5 64FF30 push dword ptr fs:[eax]
007DD7E8 648920 mov fs:[eax], esp
007DD7EB 33C0 xor eax, eax
007DD7ED 55 push ebp
007DD7EE 68E1D87D00 push $007DD8E1
***** TRY
|
007DD7F3 64FF30 push dword ptr fs:[eax]
007DD7F6 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.v1Column7PropertiesButtonClick(Sender : TObject);
begin
(*
007DD984 55 push ebp
007DD985 8BEC mov ebp, esp
007DD987 6A00 push $00
007DD989 6A00 push $00
007DD98B 6A00 push $00
007DD98D 6A00 push $00
007DD98F 6A00 push $00
007DD991 6A00 push $00
007DD993 6A00 push $00
007DD995 53 push ebx
007DD996 8945FC mov [ebp-$04], eax
007DD999 33C0 xor eax, eax
007DD99B 55 push ebp
* Possible String Reference to: '<27>p<EFBFBD><70><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DD99C 68E2DA7D00 push $007DDAE2
***** TRY
|
007DD9A1 64FF30 push dword ptr fs:[eax]
007DD9A4 648920 mov fs:[eax], esp
007DD9A7 33C0 xor eax, eax
007DD9A9 55 push ebp
007DD9AA 689DDA7D00 push $007DDA9D
***** TRY
|
007DD9AF 64FF30 push dword ptr fs:[eax]
007DD9B2 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.v1Column8PropertiesButtonClick(Sender : TObject);
begin
(*
007DDB34 55 push ebp
007DDB35 8BEC mov ebp, esp
007DDB37 6A00 push $00
007DDB39 6A00 push $00
007DDB3B 6A00 push $00
007DDB3D 6A00 push $00
007DDB3F 6A00 push $00
007DDB41 6A00 push $00
007DDB43 6A00 push $00
007DDB45 53 push ebx
007DDB46 8945FC mov [ebp-$04], eax
007DDB49 33C0 xor eax, eax
007DDB4B 55 push ebp
* Possible String Reference to: '<27>]n<><6E><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DDB4C 6892DC7D00 push $007DDC92
***** TRY
|
007DDB51 64FF30 push dword ptr fs:[eax]
007DDB54 648920 mov fs:[eax], esp
007DDB57 33C0 xor eax, eax
007DDB59 55 push ebp
007DDB5A 684DDC7D00 push $007DDC4D
***** TRY
|
007DDB5F 64FF30 push dword ptr fs:[eax]
007DDB62 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut.FormCreate(Sender : TObject);
begin
(*
007DDCE4 B205 mov dl, $05
* Reference to control TfrmConInPut.cxGrid1 : TcxGrid
|
007DDCE6 8B8028030000 mov eax, [eax+$0328]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
007DDCEC E8EB9DCAFF call 00487ADC
007DDCF1 C3 ret
*)
end;
procedure TfrmConInPut.Button1Click(Sender : TObject);
begin
(*
007DDCF4 55 push ebp
007DDCF5 8BEC mov ebp, esp
007DDCF7 33C9 xor ecx, ecx
007DDCF9 51 push ecx
007DDCFA 51 push ecx
007DDCFB 51 push ecx
007DDCFC 51 push ecx
007DDCFD 51 push ecx
007DDCFE 53 push ebx
007DDCFF 56 push esi
007DDD00 57 push edi
007DDD01 8BD8 mov ebx, eax
007DDD03 33C0 xor eax, eax
007DDD05 55 push ebp
* Possible String Reference to: '<27>jm<6A><6D><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007DDD06 6885DD7D00 push $007DDD85
***** TRY
|
007DDD0B 64FF30 push dword ptr fs:[eax]
007DDD0E 648920 mov fs:[eax], esp
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007DDD11 8B8398040000 mov eax, [ebx+$0498]
007DDD17 8B10 mov edx, [eax]
* Reference to method TClientDataSet.GetRecordCount()
|
007DDD19 FF924C010000 call dword ptr [edx+$014C]
007DDD1F 8BF8 mov edi, eax
007DDD21 47 inc edi
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007DDD22 8BB398040000 mov esi, [ebx+$0498]
007DDD28 8BC6 mov eax, esi
|
007DDD2A E861A8CEFF call 004C8590
007DDD2F 8D55EC lea edx, [ebp-$14]
007DDD32 8BC7 mov eax, edi
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
007DDD34 E8D3D1C2FF call 0040AF0C
007DDD39 8B55EC mov edx, [ebp-$14]
007DDD3C 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007DDD3F E884B0C3FF call 00418DC8
007DDD44 8D45F0 lea eax, [ebp-$10]
007DDD47 50 push eax
* Possible String Reference to: 'XHNO'
|
007DDD48 BA9CDD7D00 mov edx, $007DDD9C
007DDD4D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DDD4F E8608ECEFF call 004C6BB4
007DDD54 5A pop edx
007DDD55 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007DDD57 FF91B4000000 call dword ptr [ecx+$00B4]
007DDD5D 8BC6 mov eax, esi
007DDD5F 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007DDD61 FF924C020000 call dword ptr [edx+$024C]
007DDD67 33C0 xor eax, eax
007DDD69 5A pop edx
007DDD6A 59 pop ecx
007DDD6B 59 pop ecx
007DDD6C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
007DDD6F 688CDD7D00 push $007DDD8C
007DDD74 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
007DDD77 E8A875C2FF call 00405324
007DDD7C 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007DDD7F E8F068C3FF call 00414674
007DDD84 C3 ret
* Reference to: System.@HandleFinally;
|
007DDD85 E96A6DC2FF jmp 00404AF4
007DDD8A EBE8 jmp 007DDD74
****** END
|
007DDD8C 5F pop edi
007DDD8D 5E pop esi
007DDD8E 5B pop ebx
007DDD8F 8BE5 mov esp, ebp
007DDD91 5D pop ebp
007DDD92 C3 ret
*)
end;
procedure TfrmConInPut.Button2Click(Sender : TObject);
begin
(*
007DDDA4 55 push ebp
007DDDA5 8BEC mov ebp, esp
007DDDA7 33C9 xor ecx, ecx
007DDDA9 51 push ecx
007DDDAA 51 push ecx
007DDDAB 51 push ecx
007DDDAC 51 push ecx
007DDDAD 51 push ecx
007DDDAE 53 push ebx
007DDDAF 56 push esi
007DDDB0 8BD8 mov ebx, eax
007DDDB2 33C0 xor eax, eax
007DDDB4 55 push ebp
* Possible String Reference to: '<27>>l<><6C><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DDDB5 68B1DE7D00 push $007DDEB1
***** TRY
|
007DDDBA 64FF30 push dword ptr fs:[eax]
007DDDBD 648920 mov fs:[eax], esp
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007DDDC0 8B8398040000 mov eax, [ebx+$0498]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007DDDC6 E8F5A0CEFF call 004C7EC0
007DDDCB 84C0 test al, al
007DDDCD 0F85C3000000 jnz 007DDE96
* Possible String Reference to: 'MNId'
|
007DDDD3 BAC8DE7D00 mov edx, $007DDEC8
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007DDDD8 8B8398040000 mov eax, [ebx+$0498]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DDDDE E8D18DCEFF call 004C6BB4
007DDDE3 8D55F8 lea edx, [ebp-$08]
007DDDE6 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007DDDE8 FF5160 call dword ptr [ecx+$60]
007DDDEB 8B45F8 mov eax, [ebp-$08]
007DDDEE 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DDDF1 E8F6CAC2FF call 0040A8EC
007DDDF6 837DFC00 cmp dword ptr [ebp-$04], +$00
007DDDFA 0F848B000000 jz 007DDE8B
007DDE00 6A24 push $24
* Possible String Reference to: '<27><>ʾ'
|
007DDE02 B9D0DE7D00 mov ecx, $007DDED0
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007DDE07 BAD8DE7D00 mov edx, $007DDED8
*)
end;
procedure TfrmConInPut._PROC_007D916D(Sender : TObject);
begin
(*
007D916D 8BEC mov ebp, esp
007D916F B90F000000 mov ecx, $0000000F
007D9174 6A00 push $00
007D9176 6A00 push $00
007D9178 49 dec ecx
007D9179 75F9 jnz 007D9174
007D917B 51 push ecx
007D917C 53 push ebx
007D917D 56 push esi
007D917E 8BD8 mov ebx, eax
007D9180 33C0 xor eax, eax
007D9182 55 push ebp
* Possible String Reference to: '<27>h<EFBFBD><68><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D><><EFBFBD><EFBFBD><EFBFBD>/'
|
007D9183 6887967D00 push $007D9687
***** TRY
|
007D9188 64FF30 push dword ptr fs:[eax]
007D918B 648920 mov fs:[eax], esp
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D918E 8BB34C030000 mov esi, [ebx+$034C]
007D9194 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D9196 E839C7CEFF call 004C58D4
007D919B 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D919D E80A4ED0FF call 004DDFAC
007D91A2 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007D91A4 FF5244 call dword ptr [edx+$44]
007D91A7 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D91A9 E8FE4DD0FF call 004DDFAC
* Possible String Reference to: 'select * from KH_Zdy where Type='MP
| RTNameType' '
|
007D91AE BA9C967D00 mov edx, $007D969C
007D91B3 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D91B5 FF5138 call dword ptr [ecx+$38]
007D91B8 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007D91BA E809C7CEFF call 004C58C8
* Reference to control TfrmConInPut.CDS_Type : TClientDataSet
|
007D91BF 8B93E8030000 mov edx, [ebx+$03E8]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D91C5 8B834C030000 mov eax, [ebx+$034C]
|
007D91CB E8C0DCFDFF call 007B6E90
* Reference to control TfrmConInPut.CDS_Type : TClientDataSet
|
007D91D0 8B93E8030000 mov edx, [ebx+$03E8]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D91D6 8B834C030000 mov eax, [ebx+$034C]
|
007D91DC E837DEFDFF call 007B7018
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D91E1 8BB34C030000 mov esi, [ebx+$034C]
007D91E7 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D91E9 E8E6C6CEFF call 004C58D4
007D91EE 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D91F0 E8B74DD0FF call 004DDFAC
007D91F5 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007D91F7 FF5244 call dword ptr [edx+$44]
007D91FA 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D91FC E8AB4DD0FF call 004DDFAC
* Possible String Reference to: ' select * from JYOrderCon_Sub '
|
007D9201 BAD4967D00 mov edx, $007D96D4
007D9206 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D9208 FF5138 call dword ptr [ecx+$38]
* Reference to field TfrmConInPut.OFFS_04C4
|
007D920B 83BBC404000001 cmp dword ptr [ebx+$04C4], +$01
007D9212 7539 jnz 007D924D
* Possible String Reference to: 'where MainId=''
|
007D9214 68FC967D00 push $007D96FC
007D9219 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmConInPut.OFFS_04CC
|
007D921C 8B83CC040000 mov eax, [ebx+$04CC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D9222 E8C516C3FF call 0040A8EC
007D9227 FF75F8 push dword ptr [ebp-$08]
007D922A 6814977D00 push $007D9714
007D922F 8D45FC lea eax, [ebp-$04]
007D9232 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007D9237 E878C4C2FF call 004056B4
007D923C 8B45FC mov eax, [ebp-$04]
007D923F 50 push eax
007D9240 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D9242 E8654DD0FF call 004DDFAC
007D9247 5A pop edx
007D9248 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D924A FF5138 call dword ptr [ecx+$38]
* Reference to field TfrmConInPut.OFFS_04C4
|
007D924D 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00
007D9254 7511 jnz 007D9267
007D9256 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D9258 E84F4DD0FF call 004DDFAC
* Possible String Reference to: ' where 1<>1'
|
007D925D BA20977D00 mov edx, $007D9720
007D9262 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D9264 FF5138 call dword ptr [ecx+$38]
007D9267 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007D9269 E85AC6CEFF call 004C58C8
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007D926E 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D9274 8B834C030000 mov eax, [ebx+$034C]
|
007D927A E811DCFDFF call 007B6E90
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007D927F 8B9348030000 mov edx, [ebx+$0348]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D9285 8B834C030000 mov eax, [ebx+$034C]
|
007D928B E888DDFDFF call 007B7018
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D9290 8BB34C030000 mov esi, [ebx+$034C]
007D9296 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D9298 E837C6CEFF call 004C58D4
007D929D 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D929F E8084DD0FF call 004DDFAC
007D92A4 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007D92A6 FF5244 call dword ptr [edx+$44]
007D92A9 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D92AB E8FC4CD0FF call 004DDFAC
* Possible String Reference to: ' select * from JYOrderCon_Main_Note
| '
|
007D92B0 BA34977D00 mov edx, $007D9734
007D92B5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D92B7 FF5138 call dword ptr [ecx+$38]
* Reference to field TfrmConInPut.OFFS_04C4
|
007D92BA 83BBC404000001 cmp dword ptr [ebx+$04C4], +$01
007D92C1 7539 jnz 007D92FC
* Possible String Reference to: 'where MainId=''
|
007D92C3 68FC967D00 push $007D96FC
007D92C8 8D55F0 lea edx, [ebp-$10]
* Reference to field TfrmConInPut.OFFS_04CC
|
007D92CB 8B83CC040000 mov eax, [ebx+$04CC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D92D1 E81616C3FF call 0040A8EC
007D92D6 FF75F0 push dword ptr [ebp-$10]
007D92D9 6814977D00 push $007D9714
007D92DE 8D45F4 lea eax, [ebp-$0C]
007D92E1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007D92E6 E8C9C3C2FF call 004056B4
007D92EB 8B45F4 mov eax, [ebp-$0C]
007D92EE 50 push eax
007D92EF 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D92F1 E8B64CD0FF call 004DDFAC
007D92F6 5A pop edx
007D92F7 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D92F9 FF5138 call dword ptr [ecx+$38]
* Reference to field TfrmConInPut.OFFS_04C4
|
007D92FC 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00
007D9303 7511 jnz 007D9316
007D9305 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D9307 E8A04CD0FF call 004DDFAC
* Possible String Reference to: ' where 1<>1'
|
007D930C BA20977D00 mov edx, $007D9720
007D9311 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D9313 FF5138 call dword ptr [ecx+$38]
007D9316 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007D9318 E8ABC5CEFF call 004C58C8
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007D931D 8B9398040000 mov edx, [ebx+$0498]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D9323 8B834C030000 mov eax, [ebx+$034C]
|
007D9329 E862DBFDFF call 007B6E90
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007D932E 8B9398040000 mov edx, [ebx+$0498]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D9334 8B834C030000 mov eax, [ebx+$034C]
|
007D933A E8D9DCFDFF call 007B7018
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D933F 8BB34C030000 mov esi, [ebx+$034C]
007D9345 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D9347 E888C5CEFF call 004C58D4
007D934C 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D934E E8594CD0FF call 004DDFAC
007D9353 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007D9355 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select * from JYOrderCon_Main where
| MainId=''
|
007D9358 6864977D00 push $007D9764
007D935D 8D55E8 lea edx, [ebp-$18]
* Reference to field TfrmConInPut.OFFS_04CC
|
007D9360 8B83CC040000 mov eax, [ebx+$04CC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D9366 E88115C3FF call 0040A8EC
007D936B FF75E8 push dword ptr [ebp-$18]
007D936E 6814977D00 push $007D9714
007D9373 8D45EC lea eax, [ebp-$14]
007D9376 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007D937B E834C3C2FF call 004056B4
007D9380 8B45EC mov eax, [ebp-$14]
007D9383 50 push eax
007D9384 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D9386 E8214CD0FF call 004DDFAC
007D938B 5A pop edx
007D938C 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007D938E FF5138 call dword ptr [ecx+$38]
007D9391 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007D9393 E830C5CEFF call 004C58C8
007D9398 B902000000 mov ecx, $00000002
* Reference to control TfrmConInPut.ScrollBox1 : TScrollBox
|
007D939D 8B9304030000 mov edx, [ebx+$0304]
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D93A3 8B834C030000 mov eax, [ebx+$034C]
|
007D93A9 E86EC4FDFF call 007B581C
* Possible String Reference to: 'ConDefStr2'
|
007D93AE BA9C977D00 mov edx, $007D979C
* Reference to control TfrmConInPut.ADOQuery1 : TADOQuery
|
007D93B3 8B834C030000 mov eax, [ebx+$034C]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D93B9 E8F6D7CEFF call 004C6BB4
007D93BE 8D55E0 lea edx, [ebp-$20]
007D93C1 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
007D93C3 FF5160 call dword ptr [ecx+$60]
007D93C6 8B45E0 mov eax, [ebp-$20]
007D93C9 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D93CC E81B15C3FF call 0040A8EC
007D93D1 8B55E4 mov edx, [ebp-$1C]
* Reference to control TfrmConInPut.SYRName : TBtnEditC
|
007D93D4 8B837C030000 mov eax, [ebx+$037C]
007D93DA 0538020000 add eax, +$00000238
* Reference to: System.@LStrAsg(void;void;void;void);
|
007D93DF E894BFC2FF call 00405378
* Reference to field TfrmConInPut.OFFS_04C4
|
007D93E4 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00
007D93EB 753A jnz 007D9427
* Reference to control TfrmConInPut.ADOTemp : TADOQuery
|
007D93ED 8B833C030000 mov eax, [ebx+$033C]
|
007D93F3 E8E4B6FDFF call 007B4ADC
007D93F8 83C4F8 add esp, -$08
007D93FB DD1C24 fstp qword ptr [esp]
007D93FE 9B wait
* Reference to control TfrmConInPut.OrdDate : TDateTimePicker
|
007D93FF 8B830C030000 mov eax, [ebx+$030C]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007D9405 E8228EC9FF call 0047222C
* Reference to control TfrmConInPut.ADOTemp : TADOQuery
|
007D940A 8B833C030000 mov eax, [ebx+$033C]
|
007D9410 E8C7B6FDFF call 007B4ADC
007D9415 83C4F8 add esp, -$08
007D9418 DD1C24 fstp qword ptr [esp]
007D941B 9B wait
* Reference to control TfrmConInPut.DlyDate : TDateTimePicker
|
007D941C 8B8314030000 mov eax, [ebx+$0314]
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007D9422 E8058EC9FF call 0047222C
* Reference to field TfrmConInPut.OFFS_04C8
|
007D9427 83BBC804000063 cmp dword ptr [ebx+$04C8], +$63
007D942E 0F85FF000000 jnz 007D9533
007D9434 33C0 xor eax, eax
* Reference to field TfrmConInPut.OFFS_04C4
|
007D9436 8983C4040000 mov [ebx+$04C4], eax
* Reference to field TfrmConInPut.OFFS_04CC
|
007D943C 8D83CC040000 lea eax, [ebx+$04CC]
* Reference to: System.@LStrClr(void;void);
|
007D9442 E8DDBEC2FF call 00405324
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007D9447 8BB348030000 mov esi, [ebx+$0348]
007D944D 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
007D944F E8DCEBCEFF call 004C8030
007D9454 EB5E jmp 007D94B4
007D9456 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007D9458 E8E3EFCEFF call 004C8440
* Possible String Reference to: 'MainId'
|
007D945D BAB0977D00 mov edx, $007D97B0
007D9462 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D9464 E84BD7CEFF call 004C6BB4
007D9469 50 push eax
007D946A 8D45D0 lea eax, [ebp-$30]
007D946D 33D2 xor edx, edx
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007D946F E854F9C3FF call 00418DC8
007D9474 8D55D0 lea edx, [ebp-$30]
007D9477 58 pop eax
007D9478 8B08 mov ecx, [eax]
007D947A FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'SubId'
|
007D9480 BAC0977D00 mov edx, $007D97C0
007D9485 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D9487 E828D7CEFF call 004C6BB4
007D948C 50 push eax
007D948D 8D45C0 lea eax, [ebp-$40]
007D9490 33D2 xor edx, edx
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007D9492 E831F9C3FF call 00418DC8
007D9497 8D55C0 lea edx, [ebp-$40]
007D949A 58 pop eax
007D949B 8B08 mov ecx, [eax]
007D949D FF91B4000000 call dword ptr [ecx+$00B4]
007D94A3 8BC6 mov eax, esi
007D94A5 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007D94A7 FF924C020000 call dword ptr [edx+$024C]
007D94AD 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
007D94AF E898EECEFF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
007D94B4 80BEA100000000 cmp byte ptr [esi+$00A1], $00
007D94BB 7499 jz 007D9456
* Reference to control TfrmConInPut.Order_Note : TClientDataSet
|
007D94BD 8BB398040000 mov esi, [ebx+$0498]
007D94C3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
007D94C5 E866EBCEFF call 004C8030
007D94CA EB5E jmp 007D952A
007D94CC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007D94CE E86DEFCEFF call 004C8440
* Possible String Reference to: 'MainId'
|
007D94D3 BAB0977D00 mov edx, $007D97B0
007D94D8 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D94DA E8D5D6CEFF call 004C6BB4
007D94DF 50 push eax
007D94E0 8D45B0 lea eax, [ebp-$50]
007D94E3 33D2 xor edx, edx
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007D94E5 E8DEF8C3FF call 00418DC8
007D94EA 8D55B0 lea edx, [ebp-$50]
007D94ED 58 pop eax
007D94EE 8B08 mov ecx, [eax]
007D94F0 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'MNId'
|
007D94F6 BAD0977D00 mov edx, $007D97D0
007D94FB 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D94FD E8B2D6CEFF call 004C6BB4
007D9502 50 push eax
007D9503 8D45A0 lea eax, [ebp-$60]
007D9506 33D2 xor edx, edx
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007D9508 E8BBF8C3FF call 00418DC8
007D950D 8D55A0 lea edx, [ebp-$60]
007D9510 58 pop eax
007D9511 8B08 mov ecx, [eax]
007D9513 FF91B4000000 call dword ptr [ecx+$00B4]
007D9519 8BC6 mov eax, esi
007D951B 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007D951D FF924C020000 call dword ptr [edx+$024C]
007D9523 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
007D9525 E822EECEFF call 004C834C
* Reference to field TClientDataSet.Eof : Boolean
|
007D952A 80BEA100000000 cmp byte ptr [esi+$00A1], $00
007D9531 7499 jz 007D94CC
* Reference to field TfrmConInPut.OFFS_04C4
|
007D9533 83BBC404000000 cmp dword ptr [ebx+$04C4], +$00
007D953A 0F850C010000 jnz 007D964C
* Reference to control TfrmConInPut.ADOTemp : TADOQuery
|
007D9540 8BB33C030000 mov esi, [ebx+$033C]
007D9546 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007D9548 E887C3CEFF call 004C58D4
007D954D 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007D954F E8584AD0FF call 004DDFAC
007D9554 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007D9556 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select TOp 1* from JYOrderCon_Main
| where Filler=''
|
007D9559 68E0977D00 push $007D97E0
007D955E 8D5598 lea edx, [ebp-$68]
*)
end;
procedure TfrmConInPut._PROC_007D98E5(Sender : TObject);
begin
(*
007D98E5 8BEC mov ebp, esp
007D98E7 B93C000000 mov ecx, $0000003C
007D98EC 6A00 push $00
007D98EE 6A00 push $00
007D98F0 49 dec ecx
007D98F1 75F9 jnz 007D98EC
007D98F3 53 push ebx
007D98F4 56 push esi
007D98F5 57 push edi
007D98F6 8945FC mov [ebp-$04], eax
007D98F9 33C0 xor eax, eax
007D98FB 55 push ebp
007D98FC 6830A77D00 push $007DA730
***** TRY
|
007D9901 64FF30 push dword ptr fs:[eax]
007D9904 648920 mov fs:[eax], esp
007D9907 33C0 xor eax, eax
007D9909 55 push ebp
* Possible String Reference to: '<27>Ԣ<EFBFBD><D4A2><EFBFBD>E<EFBFBD>'
|
007D990A 6867A57D00 push $007DA567
***** TRY
|
007D990F 64FF30 push dword ptr fs:[eax]
007D9912 648920 mov fs:[eax], esp
007D9915 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007D9918 8B8040030000 mov eax, [eax+$0340]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007D991E E80925D0FF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
007D9923 E86C89CFFF call 004D2294
007D9928 8D55E8 lea edx, [ebp-$18]
007D992B 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmConInPut.OFFS_04CC
|
007D992E 8B80CC040000 mov eax, [eax+$04CC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D9934 E8B30FC3FF call 0040A8EC
007D9939 837DE800 cmp dword ptr [ebp-$18], +$00
007D993D 755B jnz 007D999A
* Possible String Reference to: 'JYOrderCon_Main'
|
007D993F 684CA77D00 push $007DA74C
007D9944 6A03 push $03
007D9946 6A01 push $01
007D9948 8D55F4 lea edx, [ebp-$0C]
007D994B 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007D994E 8B8040030000 mov eax, [eax+$0340]
* Possible String Reference to: 'JW'
|
007D9954 B964A77D00 mov ecx, $007DA764
* Reference to : TfrmSelExportField._PROC_007B7708()
|
007D9959 E8AADDFDFF call 007B7708
007D995E 84C0 test al, al
007D9960 7549 jnz 007D99AB
007D9962 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007D9965 8B8040030000 mov eax, [eax+$0340]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007D996B E8BC24D0FF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
007D9970 E86B89CFFF call 004D22E0
007D9975 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D9977 B968A77D00 mov ecx, $007DA768
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!'
|
007D997C BA70A77D00 mov edx, $007DA770
*)
end;
procedure TfrmConInPut._PROC_007DA899(Sender : TObject);
begin
(*
007DA899 50 push eax
007DA89A 6461 popa
007DA89C 7465 jz 007DA903
007DA89E 204A59 and [edx+$59], cl
007DA8A1 4F dec edi
007DA8A2 7264 jb 007DA908
007DA8A4 657243 jb 007DA8EA
007DA8A7 6F outsd
007DA8A8 6E outsb
007DA8A9 5F pop edi
007DA8AA 4D dec ebp
007DA8AB 61 popa
007DA8AC 696E2053657420 imul ebp, [esi+$20], $20746553
007DA8B3 46 inc esi
007DA8B4 696C6C65723D2700 imul ebp, [esp+ebp*2+$65], $00273D72
007DA8BC FFFF DB $FF, $FF //
007DA8BE FFFF DB $FF, $FF //
007DA8C0 0F0000 sldt word ptr [eax]
007DA8C3 0020 add [eax], ah
007DA8C5 7768 jnbe 007DA92F
007DA8C7 657265 jb 007DA92F
007DA8CA 204D61 and [ebp+$61], cl
007DA8CD 696E49643D2700 imul ebp, [esi+$49], $00273D64
007DA8D4 FFFF DB $FF, $FF //
007DA8D6 FFFF DB $FF, $FF //
007DA8D8 0400 add al, +$00
007DA8DA 0000 add [eax], al
007DA8DC 4D dec ebp
007DA8DD 4E dec esi
007DA8DE 49 dec ecx
007DA8DF 640000 add fs:[eax], al
007DA8E2 0000 add [eax], al
007DA8E4 FFFF DB $FF, $FF //
007DA8E6 FFFF DB $FF, $FF //
007DA8E8 1400 adc al, $00
007DA8EA 0000 add [eax], al
007DA8EC 4A dec edx
007DA8ED 59 pop ecx
007DA8EE 4F dec edi
007DA8EF 7264 jb 007DA955
007DA8F1 657243 jb 007DA937
007DA8F4 6F outsd
007DA8F5 6E outsb
007DA8F6 5F pop edi
007DA8F7 4D dec ebp
007DA8F8 61 popa
007DA8F9 696E5F4E6F7465 imul ebp, [esi+$5F], $65746F4E
007DA900 0000 add [eax], al
007DA902 0000 add [eax], al
007DA904 FFFF DB $FF, $FF //
007DA906 FFFF DB $FF, $FF //
007DA908 0200 add al, byte ptr [eax]
007DA90A 0000 add [eax], al
007DA90C 4D dec ebp
007DA90D 4E dec esi
007DA90E 0000 add [eax], al
007DA910 C8A1 enter , $A1
007DA912 B1B8 mov cl, $B8
007DA914 D7 xlat
007DA915 A2C1F7CBAE mov byte ptr [$AECBF7C1], al
007DA91A BAC5CAA7B0 mov edx, $B0A7CAC5
007DA91F DCA3A10000FF fsub qword ptr [ebx+$FF0000A1]
007DA925 FFFF DB $FF, $FF //
007DA927 FF31 push dword ptr [ecx]
007DA929 0000 add [eax], al
007DA92B 007365 add [ebx+$65], dh
007DA92E 6C insb
007DA92F 656374202A arpl gs:[eax+$2A], si
007DA934 206672 and [esi+$72], ah
007DA937 6F outsd
007DA938 6D insd
007DA939 204A59 and [edx+$59], cl
007DA93C 4F dec edi
007DA93D 7264 jb 007DA9A3
007DA93F 657243 jb 007DA985
007DA942 6F outsd
007DA943 6E outsb
007DA944 5F pop edi
007DA945 4D dec ebp
007DA946 61 popa
007DA947 696E5F4E6F7465 imul ebp, [esi+$5F], $65746F4E
007DA94E 207768 and [edi+$68], dh
007DA951 657265 jb 007DA9B9
007DA954 204D61 and [ebp+$61], cl
007DA957 696E49643D2700 imul ebp, [esi+$49], $00273D64
007DA95E 0000 add [eax], al
007DA960 FFFF DB $FF, $FF //
007DA962 FFFF DB $FF, $FF //
007DA964 0B00 or eax, [eax]
007DA966 0000 add [eax], al
007DA968 20616E and [ecx+$6E], ah
007DA96B 64204D4E and fs:[ebp+$4E], cl
007DA96F 49 dec ecx
007DA970 643D2700FFFF cmp eax, $FFFF0027
007DA976 FFFF DB $FF, $FF //
007DA978 06 push es
007DA979 0000 add [eax], al
007DA97B 004D4E add [ebp+$4E], cl
007DA97E 54 push esp
007DA97F 7970 jns 007DA9F1
007DA981 650000 add gs:[eax], al
007DA984 FFFF DB $FF, $FF //
007DA986 FFFF DB $FF, $FF //
007DA988 0500000053 add eax, +$53000000
007DA98D 7562 jnz 007DA9F1
007DA98F 49 dec ecx
007DA990 640000 add fs:[eax], al
007DA993 00FF add bh, bh
007DA995 FFFF DB $FF, $FF //
007DA997 FF0E dec dword ptr [esi]
007DA999 0000 add [eax], al
007DA99B 004A59 add [edx+$59], cl
007DA99E 4F dec edi
007DA99F 7264 jb 007DAA05
007DA9A1 657243 jb 007DA9E7
007DA9A4 6F outsd
007DA9A5 6E outsb
007DA9A6 5F pop edi
007DA9A7 53 push ebx
007DA9A8 7562 jnz 007DAA0C
007DA9AA 0000 add [eax], al
007DA9AC FFFF DB $FF, $FF //
007DA9AE FFFF DB $FF, $FF //
007DA9B0 0200 add al, byte ptr [eax]
007DA9B2 0000 add [eax], al
007DA9B4 4A dec edx
007DA9B5 42 inc edx
007DA9B6 0000 add [eax], al
007DA9B8 C8A1 enter , $A1
007DA9BA D7 xlat
007DA9BB D3C1 rol ecx, cl
007DA9BD F7CB DB $F7, $CB // ebx
007DA9BF AE scasb
007DA9C0 BAC5CAA7B0 mov edx, $B0A7CAC5
007DA9C5 DCA3A1000000 fsub qword ptr [ebx+$00A1]
007DA9CB 00FF add bh, bh
007DA9CD FFFF DB $FF, $FF //
007DA9CF FF2B jmp [ebx]
007DA9D1 0000 add [eax], al
007DA9D3 007365 add [ebx+$65], dh
007DA9D6 6C insb
007DA9D7 656374202A arpl gs:[eax+$2A], si
007DA9DC 206672 and [esi+$72], ah
007DA9DF 6F outsd
007DA9E0 6D insd
007DA9E1 204A59 and [edx+$59], cl
007DA9E4 4F dec edi
007DA9E5 7264 jb 007DAA4B
007DA9E7 657243 jb 007DAA2D
007DA9EA 6F outsd
007DA9EB 6E outsb
007DA9EC 5F pop edi
007DA9ED 53 push ebx
007DA9EE 7562 jnz 007DAA52
007DA9F0 207768 and [edi+$68], dh
007DA9F3 657265 jb 007DAA5B
007DA9F6 204D61 and [ebp+$61], cl
007DA9F9 696E49643D2700 imul ebp, [esi+$49], $00273D64
007DAA00 FFFF DB $FF, $FF //
007DAA02 FFFF DB $FF, $FF //
007DAA04 0C00 or al, $00
007DAA06 0000 add [eax], al
007DAA08 20616E and [ecx+$6E], ah
007DAA0B 64205375 and fs:[ebx+$75], dl
007DAA0F 624964 bound ecx, qword ptr [ecx+$64]
007DAA12 3D27000000 cmp eax, $00000027
007DAA17 00FF add bh, bh
007DAA19 FFFF DB $FF, $FF //
007DAA1B FF0B dec dword ptr [ebx]
007DAA1D 0000 add [eax], al
007DAA1F 005052 add [eax+$52], dl
007DAA22 54 push esp
007DAA23 4F dec edi
007DAA24 7264 jb 007DAA8A
007DAA26 657251 jb 007DAA7A
007DAA29 7479 jz 007DAAA4
007DAA2B 00FF add bh, bh
007DAA2D FFFF DB $FF, $FF //
007DAA2F FF08 dec dword ptr [eax]
007DAA31 0000 add [eax], al
007DAA33 005052 add [eax+$52], dl
007DAA36 54 push esp
007DAA37 50 push eax
007DAA38 7269 jb 007DAAA3
007DAA3A 636500 arpl [ebp+$00], sp
007DAA3D 0000 add [eax], al
007DAA3F 00FF add bh, bh
007DAA41 FFFF DB $FF, $FF //
007DAA43 FF6700 jmp dword ptr [edi+$00]
007DAA46 0000 add [eax], al
007DAA48 55 push ebp
007DAA49 7064 jo 007DAAAF
007DAA4B 61 popa
007DAA4C 7465 jz 007DAAB3
007DAA4E 204A59 and [edx+$59], cl
007DAA51 4F dec edi
007DAA52 7264 jb 007DAAB8
007DAA54 657243 jb 007DAA9A
007DAA57 6F outsd
007DAA58 6E outsb
007DAA59 5F pop edi
007DAA5A 53 push ebx
007DAA5B 7562 jnz 007DAABF
007DAA5D 205365 and [ebx+$65], dl
007DAA60 7420 jz 007DAA82
007DAA62 43 inc ebx
007DAA63 6F outsd
007DAA64 6E outsb
007DAA65 4D dec ebp
007DAA66 58 pop eax
007DAA67 4D dec ebp
007DAA68 6F outsd
007DAA69 6E outsb
007DAA6A 65793D jns 007DAAAA
007DAA6D 43 inc ebx
007DAA6E 61 popa
007DAA6F 7374 jnb 007DAAE5
007DAA71 285052 sub [eax+$52], dl
007DAA74 54 push esp
007DAA75 50 push eax
007DAA76 7269 jb 007DAAE1
007DAA78 63652A arpl [ebp+$2A], sp
007DAA7B 50 push eax
007DAA7C 52 push edx
007DAA7D 54 push esp
007DAA7E 4F dec edi
007DAA7F 7264 jb 007DAAE5
007DAA81 657251 jb 007DAAD5
007DAA84 7479 jz 007DAAFF
007DAA86 206173 and [ecx+$73], ah
007DAA89 20646563 and [ebp+$63], ah
007DAA8D 696D616C283138 imul ebp, [ebp+$61], $3831286C
007DAA94 2C32 sub al, $32
007DAA96 2929 sub dword ptr [ecx], ebp
007DAA98 2B6973 sub ebp, dword ptr [ecx+$73]
007DAA9B 6E outsb
007DAA9C 756C jnz 007DAB0A
007DAA9E 6C insb
007DAA9F 285A68 sub [edx+$68], bl
007DAAA2 656E outsb
007DAAA4 5A pop edx
007DAAA5 6869534A46 push $464A5369
007DAAAA 65652C30 sub al, $30
007DAAAE 2900 sub dword ptr [eax], eax
007DAAB0 FFFF DB $FF, $FF //
007DAAB2 FFFF DB $FF, $FF //
007DAAB4 57 push edi
007DAAB5 0000 add [eax], al
007DAAB7 002B add [ebx], ch
007DAAB9 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
007DAAC0 59 pop ecx
007DAAC1 696E487561534A imul ebp, [esi+$48], $4A536175
007DAAC8 46 inc esi
007DAAC9 65652C30 sub al, $30
007DAACD 292B sub dword ptr [ebx], ebp
007DAACF 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
007DAAD6 42 inc edx
007DAAD7 61 popa
007DAAD8 6F outsd
007DAAD9 47 inc edi
007DAADA 61 popa
007DAADB 6E outsb
007DAADC 6746 inc esi
007DAADE 65652C30 sub al, $30
007DAAE2 292B sub dword ptr [ebx], ebp
007DAAE4 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
007DAAEB 5A pop edx
007DAAEC 686957616E push $6E615769
007DAAF1 675A pop edx
007DAAF3 686942616E push $6E614269
007DAAF8 46 inc esi
007DAAF9 65652C30 sub al, $30
007DAAFD 292A sub dword ptr [edx], ebp
007DAAFF 69736E756C6C28 imul esi, [ebx+$6E], $286C6C75
007DAB06 54 push esp
007DAB07 61 popa
007DAB08 6F outsd
007DAB09 51 push ecx
007DAB0A 7479 jz 007DAB85
007DAB0C 2C30 sub al, $30
007DAB0E 2900 sub dword ptr [eax], eax
007DAB10 FFFF DB $FF, $FF //
007DAB12 FFFF DB $FF, $FF //
007DAB14 0E push cs
007DAB15 0000 add [eax], al
007DAB17 0020 add [eax], ah
007DAB19 7768 jnbe 007DAB83
007DAB1B 657265 jb 007DAB83
007DAB1E 205375 and [ebx+$75], dl
007DAB21 624964 bound ecx, qword ptr [ecx+$64]
007DAB24 3D270000FF cmp eax, $FF000027
007DAB29 FFFF DB $FF, $FF //
007DAB2B FF78 DB $FF, $78 //
007DAB2D 0000 add [eax], al
007DAB2F 005570 add [ebp+$70], dl
007DAB32 6461 popa
007DAB34 7465 jz 007DAB9B
007DAB36 204A59 and [edx+$59], cl
007DAB39 4F dec edi
007DAB3A 7264 jb 007DABA0
007DAB3C 657243 jb 007DAB82
007DAB3F 6F outsd
007DAB40 6E outsb
007DAB41 5F pop edi
007DAB42 4D dec ebp
007DAB43 61 popa
007DAB44 696E2053657420 imul ebp, [esi+$20], $20746553
007DAB4B 43 inc ebx
007DAB4C 6F outsd
007DAB4D 6E outsb
007DAB4E 4D dec ebp
007DAB4F 6F outsd
007DAB50 6E outsb
007DAB51 65793D jns 007DAB91
007DAB54 287365 sub [ebx+$65], dh
007DAB57 6C insb
007DAB58 6563742053 arpl gs:[eax+$53], si
007DAB5D 756D jnz 007DABCC
007DAB5F 28436F sub [ebx+$6F], al
007DAB62 6E outsb
007DAB63 4D dec ebp
007DAB64 58 pop eax
007DAB65 4D dec ebp
007DAB66 6F outsd
007DAB67 6E outsb
007DAB68 657929 jns 007DAB94
007DAB6B 206672 and [esi+$72], ah
007DAB6E 6F outsd
007DAB6F 6D insd
007DAB70 204A59 and [edx+$59], cl
007DAB73 4F dec edi
007DAB74 7264 jb 007DABDA
007DAB76 657243 jb 007DABBC
007DAB79 6F outsd
007DAB7A 6E outsb
007DAB7B 5F pop edi
007DAB7C 53 push ebx
007DAB7D 7562 jnz 007DABE1
007DAB7F 204120 and [ecx+$20], al
007DAB82 7768 jnbe 007DABEC
007DAB84 657265 jb 007DABEC
007DAB87 20412E and [ecx+$2E], al
007DAB8A 4D dec ebp
007DAB8B 61 popa
007DAB8C 696E49643D4A59 imul ebp, [esi+$49], $594A3D64
007DAB93 4F dec edi
007DAB94 7264 jb 007DABFA
007DAB96 657243 jb 007DABDC
007DAB99 6F outsd
007DAB9A 6E outsb
007DAB9B 5F pop edi
007DAB9C 4D dec ebp
007DAB9D 61 popa
007DAB9E 696E2E4D61696E imul ebp, [esi+$2E], $6E69614D
007DABA5 49 dec ecx
007DABA6 642900 sub dword ptr fs:[eax], eax
007DABA9 0000 add [eax], al
007DABAB 00B1A3B4E6CA add [ecx+$CAE6B4A3], dh
007DABB1 A7 cmpsd
007DABB2 B0DC mov al, $DC
007DABB4 A3A1000055 mov dword ptr [$550000A1], eax
007DABB9 8BEC mov ebp, esp
007DABBB B920000000 mov ecx, $00000020
007DABC0 6A00 push $00
007DABC2 6A00 push $00
007DABC4 49 dec ecx
007DABC5 75F9 jnz 007DABC0
007DABC7 53 push ebx
007DABC8 56 push esi
007DABC9 57 push edi
007DABCA 8BD8 mov ebx, eax
*)
end;
procedure TfrmConInPut._PROC_007DB40E(Sender : TObject);
begin
(*
007DB40E 6E outsb
007DB40F 6974000000CAFDC1 imul esi, [eax+eax+$00], $C1FDCA00
007DB417 BFB5A5CEBB mov edi, $BBCEA5B5
007DB41C B2BB mov dl, $BB
007DB41E C4DC les ebx, sp
007DB420 CE into
007DB421 AA stosb
007DB422 BFD5A3A100 mov edi, $00A1A3D5
007DB427 00FF add bh, bh
007DB429 FFFF DB $FF, $FF //
007DB42B FF08 dec dword ptr [eax]
007DB42D 0000 add [eax], al
*)
end;
procedure TfrmConInPut._PROC_007DB45A(Sender : TObject);
begin
(*
007DB45A 6E outsb
007DB45B 6974000000B1D2D6 imul esi, [eax+eax+$00], $D6D2B100
007DB463 D6 DB $D6 //
007DB464 B2BB mov dl, $BB
007DB466 C4DC les ebx, sp
007DB468 CE into
007DB469 AA stosb
007DB46A BFD5A3A100 mov edi, $00A1A3D5
007DB46F 00B1A3B4E6B3 add [ecx+$B3E6B4A3], dh
007DB475 C9 leave
007DB476 B9A6A3A100 mov ecx, $00A1A3A6
007DB47B 00558B add [ebp-$75], dl
007DB47E EC in al, dx
007DB47F 51 push ecx
007DB480 B906000000 mov ecx, $00000006
007DB485 6A00 push $00
007DB487 6A00 push $00
007DB489 49 dec ecx
007DB48A 75F9 jnz 007DB485
007DB48C 874DFC xchg [ebp-$04], ecx
007DB48F 53 push ebx
007DB490 8BD8 mov ebx, eax
007DB492 33C0 xor eax, eax
007DB494 55 push ebp
* Possible String Reference to: '<27>t<EFBFBD><74><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007DB495 687BB67D00 push $007DB67B
***** TRY
|
007DB49A 64FF30 push dword ptr fs:[eax]
007DB49D 648920 mov fs:[eax], esp
007DB4A0 33C0 xor eax, eax
007DB4A2 55 push ebp
007DB4A3 6834B67D00 push $007DB634
***** TRY
|
007DB4A8 64FF30 push dword ptr fs:[eax]
007DB4AB 648920 mov fs:[eax], esp
*)
end;
procedure TfrmConInPut._PROC_007DC14F(Sender : TObject);
begin
(*
007DC14F 004C6162 add [ecx+$62], cl
007DC153 656C insb
007DC155 53 push ebx
007DC156 65742E jz 007DC187
007DC159 646C insb
007DC15B 6C insb
007DC15C 0000 add [eax], al
*)
end;
procedure TfrmConInPut._PROC_007DC34A(Sender : TObject);
begin
(*
007DC34A 6E outsb
007DC34B 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
007DC353 FF08 dec dword ptr [eax]
007DC355 0000 add [eax], al
*)
end;
procedure TfrmConInPut._PROC_007DC375(Sender : TObject);
begin
(*
007DC375 8BEC mov ebp, esp
007DC377 33C0 xor eax, eax
007DC379 55 push ebp
* Possible String Reference to: '<27>\<5C><><EFBFBD><EFBFBD><EFBFBD>]<5D>U<EFBFBD><55>3<EFBFBD>Uh<55><68>}'
|
007DC37A 6893C37D00 push $007DC393
***** TRY
|
007DC37F 64FF30 push dword ptr fs:[eax]
007DC382 648920 mov fs:[eax], esp
007DC385 33C0 xor eax, eax
007DC387 5A pop edx
007DC388 59 pop ecx
007DC389 59 pop ecx
007DC38A 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']<5D>U<EFBFBD><55>3<EFBFBD>Uh<55><68>}'
|
007DC38D 689AC37D00 push $007DC39A
007DC392 C3 ret
* Reference to: System.@HandleFinally;
|
007DC393 E95C87C2FF jmp 00404AF4
007DC398 EBF8 jmp 007DC392
****** END
|
007DC39A 5D pop ebp
007DC39B C3 ret
*)
end;
procedure TfrmConInPut._PROC_007DC39C(Sender : TObject);
begin
(*
007DC39C 55 push ebp
007DC39D 8BEC mov ebp, esp
007DC39F 33C0 xor eax, eax
007DC3A1 55 push ebp
* Possible String Reference to: '<27>4<EFBFBD><34><EFBFBD><EFBFBD><EFBFBD>]<5D>U<EFBFBD><55>j'
|
007DC3A2 68BBC37D00 push $007DC3BB
***** TRY
|
007DC3A7 64FF30 push dword ptr fs:[eax]
007DC3AA 648920 mov fs:[eax], esp
007DC3AD 33C0 xor eax, eax
007DC3AF 5A pop edx
007DC3B0 59 pop ecx
007DC3B1 59 pop ecx
007DC3B2 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']<5D>U<EFBFBD><55>j'
|
007DC3B5 68C2C37D00 push $007DC3C2
007DC3BA C3 ret
* Reference to: System.@HandleFinally;
|
007DC3BB E93487C2FF jmp 00404AF4
007DC3C0 EBF8 jmp 007DC3BA
****** END
|
007DC3C2 5D pop ebp
007DC3C3 C3 ret
*)
end;
procedure TfrmConInPut._PROC_007DC56E(Sender : TObject);
begin
(*
007DC56E 6E outsb
007DC56F 6974000000FFFFFF imul esi, [eax+eax+$00], $FFFFFF00
007DC577 FF08 dec dword ptr [eax]
007DC579 0000 add [eax], al
*)
end;
procedure TfrmConInPut._PROC_007DD512(Sender : TObject);
begin
(*
007DD512 6E outsb
007DD513 6974000000558BEC imul esi, [eax+eax+$00], $EC8B5500
007DD51B B907000000 mov ecx, $00000007
007DD520 6A00 push $00
007DD522 6A00 push $00
007DD524 49 dec ecx
007DD525 75F9 jnz 007DD520
007DD527 53 push ebx
007DD528 56 push esi
007DD529 8BF2 mov esi, edx
007DD52B 8BD8 mov ebx, eax
007DD52D 33C0 xor eax, eax
007DD52F 55 push ebp
* Possible String Reference to: '<27><>s<EFBFBD><73><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007DD530 68FAD67D00 push $007DD6FA
***** TRY
|
007DD535 64FF30 push dword ptr fs:[eax]
007DD538 648920 mov fs:[eax], esp
007DD53B 8D55FC lea edx, [ebp-$04]
007DD53E 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;
|
007DD540 E87721DBFF call 0058F6BC
007DD545 8D55F8 lea edx, [ebp-$08]
007DD548 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD54B E89CD3C2FF call 0040A8EC
007DD550 837DF800 cmp dword ptr [ebp-$08], +$00
007DD554 750D jnz 007DD563
007DD556 8D45FC lea eax, [ebp-$04]
007DD559 BA10D77D00 mov edx, $007DD710
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007DD55E E8597EC2FF call 004053BC
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD563 8BB348030000 mov esi, [ebx+$0348]
007DD569 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007DD56B E8D0AECEFF call 004C8440
* Possible String Reference to: 'PRTPrice'
|
007DD570 BA1CD77D00 mov edx, $007DD71C
007DD575 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD577 E83896CEFF call 004C6BB4
007DD57C 50 push eax
007DD57D 8D45E8 lea eax, [ebp-$18]
007DD580 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007DD583 E840B8C3FF call 00418DC8
007DD588 8D55E8 lea edx, [ebp-$18]
007DD58B 58 pop eax
007DD58C 8B08 mov ecx, [eax]
007DD58E FF91B4000000 call dword ptr [ecx+$00B4]
007DD594 8BC6 mov eax, esi
007DD596 8B10 mov edx, [eax]
* Reference to method TClientDataSet.Post()
|
007DD598 FF924C020000 call dword ptr [edx+$024C]
007DD59E 8BC3 mov eax, ebx
* Reference to: DBAdapt.TBaseDataSetAdapterField.ImplCheckOrigValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DBAdapt.TBaseDataSetAdapterField.ImplUpdateValue(TBaseDataSetAdapterField;WebAdapt.IActionRequest;System.Integer);
| or: DsgnCntxt.TWebDesignContext.SetAdapterRequest(TWebDesignContext;System.IUnknown);
| or: DsgnCntxt.TWebDesignContext.SetAdapterResponse(TWebDesignContext;System.IUnknown);
| or: InSSLOpenSSL.TIdSSLSocket.SetCipherList(TIdSSLSocket;AnsiString);
| or: IWDBStdCtrls.SetFieldText(TField;AnsiString);
|
007DD5A0 E8F7EDFFFF call 007DC39C
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007DD5A5 8BB340030000 mov esi, [ebx+$0340]
007DD5AB 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007DD5AD E82283CEFF call 004C58D4
007DD5B2 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD5B4 E8F309D0FF call 004DDFAC
007DD5B9 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007DD5BB FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select * from YF_Money_CR where YFT
| ypeId=''
|
007DD5BE 6830D77D00 push $007DD730
* Possible String Reference to: 'Subid'
|
007DD5C3 BA64D77D00 mov edx, $007DD764
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD5C8 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD5CE E8E195CEFF call 004C6BB4
007DD5D3 8D55DC lea edx, [ebp-$24]
007DD5D6 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007DD5D8 FF5160 call dword ptr [ecx+$60]
007DD5DB 8B45DC mov eax, [ebp-$24]
007DD5DE 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD5E1 E806D3C2FF call 0040A8EC
007DD5E6 FF75E0 push dword ptr [ebp-$20]
007DD5E9 6874D77D00 push $007DD774
007DD5EE 8D45E4 lea eax, [ebp-$1C]
007DD5F1 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007DD5F6 E8B980C2FF call 004056B4
007DD5FB 8B45E4 mov eax, [ebp-$1C]
007DD5FE 50 push eax
007DD5FF 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD601 E8A609D0FF call 004DDFAC
007DD606 5A pop edx
007DD607 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007DD609 FF5138 call dword ptr [ecx+$38]
007DD60C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007DD60E E8B582CEFF call 004C58C8
* Reference to control TfrmConInPut.ADOCmd : TADOQuery
|
007DD613 8B8340030000 mov eax, [ebx+$0340]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007DD619 E8A2A8CEFF call 004C7EC0
007DD61E 84C0 test al, al
007DD620 0F85A4000000 jnz 007DD6CA
* Reference to control TfrmConInPut.ADOTemp : TADOQuery
|
007DD626 8BB33C030000 mov esi, [ebx+$033C]
007DD62C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007DD62E E8A182CEFF call 004C58D4
007DD633 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD635 E87209D0FF call 004DDFAC
007DD63A 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007DD63C FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'update YF_Money_CR set Price=''
|
007DD63F 6880D77D00 push $007DD780
007DD644 8D55D4 lea edx, [ebp-$2C]
007DD647 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD64A E89DD2C2FF call 0040A8EC
007DD64F FF75D4 push dword ptr [ebp-$2C]
* Possible String Reference to: '' '
|
007DD652 68A8D77D00 push $007DD7A8
007DD657 8D45D8 lea eax, [ebp-$28]
007DD65A BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007DD65F E85080C2FF call 004056B4
007DD664 8B45D8 mov eax, [ebp-$28]
007DD667 50 push eax
007DD668 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD66A E83D09D0FF call 004DDFAC
007DD66F 5A pop edx
007DD670 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007DD672 FF5138 call dword ptr [ecx+$38]
* Possible String Reference to: 'where YFTypeId=''
|
007DD675 68B4D77D00 push $007DD7B4
* Possible String Reference to: 'Subid'
|
007DD67A BA64D77D00 mov edx, $007DD764
* Reference to control TfrmConInPut.Order_Sub : TClientDataSet
|
007DD67F 8B8348030000 mov eax, [ebx+$0348]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007DD685 E82A95CEFF call 004C6BB4
007DD68A 8D55C8 lea edx, [ebp-$38]
007DD68D 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007DD68F FF5160 call dword ptr [ecx+$60]
007DD692 8B45C8 mov eax, [ebp-$38]
007DD695 8D55CC lea edx, [ebp-$34]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007DD698 E84FD2C2FF call 0040A8EC
007DD69D FF75CC push dword ptr [ebp-$34]
007DD6A0 6874D77D00 push $007DD774
007DD6A5 8D45D0 lea eax, [ebp-$30]
007DD6A8 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007DD6AD E80280C2FF call 004056B4
007DD6B2 8B45D0 mov eax, [ebp-$30]
007DD6B5 50 push eax
007DD6B6 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007DD6B8 E8EF08D0FF call 004DDFAC
007DD6BD 5A pop edx
007DD6BE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007DD6C0 FF5138 call dword ptr [ecx+$38]
007DD6C3 8BC6 mov eax, esi
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007DD6C5 E80A08D0FF call 004DDED4
007DD6CA 33C0 xor eax, eax
007DD6CC 5A pop edx
007DD6CD 59 pop ecx
007DD6CE 59 pop ecx
007DD6CF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[<5B><>]<5D>'
|
007DD6D2 6801D77D00 push $007DD701
007DD6D7 8D45C8 lea eax, [ebp-$38]
007DD6DA BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007DD6DF E8647CC2FF call 00405348
007DD6E4 8D45E8 lea eax, [ebp-$18]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007DD6E7 E8886FC3FF call 00414674
007DD6EC 8D45F8 lea eax, [ebp-$08]
007DD6EF BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007DD6F4 E84F7CC2FF call 00405348
007DD6F9 C3 ret
* Reference to: System.@HandleFinally;
|
007DD6FA E9F573C2FF jmp 00404AF4
007DD6FF EBD6 jmp 007DD6D7
****** END
|
007DD701 5E pop esi
007DD702 5B pop ebx
007DD703 8BE5 mov esp, ebp
007DD705 5D pop ebp
007DD706 C3 ret
*)
end;
procedure TfrmConInPut._PROC_007DDF2D(Sender : TObject);
begin
(*
007DDF2D 8BEC mov ebp, esp
007DDF2F 33C0 xor eax, eax
007DDF31 55 push ebp
* Possible String Reference to: '<27><>k<EFBFBD><6B><EFBFBD><EFBFBD>]Ë<><C38B>-<2D><<3C>'
|
007DDF32 6851DF7D00 push $007DDF51
***** TRY
|
007DDF37 64FF30 push dword ptr fs:[eax]
007DDF3A 648920 mov fs:[eax], esp
007DDF3D FF05BC3C8900 inc dword ptr [$00893CBC]
007DDF43 33C0 xor eax, eax
007DDF45 5A pop edx
007DDF46 59 pop ecx
007DDF47 59 pop ecx
007DDF48 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D><<3C>'
|
007DDF4B 6858DF7D00 push $007DDF58
007DDF50 C3 ret
* Reference to: System.@HandleFinally;
|
007DDF51 E99E6BC2FF jmp 00404AF4
007DDF56 EBF8 jmp 007DDF50
****** END
|
007DDF58 5D pop ebp
007DDF59 C3 ret
*)
end;
procedure TfrmConInPut._PROC_007DDF5C(Sender : TObject);
begin
(*
007DDF5C 832DBC3C890001 sub dword ptr [$00893CBC], +$01
007DDF63 C3 ret
*)
end;
procedure TfrmConInPut._PROC_007DDF64(Sender : TObject);
begin
(*
007DDF64 B0DF mov al, $DF
007DDF66 7D00 jnl 007DDF68
007DDF68 0000 add [eax], al
*)
end;
procedure TfrmConInPut._PROC_007DDFCA(Sender : TObject);
begin
(*
007DDFCA 48 dec eax
007DDFCB 0050D4 add [eax-$2C], dl
007DDFCE 42 inc edx
007DDFCF 0008 add [eax], cl
007DDFD1 2D4A007CD0 sub eax, $D07C004A
007DDFD6 42 inc edx
007DDFD7 00F4 add ah, dh
007DDFD9 6B4A00D0 imul ecx, [edx+$00], $D0
007DDFDD 1D4A0030F6 sbb eax, $F630004A
007DDFE2 48 dec eax
007DDFE3 004CFB48 add [ebx+edi*8+$48], cl
007DDFE7 0098FA48000C add [eax+$C0048FA], bl
007DDFED 7948 jns 007DE037
007DDFEF 00ACF04800E829 add [eax+esi*8+$29E80048], ch
007DDFF6 4A dec edx
007DDFF7 00E4 add ah, ah
007DDFF9 ED in eax, dx
007DDFFA 48 dec eax
007DDFFB 00547848 add [eax+edi*2+$48], dl
007DDFFF 005878 add [eax+$78], bl
007DE002 48 dec eax
007DE003 00DC add ah, bl
007DE005 2A4A00 sub cl, byte ptr [edx+$00]
007DE008 3CA9 cmp al, $A9
007DE00A 48 dec eax
007DE00B 00C0 add al, al
007DE00D 834800D0 or dword ptr [eax+$00], -$30
007DE011 7948 jns 007DE05B
007DE013 004C8548 add [ebp+eax*4+$48], cl
007DE017 00D0 add al, dl
007DE019 2C4A sub al, $4A
007DE01B 009C2B4A008486 add [ebx+ebp+$8684004A], bl
007DE022 48 dec eax
007DE023 00482D add [eax+$2D], cl
007DE026 4A dec edx
007DE027 00C0 add al, al
007DE029 A9480038EE test eax, $EE380048
007DE02E 48 dec eax
007DE02F 00F4 add ah, dh
007DE031 EE out dx, al
007DE032 48 dec eax
007DE033 00F0 add al, dh
007DE035 E94800D8EE jmp EF55E082
007DE03A 48 dec eax
007DE03B 00D8 add al, bl
007DE03D 1B4A00 sbb ecx, [edx+$00]
007DE040 EC in al, dx
007DE041 334A00 xor ecx, [edx+$00]
007DE044 20C4 and ah, al
007DE046 48 dec eax
007DE047 00B0404A0010 add [eax+$10004A40], dh
007DE04D 44 inc esp
007DE04E 4A dec edx
007DE04F 00CC add ah, cl
007DE051 42 inc edx
007DE052 4A dec edx
007DE053 00B8C44800BC add [eax+$BC0048C4], bh
007DE059 C44800 les ecx, [eax+$00]
007DE05C 48 dec eax
007DE05D 45 inc ebp
007DE05E 4A dec edx
007DE05F 001CC3 add [ebx+eax*8], bl
007DE062 48 dec eax
007DE063 0018 add [eax], bl
007DE065 F0 lock
007DE066 48 dec eax
007DE067 00444C4A add [esp+ecx*2+$4A], al
007DE06B 000C02 add [edx+eax], cl
007DE06E 49 dec ecx
007DE06F 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
007DE076 4A dec edx
007DE077 008C154A003C18 add [ebp+edx+$183C004A], cl
007DE07E 4A dec edx
007DE07F 0038 add [eax], bh
007DE081 52 push edx
007DE082 4A dec edx
007DE083 005C224A add [edx+$4A], bl
007DE087 00D8 add al, bl
007DE089 224A00 and cl, byte ptr [edx+$00]
007DE08C 7C68 jl 007DE0F6
007DE08E 4A dec edx
007DE08F 00941F4A003C60 add [edi+ebx+$603C004A], dl
007DE096 4A dec edx
007DE097 001447 add [edi+eax*2], dl
007DE09A 4A dec edx
007DE09B 0034654A00CC2C add [$2CCC004A], dh
007DE0A2 4A dec edx
007DE0A3 000E add [esi], cl
007DE0A5 0000 add [eax], al
007DE0A7 0000 add [eax], al
007DE0A9 000500000020 add [$20000000], al
007DE0AF 114000 adc [eax+$00], eax
007DE0B2 E003 loopn +$03
007DE0B4 0000 add [eax], al
007DE0B6 2011 and [ecx], dl
007DE0B8 40 inc eax
007DE0B9 00E4 add ah, ah
007DE0BB 0300 add eax, [eax]
007DE0BD 0020 add [eax], ah
007DE0BF 114000 adc [eax+$00], eax
007DE0C2 E803000020 call 207DE0CA
007DE0C7 114000 adc [eax+$00], eax
007DE0CA EC in al, dx
007DE0CB 0300 add eax, [eax]
007DE0CD 0020 add [eax], ah
007DE0CF 114000 adc [eax+$00], eax
007DE0D2 F0 lock
007DE0D3 0300 add eax, [eax]
007DE0D5 003500AEE57D add [$7DE5AE00], dh
007DE0DB 00F8 add al, bh
007DE0DD 0200 add al, byte ptr [eax]
007DE0DF 0000 add [eax], al
007DE0E1 0008 add [eax], cl
007DE0E3 54 push esp
007DE0E4 6F outsd
007DE0E5 6F outsd
007DE0E6 6C insb
007DE0E7 42 inc edx
007DE0E8 61 popa
007DE0E9 7231 jb 007DE11C
007DE0EB FC cld
007DE0EC 0200 add al, byte ptr [eax]
007DE0EE 0001 add [ecx], al
007DE0F0 0009 add [ecx], cl
007DE0F2 54 push esp
007DE0F3 42 inc edx
007DE0F4 52 push edx
007DE0F5 61 popa
007DE0F6 667265 jb 007DE15E
007DE0F9 7368 jnb 007DE163
007DE0FB 0003 add [ebx], al
007DE0FD 0000 add [eax], al
007DE0FF 0100 add [eax], eax
007DE101 06 push es
007DE102 54 push esp
007DE103 42 inc edx
007DE104 46 inc esi
007DE105 696E6404030000 imul ebp, [esi+$64], $00000304
007DE10C 0100 add [eax], eax
007DE10E 07 pop es
007DE10F 54 push esp
007DE110 42 inc edx
007DE111 43 inc ebx
007DE112 6C insb
007DE113 6F outsd
007DE114 7365 jnb 007DE17B
007DE116 0803 or [ebx], al
007DE118 0000 add [eax], al
007DE11A 0200 add al, byte ptr [eax]
007DE11C 06 push es
007DE11D 50 push eax
007DE11E 61 popa
007DE11F 6E outsb
007DE120 656C insb
007DE122 310C03 xor [ebx+eax], ecx
007DE125 0000 add [eax], al
007DE127 0300 add eax, [eax]
007DE129 07 pop es
007DE12A 42 inc edx
007DE12B 656744 inc esp
007DE12E 61 popa
007DE12F 7465 jz 007DE196
007DE131 1003 adc [ebx], al
007DE133 0000 add [eax], al
007DE135 0300 add eax, [eax]
007DE137 07 pop es
007DE138 45 inc ebp
007DE139 6E outsb
007DE13A 6444 inc esp
007DE13C 61 popa
007DE13D 7465 jz 007DE1A4
007DE13F 1403 adc al, $03
007DE141 0000 add [eax], al
007DE143 0400 add al, +$00
007DE145 06 push es
007DE146 4C dec esp
007DE147 61 popa
007DE148 62656C bound esp, qword ptr [ebp+$6C]
007DE14B 3118 xor [eax], ebx
007DE14D 0300 add eax, [eax]
007DE14F 000500106378 add [$78631000], al
007DE155 47 inc edi
007DE156 7269 jb 007DE1C1
007DE158 6450 push eax
007DE15A 6F outsd
007DE15B 7075 jo 007DE1D2
007DE15D 704D jo 007DE1AC
007DE15F 656E outsb
007DE161 7531 jnz 007DE194
007DE163 1C03 sbb al, $03
007DE165 0000 add [eax], al
007DE167 06 push es
007DE168 000B add [ebx], cl
007DE16A 41 inc ecx
007DE16B 44 inc esp
007DE16C 4F dec edi
007DE16D 51 push ecx
007DE16E 7565 jnz 007DE1D5
007DE170 7279 jb 007DE1EB
007DE172 43 inc ebx
007DE173 6D insd
007DE174 642003 and fs:[ebx], al
007DE177 0000 add [eax], al
007DE179 06 push es
007DE17A 000C41 add [ecx+eax*2], cl
007DE17D 44 inc esp
007DE17E 4F dec edi
007DE17F 51 push ecx
007DE180 7565 jnz 007DE1E7
007DE182 7279 jb 007DE1FD
007DE184 4D dec ebp
007DE185 61 popa
007DE186 696E2403000006 imul ebp, [esi+$24], $06000003
007DE18D 000C41 add [ecx+eax*2], cl
007DE190 44 inc esp
007DE191 4F dec edi
007DE192 51 push ecx
007DE193 7565 jnz 007DE1FA
007DE195 7279 jb 007DE210
007DE197 54 push esp
007DE198 656D insd
007DE19A 7028 jo 007DE1C4
007DE19C 0300 add eax, [eax]
007DE19E 0007 add [edi], al
007DE1A0 000B add [ebx], cl
007DE1A2 44 inc esp
007DE1A3 61 popa
007DE1A4 7461 jz 007DE207
007DE1A6 53 push ebx
007DE1A7 6F outsd
007DE1A8 7572 jnz 007DE21C
007DE1AA 636531 arpl [ebp+$31], sp
007DE1AD 2C03 sub al, $03
007DE1AF 0000 add [eax], al
007DE1B1 0800 or [eax], al
007DE1B3 0A4F72 or cl, byte ptr [edi+$72]
007DE1B6 6465725F jb 007DE219
007DE1BA 4D dec ebp
007DE1BB 61 popa
007DE1BC 696E3003000009 imul ebp, [esi+$30], $09000003
007DE1C3 0003 add [ebx], al
007DE1C5 52 push edx
007DE1C6 4D dec ebp
007DE1C7 313403 xor [ebx+eax], esi
007DE1CA 0000 add [eax], al
007DE1CC 0A00 or al, byte ptr [eax]
007DE1CE 08524D or [edx+$4D], dl
007DE1D1 44 inc esp
007DE1D2 42 inc edx
007DE1D3 4D dec ebp
007DE1D4 61 popa
007DE1D5 696E380300000B imul ebp, [esi+$38], $0B000003
007DE1DC 000C52 add [edx+edx*2], cl
007DE1DF 4D dec ebp
007DE1E0 58 pop eax
007DE1E1 4C dec esp
007DE1E2 53 push ebx
007DE1E3 45 inc ebp
007DE1E4 7870 js 007DE256
007DE1E6 6F outsd
007DE1E7 7274 jb 007DE25D
007DE1E9 313C03 xor [ebx+eax], edi
007DE1EC 0000 add [eax], al
007DE1EE 0400 add al, +$00
007DE1F0 06 push es
007DE1F1 4C dec esp
007DE1F2 61 popa
007DE1F3 62656C bound esp, qword ptr [ebp+$6C]
007DE1F6 3440 xor al, $40
007DE1F8 0300 add eax, [eax]
007DE1FA 000C00 add [eax+eax], cl
007DE1FD 0E push cs
007DE1FE 43 inc ebx
007DE1FF 7573 jnz 007DE274
007DE201 746F jz 007DE272
007DE203 6D insd
007DE204 65724E jb 007DE255
007DE207 6F outsd
007DE208 4E dec esi
007DE209 61 popa
007DE20A 6D insd
007DE20B 6544 inc esp
007DE20D 0300 add eax, [eax]
007DE20F 000D000A506F add [$6F500A00], cl
007DE215 7075 jo 007DE28C
007DE217 704D jo 007DE266
007DE219 656E outsb
007DE21B 7531 jnz 007DE24E
007DE21D 48 dec eax
007DE21E 0300 add eax, [eax]
007DE220 000E add [esi], cl
007DE222 0002 add [edx], al
007DE224 4E dec esi
007DE225 324C0300 xor cl, byte ptr [ebx+eax+$00]
007DE229 000400 add [eax+eax], al
007DE22C 06 push es
007DE22D 4C dec esp
007DE22E 61 popa
007DE22F 62656C bound esp, qword ptr [ebp+$6C]
007DE232 37 aaa
007DE233 50 push eax
007DE234 0300 add eax, [eax]
007DE236 000C00 add [eax+eax], cl
007DE239 085052 or [eax+$52], dl
007DE23C 54 push esp
007DE23D 43 inc ebx
007DE23E 6F outsd
007DE23F 6C insb
007DE240 6F outsd
007DE241 7254 jb 007DE297
007DE243 0300 add eax, [eax]
007DE245 000400 add [eax+eax], al
007DE248 06 push es
007DE249 4C dec esp
007DE24A 61 popa
007DE24B 62656C bound esp, qword ptr [ebp+$6C]
007DE24E 385803 cmp [eax+$03], bl
007DE251 0000 add [eax], al
007DE253 0C00 or al, $00
007DE255 0B5052 or edx, [eax+$52]
007DE258 54 push esp
007DE259 43 inc ebx
007DE25A 6F outsd
007DE25B 64654E dec esi
007DE25E 61 popa
007DE25F 6D insd
007DE260 655C pop esp
007DE262 0300 add eax, [eax]
007DE264 000400 add [eax+eax], al
007DE267 06 push es
007DE268 4C dec esp
007DE269 61 popa
007DE26A 62656C bound esp, qword ptr [ebp+$6C]
007DE26D 396003 cmp [eax+$03], esp
007DE270 0000 add [eax], al
007DE272 0C00 or al, $00
007DE274 05436F6E4E add eax, +$4E6E6F43
007DE279 6F outsd
007DE27A 640300 add eax, fs:[eax]
007DE27D 000400 add [eax+eax], al
007DE280 07 pop es
007DE281 4C dec esp
007DE282 61 popa
007DE283 62656C bound esp, qword ptr [ebp+$6C]
007DE286 3132 xor [edx], esi
007DE288 680300000C push $0C000003
007DE28D 00055052544B add [$4B545250], al
007DE293 5A pop edx
007DE294 6C insb
007DE295 0300 add eax, [eax]
007DE297 000400 add [eax+eax], al
007DE29A 07 pop es
007DE29B 4C dec esp
007DE29C 61 popa
007DE29D 62656C bound esp, qword ptr [ebp+$6C]
007DE2A0 3133 xor [ebx], esi
007DE2A2 7003 jo 007DE2A7
007DE2A4 0000 add [eax], al
007DE2A6 0C00 or al, $00
007DE2A8 055052544D add eax, +$4D545250
007DE2AD 46 inc esi
007DE2AE 7403 jz 007DE2B3
007DE2B0 0000 add [eax], al
007DE2B2 06 push es
007DE2B3 000D41444F51 add [$514F4441], cl
007DE2B9 7565 jnz 007DE320
007DE2BB 7279 jb 007DE336
007DE2BD 50 push eax
007DE2BE 7269 jb 007DE329
007DE2C0 6E outsb
007DE2C1 7478 jz 007DE33B
007DE2C3 0300 add eax, [eax]
007DE2C5 0008 add [eax], cl
007DE2C7 0009 add [ecx], cl
007DE2C9 43 inc ebx
007DE2CA 44 inc esp
007DE2CB 53 push ebx
007DE2CC 5F pop edi
007DE2CD 50 push eax
007DE2CE 7269 jb 007DE339
007DE2D0 6E outsb
007DE2D1 747C jz 007DE34F
007DE2D3 0300 add eax, [eax]
007DE2D5 0001 add [ecx], al
007DE2D7 000B add [ebx], cl
007DE2D9 54 push esp
007DE2DA 6F outsd
007DE2DB 6F outsd
007DE2DC 6C insb
007DE2DD 42 inc edx
007DE2DE 7574 jnz 007DE354
007DE2E0 746F jz 007DE351
007DE2E2 6E outsb
007DE2E3 33800300000F xor eax, [eax+$F000003]
007DE2E9 0007 add [edi], al
007DE2EB 637847 arpl [eax+$47], di
007DE2EE 7269 jb 007DE359
007DE2F0 6431840300001000 xor fs:[ebx+eax+$100000], eax
007DE2F8 03547631 add edx, [esi+esi*2+$31]
007DE2FC 8803 mov [ebx], al
007DE2FE 0000 add [eax], al
007DE300 1100 adc [eax], eax
007DE302 097631 or [esi+$31], esi
007DE305 43 inc ebx
007DE306 6F outsd
007DE307 6C insb
007DE308 756D jnz 007DE377
007DE30A 6E outsb
007DE30B 348C xor al, $8C
007DE30D 0300 add eax, [eax]
007DE30F 0011 add [ecx], dl
007DE311 0007 add [edi], al
007DE313 7631 jbe 007DE346
007DE315 43 inc ebx
007DE316 6F outsd
007DE317 6E outsb
007DE318 4E dec esi
007DE319 6F outsd
007DE31A 90 nop
007DE31B 0300 add eax, [eax]
007DE31D 0011 add [ecx], dl
007DE31F 000C76 add [esi+esi*2], cl
007DE322 31436F xor [ebx+$6F], eax
007DE325 6E outsb
007DE326 50 push eax
007DE327 657273 jb 007DE39D
007DE32A 6F outsd
007DE32B 6E outsb
007DE32C 31940300001100 xor [ebx+eax+$110000], edx
007DE333 097631 or [esi+$31], esi
007DE336 4F dec edi
007DE337 7264 jb 007DE39D
007DE339 44 inc esp
007DE33A 61 popa
007DE33B 7465 jz 007DE3A2
007DE33D 98 cwde
007DE33E 0300 add eax, [eax]
007DE340 0011 add [ecx], dl
007DE342 0010 add [eax], dl
007DE344 7631 jbe 007DE377
007DE346 43 inc ebx
007DE347 7573 jnz 007DE3BC
007DE349 746F jz 007DE3BA
007DE34B 6D insd
007DE34C 65724E jb 007DE39D
007DE34F 6F outsd
007DE350 4E dec esi
007DE351 61 popa
007DE352 6D insd
007DE353 659C pushf
007DE355 0300 add eax, [eax]
007DE357 0011 add [ecx], dl
007DE359 000D76315052 add [$52503176], cl
007DE35F 54 push esp
007DE360 43 inc ebx
007DE361 6F outsd
007DE362 64654E dec esi
007DE365 61 popa
007DE366 6D insd
007DE367 65A003000011 mov al, byte ptr [$11000003]
007DE36D 0009 add [ecx], cl
007DE36F 7631 jbe 007DE3A2
007DE371 43 inc ebx
007DE372 6F outsd
007DE373 6C insb
007DE374 756D jnz 007DE3E3
007DE376 6E outsb
007DE377 31A40300001100 xor [ebx+eax+$110000], esp
007DE37E 0D76315052 or eax, $52503176
007DE383 54 push esp
007DE384 4F dec edi
007DE385 7264 jb 007DE3EB
007DE387 657251 jb 007DE3DB
007DE38A 7479 jz 007DE405
007DE38C A803 test al, $03
007DE38E 0000 add [eax], al
007DE390 1100 adc [eax], eax
007DE392 0E push cs
007DE393 7631 jbe 007DE3C6
007DE395 53 push ebx
007DE396 4F dec edi
007DE397 7264 jb 007DE3FD
007DE399 44 inc esp
007DE39A 65664E dec si
007DE39D 6F outsd
007DE39E 7465 jz 007DE405
007DE3A0 31AC0300001200 xor [ebx+eax+$120000], ebp
007DE3A7 0D63784772 or eax, $72477863
007DE3AC 6964314C6576656C imul esp, [ecx+esi+$4C], $6C657665
007DE3B4 31B003000011 xor [eax+$11000003], esi
007DE3BA 0009 add [ecx], cl
007DE3BC 7631 jbe 007DE3EF
007DE3BE 7374 jnb 007DE434
007DE3C0 796C jns 007DE42E
007DE3C2 654E dec esi
007DE3C4 6F outsd
007DE3C5 B403 mov ah, $03
007DE3C7 0000 add [eax], al
007DE3C9 1100 adc [eax], eax
007DE3CB 07 pop es
007DE3CC 7631 jbe 007DE3FF
007DE3CE 50 push eax
007DE3CF 52 push edx
007DE3D0 54 push esp
007DE3D1 4D dec ebp
007DE3D2 46 inc esi
007DE3D3 B803000011 mov eax, $11000003
007DE3D8 0007 add [edi], al
007DE3DA 7631 jbe 007DE40D
007DE3DC 50 push eax
007DE3DD 52 push edx
007DE3DE 54 push esp
007DE3DF 4B dec ebx
007DE3E0 5A pop edx
007DE3E1 BC03000011 mov esp, $11000003
007DE3E6 0009 add [ecx], cl
007DE3E8 7631 jbe 007DE41B
007DE3EA 50 push eax
007DE3EB 52 push edx
007DE3EC 54 push esp
007DE3ED 53 push ebx
007DE3EE 7065 jo 007DE455
007DE3F0 63C0 arpl ax, ax
007DE3F2 0300 add eax, [eax]
007DE3F4 0011 add [ecx], dl
007DE3F6 000D7631534F add [$4F533176], cl
007DE3FC 7264 jb 007DE462
007DE3FE 44 inc esp
007DE3FF 656653 push bx
007DE402 7472 jz 007DE476
007DE404 34C4 xor al, $C4
007DE406 0300 add eax, [eax]
007DE408 0011 add [ecx], dl
007DE40A 0008 add [eax], cl
007DE40C 7631 jbe 007DE43F
007DE40E 42 inc edx
007DE40F 5A pop edx
007DE410 54 push esp
007DE411 7970 jns 007DE483
007DE413 65C803 enter , $03
007DE416 0000 add [eax], al
007DE418 0100 add [eax], eax
007DE41A 0554537365 add eax, +$65735354
007DE41F 6C insb
007DE420 1300 adc eax, [eax]
007DE422 1200 adc al, byte ptr [eax]
007DE424 30E6 xor dh, ah
007DE426 7D00 jnl 007DE428
007DE428 0B466F or eax, [esi+$6F]
007DE42B 726D jb 007DE49A
007DE42D 44 inc esp
007DE42E 657374 jnb 007DE4A5
007DE431 726F jb 007DE4A2
007DE433 7910 jns 007DE445
007DE435 0038 add [eax], bh
007DE437 E67D out $7D, al
007DE439 0009 add [ecx], cl
007DE43B 46 inc esi
007DE43C 6F outsd
007DE43D 726D jb 007DE4AC
007DE43F 43 inc ebx
007DE440 6C insb
007DE441 6F outsd
007DE442 7365 jnb 007DE4A9
007DE444 1100 adc [eax], eax
007DE446 3CE6 cmp al, $E6
007DE448 7D00 jnl 007DE44A
007DE44A 0A466F or al, byte ptr [esi+$6F]
007DE44D 726D jb 007DE4BC
007DE44F 43 inc ebx
007DE450 7265 jb 007DE4B7
007DE452 61 popa
007DE453 7465 jz 007DE4BA
007DE455 1300 adc eax, [eax]
007DE457 60 pusha
007DE458 E67D out $7D, al
007DE45A 000C54 add [esp+edx*2], cl
007DE45D 42 inc edx
007DE45E 43 inc ebx
007DE45F 6C insb
007DE460 6F outsd
007DE461 7365 jnb 007DE4C8
007DE463 43 inc ebx
007DE464 6C insb
007DE465 69636B120060EC imul esp, [ebx+$6B], $EC600012
007DE46C 7D00 jnl 007DE46E
007DE46E 0B544246 or edx, [edx+eax*2+$46]
007DE472 696E64436C6963 imul ebp, [esi+$64], $63696C43
007DE479 6B1500F0EC7D00 imul edx, [$7DECF000], $00
007DE480 0E push cs
007DE481 54 push esp
007DE482 42 inc edx
007DE483 52 push edx
007DE484 61 popa
007DE485 667265 jb 007DE4ED
007DE488 7368 jnb 007DE4F2
007DE48A 43 inc ebx
007DE48B 6C insb
007DE48C 69636B1500F8EC imul esp, [ebx+$6B], $ECF80015
007DE493 7D00 jnl 007DE495
007DE495 0E push cs
007DE496 4F dec edi
007DE497 7264 jb 007DE4FD
007DE499 65724E jb 007DE4EA
007DE49C 6F outsd
007DE49D 4D dec ebp
007DE49E 43 inc ebx
007DE49F 68616E6765 push $65676E61
007DE4A4 0F0088ED7D0008 str word ptr [eax+$8007DED]
007DE4AB 46 inc esi
007DE4AC 6F outsd
007DE4AD 726D jb 007DE51C
007DE4AF 53 push ebx
007DE4B0 686F771000 push $0010776F
007DE4B5 90 nop
007DE4B6 ED in eax, dx
007DE4B7 7D00 jnl 007DE4B9
007DE4B9 09544254 or [edx+eax*2+$54], edx
007DE4BD 50 push eax
007DE4BE 43 inc ebx
007DE4BF 6C insb
007DE4C0 69636B1500B8ED imul esp, [ebx+$6B], $EDB80015
007DE4C7 7D00 jnl 007DE4C9
007DE4C9 0E push cs
007DE4CA 43 inc ebx
007DE4CB 6865636B42 push $426B6365
007DE4D0 6F outsd
007DE4D1 7831 js 007DE504
007DE4D3 43 inc ebx
007DE4D4 6C insb
007DE4D5 69636B1500C0ED imul esp, [ebx+$6B], $EDC00015
007DE4DC 7D00 jnl 007DE4DE
007DE4DE 0E push cs
007DE4DF 43 inc ebx
007DE4E0 6865636B42 push $426B6365
007DE4E5 6F outsd
007DE4E6 7832 js 007DE51A
007DE4E8 43 inc ebx
007DE4E9 6C insb
007DE4EA 69636B1F00D4ED imul esp, [ebx+$6B], $EDD4001F
007DE4F1 7D00 jnl 007DE4F3
007DE4F3 18547631 sbb [esi+esi*2+$31], dl
007DE4F7 53 push ebx
007DE4F8 7479 jz 007DE573
007DE4FA 6C insb
007DE4FB 657347 jnb 007DE545
007DE4FE 657443 jz 007DE544
007DE501 6F outsd
007DE502 6E outsb
007DE503 7465 jz 007DE56A
007DE505 6E outsb
007DE506 7453 jz 007DE55B
007DE508 7479 jz 007DE583
007DE50A 6C insb
007DE50B 652300 and eax, gs:[eax]
007DE50E DCED fsub st(5), st(0)
007DE510 7D00 jnl 007DE512
007DE512 1C76 sbb al, $76
007DE514 3144656C xor [ebp+$6C], eax
007DE518 69766572794461 imul esi, [esi+$65], $61447972
007DE51F 7465 jz 007DE586
007DE521 43 inc ebx
007DE522 7573 jnz 007DE597
007DE524 746F jz 007DE595
007DE526 6D insd
007DE527 44 inc esp
007DE528 7261 jb 007DE58B
007DE52A 7743 jnbe 007DE56F
007DE52C 656C insb
007DE52E 6C insb
007DE52F 0E push cs
007DE530 00E4 add ah, ah
007DE532 ED in eax, dx
007DE533 7D00 jnl 007DE535
007DE535 07 pop es
007DE536 4E dec esi
007DE537 31436C xor [ebx+$6C], eax
007DE53A 69636B0E0054F0 imul esp, [ebx+$6B], $F054000E
007DE541 7D00 jnl 007DE543
007DE543 07 pop es
007DE544 4E dec esi
007DE545 32436C xor al, byte ptr [ebx+$6C]
007DE548 69636B1700C4F2 imul esp, [ebx+$6B], $F2C40017
007DE54F 7D00 jnl 007DE551
007DE551 10546F6F adc [edi+ebp*2+$6F], dl
007DE555 6C insb
007DE556 42 inc edx
007DE557 7574 jnz 007DE5CD
007DE559 746F jz 007DE5CA
007DE55B 6E outsb
007DE55C 33436C xor eax, [ebx+$6C]
007DE55F 69636B1600E4F2 imul esp, [ebx+$6B], $F2E40016
007DE566 7D00 jnl 007DE568
007DE568 0F54 DB $0F, $54 //
007DE56A 7631 jbe 007DE59D
007DE56C 43 inc ebx
007DE56D 656C insb
007DE56F 6C insb
007DE570 44 inc esp
007DE571 626C436C bound ebp, qword ptr [ebx+eax*2+$6C]
007DE575 69636B140030F3 imul esp, [ebx+$6B], $F3300014
007DE57C 7D00 jnl 007DE57E
007DE57E 0D436F6E4E or eax, $4E6E6F43
007DE583 6F outsd
007DE584 4B dec ebx
007DE585 657950 jns 007DE5D8
007DE588 7265 jb 007DE5EF
007DE58A 7373 jnb 007DE5FF
007DE58C 1100 adc [eax], eax
007DE58E CC int 3
007DE58F F67D00 idiv byte ptr [ebp+$00]
007DE592 0A545373 or dl, byte ptr [ebx+edx*2+$73]
007DE596 656C insb
007DE598 43 inc ebx
007DE599 6C insb
007DE59A 69636B10546672 imul esp, [ebx+$6B], $72665410
007DE5A1 6D insd
007DE5A2 4A dec edx
007DE5A3 59 pop ecx
007DE5A4 6F outsd
007DE5A5 7264 jb 007DE60B
007DE5A7 657243 jb 007DE5ED
007DE5AA 6F outsd
007DE5AB 6E outsb
007DE5AC 43 inc ebx
007DE5AD 58 pop eax
007DE5AE 1300 adc eax, [eax]
007DE5B0 28944500648A45 sub [ebp+eax*2+$458A6400], dl
007DE5B7 0020 add [eax], ah
007DE5B9 42 inc edx
007DE5BA 44 inc esp
007DE5BB 00E0 add al, ah
007DE5BD A5 movsd
007DE5BE 45 inc ebp
007DE5BF 001C5F add [edi+ebx*2], bl
007DE5C2 47 inc edi
007DE5C3 005876 add [eax+$76], bl
007DE5C6 7C00 jl 007DE5C8
007DE5C8 B8124D0008 mov eax, $08004D12
007DE5CD 7F4B jnle 007DE61A
007DE5CF 0088996A0064 add [eax+$64006A99], cl
007DE5D5 D37800 sar dword ptr [eax+$00], cl
007DE5D8 A80A test al, $0A
007DE5DA 7800 js 007DE5DC
007DE5DC 6C insb
007DE5DD 157B00B867 adc eax, $67B8007B
007DE5E2 47 inc edi
007DE5E3 00887E49008C add [eax+$8C00497E], cl
007DE5E9 7649 jbe 007DE634
007DE5EB 0000 add [eax], al
007DE5ED 16 push ss
007DE5EE 6300 arpl [eax], ax
007DE5F0 F4 hlt
007DE5F1 B466 mov ah, $66
007DE5F3 0034B1 add [ecx+esi*4], dh
007DE5F6 6600A40E640000E6 add [esi+ecx+$E6000064], ah
007DE5FE 7D00 jnl 007DE600
007DE600 07 pop es
007DE601 10546672 adc [esi+$72], dl
007DE605 6D insd
007DE606 4A dec edx
007DE607 59 pop ecx
007DE608 6F outsd
007DE609 7264 jb 007DE66F
007DE60B 657243 jb 007DE651
007DE60E 6F outsd
007DE60F 6E outsb
007DE610 43 inc ebx
007DE611 58 pop eax
007DE612 B0DF mov al, $DF
007DE614 7D00 jnl 007DE616
007DE616 D0F2 DB $D0, $F2 // dl, 1
007DE618 49 dec ecx
007DE619 005E00 add [esi+$00], bl
007DE61C 0F55 DB $0F, $55 //
007DE61E 5F pop edi
007DE61F 4A dec edx
007DE620 59 pop ecx
007DE621 4F dec edi
007DE622 7264 jb 007DE688
007DE624 657243 jb 007DE66A
007DE627 6F outsd
007DE628 6E outsb
007DE629 5F pop edi
007DE62A 43 inc ebx
007DE62B 58 pop eax
007DE62C 0000 add [eax], al
007DE62E 8BC0 mov eax, eax
007DE630 33C0 xor eax, eax
* Reference to GlobalVar_00893CC0
|
007DE632 A3C03C8900 mov dword ptr [$00893CC0], eax
007DE637 C3 ret
007DE638 C60102 mov byte ptr [ecx], $02
007DE63B C3 ret
007DE63C 53 push ebx
007DE63D 8BD8 mov ebx, eax
007DE63F B205 mov dl, $05
* Reference to control v1OrderUnit : TcxGridDBColumn
|
007DE641 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
007DE647 E89094CAFF call 00487ADC
* Reference to control ToolButton2 : TToolButton
|
007DE64C 8B8324030000 mov eax, [ebx+$0324]
|
007DE652 E83163FDFF call 007B4988
007DE657 DD9BD0030000 fstp qword ptr [ebx+$03D0]
007DE65D 9B wait
007DE65E 5B pop ebx
007DE65F C3 ret
007DE660 53 push ebx
007DE661 8BD8 mov ebx, eax
007DE663 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007DE665 E82E79CCFF call 004A5F98
* Reference to control Label23 : TLabel
|
007DE66A 83BBDC03000001 cmp dword ptr [ebx+$03DC], +$01
007DE671 7417 jz 007DE68A
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007DE673 B9ACE67D00 mov ecx, $007DE6AC
* Reference to control v1PriceUnit : TcxGridDBColumn
|
007DE678 8B9384030000 mov edx, [ebx+$0384]
* Possible String Reference to: 'ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>10'
|
007DE67E B8C4E67D00 mov eax, $007DE6C4
|
007DE683 E81895FDFF call 007B7BA0
007DE688 5B pop ebx
007DE689 C3 ret
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007DE68A B9ACE67D00 mov ecx, $007DE6AC
* Reference to control v1PriceUnit : TcxGridDBColumn
|
007DE68F 8B9384030000 mov edx, [ebx+$0384]
* Possible String Reference to: 'ָʾ<D6B8><CABE><EFBFBD>б<EFBFBD>ѡ<EFBFBD><D1A1>'
|
007DE695 B8DCE67D00 mov eax, $007DE6DC
|
007DE69A E80195FDFF call 007B7BA0
007DE69F 5B pop ebx
007DE6A0 C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink