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

2995 lines
116 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_skHx;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmskHx=class(TForm)
ToolBar1: TToolBar;
TBSave: TToolButton;
TBClose: TToolButton;
GroupBox1: TGroupBox;
Label1: TLabel;
factoryName: TEdit;
Label2: TLabel;
Money: TEdit;
Label3: TLabel;
curHsNum: TEdit;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
hxNum: TEdit;
Label4: TLabel;
NhxNum: TEdit;
Label5: TLabel;
ADOQueryCmd: TADOQuery;
ADOQueryTmp: TADOQuery;
DS_ysk: TDataSource;
cdsYsk: TClientDataSet;
ADOQueryYsk: TADOQuery;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
CheckBox1: TCheckBox;
v1OrderNO: TcxGridDBColumn;
v1PBNote: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
v1FPNo: TcxGridDBColumn;
procedure FormDestroy(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure v1Column7PropertiesEditValueChanged(Sender : TObject);
procedure CheckBox1Click(Sender : TObject);
procedure TBSaveClick(Sender : TObject);
procedure _PROC_00815197(Sender : TObject);
procedure _PROC_0081544B(Sender : TObject);
procedure _PROC_00815495(Sender : TObject);
procedure _PROC_00815761(Sender : TObject);
procedure _PROC_00815A14(Sender : TObject);
procedure _PROC_00815A25(Sender : TObject);
procedure _PROC_00815F9B(Sender : TObject);
procedure _PROC_0081604C(Sender : TObject);
procedure _PROC_00816050(Sender : TObject);
procedure _PROC_00816080(Sender : TObject);
procedure _PROC_00816088(Sender : TObject);
procedure _PROC_008160EE(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmskHx: TfrmskHx;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmskHx.FormDestroy(Sender : TObject);
begin
(*
00815A28 33C0 xor eax, eax
* Reference to GlobalVar_00895998
|
00815A2A A398598900 mov dword ptr [$00895998], eax
00815A2F C3 ret
*)
end;
procedure TfrmskHx.FormCreate(Sender : TObject);
begin
(*
00815A30 B205 mov dl, $05
* Reference to control TfrmskHx.cxGrid1 : TcxGrid
|
00815A32 8B8028030000 mov eax, [eax+$0328]
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
00815A38 E89F20C7FF call 00487ADC
00815A3D C3 ret
*)
end;
procedure TfrmskHx.FormShow(Sender : TObject);
begin
(*
00815A40 53 push ebx
00815A41 8BD8 mov ebx, eax
00815A43 8BC3 mov eax, ebx
|
00815A45 E816FDFFFF call 00815760
00815A4A 8BC3 mov eax, ebx
|
00815A4C E843FAFFFF call 00815494
00815A51 5B pop ebx
00815A52 C3 ret
*)
end;
procedure TfrmskHx.TBCloseClick(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
00815A54 E83F05C9FF call 004A5F98
00815A59 C3 ret
*)
end;
procedure TfrmskHx.v1Column7PropertiesEditValueChanged(Sender : TObject);
begin
(*
00815A5C 55 push ebp
00815A5D 8BEC mov ebp, esp
00815A5F B914000000 mov ecx, $00000014
00815A64 6A00 push $00
00815A66 6A00 push $00
00815A68 49 dec ecx
00815A69 75F9 jnz 00815A64
00815A6B 51 push ecx
00815A6C 53 push ebx
00815A6D 56 push esi
00815A6E 57 push edi
00815A6F 8BDA mov ebx, edx
00815A71 8945FC mov [ebp-$04], eax
00815A74 33C0 xor eax, eax
00815A76 55 push ebp
00815A77 68825C8100 push $00815C82
***** TRY
|
00815A7C 64FF30 push dword ptr fs:[eax]
00815A7F 648920 mov fs:[eax], esp
00815A82 33C0 xor eax, eax
00815A84 55 push ebp
00815A85 68575C8100 push $00815C57
***** TRY
|
00815A8A 64FF30 push dword ptr fs:[eax]
00815A8D 648920 mov fs:[eax], esp
00815A90 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.cdsYsk : TClientDataSet
|
00815A93 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
00815A99 E8B61ACBFF call 004C7554
00815A9E 8D55EC lea edx, [ebp-$14]
00815AA1 8BFB mov edi, ebx
00815AA3 8BC7 mov eax, edi
00815AA5 8B08 mov ecx, [eax]
00815AA7 FF919C020000 call dword ptr [ecx+$029C]
00815AAD 8D45EC lea eax, [ebp-$14]
00815AB0 50 push eax
00815AB1 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.cdsYsk : TClientDataSet
|
00815AB4 8B8048030000 mov eax, [eax+$0348]
* Possible String Reference to: 'NHxNum'
|
00815ABA BA985C8100 mov edx, $00815C98
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00815ABF E8F010CBFF call 004C6BB4
00815AC4 8B10 mov edx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_54
|
00815AC6 FF5254 call dword ptr [edx+$54]
00815AC9 8D45DC lea eax, [ebp-$24]
* Reference to: Variants.@VarFromReal;
|
00815ACC E8BB32C0FF call 00418D8C
00815AD1 8D55DC lea edx, [ebp-$24]
00815AD4 58 pop eax
* Reference to: Variants.@VarCmpEQ(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpNE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpLE(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGT(TVarData;TVarData;TVarData;TVarData);
| or: Variants.@VarCmpGE(TVarData;TVarData;TVarData;TVarData);
|
00815AD5 E85279C0FF call 0041D42C
00815ADA 0F8E99000000 jle 00815B79
00815AE0 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
00815AE2 B9A05C8100 mov ecx, $00815CA0
* Possible String Reference to: '<27><><EFBFBD>κ<EFBFBD><CEBA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
00815AE7 BAAC5C8100 mov edx, $00815CAC
*)
end;
procedure TfrmskHx.CheckBox1Click(Sender : TObject);
begin
(*
00815CF0 53 push ebx
00815CF1 8BD8 mov ebx, eax
* Reference to control TfrmskHx.CheckBox1 : TCheckBox
|
00815CF3 8B8370030000 mov eax, [ebx+$0370]
00815CF9 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
00815CFB FF92C8000000 call dword ptr [edx+$00C8]
00815D01 84C0 test al, al
00815D03 740E jz 00815D13
00815D05 BA01000000 mov edx, $00000001
00815D0A 8BC3 mov eax, ebx
|
00815D0C E8C3F4FFFF call 008151D4
00815D11 5B pop ebx
00815D12 C3 ret
00815D13 33D2 xor edx, edx
00815D15 8BC3 mov eax, ebx
|
00815D17 E8B8F4FFFF call 008151D4
00815D1C 5B pop ebx
00815D1D C3 ret
*)
end;
procedure TfrmskHx.TBSaveClick(Sender : TObject);
begin
(*
00815D20 55 push ebp
00815D21 8BEC mov ebp, esp
00815D23 B909000000 mov ecx, $00000009
00815D28 6A00 push $00
00815D2A 6A00 push $00
00815D2C 49 dec ecx
00815D2D 75F9 jnz 00815D28
00815D2F 8945FC mov [ebp-$04], eax
00815D32 33C0 xor eax, eax
00815D34 55 push ebp
* Possible String Reference to: '<27>_<EFBFBD><5F><EFBFBD><EFBFBD>Ջ<EFBFBD>]<5D>'
|
00815D35 68905F8100 push $00815F90
***** TRY
|
00815D3A 64FF30 push dword ptr fs:[eax]
00815D3D 648920 mov fs:[eax], esp
00815D40 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ToolBar1 : TToolBar
|
00815D43 8B80F8020000 mov eax, [eax+$02F8]
00815D49 8B10 mov edx, [eax]
* Reference to method TToolBar.SetFocus()
|
00815D4B FF92C4000000 call dword ptr [edx+$00C4]
00815D51 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.cdsYsk : TClientDataSet
|
00815D54 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00815D5A E86121CBFF call 004C7EC0
00815D5F 84C0 test al, al
00815D61 741D jz 00815D80
00815D63 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
00815D65 B99C5F8100 mov ecx, $00815F9C
* Possible String Reference to: 'û<>ж<EFBFBD>Ӧ<EFBFBD><D3A6>Ӧ<EFBFBD>տ<EFBFBD><D5BF><EFBFBD>¼!'
|
00815D6A BAA85F8100 mov edx, $00815FA8
*)
end;
procedure TfrmskHx._PROC_00815197(Sender : TObject);
begin
(*
00815197 7365 jnb 008151FE
00815199 7249 jb 008151E4
0081519B 44 inc esp
0081519C 203D2000FFFF and [$FFFF0020], bh
008151A2 FFFF DB $FF, $FF //
008151A4 0900 or [eax], eax
008151A6 0000 add [eax], al
008151A8 2C40 sub al, $40
008151AA 50 push eax
008151AB 5A pop edx
008151AC 4E dec esi
008151AD 6F outsd
008151AE 203D20000000 and [$00000020], bh
008151B4 FFFF DB $FF, $FF //
008151B6 FFFF DB $FF, $FF //
008151B8 06 push es
008151B9 0000 add [eax], al
008151BB 005265 add [edx+$65], dl
008151BE 7375 jnb 00815235
008151C0 6C insb
008151C1 7400 jz 008151C3
008151C3 00FF add bh, bh
008151C5 FFFF DB $FF, $FF //
008151C7 FF07 inc dword ptr [edi]
008151C9 0000 add [eax], al
008151CB 005368 add [ebx+$68], dl
008151CE 6F outsd
008151CF 774D jnbe 0081521E
008151D1 7367 jnb 0081523A
008151D3 00558B add [ebp-$75], dl
008151D6 EC in al, dx
008151D7 B90E000000 mov ecx, $0000000E
008151DC 6A00 push $00
008151DE 6A00 push $00
008151E0 49 dec ecx
008151E1 75F9 jnz 008151DC
008151E3 51 push ecx
008151E4 53 push ebx
008151E5 56 push esi
008151E6 57 push edi
008151E7 8BF2 mov esi, edx
008151E9 8945FC mov [ebp-$04], eax
008151EC 33C0 xor eax, eax
008151EE 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
008151EF 684B548100 push $0081544B
***** TRY
|
008151F4 64FF30 push dword ptr fs:[eax]
008151F7 648920 mov fs:[eax], esp
008151FA 33C0 xor eax, eax
008151FC 8945F0 mov [ebp-$10], eax
008151FF 8945F4 mov [ebp-$0C], eax
00815202 33C0 xor eax, eax
00815204 55 push ebp
00815205 68EA538100 push $008153EA
***** TRY
|
0081520A 64FF30 push dword ptr fs:[eax]
0081520D 648920 mov fs:[eax], esp
00815210 8B45FC mov eax, [ebp-$04]
* Reference to control Order_Sub : N.A.
|
00815213 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
00815219 E83623CBFF call 004C7554
0081521E 8B45FC mov eax, [ebp-$04]
* Reference to control Order_Sub : N.A.
|
00815221 8B9848030000 mov ebx, [eax+$0348]
00815227 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
00815229 E8022ECBFF call 004C8030
0081522E E992010000 jmp 008153C5
* Possible String Reference to: 'NHxNum'
|
00815233 BA64548100 mov edx, $00815464
00815238 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0081523A E87519CBFF call 004C6BB4
0081523F 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
00815241 FF5254 call dword ptr [edx+$54]
00815244 DC45F0 fadd qword ptr [ebp-$10]
00815247 DD5DF0 fstp qword ptr [ebp-$10]
0081524A 9B wait
0081524B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
0081524D E8EE31CBFF call 004C8440
00815252 85F6 test esi, esi
00815254 754D jnz 008152A3
* Possible String Reference to: 'ssel'
|
00815256 BA74548100 mov edx, $00815474
0081525B 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0081525D E85219CBFF call 004C6BB4
00815262 50 push eax
00815263 8D45E0 lea eax, [ebp-$20]
00815266 33D2 xor edx, edx
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
00815268 E8F73AC0FF call 00418D64
0081526D 8D55E0 lea edx, [ebp-$20]
00815270 58 pop eax
00815271 8B08 mov ecx, [eax]
00815273 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'curHxNum'
|
00815279 BA84548100 mov edx, $00815484
0081527E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00815280 E82F19CBFF call 004C6BB4
00815285 50 push eax
00815286 8D45D0 lea eax, [ebp-$30]
00815289 33D2 xor edx, edx
0081528B B101 mov cl, $01
|
0081528D E8E238C0FF call 00418B74
00815292 8D55D0 lea edx, [ebp-$30]
00815295 58 pop eax
00815296 8B08 mov ecx, [eax]
00815298 FF91B4000000 call dword ptr [ecx+$00B4]
0081529E E9DF000000 jmp 00815382
* Possible String Reference to: 'ssel'
|
008152A3 BA74548100 mov edx, $00815474
008152A8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008152AA E80519CBFF call 004C6BB4
008152AF 50 push eax
008152B0 8D45C0 lea eax, [ebp-$40]
008152B3 B201 mov dl, $01
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
008152B5 E8AA3AC0FF call 00418D64
008152BA 8D55C0 lea edx, [ebp-$40]
008152BD 58 pop eax
008152BE 8B08 mov ecx, [eax]
008152C0 FF91B4000000 call dword ptr [ecx+$00B4]
008152C6 6A00 push $00
008152C8 6A00 push $00
008152CA 6A00 push $00
008152CC 8D55BC lea edx, [ebp-$44]
008152CF 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
008152D2 8B801C030000 mov eax, [eax+$031C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
008152D8 E81333C7FF call 004885F0
008152DD 8B45BC mov eax, [ebp-$44]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
008152E0 E88384BFFF call 0040D768
008152E5 DC6DF0 fsubr qword ptr [ebp-$10]
008152E8 D81D90548100 fcomp dword ptr [$00815490]
008152EE DFE0 fstsw ax
008152F0 9E sahf
008152F1 765D jbe 00815350
* Possible String Reference to: 'NHxNum'
|
008152F3 BA64548100 mov edx, $00815464
008152F8 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008152FA E8B518CBFF call 004C6BB4
008152FF 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
00815301 FF5254 call dword ptr [edx+$54]
00815304 DD5DA4 fstp qword ptr [ebp-$5C]
00815307 9B wait
00815308 6A00 push $00
0081530A 6A00 push $00
0081530C 6A00 push $00
0081530E 8D55A0 lea edx, [ebp-$60]
00815311 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
00815314 8B801C030000 mov eax, [eax+$031C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
0081531A E8D132C7FF call 004885F0
0081531F 8B45A0 mov eax, [ebp-$60]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
00815322 E84184BFFF call 0040D768
00815327 DC6DF0 fsubr qword ptr [ebp-$10]
0081532A DC6DA4 fsubr qword ptr [ebp-$5C]
0081532D 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarFromReal;
|
00815330 E8573AC0FF call 00418D8C
00815335 8D45AC lea eax, [ebp-$54]
00815338 50 push eax
* Possible String Reference to: 'curHxNum'
|
00815339 BA84548100 mov edx, $00815484
0081533E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00815340 E86F18CBFF call 004C6BB4
00815345 5A pop edx
00815346 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
00815348 FF91B4000000 call dword ptr [ecx+$00B4]
0081534E EB32 jmp 00815382
* Possible String Reference to: 'NHxNum'
|
00815350 BA64548100 mov edx, $00815464
00815355 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00815357 E85818CBFF call 004C6BB4
0081535C 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_54
|
0081535E FF5254 call dword ptr [edx+$54]
00815361 8D4590 lea eax, [ebp-$70]
* Reference to: Variants.@VarFromReal;
|
00815364 E8233AC0FF call 00418D8C
00815369 8D4590 lea eax, [ebp-$70]
0081536C 50 push eax
* Possible String Reference to: 'curHxNum'
|
0081536D BA84548100 mov edx, $00815484
00815372 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00815374 E83B18CBFF call 004C6BB4
00815379 5A pop edx
0081537A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_00B4
|
0081537C FF91B4000000 call dword ptr [ecx+$00B4]
00815382 8BC3 mov eax, ebx
00815384 8B10 mov edx, [eax]
* Possible reference to virtual method TN.A..OFFS_024C
|
00815386 FF924C020000 call dword ptr [edx+$024C]
0081538C 83FE01 cmp esi, +$01
0081538F 752D jnz 008153BE
00815391 6A00 push $00
00815393 6A00 push $00
00815395 6A00 push $00
00815397 8D558C lea edx, [ebp-$74]
0081539A 8B45FC mov eax, [ebp-$04]
* Reference to control ToolBar2 : N.A.
|
0081539D 8B801C030000 mov eax, [eax+$031C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
008153A3 E84832C7FF call 004885F0
008153A8 8B458C mov eax, [ebp-$74]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
008153AB E8B883BFFF call 0040D768
008153B0 DC6DF0 fsubr qword ptr [ebp-$10]
008153B3 D81D90548100 fcomp dword ptr [$00815490]
008153B9 DFE0 fstsw ax
008153BB 9E sahf
008153BC 7714 jnbe 008153D2
008153BE 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
008153C0 E8872FCBFF call 004C834C
* Reference to field N.A..OFFS_00A1
|
008153C5 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
008153CC 0F8461FEFFFF jz 00815233
008153D2 8B45FC mov eax, [ebp-$04]
* Reference to control Order_Sub : N.A.
|
008153D5 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008153DB E89421CBFF call 004C7574
008153E0 33C0 xor eax, eax
008153E2 5A pop edx
008153E3 59 pop ecx
008153E4 59 pop ecx
008153E5 648910 mov fs:[eax], edx
008153E8 EB18 jmp 00815402
* Reference to: System.@HandleAnyException;
|
008153EA E951F4BEFF jmp 00404840
008153EF 8B45FC mov eax, [ebp-$04]
* Reference to control Order_Sub : N.A.
|
008153F2 8B8048030000 mov eax, [eax+$0348]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008153F8 E87721CBFF call 004C7574
* Reference to: System.@DoneExcept;
|
008153FD E86AF8BEFF call 00404C6C
****** END
|
00815402 33C0 xor eax, eax
00815404 5A pop edx
00815405 59 pop ecx
00815406 59 pop ecx
00815407 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
0081540A 6852548100 push $00815452
0081540F 8D458C lea eax, [ebp-$74]
* Reference to: System.@LStrClr(void;void);
|
00815412 E80DFFBEFF call 00405324
00815417 8D4590 lea eax, [ebp-$70]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0081541A E855F2BFFF call 00414674
0081541F 8D45A0 lea eax, [ebp-$60]
* Reference to: System.@LStrClr(void;void);
|
00815422 E8FDFEBEFF call 00405324
00815427 8D45AC lea eax, [ebp-$54]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
0081542A E845F2BFFF call 00414674
0081542F 8D45BC lea eax, [ebp-$44]
* Reference to: System.@LStrClr(void;void);
|
00815432 E8EDFEBEFF call 00405324
00815437 8D45C0 lea eax, [ebp-$40]
* Reference to object Variant
|
0081543A 8B153C114000 mov edx, [$0040113C]
00815440 B903000000 mov ecx, $00000003
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
00815445 E8CA0CBFFF call 00406114
0081544A C3 ret
*)
end;
procedure TfrmskHx._PROC_0081544B(Sender : TObject);
begin
(*
* Reference to: System.@HandleFinally;
|
0081544B E9A4F6BEFF jmp 00404AF4
|
00815450 EBBD jmp 0081540F
00815452 5F pop edi
00815453 5E pop esi
00815454 5B pop ebx
00815455 8BE5 mov esp, ebp
00815457 5D pop ebp
00815458 C3 ret
*)
end;
procedure TfrmskHx._PROC_00815495(Sender : TObject);
begin
(*
00815495 8BEC mov ebp, esp
00815497 33C9 xor ecx, ecx
00815499 51 push ecx
0081549A 51 push ecx
0081549B 51 push ecx
0081549C 51 push ecx
0081549D 51 push ecx
0081549E 51 push ecx
0081549F 51 push ecx
008154A0 53 push ebx
008154A1 8945FC mov [ebp-$04], eax
008154A4 33C0 xor eax, eax
008154A6 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
008154A7 6823568100 push $00815623
***** TRY
|
008154AC 64FF30 push dword ptr fs:[eax]
008154AF 648920 mov fs:[eax], esp
008154B2 33C0 xor eax, eax
008154B4 55 push ebp
008154B5 6801568100 push $00815601
***** TRY
|
008154BA 64FF30 push dword ptr fs:[eax]
008154BD 648920 mov fs:[eax], esp
008154C0 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008154C3 8B8040030000 mov eax, [eax+$0340]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
008154C9 E88620CBFF call 004C7554
008154CE 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008154D1 8B9840030000 mov ebx, [eax+$0340]
008154D7 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008154D9 E8F603CBFF call 004C58D4
008154DE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008154E0 E8C78ACCFF call 004DDFAC
008154E5 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008154E7 FF5244 call dword ptr [edx+$44]
008154EA 33D2 xor edx, edx
008154EC 8BC3 mov eax, ebx
008154EE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
008154F0 FF9190010000 call dword ptr [ecx+$0190]
008154F6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008154F8 E8AF8ACCFF call 004DDFAC
* Possible String Reference to: 'select *,NhxNum=Money-isnull(hxNum,
| 0),curHxNum=0.00,inoutNo=(select To
| p 1 InoutNo from CP_INout X where X
| .CRNO=A.MainID) '
|
008154FD BA38568100 mov edx, $00815638
00815502 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00815504 FF5138 call dword ptr [ecx+$38]
00815507 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00815509 E89E8ACCFF call 004DDFAC
* Possible String Reference to: 'from YF_Money_CR A '
|
0081550E BABC568100 mov edx, $008156BC
00815513 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00815515 FF5138 call dword ptr [ecx+$38]
00815518 8D55F0 lea edx, [ebp-$10]
0081551B 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmskHx.OFFS_0388
|
0081551E 8B8088030000 mov eax, [eax+$0388]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00815524 E8C353BFFF call 0040A8EC
00815529 8B45F0 mov eax, [ebp-$10]
0081552C 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
0081552F E8C054BFFF call 0040A9F4
00815534 8B4DF4 mov ecx, [ebp-$0C]
00815537 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: 'where factoryName='
|
0081553A BAD8568100 mov edx, $008156D8
* Reference to: System.@LStrCat3;
|
0081553F E8FC00BFFF call 00405640
00815544 8B45F8 mov eax, [ebp-$08]
00815547 50 push eax
00815548 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
0081554A E85D8ACCFF call 004DDFAC
0081554F 5A pop edx
00815550 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00815552 FF5138 call dword ptr [ecx+$38]
00815555 8D55E4 lea edx, [ebp-$1C]
* Possible String Reference to: 'Ӧ<>տ<EFBFBD><D5BF>Ǽ<EFBFBD>'
|
00815558 B8F4568100 mov eax, $008156F4
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
0081555D E88A53BFFF call 0040A8EC
00815562 8B45E4 mov eax, [ebp-$1C]
00815565 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
00815568 E88754BFFF call 0040A9F4
0081556D 8B4DE8 mov ecx, [ebp-$18]
00815570 8D45EC lea eax, [ebp-$14]
* Possible String Reference to: ' and CRType='
|
00815573 BA08578100 mov edx, $00815708
* Reference to: System.@LStrCat3;
|
00815578 E8C300BFFF call 00405640
0081557D 8B45EC mov eax, [ebp-$14]
00815580 50 push eax
00815581 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00815583 E8248ACCFF call 004DDFAC
00815588 5A pop edx
00815589 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081558B FF5138 call dword ptr [ecx+$38]
0081558E 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00815590 E8178ACCFF call 004DDFAC
* Possible String Reference to: ' and Money-isnull(hxNum,0)<>0'
|
00815595 BA20578100 mov edx, $00815720
0081559A 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
0081559C FF5138 call dword ptr [ecx+$38]
0081559F 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008155A1 E8068ACCFF call 004DDFAC
* Possible String Reference to: ' order by CRTime,YFID '
|
008155A6 BA48578100 mov edx, $00815748
008155AB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008155AD FF5138 call dword ptr [ecx+$38]
008155B0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
008155B2 E81103CBFF call 004C58C8
008155B7 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.cdsYsk : TClientDataSet
|
008155BA 8B9048030000 mov edx, [eax+$0348]
008155C0 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008155C3 8B8040030000 mov eax, [eax+$0340]
|
008155C9 E8CA6EFBFF call 007CC498
008155CE 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.cdsYsk : TClientDataSet
|
008155D1 8B9048030000 mov edx, [eax+$0348]
008155D7 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008155DA 8B8040030000 mov eax, [eax+$0340]
|
008155E0 E83B70FBFF call 007CC620
008155E5 33C0 xor eax, eax
008155E7 5A pop edx
008155E8 59 pop ecx
008155E9 59 pop ecx
008155EA 648910 mov fs:[eax], edx
****** FINALLY
|
008155ED 6808568100 push $00815608
008155F2 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008155F5 8B8040030000 mov eax, [eax+$0340]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
008155FB E8741FCBFF call 004C7574
00815600 C3 ret
* Reference to: System.@HandleFinally;
|
00815601 E9EEF4BEFF jmp 00404AF4
00815606 EBEA jmp 008155F2
****** END
|
00815608 33C0 xor eax, eax
0081560A 5A pop edx
0081560B 59 pop ecx
0081560C 59 pop ecx
0081560D 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
00815610 682A568100 push $0081562A
00815615 8D45E4 lea eax, [ebp-$1C]
00815618 BA06000000 mov edx, $00000006
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081561D E826FDBEFF call 00405348
00815622 C3 ret
* Reference to: System.@HandleFinally;
|
00815623 E9CCF4BEFF jmp 00404AF4
00815628 EBEB jmp 00815615
****** END
|
0081562A 5B pop ebx
0081562B 8BE5 mov esp, ebp
0081562D 5D pop ebp
0081562E C3 ret
*)
end;
procedure TfrmskHx._PROC_00815761(Sender : TObject);
begin
(*
00815761 8BEC mov ebp, esp
00815763 B906000000 mov ecx, $00000006
00815768 6A00 push $00
0081576A 6A00 push $00
0081576C 49 dec ecx
0081576D 75F9 jnz 00815768
0081576F 51 push ecx
00815770 53 push ebx
00815771 8945FC mov [ebp-$04], eax
00815774 33C0 xor eax, eax
00815776 55 push ebp
* Possible String Reference to: '<27>z<EFBFBD><7A><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
00815777 6875598100 push $00815975
***** TRY
|
0081577C 64FF30 push dword ptr fs:[eax]
0081577F 648920 mov fs:[eax], esp
00815782 33C0 xor eax, eax
00815784 55 push ebp
00815785 684B598100 push $0081594B
***** TRY
|
0081578A 64FF30 push dword ptr fs:[eax]
0081578D 648920 mov fs:[eax], esp
00815790 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
00815793 8B8040030000 mov eax, [eax+$0340]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
00815799 E8B61DCBFF call 004C7554
0081579E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008157A1 8B9840030000 mov ebx, [eax+$0340]
008157A7 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
008157A9 E82601CBFF call 004C58D4
008157AE 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008157B0 E8F787CCFF call 004DDFAC
008157B5 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
008157B7 FF5244 call dword ptr [edx+$44]
008157BA 33D2 xor edx, edx
008157BC 8BC3 mov eax, ebx
008157BE 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_0190
|
008157C0 FF9190010000 call dword ptr [ecx+$0190]
008157C6 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
008157C8 E8DF87CCFF call 004DDFAC
* Possible String Reference to: 'select *,NhxNum=KHDKMoney-isnull(hx
| Num,0) from YF_Money_CR A'
|
008157CD BA8C598100 mov edx, $0081598C
008157D2 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
008157D4 FF5138 call dword ptr [ecx+$38]
008157D7 8D55F0 lea edx, [ebp-$10]
008157DA 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmskHx.OFFS_0384
|
008157DD 8B8084030000 mov eax, [eax+$0384]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008157E3 E80451BFFF call 0040A8EC
008157E8 8B45F0 mov eax, [ebp-$10]
008157EB 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
008157EE E80152BFFF call 0040A9F4
008157F3 8B4DF4 mov ecx, [ebp-$0C]
008157F6 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: 'where YFID='
|
008157F9 BAD4598100 mov edx, $008159D4
* Reference to: System.@LStrCat3;
|
008157FE E83DFEBEFF call 00405640
00815803 8B45F8 mov eax, [ebp-$08]
00815806 50 push eax
00815807 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
00815809 E89E87CCFF call 004DDFAC
0081580E 5A pop edx
0081580F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
00815811 FF5138 call dword ptr [ecx+$38]
00815814 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
00815816 E8AD00CBFF call 004C58C8
0081581B 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
0081581E 8B8040030000 mov eax, [eax+$0340]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
00815824 E89726CBFF call 004C7EC0
00815829 84C0 test al, al
0081582B 0F85FE000000 jnz 0081592F
00815831 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
00815834 8B8040030000 mov eax, [eax+$0340]
* Possible String Reference to: 'factoryName'
|
0081583A BAE8598100 mov edx, $008159E8
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
0081583F E87013CBFF call 004C6BB4
00815844 8D55E8 lea edx, [ebp-$18]
00815847 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00815849 FF5160 call dword ptr [ecx+$60]
0081584C 8B45E8 mov eax, [ebp-$18]
0081584F 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00815852 E89550BFFF call 0040A8EC
00815857 8B55EC mov edx, [ebp-$14]
0081585A 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.factoryName : TEdit
|
0081585D 8B800C030000 mov eax, [eax+$030C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00815863 E8B82DC7FF call 00488620
00815868 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
0081586B 8B8040030000 mov eax, [eax+$0340]
* Possible String Reference to: 'KHDKMoney'
|
00815871 BAFC598100 mov edx, $008159FC
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
00815876 E83913CBFF call 004C6BB4
0081587B 8D55E0 lea edx, [ebp-$20]
0081587E 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
00815880 FF5160 call dword ptr [ecx+$60]
00815883 8B45E0 mov eax, [ebp-$20]
00815886 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
00815889 E85E50BFFF call 0040A8EC
0081588E 8B55E4 mov edx, [ebp-$1C]
00815891 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.Money : TEdit
|
00815894 8B8014030000 mov eax, [eax+$0314]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0081589A E8812DC7FF call 00488620
0081589F 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008158A2 8B8040030000 mov eax, [eax+$0340]
* Possible String Reference to: 'hxNUm'
|
008158A8 BA105A8100 mov edx, $00815A10
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008158AD E80213CBFF call 004C6BB4
008158B2 8D55D8 lea edx, [ebp-$28]
008158B5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
008158B7 FF5160 call dword ptr [ecx+$60]
008158BA 8B45D8 mov eax, [ebp-$28]
008158BD 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008158C0 E82750BFFF call 0040A8EC
008158C5 8B55DC mov edx, [ebp-$24]
008158C8 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.hxNum : TEdit
|
008158CB 8B802C030000 mov eax, [eax+$032C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
008158D1 E84A2DC7FF call 00488620
008158D6 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
008158D9 8B8040030000 mov eax, [eax+$0340]
* Possible String Reference to: 'NhxNUm'
|
008158DF BA205A8100 mov edx, $00815A20
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
008158E4 E8CB12CBFF call 004C6BB4
008158E9 8D55D0 lea edx, [ebp-$30]
008158EC 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_60
|
008158EE FF5160 call dword ptr [ecx+$60]
008158F1 8B45D0 mov eax, [ebp-$30]
008158F4 8D55D4 lea edx, [ebp-$2C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
008158F7 E8F04FBFFF call 0040A8EC
008158FC 8B55D4 mov edx, [ebp-$2C]
008158FF 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.NhxNum : TEdit
|
00815902 8B8034030000 mov eax, [eax+$0334]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
00815908 E8132DC7FF call 00488620
0081590D 8D55CC lea edx, [ebp-$34]
00815910 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.NhxNum : TEdit
|
00815913 8B8034030000 mov eax, [eax+$0334]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
00815919 E8D22CC7FF call 004885F0
0081591E 8B55CC mov edx, [ebp-$34]
00815921 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.curHsNum : TEdit
|
00815924 8B801C030000 mov eax, [eax+$031C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0081592A E8F12CC7FF call 00488620
0081592F 33C0 xor eax, eax
00815931 5A pop edx
00815932 59 pop ecx
00815933 59 pop ecx
00815934 648910 mov fs:[eax], edx
****** FINALLY
|
00815937 6852598100 push $00815952
0081593C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmskHx.ADOQueryTmp : TADOQuery
|
0081593F 8B8040030000 mov eax, [eax+$0340]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
00815945 E82A1CCBFF call 004C7574
0081594A C3 ret
* Reference to: System.@HandleFinally;
|
0081594B E9A4F1BEFF jmp 00404AF4
00815950 EBEA jmp 0081593C
****** END
|
00815952 33C0 xor eax, eax
00815954 5A pop edx
00815955 59 pop ecx
00815956 59 pop ecx
00815957 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
0081595A 687C598100 push $0081597C
0081595F 8D45CC lea eax, [ebp-$34]
* Reference to: System.@LStrClr(void;void);
|
00815962 E8BDF9BEFF call 00405324
00815967 8D45D0 lea eax, [ebp-$30]
0081596A BA0B000000 mov edx, $0000000B
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
0081596F E8D4F9BEFF call 00405348
00815974 C3 ret
* Reference to: System.@HandleFinally;
|
00815975 E97AF1BEFF jmp 00404AF4
0081597A EBE3 jmp 0081595F
****** END
|
0081597C 5B pop ebx
0081597D 8BE5 mov esp, ebp
0081597F 5D pop ebp
00815980 C3 ret
*)
end;
procedure TfrmskHx._PROC_00815A14(Sender : TObject);
begin
(*
00815A14 6D insd
00815A15 0000 add [eax], al
*)
end;
procedure TfrmskHx._PROC_00815A25(Sender : TObject);
begin
(*
00815A25 6D insd
00815A26 0000 add [eax], al
*)
end;
procedure TfrmskHx._PROC_00815F9B(Sender : TObject);
begin
(*
00815F9B 00CC add ah, cl
00815F9D E1CA loope -$36
00815F9F BED0C5CFA2 mov esi, $A2CFC5D0
00815FA4 0000 add [eax], al
*)
end;
procedure TfrmskHx._PROC_0081604C(Sender : TObject);
begin
(*
0081604C F5 cmc
0081604D 3F aas
0081604E 0000 add [eax], al
*)
end;
procedure TfrmskHx._PROC_00816050(Sender : TObject);
begin
(*
00816050 55 push ebp
00816051 8BEC mov ebp, esp
00816053 33C0 xor eax, eax
00816055 55 push ebp
* Possible String Reference to: '<27>z<EFBFBD><7A><EFBFBD><EFBFBD><EFBFBD>]Ë<><C38B>-<2D>Y<EFBFBD>'
|
00816056 6875608100 push $00816075
***** TRY
|
0081605B 64FF30 push dword ptr fs:[eax]
0081605E 648920 mov fs:[eax], esp
00816061 FF059C598900 inc dword ptr [$0089599C]
00816067 33C0 xor eax, eax
00816069 5A pop edx
0081606A 59 pop ecx
0081606B 59 pop ecx
0081606C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>Y<EFBFBD>'
|
0081606F 687C608100 push $0081607C
00816074 C3 ret
* Reference to: System.@HandleFinally;
|
00816075 E97AEABEFF jmp 00404AF4
0081607A EBF8 jmp 00816074
****** END
|
0081607C 5D pop ebp
0081607D C3 ret
*)
end;
procedure TfrmskHx._PROC_00816080(Sender : TObject);
begin
(*
00816080 832D9C59890001 sub dword ptr [$0089599C], +$01
00816087 C3 ret
*)
end;
procedure TfrmskHx._PROC_00816088(Sender : TObject);
begin
(*
00816088 D4 aam
00816089 60 pusha
0081608A 810000000000 add dword ptr [eax], $00000000
00816090 0000 add [eax], al
*)
end;
procedure TfrmskHx._PROC_008160EE(Sender : TObject);
begin
(*
008160EE 48 dec eax
008160EF 0050D4 add [eax-$2C], dl
008160F2 42 inc edx
008160F3 0008 add [eax], cl
008160F5 2D4A007CD0 sub eax, $D07C004A
008160FA 42 inc edx
008160FB 00F4 add ah, dh
008160FD 6B4A00D0 imul ecx, [edx+$00], $D0
00816101 1D4A0030F6 sbb eax, $F630004A
00816106 48 dec eax
00816107 004CFB48 add [ebx+edi*8+$48], cl
0081610B 0098FA48000C add [eax+$C0048FA], bl
00816111 7948 jns 0081615B
00816113 00ACF04800E829 add [eax+esi*8+$29E80048], ch
0081611A 4A dec edx
0081611B 00E4 add ah, ah
0081611D ED in eax, dx
0081611E 48 dec eax
0081611F 00547848 add [eax+edi*2+$48], dl
00816123 005878 add [eax+$78], bl
00816126 48 dec eax
00816127 00DC add ah, bl
00816129 2A4A00 sub cl, byte ptr [edx+$00]
0081612C 3CA9 cmp al, $A9
0081612E 48 dec eax
0081612F 00C0 add al, al
00816131 834800D0 or dword ptr [eax+$00], -$30
00816135 7948 jns 0081617F
00816137 004C8548 add [ebp+eax*4+$48], cl
0081613B 00D0 add al, dl
0081613D 2C4A sub al, $4A
0081613F 009C2B4A008486 add [ebx+ebp+$8684004A], bl
00816146 48 dec eax
00816147 00482D add [eax+$2D], cl
0081614A 4A dec edx
0081614B 00C0 add al, al
0081614D A9480038EE test eax, $EE380048
00816152 48 dec eax
00816153 00F4 add ah, dh
00816155 EE out dx, al
00816156 48 dec eax
00816157 00F0 add al, dh
00816159 E94800D8EE jmp EF5961A6
0081615E 48 dec eax
0081615F 00D8 add al, bl
00816161 1B4A00 sbb ecx, [edx+$00]
00816164 EC in al, dx
00816165 334A00 xor ecx, [edx+$00]
00816168 20C4 and ah, al
0081616A 48 dec eax
0081616B 00B0404A0010 add [eax+$10004A40], dh
00816171 44 inc esp
00816172 4A dec edx
00816173 00CC add ah, cl
00816175 42 inc edx
00816176 4A dec edx
00816177 00B8C44800BC add [eax+$BC0048C4], bh
0081617D C44800 les ecx, [eax+$00]
00816180 48 dec eax
00816181 45 inc ebp
00816182 4A dec edx
00816183 001CC3 add [ebx+eax*8], bl
00816186 48 dec eax
00816187 0018 add [eax], bl
00816189 F0 lock
0081618A 48 dec eax
0081618B 00444C4A add [esp+ecx*2+$4A], al
0081618F 000C02 add [edx+eax], cl
00816192 49 dec ecx
00816193 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
0081619A 4A dec edx
0081619B 008C154A003C18 add [ebp+edx+$183C004A], cl
008161A2 4A dec edx
008161A3 0038 add [eax], bh
008161A5 52 push edx
008161A6 4A dec edx
008161A7 005C224A add [edx+$4A], bl
008161AB 00D8 add al, bl
008161AD 224A00 and cl, byte ptr [edx+$00]
008161B0 7C68 jl 0081621A
008161B2 4A dec edx
008161B3 00941F4A003C60 add [edi+ebx+$603C004A], dl
008161BA 4A dec edx
008161BB 001447 add [edi+eax*2], dl
008161BE 4A dec edx
008161BF 0034654A00CC2C add [$2CCC004A], dh
008161C6 4A dec edx
008161C7 000E add [esi], cl
008161C9 0000 add [eax], al
008161CB 0000 add [eax], al
008161CD 0003 add [ebx], al
008161CF 0000 add [eax], al
008161D1 0020 add [eax], ah
008161D3 114000 adc [eax+$00], eax
008161D6 200400 and [eax+eax], al
008161D9 0020 add [eax], ah
008161DB 114000 adc [eax+$00], eax
008161DE 2404 and al, $04
008161E0 0000 add [eax], al
008161E2 2011 and [ecx], dl
008161E4 40 inc eax
008161E5 0028 add [eax], ch
008161E7 0400 add al, +$00
008161E9 004800 add [eax+$00], cl
008161EC A7 cmpsd
008161ED 6A81 push $81
008161EF 00F8 add al, bh
008161F1 0200 add al, byte ptr [eax]
008161F3 0000 add [eax], al
008161F5 0008 add [eax], cl
008161F7 54 push esp
008161F8 6F outsd
008161F9 6F outsd
008161FA 6C insb
008161FB 42 inc edx
008161FC 61 popa
008161FD 7231 jb 00816230
008161FF FC cld
00816200 0200 add al, byte ptr [eax]
00816202 0001 add [ecx], al
00816204 0009 add [ecx], cl
00816206 54 push esp
00816207 42 inc edx
00816208 52 push edx
00816209 61 popa
0081620A 667265 jb 00816272
0081620D 7368 jnb 00816277
0081620F 0003 add [ebx], al
00816211 0000 add [eax], al
00816213 0100 add [eax], eax
00816215 0554424465 add eax, +$65444254
0081621A 6C insb
0081621B 0403 add al, +$03
0081621D 0000 add [eax], al
0081621F 0100 add [eax], eax
00816221 07 pop es
00816222 54 push esp
00816223 42 inc edx
00816224 43 inc ebx
00816225 6C insb
00816226 6F outsd
00816227 7365 jnb 0081628E
00816229 0803 or [ebx], al
0081622B 0000 add [eax], al
0081622D 0200 add al, byte ptr [eax]
0081622F 0C41 or al, $41
00816231 44 inc esp
00816232 4F dec edi
00816233 51 push ecx
00816234 7565 jnz 0081629B
00816236 7279 jb 008162B1
00816238 54 push esp
00816239 656D insd
0081623B 700C jo 00816249
0081623D 0300 add eax, [eax]
0081623F 0002 add [edx], al
00816241 000B add [ebx], cl
00816243 41 inc ecx
00816244 44 inc esp
00816245 4F dec edi
00816246 51 push ecx
00816247 7565 jnz 008162AE
00816249 7279 jb 008162C4
0081624B 43 inc ebx
0081624C 6D insd
0081624D 641003 adc fs:[ebx], al
00816250 0000 add [eax], al
00816252 0300 add eax, [eax]
00816254 06 push es
00816255 50 push eax
00816256 61 popa
00816257 6E outsb
00816258 656C insb
0081625A 311403 xor [ebx+eax], edx
0081625D 0000 add [eax], al
0081625F 0100 add [eax], eax
00816261 0B546F6F or edx, [edi+ebp*2+$6F]
00816265 6C insb
00816266 42 inc edx
00816267 7574 jnz 008162DD
00816269 746F jz 008162DA
0081626B 6E outsb
0081626C 3218 xor bl, byte ptr [eax]
0081626E 0300 add eax, [eax]
00816270 000400 add [eax+eax], al
00816273 06 push es
00816274 4C dec esp
00816275 61 popa
00816276 62656C bound esp, qword ptr [ebp+$6C]
00816279 311C03 xor [ebx+eax], ebx
0081627C 0000 add [eax], al
0081627E 0500065946 add eax, +$46590600
00816283 4E dec esi
00816284 61 popa
00816285 6D insd
00816286 652003 and gs:[ebx], al
00816289 0000 add [eax], al
0081628B 0200 add al, byte ptr [eax]
0081628D 0C41 or al, $41
0081628F 44 inc esp
00816290 4F dec edi
00816291 51 push ecx
00816292 7565 jnz 008162F9
00816294 7279 jb 0081630F
00816296 4D dec ebp
00816297 61 popa
00816298 696E2403000001 imul ebp, [esi+$24], $01000003
0081629F 000B add [ebx], cl
008162A1 54 push esp
008162A2 6F outsd
008162A3 6F outsd
008162A4 6C insb
008162A5 42 inc edx
008162A6 7574 jnz 0081631C
008162A8 746F jz 00816319
008162AA 6E outsb
008162AB 3128 xor [eax], ebp
008162AD 0300 add eax, [eax]
008162AF 0006 add [esi], al
008162B1 0003 add [ebx], al
008162B3 52 push edx
008162B4 4D dec ebp
008162B5 312C03 xor [ebx+eax], ebp
008162B8 0000 add [eax], al
008162BA 07 pop es
008162BB 0009 add [ecx], cl
008162BD 52 push edx
008162BE 4D dec ebp
008162BF 44 inc esp
008162C0 42 inc edx
008162C1 5F pop edi
008162C2 4D dec ebp
008162C3 61 popa
008162C4 696E3003000004 imul ebp, [esi+$30], $04000003
008162CB 0006 add [esi], al
008162CD 4C dec esp
008162CE 61 popa
008162CF 62656C bound esp, qword ptr [ebp+$6C]
008162D2 333403 xor esi, [ebx+eax]
008162D5 0000 add [eax], al
008162D7 05000B4661 add eax, +$61460B00
008162DC 63746F72 arpl [edi+ebp*2+$72], si
008162E0 794E jns 00816330
008162E2 61 popa
008162E3 6D insd
008162E4 653803 cmp gs:[ebx], al
008162E7 0000 add [eax], al
008162E9 0800 or [eax], al
008162EB 07 pop es
008162EC 637847 arpl [eax+$47], di
008162EF 7269 jb 0081635A
008162F1 64323C03 xor bh, byte ptr fs:[ebx+eax]
008162F5 0000 add [eax], al
008162F7 0900 or [eax], eax
008162F9 03547632 add edx, [esi+esi*2+$32]
008162FD 40 inc eax
008162FE 0300 add eax, [eax]
00816300 000A add [edx], cl
00816302 000F add [edi], cl
00816304 637847 arpl [eax+$47], di
00816307 7269 jb 00816372
00816309 6444 inc esp
0081630B 42 inc edx
0081630C 43 inc ebx
0081630D 6F outsd
0081630E 6C insb
0081630F 756D jnz 0081637E
00816311 6E outsb
00816312 31440300 xor [ebx+eax+$00], eax
00816316 000A add [edx], cl
00816318 000F add [edi], cl
0081631A 637847 arpl [eax+$47], di
0081631D 7269 jb 00816388
0081631F 6444 inc esp
00816321 42 inc edx
00816322 43 inc ebx
00816323 6F outsd
00816324 6C insb
00816325 756D jnz 00816394
00816327 6E outsb
00816328 334803 xor ecx, [eax+$03]
0081632B 0000 add [eax], al
0081632D 0B00 or eax, [eax]
0081632F 0C63 or al, $63
00816331 7847 js 0081637A
00816333 7269 jb 0081639E
00816335 644C dec esp
00816337 657665 jbe 0081639F
0081633A 6C insb
0081633B 314C0300 xor [ebx+eax+$00], ecx
0081633F 000400 add [eax+eax], al
00816342 06 push es
00816343 4C dec esp
00816344 61 popa
00816345 62656C bound esp, qword ptr [ebp+$6C]
00816348 325003 xor dl, byte ptr [eax+$03]
0081634B 0000 add [eax], al
0081634D 0400 add al, +$00
0081634F 06 push es
00816350 4C dec esp
00816351 61 popa
00816352 62656C bound esp, qword ptr [ebp+$6C]
00816355 3654 push esp
00816357 0300 add eax, [eax]
00816359 000C00 add [eax+eax], cl
0081635C 07 pop es
0081635D 626567 bound esp, qword ptr [ebp+$67]
00816360 6461 popa
00816362 7465 jz 008163C9
00816364 58 pop eax
00816365 0300 add eax, [eax]
00816367 000C00 add [eax+eax], cl
0081636A 07 pop es
0081636B 45 inc ebp
0081636C 6E outsb
0081636D 646461 popa
00816370 7465 jz 008163D7
00816372 5C pop esp
00816373 0300 add eax, [eax]
00816375 000D00106378 add [$78631000], cl
0081637B 47 inc edi
0081637C 7269 jb 008163E7
0081637E 6450 push eax
00816380 6F outsd
00816381 7075 jo 008163F8
00816383 704D jo 008163D2
00816385 656E outsb
00816387 7532 jnz 008163BB
00816389 60 pusha
0081638A 0300 add eax, [eax]
0081638C 000E add [esi], cl
0081638E 000544535F48 add [$485F5344], al
00816394 5A pop edx
00816395 640300 add eax, fs:[eax]
00816398 000F add [edi], cl
0081639A 0006 add [esi], al
0081639C 43 inc ebx
0081639D 44 inc esp
0081639E 53 push ebx
0081639F 5F pop edi
008163A0 48 dec eax
008163A1 5A pop edx
008163A2 680300000A push $0A000003
008163A7 0003 add [ebx], al
008163A9 56 push esi
008163AA 42 inc edx
008163AB 5A pop edx
008163AC 6C insb
008163AD 0300 add eax, [eax]
008163AF 000A add [edx], cl
008163B1 0003 add [ebx], al
008163B3 56 push esi
008163B4 59 pop ecx
008163B5 42 inc edx
008163B6 7003 jo 008163BB
008163B8 0000 add [eax], al
008163BA 0A00 or al, byte ptr [eax]
008163BC 097632 or [esi+$32], esi
008163BF 43 inc ebx
008163C0 6F outsd
008163C1 6C insb
008163C2 756D jnz 00816431
008163C4 6E outsb
008163C5 367403 jz 008163CB
008163C8 0000 add [eax], al
008163CA 0400 add al, +$00
008163CC 06 push es
008163CD 4C dec esp
008163CE 61 popa
008163CF 62656C bound esp, qword ptr [ebp+$6C]
008163D2 3478 xor al, $78
008163D4 0300 add eax, [eax]
008163D6 000500074F72 add [$724F0700], al
008163DC 6465724E jb 0081642E
008163E0 6F outsd
008163E1 7C03 jl 008163E6
008163E3 0000 add [eax], al
008163E5 0A00 or al, byte ptr [eax]
008163E7 097632 or [esi+$32], esi
008163EA 43 inc ebx
008163EB 6F outsd
008163EC 6C insb
008163ED 756D jnz 0081645C
008163EF 6E outsb
008163F0 318003000001 xor [eax+$1000003], eax
008163F6 000474 add [esp+esi*2], al
008163F9 63686B arpl [eax+$6B], bp
008163FC 8403 test [ebx], al
008163FE 0000 add [eax], al
00816400 0100 add [eax], eax
00816402 06 push es
00816403 746E jz 00816473
00816405 6F outsd
00816406 63686B arpl [eax+$6B], bp
00816409 8803 mov [ebx], al
0081640B 0000 add [eax], al
0081640D 1000 adc [eax], al
0081640F 0D63785461 or eax, $61547863
00816414 62436F bound eax, qword ptr [ebx+$6F]
00816417 6E outsb
00816418 7472 jz 0081648C
0081641A 6F outsd
0081641B 6C insb
0081641C 318C0300000A00 xor [ebx+eax+$A0000], ecx
00816423 06 push es
00816424 7632 jbe 00816458
00816426 53 push ebx
00816427 7365 jnb 0081648E
00816429 6C insb
0081642A 90 nop
0081642B 0300 add eax, [eax]
0081642D 000A add [edx], cl
0081642F 000B add [ebx], cl
00816431 7632 jbe 00816465
00816433 43 inc ebx
00816434 6F outsd
00816435 6D insd
00816436 54 push esp
00816437 61 popa
00816438 69746F7594030000 imul esi, [edi+ebp*2+$75], $00000394
00816440 0400 add al, +$00
00816442 07 pop es
00816443 4C dec esp
00816444 61 popa
00816445 62656C bound esp, qword ptr [ebp+$6C]
00816448 3130 xor [eax], esi
0081644A 98 cwde
0081644B 0300 add eax, [eax]
0081644D 000400 add [eax+eax], al
00816450 07 pop es
00816451 4C dec esp
00816452 61 popa
00816453 62656C bound esp, qword ptr [ebp+$6C]
00816456 3132 xor [edx], esi
00816458 9C pushf
00816459 0300 add eax, [eax]
0081645B 0001 add [ecx], al
0081645D 000554534446 add [$46445354], al
00816463 4A dec edx
00816464 A00300000A mov al, byte ptr [$0A000003]
00816469 0006 add [esi], al
0081646B 7632 jbe 0081649F
0081646D 49 dec ecx
0081646E 46 inc esi
0081646F 53 push ebx
00816470 44 inc esp
00816471 A4 movsb
00816472 0300 add eax, [eax]
00816474 000F add [edi], cl
00816476 0008 add [eax], cl
00816478 4F dec edi
00816479 7264 jb 008164DF
0081647B 65725F jb 008164DD
0081647E 52 push edx
0081647F 4C dec esp
00816480 A803 test al, $03
00816482 0000 add [eax], al
00816484 0E push cs
00816485 000B add [ebx], cl
00816487 44 inc esp
00816488 61 popa
00816489 7461 jz 008164EC
0081648B 53 push ebx
0081648C 6F outsd
0081648D 7572 jnz 00816501
0081648F 636531 arpl [ebp+$31], sp
00816492 AC lodsb
00816493 0300 add eax, [eax]
00816495 000A add [edx], cl
00816497 0007 add [edi], al
00816499 7632 jbe 008164CD
0081649B 48 dec eax
0081649C 784E js 008164EC
0081649E 756D jnz 0081650D
008164A0 B003 mov al, $03
008164A2 0000 add [eax], al
008164A4 0A00 or al, byte ptr [eax]
008164A6 0B7632 or esi, [esi+$32]
008164A9 63686B arpl [eax+$6B], bp
008164AC 7374 jnb 00816522
008164AE 61 popa
008164AF 7475 jz 00816526
008164B1 73B4 jnb 00816467
008164B3 0300 add eax, [eax]
008164B5 000A add [edx], cl
008164B7 000A add [edx], cl
008164B9 7632 jbe 008164ED
008164BB 57 push edi
008164BC 48 dec eax
008164BD 58 pop eax
008164BE 4D dec ebp
008164BF 6F outsd
008164C0 6E outsb
008164C1 6579B8 jns 0081647C
008164C4 0300 add eax, [eax]
008164C6 0011 add [ecx], dl
008164C8 0012 add [edx], dl
008164CA 637853 arpl [eax+$53], di
008164CD 7479 jz 00816548
008164CF 6C insb
008164D0 6552 push edx
008164D2 65706F jo 00816544
008164D5 7369 jnb 00816540
008164D7 746F jz 00816548
008164D9 7279 jb 00816554
008164DB 31BC0300001200 xor [ebx+eax+$120000], edi
008164E2 086378 or [ebx+$78], ah
008164E5 53 push ebx
008164E6 7479 jz 00816561
008164E8 6C insb
008164E9 6531C0 xor eax, eax
008164EC 0300 add eax, [eax]
008164EE 0013 add [ebx], dl
008164F0 000A add [edx], cl
008164F2 50 push eax
008164F3 6F outsd
008164F4 7075 jo 0081656B
008164F6 704D jo 00816545
008164F8 656E outsb
008164FA 7531 jnz 0081652D
008164FC C403 les eax, [ebx]
008164FE 0000 add [eax], al
00816500 1400 adc al, $00
00816502 024E31 add cl, byte ptr [esi+$31]
00816505 C803 enter , $03
00816507 0000 add [eax], al
00816509 1400 adc al, $00
0081650B 024E32 add cl, byte ptr [esi+$32]
0081650E CC int 3
0081650F 0300 add eax, [eax]
00816511 000A add [edx], cl
00816513 0009 add [ecx], cl
00816515 7632 jbe 00816549
00816517 63686B arpl [eax+$6B], bp
0081651A 6E outsb
0081651B 6F outsd
0081651C 7465 jz 00816583
0081651E D003 rol byte ptr [ebx], 1
00816520 0000 add [eax], al
00816522 1500094368 adc eax, $68430900
00816527 65636B42 arpl gs:[ebx+$42], bp
0081652B 6F outsd
0081652C 7831 js 0081655F
0081652E D4 aam
0081652F 0300 add eax, [eax]
00816531 000A add [edx], cl
00816533 000B add [ebx], cl
00816535 7632 jbe 00816569
00816537 4B dec ebx
00816538 48 dec eax
00816539 44 inc esp
0081653A 4B dec ebx
0081653B 4D dec ebp
0081653C 6F outsd
0081653D 6E outsb
0081653E 6579D8 jns 00816519
00816541 0300 add eax, [eax]
00816543 000A add [edx], cl
00816545 0009 add [ecx], cl
00816547 7632 jbe 0081657B
00816549 53 push ebx
0081654A 58 pop eax
0081654B 4D dec ebp
0081654C 6F outsd
0081654D 6E outsb
0081654E 6579DC jns 0081652D
00816551 0300 add eax, [eax]
00816553 000400 add [eax+eax], al
00816556 06 push es
00816557 4C dec esp
00816558 61 popa
00816559 62656C bound esp, qword ptr [ebp+$6C]
0081655C 35E0030000 xor eax, $000003E0
00816561 0A00 or al, byte ptr [eax]
00816563 087632 or [esi+$32], dh
00816566 47 inc edi
00816567 53 push ebx
00816568 54 push esp
00816569 7970 jns 008165DB
0081656B 65E403 in al, $03
0081656E 0000 add [eax], al
00816570 0400 add al, +$00
00816572 06 push es
00816573 4C dec esp
00816574 61 popa
00816575 62656C bound esp, qword ptr [ebp+$6C]
00816578 37 aaa
00816579 E803000005 call 05816581
0081657E 00054D6F6E65 add [$656E6F4D], al
00816584 79EC jns 00816572
00816586 0300 add eax, [eax]
00816588 000400 add [eax+eax], al
0081658B 06 push es
0081658C 4C dec esp
0081658D 61 popa
0081658E 62656C bound esp, qword ptr [ebp+$6C]
00816591 38F0 cmp al, dh
00816593 0300 add eax, [eax]
00816595 000500046E6F add [$6F6E0400], al
0081659B 7465 jz 00816602
0081659D F4 hlt
0081659E 0300 add eax, [eax]
008165A0 0001 add [ecx], al
008165A2 0005545A4448 add [$48445A54], al
008165A8 58 pop eax
008165A9 F8 clc
008165AA 0300 add eax, [eax]
008165AC 0001 add [ecx], al
008165AE 000554534448 add [$48445354], al
008165B4 58 pop eax
008165B5 FC cld
008165B6 0300 add eax, [eax]
008165B8 0001 add [ecx], al
008165BA 0006 add [esi], al
008165BC 54 push esp
008165BD 53 push ebx
008165BE 44 inc esp
008165BF 41 inc ecx
008165C0 6464000400 add fs:[eax+eax], al
008165C5 000A add [edx], cl
008165C7 0007 add [edi], al
008165C9 7632 jbe 008165FD
008165CB 48 dec eax
008165CC 7569 jnz 00816637
008165CE 6C insb
008165CF 7604 jbe 008165D5
008165D1 0400 add al, +$00
008165D3 000A add [edx], cl
008165D5 0006 add [esi], al
008165D7 7632 jbe 0081660B
008165D9 4B dec ebx
008165DA 50 push eax
008165DB 4E dec esi
008165DC 4F dec edi
008165DD 080400 or [eax+eax], al
008165E0 000A add [edx], cl
008165E2 0008 add [eax], cl
008165E4 7632 jbe 00816618
008165E6 4B dec ebx
008165E7 50 push eax
008165E8 54 push esp
008165E9 7970 jns 0081665B
008165EB 650C04 or al, $04
008165EE 0000 add [eax], al
008165F0 0A00 or al, byte ptr [eax]
008165F2 0A7632 or dh, byte ptr [esi+$32]
008165F5 4B dec ebx
008165F6 50 push eax
008165F7 53 push ebx
008165F8 7461 jz 0081665B
008165FA 7475 jz 00816671
008165FC 7310 jnb 0081660E
008165FE 0400 add al, +$00
00816600 000A add [edx], cl
00816602 0008 add [eax], cl
00816604 7632 jbe 00816638
00816606 46 inc esi
00816607 696C6C6572140400 imul ebp, [esp+ebp*2+$65], $00041472
0081660F 000A add [edx], cl
00816611 0009 add [ecx], cl
00816613 7632 jbe 00816647
00816615 4F dec edi
00816616 7264 jb 0081667C
00816618 65724E jb 00816669
0081661B 6F outsd
0081661C 2900 sub dword ptr [eax], eax
0081661E 1200 adc al, byte ptr [eax]
00816620 D4 aam
00816621 7181 jno 008165A4
00816623 000B add [ebx], cl
00816625 46 inc esi
00816626 6F outsd
00816627 726D jb 00816696
00816629 44 inc esp
0081662A 657374 jnb 008166A1
0081662D 726F jb 0081669E
0081662F 7910 jns 00816641
00816631 00DC add ah, bl
00816633 7181 jno 008165B6
00816635 0009 add [ecx], cl
00816637 46 inc esi
00816638 6F outsd
00816639 726D jb 008166A8
0081663B 43 inc ebx
0081663C 6C insb
0081663D 6F outsd
0081663E 7365 jnb 008166A5
00816640 1300 adc eax, [eax]
00816642 E071 loopn +$71
00816644 81000C544243 add dword ptr [eax], $4342540C
0081664A 6C insb
0081664B 6F outsd
0081664C 7365 jnb 008166B3
0081664E 43 inc ebx
0081664F 6C insb
00816650 69636B11002C72 imul esp, [ebx+$6B], $722C0011
00816657 81000A544244 add dword ptr [eax], $4442540A
0081665D 656C insb
0081665F 43 inc ebx
00816660 6C insb
00816661 69636B0F00F474 imul esp, [ebx+$6B], $74F4000F
00816668 810008466F72 add dword ptr [eax], $726F4608
0081666E 6D insd
0081666F 53 push ebx
00816670 686F771500 push $0015776F
00816675 1476 adc al, $76
00816677 81000E544252 add dword ptr [eax], $5242540E
0081667D 61 popa
0081667E 667265 jb 008166E6
00816681 7368 jnb 008166EB
00816683 43 inc ebx
00816684 6C insb
00816685 69636B17003076 imul esp, [ebx+$6B], $76300017
0081668C 810010546F6F add dword ptr [eax], $6F6F5410
00816692 6C insb
00816693 42 inc edx
00816694 7574 jnz 0081670A
00816696 746F jz 00816707
00816698 6E outsb
00816699 32436C xor al, byte ptr [ebx+$6C]
0081669C 69636B1800DC76 imul esp, [ebx+$6B], $76DC0018
008166A3 810011466163 add dword ptr [eax], $63614611
008166A9 746F jz 0081671A
008166AB 7279 jb 00816726
008166AD 4E dec esi
008166AE 61 popa
008166AF 6D insd
008166B0 6543 inc ebx
008166B2 68616E6765 push $65676E61
008166B7 1300 adc eax, [eax]
008166B9 F0 lock
008166BA 7681 jbe 0081663D
008166BC 000C42 add [edx+eax*2], cl
008166BF 7574 jnz 00816735
008166C1 746F jz 00816732
008166C3 6E outsb
008166C4 32436C xor al, byte ptr [ebx+$6C]
008166C7 69636B30002886 imul esp, [ebx+$6B], $86280030
008166CE 810029637847 add dword ptr [eax], $47786329
008166D4 7269 jb 0081673F
008166D6 6444 inc esp
008166D8 42 inc edx
008166D9 43 inc ebx
008166DA 6F outsd
008166DB 6C insb
008166DC 756D jnz 0081674B
008166DE 6E outsb
008166DF 385072 cmp [eax+$72], dl
008166E2 6F outsd
008166E3 7065 jo 0081674A
008166E5 7274 jb 0081675B
008166E7 69657345646974 imul esp, [ebp+$73], $74696445
008166EE 56 push esi
008166EF 61 popa
008166F0 6C insb
008166F1 7565 jnz 00816758
008166F3 43 inc ebx
008166F4 68616E6765 push $65676E61
008166F9 643000 xor fs:[eax], al
008166FC F4 hlt
008166FD 888100296378 mov [ecx+$78632900], al
00816703 47 inc edi
00816704 7269 jb 0081676F
00816706 6444 inc esp
00816708 42 inc edx
00816709 43 inc ebx
0081670A 6F outsd
0081670B 6C insb
0081670C 756D jnz 0081677B
0081670E 6E outsb
0081670F 3550726F70 xor eax, $706F7250
00816714 657274 jb 0081678B
00816717 69657345646974 imul esp, [ebp+$73], $74696445
0081671E 56 push esi
0081671F 61 popa
00816720 6C insb
00816721 7565 jnz 00816788
00816723 43 inc ebx
00816724 68616E6765 push $65676E61
00816729 643000 xor fs:[eax], al
0081672C 58 pop eax
0081672D 91 xchg eax, ecx
0081672E 810029637847 add dword ptr [eax], $47786329
00816734 7269 jb 0081679F
00816736 6444 inc esp
00816738 42 inc edx
00816739 43 inc ebx
0081673A 6F outsd
0081673B 6C insb
0081673C 756D jnz 008167AB
0081673E 6E outsb
0081673F 315072 xor [eax+$72], edx
00816742 6F outsd
00816743 7065 jo 008167AA
00816745 7274 jb 008167BB
00816747 69657345646974 imul esp, [ebp+$73], $74696445
0081674E 56 push esi
0081674F 61 popa
00816750 6C insb
00816751 7565 jnz 008167B8
00816753 43 inc ebx
00816754 68616E6765 push $65676E61
00816759 6417 pop ss
0081675B 003C94 add [esp+edx*4], bh
0081675E 810010546F6F add dword ptr [eax], $6F6F5410
00816764 6C insb
00816765 42 inc edx
00816766 7574 jnz 008167DC
00816768 746F jz 008167D9
0081676A 6E outsb
0081676B 33436C xor eax, [ebx+$6C]
0081676E 69636B2B00F89A imul esp, [ebx+$6B], $9AF8002B
00816775 810024637847 add dword ptr [eax], $47786324
0081677B 7269 jb 008167E6
0081677D 6444 inc esp
0081677F 42 inc edx
00816780 43 inc ebx
00816781 6F outsd
00816782 6C insb
00816783 756D jnz 008167F2
00816785 6E outsb
00816786 335072 xor edx, [eax+$72]
00816789 6F outsd
0081678A 7065 jo 008167F1
0081678C 7274 jb 00816802
0081678E 69657342757474 imul esp, [ebp+$73], $74747542
00816795 6F outsd
00816796 6E outsb
00816797 43 inc ebx
00816798 6C insb
00816799 69636B2B00409F imul esp, [ebx+$6B], $9F40002B
008167A0 810024637847 add dword ptr [eax], $47786324
008167A6 7269 jb 00816811
008167A8 6444 inc esp
008167AA 42 inc edx
008167AB 43 inc ebx
008167AC 6F outsd
008167AD 6C insb
008167AE 756D jnz 0081681D
008167B0 6E outsb
008167B1 3650 push eax
008167B3 726F jb 00816824
008167B5 7065 jo 0081681C
008167B7 7274 jb 0081682D
008167B9 69657342757474 imul esp, [ebp+$73], $74747542
008167C0 6F outsd
008167C1 6E outsb
008167C2 43 inc ebx
008167C3 6C insb
008167C4 69636B25009CA2 imul esp, [ebx+$6B], $A29C0025
008167CB 81001E763243 add dword ptr [eax], $4332761E
008167D1 6F outsd
008167D2 6C insb
008167D3 756D jnz 00816842
008167D5 6E outsb
008167D6 335072 xor edx, [eax+$72]
008167D9 6F outsd
008167DA 7065 jo 00816841
008167DC 7274 jb 00816852
008167DE 69657342757474 imul esp, [ebp+$73], $74747542
008167E5 6F outsd
008167E6 6E outsb
008167E7 43 inc ebx
008167E8 6C insb
008167E9 69636B1700E0A5 imul esp, [ebx+$6B], $A5E00017
008167F0 810010546F6F add dword ptr [eax], $6F6F5410
008167F6 6C insb
008167F7 42 inc edx
008167F8 7574 jnz 0081686E
008167FA 746F jz 0081686B
008167FC 6E outsb
008167FD 31436C xor [ebx+$6C], eax
00816800 69636B2A0020A6 imul esp, [ebx+$6B], $A620002A
00816807 810023763243 add dword ptr [eax], $43327623
0081680D 6F outsd
0081680E 6C insb
0081680F 756D jnz 0081687E
00816811 6E outsb
00816812 3450 xor al, $50
00816814 726F jb 00816885
00816816 7065 jo 0081687D
00816818 7274 jb 0081688E
0081681A 69657345646974 imul esp, [ebp+$73], $74696445
00816821 56 push esi
00816822 61 popa
00816823 6C insb
00816824 7565 jnz 0081688B
00816826 43 inc ebx
00816827 68616E6765 push $65676E61
0081682C 64250088AD81 and eax, $81AD8800
00816832 001E add [esi], bl
00816834 7632 jbe 00816868
00816836 43 inc ebx
00816837 6F outsd
00816838 6C insb
00816839 756D jnz 008168A8
0081683B 6E outsb
0081683C 315072 xor [eax+$72], edx
0081683F 6F outsd
00816840 7065 jo 008168A7
00816842 7274 jb 008168B8
00816844 69657342757474 imul esp, [ebp+$73], $74747542
0081684B 6F outsd
0081684C 6E outsb
0081684D 43 inc ebx
0081684E 6C insb
0081684F 69636B24008CAD imul esp, [ebx+$6B], $AD8C0024
00816856 81001D564242 add dword ptr [eax], $4242561D
0081685C 50 push eax
0081685D 726F jb 008168CE
0081685F 7065 jo 008168C6
00816861 7274 jb 008168D7
00816863 69657345646974 imul esp, [ebp+$73], $74696445
0081686A 56 push esi
0081686B 61 popa
0081686C 6C insb
0081686D 7565 jnz 008168D4
0081686F 43 inc ebx
00816870 68616E6765 push $65676E61
00816875 641400 adc al, $00
00816878 C8B1 enter , $B1
0081687A 81000D4F7264 add dword ptr [eax], $64724F0D
00816880 65724E jb 008168D1
00816883 6F outsd
00816884 43 inc ebx
00816885 68616E6765 push $65676E61
0081688A 2A00 sub al, byte ptr [eax]
0081688C 44 inc esp
0081688D B281 mov dl, $81
0081688F 0023 add [ebx], ah
00816891 7632 jbe 008168C5
00816893 43 inc ebx
00816894 6F outsd
00816895 6C insb
00816896 756D jnz 00816905
00816898 6E outsb
00816899 315072 xor [eax+$72], edx
0081689C 6F outsd
0081689D 7065 jo 00816904
0081689F 7274 jb 00816915
008168A1 69657345646974 imul esp, [ebp+$73], $74696445
008168A8 56 push esi
008168A9 61 popa
008168AA 6C insb
008168AB 7565 jnz 00816912
008168AD 43 inc ebx
008168AE 68616E6765 push $65676E61
008168B3 642E005CB481 add cs:[esp+esi*4-$7F], bl
008168B9 0027 add [edi], ah
008168BB 7632 jbe 008168EF
008168BD 44 inc esp
008168BE 657261 jb 00816922
008168C1 7465 jz 00816928
008168C3 4D dec ebp
008168C4 6F outsd
008168C5 6E outsb
008168C6 657950 jns 00816919
008168C9 726F jb 0081693A
008168CB 7065 jo 00816932
008168CD 7274 jb 00816943
008168CF 69657345646974 imul esp, [ebp+$73], $74696445
008168D6 56 push esi
008168D7 61 popa
008168D8 6C insb
008168D9 7565 jnz 00816940
008168DB 43 inc ebx
008168DC 68616E6765 push $65676E61
008168E1 641000 adc fs:[eax], al
008168E4 70B6 jo 0081689C
008168E6 810009746368 add dword ptr [eax], $68637409
008168EC 6B436C69 imul eax, [ebx+$6C], $69
008168F0 636B12 arpl [ebx+$12], bp
008168F3 003CBA add [edx+edi*4], bh
008168F6 81000B746E6F add dword ptr [eax], $6F6E740B
008168FC 63686B arpl [eax+$6B], bp
008168FF 43 inc ebx
00816900 6C insb
00816901 69636B1A0008BD imul esp, [ebx+$6B], $BD08001A
00816908 810013637854 add dword ptr [eax], $54786313
0081690E 61 popa
0081690F 62436F bound eax, qword ptr [ebx+$6F]
00816912 6E outsb
00816913 7472 jz 00816987
00816915 6F outsd
00816916 6C insb
00816917 314368 xor [ebx+$68], eax
0081691A 61 popa
0081691B 6E outsb
0081691C 676527 daa
0081691F 001CBD81002076 add [$76200081+edi*4], bl
00816926 32436F xor al, byte ptr [ebx+$6F]
00816929 6D insd
0081692A 54 push esp
0081692B 61 popa
0081692C 69746F7550726F70 imul esi, [edi+ebp*2+$75], $706F7250
00816934 657274 jb 008169AB
00816937 69657342757474 imul esp, [ebp+$73], $74747542
0081693E 6F outsd
0081693F 6E outsb
00816940 43 inc ebx
00816941 6C insb
00816942 69636B1D0058C0 imul esp, [ebx+$6B], $C058001D
00816949 810016763253 add dword ptr [eax], $53327616
0081694F 7365 jnb 008169B6
00816951 6C insb
00816952 50 push eax
00816953 726F jb 008169C4
00816955 7065 jo 008169BC
00816957 7274 jb 008169CD
00816959 6965734368616E imul esp, [ebp+$73], $6E616843
00816960 67651F pop ds
00816963 00B4C081001854 add [eax+eax*8+$54180081], dh
0081696A 7632 jbe 0081699E
0081696C 53 push ebx
0081696D 7479 jz 008169E8
0081696F 6C insb
00816970 657347 jnb 008169BA
00816973 657443 jz 008169B9
00816976 6F outsd
00816977 6E outsb
00816978 7465 jz 008169DF
0081697A 6E outsb
0081697B 7453 jz 008169D0
0081697D 7479 jz 008169F8
0081697F 6C insb
00816980 651100 adc gs:[eax], eax
00816983 7CC1 jl 00816946
00816985 81000A545344 add dword ptr [eax], $4453540A
0081698B 46 inc esi
0081698C 4A dec edx
0081698D 43 inc ebx
0081698E 6C insb
0081698F 69636B0E0074C2 imul esp, [ebx+$6B], $C274000E
00816996 8100074E3143 add dword ptr [eax], $43314E07
0081699C 6C insb
0081699D 69636B0E0084C2 imul esp, [ebx+$6B], $C284000E
008169A4 8100074E3243 add dword ptr [eax], $43324E07
008169AA 6C insb
008169AB 69636B240094C2 imul esp, [ebx+$6B], $C2940024
008169B2 81001D763246 add dword ptr [eax], $4632761D
008169B8 4B dec ebx
008169B9 54 push esp
008169BA 7970 jns 00816A2C
008169BC 6550 push eax
008169BE 726F jb 00816A2F
008169C0 7065 jo 00816A27
008169C2 7274 jb 00816A38
008169C4 69657342757474 imul esp, [ebp+$73], $74747542
008169CB 6F outsd
008169CC 6E outsb
008169CD 43 inc ebx
008169CE 6C insb
008169CF 69636B15005CC5 imul esp, [ebx+$6B], $C55C0015
008169D6 81000E436865 add dword ptr [eax], $6568430E
008169DC 636B42 arpl [ebx+$42], bp
008169DF 6F outsd
008169E0 7831 js 00816A13
008169E2 43 inc ebx
008169E3 6C insb
008169E4 69636B1200ECC6 imul esp, [ebx+$6B], $C6EC0012
008169EB 81000B4D6F6E add dword ptr [eax], $6E6F4D0B
008169F1 657943 jns 00816A37
008169F4 68616E6765 push $65676E61
008169F9 2600F4 add ah, dh
008169FC C681001F763246 mov byte ptr [ecx+$32761F00], $46
00816A03 4B dec ebx
00816A04 54 push esp
00816A05 61 popa
00816A06 69546F7550726F70 imul edx, [edi+ebp*2+$75], $706F7250
00816A0E 657274 jb 00816A85
00816A11 69657342757474 imul esp, [ebp+$73], $74747542
00816A18 6F outsd
00816A19 6E outsb
00816A1A 43 inc ebx
00816A1B 6C insb
00816A1C 69636B11002CCA imul esp, [ebx+$6B], $CA2C0011
00816A23 81000A545A44 add dword ptr [eax], $445A540A
00816A29 48 dec eax
00816A2A 58 pop eax
00816A2B 43 inc ebx
00816A2C 6C insb
00816A2D 69636B110054CD imul esp, [ebx+$6B], $CD540011
00816A34 81000A545344 add dword ptr [eax], $4453540A
00816A3A 48 dec eax
00816A3B 58 pop eax
00816A3C 43 inc ebx
00816A3D 6C insb
00816A3E 69636B120054CE imul esp, [ebx+$6B], $CE540012
00816A45 81000B545344 add dword ptr [eax], $4453540B
00816A4B 41 inc ecx
00816A4C 646443 inc ebx
00816A4F 6C insb
00816A50 69636B260024D1 imul esp, [ebx+$6B], $D1240026
00816A57 81001F76324B add dword ptr [eax], $4B32761F
00816A5D 50 push eax
00816A5E 53 push ebx
00816A5F 7461 jz 00816AC2
00816A61 7475 jz 00816AD8
00816A63 7350 jnb 00816AB5
00816A65 726F jb 00816AD6
00816A67 7065 jo 00816ACE
00816A69 7274 jb 00816ADF
00816A6B 69657342757474 imul esp, [ebp+$73], $74747542
00816A72 6F outsd
00816A73 6E outsb
00816A74 43 inc ebx
00816A75 6C insb
00816A76 69636B2500E0D3 imul esp, [ebx+$6B], $D3E00025
00816A7D 81001E76324F add dword ptr [eax], $4F32761E
00816A83 7264 jb 00816AE9
00816A85 65724E jb 00816AD6
00816A88 6F outsd
00816A89 50 push eax
00816A8A 726F jb 00816AFB
00816A8C 7065 jo 00816AF3
00816A8E 7274 jb 00816B04
00816A90 69657342757474 imul esp, [ebp+$73], $74747542
00816A97 6F outsd
00816A98 6E outsb
00816A99 43 inc ebx
00816A9A 6C insb
00816A9B 69636B08546672 imul esp, [ebx+$6B], $72665408
00816AA2 6D insd
00816AA3 53 push ebx
00816AA4 4B dec ebx
00816AA5 43 inc ebx
00816AA6 52 push edx
00816AA7 16 push ss
00816AA8 0028 add [eax], ch
00816AAA 94 xchg eax, esp
00816AAB 45 inc ebp
00816AAC 00648A45 add [edx+ecx*4+$45], ah
00816AB0 00B8124D0020 add [eax+$20004D12], bh
00816AB6 42 inc edx
00816AB7 44 inc esp
00816AB8 001C5F add [edi+ebx*2], bl
00816ABB 47 inc edi
00816ABC 00B867470064 add [eax+$64004767], bh
00816AC2 D37800 sar dword ptr [eax+$00], cl
00816AC5 A80A test al, $0A
00816AC7 7800 js 00816AC9
00816AC9 0016 add [esi], dl
00816ACB 6300 arpl [eax], ax
00816ACD F4 hlt
00816ACE B466 mov ah, $66
00816AD0 0034B1 add [ecx+esi*4], dh
00816AD3 6600A40E6400E0A5 add [esi+ecx+$A5E00064], ah
00816ADB 45 inc ebp
00816ADC 005876 add [eax+$76], bl
00816ADF 7C00 jl 00816AE1
00816AE1 087F4B or [edi+$4B], bh
00816AE4 0088996A0064 add [eax+$64006A99], cl
00816AEA 5D pop ebp
00816AEB 57 push edi
00816AEC 009C6D4F005070 add [ebp+ebp*2+$7050004F], bl
00816AF3 4F dec edi
00816AF4 00887E49008C add [eax+$8C00497E], cl
00816AFA 7649 jbe 00816B45
00816AFC 00C0 add al, al
00816AFE 96 xchg eax, esi
00816AFF 47 inc edi
00816B00 008D4000086B add [ebp+$6B080040], cl
00816B06 810007085466 add dword ptr [eax], $66540807
00816B0C 726D jb 00816B7B
00816B0E 53 push ebx
00816B0F 4B dec ebx
00816B10 43 inc ebx
00816B11 52 push edx
00816B12 D4 aam
00816B13 60 pusha
00816B14 8100D0F24900 add dword ptr [eax], $0049F2D0
00816B1A 5E pop esi
00816B1B 0006 add [esi], al
00816B1D 55 push ebp
00816B1E 5F pop edi
00816B1F 53 push ebx
00816B20 4B dec ebx
00816B21 43 inc ebx
00816B22 52 push edx
00816B23 0000 add [eax], al
00816B25 8D4000 lea eax, [eax+$00]
00816B28 55 push ebp
00816B29 8BEC mov ebp, esp
00816B2B 6A00 push $00
00816B2D 6A00 push $00
00816B2F 53 push ebx
00816B30 56 push esi
00816B31 57 push edi
00816B32 8BD8 mov ebx, eax
00816B34 33C0 xor eax, eax
00816B36 55 push ebp
00816B37 68726C8100 push $00816C72
***** TRY
|
00816B3C 64FF30 push dword ptr fs:[eax]
00816B3F 648920 mov fs:[eax], esp
00816B42 33D2 xor edx, edx
* Reference to control v1OrderUnit : N.A.
|
00816B44 8B8380030000 mov eax, [ebx+$0380]
00816B4A 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00816B4C FF5164 call dword ptr [ecx+$64]
00816B4F 33D2 xor edx, edx
* Reference to control v1PriceUnit : N.A.
|
00816B51 8B8384030000 mov eax, [ebx+$0384]
00816B57 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00816B59 FF5164 call dword ptr [ecx+$64]
00816B5C 33D2 xor edx, edx
* Reference to control KHConNo : N.A.
|
00816B5E 8B83F8030000 mov eax, [ebx+$03F8]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00816B64 E8A719C7FF call 00488510
* Reference to control ADOTemp : N.A.
|
00816B69 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
00816B6F E8D057E4FF call 0065C344
00816B74 8BF0 mov esi, eax
00816B76 4E dec esi
00816B77 85F6 test esi, esi
00816B79 7C54 jl 00816BCF
00816B7B 46 inc esi
00816B7C 33FF xor edi, edi
00816B7E 8BD7 mov edx, edi
* Reference to control ADOTemp : N.A.
|
00816B80 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00816B86 E8454EE5FF call 0066B9D0
|
00816B8B E8904CE5FF call 0066B820
00816B90 8D55F8 lea edx, [ebp-$08]
|
00816B93 E83042E5FF call 0066ADC8
00816B98 8B45F8 mov eax, [ebp-$08]
00816B9B 8D55FC lea edx, [ebp-$04]
|
00816B9E E8D938BFFF call 0040A47C
00816BA3 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: 'SSEL'
|
00816BA6 BA886C8100 mov edx, $00816C88
* Reference to: System.@LStrCmp;
|
00816BAB E890EBBEFF call 00405740
00816BB0 7419 jz 00816BCB
00816BB2 8BD7 mov edx, edi
* Reference to control ADOTemp : N.A.
|
00816BB4 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00816BBA E8114EE5FF call 0066B9D0
|
00816BBF E80C36E4FF call 0065A1D0
00816BC4 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00816BC6 E89523E1FF call 00628F60
00816BCB 47 inc edi
00816BCC 4E dec esi
00816BCD 75AF jnz 00816B7E
* Reference to control Label5 : TLabel
|
00816BCF 8B8388030000 mov eax, [ebx+$0388]
* Reference to control ADOTemp : N.A.
|
00816BD5 83B83C03000000 cmp dword ptr [eax+$033C], +$00
00816BDC 7541 jnz 00816C1F
00816BDE B201 mov dl, $01
* Reference to control v1OrderUnit : N.A.
|
00816BE0 8B8380030000 mov eax, [ebx+$0380]
00816BE6 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00816BE8 FF5164 call dword ptr [ecx+$64]
* Reference to control ADOTemp : N.A.
|
00816BEB 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActiveX.PROPSETHDR_OSVER_KIND(DWORD):Word;
| or: ActiveX.PROPSETHDR_OSVER_MINOR(DWORD):Byte;
| or: ActnCtrls.TCustomComboControl.VisibleChanging(TCustomComboControl);
| or: ActnMan.TActionClientsCollection.SetActionClient(TActionClientsCollection;Integer;TActionClient);
| or: ActnMan.TActionClients.SetActionClient(TActionClients;Integer;TActionClientItem);
| or: ADODB.TParameters.SetItem(TParameters;Integer;TParameter);
|
00816BF1 E84E57E4FF call 0065C344
00816BF6 8BF0 mov esi, eax
00816BF8 4E dec esi
00816BF9 85F6 test esi, esi
00816BFB 7E22 jle 00816C1F
00816BFD BF01000000 mov edi, $00000001
00816C02 8BD7 mov edx, edi
* Reference to control ADOTemp : N.A.
|
00816C04 8B833C030000 mov eax, [ebx+$033C]
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
00816C0A E8C14DE5FF call 0066B9D0
|
00816C0F E8BC35E4FF call 0065A1D0
00816C14 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00628F60()
|
00816C16 E84523E1FF call 00628F60
00816C1B 47 inc edi
00816C1C 4E dec esi
00816C1D 75E3 jnz 00816C02
* Reference to control Label5 : TLabel
|
00816C1F 8B8388030000 mov eax, [ebx+$0388]
* Reference to control ADOTemp : N.A.
|
00816C25 83B83C03000001 cmp dword ptr [eax+$033C], +$01
00816C2C 750D jnz 00816C3B
00816C2E B201 mov dl, $01
* Reference to control v1PriceUnit : N.A.
|
00816C30 8B8384030000 mov eax, [ebx+$0384]
00816C36 8B08 mov ecx, [eax]
* Possible reference to virtual method TN.A..OFFS_64
|
00816C38 FF5164 call dword ptr [ecx+$64]
* Reference to control Label5 : TLabel
|
00816C3B 8B8388030000 mov eax, [ebx+$0388]
* Reference to control ADOTemp : N.A.
|
00816C41 83B83C03000002 cmp dword ptr [eax+$033C], +$02
00816C48 750D jnz 00816C57
00816C4A B201 mov dl, $01
* Reference to control KHConNo : N.A.
|
00816C4C 8B83F8030000 mov eax, [ebx+$03F8]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
00816C52 E8B918C7FF call 00488510
00816C57 33C0 xor eax, eax
00816C59 5A pop edx
00816C5A 59 pop ecx
00816C5B 59 pop ecx
00816C5C 648910 mov fs:[eax], edx
****** FINALLY
|
00816C5F 68796C8100 push $00816C79
00816C64 8D45F8 lea eax, [ebp-$08]
00816C67 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
00816C6C E8D7E6BEFF call 00405348
00816C71 C3 ret
*)
end;
end.
Reference in New Issue Copy Permalink