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

9575 lines
360 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_SelExportField;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmSelExportField=class(TForm)
Button1: TButton;
Button2: TButton;
ExportDataSource: TDataSource;
ExpGrid: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
Panel2: TScrollBox;
Label4: TLabel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
procedure Button1Click(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure CheckBox1Click(Sender : TObject);
procedure CheckBox2Click(Sender : TObject);
procedure _PROC_007B3B2C(Sender : TObject);
procedure _PROC_007B3C08(Sender : TObject);
procedure _PROC_007B3D08(Sender : TObject);
procedure _PROC_007B3E29(Sender : TObject);
procedure _PROC_007B3F1D(Sender : TObject);
procedure _PROC_007B405D(Sender : TObject);
procedure _PROC_007B42C9(Sender : TObject);
procedure _PROC_007B42F8(Sender : TObject);
procedure _PROC_007B4300(Sender : TObject);
procedure _PROC_007B4330(Sender : TObject);
procedure _PROC_007B4338(Sender : TObject);
procedure _PROC_007B4368(Sender : TObject);
procedure _PROC_007B4370(Sender : TObject);
procedure _PROC_007B43A0(Sender : TObject);
procedure _PROC_007B43A8(Sender : TObject);
procedure _PROC_007B46E5(Sender : TObject);
procedure _PROC_007B4989(Sender : TObject);
procedure _PROC_007B4ADD(Sender : TObject);
procedure _PROC_007B4BD1(Sender : TObject);
procedure _PROC_007B4D25(Sender : TObject);
procedure _PROC_007B581D(Sender : TObject);
procedure _PROC_007B60B1(Sender : TObject);
procedure _PROC_007B6CC9(Sender : TObject);
procedure _PROC_007B6D90(Sender : TObject);
procedure _PROC_007B6E91(Sender : TObject);
procedure _PROC_007B7019(Sender : TObject);
procedure _PROC_007B7249(Sender : TObject);
procedure _PROC_007B7365(Sender : TObject);
procedure _PROC_007B752C(Sender : TObject);
procedure _PROC_007B7708(Sender : TObject);
procedure _PROC_007B79A5(Sender : TObject);
procedure _PROC_007B7AA5(Sender : TObject);
procedure _PROC_007B7BA1(Sender : TObject);
procedure _PROC_007B7CBD(Sender : TObject);
procedure _PROC_007B7DD9(Sender : TObject);
procedure _PROC_007B8045(Sender : TObject);
procedure _PROC_007B8231(Sender : TObject);
procedure _PROC_007B84A4(Sender : TObject);
procedure _PROC_007B87F1(Sender : TObject);
procedure _PROC_007B8874(Sender : TObject);
procedure _PROC_007B887C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmSelExportField: TfrmSelExportField;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmSelExportField.Button1Click(Sender : TObject);
begin
(*
007B3AC4 53 push ebx
007B3AC5 8BD8 mov ebx, eax
007B3AC7 8BC3 mov eax, ebx
* Reference to : TfrmSelExportField._PROC_007B3C08()
|
007B3AC9 E83A010000 call 007B3C08
007B3ACE 8BC3 mov eax, ebx
|
007B3AD0 E853030000 call 007B3E28
* Reference to field TfrmSelExportField.OFFS_0324
|
007B3AD5 8B9324030000 mov edx, [ebx+$0324]
007B3ADB 8BC3 mov eax, ebx
|
007B3ADD E87A050000 call 007B405C
007B3AE2 3C01 cmp al, $01
007B3AE4 750B jnz 007B3AF1
* Reference to field TfrmSelExportField.OFFS_0324
|
007B3AE6 8B8324030000 mov eax, [ebx+$0324]
* Reference to: Grids.TInplaceEdit.Visible(TInplaceEdit):Boolean;
| or: SysUtils.DeleteFile(AnsiString):Boolean;
| or: SysUtils.SetCurrentDir(AnsiString):Boolean;
| or: SysUtils.RemoveDir(AnsiString):Boolean;
|
007B3AEC E85B7CC5FF call 0040B74C
* Reference to field TfrmSelExportField.OFFS_0324
|
007B3AF1 8B9324030000 mov edx, [ebx+$0324]
007B3AF7 8BC3 mov eax, ebx
|
007B3AF9 E81E040000 call 007B3F1C
007B3AFE 5B pop ebx
007B3AFF C3 ret
*)
end;
procedure TfrmSelExportField.FormClose(Sender : TObject);
begin
(*
007B3B00 C60102 mov byte ptr [ecx], $02
007B3B03 C3 ret
*)
end;
procedure TfrmSelExportField.FormDestroy(Sender : TObject);
begin
(*
007B3B04 33C0 xor eax, eax
* Reference to GlobalVar_00893BD8
|
007B3B06 A3D83B8900 mov dword ptr [$00893BD8], eax
007B3B0B C3 ret
*)
end;
procedure TfrmSelExportField.FormShow(Sender : TObject);
begin
(*
007B3B0C 53 push ebx
007B3B0D 8BD8 mov ebx, eax
007B3B0F 8BC3 mov eax, ebx
|
007B3B11 E842FEFFFF call 007B3958
* Reference to field TfrmSelExportField.OFFS_0324
|
007B3B16 8B9324030000 mov edx, [ebx+$0324]
007B3B1C 8BC3 mov eax, ebx
* Reference to : TfrmSelExportField._PROC_007B3D08()
|
007B3B1E E8E5010000 call 007B3D08
007B3B23 8BC3 mov eax, ebx
* Reference to : TfrmSelExportField._PROC_007B3B2C()
|
007B3B25 E802000000 call 007B3B2C
007B3B2A 5B pop ebx
007B3B2B C3 ret
*)
end;
procedure TfrmSelExportField.Button2Click(Sender : TObject);
begin
(*
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007B3D00 E89322CFFF call 004A5F98
007B3D05 C3 ret
*)
end;
procedure TfrmSelExportField.CheckBox1Click(Sender : TObject);
begin
(*
007B4128 53 push ebx
007B4129 56 push esi
007B412A 57 push edi
007B412B 8BD8 mov ebx, eax
* Reference to control TfrmSelExportField.CheckBox1 : TCheckBox
|
007B412D 8B8318030000 mov eax, [ebx+$0318]
007B4133 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B4135 FF92C8000000 call dword ptr [edx+$00C8]
007B413B 84C0 test al, al
007B413D 0F8488000000 jz 007B41CB
* Reference to control TfrmSelExportField.CheckBox2 : TCheckBox
|
007B4143 8B831C030000 mov eax, [ebx+$031C]
007B4149 33D2 xor edx, edx
007B414B 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B414D FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TfrmSelExportField.Panel2 : TScrollBox
|
007B4153 8BBB10030000 mov edi, [ebx+$0310]
007B4159 8BF7 mov esi, edi
007B415B 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|
007B415D E84E7BCDFF call 0048BCB0
007B4162 48 dec eax
007B4163 85C0 test eax, eax
007B4165 7C64 jl 007B41CB
007B4167 40 inc eax
007B4168 89C7 mov edi, eax
007B416A 33DB xor ebx, ebx
007B416C 8BD3 mov edx, ebx
007B416E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B4170 E8FF7ACDFF call 0048BC74
* Reference to class TCheckBox
|
007B4175 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B417B E86403C5FF call 004044E4
007B4180 84C0 test al, al
007B4182 7443 jz 007B41C7
007B4184 8BD3 mov edx, ebx
007B4186 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B4188 E8E77ACDFF call 0048BC74
* Reference to field TScrollBox.Name : TComponentName
|
007B418D 8B4008 mov eax, [eax+$08]
* Possible String Reference to: 'CheckBox1'
|
007B4190 BAD8417B00 mov edx, $007B41D8
* Reference to: System.@LStrCmp;
|
007B4195 E8A615C5FF call 00405740
007B419A 742B jz 007B41C7
007B419C 8BD3 mov edx, ebx
007B419E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B41A0 E8CF7ACDFF call 0048BC74
* Reference to field TScrollBox.Name : TComponentName
|
007B41A5 8B4008 mov eax, [eax+$08]
* Possible String Reference to: 'CheckBox2'
|
007B41A8 BAEC417B00 mov edx, $007B41EC
* Reference to: System.@LStrCmp;
|
007B41AD E88E15C5FF call 00405740
007B41B2 7413 jz 007B41C7
007B41B4 8BD3 mov edx, ebx
007B41B6 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B41B8 E8B77ACDFF call 0048BC74
007B41BD B201 mov dl, $01
007B41BF 8B08 mov ecx, [eax]
* Reference to method TScrollBox.AutoScrollInView(TControl)
|
007B41C1 FF91CC000000 call dword ptr [ecx+$00CC]
007B41C7 43 inc ebx
007B41C8 4F dec edi
007B41C9 75A1 jnz 007B416C
007B41CB 5F pop edi
007B41CC 5E pop esi
007B41CD 5B pop ebx
007B41CE C3 ret
*)
end;
procedure TfrmSelExportField.CheckBox2Click(Sender : TObject);
begin
(*
007B41F8 53 push ebx
007B41F9 56 push esi
007B41FA 57 push edi
007B41FB 8BD8 mov ebx, eax
* Reference to control TfrmSelExportField.CheckBox2 : TCheckBox
|
007B41FD 8B831C030000 mov eax, [ebx+$031C]
007B4203 8B10 mov edx, [eax]
* Reference to method TCheckBox.GetChecked()
|
007B4205 FF92C8000000 call dword ptr [edx+$00C8]
007B420B 84C0 test al, al
007B420D 0F8488000000 jz 007B429B
* Reference to control TfrmSelExportField.CheckBox1 : TCheckBox
|
007B4213 8B8318030000 mov eax, [ebx+$0318]
007B4219 33D2 xor edx, edx
007B421B 8B08 mov ecx, [eax]
* Reference to method TCheckBox.SetChecked(Boolean)
|
007B421D FF91CC000000 call dword ptr [ecx+$00CC]
* Reference to control TfrmSelExportField.Panel2 : TScrollBox
|
007B4223 8BBB10030000 mov edi, [ebx+$0310]
007B4229 8BF7 mov esi, edi
007B422B 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|
007B422D E87E7ACDFF call 0048BCB0
007B4232 48 dec eax
007B4233 85C0 test eax, eax
007B4235 7C64 jl 007B429B
007B4237 40 inc eax
007B4238 89C7 mov edi, eax
007B423A 33DB xor ebx, ebx
007B423C 8BD3 mov edx, ebx
007B423E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B4240 E82F7ACDFF call 0048BC74
* Reference to class TCheckBox
|
007B4245 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B424B E89402C5FF call 004044E4
007B4250 84C0 test al, al
007B4252 7443 jz 007B4297
007B4254 8BD3 mov edx, ebx
007B4256 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B4258 E8177ACDFF call 0048BC74
* Reference to field TScrollBox.Name : TComponentName
|
007B425D 8B4008 mov eax, [eax+$08]
* Possible String Reference to: 'CheckBox1'
|
007B4260 BAA8427B00 mov edx, $007B42A8
* Reference to: System.@LStrCmp;
|
007B4265 E8D614C5FF call 00405740
007B426A 742B jz 007B4297
007B426C 8BD3 mov edx, ebx
007B426E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B4270 E8FF79CDFF call 0048BC74
* Reference to field TScrollBox.Name : TComponentName
|
007B4275 8B4008 mov eax, [eax+$08]
* Possible String Reference to: 'CheckBox2'
|
007B4278 BABC427B00 mov edx, $007B42BC
* Reference to: System.@LStrCmp;
|
007B427D E8BE14C5FF call 00405740
007B4282 7413 jz 007B4297
007B4284 8BD3 mov edx, ebx
007B4286 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B4288 E8E779CDFF call 0048BC74
007B428D 33D2 xor edx, edx
007B428F 8B08 mov ecx, [eax]
* Reference to method TScrollBox.AutoScrollInView(TControl)
|
007B4291 FF91CC000000 call dword ptr [ecx+$00CC]
007B4297 43 inc ebx
007B4298 4F dec edi
007B4299 75A1 jnz 007B423C
007B429B 5F pop edi
007B429C 5E pop esi
007B429D 5B pop ebx
007B429E C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B3B2C(Sender : TObject);
begin
(*
007B3B2C 55 push ebp
007B3B2D 8BEC mov ebp, esp
007B3B2F 6A00 push $00
007B3B31 6A00 push $00
007B3B33 6A00 push $00
007B3B35 53 push ebx
007B3B36 56 push esi
007B3B37 57 push edi
007B3B38 8945FC mov [ebp-$04], eax
007B3B3B 33C0 xor eax, eax
007B3B3D 55 push ebp
007B3B3E 68F83B7B00 push $007B3BF8
***** TRY
|
007B3B43 64FF30 push dword ptr fs:[eax]
007B3B46 648920 mov fs:[eax], esp
007B3B49 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSelExportField.Panel2 : TScrollBox
|
007B3B4C 8B9810030000 mov ebx, [eax+$0310]
007B3B52 8BFB mov edi, ebx
007B3B54 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|
007B3B56 E85581CDFF call 0048BCB0
007B3B5B 8BF0 mov esi, eax
007B3B5D 4E dec esi
007B3B5E 85F6 test esi, esi
007B3B60 7C78 jl 007B3BDA
007B3B62 46 inc esi
007B3B63 33DB xor ebx, ebx
007B3B65 8BD3 mov edx, ebx
007B3B67 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3B69 E80681CDFF call 0048BC74
* Reference to class TCheckBox
|
007B3B6E 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B3B74 E86B09C5FF call 004044E4
007B3B79 84C0 test al, al
007B3B7B 7459 jz 007B3BD6
007B3B7D 8BD3 mov edx, ebx
007B3B7F 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3B81 E8EE80CDFF call 0048BC74
007B3B86 8D55F4 lea edx, [ebp-$0C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B3B89 E8624ACDFF call 004885F0
007B3B8E 8B45F4 mov eax, [ebp-$0C]
007B3B91 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B3B94 E8536DC5FF call 0040A8EC
007B3B99 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSelExportField.OFFS_0320
|
007B3B9C 8B9020030000 mov edx, [eax+$0320]
007B3BA2 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrPos;
|
007B3BA5 E88E1DC5FF call 00405938
007B3BAA 85C0 test eax, eax
007B3BAC 7E15 jle 007B3BC3
007B3BAE 8BD3 mov edx, ebx
007B3BB0 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3BB2 E8BD80CDFF call 0048BC74
007B3BB7 B201 mov dl, $01
007B3BB9 8B08 mov ecx, [eax]
* Reference to method TScrollBox.AutoScrollInView(TControl)
|
007B3BBB FF91CC000000 call dword ptr [ecx+$00CC]
007B3BC1 EB13 jmp 007B3BD6
007B3BC3 8BD3 mov edx, ebx
007B3BC5 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3BC7 E8A880CDFF call 0048BC74
007B3BCC 33D2 xor edx, edx
007B3BCE 8B08 mov ecx, [eax]
* Reference to method TScrollBox.AutoScrollInView(TControl)
|
007B3BD0 FF91CC000000 call dword ptr [ecx+$00CC]
007B3BD6 43 inc ebx
007B3BD7 4E dec esi
007B3BD8 758B jnz 007B3B65
007B3BDA 33C0 xor eax, eax
007B3BDC 5A pop edx
007B3BDD 59 pop ecx
007B3BDE 59 pop ecx
007B3BDF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]Ë<>U<EFBFBD><55><EFBFBD><EFBFBD><EFBFBD>SVW3҉U<D289><55>E<EFBFBD>3<EFBFBD>Uh<55><{'
|
007B3BE2 68FF3B7B00 push $007B3BFF
007B3BE7 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
007B3BEA E83517C5FF call 00405324
007B3BEF 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007B3BF2 E82D17C5FF call 00405324
007B3BF7 C3 ret
* Reference to: System.@HandleFinally;
|
007B3BF8 E9F70EC5FF jmp 00404AF4
007B3BFD EBE8 jmp 007B3BE7
****** END
|
007B3BFF 5F pop edi
007B3C00 5E pop esi
007B3C01 5B pop ebx
007B3C02 8BE5 mov esp, ebp
007B3C04 5D pop ebp
007B3C05 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B3C08(Sender : TObject);
begin
(*
007B3C08 55 push ebp
007B3C09 8BEC mov ebp, esp
007B3C0B 83C4F8 add esp, -$08
007B3C0E 53 push ebx
007B3C0F 56 push esi
007B3C10 57 push edi
007B3C11 33D2 xor edx, edx
007B3C13 8955F8 mov [ebp-$08], edx
007B3C16 8945FC mov [ebp-$04], eax
007B3C19 33C0 xor eax, eax
007B3C1B 55 push ebp
007B3C1C 68F03C7B00 push $007B3CF0
***** TRY
|
007B3C21 64FF30 push dword ptr fs:[eax]
007B3C24 648920 mov fs:[eax], esp
007B3C27 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSelExportField.Panel2 : TScrollBox
|
007B3C2A 8B9810030000 mov ebx, [eax+$0310]
007B3C30 8BFB mov edi, ebx
007B3C32 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|
007B3C34 E87780CDFF call 0048BCB0
007B3C39 8BF0 mov esi, eax
007B3C3B 4E dec esi
007B3C3C 85F6 test esi, esi
007B3C3E 7C78 jl 007B3CB8
007B3C40 46 inc esi
007B3C41 33DB xor ebx, ebx
007B3C43 8BD3 mov edx, ebx
007B3C45 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3C47 E82880CDFF call 0048BC74
* Reference to class TCheckBox
|
007B3C4C 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B3C52 E88D08C5FF call 004044E4
007B3C57 84C0 test al, al
007B3C59 7459 jz 007B3CB4
007B3C5B 8BD3 mov edx, ebx
007B3C5D 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3C5F E81080CDFF call 0048BC74
007B3C64 8B10 mov edx, [eax]
* Reference to method TScrollBox.AutoScrollEnabled()
|
007B3C66 FF92C8000000 call dword ptr [edx+$00C8]
007B3C6C 3C01 cmp al, $01
007B3C6E 7523 jnz 007B3C93
007B3C70 8BD3 mov edx, ebx
007B3C72 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3C74 E8FB7FCDFF call 0048BC74
* Reference to field TScrollBox.Tag : Longint
|
007B3C79 8B500C mov edx, [eax+$0C]
007B3C7C 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSelExportField.ExpGrid : TcxGridDBTableView
|
007B3C7F 8B8004030000 mov eax, [eax+$0304]
* 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;
|
007B3C85 E8467DEBFF call 0066B9D0
007B3C8A B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007B3C8C E8335FE7FF call 00629BC4
007B3C91 EB21 jmp 007B3CB4
007B3C93 8BD3 mov edx, ebx
007B3C95 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3C97 E8D87FCDFF call 0048BC74
* Reference to field TScrollBox.Tag : Longint
|
007B3C9C 8B500C mov edx, [eax+$0C]
007B3C9F 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSelExportField.ExpGrid : TcxGridDBTableView
|
007B3CA2 8B8004030000 mov eax, [eax+$0304]
* 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;
|
007B3CA8 E8237DEBFF call 0066B9D0
007B3CAD 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007B3CAF E8105FE7FF call 00629BC4
007B3CB4 43 inc ebx
007B3CB5 4E dec esi
007B3CB6 758B jnz 007B3C43
007B3CB8 8D55F8 lea edx, [ebp-$08]
007B3CBB 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSelExportField.OFFS_0324
|
007B3CBE 8B8024030000 mov eax, [eax+$0324]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B3CC4 E8236CC5FF call 0040A8EC
007B3CC9 8B45F8 mov eax, [ebp-$08]
007B3CCC 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmSelExportField.cxGrid1 : TcxGrid
|
007B3CCF 8B920C030000 mov edx, [edx+$030C]
|
007B3CD5 E86A430000 call 007B8044
007B3CDA 33C0 xor eax, eax
007B3CDC 5A pop edx
007B3CDD 59 pop ecx
007B3CDE 59 pop ecx
007B3CDF 648910 mov fs:[eax], edx
****** FINALLY
|
007B3CE2 68F73C7B00 push $007B3CF7
007B3CE7 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007B3CEA E83516C5FF call 00405324
007B3CEF C3 ret
* Reference to: System.@HandleFinally;
|
007B3CF0 E9FF0DC5FF jmp 00404AF4
007B3CF5 EBF0 jmp 007B3CE7
****** END
|
007B3CF7 5F pop edi
007B3CF8 5E pop esi
007B3CF9 5B pop ebx
007B3CFA 59 pop ecx
007B3CFB 59 pop ecx
007B3CFC 5D pop ebp
007B3CFD C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B3D08(Sender : TObject);
begin
(*
007B3D08 55 push ebp
007B3D09 8BEC mov ebp, esp
007B3D0B 33C9 xor ecx, ecx
007B3D0D 51 push ecx
007B3D0E 51 push ecx
007B3D0F 51 push ecx
007B3D10 51 push ecx
007B3D11 51 push ecx
007B3D12 51 push ecx
007B3D13 53 push ebx
007B3D14 56 push esi
007B3D15 57 push edi
007B3D16 8955FC mov [ebp-$04], edx
007B3D19 8BF0 mov esi, eax
007B3D1B 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B3D1E E8C11AC5FF call 004057E4
007B3D23 33C0 xor eax, eax
007B3D25 55 push ebp
007B3D26 68CA3D7B00 push $007B3DCA
***** TRY
|
007B3D2B 64FF30 push dword ptr fs:[eax]
007B3D2E 648920 mov fs:[eax], esp
007B3D31 8D55F0 lea edx, [ebp-$10]
*)
end;
procedure TfrmSelExportField._PROC_007B3E29(Sender : TObject);
begin
(*
007B3E29 8BEC mov ebp, esp
007B3E2B 83C4F8 add esp, -$08
007B3E2E 53 push ebx
007B3E2F 56 push esi
007B3E30 57 push edi
007B3E31 33D2 xor edx, edx
007B3E33 8955F8 mov [ebp-$08], edx
007B3E36 8945FC mov [ebp-$04], eax
007B3E39 33C0 xor eax, eax
007B3E3B 55 push ebp
007B3E3C 68F03E7B00 push $007B3EF0
***** TRY
|
007B3E41 64FF30 push dword ptr fs:[eax]
007B3E44 648920 mov fs:[eax], esp
007B3E47 8B45FC mov eax, [ebp-$04]
007B3E4A 0520030000 add eax, +$00000320
* Possible String Reference to: 'Begin'
|
007B3E4F BA083F7B00 mov edx, $007B3F08
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B3E54 E81F15C5FF call 00405378
007B3E59 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmSelExportField.Panel2 : TScrollBox
|
007B3E5C 8B9810030000 mov ebx, [eax+$0310]
007B3E62 8BFB mov edi, ebx
007B3E64 8BC3 mov eax, ebx
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|
007B3E66 E8457ECDFF call 0048BCB0
007B3E6B 8BF0 mov esi, eax
007B3E6D 4E dec esi
007B3E6E 85F6 test esi, esi
007B3E70 7C68 jl 007B3EDA
007B3E72 46 inc esi
007B3E73 33DB xor ebx, ebx
007B3E75 8BD3 mov edx, ebx
007B3E77 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3E79 E8F67DCDFF call 0048BC74
* Reference to class TCheckBox
|
007B3E7E 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B3E84 E85B06C5FF call 004044E4
007B3E89 84C0 test al, al
007B3E8B 7449 jz 007B3ED6
007B3E8D 8BD3 mov edx, ebx
007B3E8F 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3E91 E8DE7DCDFF call 0048BC74
007B3E96 8B10 mov edx, [eax]
* Reference to method TScrollBox.AutoScrollEnabled()
|
007B3E98 FF92C8000000 call dword ptr [edx+$00C8]
007B3E9E 84C0 test al, al
007B3EA0 7434 jz 007B3ED6
007B3EA2 8B45FC mov eax, [ebp-$04]
007B3EA5 FFB020030000 push dword ptr [eax+$0320]
007B3EAB 68183F7B00 push $007B3F18
007B3EB0 8BD3 mov edx, ebx
007B3EB2 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B3EB4 E8BB7DCDFF call 0048BC74
007B3EB9 8D55F8 lea edx, [ebp-$08]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B3EBC E82F47CDFF call 004885F0
007B3EC1 FF75F8 push dword ptr [ebp-$08]
007B3EC4 8B45FC mov eax, [ebp-$04]
007B3EC7 0520030000 add eax, +$00000320
007B3ECC BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B3ED1 E8DE17C5FF call 004056B4
007B3ED6 43 inc ebx
007B3ED7 4E dec esi
007B3ED8 759B jnz 007B3E75
007B3EDA 33C0 xor eax, eax
007B3EDC 5A pop edx
007B3EDD 59 pop ecx
007B3EDE 59 pop ecx
007B3EDF 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[YY]<5D>'
|
007B3EE2 68F73E7B00 push $007B3EF7
007B3EE7 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007B3EEA E83514C5FF call 00405324
007B3EEF C3 ret
* Reference to: System.@HandleFinally;
|
007B3EF0 E9FF0BC5FF jmp 00404AF4
007B3EF5 EBF0 jmp 007B3EE7
****** END
|
007B3EF7 5F pop edi
007B3EF8 5E pop esi
007B3EF9 5B pop ebx
007B3EFA 59 pop ecx
007B3EFB 59 pop ecx
007B3EFC 5D pop ebp
007B3EFD C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B3F1D(Sender : TObject);
begin
(*
007B3F1D 8BEC mov ebp, esp
007B3F1F 33C9 xor ecx, ecx
007B3F21 51 push ecx
007B3F22 51 push ecx
007B3F23 51 push ecx
007B3F24 51 push ecx
007B3F25 51 push ecx
007B3F26 51 push ecx
007B3F27 51 push ecx
007B3F28 53 push ebx
007B3F29 56 push esi
007B3F2A 8955FC mov [ebp-$04], edx
007B3F2D 8BF0 mov esi, eax
007B3F2F 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B3F32 E8AD18C5FF call 004057E4
007B3F37 33C0 xor eax, eax
007B3F39 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007B3F3A 68FC3F7B00 push $007B3FFC
***** TRY
|
007B3F3F 64FF30 push dword ptr fs:[eax]
007B3F42 648920 mov fs:[eax], esp
007B3F45 8D55F0 lea edx, [ebp-$10]
*)
end;
procedure TfrmSelExportField._PROC_007B405D(Sender : TObject);
begin
(*
007B405D 8BEC mov ebp, esp
007B405F 33C9 xor ecx, ecx
007B4061 51 push ecx
007B4062 51 push ecx
007B4063 51 push ecx
007B4064 51 push ecx
007B4065 51 push ecx
007B4066 53 push ebx
007B4067 8955FC mov [ebp-$04], edx
007B406A 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B406D E87217C5FF call 004057E4
007B4072 33C0 xor eax, eax
007B4074 55 push ebp
007B4075 68EF407B00 push $007B40EF
***** TRY
|
007B407A 64FF30 push dword ptr fs:[eax]
007B407D 648920 mov fs:[eax], esp
007B4080 8D55F0 lea edx, [ebp-$10]
*)
end;
procedure TfrmSelExportField._PROC_007B42C9(Sender : TObject);
begin
(*
007B42C9 8BEC mov ebp, esp
007B42CB 33C0 xor eax, eax
007B42CD 55 push ebp
007B42CE 68ED427B00 push $007B42ED
***** TRY
|
007B42D3 64FF30 push dword ptr fs:[eax]
007B42D6 648920 mov fs:[eax], esp
007B42D9 FF05DC3B8900 inc dword ptr [$00893BDC]
007B42DF 33C0 xor eax, eax
007B42E1 5A pop edx
007B42E2 59 pop ecx
007B42E3 59 pop ecx
007B42E4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>;<3B>'
|
007B42E7 68F4427B00 push $007B42F4
007B42EC C3 ret
* Reference to: System.@HandleFinally;
|
007B42ED E90208C5FF jmp 00404AF4
007B42F2 EBF8 jmp 007B42EC
****** END
|
007B42F4 5D pop ebp
007B42F5 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B42F8(Sender : TObject);
begin
(*
007B42F8 832DDC3B890001 sub dword ptr [$00893BDC], +$01
007B42FF C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B4300(Sender : TObject);
begin
(*
007B4300 55 push ebp
007B4301 8BEC mov ebp, esp
007B4303 33C0 xor eax, eax
007B4305 55 push ebp
007B4306 6825437B00 push $007B4325
***** TRY
|
007B430B 64FF30 push dword ptr fs:[eax]
007B430E 648920 mov fs:[eax], esp
007B4311 FF05E03B8900 inc dword ptr [$00893BE0]
007B4317 33C0 xor eax, eax
007B4319 5A pop edx
007B431A 59 pop ecx
007B431B 59 pop ecx
007B431C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>;<3B>'
|
007B431F 682C437B00 push $007B432C
007B4324 C3 ret
* Reference to: System.@HandleFinally;
|
007B4325 E9CA07C5FF jmp 00404AF4
007B432A EBF8 jmp 007B4324
****** END
|
007B432C 5D pop ebp
007B432D C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B4330(Sender : TObject);
begin
(*
007B4330 832DE03B890001 sub dword ptr [$00893BE0], +$01
007B4337 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B4338(Sender : TObject);
begin
(*
007B4338 55 push ebp
007B4339 8BEC mov ebp, esp
007B433B 33C0 xor eax, eax
007B433D 55 push ebp
007B433E 685D437B00 push $007B435D
***** TRY
|
007B4343 64FF30 push dword ptr fs:[eax]
007B4346 648920 mov fs:[eax], esp
007B4349 FF05E43B8900 inc dword ptr [$00893BE4]
007B434F 33C0 xor eax, eax
007B4351 5A pop edx
007B4352 59 pop ecx
007B4353 59 pop ecx
007B4354 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>;<3B>'
|
007B4357 6864437B00 push $007B4364
007B435C C3 ret
* Reference to: System.@HandleFinally;
|
007B435D E99207C5FF jmp 00404AF4
007B4362 EBF8 jmp 007B435C
****** END
|
007B4364 5D pop ebp
007B4365 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B4368(Sender : TObject);
begin
(*
007B4368 832DE43B890001 sub dword ptr [$00893BE4], +$01
007B436F C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B4370(Sender : TObject);
begin
(*
007B4370 55 push ebp
007B4371 8BEC mov ebp, esp
007B4373 33C0 xor eax, eax
007B4375 55 push ebp
007B4376 6895437B00 push $007B4395
***** TRY
|
007B437B 64FF30 push dword ptr fs:[eax]
007B437E 648920 mov fs:[eax], esp
007B4381 FF05E83B8900 inc dword ptr [$00893BE8]
007B4387 33C0 xor eax, eax
007B4389 5A pop edx
007B438A 59 pop ecx
007B438B 59 pop ecx
007B438C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-<2D>;<3B>'
|
007B438F 689C437B00 push $007B439C
007B4394 C3 ret
* Reference to: System.@HandleFinally;
|
007B4395 E95A07C5FF jmp 00404AF4
007B439A EBF8 jmp 007B4394
****** END
|
007B439C 5D pop ebp
007B439D C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B43A0(Sender : TObject);
begin
(*
007B43A0 832DE83B890001 sub dword ptr [$00893BE8], +$01
007B43A7 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B43A8(Sender : TObject);
begin
(*
007B43A8 55 push ebp
007B43A9 8BEC mov ebp, esp
007B43AB 51 push ecx
007B43AC B90E000000 mov ecx, $0000000E
007B43B1 6A00 push $00
007B43B3 6A00 push $00
007B43B5 49 dec ecx
007B43B6 75F9 jnz 007B43B1
007B43B8 51 push ecx
007B43B9 874DFC xchg [ebp-$04], ecx
007B43BC 53 push ebx
007B43BD 56 push esi
007B43BE 57 push edi
007B43BF 894DF8 mov [ebp-$08], ecx
007B43C2 8BF2 mov esi, edx
007B43C4 8945FC mov [ebp-$04], eax
007B43C7 8B450C mov eax, [ebp+$0C]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B43CA E81514C5FF call 004057E4
007B43CF 33C0 xor eax, eax
007B43D1 55 push ebp
007B43D2 68A4467B00 push $007B46A4
***** TRY
|
007B43D7 64FF30 push dword ptr fs:[eax]
007B43DA 648920 mov fs:[eax], esp
007B43DD 33C0 xor eax, eax
007B43DF 55 push ebp
007B43E0 681E467B00 push $007B461E
***** TRY
|
007B43E5 64FF30 push dword ptr fs:[eax]
007B43E8 648920 mov fs:[eax], esp
007B43EB 8BC6 mov eax, esi
* 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);
|
007B43ED E8527FEAFF call 0065C344
007B43F2 48 dec eax
007B43F3 85C0 test eax, eax
007B43F5 0F8C17020000 jl 007B4612
007B43FB 40 inc eax
007B43FC 8945F4 mov [ebp-$0C], eax
007B43FF 33DB xor ebx, ebx
007B4401 8BD3 mov edx, ebx
007B4403 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;
|
007B4405 E8C675EBFF call 0066B9D0
* Reference to : TcxCustomGridTableView._PROC_00629594()
|
007B440A E88551E7FF call 00629594
007B440F 3B4508 cmp eax, [ebp+$08]
007B4412 0F85F0010000 jnz 007B4608
007B4418 8BD3 mov edx, ebx
007B441A 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;
|
007B441C E8AF75EBFF call 0066B9D0
007B4421 8B10 mov edx, [eax]
007B4423 FF92D0000000 call dword ptr [edx+$00D0]
007B4429 3C01 cmp al, $01
007B442B 0F85D7010000 jnz 007B4608
007B4431 8BD3 mov edx, ebx
007B4433 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;
|
007B4435 E89675EBFF call 0066B9D0
007B443A 8B801C010000 mov eax, [eax+$011C]
007B4440 8D4DEC lea ecx, [ebp-$14]
007B4443 BA01000000 mov edx, $00000001
|
007B4448 E8A35AEAFF call 00659EF0
007B444D 8B45EC mov eax, [ebp-$14]
007B4450 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B4453 E89464C5FF call 0040A8EC
007B4458 8B45F0 mov eax, [ebp-$10]
007B445B BAC0467B00 mov edx, $007B46C0
* Reference to: System.@LStrCmp;
|
007B4460 E8DB12C5FF call 00405740
007B4465 0F84C9000000 jz 007B4534
007B446B 8BD3 mov edx, ebx
007B446D 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;
|
007B446F E85C75EBFF call 0066B9D0
|
007B4474 E8A773EBFF call 0066B820
007B4479 8D55E0 lea edx, [ebp-$20]
|
007B447C E84769EBFF call 0066ADC8
007B4481 8B55E0 mov edx, [ebp-$20]
007B4484 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4487 E82827D1FF call 004C6BB4
007B448C 8D55E4 lea edx, [ebp-$1C]
007B448F 8B08 mov ecx, [eax]
007B4491 FF5160 call dword ptr [ecx+$60]
007B4494 8B45E4 mov eax, [ebp-$1C]
007B4497 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B449A E84D64C5FF call 0040A8EC
007B449F 837DE800 cmp dword ptr [ebp-$18], +$00
007B44A3 7459 jz 007B44FE
007B44A5 8BD3 mov edx, ebx
007B44A7 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;
|
007B44A9 E82275EBFF call 0066B9D0
|
007B44AE E86D73EBFF call 0066B820
007B44B3 8D55CC lea edx, [ebp-$34]
|
007B44B6 E80D69EBFF call 0066ADC8
007B44BB 8B55CC mov edx, [ebp-$34]
007B44BE 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B44C1 E8EE26D1FF call 004C6BB4
007B44C6 8D55D0 lea edx, [ebp-$30]
007B44C9 8B08 mov ecx, [eax]
007B44CB FF5164 call dword ptr [ecx+$64]
007B44CE 8D45D0 lea eax, [ebp-$30]
007B44D1 50 push eax
007B44D2 8BD3 mov edx, ebx
007B44D4 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;
|
007B44D6 E8F574EBFF call 0066B9D0
|
007B44DB E84073EBFF call 0066B820
007B44E0 8D55C8 lea edx, [ebp-$38]
|
007B44E3 E8E068EBFF call 0066ADC8
007B44E8 8B55C8 mov edx, [ebp-$38]
007B44EB 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B44EE E8C126D1FF call 004C6BB4
007B44F3 5A pop edx
007B44F4 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B44F6 FF91B4000000 call dword ptr [ecx+$00B4]
007B44FC EB36 jmp 007B4534
007B44FE 8BD3 mov edx, ebx
007B4500 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;
|
007B4502 E8C974EBFF call 0066B9D0
|
007B4507 E81473EBFF call 0066B820
007B450C 8D55C4 lea edx, [ebp-$3C]
|
007B450F E8B468EBFF call 0066ADC8
007B4514 8B55C4 mov edx, [ebp-$3C]
007B4517 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B451A E89526D1FF call 004C6BB4
007B451F 50 push eax
007B4520 8D45B4 lea eax, [ebp-$4C]
* 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);
|
007B4523 E8388EC6FF call 0041D360
007B4528 8D55B4 lea edx, [ebp-$4C]
007B452B 58 pop eax
007B452C 8B08 mov ecx, [eax]
007B452E FF91B4000000 call dword ptr [ecx+$00B4]
007B4534 8BD3 mov edx, ebx
007B4536 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;
|
007B4538 E89374EBFF call 0066B9D0
007B453D 8B801C010000 mov eax, [eax+$011C]
007B4543 8D4DAC lea ecx, [ebp-$54]
007B4546 BA02000000 mov edx, $00000002
|
007B454B E8A059EAFF call 00659EF0
007B4550 8B45AC mov eax, [ebp-$54]
007B4553 8D55B0 lea edx, [ebp-$50]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B4556 E89163C5FF call 0040A8EC
007B455B 837DB000 cmp dword ptr [ebp-$50], +$00
007B455F 0F84A3000000 jz 007B4608
007B4565 8BD3 mov edx, ebx
007B4567 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;
|
007B4569 E86274EBFF call 0066B9D0
007B456E 8B801C010000 mov eax, [eax+$011C]
007B4574 8D4DA0 lea ecx, [ebp-$60]
007B4577 BA02000000 mov edx, $00000002
|
007B457C E86F59EAFF call 00659EF0
007B4581 8B55A0 mov edx, [ebp-$60]
007B4584 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4587 E82826D1FF call 004C6BB4
007B458C 8D55A4 lea edx, [ebp-$5C]
007B458F 8B08 mov ecx, [eax]
007B4591 FF5160 call dword ptr [ecx+$60]
007B4594 8B45A4 mov eax, [ebp-$5C]
007B4597 8D55A8 lea edx, [ebp-$58]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B459A E84D63C5FF call 0040A8EC
007B459F 837DA800 cmp dword ptr [ebp-$58], +$00
007B45A3 7463 jz 007B4608
007B45A5 8BD3 mov edx, ebx
007B45A7 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;
|
007B45A9 E82274EBFF call 0066B9D0
007B45AE 8B801C010000 mov eax, [eax+$011C]
007B45B4 8D4D8C lea ecx, [ebp-$74]
007B45B7 BA02000000 mov edx, $00000002
|
007B45BC E82F59EAFF call 00659EF0
007B45C1 8B558C mov edx, [ebp-$74]
007B45C4 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B45C7 E8E825D1FF call 004C6BB4
007B45CC 8D5590 lea edx, [ebp-$70]
007B45CF 8B08 mov ecx, [eax]
007B45D1 FF5164 call dword ptr [ecx+$64]
007B45D4 8D4590 lea eax, [ebp-$70]
007B45D7 50 push eax
007B45D8 8BD3 mov edx, ebx
007B45DA 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;
|
007B45DC E8EF73EBFF call 0066B9D0
007B45E1 8B801C010000 mov eax, [eax+$011C]
007B45E7 8D4D88 lea ecx, [ebp-$78]
007B45EA BA02000000 mov edx, $00000002
|
007B45EF E8FC58EAFF call 00659EF0
007B45F4 8B5588 mov edx, [ebp-$78]
007B45F7 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B45FA E8B525D1FF call 004C6BB4
007B45FF 5A pop edx
007B4600 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B4602 FF91B4000000 call dword ptr [ecx+$00B4]
007B4608 43 inc ebx
007B4609 FF4DF4 dec dword ptr [ebp-$0C]
007B460C 0F85EFFDFFFF jnz 007B4401
007B4612 B301 mov bl, $01
007B4614 33C0 xor eax, eax
007B4616 5A pop edx
007B4617 59 pop ecx
007B4618 59 pop ecx
007B4619 648910 mov fs:[eax], edx
007B461C EB24 jmp 007B4642
* Reference to: System.@HandleAnyException;
|
007B461E E91D02C5FF jmp 00404840
007B4623 33DB xor ebx, ebx
007B4625 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007B4627 B9C4467B00 mov ecx, $007B46C4
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>Cds<64><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣʧ<CFA2><CAA7>!'
|
007B462C BACC467B00 mov edx, $007B46CC
*)
end;
procedure TfrmSelExportField._PROC_007B46E5(Sender : TObject);
begin
(*
007B46E5 8BEC mov ebp, esp
007B46E7 51 push ecx
007B46E8 B90C000000 mov ecx, $0000000C
007B46ED 6A00 push $00
007B46EF 6A00 push $00
007B46F1 49 dec ecx
007B46F2 75F9 jnz 007B46ED
007B46F4 51 push ecx
007B46F5 874DFC xchg [ebp-$04], ecx
007B46F8 53 push ebx
007B46F9 56 push esi
007B46FA 57 push edi
007B46FB 894DF8 mov [ebp-$08], ecx
007B46FE 8BF2 mov esi, edx
007B4700 8945FC mov [ebp-$04], eax
007B4703 8B450C mov eax, [ebp+$0C]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B4706 E8D910C5FF call 004057E4
007B470B 33C0 xor eax, eax
007B470D 55 push ebp
007B470E 6847497B00 push $007B4947
***** TRY
|
007B4713 64FF30 push dword ptr fs:[eax]
007B4716 648920 mov fs:[eax], esp
007B4719 33C0 xor eax, eax
007B471B 55 push ebp
* Possible String Reference to: '<27>h<EFBFBD><68><EFBFBD>3<EFBFBD>j'
|
007B471C 68D3487B00 push $007B48D3
***** TRY
|
007B4721 64FF30 push dword ptr fs:[eax]
007B4724 648920 mov fs:[eax], esp
007B4727 8BC6 mov eax, esi
* 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);
|
007B4729 E8167CEAFF call 0065C344
007B472E 48 dec eax
007B472F 85C0 test eax, eax
007B4731 0F8C90010000 jl 007B48C7
007B4737 40 inc eax
007B4738 8945F4 mov [ebp-$0C], eax
007B473B 33DB xor ebx, ebx
007B473D 8BD3 mov edx, ebx
007B473F 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;
|
007B4741 E88A72EBFF call 0066B9D0
* Reference to : TcxCustomGridTableView._PROC_00629594()
|
007B4746 E8494EE7FF call 00629594
007B474B 3B4508 cmp eax, [ebp+$08]
007B474E 0F8569010000 jnz 007B48BD
007B4754 8BD3 mov edx, ebx
007B4756 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;
|
007B4758 E87372EBFF call 0066B9D0
|
007B475D E8BE70EBFF call 0066B820
007B4762 8D55EC lea edx, [ebp-$14]
|
007B4765 E85E66EBFF call 0066ADC8
007B476A 8B45EC mov eax, [ebp-$14]
007B476D 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B4770 E87761C5FF call 0040A8EC
007B4775 837DF000 cmp dword ptr [ebp-$10], +$00
007B4779 0F843E010000 jz 007B48BD
007B477F 8BD3 mov edx, ebx
007B4781 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;
|
007B4783 E84872EBFF call 0066B9D0
|
007B4788 E89370EBFF call 0066B820
007B478D 8D55E0 lea edx, [ebp-$20]
|
007B4790 E83366EBFF call 0066ADC8
007B4795 8B55E0 mov edx, [ebp-$20]
007B4798 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B479B E81424D1FF call 004C6BB4
007B47A0 8D55E4 lea edx, [ebp-$1C]
007B47A3 8B08 mov ecx, [eax]
007B47A5 FF5160 call dword ptr [ecx+$60]
007B47A8 8B45E4 mov eax, [ebp-$1C]
007B47AB 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B47AE E83961C5FF call 0040A8EC
007B47B3 837DE800 cmp dword ptr [ebp-$18], +$00
007B47B7 745C jz 007B4815
007B47B9 8BD3 mov edx, ebx
007B47BB 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;
|
007B47BD E80E72EBFF call 0066B9D0
|
007B47C2 E85970EBFF call 0066B820
007B47C7 8D55CC lea edx, [ebp-$34]
|
007B47CA E8F965EBFF call 0066ADC8
007B47CF 8B55CC mov edx, [ebp-$34]
007B47D2 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B47D5 E8DA23D1FF call 004C6BB4
007B47DA 8D55D0 lea edx, [ebp-$30]
007B47DD 8B08 mov ecx, [eax]
007B47DF FF5164 call dword ptr [ecx+$64]
007B47E2 8D45D0 lea eax, [ebp-$30]
007B47E5 50 push eax
007B47E6 8BD3 mov edx, ebx
007B47E8 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;
|
007B47EA E8E171EBFF call 0066B9D0
|
007B47EF E82C70EBFF call 0066B820
007B47F4 8D55C8 lea edx, [ebp-$38]
|
007B47F7 E8CC65EBFF call 0066ADC8
007B47FC 8B55C8 mov edx, [ebp-$38]
007B47FF 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4802 E8AD23D1FF call 004C6BB4
007B4807 5A pop edx
007B4808 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B480A FF91B4000000 call dword ptr [ecx+$00B4]
007B4810 E9A8000000 jmp 007B48BD
007B4815 8BD3 mov edx, ebx
007B4817 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;
|
007B4819 E8B271EBFF call 0066B9D0
007B481E 8B801C010000 mov eax, [eax+$011C]
007B4824 8D4DC0 lea ecx, [ebp-$40]
007B4827 BA01000000 mov edx, $00000001
|
007B482C E8BF56EAFF call 00659EF0
007B4831 8B45C0 mov eax, [ebp-$40]
007B4834 8D55C4 lea edx, [ebp-$3C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B4837 E8B060C5FF call 0040A8EC
007B483C 8B45C4 mov eax, [ebp-$3C]
007B483F BA64497B00 mov edx, $007B4964
* Reference to: System.@LStrCmp;
|
007B4844 E8F70EC5FF call 00405740
007B4849 753C jnz 007B4887
007B484B 8BD3 mov edx, ebx
007B484D 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;
|
007B484F E87C71EBFF call 0066B9D0
|
007B4854 E8C76FEBFF call 0066B820
007B4859 8D55BC lea edx, [ebp-$44]
|
007B485C E86765EBFF call 0066ADC8
007B4861 8B55BC mov edx, [ebp-$44]
007B4864 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4867 E84823D1FF call 004C6BB4
007B486C 50 push eax
007B486D 8D45AC lea eax, [ebp-$54]
007B4870 33D2 xor edx, edx
007B4872 B101 mov cl, $01
|
007B4874 E8FB42C6FF call 00418B74
007B4879 8D55AC lea edx, [ebp-$54]
007B487C 58 pop eax
007B487D 8B08 mov ecx, [eax]
007B487F FF91B4000000 call dword ptr [ecx+$00B4]
007B4885 EB36 jmp 007B48BD
007B4887 8BD3 mov edx, ebx
007B4889 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;
|
007B488B E84071EBFF call 0066B9D0
|
007B4890 E88B6FEBFF call 0066B820
007B4895 8D55A8 lea edx, [ebp-$58]
|
007B4898 E82B65EBFF call 0066ADC8
007B489D 8B55A8 mov edx, [ebp-$58]
007B48A0 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B48A3 E80C23D1FF call 004C6BB4
007B48A8 50 push eax
007B48A9 8D4598 lea eax, [ebp-$68]
* 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);
|
007B48AC E8AF8AC6FF call 0041D360
007B48B1 8D5598 lea edx, [ebp-$68]
007B48B4 58 pop eax
007B48B5 8B08 mov ecx, [eax]
007B48B7 FF91B4000000 call dword ptr [ecx+$00B4]
007B48BD 43 inc ebx
007B48BE FF4DF4 dec dword ptr [ebp-$0C]
007B48C1 0F8576FEFFFF jnz 007B473D
007B48C7 B301 mov bl, $01
007B48C9 33C0 xor eax, eax
007B48CB 5A pop edx
007B48CC 59 pop ecx
007B48CD 59 pop ecx
007B48CE 648910 mov fs:[eax], edx
007B48D1 EB24 jmp 007B48F7
* Reference to: System.@HandleAnyException;
|
007B48D3 E968FFC4FF jmp 00404840
007B48D8 33DB xor ebx, ebx
007B48DA 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007B48DC B968497B00 mov ecx, $007B4968
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>Cds<64><73><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣʧ<CFA2><CAA7>!'
|
007B48E1 BA70497B00 mov edx, $007B4970
*)
end;
procedure TfrmSelExportField._PROC_007B4989(Sender : TObject);
begin
(*
007B4989 8BEC mov ebp, esp
007B498B 83C4F4 add esp, -$0C
007B498E 53 push ebx
007B498F 56 push esi
007B4990 57 push edi
007B4991 33D2 xor edx, edx
007B4993 8955F4 mov [ebp-$0C], edx
007B4996 8BF0 mov esi, eax
007B4998 33C0 xor eax, eax
007B499A 55 push ebp
* Possible String Reference to: '<27><>'
|
007B499B 68654A7B00 push $007B4A65
***** TRY
|
007B49A0 64FF30 push dword ptr fs:[eax]
007B49A3 648920 mov fs:[eax], esp
007B49A6 33C0 xor eax, eax
007B49A8 55 push ebp
007B49A9 682D4A7B00 push $007B4A2D
***** TRY
|
007B49AE 64FF30 push dword ptr fs:[eax]
007B49B1 648920 mov fs:[eax], esp
007B49B4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B49B6 E8190FD1FF call 004C58D4
007B49BB 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B49BD E8EA95D2FF call 004DDFAC
007B49C2 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B49C4 FF5244 call dword ptr [edx+$44]
007B49C7 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B49C9 E8DE95D2FF call 004DDFAC
* Possible String Reference to: 'select getDate()as dt'
|
007B49CE BA804A7B00 mov edx, $007B4A80
007B49D3 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B49D5 FF5138 call dword ptr [ecx+$38]
007B49D8 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007B49DA E8E90ED1FF call 004C58C8
* Possible String Reference to: 'dt'
|
007B49DF BAA04A7B00 mov edx, $007B4AA0
007B49E4 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B49E6 E8C921D1FF call 004C6BB4
007B49EB 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetEnabled()
|
007B49ED FF5250 call dword ptr [edx+$50]
007B49F0 83C4F8 add esp, -$08
007B49F3 DD1C24 fstp qword ptr [esp]
007B49F6 9B wait
007B49F7 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: 'yyyy-MM-dd'
|
007B49FA B8AC4A7B00 mov eax, $007B4AAC
|
007B49FF E8B8A1C5FF call 0040EBBC
007B4A04 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToDate(AnsiString):TDateTime;overload;
| or: SysUtils.StrToTime(AnsiString):TDateTime;overload;
| or: SysUtils.StrToDateTime(AnsiString):TDateTime;overload;
|
007B4A07 E8BCA9C5FF call 0040F3C8
007B4A0C DD5DF8 fstp qword ptr [ebp-$08]
007B4A0F 9B wait
007B4A10 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B4A12 E8BD0ED1FF call 004C58D4
007B4A17 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4A19 E88E95D2FF call 004DDFAC
007B4A1E 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B4A20 FF5244 call dword ptr [edx+$44]
007B4A23 33C0 xor eax, eax
007B4A25 5A pop edx
007B4A26 59 pop ecx
007B4A27 59 pop ecx
007B4A28 648910 mov fs:[eax], edx
007B4A2B EB22 jmp 007B4A4F
* Reference to: System.@HandleAnyException;
|
007B4A2D E90EFEC4FF jmp 00404840
007B4A32 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007B4A34 B9B84A7B00 mov ecx, $007B4AB8
* Possible String Reference to: '<27><>ȡ<EFBFBD><C8A1>ǰ<EFBFBD><C7B0><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007B4A39 BAC44A7B00 mov edx, $007B4AC4
*)
end;
procedure TfrmSelExportField._PROC_007B4ADD(Sender : TObject);
begin
(*
007B4ADD 8BEC mov ebp, esp
007B4ADF 83C4F8 add esp, -$08
007B4AE2 53 push ebx
007B4AE3 56 push esi
007B4AE4 57 push edi
007B4AE5 8BF0 mov esi, eax
007B4AE7 33C0 xor eax, eax
007B4AE9 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>j'
|
007B4AEA 68524B7B00 push $007B4B52
***** TRY
|
007B4AEF 64FF30 push dword ptr fs:[eax]
007B4AF2 648920 mov fs:[eax], esp
007B4AF5 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B4AF7 E8D80DD1FF call 004C58D4
007B4AFC 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4AFE E8A994D2FF call 004DDFAC
007B4B03 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B4B05 FF5244 call dword ptr [edx+$44]
007B4B08 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4B0A E89D94D2FF call 004DDFAC
* Possible String Reference to: 'select getDate()as dt'
|
007B4B0F BA884B7B00 mov edx, $007B4B88
007B4B14 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B4B16 FF5138 call dword ptr [ecx+$38]
007B4B19 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007B4B1B E8A80DD1FF call 004C58C8
* Possible String Reference to: 'dt'
|
007B4B20 BAA84B7B00 mov edx, $007B4BA8
007B4B25 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4B27 E88820D1FF call 004C6BB4
007B4B2C 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetEnabled()
|
007B4B2E FF5250 call dword ptr [edx+$50]
007B4B31 DD5DF8 fstp qword ptr [ebp-$08]
007B4B34 9B wait
007B4B35 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B4B37 E8980DD1FF call 004C58D4
007B4B3C 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4B3E E86994D2FF call 004DDFAC
007B4B43 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B4B45 FF5244 call dword ptr [edx+$44]
007B4B48 33C0 xor eax, eax
007B4B4A 5A pop edx
007B4B4B 59 pop ecx
007B4B4C 59 pop ecx
007B4B4D 648910 mov fs:[eax], edx
007B4B50 EB22 jmp 007B4B74
* Reference to: System.@HandleAnyException;
|
007B4B52 E9E9FCC4FF jmp 00404840
007B4B57 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007B4B59 B9AC4B7B00 mov ecx, $007B4BAC
* Possible String Reference to: '<27><>ȡ<EFBFBD><C8A1>ǰ<EFBFBD><C7B0><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007B4B5E BAB84B7B00 mov edx, $007B4BB8
*)
end;
procedure TfrmSelExportField._PROC_007B4BD1(Sender : TObject);
begin
(*
007B4BD1 8BEC mov ebp, esp
007B4BD3 83C4F4 add esp, -$0C
007B4BD6 53 push ebx
007B4BD7 56 push esi
007B4BD8 57 push edi
007B4BD9 33D2 xor edx, edx
007B4BDB 8955F4 mov [ebp-$0C], edx
007B4BDE 8BF0 mov esi, eax
007B4BE0 33C0 xor eax, eax
007B4BE2 55 push ebp
* Possible String Reference to: '<27>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD>E<EFBFBD>_^[<5B><>]<5D>'
|
007B4BE3 68AD4C7B00 push $007B4CAD
***** TRY
|
007B4BE8 64FF30 push dword ptr fs:[eax]
007B4BEB 648920 mov fs:[eax], esp
007B4BEE 33C0 xor eax, eax
007B4BF0 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>j'
|
007B4BF1 68754C7B00 push $007B4C75
***** TRY
|
007B4BF6 64FF30 push dword ptr fs:[eax]
007B4BF9 648920 mov fs:[eax], esp
007B4BFC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B4BFE E8D10CD1FF call 004C58D4
007B4C03 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4C05 E8A293D2FF call 004DDFAC
007B4C0A 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B4C0C FF5244 call dword ptr [edx+$44]
007B4C0F 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4C11 E89693D2FF call 004DDFAC
* Possible String Reference to: 'select getDate()as dt'
|
007B4C16 BAC84C7B00 mov edx, $007B4CC8
007B4C1B 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B4C1D FF5138 call dword ptr [ecx+$38]
007B4C20 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Open(TDataSet);
|
007B4C22 E8A10CD1FF call 004C58C8
* Possible String Reference to: 'dt'
|
007B4C27 BAE84C7B00 mov edx, $007B4CE8
007B4C2C 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4C2E E8811FD1FF call 004C6BB4
007B4C33 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetEnabled()
|
007B4C35 FF5250 call dword ptr [edx+$50]
007B4C38 83C4F8 add esp, -$08
007B4C3B DD1C24 fstp qword ptr [esp]
007B4C3E 9B wait
007B4C3F 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: 'yyyy-MM-dd'
|
007B4C42 B8F44C7B00 mov eax, $007B4CF4
|
007B4C47 E8709FC5FF call 0040EBBC
007B4C4C 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.StrToDate(AnsiString):TDateTime;overload;
| or: SysUtils.StrToTime(AnsiString):TDateTime;overload;
| or: SysUtils.StrToDateTime(AnsiString):TDateTime;overload;
|
007B4C4F E874A7C5FF call 0040F3C8
007B4C54 DD5DF8 fstp qword ptr [ebp-$08]
007B4C57 9B wait
007B4C58 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B4C5A E8750CD1FF call 004C58D4
007B4C5F 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B4C61 E84693D2FF call 004DDFAC
007B4C66 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B4C68 FF5244 call dword ptr [edx+$44]
007B4C6B 33C0 xor eax, eax
007B4C6D 5A pop edx
007B4C6E 59 pop ecx
007B4C6F 59 pop ecx
007B4C70 648910 mov fs:[eax], edx
007B4C73 EB22 jmp 007B4C97
* Reference to: System.@HandleAnyException;
|
007B4C75 E9C6FBC4FF jmp 00404840
007B4C7A 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007B4C7C B9004D7B00 mov ecx, $007B4D00
* Possible String Reference to: '<27><>ȡ<EFBFBD><C8A1>ǰ<EFBFBD><C7B0><EFBFBD>ڷ<EFBFBD><DAB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!'
|
007B4C81 BA0C4D7B00 mov edx, $007B4D0C
*)
end;
procedure TfrmSelExportField._PROC_007B4D25(Sender : TObject);
begin
(*
007B4D25 8BEC mov ebp, esp
007B4D27 51 push ecx
007B4D28 B936000000 mov ecx, $00000036
007B4D2D 6A00 push $00
007B4D2F 6A00 push $00
007B4D31 49 dec ecx
007B4D32 75F9 jnz 007B4D2D
007B4D34 51 push ecx
007B4D35 874DFC xchg [ebp-$04], ecx
007B4D38 53 push ebx
007B4D39 56 push esi
007B4D3A 57 push edi
007B4D3B 8BF1 mov esi, ecx
007B4D3D 8945FC mov [ebp-$04], eax
007B4D40 33C0 xor eax, eax
007B4D42 55 push ebp
007B4D43 68FA577B00 push $007B57FA
***** TRY
|
007B4D48 64FF30 push dword ptr fs:[eax]
007B4D4B 648920 mov fs:[eax], esp
007B4D4E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
| or: QControls.TWidgetControl.GetControlCount(TWidgetControl):Integer;
|
007B4D50 E85B6FCDFF call 0048BCB0
007B4D55 8BF8 mov edi, eax
007B4D57 4F dec edi
007B4D58 85FF test edi, edi
007B4D5A 0F8CD1080000 jl 007B5631
007B4D60 47 inc edi
007B4D61 33DB xor ebx, ebx
007B4D63 8BD3 mov edx, ebx
007B4D65 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4D67 E8086FCDFF call 0048BC74
007B4D6C 8B400C mov eax, [eax+$0C]
007B4D6F 3B4508 cmp eax, [ebp+$08]
007B4D72 0F85B1080000 jnz 007B5629
007B4D78 8BD3 mov edx, ebx
007B4D7A 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4D7C E8F36ECDFF call 0048BC74
* Reference to class TEdit
|
007B4D81 8B15B8674700 mov edx, [$004767B8]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B4D87 E858F7C4FF call 004044E4
007B4D8C 84C0 test al, al
007B4D8E 0F849D000000 jz 007B4E31
007B4D94 8BD3 mov edx, ebx
007B4D96 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4D98 E8D76ECDFF call 0048BC74
007B4D9D 8D55F0 lea edx, [ebp-$10]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B4DA0 E84B38CDFF call 004885F0
007B4DA5 8B45F0 mov eax, [ebp-$10]
007B4DA8 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B4DAB E83C5BC5FF call 0040A8EC
007B4DB0 837DF400 cmp dword ptr [ebp-$0C], +$00
007B4DB4 744D jz 007B4E03
007B4DB6 8BD3 mov edx, ebx
007B4DB8 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4DBA E8B56ECDFF call 0048BC74
007B4DBF 8D55D8 lea edx, [ebp-$28]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B4DC2 E82938CDFF call 004885F0
007B4DC7 8B45D8 mov eax, [ebp-$28]
007B4DCA 8D55DC lea edx, [ebp-$24]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B4DCD E81A5BC5FF call 0040A8EC
007B4DD2 8B55DC mov edx, [ebp-$24]
007B4DD5 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B4DD8 E8EB3FC6FF call 00418DC8
007B4DDD 8D45E0 lea eax, [ebp-$20]
007B4DE0 50 push eax
007B4DE1 8BD3 mov edx, ebx
007B4DE3 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4DE5 E88A6ECDFF call 0048BC74
007B4DEA 8B5008 mov edx, [eax+$08]
007B4DED 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4DF0 E8BF1DD1FF call 004C6BB4
007B4DF5 5A pop edx
007B4DF6 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B4DF8 FF91B4000000 call dword ptr [ecx+$00B4]
007B4DFE E926080000 jmp 007B5629
007B4E03 8BD3 mov edx, ebx
007B4E05 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4E07 E8686ECDFF call 0048BC74
007B4E0C 8B5008 mov edx, [eax+$08]
007B4E0F 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4E12 E89D1DD1FF call 004C6BB4
007B4E17 50 push eax
007B4E18 8D45C8 lea eax, [ebp-$38]
* 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);
|
007B4E1B E84085C6FF call 0041D360
007B4E20 8D55C8 lea edx, [ebp-$38]
007B4E23 58 pop eax
007B4E24 8B08 mov ecx, [eax]
007B4E26 FF91B4000000 call dword ptr [ecx+$00B4]
007B4E2C E9F8070000 jmp 007B5629
007B4E31 8BD3 mov edx, ebx
007B4E33 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4E35 E83A6ECDFF call 0048BC74
* Reference to class TRichEdit
|
007B4E3A 8B15F84F4500 mov edx, [$00454FF8]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B4E40 E89FF6C4FF call 004044E4
007B4E45 84C0 test al, al
007B4E47 7442 jz 007B4E8B
007B4E49 8BD3 mov edx, ebx
007B4E4B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4E4D E8226ECDFF call 0048BC74
007B4E52 8D55B4 lea edx, [ebp-$4C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B4E55 E89637CDFF call 004885F0
007B4E5A 8B55B4 mov edx, [ebp-$4C]
007B4E5D 8D45B8 lea eax, [ebp-$48]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B4E60 E8633FC6FF call 00418DC8
007B4E65 8D45B8 lea eax, [ebp-$48]
007B4E68 50 push eax
007B4E69 8BD3 mov edx, ebx
007B4E6B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4E6D E8026ECDFF call 0048BC74
007B4E72 8B5008 mov edx, [eax+$08]
007B4E75 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4E78 E8371DD1FF call 004C6BB4
007B4E7D 5A pop edx
007B4E7E 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B4E80 FF91B4000000 call dword ptr [ecx+$00B4]
007B4E86 E99E070000 jmp 007B5629
007B4E8B 8BD3 mov edx, ebx
007B4E8D 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4E8F E8E06DCDFF call 0048BC74
* Reference to class TCheckBox
|
007B4E94 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B4E9A E845F6C4FF call 004044E4
007B4E9F 84C0 test al, al
007B4EA1 747C jz 007B4F1F
007B4EA3 8BD3 mov edx, ebx
007B4EA5 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4EA7 E8C86DCDFF call 0048BC74
007B4EAC 8B10 mov edx, [eax]
007B4EAE FF92C8000000 call dword ptr [edx+$00C8]
007B4EB4 3C01 cmp al, $01
007B4EB6 7535 jnz 007B4EED
007B4EB8 8BD3 mov edx, ebx
007B4EBA 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4EBC E8B36DCDFF call 0048BC74
007B4EC1 8B5008 mov edx, [eax+$08]
007B4EC4 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4EC7 E8E81CD1FF call 004C6BB4
007B4ECC 50 push eax
007B4ECD 8D45A4 lea eax, [ebp-$5C]
007B4ED0 BA01000000 mov edx, $00000001
007B4ED5 B101 mov cl, $01
|
007B4ED7 E8983CC6FF call 00418B74
007B4EDC 8D55A4 lea edx, [ebp-$5C]
007B4EDF 58 pop eax
007B4EE0 8B08 mov ecx, [eax]
007B4EE2 FF91B4000000 call dword ptr [ecx+$00B4]
007B4EE8 E93C070000 jmp 007B5629
007B4EED 8BD3 mov edx, ebx
007B4EEF 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4EF1 E87E6DCDFF call 0048BC74
007B4EF6 8B5008 mov edx, [eax+$08]
007B4EF9 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4EFC E8B31CD1FF call 004C6BB4
007B4F01 50 push eax
007B4F02 8D4594 lea eax, [ebp-$6C]
007B4F05 33D2 xor edx, edx
007B4F07 B101 mov cl, $01
|
007B4F09 E8663CC6FF call 00418B74
007B4F0E 8D5594 lea edx, [ebp-$6C]
007B4F11 58 pop eax
007B4F12 8B08 mov ecx, [eax]
007B4F14 FF91B4000000 call dword ptr [ecx+$00B4]
007B4F1A E90A070000 jmp 007B5629
007B4F1F 8BD3 mov edx, ebx
007B4F21 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4F23 E84C6DCDFF call 0048BC74
* Reference to class TcxRichEdit
|
007B4F28 8B15685A6B00 mov edx, [$006B5A68]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B4F2E E8B1F5C4FF call 004044E4
007B4F33 84C0 test al, al
007B4F35 7442 jz 007B4F79
007B4F37 8BD3 mov edx, ebx
007B4F39 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4F3B E8346DCDFF call 0048BC74
007B4F40 8D5580 lea edx, [ebp-$80]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B4F43 E8A836CDFF call 004885F0
007B4F48 8B5580 mov edx, [ebp-$80]
007B4F4B 8D4584 lea eax, [ebp-$7C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B4F4E E8753EC6FF call 00418DC8
007B4F53 8D4584 lea eax, [ebp-$7C]
007B4F56 50 push eax
007B4F57 8BD3 mov edx, ebx
007B4F59 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4F5B E8146DCDFF call 0048BC74
007B4F60 8B5008 mov edx, [eax+$08]
007B4F63 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4F66 E8491CD1FF call 004C6BB4
007B4F6B 5A pop edx
007B4F6C 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B4F6E FF91B4000000 call dword ptr [ecx+$00B4]
007B4F74 E9B0060000 jmp 007B5629
007B4F79 8BD3 mov edx, ebx
007B4F7B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4F7D E8F26CCDFF call 0048BC74
* Reference to class TMemo
|
007B4F82 8B158C724700 mov edx, [$0047728C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B4F88 E857F5C4FF call 004044E4
007B4F8D 84C0 test al, al
007B4F8F 744E jz 007B4FDF
007B4F91 8BD3 mov edx, ebx
007B4F93 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4F95 E8DA6CCDFF call 0048BC74
007B4F9A 8D956CFFFFFF lea edx, [ebp+$FFFFFF6C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B4FA0 E84B36CDFF call 004885F0
007B4FA5 8B956CFFFFFF mov edx, [ebp+$FFFFFF6C]
007B4FAB 8D8570FFFFFF lea eax, [ebp+$FFFFFF70]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B4FB1 E8123EC6FF call 00418DC8
007B4FB6 8D8570FFFFFF lea eax, [ebp+$FFFFFF70]
007B4FBC 50 push eax
007B4FBD 8BD3 mov edx, ebx
007B4FBF 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4FC1 E8AE6CCDFF call 0048BC74
007B4FC6 8B5008 mov edx, [eax+$08]
007B4FC9 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B4FCC E8E31BD1FF call 004C6BB4
007B4FD1 5A pop edx
007B4FD2 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B4FD4 FF91B4000000 call dword ptr [ecx+$00B4]
007B4FDA E94A060000 jmp 007B5629
007B4FDF 8BD3 mov edx, ebx
007B4FE1 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4FE3 E88C6CCDFF call 0048BC74
007B4FE8 8B15F4508800 mov edx, [$008850F4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B4FEE E8F1F4C4FF call 004044E4
007B4FF3 84C0 test al, al
007B4FF5 0F8480000000 jz 007B507B
007B4FFB 8BD3 mov edx, ebx
007B4FFD 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B4FFF E8706CCDFF call 0048BC74
007B5004 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B500A E8E135CDFF call 004885F0
007B500F 83BD68FFFFFF00 cmp dword ptr [ebp+$FFFFFF68], +$00
007B5016 0F840D060000 jz 007B5629
007B501C 8BD3 mov edx, ebx
007B501E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5020 E84F6CCDFF call 0048BC74
007B5025 8D9550FFFFFF lea edx, [ebp+$FFFFFF50]
|
007B502B E83CF2EFFF call 006B426C
007B5030 8B8550FFFFFF mov eax, [ebp+$FFFFFF50]
007B5036 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B503C E8AB58C5FF call 0040A8EC
007B5041 8B9554FFFFFF mov edx, [ebp+$FFFFFF54]
007B5047 8D8558FFFFFF lea eax, [ebp+$FFFFFF58]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B504D E8763DC6FF call 00418DC8
007B5052 8D8558FFFFFF lea eax, [ebp+$FFFFFF58]
007B5058 50 push eax
007B5059 8BD3 mov edx, ebx
007B505B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B505D E8126CCDFF call 0048BC74
007B5062 8B5008 mov edx, [eax+$08]
007B5065 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5068 E8471BD1FF call 004C6BB4
007B506D 5A pop edx
007B506E 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B5070 FF91B4000000 call dword ptr [ecx+$00B4]
007B5076 E9AE050000 jmp 007B5629
007B507B 8BD3 mov edx, ebx
007B507D 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B507F E8F06BCDFF call 0048BC74
* Reference to class TComboBox
|
007B5084 8B15F4814700 mov edx, [$004781F4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B508A E855F4C4FF call 004044E4
007B508F 84C0 test al, al
007B5091 745F jz 007B50F2
007B5093 8BD3 mov edx, ebx
007B5095 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5097 E8D86BCDFF call 0048BC74
007B509C 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B50A2 E84935CDFF call 004885F0
007B50A7 8B8538FFFFFF mov eax, [ebp+$FFFFFF38]
007B50AD 8D953CFFFFFF lea edx, [ebp+$FFFFFF3C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B50B3 E83458C5FF call 0040A8EC
007B50B8 8B953CFFFFFF mov edx, [ebp+$FFFFFF3C]
007B50BE 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B50C4 E8FF3CC6FF call 00418DC8
007B50C9 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
007B50CF 50 push eax
007B50D0 8BD3 mov edx, ebx
007B50D2 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B50D4 E89B6BCDFF call 0048BC74
007B50D9 8B5008 mov edx, [eax+$08]
007B50DC 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B50DF E8D01AD1FF call 004C6BB4
007B50E4 5A pop edx
007B50E5 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B50E7 FF91B4000000 call dword ptr [ecx+$00B4]
007B50ED E937050000 jmp 007B5629
007B50F2 8BD3 mov edx, ebx
007B50F4 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B50F6 E8796BCDFF call 0048BC74
* Reference to class TDateTimePicker
|
007B50FB 8B15E0A54500 mov edx, [$0045A5E0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5101 E8DEF3C4FF call 004044E4
007B5106 84C0 test al, al
007B5108 0F84E2000000 jz 007B51F0
007B510E 8BD3 mov edx, ebx
007B5110 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5112 E85D6BCDFF call 0048BC74
007B5117 80B86902000000 cmp byte ptr [eax+$0269], $00
007B511E 0F8489000000 jz 007B51AD
007B5124 8BD3 mov edx, ebx
007B5126 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5128 E8476BCDFF call 0048BC74
007B512D 80B85202000000 cmp byte ptr [eax+$0252], $00
007B5134 7443 jz 007B5179
007B5136 8BD3 mov edx, ebx
007B5138 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B513A E8356BCDFF call 0048BC74
007B513F DD8010020000 fld qword ptr [eax+$0210]
007B5145 8D8528FFFFFF lea eax, [ebp+$FFFFFF28]
* Reference to: Variants.@VarFromTDateTime;
|
007B514B E8503CC6FF call 00418DA0
007B5150 8D8528FFFFFF lea eax, [ebp+$FFFFFF28]
007B5156 50 push eax
007B5157 8BD3 mov edx, ebx
007B5159 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B515B E8146BCDFF call 0048BC74
007B5160 8B5008 mov edx, [eax+$08]
007B5163 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5166 E8491AD1FF call 004C6BB4
007B516B 5A pop edx
007B516C 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B516E FF91B4000000 call dword ptr [ecx+$00B4]
007B5174 E9B0040000 jmp 007B5629
007B5179 8BD3 mov edx, ebx
007B517B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B517D E8F26ACDFF call 0048BC74
007B5182 8B5008 mov edx, [eax+$08]
007B5185 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5188 E8271AD1FF call 004C6BB4
007B518D 50 push eax
007B518E 8D8518FFFFFF lea eax, [ebp+$FFFFFF18]
* 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);
|
007B5194 E8C781C6FF call 0041D360
007B5199 8D9518FFFFFF lea edx, [ebp+$FFFFFF18]
007B519F 58 pop eax
007B51A0 8B08 mov ecx, [eax]
007B51A2 FF91B4000000 call dword ptr [ecx+$00B4]
007B51A8 E97C040000 jmp 007B5629
007B51AD 8BD3 mov edx, ebx
007B51AF 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B51B1 E8BE6ACDFF call 0048BC74
007B51B6 DD8010020000 fld qword ptr [eax+$0210]
007B51BC 8D8508FFFFFF lea eax, [ebp+$FFFFFF08]
* Reference to: Variants.@VarFromTDateTime;
|
007B51C2 E8D93BC6FF call 00418DA0
007B51C7 8D8508FFFFFF lea eax, [ebp+$FFFFFF08]
007B51CD 50 push eax
007B51CE 8BD3 mov edx, ebx
007B51D0 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B51D2 E89D6ACDFF call 0048BC74
007B51D7 8B5008 mov edx, [eax+$08]
007B51DA 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B51DD E8D219D1FF call 004C6BB4
007B51E2 5A pop edx
007B51E3 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B51E5 FF91B4000000 call dword ptr [ecx+$00B4]
007B51EB E939040000 jmp 007B5629
007B51F0 8BD3 mov edx, ebx
007B51F2 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B51F4 E87B6ACDFF call 0048BC74
* Reference to class TBtnEditA
|
007B51F9 8B1530A24F00 mov edx, [$004FA230]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B51FF E8E0F2C4FF call 004044E4
007B5204 84C0 test al, al
007B5206 0F84D8000000 jz 007B52E4
007B520C 8BD3 mov edx, ebx
007B520E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5210 E85F6ACDFF call 0048BC74
007B5215 8D95F0FEFFFF lea edx, [ebp+$FFFFFEF0]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B521B E8D033CDFF call 004885F0
007B5220 8B85F0FEFFFF mov eax, [ebp+$FFFFFEF0]
007B5226 8D95F4FEFFFF lea edx, [ebp+$FFFFFEF4]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B522C E8BB56C5FF call 0040A8EC
007B5231 8B95F4FEFFFF mov edx, [ebp+$FFFFFEF4]
007B5237 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B523D E8863BC6FF call 00418DC8
007B5242 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
007B5248 50 push eax
007B5249 8BD3 mov edx, ebx
007B524B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B524D E8226ACDFF call 0048BC74
007B5252 8B5008 mov edx, [eax+$08]
007B5255 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5258 E85719D1FF call 004C6BB4
007B525D 5A pop edx
007B525E 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B5260 FF91B4000000 call dword ptr [ecx+$00B4]
007B5266 8BD3 mov edx, ebx
007B5268 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B526A E8056ACDFF call 0048BC74
007B526F 83B88000000000 cmp dword ptr [eax+$0080], +$00
007B5276 0F84AD030000 jz 007B5629
007B527C 8BD3 mov edx, ebx
007B527E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5280 E8EF69CDFF call 0048BC74
007B5285 8B8030020000 mov eax, [eax+$0230]
007B528B 8D95DCFEFFFF lea edx, [ebp+$FFFFFEDC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5291 E85656C5FF call 0040A8EC
007B5296 8B95DCFEFFFF mov edx, [ebp+$FFFFFEDC]
007B529C 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B52A2 E8213BC6FF call 00418DC8
007B52A7 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0]
007B52AD 50 push eax
007B52AE 8BD3 mov edx, ebx
007B52B0 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B52B2 E8BD69CDFF call 0048BC74
007B52B7 8B8080000000 mov eax, [eax+$0080]
007B52BD 8D95D8FEFFFF lea edx, [ebp+$FFFFFED8]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B52C3 E82456C5FF call 0040A8EC
007B52C8 8B95D8FEFFFF mov edx, [ebp+$FFFFFED8]
007B52CE 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B52D1 E8DE18D1FF call 004C6BB4
007B52D6 5A pop edx
007B52D7 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B52D9 FF91B4000000 call dword ptr [ecx+$00B4]
007B52DF E945030000 jmp 007B5629
007B52E4 8BD3 mov edx, ebx
007B52E6 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B52E8 E88769CDFF call 0048BC74
* Reference to class TBtnEditC
|
007B52ED 8B158CAB4F00 mov edx, [$004FAB8C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B52F3 E8ECF1C4FF call 004044E4
007B52F8 84C0 test al, al
007B52FA 0F84F9000000 jz 007B53F9
007B5300 8BD3 mov edx, ebx
007B5302 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5304 E86B69CDFF call 0048BC74
007B5309 8D95C0FEFFFF lea edx, [ebp+$FFFFFEC0]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B530F E8DC32CDFF call 004885F0
007B5314 8B85C0FEFFFF mov eax, [ebp+$FFFFFEC0]
007B531A 8D95C4FEFFFF lea edx, [ebp+$FFFFFEC4]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5320 E8C755C5FF call 0040A8EC
007B5325 8B95C4FEFFFF mov edx, [ebp+$FFFFFEC4]
007B532B 8D85C8FEFFFF lea eax, [ebp+$FFFFFEC8]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B5331 E8923AC6FF call 00418DC8
007B5336 8D85C8FEFFFF lea eax, [ebp+$FFFFFEC8]
007B533C 50 push eax
007B533D 8BD3 mov edx, ebx
007B533F 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5341 E82E69CDFF call 0048BC74
007B5346 8B5008 mov edx, [eax+$08]
007B5349 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B534C E86318D1FF call 004C6BB4
007B5351 5A pop edx
007B5352 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B5354 FF91B4000000 call dword ptr [ecx+$00B4]
007B535A 8BD3 mov edx, ebx
007B535C 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B535E E81169CDFF call 0048BC74
007B5363 83B88000000000 cmp dword ptr [eax+$0080], +$00
007B536A 0F84B9020000 jz 007B5629
007B5370 8BD3 mov edx, ebx
007B5372 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5374 E8FB68CDFF call 0048BC74
007B5379 8B9080000000 mov edx, [eax+$0080]
007B537F B818587B00 mov eax, $007B5818
* Reference to: System.@LStrPos;
|
007B5384 E8AF05C5FF call 00405938
007B5389 85C0 test eax, eax
007B538B 0F8F98020000 jnle 007B5629
007B5391 8BD3 mov edx, ebx
007B5393 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5395 E8DA68CDFF call 0048BC74
007B539A 8B8038020000 mov eax, [eax+$0238]
007B53A0 8D95ACFEFFFF lea edx, [ebp+$FFFFFEAC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B53A6 E84155C5FF call 0040A8EC
007B53AB 8B95ACFEFFFF mov edx, [ebp+$FFFFFEAC]
007B53B1 8D85B0FEFFFF lea eax, [ebp+$FFFFFEB0]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B53B7 E80C3AC6FF call 00418DC8
007B53BC 8D85B0FEFFFF lea eax, [ebp+$FFFFFEB0]
007B53C2 50 push eax
007B53C3 8BD3 mov edx, ebx
007B53C5 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B53C7 E8A868CDFF call 0048BC74
007B53CC 8B8080000000 mov eax, [eax+$0080]
007B53D2 8D95A8FEFFFF lea edx, [ebp+$FFFFFEA8]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B53D8 E80F55C5FF call 0040A8EC
007B53DD 8B95A8FEFFFF mov edx, [ebp+$FFFFFEA8]
007B53E3 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B53E6 E8C917D1FF call 004C6BB4
007B53EB 5A pop edx
007B53EC 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B53EE FF91B4000000 call dword ptr [ecx+$00B4]
007B53F4 E930020000 jmp 007B5629
007B53F9 8BD3 mov edx, ebx
007B53FB 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B53FD E87268CDFF call 0048BC74
* Reference to class TcxTimeEdit
|
007B5402 8B1570AB5E00 mov edx, [$005EAB70]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5408 E8D7F0C4FF call 004044E4
007B540D 84C0 test al, al
007B540F 745F jz 007B5470
007B5411 8BD3 mov edx, ebx
007B5413 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5415 E85A68CDFF call 0048BC74
007B541A 8D9590FEFFFF lea edx, [ebp+$FFFFFE90]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B5420 E8CB31CDFF call 004885F0
007B5425 8B8590FEFFFF mov eax, [ebp+$FFFFFE90]
007B542B 8D9594FEFFFF lea edx, [ebp+$FFFFFE94]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5431 E8B654C5FF call 0040A8EC
007B5436 8B9594FEFFFF mov edx, [ebp+$FFFFFE94]
007B543C 8D8598FEFFFF lea eax, [ebp+$FFFFFE98]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B5442 E88139C6FF call 00418DC8
007B5447 8D8598FEFFFF lea eax, [ebp+$FFFFFE98]
007B544D 50 push eax
007B544E 8BD3 mov edx, ebx
007B5450 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5452 E81D68CDFF call 0048BC74
007B5457 8B5008 mov edx, [eax+$08]
007B545A 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B545D E85217D1FF call 004C6BB4
007B5462 5A pop edx
007B5463 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B5465 FF91B4000000 call dword ptr [ecx+$00B4]
007B546B E9B9010000 jmp 007B5629
007B5470 8BD3 mov edx, ebx
007B5472 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5474 E8FB67CDFF call 0048BC74
* Reference to class TcxCurrencyEdit
|
007B5479 8B15748E5F00 mov edx, [$005F8E74]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B547F E860F0C4FF call 004044E4
007B5484 84C0 test al, al
007B5486 7459 jz 007B54E1
007B5488 6A00 push $00
007B548A 6A00 push $00
007B548C 6A00 push $00
007B548E 8BD3 mov edx, ebx
007B5490 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5492 E8DD67CDFF call 0048BC74
007B5497 8D957CFEFFFF lea edx, [ebp+$FFFFFE7C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B549D E84E31CDFF call 004885F0
007B54A2 8B857CFEFFFF mov eax, [ebp+$FFFFFE7C]
* Reference to: SysUtils.StrToFloatDef(AnsiString;Extended):Extended;overload;
|
007B54A8 E8BB82C5FF call 0040D768
007B54AD 8D8580FEFFFF lea eax, [ebp+$FFFFFE80]
* Reference to: Variants.@VarFromReal;
|
007B54B3 E8D438C6FF call 00418D8C
007B54B8 8D8580FEFFFF lea eax, [ebp+$FFFFFE80]
007B54BE 50 push eax
007B54BF 8BD3 mov edx, ebx
007B54C1 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B54C3 E8AC67CDFF call 0048BC74
007B54C8 8B5008 mov edx, [eax+$08]
007B54CB 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B54CE E8E116D1FF call 004C6BB4
007B54D3 5A pop edx
007B54D4 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B54D6 FF91B4000000 call dword ptr [ecx+$00B4]
007B54DC E948010000 jmp 007B5629
007B54E1 8BD3 mov edx, ebx
007B54E3 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B54E5 E88A67CDFF call 0048BC74
* Reference to class TcxButtonEdit
|
007B54EA 8B15D4D25B00 mov edx, [$005BD2D4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B54F0 E8EFEFC4FF call 004044E4
007B54F5 84C0 test al, al
007B54F7 0F842C010000 jz 007B5629
007B54FD 8BD3 mov edx, ebx
007B54FF 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5501 E86E67CDFF call 0048BC74
* Reference to control Label21 : N.A.
|
007B5506 80B8C003000001 cmp byte ptr [eax+$03C0], $01
007B550D 7412 jz 007B5521
007B550F 8BD3 mov edx, ebx
007B5511 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5513 E85C67CDFF call 0048BC74
007B5518 80B89A00000001 cmp byte ptr [eax+$009A], $01
007B551F 755A jnz 007B557B
007B5521 8BD3 mov edx, ebx
007B5523 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5525 E84A67CDFF call 0048BC74
007B552A 8D9564FEFFFF lea edx, [ebp+$FFFFFE64]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B5530 E8BB30CDFF call 004885F0
007B5535 8B8564FEFFFF mov eax, [ebp+$FFFFFE64]
007B553B 8D9568FEFFFF lea edx, [ebp+$FFFFFE68]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5541 E8A653C5FF call 0040A8EC
007B5546 8B9568FEFFFF mov edx, [ebp+$FFFFFE68]
007B554C 8D856CFEFFFF lea eax, [ebp+$FFFFFE6C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B5552 E87138C6FF call 00418DC8
007B5557 8D856CFEFFFF lea eax, [ebp+$FFFFFE6C]
007B555D 50 push eax
007B555E 8BD3 mov edx, ebx
007B5560 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5562 E80D67CDFF call 0048BC74
007B5567 8B5008 mov edx, [eax+$08]
007B556A 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B556D E84216D1FF call 004C6BB4
007B5572 5A pop edx
007B5573 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B5575 FF91B4000000 call dword ptr [ecx+$00B4]
007B557B 8BD3 mov edx, ebx
007B557D 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B557F E8F066CDFF call 0048BC74
007B5584 80B89A00000000 cmp byte ptr [eax+$009A], $00
007B558B 0F8598000000 jnz 007B5629
007B5591 8D45F8 lea eax, [ebp-$08]
007B5594 50 push eax
007B5595 8BD3 mov edx, ebx
007B5597 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5599 E8D666CDFF call 0048BC74
007B559E 8B4008 mov eax, [eax+$08]
007B55A1 8D9560FEFFFF lea edx, [ebp+$FFFFFE60]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B55A7 E84053C5FF call 0040A8EC
007B55AC 8B8560FEFFFF mov eax, [ebp+$FFFFFE60]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007B55B2 E83D00C5FF call 004055F4
007B55B7 83E804 sub eax, +$04
007B55BA 50 push eax
007B55BB 8BD3 mov edx, ebx
007B55BD 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B55BF E8B066CDFF call 0048BC74
007B55C4 8B4008 mov eax, [eax+$08]
007B55C7 8D955CFEFFFF lea edx, [ebp+$FFFFFE5C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B55CD E81A53C5FF call 0040A8EC
007B55D2 8B855CFEFFFF mov eax, [ebp+$FFFFFE5C]
007B55D8 BA01000000 mov edx, $00000001
007B55DD 59 pop ecx
* Reference to: System.@LStrCopy;
|
007B55DE E87102C5FF call 00405854
007B55E3 8BD3 mov edx, ebx
007B55E5 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B55E7 E88866CDFF call 0048BC74
007B55EC 8B8080000000 mov eax, [eax+$0080]
007B55F2 8D9548FEFFFF lea edx, [ebp+$FFFFFE48]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B55F8 E8EF52C5FF call 0040A8EC
007B55FD 8B9548FEFFFF mov edx, [ebp+$FFFFFE48]
007B5603 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B5609 E8BA37C6FF call 00418DC8
007B560E 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
007B5614 50 push eax
007B5615 8B55F8 mov edx, [ebp-$08]
007B5618 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B561B E89415D1FF call 004C6BB4
007B5620 5A pop edx
007B5621 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.GetControlExtents()
|
007B5623 FF91B4000000 call dword ptr [ecx+$00B4]
007B5629 43 inc ebx
007B562A 4F dec edi
007B562B 0F8532F7FFFF jnz 007B4D63
007B5631 33C0 xor eax, eax
007B5633 5A pop edx
007B5634 59 pop ecx
007B5635 59 pop ecx
007B5636 648910 mov fs:[eax], edx
****** FINALLY
|
007B5639 6804587B00 push $007B5804
007B563E 8D8548FEFFFF lea eax, [ebp+$FFFFFE48]
* Reference to: System.@LStrClr(void;void);
|
007B5644 E8DBFCC4FF call 00405324
007B5649 8D854CFEFFFF lea eax, [ebp+$FFFFFE4C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B564F E820F0C5FF call 00414674
007B5654 8D855CFEFFFF lea eax, [ebp+$FFFFFE5C]
007B565A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B565F E8E4FCC4FF call 00405348
007B5664 8D8564FEFFFF lea eax, [ebp+$FFFFFE64]
* Reference to: System.@LStrClr(void;void);
|
007B566A E8B5FCC4FF call 00405324
007B566F 8D8568FEFFFF lea eax, [ebp+$FFFFFE68]
* Reference to: System.@LStrClr(void;void);
|
007B5675 E8AAFCC4FF call 00405324
007B567A 8D856CFEFFFF lea eax, [ebp+$FFFFFE6C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B5680 E8EFEFC5FF call 00414674
007B5685 8D857CFEFFFF lea eax, [ebp+$FFFFFE7C]
* Reference to: System.@LStrClr(void;void);
|
007B568B E894FCC4FF call 00405324
007B5690 8D8580FEFFFF lea eax, [ebp+$FFFFFE80]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B5696 E8D9EFC5FF call 00414674
007B569B 8D8590FEFFFF lea eax, [ebp+$FFFFFE90]
* Reference to: System.@LStrClr(void;void);
|
007B56A1 E87EFCC4FF call 00405324
007B56A6 8D8594FEFFFF lea eax, [ebp+$FFFFFE94]
* Reference to: System.@LStrClr(void;void);
|
007B56AC E873FCC4FF call 00405324
007B56B1 8D8598FEFFFF lea eax, [ebp+$FFFFFE98]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B56B7 E8B8EFC5FF call 00414674
007B56BC 8D85A8FEFFFF lea eax, [ebp+$FFFFFEA8]
007B56C2 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B56C7 E87CFCC4FF call 00405348
007B56CC 8D85B0FEFFFF lea eax, [ebp+$FFFFFEB0]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B56D2 E89DEFC5FF call 00414674
007B56D7 8D85C0FEFFFF lea eax, [ebp+$FFFFFEC0]
* Reference to: System.@LStrClr(void;void);
|
007B56DD E842FCC4FF call 00405324
007B56E2 8D85C4FEFFFF lea eax, [ebp+$FFFFFEC4]
* Reference to: System.@LStrClr(void;void);
|
007B56E8 E837FCC4FF call 00405324
007B56ED 8D85C8FEFFFF lea eax, [ebp+$FFFFFEC8]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B56F3 E87CEFC5FF call 00414674
007B56F8 8D85D8FEFFFF lea eax, [ebp+$FFFFFED8]
007B56FE BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B5703 E840FCC4FF call 00405348
007B5708 8D85E0FEFFFF lea eax, [ebp+$FFFFFEE0]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B570E E861EFC5FF call 00414674
007B5713 8D85F0FEFFFF lea eax, [ebp+$FFFFFEF0]
* Reference to: System.@LStrClr(void;void);
|
007B5719 E806FCC4FF call 00405324
007B571E 8D85F4FEFFFF lea eax, [ebp+$FFFFFEF4]
* Reference to: System.@LStrClr(void;void);
|
007B5724 E8FBFBC4FF call 00405324
007B5729 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
* Reference to object Variant
|
007B572F 8B153C114000 mov edx, [$0040113C]
007B5735 B904000000 mov ecx, $00000004
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B573A E8D509C5FF call 00406114
007B573F 8D8538FFFFFF lea eax, [ebp+$FFFFFF38]
* Reference to: System.@LStrClr(void;void);
|
007B5745 E8DAFBC4FF call 00405324
007B574A 8D853CFFFFFF lea eax, [ebp+$FFFFFF3C]
* Reference to: System.@LStrClr(void;void);
|
007B5750 E8CFFBC4FF call 00405324
007B5755 8D8540FFFFFF lea eax, [ebp+$FFFFFF40]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B575B E814EFC5FF call 00414674
007B5760 8D8550FFFFFF lea eax, [ebp+$FFFFFF50]
007B5766 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B576B E8D8FBC4FF call 00405348
007B5770 8D8558FFFFFF lea eax, [ebp+$FFFFFF58]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B5776 E8F9EEC5FF call 00414674
007B577B 8D8568FFFFFF lea eax, [ebp+$FFFFFF68]
007B5781 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B5786 E8BDFBC4FF call 00405348
007B578B 8D8570FFFFFF lea eax, [ebp+$FFFFFF70]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B5791 E8DEEEC5FF call 00414674
007B5796 8D4580 lea eax, [ebp-$80]
* Reference to: System.@LStrClr(void;void);
|
007B5799 E886FBC4FF call 00405324
007B579E 8D4584 lea eax, [ebp-$7C]
* Reference to object Variant
|
007B57A1 8B153C114000 mov edx, [$0040113C]
007B57A7 B903000000 mov ecx, $00000003
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B57AC E86309C5FF call 00406114
007B57B1 8D45B4 lea eax, [ebp-$4C]
* Reference to: System.@LStrClr(void;void);
|
007B57B4 E86BFBC4FF call 00405324
007B57B9 8D45B8 lea eax, [ebp-$48]
* Reference to object Variant
|
007B57BC 8B153C114000 mov edx, [$0040113C]
007B57C2 B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B57C7 E84809C5FF call 00406114
007B57CC 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
007B57CF E850FBC4FF call 00405324
007B57D4 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007B57D7 E848FBC4FF call 00405324
007B57DC 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B57DF E890EEC5FF call 00414674
007B57E4 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
007B57E7 E838FBC4FF call 00405324
007B57EC 8D45F4 lea eax, [ebp-$0C]
007B57EF BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B57F4 E84FFBC4FF call 00405348
007B57F9 C3 ret
* Reference to: System.@HandleFinally;
|
007B57FA E9F5F2C4FF jmp 00404AF4
007B57FF E93AFEFFFF jmp 007B563E
****** END
|
007B5804 5F pop edi
007B5805 5E pop esi
007B5806 5B pop ebx
007B5807 8BE5 mov esp, ebp
007B5809 5D pop ebp
007B580A C20400 ret $0004
*)
end;
procedure TfrmSelExportField._PROC_007B581D(Sender : TObject);
begin
(*
007B581D 8BEC mov ebp, esp
007B581F 51 push ecx
007B5820 B91A000000 mov ecx, $0000001A
007B5825 6A00 push $00
007B5827 6A00 push $00
007B5829 49 dec ecx
007B582A 75F9 jnz 007B5825
007B582C 51 push ecx
007B582D 874DFC xchg [ebp-$04], ecx
007B5830 53 push ebx
007B5831 56 push esi
007B5832 57 push edi
007B5833 894DF8 mov [ebp-$08], ecx
007B5836 8BFA mov edi, edx
007B5838 8945FC mov [ebp-$04], eax
007B583B 33C0 xor eax, eax
007B583D 55 push ebp
007B583E 6896607B00 push $007B6096
***** TRY
|
007B5843 64FF30 push dword ptr fs:[eax]
007B5846 648920 mov fs:[eax], esp
007B5849 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B584C E86F26D1FF call 004C7EC0
007B5851 84C0 test al, al
007B5853 0F85EC070000 jnz 007B6045
007B5859 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
| or: QControls.TWidgetControl.GetControlCount(TWidgetControl):Integer;
|
007B585B E85064CDFF call 0048BCB0
007B5860 48 dec eax
007B5861 85C0 test eax, eax
007B5863 0F8CDC070000 jl 007B6045
007B5869 40 inc eax
007B586A 8945EC mov [ebp-$14], eax
007B586D 33F6 xor esi, esi
007B586F 8BD6 mov edx, esi
007B5871 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5873 E8FC63CDFF call 0048BC74
* Reference to class TLabel
|
007B5878 8B151C5F4700 mov edx, [$00475F1C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B587E E861ECC4FF call 004044E4
007B5883 84C0 test al, al
007B5885 0F85B0070000 jnz 007B603B
007B588B 8BD6 mov edx, esi
007B588D 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B588F E8E063CDFF call 0048BC74
007B5894 8B400C mov eax, [eax+$0C]
007B5897 3B45F8 cmp eax, [ebp-$08]
007B589A 0F859B070000 jnz 007B603B
007B58A0 8BD6 mov edx, esi
007B58A2 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B58A4 E8CB63CDFF call 0048BC74
007B58A9 8B5008 mov edx, [eax+$08]
007B58AC 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrLAsg(void;void;void;void);
|
007B58AF E808FBC4FF call 004053BC
007B58B4 8BD6 mov edx, esi
007B58B6 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B58B8 E8B763CDFF call 0048BC74
* Reference to class TEdit
|
007B58BD 8B15B8674700 mov edx, [$004767B8]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B58C3 E81CECC4FF call 004044E4
007B58C8 84C0 test al, al
007B58CA 746F jz 007B593B
007B58CC 8B55F4 mov edx, [ebp-$0C]
007B58CF 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B58D2 E8DD12D1FF call 004C6BB4
007B58D7 8D55E4 lea edx, [ebp-$1C]
007B58DA 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B58DC FF5160 call dword ptr [ecx+$60]
007B58DF 8B45E4 mov eax, [ebp-$1C]
007B58E2 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B58E5 E80250C5FF call 0040A8EC
007B58EA 837DE800 cmp dword ptr [ebp-$18], +$00
007B58EE 7436 jz 007B5926
007B58F0 8B55F4 mov edx, [ebp-$0C]
007B58F3 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B58F6 E8B912D1FF call 004C6BB4
007B58FB 8D55DC lea edx, [ebp-$24]
007B58FE 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5900 FF5160 call dword ptr [ecx+$60]
007B5903 8B45DC mov eax, [ebp-$24]
007B5906 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5909 E8DE4FC5FF call 0040A8EC
007B590E 8B45E0 mov eax, [ebp-$20]
007B5911 50 push eax
007B5912 8BD6 mov edx, esi
007B5914 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5916 E85963CDFF call 0048BC74
007B591B 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B591C E8FF2CCDFF call 00488620
007B5921 E915070000 jmp 007B603B
007B5926 8BD6 mov edx, esi
007B5928 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B592A E84563CDFF call 0048BC74
007B592F 33D2 xor edx, edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5931 E8EA2CCDFF call 00488620
007B5936 E900070000 jmp 007B603B
007B593B 8BD6 mov edx, esi
007B593D 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B593F E83063CDFF call 0048BC74
007B5944 8B15F4508800 mov edx, [$008850F4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B594A E895EBC4FF call 004044E4
007B594F 84C0 test al, al
007B5951 744B jz 007B599E
007B5953 8B55F4 mov edx, [ebp-$0C]
007B5956 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5959 E85612D1FF call 004C6BB4
007B595E 8D55D4 lea edx, [ebp-$2C]
007B5961 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5963 FF5160 call dword ptr [ecx+$60]
007B5966 8B45D4 mov eax, [ebp-$2C]
007B5969 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B596C E87B4FC5FF call 0040A8EC
007B5971 8B45D8 mov eax, [ebp-$28]
007B5974 50 push eax
007B5975 8BD6 mov edx, esi
007B5977 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5979 E8F662CDFF call 0048BC74
007B597E 5A pop edx
|
007B597F E830E9EFFF call 006B42B4
007B5984 8BD8 mov ebx, eax
007B5986 8BD6 mov edx, esi
007B5988 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B598A E8E562CDFF call 0048BC74
007B598F 8BD3 mov edx, ebx
007B5991 8B08 mov ecx, [eax]
007B5993 FF91D0000000 call dword ptr [ecx+$00D0]
007B5999 E99D060000 jmp 007B603B
007B599E 8BD6 mov edx, esi
007B59A0 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B59A2 E8CD62CDFF call 0048BC74
* Reference to class TRichEdit
|
007B59A7 8B15F84F4500 mov edx, [$00454FF8]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B59AD E832EBC4FF call 004044E4
007B59B2 84C0 test al, al
007B59B4 745E jz 007B5A14
007B59B6 8B55F4 mov edx, [ebp-$0C]
007B59B9 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B59BC E8F311D1FF call 004C6BB4
007B59C1 8D55CC lea edx, [ebp-$34]
007B59C4 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B59C6 FF5160 call dword ptr [ecx+$60]
007B59C9 8B45CC mov eax, [ebp-$34]
007B59CC 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B59CF E8184FC5FF call 0040A8EC
007B59D4 837DD000 cmp dword ptr [ebp-$30], +$00
007B59D8 0F845D060000 jz 007B603B
007B59DE 8B55F4 mov edx, [ebp-$0C]
007B59E1 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B59E4 E8CB11D1FF call 004C6BB4
007B59E9 8D55C4 lea edx, [ebp-$3C]
007B59EC 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B59EE FF5160 call dword ptr [ecx+$60]
007B59F1 8B45C4 mov eax, [ebp-$3C]
007B59F4 8D55C8 lea edx, [ebp-$38]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B59F7 E8F04EC5FF call 0040A8EC
007B59FC 8B45C8 mov eax, [ebp-$38]
007B59FF 50 push eax
007B5A00 8BD6 mov edx, esi
007B5A02 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5A04 E86B62CDFF call 0048BC74
007B5A09 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5A0A E8112CCDFF call 00488620
007B5A0F E927060000 jmp 007B603B
007B5A14 8BD6 mov edx, esi
007B5A16 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5A18 E85762CDFF call 0048BC74
* Reference to class TcxRichEdit
|
007B5A1D 8B15685A6B00 mov edx, [$006B5A68]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5A23 E8BCEAC4FF call 004044E4
007B5A28 84C0 test al, al
007B5A2A 745E jz 007B5A8A
007B5A2C 8B55F4 mov edx, [ebp-$0C]
007B5A2F 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5A32 E87D11D1FF call 004C6BB4
007B5A37 8D55BC lea edx, [ebp-$44]
007B5A3A 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5A3C FF5160 call dword ptr [ecx+$60]
007B5A3F 8B45BC mov eax, [ebp-$44]
007B5A42 8D55C0 lea edx, [ebp-$40]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5A45 E8A24EC5FF call 0040A8EC
007B5A4A 837DC000 cmp dword ptr [ebp-$40], +$00
007B5A4E 0F84E7050000 jz 007B603B
007B5A54 8B55F4 mov edx, [ebp-$0C]
007B5A57 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5A5A E85511D1FF call 004C6BB4
007B5A5F 8D55B4 lea edx, [ebp-$4C]
007B5A62 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5A64 FF5160 call dword ptr [ecx+$60]
007B5A67 8B45B4 mov eax, [ebp-$4C]
007B5A6A 8D55B8 lea edx, [ebp-$48]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5A6D E87A4EC5FF call 0040A8EC
007B5A72 8B45B8 mov eax, [ebp-$48]
007B5A75 50 push eax
007B5A76 8BD6 mov edx, esi
007B5A78 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5A7A E8F561CDFF call 0048BC74
007B5A7F 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5A80 E89B2BCDFF call 00488620
007B5A85 E9B1050000 jmp 007B603B
007B5A8A 8BD6 mov edx, esi
007B5A8C 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5A8E E8E161CDFF call 0048BC74
* Reference to class TComboBox
|
007B5A93 8B15F4814700 mov edx, [$004781F4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5A99 E846EAC4FF call 004044E4
007B5A9E 84C0 test al, al
007B5AA0 746E jz 007B5B10
007B5AA2 8BD6 mov edx, esi
007B5AA4 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5AA6 E8C961CDFF call 0048BC74
007B5AAB 8B803C020000 mov eax, [eax+$023C]
007B5AB1 8B10 mov edx, [eax]
007B5AB3 FF5214 call dword ptr [edx+$14]
007B5AB6 85C0 test eax, eax
007B5AB8 7E3B jle 007B5AF5
007B5ABA 8B55F4 mov edx, [ebp-$0C]
007B5ABD 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5AC0 E8EF10D1FF call 004C6BB4
007B5AC5 8D55AC lea edx, [ebp-$54]
007B5AC8 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5ACA FF5160 call dword ptr [ecx+$60]
007B5ACD 8B45AC mov eax, [ebp-$54]
007B5AD0 8D55B0 lea edx, [ebp-$50]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5AD3 E8144EC5FF call 0040A8EC
007B5AD8 8B45B0 mov eax, [ebp-$50]
007B5ADB 50 push eax
007B5ADC 8BD6 mov edx, esi
007B5ADE 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5AE0 E88F61CDFF call 0048BC74
007B5AE5 8B803C020000 mov eax, [eax+$023C]
007B5AEB 5A pop edx
007B5AEC 8B08 mov ecx, [eax]
007B5AEE FF5154 call dword ptr [ecx+$54]
007B5AF1 8BD8 mov ebx, eax
007B5AF3 EB03 jmp 007B5AF8
007B5AF5 83CBFF or ebx, -$01
007B5AF8 8BD6 mov edx, esi
007B5AFA 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5AFC E87361CDFF call 0048BC74
007B5B01 8BD3 mov edx, ebx
007B5B03 8B08 mov ecx, [eax]
007B5B05 FF91D0000000 call dword ptr [ecx+$00D0]
007B5B0B E92B050000 jmp 007B603B
007B5B10 8BD6 mov edx, esi
007B5B12 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5B14 E85B61CDFF call 0048BC74
* Reference to class TBtnEditA
|
007B5B19 8B1530A24F00 mov edx, [$004FA230]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5B1F E8C0E9C4FF call 004044E4
007B5B24 84C0 test al, al
007B5B26 0F84A4000000 jz 007B5BD0
007B5B2C 8B55F4 mov edx, [ebp-$0C]
007B5B2F 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5B32 E87D10D1FF call 004C6BB4
007B5B37 8D55A4 lea edx, [ebp-$5C]
007B5B3A 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5B3C FF5160 call dword ptr [ecx+$60]
007B5B3F 8B45A4 mov eax, [ebp-$5C]
007B5B42 8D55A8 lea edx, [ebp-$58]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5B45 E8A24DC5FF call 0040A8EC
007B5B4A 8B45A8 mov eax, [ebp-$58]
007B5B4D 50 push eax
007B5B4E 8BD6 mov edx, esi
007B5B50 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5B52 E81D61CDFF call 0048BC74
007B5B57 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5B58 E8C32ACDFF call 00488620
007B5B5D 8BD6 mov edx, esi
007B5B5F 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5B61 E80E61CDFF call 0048BC74
007B5B66 8B8080000000 mov eax, [eax+$0080]
007B5B6C 8D55A0 lea edx, [ebp-$60]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5B6F E8784DC5FF call 0040A8EC
007B5B74 837DA000 cmp dword ptr [ebp-$60], +$00
007B5B78 0F84BD040000 jz 007B603B
007B5B7E 8BD6 mov edx, esi
007B5B80 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5B82 E8ED60CDFF call 0048BC74
007B5B87 0530020000 add eax, +$00000230
007B5B8C 50 push eax
007B5B8D 8BD6 mov edx, esi
007B5B8F 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5B91 E8DE60CDFF call 0048BC74
007B5B96 8B8080000000 mov eax, [eax+$0080]
007B5B9C 8D5594 lea edx, [ebp-$6C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5B9F E8484DC5FF call 0040A8EC
007B5BA4 8B5594 mov edx, [ebp-$6C]
007B5BA7 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5BAA E80510D1FF call 004C6BB4
007B5BAF 8D5598 lea edx, [ebp-$68]
007B5BB2 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5BB4 FF5160 call dword ptr [ecx+$60]
007B5BB7 8B4598 mov eax, [ebp-$68]
007B5BBA 8D559C lea edx, [ebp-$64]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5BBD E82A4DC5FF call 0040A8EC
007B5BC2 8B559C mov edx, [ebp-$64]
007B5BC5 58 pop eax
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B5BC6 E8ADF7C4FF call 00405378
007B5BCB E96B040000 jmp 007B603B
007B5BD0 8BD6 mov edx, esi
007B5BD2 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5BD4 E89B60CDFF call 0048BC74
* Reference to class TBtnEditC
|
007B5BD9 8B158CAB4F00 mov edx, [$004FAB8C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5BDF E800E9C4FF call 004044E4
007B5BE4 84C0 test al, al
007B5BE6 0F84CB000000 jz 007B5CB7
007B5BEC 8B55F4 mov edx, [ebp-$0C]
007B5BEF 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5BF2 E8BD0FD1FF call 004C6BB4
007B5BF7 8D558C lea edx, [ebp-$74]
007B5BFA 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5BFC FF5160 call dword ptr [ecx+$60]
007B5BFF 8B458C mov eax, [ebp-$74]
007B5C02 8D5590 lea edx, [ebp-$70]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5C05 E8E24CC5FF call 0040A8EC
007B5C0A 8B4590 mov eax, [ebp-$70]
007B5C0D 50 push eax
007B5C0E 8BD6 mov edx, esi
007B5C10 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5C12 E85D60CDFF call 0048BC74
007B5C17 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5C18 E8032ACDFF call 00488620
007B5C1D 8BD6 mov edx, esi
007B5C1F 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5C21 E84E60CDFF call 0048BC74
007B5C26 8B8080000000 mov eax, [eax+$0080]
007B5C2C 8D5588 lea edx, [ebp-$78]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5C2F E8B84CC5FF call 0040A8EC
007B5C34 837D8800 cmp dword ptr [ebp-$78], +$00
007B5C38 0F84FD030000 jz 007B603B
007B5C3E 8BD6 mov edx, esi
007B5C40 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5C42 E82D60CDFF call 0048BC74
007B5C47 8B9080000000 mov edx, [eax+$0080]
007B5C4D B8AC607B00 mov eax, $007B60AC
* Reference to: System.@LStrPos;
|
007B5C52 E8E1FCC4FF call 00405938
007B5C57 85C0 test eax, eax
007B5C59 0F8FDC030000 jnle 007B603B
007B5C5F 8BD6 mov edx, esi
007B5C61 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5C63 E80C60CDFF call 0048BC74
007B5C68 0538020000 add eax, +$00000238
007B5C6D 50 push eax
007B5C6E 8BD6 mov edx, esi
007B5C70 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5C72 E8FD5FCDFF call 0048BC74
007B5C77 8B8080000000 mov eax, [eax+$0080]
007B5C7D 8D957CFFFFFF lea edx, [ebp+$FFFFFF7C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5C83 E8644CC5FF call 0040A8EC
007B5C88 8B957CFFFFFF mov edx, [ebp+$FFFFFF7C]
007B5C8E 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5C91 E81E0FD1FF call 004C6BB4
007B5C96 8D5580 lea edx, [ebp-$80]
007B5C99 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5C9B FF5160 call dword ptr [ecx+$60]
007B5C9E 8B4580 mov eax, [ebp-$80]
007B5CA1 8D5584 lea edx, [ebp-$7C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5CA4 E8434CC5FF call 0040A8EC
007B5CA9 8B5584 mov edx, [ebp-$7C]
007B5CAC 58 pop eax
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B5CAD E8C6F6C4FF call 00405378
007B5CB2 E984030000 jmp 007B603B
007B5CB7 8BD6 mov edx, esi
007B5CB9 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5CBB E8B45FCDFF call 0048BC74
* Reference to class TDateTimePicker
|
007B5CC0 8B15E0A54500 mov edx, [$0045A5E0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5CC6 E819E8C4FF call 004044E4
007B5CCB 84C0 test al, al
007B5CCD 746F jz 007B5D3E
007B5CCF 8B55F4 mov edx, [ebp-$0C]
007B5CD2 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5CD5 E8DA0ED1FF call 004C6BB4
007B5CDA 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
007B5CE0 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5CE2 FF5160 call dword ptr [ecx+$60]
007B5CE5 8B8574FFFFFF mov eax, [ebp+$FFFFFF74]
007B5CEB 8D9578FFFFFF lea edx, [ebp+$FFFFFF78]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5CF1 E8F64BC5FF call 0040A8EC
007B5CF6 83BD78FFFFFF00 cmp dword ptr [ebp+$FFFFFF78], +$00
007B5CFD 7515 jnz 007B5D14
007B5CFF 8BD6 mov edx, esi
007B5D01 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5D03 E86C5FCDFF call 0048BC74
007B5D08 33D2 xor edx, edx
* Reference to: ComCtrls.TDateTimePicker.SetChecked(TDateTimePicker;Boolean);
|
007B5D0A E87DD1CBFF call 00472E8C
007B5D0F E927030000 jmp 007B603B
007B5D14 8B55F4 mov edx, [ebp-$0C]
007B5D17 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5D1A E8950ED1FF call 004C6BB4
007B5D1F 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetEnabled()
|
007B5D21 FF5250 call dword ptr [edx+$50]
007B5D24 83C4F8 add esp, -$08
007B5D27 DD1C24 fstp qword ptr [esp]
007B5D2A 9B wait
007B5D2B 8BD6 mov edx, esi
007B5D2D 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5D2F E8405FCDFF call 0048BC74
* Reference to: ComCtrls.TCommonCalendar.SetDateTime(TCommonCalendar;TDateTime);
|
007B5D34 E8F3C4CBFF call 0047222C
007B5D39 E9FD020000 jmp 007B603B
007B5D3E 8BD6 mov edx, esi
007B5D40 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5D42 E82D5FCDFF call 0048BC74
* Reference to class TMemo
|
007B5D47 8B158C724700 mov edx, [$0047728C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5D4D E892E7C4FF call 004044E4
007B5D52 84C0 test al, al
007B5D54 7442 jz 007B5D98
007B5D56 8B55F4 mov edx, [ebp-$0C]
007B5D59 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5D5C E8530ED1FF call 004C6BB4
007B5D61 8D956CFFFFFF lea edx, [ebp+$FFFFFF6C]
007B5D67 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5D69 FF5160 call dword ptr [ecx+$60]
007B5D6C 8B856CFFFFFF mov eax, [ebp+$FFFFFF6C]
007B5D72 8D9570FFFFFF lea edx, [ebp+$FFFFFF70]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5D78 E86F4BC5FF call 0040A8EC
007B5D7D 8B8570FFFFFF mov eax, [ebp+$FFFFFF70]
007B5D83 50 push eax
007B5D84 8BD6 mov edx, esi
007B5D86 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5D88 E8E75ECDFF call 0048BC74
007B5D8D 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5D8E E88D28CDFF call 00488620
007B5D93 E9A3020000 jmp 007B603B
007B5D98 8BD6 mov edx, esi
007B5D9A 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5D9C E8D35ECDFF call 0048BC74
* Reference to class TcxDateEdit
|
007B5DA1 8B1580F45E00 mov edx, [$005EF480]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5DA7 E838E7C4FF call 004044E4
007B5DAC 84C0 test al, al
007B5DAE 745C jz 007B5E0C
007B5DB0 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B5DB3 E80821D1FF call 004C7EC0
007B5DB8 84C0 test al, al
007B5DBA 0F857B020000 jnz 007B603B
007B5DC0 8B55F4 mov edx, [ebp-$0C]
007B5DC3 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5DC6 E8E90DD1FF call 004C6BB4
007B5DCB 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.SetBounds(Integer,Integer,Integer,Integer)
|
007B5DCD FF9284000000 call dword ptr [edx+$0084]
007B5DD3 84C0 test al, al
007B5DD5 0F8560020000 jnz 007B603B
007B5DDB 8B55F4 mov edx, [ebp-$0C]
007B5DDE 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5DE1 E8CE0DD1FF call 004C6BB4
007B5DE6 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]
007B5DEC 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5DEE FF5160 call dword ptr [ecx+$60]
007B5DF1 8B8568FFFFFF mov eax, [ebp+$FFFFFF68]
007B5DF7 50 push eax
007B5DF8 8BD6 mov edx, esi
007B5DFA 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5DFC E8735ECDFF call 0048BC74
007B5E01 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5E02 E81928CDFF call 00488620
007B5E07 E92F020000 jmp 007B603B
007B5E0C 8BD6 mov edx, esi
007B5E0E 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5E10 E85F5ECDFF call 0048BC74
* Reference to class TcxTimeEdit
|
007B5E15 8B1570AB5E00 mov edx, [$005EAB70]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5E1B E8C4E6C4FF call 004044E4
007B5E20 84C0 test al, al
007B5E22 7464 jz 007B5E88
007B5E24 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B5E27 E89420D1FF call 004C7EC0
007B5E2C 84C0 test al, al
007B5E2E 0F8507020000 jnz 007B603B
007B5E34 8B55F4 mov edx, [ebp-$0C]
007B5E37 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5E3A E8750DD1FF call 004C6BB4
007B5E3F 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
007B5E45 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5E47 FF5160 call dword ptr [ecx+$60]
007B5E4A 83BD64FFFFFF00 cmp dword ptr [ebp+$FFFFFF64], +$00
007B5E51 0F84E4010000 jz 007B603B
007B5E57 8B55F4 mov edx, [ebp-$0C]
007B5E5A 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5E5D E8520DD1FF call 004C6BB4
007B5E62 8D9560FFFFFF lea edx, [ebp+$FFFFFF60]
007B5E68 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5E6A FF5160 call dword ptr [ecx+$60]
007B5E6D 8B8560FFFFFF mov eax, [ebp+$FFFFFF60]
007B5E73 50 push eax
007B5E74 8BD6 mov edx, esi
007B5E76 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5E78 E8F75DCDFF call 0048BC74
007B5E7D 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5E7E E89D27CDFF call 00488620
007B5E83 E9B3010000 jmp 007B603B
007B5E88 8BD6 mov edx, esi
007B5E8A 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5E8C E8E35DCDFF call 0048BC74
* Reference to class TcxCurrencyEdit
|
007B5E91 8B15748E5F00 mov edx, [$005F8E74]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5E97 E848E6C4FF call 004044E4
007B5E9C 84C0 test al, al
007B5E9E 7431 jz 007B5ED1
007B5EA0 8B55F4 mov edx, [ebp-$0C]
007B5EA3 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5EA6 E8090DD1FF call 004C6BB4
007B5EAB 8D955CFFFFFF lea edx, [ebp+$FFFFFF5C]
007B5EB1 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5EB3 FF5160 call dword ptr [ecx+$60]
007B5EB6 8B855CFFFFFF mov eax, [ebp+$FFFFFF5C]
007B5EBC 50 push eax
007B5EBD 8BD6 mov edx, esi
007B5EBF 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5EC1 E8AE5DCDFF call 0048BC74
007B5EC6 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5EC7 E85427CDFF call 00488620
007B5ECC E96A010000 jmp 007B603B
007B5ED1 8BD6 mov edx, esi
007B5ED3 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5ED5 E89A5DCDFF call 0048BC74
* Reference to class TCheckBox
|
007B5EDA 8B15C0964700 mov edx, [$004796C0]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5EE0 E8FFE5C4FF call 004044E4
007B5EE5 84C0 test al, al
007B5EE7 7476 jz 007B5F5F
007B5EE9 8B55F4 mov edx, [ebp-$0C]
007B5EEC 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5EEF E8C00CD1FF call 004C6BB4
007B5EF4 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
007B5EFA 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetEnabled(Boolean)
|
007B5EFC FF5164 call dword ptr [ecx+$64]
007B5EFF 8D854CFFFFFF lea eax, [ebp+$FFFFFF4C]
007B5F05 50 push eax
007B5F06 8D853CFFFFFF lea eax, [ebp+$FFFFFF3C]
* 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);
|
007B5F0C E84F74C6FF call 0041D360
007B5F11 8D953CFFFFFF lea edx, [ebp+$FFFFFF3C]
007B5F17 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);
|
007B5F18 E8CF74C6FF call 0041D3EC
007B5F1D 7518 jnz 007B5F37
007B5F1F 8BD6 mov edx, esi
007B5F21 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5F23 E84C5DCDFF call 0048BC74
007B5F28 33D2 xor edx, edx
007B5F2A 8B08 mov ecx, [eax]
007B5F2C FF91CC000000 call dword ptr [ecx+$00CC]
007B5F32 E904010000 jmp 007B603B
007B5F37 8B55F4 mov edx, [ebp-$0C]
007B5F3A 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5F3D E8720CD1FF call 004C6BB4
007B5F42 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B5F44 FF5244 call dword ptr [edx+$44]
007B5F47 50 push eax
007B5F48 8BD6 mov edx, esi
007B5F4A 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5F4C E8235DCDFF call 0048BC74
007B5F51 5A pop edx
007B5F52 8B08 mov ecx, [eax]
007B5F54 FF91CC000000 call dword ptr [ecx+$00CC]
007B5F5A E9DC000000 jmp 007B603B
007B5F5F 8BD6 mov edx, esi
007B5F61 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5F63 E80C5DCDFF call 0048BC74
* Reference to class TcxButtonEdit
|
007B5F68 8B15D4D25B00 mov edx, [$005BD2D4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B5F6E E871E5C4FF call 004044E4
007B5F73 84C0 test al, al
007B5F75 0F84C0000000 jz 007B603B
007B5F7B 8B55F4 mov edx, [ebp-$0C]
007B5F7E 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B5F81 E82E0CD1FF call 004C6BB4
007B5F86 8D9534FFFFFF lea edx, [ebp+$FFFFFF34]
007B5F8C 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B5F8E FF5160 call dword ptr [ecx+$60]
007B5F91 8B8534FFFFFF mov eax, [ebp+$FFFFFF34]
007B5F97 8D9538FFFFFF lea edx, [ebp+$FFFFFF38]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5F9D E84A49C5FF call 0040A8EC
007B5FA2 8B8538FFFFFF mov eax, [ebp+$FFFFFF38]
007B5FA8 50 push eax
007B5FA9 8BD6 mov edx, esi
007B5FAB 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5FAD E8C25CCDFF call 0048BC74
007B5FB2 5A pop edx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B5FB3 E86826CDFF call 00488620
007B5FB8 8BD6 mov edx, esi
007B5FBA 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5FBC E8B35CCDFF call 0048BC74
007B5FC1 80B89A00000000 cmp byte ptr [eax+$009A], $00
007B5FC8 7571 jnz 007B603B
007B5FCA 8D8530FFFFFF lea eax, [ebp+$FFFFFF30]
007B5FD0 50 push eax
007B5FD1 8B45F4 mov eax, [ebp-$0C]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007B5FD4 E81BF6C4FF call 004055F4
007B5FD9 8BC8 mov ecx, eax
007B5FDB 83E904 sub ecx, +$04
007B5FDE BA01000000 mov edx, $00000001
007B5FE3 8B45F4 mov eax, [ebp-$0C]
* Reference to: System.@LStrCopy;
|
007B5FE6 E869F8C4FF call 00405854
007B5FEB 8B8530FFFFFF mov eax, [ebp+$FFFFFF30]
007B5FF1 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B5FF4 E8F348C5FF call 0040A8EC
007B5FF9 8BD6 mov edx, esi
007B5FFB 8BC7 mov eax, edi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
| or: QControls.TWidgetControl.GetControl(TWidgetControl;Integer):TControl;
|
007B5FFD E8725CCDFF call 0048BC74
007B6002 0580000000 add eax, +$00000080
007B6007 50 push eax
007B6008 8B55F0 mov edx, [ebp-$10]
007B600B 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B600E E8A10BD1FF call 004C6BB4
007B6013 8D9528FFFFFF lea edx, [ebp+$FFFFFF28]
007B6019 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B601B FF5160 call dword ptr [ecx+$60]
007B601E 8B8528FFFFFF mov eax, [ebp+$FFFFFF28]
007B6024 8D952CFFFFFF lea edx, [ebp+$FFFFFF2C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B602A E8BD48C5FF call 0040A8EC
007B602F 8B952CFFFFFF mov edx, [ebp+$FFFFFF2C]
007B6035 58 pop eax
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B6036 E83DF3C4FF call 00405378
007B603B 46 inc esi
007B603C FF4DEC dec dword ptr [ebp-$14]
007B603F 0F852AF8FFFF jnz 007B586F
007B6045 33C0 xor eax, eax
007B6047 5A pop edx
007B6048 59 pop ecx
007B6049 59 pop ecx
007B604A 648910 mov fs:[eax], edx
****** FINALLY
|
007B604D 689D607B00 push $007B609D
007B6052 8D8528FFFFFF lea eax, [ebp+$FFFFFF28]
007B6058 BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B605D E8E6F2C4FF call 00405348
007B6062 8D853CFFFFFF lea eax, [ebp+$FFFFFF3C]
* Reference to object Variant
|
007B6068 8B153C114000 mov edx, [$0040113C]
007B606E B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B6073 E89C00C5FF call 00406114
007B6078 8D855CFFFFFF lea eax, [ebp+$FFFFFF5C]
007B607E BA24000000 mov edx, $00000024
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6083 E8C0F2C4FF call 00405348
007B6088 8D45F0 lea eax, [ebp-$10]
007B608B BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6090 E8B3F2C4FF call 00405348
007B6095 C3 ret
* Reference to: System.@HandleFinally;
|
007B6096 E959EAC4FF jmp 00404AF4
007B609B EBB5 jmp 007B6052
****** END
|
007B609D 5F pop edi
007B609E 5E pop esi
007B609F 5B pop ebx
007B60A0 8BE5 mov esp, ebp
007B60A2 5D pop ebp
007B60A3 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B60B1(Sender : TObject);
begin
(*
007B60B1 8BEC mov ebp, esp
007B60B3 51 push ecx
007B60B4 B924000000 mov ecx, $00000024
007B60B9 6A00 push $00
007B60BB 6A00 push $00
007B60BD 49 dec ecx
007B60BE 75F9 jnz 007B60B9
007B60C0 874DFC xchg [ebp-$04], ecx
007B60C3 53 push ebx
007B60C4 56 push esi
007B60C5 57 push edi
007B60C6 894DF8 mov [ebp-$08], ecx
007B60C9 8955FC mov [ebp-$04], edx
007B60CC 8BF0 mov esi, eax
007B60CE 33C0 xor eax, eax
007B60D0 55 push ebp
007B60D1 68606C7B00 push $007B6C60
***** TRY
|
007B60D6 64FF30 push dword ptr fs:[eax]
007B60D9 648920 mov fs:[eax], esp
007B60DC 8B4508 mov eax, [ebp+$08]
* Reference to: System.@LStrClr(void;void);
|
007B60DF E840F2C4FF call 00405324
007B60E4 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControlCount(TWinControl):Integer;
|
007B60E6 E8C55BCDFF call 0048BCB0
007B60EB 8BF8 mov edi, eax
007B60ED 4F dec edi
007B60EE 85FF test edi, edi
007B60F0 0F8CB8090000 jl 007B6AAE
007B60F6 47 inc edi
007B60F7 33DB xor ebx, ebx
007B60F9 8BD3 mov edx, ebx
007B60FB 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B60FD E8725BCDFF call 0048BC74
* Reference to class TLabel
|
007B6102 8B151C5F4700 mov edx, [$00475F1C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B6108 E8D7E3C4FF call 004044E4
007B610D 84C0 test al, al
007B610F 0F8591090000 jnz 007B6AA6
007B6115 8BD3 mov edx, ebx
007B6117 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6119 E8565BCDFF call 0048BC74
* Reference to class TEdit
|
007B611E 8B15B8674700 mov edx, [$004767B8]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B6124 E8BBE3C4FF call 004044E4
007B6129 84C0 test al, al
007B612B 0F8478030000 jz 007B64A9
007B6131 8BD3 mov edx, ebx
007B6133 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6135 E83A5BCDFF call 0048BC74
007B613A 8D55E8 lea edx, [ebp-$18]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B613D E8AE24CDFF call 004885F0
007B6142 8B45E8 mov eax, [ebp-$18]
007B6145 8D55EC lea edx, [ebp-$14]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6148 E89F47C5FF call 0040A8EC
007B614D 837DEC00 cmp dword ptr [ebp-$14], +$00
007B6151 0F844F090000 jz 007B6AA6
007B6157 8BD3 mov edx, ebx
007B6159 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B615B E8145BCDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B6160 8B400C mov eax, [eax+$0C]
007B6163 3B45FC cmp eax, [ebp-$04]
007B6166 7557 jnz 007B61BF
007B6168 8B4508 mov eax, [ebp+$08]
007B616B FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B616D 687C6C7B00 push $007B6C7C
007B6172 8BD3 mov edx, ebx
007B6174 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6176 E8F95ACDFF call 0048BC74
007B617B FF7008 push dword ptr [eax+$08]
007B617E 688C6C7B00 push $007B6C8C
007B6183 8BD3 mov edx, ebx
007B6185 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6187 E8E85ACDFF call 0048BC74
007B618C 8D55DC lea edx, [ebp-$24]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B618F E85C24CDFF call 004885F0
007B6194 8B45DC mov eax, [ebp-$24]
007B6197 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B619A E84D47C5FF call 0040A8EC
007B619F 8B45E0 mov eax, [ebp-$20]
007B61A2 8D55E4 lea edx, [ebp-$1C]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B61A5 E84A48C5FF call 0040A9F4
007B61AA FF75E4 push dword ptr [ebp-$1C]
007B61AD 8B4508 mov eax, [ebp+$08]
007B61B0 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B61B5 E8FAF4C4FF call 004056B4
007B61BA E9E7080000 jmp 007B6AA6
007B61BF 8BD3 mov edx, ebx
007B61C1 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B61C3 E8AC5ACDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B61C8 8B400C mov eax, [eax+$0C]
007B61CB 3B45F8 cmp eax, [ebp-$08]
007B61CE 0F85D2080000 jnz 007B6AA6
007B61D4 8BD3 mov edx, ebx
007B61D6 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B61D8 E8975ACDFF call 0048BC74
007B61DD 8D55D4 lea edx, [ebp-$2C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B61E0 E80B24CDFF call 004885F0
007B61E5 8B45D4 mov eax, [ebp-$2C]
007B61E8 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B61EB E8FC46C5FF call 0040A8EC
007B61F0 8B55D8 mov edx, [ebp-$28]
007B61F3 B8986C7B00 mov eax, $007B6C98
* Reference to: System.@LStrPos;
|
007B61F8 E83BF7C4FF call 00405938
007B61FD 8945F4 mov [ebp-$0C], eax
007B6200 837DF400 cmp dword ptr [ebp-$0C], +$00
007B6204 0F8E1C020000 jle 007B6426
007B620A 8B4508 mov eax, [ebp+$08]
007B620D FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B620F 687C6C7B00 push $007B6C7C
007B6214 8BD3 mov edx, ebx
007B6216 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6218 E8575ACDFF call 0048BC74
007B621D FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B6220 68A46C7B00 push $007B6CA4
007B6225 68B46C7B00 push $007B6CB4
007B622A 8D45C8 lea eax, [ebp-$38]
007B622D 50 push eax
007B622E 8BD3 mov edx, ebx
007B6230 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6232 E83D5ACDFF call 0048BC74
007B6237 8D55C0 lea edx, [ebp-$40]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B623A E8B123CDFF call 004885F0
007B623F 8B45C0 mov eax, [ebp-$40]
007B6242 8D55C4 lea edx, [ebp-$3C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6245 E8A246C5FF call 0040A8EC
007B624A 8B45C4 mov eax, [ebp-$3C]
007B624D 8B4DF4 mov ecx, [ebp-$0C]
007B6250 49 dec ecx
007B6251 BA01000000 mov edx, $00000001
* Reference to: System.@LStrCopy;
|
007B6256 E8F9F5C4FF call 00405854
007B625B FF75C8 push dword ptr [ebp-$38]
007B625E 68B46C7B00 push $007B6CB4
007B6263 8D45CC lea eax, [ebp-$34]
007B6266 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B626B E844F4C4FF call 004056B4
007B6270 8B45CC mov eax, [ebp-$34]
007B6273 8D55D0 lea edx, [ebp-$30]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B6276 E87947C5FF call 0040A9F4
007B627B FF75D0 push dword ptr [ebp-$30]
007B627E 8B4508 mov eax, [ebp+$08]
007B6281 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B6286 E829F4C4FF call 004056B4
007B628B 8D45F0 lea eax, [ebp-$10]
007B628E 50 push eax
007B628F 8BD3 mov edx, ebx
007B6291 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6293 E8DC59CDFF call 0048BC74
007B6298 8D55B8 lea edx, [ebp-$48]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B629B E85023CDFF call 004885F0
007B62A0 8B45B8 mov eax, [ebp-$48]
007B62A3 8D55BC lea edx, [ebp-$44]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B62A6 E84146C5FF call 0040A8EC
007B62AB 8B45BC mov eax, [ebp-$44]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007B62AE E841F3C4FF call 004055F4
007B62B3 50 push eax
007B62B4 8BD3 mov edx, ebx
007B62B6 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B62B8 E8B759CDFF call 0048BC74
007B62BD 8D55B0 lea edx, [ebp-$50]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B62C0 E82B23CDFF call 004885F0
007B62C5 8B45B0 mov eax, [ebp-$50]
007B62C8 8D55B4 lea edx, [ebp-$4C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B62CB E81C46C5FF call 0040A8EC
007B62D0 8B45B4 mov eax, [ebp-$4C]
007B62D3 8B55F4 mov edx, [ebp-$0C]
007B62D6 42 inc edx
007B62D7 59 pop ecx
* Reference to: System.@LStrCopy;
|
007B62D8 E877F5C4FF call 00405854
007B62DD E92A010000 jmp 007B640C
007B62E2 8D55AC lea edx, [ebp-$54]
007B62E5 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B62E8 E8FF45C5FF call 0040A8EC
007B62ED 8B55AC mov edx, [ebp-$54]
007B62F0 B8986C7B00 mov eax, $007B6C98
* Reference to: System.@LStrPos;
|
007B62F5 E83EF6C4FF call 00405938
007B62FA 8945F4 mov [ebp-$0C], eax
007B62FD 837DF400 cmp dword ptr [ebp-$0C], +$00
007B6301 0F8EA2000000 jle 007B63A9
007B6307 8B4508 mov eax, [ebp+$08]
007B630A FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B630C 687C6C7B00 push $007B6C7C
007B6311 8BD3 mov edx, ebx
007B6313 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6315 E85A59CDFF call 0048BC74
007B631A FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B631D 68A46C7B00 push $007B6CA4
007B6322 68B46C7B00 push $007B6CB4
007B6327 8D45A0 lea eax, [ebp-$60]
007B632A 50 push eax
007B632B 8D559C lea edx, [ebp-$64]
007B632E 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6331 E8B645C5FF call 0040A8EC
007B6336 8B459C mov eax, [ebp-$64]
007B6339 8B4DF4 mov ecx, [ebp-$0C]
007B633C 49 dec ecx
007B633D BA01000000 mov edx, $00000001
* Reference to: System.@LStrCopy;
|
007B6342 E80DF5C4FF call 00405854
007B6347 FF75A0 push dword ptr [ebp-$60]
007B634A 68B46C7B00 push $007B6CB4
007B634F 8D45A4 lea eax, [ebp-$5C]
007B6352 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B6357 E858F3C4FF call 004056B4
007B635C 8B45A4 mov eax, [ebp-$5C]
007B635F 8D55A8 lea edx, [ebp-$58]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B6362 E88D46C5FF call 0040A9F4
007B6367 FF75A8 push dword ptr [ebp-$58]
007B636A 8B4508 mov eax, [ebp+$08]
007B636D BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B6372 E83DF3C4FF call 004056B4
007B6377 8D45F0 lea eax, [ebp-$10]
007B637A 50 push eax
007B637B 8D5598 lea edx, [ebp-$68]
007B637E 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6381 E86645C5FF call 0040A8EC
007B6386 8B4598 mov eax, [ebp-$68]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007B6389 E866F2C4FF call 004055F4
007B638E 50 push eax
007B638F 8D5594 lea edx, [ebp-$6C]
007B6392 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6395 E85245C5FF call 0040A8EC
007B639A 8B4594 mov eax, [ebp-$6C]
007B639D 8B55F4 mov edx, [ebp-$0C]
007B63A0 42 inc edx
007B63A1 59 pop ecx
* Reference to: System.@LStrCopy;
|
007B63A2 E8ADF4C4FF call 00405854
007B63A7 EB63 jmp 007B640C
007B63A9 8B4508 mov eax, [ebp+$08]
007B63AC FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B63AE 687C6C7B00 push $007B6C7C
007B63B3 8BD3 mov edx, ebx
007B63B5 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B63B7 E8B858CDFF call 0048BC74
007B63BC FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B63BF 68A46C7B00 push $007B6CA4
007B63C4 68B46C7B00 push $007B6CB4
007B63C9 8D5588 lea edx, [ebp-$78]
007B63CC 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B63CF E81845C5FF call 0040A8EC
007B63D4 FF7588 push dword ptr [ebp-$78]
007B63D7 68B46C7B00 push $007B6CB4
007B63DC 8D458C lea eax, [ebp-$74]
007B63DF BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B63E4 E8CBF2C4FF call 004056B4
007B63E9 8B458C mov eax, [ebp-$74]
007B63EC 8D5590 lea edx, [ebp-$70]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B63EF E80046C5FF call 0040A9F4
007B63F4 FF7590 push dword ptr [ebp-$70]
007B63F7 8B4508 mov eax, [ebp+$08]
007B63FA BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B63FF E8B0F2C4FF call 004056B4
007B6404 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
007B6407 E818EFC4FF call 00405324
007B640C 8D5584 lea edx, [ebp-$7C]
007B640F 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6412 E8D544C5FF call 0040A8EC
007B6417 837D8400 cmp dword ptr [ebp-$7C], +$00
007B641B 0F85C1FEFFFF jnz 007B62E2
007B6421 E980060000 jmp 007B6AA6
007B6426 8B4508 mov eax, [ebp+$08]
007B6429 FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B642B 687C6C7B00 push $007B6C7C
007B6430 8BD3 mov edx, ebx
007B6432 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6434 E83B58CDFF call 0048BC74
007B6439 FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B643C 68A46C7B00 push $007B6CA4
007B6441 68B46C7B00 push $007B6CB4
007B6446 8BD3 mov edx, ebx
007B6448 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B644A E82558CDFF call 0048BC74
007B644F 8D9574FFFFFF lea edx, [ebp+$FFFFFF74]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B6455 E89621CDFF call 004885F0
007B645A 8B8574FFFFFF mov eax, [ebp+$FFFFFF74]
007B6460 8D9578FFFFFF lea edx, [ebp+$FFFFFF78]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6466 E88144C5FF call 0040A8EC
007B646B FFB578FFFFFF push dword ptr [ebp+$FFFFFF78]
007B6471 68B46C7B00 push $007B6CB4
007B6476 8D857CFFFFFF lea eax, [ebp+$FFFFFF7C]
007B647C BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B6481 E82EF2C4FF call 004056B4
007B6486 8B857CFFFFFF mov eax, [ebp+$FFFFFF7C]
007B648C 8D5580 lea edx, [ebp-$80]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B648F E86045C5FF call 0040A9F4
007B6494 FF7580 push dword ptr [ebp-$80]
007B6497 8B4508 mov eax, [ebp+$08]
007B649A BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B649F E810F2C4FF call 004056B4
007B64A4 E9FD050000 jmp 007B6AA6
007B64A9 8BD3 mov edx, ebx
007B64AB 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B64AD E8C257CDFF call 0048BC74
* Reference to class TBtnEditA
|
007B64B2 8B1530A24F00 mov edx, [$004FA230]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B64B8 E827E0C4FF call 004044E4
007B64BD 84C0 test al, al
007B64BF 0F84C5010000 jz 007B668A
007B64C5 8BD3 mov edx, ebx
007B64C7 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B64C9 E8A657CDFF call 0048BC74
007B64CE 8D956CFFFFFF lea edx, [ebp+$FFFFFF6C]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B64D4 E81721CDFF call 004885F0
007B64D9 8B856CFFFFFF mov eax, [ebp+$FFFFFF6C]
007B64DF 8D9570FFFFFF lea edx, [ebp+$FFFFFF70]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B64E5 E80244C5FF call 0040A8EC
007B64EA 83BD70FFFFFF00 cmp dword ptr [ebp+$FFFFFF70], +$00
007B64F1 0F84AF050000 jz 007B6AA6
007B64F7 8BD3 mov edx, ebx
007B64F9 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B64FB E87457CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B6500 8B400C mov eax, [eax+$0C]
007B6503 3B45FC cmp eax, [ebp-$04]
007B6506 755E jnz 007B6566
007B6508 8B4508 mov eax, [ebp+$08]
007B650B FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B650D 687C6C7B00 push $007B6C7C
007B6512 8BD3 mov edx, ebx
007B6514 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6516 E85957CDFF call 0048BC74
007B651B FF7008 push dword ptr [eax+$08]
007B651E 688C6C7B00 push $007B6C8C
007B6523 8BD3 mov edx, ebx
007B6525 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6527 E84857CDFF call 0048BC74
* Reference to field TfrmSelExportField.Position : TPosition
|
007B652C 8B8030020000 mov eax, [eax+$0230]
007B6532 8D9564FFFFFF lea edx, [ebp+$FFFFFF64]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6538 E8AF43C5FF call 0040A8EC
007B653D 8B8564FFFFFF mov eax, [ebp+$FFFFFF64]
007B6543 8D9568FFFFFF lea edx, [ebp+$FFFFFF68]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B6549 E8A644C5FF call 0040A9F4
007B654E FFB568FFFFFF push dword ptr [ebp+$FFFFFF68]
007B6554 8B4508 mov eax, [ebp+$08]
007B6557 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B655C E853F1C4FF call 004056B4
007B6561 E940050000 jmp 007B6AA6
007B6566 8BD3 mov edx, ebx
007B6568 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B656A E80557CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B656F 8B400C mov eax, [eax+$0C]
007B6572 3B45F8 cmp eax, [ebp-$08]
007B6575 0F858E000000 jnz 007B6609
007B657B 8B4508 mov eax, [ebp+$08]
007B657E FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B6580 687C6C7B00 push $007B6C7C
007B6585 8BD3 mov edx, ebx
007B6587 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6589 E8E656CDFF call 0048BC74
007B658E FF7008 push dword ptr [eax+$08]
* Possible String Reference to: 'Name'
|
007B6591 68C06C7B00 push $007B6CC0
* Possible String Reference to: ' like '
|
007B6596 68A46C7B00 push $007B6CA4
007B659B 68B46C7B00 push $007B6CB4
007B65A0 8BD3 mov edx, ebx
007B65A2 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B65A4 E8CB56CDFF call 0048BC74
007B65A9 8D9554FFFFFF lea edx, [ebp+$FFFFFF54]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B65AF E83C20CDFF call 004885F0
007B65B4 8B8554FFFFFF mov eax, [ebp+$FFFFFF54]
007B65BA 8D9558FFFFFF lea edx, [ebp+$FFFFFF58]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B65C0 E82743C5FF call 0040A8EC
007B65C5 FFB558FFFFFF push dword ptr [ebp+$FFFFFF58]
007B65CB 68B46C7B00 push $007B6CB4
007B65D0 8D855CFFFFFF lea eax, [ebp+$FFFFFF5C]
007B65D6 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B65DB E8D4F0C4FF call 004056B4
007B65E0 8B855CFFFFFF mov eax, [ebp+$FFFFFF5C]
007B65E6 8D9560FFFFFF lea edx, [ebp+$FFFFFF60]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B65EC E80344C5FF call 0040A9F4
007B65F1 FFB560FFFFFF push dword ptr [ebp+$FFFFFF60]
007B65F7 8B4508 mov eax, [ebp+$08]
007B65FA BA06000000 mov edx, $00000006
* Reference to: System.@LStrCatN;
|
007B65FF E8B0F0C4FF call 004056B4
007B6604 E99D040000 jmp 007B6AA6
007B6609 8BD3 mov edx, ebx
007B660B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B660D E86256CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B6612 83780C63 cmp dword ptr [eax+$0C], +$63
007B6616 0F858A040000 jnz 007B6AA6
007B661C 8B4508 mov eax, [ebp+$08]
007B661F FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B6621 687C6C7B00 push $007B6C7C
007B6626 8BD3 mov edx, ebx
007B6628 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B662A E84556CDFF call 0048BC74
007B662F FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B6632 68A46C7B00 push $007B6CA4
007B6637 8BD3 mov edx, ebx
007B6639 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B663B E83456CDFF call 0048BC74
* Reference to field TfrmSelExportField.Position : TPosition
|
007B6640 8B8030020000 mov eax, [eax+$0230]
007B6646 8D954CFFFFFF lea edx, [ebp+$FFFFFF4C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B664C E89B42C5FF call 0040A8EC
007B6651 8D854CFFFFFF lea eax, [ebp+$FFFFFF4C]
007B6657 BAB46C7B00 mov edx, $007B6CB4
* Reference to: System.@LStrCat;
|
007B665C E89BEFC4FF call 004055FC
007B6661 8B854CFFFFFF mov eax, [ebp+$FFFFFF4C]
007B6667 8D9550FFFFFF lea edx, [ebp+$FFFFFF50]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B666D E88243C5FF call 0040A9F4
007B6672 FFB550FFFFFF push dword ptr [ebp+$FFFFFF50]
007B6678 8B4508 mov eax, [ebp+$08]
007B667B BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B6680 E82FF0C4FF call 004056B4
007B6685 E91C040000 jmp 007B6AA6
007B668A 8BD3 mov edx, ebx
007B668C 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B668E E8E155CDFF call 0048BC74
* Reference to class TBtnEditC
|
007B6693 8B158CAB4F00 mov edx, [$004FAB8C]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B6699 E846DEC4FF call 004044E4
007B669E 84C0 test al, al
007B66A0 0F8439010000 jz 007B67DF
007B66A6 8BD3 mov edx, ebx
007B66A8 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B66AA E8C555CDFF call 0048BC74
* Reference to field TfrmSelExportField.OFFS_0238
|
007B66AF 8B8038020000 mov eax, [eax+$0238]
007B66B5 8D9548FFFFFF lea edx, [ebp+$FFFFFF48]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B66BB E82C42C5FF call 0040A8EC
007B66C0 83BD48FFFFFF00 cmp dword ptr [ebp+$FFFFFF48], +$00
007B66C7 0F84D9030000 jz 007B6AA6
007B66CD 8BD3 mov edx, ebx
007B66CF 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B66D1 E89E55CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B66D6 8B400C mov eax, [eax+$0C]
007B66D9 3B45FC cmp eax, [ebp-$04]
007B66DC 755E jnz 007B673C
007B66DE 8B4508 mov eax, [ebp+$08]
007B66E1 FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B66E3 687C6C7B00 push $007B6C7C
007B66E8 8BD3 mov edx, ebx
007B66EA 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B66EC E88355CDFF call 0048BC74
007B66F1 FF7008 push dword ptr [eax+$08]
007B66F4 688C6C7B00 push $007B6C8C
007B66F9 8BD3 mov edx, ebx
007B66FB 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B66FD E87255CDFF call 0048BC74
* Reference to field TfrmSelExportField.OFFS_0238
|
007B6702 8B8038020000 mov eax, [eax+$0238]
007B6708 8D9540FFFFFF lea edx, [ebp+$FFFFFF40]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B670E E8D941C5FF call 0040A8EC
007B6713 8B8540FFFFFF mov eax, [ebp+$FFFFFF40]
007B6719 8D9544FFFFFF lea edx, [ebp+$FFFFFF44]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B671F E8D042C5FF call 0040A9F4
007B6724 FFB544FFFFFF push dword ptr [ebp+$FFFFFF44]
007B672A 8B4508 mov eax, [ebp+$08]
007B672D BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B6732 E87DEFC4FF call 004056B4
007B6737 E96A030000 jmp 007B6AA6
007B673C 8BD3 mov edx, ebx
007B673E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6740 E82F55CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B6745 8B400C mov eax, [eax+$0C]
007B6748 3B45F8 cmp eax, [ebp-$08]
007B674B 0F8555030000 jnz 007B6AA6
007B6751 8B4508 mov eax, [ebp+$08]
007B6754 FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B6756 687C6C7B00 push $007B6C7C
007B675B 8BD3 mov edx, ebx
007B675D 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B675F E81055CDFF call 0048BC74
007B6764 FF7008 push dword ptr [eax+$08]
* Possible String Reference to: 'Name'
|
007B6767 68C06C7B00 push $007B6CC0
* Possible String Reference to: ' like '
|
007B676C 68A46C7B00 push $007B6CA4
007B6771 68B46C7B00 push $007B6CB4
007B6776 8BD3 mov edx, ebx
007B6778 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B677A E8F554CDFF call 0048BC74
007B677F 8D9530FFFFFF lea edx, [ebp+$FFFFFF30]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B6785 E8661ECDFF call 004885F0
007B678A 8B8530FFFFFF mov eax, [ebp+$FFFFFF30]
007B6790 8D9534FFFFFF lea edx, [ebp+$FFFFFF34]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6796 E85141C5FF call 0040A8EC
007B679B FFB534FFFFFF push dword ptr [ebp+$FFFFFF34]
007B67A1 68B46C7B00 push $007B6CB4
007B67A6 8D8538FFFFFF lea eax, [ebp+$FFFFFF38]
007B67AC BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B67B1 E8FEEEC4FF call 004056B4
007B67B6 8B8538FFFFFF mov eax, [ebp+$FFFFFF38]
007B67BC 8D953CFFFFFF lea edx, [ebp+$FFFFFF3C]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B67C2 E82D42C5FF call 0040A9F4
007B67C7 FFB53CFFFFFF push dword ptr [ebp+$FFFFFF3C]
007B67CD 8B4508 mov eax, [ebp+$08]
007B67D0 BA06000000 mov edx, $00000006
* Reference to: System.@LStrCatN;
|
007B67D5 E8DAEEC4FF call 004056B4
007B67DA E9C7020000 jmp 007B6AA6
007B67DF 8BD3 mov edx, ebx
007B67E1 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B67E3 E88C54CDFF call 0048BC74
007B67E8 8B15F4508800 mov edx, [$008850F4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B67EE E8F1DCC4FF call 004044E4
007B67F3 84C0 test al, al
007B67F5 0F844A010000 jz 007B6945
007B67FB 8BD3 mov edx, ebx
007B67FD 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B67FF E87054CDFF call 0048BC74
007B6804 8D9528FFFFFF lea edx, [ebp+$FFFFFF28]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B680A E8E11DCDFF call 004885F0
007B680F 8B8528FFFFFF mov eax, [ebp+$FFFFFF28]
007B6815 8D952CFFFFFF lea edx, [ebp+$FFFFFF2C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B681B E8CC40C5FF call 0040A8EC
007B6820 83BD2CFFFFFF00 cmp dword ptr [ebp+$FFFFFF2C], +$00
007B6827 0F8479020000 jz 007B6AA6
007B682D 8BD3 mov edx, ebx
007B682F 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6831 E83E54CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B6836 8B400C mov eax, [eax+$0C]
007B6839 3B45FC cmp eax, [ebp-$04]
007B683C 7569 jnz 007B68A7
007B683E 8B4508 mov eax, [ebp+$08]
007B6841 FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B6843 687C6C7B00 push $007B6C7C
007B6848 8BD3 mov edx, ebx
007B684A 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B684C E82354CDFF call 0048BC74
007B6851 FF7008 push dword ptr [eax+$08]
007B6854 688C6C7B00 push $007B6C8C
007B6859 8BD3 mov edx, ebx
007B685B 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B685D E81254CDFF call 0048BC74
007B6862 8D951CFFFFFF lea edx, [ebp+$FFFFFF1C]
|
007B6868 E8FFD9EFFF call 006B426C
007B686D 8B851CFFFFFF mov eax, [ebp+$FFFFFF1C]
007B6873 8D9520FFFFFF lea edx, [ebp+$FFFFFF20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6879 E86E40C5FF call 0040A8EC
007B687E 8B8520FFFFFF mov eax, [ebp+$FFFFFF20]
007B6884 8D9524FFFFFF lea edx, [ebp+$FFFFFF24]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B688A E86541C5FF call 0040A9F4
007B688F FFB524FFFFFF push dword ptr [ebp+$FFFFFF24]
007B6895 8B4508 mov eax, [ebp+$08]
007B6898 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B689D E812EEC4FF call 004056B4
007B68A2 E9FF010000 jmp 007B6AA6
007B68A7 8BD3 mov edx, ebx
007B68A9 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B68AB E8C453CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B68B0 8B400C mov eax, [eax+$0C]
007B68B3 3B45F8 cmp eax, [ebp-$08]
007B68B6 0F85EA010000 jnz 007B6AA6
007B68BC 8B4508 mov eax, [ebp+$08]
007B68BF FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B68C1 687C6C7B00 push $007B6C7C
007B68C6 8BD3 mov edx, ebx
007B68C8 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B68CA E8A553CDFF call 0048BC74
007B68CF FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B68D2 68A46C7B00 push $007B6CA4
007B68D7 68B46C7B00 push $007B6CB4
007B68DC 8BD3 mov edx, ebx
007B68DE 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B68E0 E88F53CDFF call 0048BC74
007B68E5 8D950CFFFFFF lea edx, [ebp+$FFFFFF0C]
|
007B68EB E87CD9EFFF call 006B426C
007B68F0 8B850CFFFFFF mov eax, [ebp+$FFFFFF0C]
007B68F6 8D9510FFFFFF lea edx, [ebp+$FFFFFF10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B68FC E8EB3FC5FF call 0040A8EC
007B6901 FFB510FFFFFF push dword ptr [ebp+$FFFFFF10]
007B6907 68B46C7B00 push $007B6CB4
007B690C 8D8514FFFFFF lea eax, [ebp+$FFFFFF14]
007B6912 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B6917 E898EDC4FF call 004056B4
007B691C 8B8514FFFFFF mov eax, [ebp+$FFFFFF14]
007B6922 8D9518FFFFFF lea edx, [ebp+$FFFFFF18]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B6928 E8C740C5FF call 0040A9F4
007B692D FFB518FFFFFF push dword ptr [ebp+$FFFFFF18]
007B6933 8B4508 mov eax, [ebp+$08]
007B6936 BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B693B E874EDC4FF call 004056B4
007B6940 E961010000 jmp 007B6AA6
007B6945 8BD3 mov edx, ebx
007B6947 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6949 E82653CDFF call 0048BC74
* Reference to class TComboBox
|
007B694E 8B15F4814700 mov edx, [$004781F4]
* Reference to: System.@IsClass(TObject;TClass):Boolean;
|
007B6954 E88BDBC4FF call 004044E4
007B6959 84C0 test al, al
007B695B 0F8445010000 jz 007B6AA6
007B6961 8BD3 mov edx, ebx
007B6963 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6965 E80A53CDFF call 0048BC74
007B696A 8D9504FFFFFF lea edx, [ebp+$FFFFFF04]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B6970 E87B1CCDFF call 004885F0
007B6975 8B8504FFFFFF mov eax, [ebp+$FFFFFF04]
007B697B 8D9508FFFFFF lea edx, [ebp+$FFFFFF08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6981 E8663FC5FF call 0040A8EC
007B6986 83BD08FFFFFF00 cmp dword ptr [ebp+$FFFFFF08], +$00
007B698D 0F8413010000 jz 007B6AA6
007B6993 8BD3 mov edx, ebx
007B6995 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6997 E8D852CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B699C 8B400C mov eax, [eax+$0C]
007B699F 3B45FC cmp eax, [ebp-$04]
007B69A2 7569 jnz 007B6A0D
007B69A4 8B4508 mov eax, [ebp+$08]
007B69A7 FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B69A9 687C6C7B00 push $007B6C7C
007B69AE 8BD3 mov edx, ebx
007B69B0 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B69B2 E8BD52CDFF call 0048BC74
007B69B7 FF7008 push dword ptr [eax+$08]
007B69BA 688C6C7B00 push $007B6C8C
007B69BF 8BD3 mov edx, ebx
007B69C1 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B69C3 E8AC52CDFF call 0048BC74
007B69C8 8D95F8FEFFFF lea edx, [ebp+$FFFFFEF8]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B69CE E81D1CCDFF call 004885F0
007B69D3 8B85F8FEFFFF mov eax, [ebp+$FFFFFEF8]
007B69D9 8D95FCFEFFFF lea edx, [ebp+$FFFFFEFC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B69DF E8083FC5FF call 0040A8EC
007B69E4 8B85FCFEFFFF mov eax, [ebp+$FFFFFEFC]
007B69EA 8D9500FFFFFF lea edx, [ebp+$FFFFFF00]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B69F0 E8FF3FC5FF call 0040A9F4
007B69F5 FFB500FFFFFF push dword ptr [ebp+$FFFFFF00]
007B69FB 8B4508 mov eax, [ebp+$08]
007B69FE BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B6A03 E8ACECC4FF call 004056B4
007B6A08 E999000000 jmp 007B6AA6
007B6A0D 8BD3 mov edx, ebx
007B6A0F 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6A11 E85E52CDFF call 0048BC74
* Reference to field TfrmSelExportField.Tag : Longint
|
007B6A16 8B400C mov eax, [eax+$0C]
007B6A19 3B45F8 cmp eax, [ebp-$08]
007B6A1C 0F8584000000 jnz 007B6AA6
007B6A22 8B4508 mov eax, [ebp+$08]
007B6A25 FF30 push dword ptr [eax]
* Possible String Reference to: 'and '
|
007B6A27 687C6C7B00 push $007B6C7C
007B6A2C 8BD3 mov edx, ebx
007B6A2E 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6A30 E83F52CDFF call 0048BC74
007B6A35 FF7008 push dword ptr [eax+$08]
* Possible String Reference to: ' like '
|
007B6A38 68A46C7B00 push $007B6CA4
007B6A3D 68B46C7B00 push $007B6CB4
007B6A42 8BD3 mov edx, ebx
007B6A44 8BC6 mov eax, esi
* Reference to: Controls.TWinControl.GetControl(TWinControl;Integer):TControl;
|
007B6A46 E82952CDFF call 0048BC74
007B6A4B 8D95E8FEFFFF lea edx, [ebp+$FFFFFEE8]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B6A51 E89A1BCDFF call 004885F0
007B6A56 8B85E8FEFFFF mov eax, [ebp+$FFFFFEE8]
007B6A5C 8D95ECFEFFFF lea edx, [ebp+$FFFFFEEC]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6A62 E8853EC5FF call 0040A8EC
007B6A67 FFB5ECFEFFFF push dword ptr [ebp+$FFFFFEEC]
007B6A6D 68B46C7B00 push $007B6CB4
007B6A72 8D85F0FEFFFF lea eax, [ebp+$FFFFFEF0]
007B6A78 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B6A7D E832ECC4FF call 004056B4
007B6A82 8B85F0FEFFFF mov eax, [ebp+$FFFFFEF0]
007B6A88 8D95F4FEFFFF lea edx, [ebp+$FFFFFEF4]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B6A8E E8613FC5FF call 0040A9F4
007B6A93 FFB5F4FEFFFF push dword ptr [ebp+$FFFFFEF4]
007B6A99 8B4508 mov eax, [ebp+$08]
007B6A9C BA05000000 mov edx, $00000005
* Reference to: System.@LStrCatN;
|
007B6AA1 E80EECC4FF call 004056B4
007B6AA6 43 inc ebx
007B6AA7 4F dec edi
007B6AA8 0F854BF6FFFF jnz 007B60F9
007B6AAE 8D95E4FEFFFF lea edx, [ebp+$FFFFFEE4]
007B6AB4 8B4508 mov eax, [ebp+$08]
007B6AB7 8B00 mov eax, [eax]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6AB9 E82E3EC5FF call 0040A8EC
007B6ABE 83BDE4FEFFFF00 cmp dword ptr [ebp+$FFFFFEE4], +$00
007B6AC5 743E jz 007B6B05
007B6AC7 8B4508 mov eax, [ebp+$08]
007B6ACA 8B00 mov eax, [eax]
* Reference to: System.@LStrLen(String):Integer;
| or: System.@DynArrayLength;
| or: System.DynArraySize(Pointer):Integer;
| or: Variants.DynArraySize(Pointer):Integer;
|
007B6ACC E823EBC4FF call 004055F4
007B6AD1 8BD0 mov edx, eax
007B6AD3 83EA04 sub edx, +$04
007B6AD6 8D8DDCFEFFFF lea ecx, [ebp+$FFFFFEDC]
007B6ADC 8B4508 mov eax, [ebp+$08]
007B6ADF 8B00 mov eax, [eax]
* Reference to: StrUtils.RightStr(WideString;Integer):WideString;overload;
| or: StrUtils.RightBStr(AnsiString;Integer):AnsiString;
|
007B6AE1 E8EA22C9FF call 00448DD0
007B6AE6 8B85DCFEFFFF mov eax, [ebp+$FFFFFEDC]
007B6AEC 8D95E0FEFFFF lea edx, [ebp+$FFFFFEE0]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6AF2 E8F53DC5FF call 0040A8EC
007B6AF7 8B95E0FEFFFF mov edx, [ebp+$FFFFFEE0]
007B6AFD 8B4508 mov eax, [ebp+$08]
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B6B00 E873E8C4FF call 00405378
007B6B05 33C0 xor eax, eax
007B6B07 5A pop edx
007B6B08 59 pop ecx
007B6B09 59 pop ecx
007B6B0A 648910 mov fs:[eax], edx
****** FINALLY
|
007B6B0D 686A6C7B00 push $007B6C6A
007B6B12 8D85DCFEFFFF lea eax, [ebp+$FFFFFEDC]
007B6B18 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6B1D E826E8C4FF call 00405348
007B6B22 8D85E8FEFFFF lea eax, [ebp+$FFFFFEE8]
* Reference to: System.@LStrClr(void;void);
|
007B6B28 E8F7E7C4FF call 00405324
007B6B2D 8D85ECFEFFFF lea eax, [ebp+$FFFFFEEC]
007B6B33 BA03000000 mov edx, $00000003
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6B38 E80BE8C4FF call 00405348
007B6B3D 8D85F8FEFFFF lea eax, [ebp+$FFFFFEF8]
* Reference to: System.@LStrClr(void;void);
|
007B6B43 E8DCE7C4FF call 00405324
007B6B48 8D85FCFEFFFF lea eax, [ebp+$FFFFFEFC]
007B6B4E BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6B53 E8F0E7C4FF call 00405348
007B6B58 8D8504FFFFFF lea eax, [ebp+$FFFFFF04]
* Reference to: System.@LStrClr(void;void);
|
007B6B5E E8C1E7C4FF call 00405324
007B6B63 8D8508FFFFFF lea eax, [ebp+$FFFFFF08]
007B6B69 BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6B6E E8D5E7C4FF call 00405348
007B6B73 8D8528FFFFFF lea eax, [ebp+$FFFFFF28]
* Reference to: System.@LStrClr(void;void);
|
007B6B79 E8A6E7C4FF call 00405324
007B6B7E 8D852CFFFFFF lea eax, [ebp+$FFFFFF2C]
* Reference to: System.@LStrClr(void;void);
|
007B6B84 E89BE7C4FF call 00405324
007B6B89 8D8530FFFFFF lea eax, [ebp+$FFFFFF30]
* Reference to: System.@LStrClr(void;void);
|
007B6B8F E890E7C4FF call 00405324
007B6B94 8D8534FFFFFF lea eax, [ebp+$FFFFFF34]
007B6B9A BA08000000 mov edx, $00000008
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6B9F E8A4E7C4FF call 00405348
007B6BA4 8D8554FFFFFF lea eax, [ebp+$FFFFFF54]
* Reference to: System.@LStrClr(void;void);
|
007B6BAA E875E7C4FF call 00405324
007B6BAF 8D8558FFFFFF lea eax, [ebp+$FFFFFF58]
007B6BB5 BA05000000 mov edx, $00000005
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6BBA E889E7C4FF call 00405348
007B6BBF 8D856CFFFFFF lea eax, [ebp+$FFFFFF6C]
* Reference to: System.@LStrClr(void;void);
|
007B6BC5 E85AE7C4FF call 00405324
007B6BCA 8D8570FFFFFF lea eax, [ebp+$FFFFFF70]
* Reference to: System.@LStrClr(void;void);
|
007B6BD0 E84FE7C4FF call 00405324
007B6BD5 8D8574FFFFFF lea eax, [ebp+$FFFFFF74]
* Reference to: System.@LStrClr(void;void);
|
007B6BDB E844E7C4FF call 00405324
007B6BE0 8D8578FFFFFF lea eax, [ebp+$FFFFFF78]
007B6BE6 BA0E000000 mov edx, $0000000E
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6BEB E858E7C4FF call 00405348
007B6BF0 8D45B0 lea eax, [ebp-$50]
* Reference to: System.@LStrClr(void;void);
|
007B6BF3 E82CE7C4FF call 00405324
007B6BF8 8D45B4 lea eax, [ebp-$4C]
* Reference to: System.@LStrClr(void;void);
|
007B6BFB E824E7C4FF call 00405324
007B6C00 8D45B8 lea eax, [ebp-$48]
* Reference to: System.@LStrClr(void;void);
|
007B6C03 E81CE7C4FF call 00405324
007B6C08 8D45BC lea eax, [ebp-$44]
* Reference to: System.@LStrClr(void;void);
|
007B6C0B E814E7C4FF call 00405324
007B6C10 8D45C0 lea eax, [ebp-$40]
* Reference to: System.@LStrClr(void;void);
|
007B6C13 E80CE7C4FF call 00405324
007B6C18 8D45C4 lea eax, [ebp-$3C]
007B6C1B BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6C20 E823E7C4FF call 00405348
007B6C25 8D45D4 lea eax, [ebp-$2C]
* Reference to: System.@LStrClr(void;void);
|
007B6C28 E8F7E6C4FF call 00405324
007B6C2D 8D45D8 lea eax, [ebp-$28]
* Reference to: System.@LStrClr(void;void);
|
007B6C30 E8EFE6C4FF call 00405324
007B6C35 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007B6C38 E8E7E6C4FF call 00405324
007B6C3D 8D45E0 lea eax, [ebp-$20]
007B6C40 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6C45 E8FEE6C4FF call 00405348
007B6C4A 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@LStrClr(void;void);
|
007B6C4D E8D2E6C4FF call 00405324
007B6C52 8D45EC lea eax, [ebp-$14]
007B6C55 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6C5A E8E9E6C4FF call 00405348
007B6C5F C3 ret
* Reference to: System.@HandleFinally;
|
007B6C60 E98FDEC4FF jmp 00404AF4
007B6C65 E9A8FEFFFF jmp 007B6B12
****** END
|
007B6C6A 5F pop edi
007B6C6B 5E pop esi
007B6C6C 5B pop ebx
007B6C6D 8BE5 mov esp, ebp
007B6C6F 5D pop ebp
007B6C70 C20400 ret $0004
*)
end;
procedure TfrmSelExportField._PROC_007B6CC9(Sender : TObject);
begin
(*
007B6CC9 8BEC mov ebp, esp
007B6CCB 83C4F4 add esp, -$0C
007B6CCE 33C9 xor ecx, ecx
007B6CD0 894DF4 mov [ebp-$0C], ecx
007B6CD3 8955F8 mov [ebp-$08], edx
007B6CD6 8945FC mov [ebp-$04], eax
007B6CD9 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B6CDC E803EBC4FF call 004057E4
007B6CE1 33C0 xor eax, eax
007B6CE3 55 push ebp
* Possible String Reference to: '<27>j<EFBFBD><6A><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]<5D>U<EFBFBD><55>3<EFBFBD>QQQQSV<53>ڋ<EFBFBD>3<EFBFBD>Uhmn{'
|
007B6CE4 68856D7B00 push $007B6D85
***** TRY
|
007B6CE9 64FF30 push dword ptr fs:[eax]
007B6CEC 648920 mov fs:[eax], esp
007B6CEF 33C0 xor eax, eax
007B6CF1 55 push ebp
007B6CF2 68636D7B00 push $007B6D63
***** TRY
|
007B6CF7 64FF30 push dword ptr fs:[eax]
007B6CFA 648920 mov fs:[eax], esp
007B6CFD 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007B6D00 E84F08D1FF call 004C7554
007B6D05 8D55F4 lea edx, [ebp-$0C]
007B6D08 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6D0B E8DC3BC5FF call 0040A8EC
007B6D10 837DF400 cmp dword ptr [ebp-$0C], +$00
007B6D14 750F jnz 007B6D25
007B6D16 33D2 xor edx, edx
007B6D18 8B45FC mov eax, [ebp-$04]
007B6D1B 8B08 mov ecx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_0190
|
007B6D1D FF9190010000 call dword ptr [ecx+$0190]
007B6D23 EB28 jmp 007B6D4D
007B6D25 33D2 xor edx, edx
007B6D27 8B45FC mov eax, [ebp-$04]
007B6D2A 8B08 mov ecx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_0190
|
007B6D2C FF9190010000 call dword ptr [ecx+$0190]
007B6D32 8B55F8 mov edx, [ebp-$08]
007B6D35 8B45FC mov eax, [ebp-$04]
007B6D38 8B08 mov ecx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_0198
|
007B6D3A FF9198010000 call dword ptr [ecx+$0198]
007B6D40 B201 mov dl, $01
007B6D42 8B45FC mov eax, [ebp-$04]
007B6D45 8B08 mov ecx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_0190
|
007B6D47 FF9190010000 call dword ptr [ecx+$0190]
007B6D4D 33C0 xor eax, eax
007B6D4F 5A pop edx
007B6D50 59 pop ecx
007B6D51 59 pop ecx
007B6D52 648910 mov fs:[eax], edx
****** FINALLY
|
007B6D55 686A6D7B00 push $007B6D6A
007B6D5A 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007B6D5D E81208D1FF call 004C7574
007B6D62 C3 ret
* Reference to: System.@HandleFinally;
|
007B6D63 E98CDDC4FF jmp 00404AF4
007B6D68 EBF0 jmp 007B6D5A
****** END
|
007B6D6A 33C0 xor eax, eax
007B6D6C 5A pop edx
007B6D6D 59 pop ecx
007B6D6E 59 pop ecx
007B6D6F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '<27><>]<5D>U<EFBFBD><55>3<EFBFBD>QQQQSV<53>ڋ<EFBFBD>3<EFBFBD>Uhmn{'
|
007B6D72 688C6D7B00 push $007B6D8C
007B6D77 8D45F4 lea eax, [ebp-$0C]
007B6D7A BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B6D7F E8C4E5C4FF call 00405348
007B6D84 C3 ret
* Reference to: System.@HandleFinally;
|
007B6D85 E96ADDC4FF jmp 00404AF4
007B6D8A EBEB jmp 007B6D77
****** END
|
007B6D8C 8BE5 mov esp, ebp
007B6D8E 5D pop ebp
007B6D8F C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B6D90(Sender : TObject);
begin
(*
007B6D90 55 push ebp
007B6D91 8BEC mov ebp, esp
007B6D93 33C9 xor ecx, ecx
007B6D95 51 push ecx
007B6D96 51 push ecx
007B6D97 51 push ecx
007B6D98 51 push ecx
007B6D99 53 push ebx
007B6D9A 56 push esi
007B6D9B 8BDA mov ebx, edx
007B6D9D 8BF0 mov esi, eax
007B6D9F 33C0 xor eax, eax
007B6DA1 55 push ebp
007B6DA2 686D6E7B00 push $007B6E6D
***** TRY
|
007B6DA7 64FF30 push dword ptr fs:[eax]
007B6DAA 648920 mov fs:[eax], esp
007B6DAD 8BC6 mov eax, esi
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B6DAF E80C11D1FF call 004C7EC0
007B6DB4 84C0 test al, al
007B6DB6 0F8583000000 jnz 007B6E3F
* Possible String Reference to: 'Ssel'
|
007B6DBC BA846E7B00 mov edx, $007B6E84
007B6DC1 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B6DC3 E8ECFDD0FF call 004C6BB4
007B6DC8 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B6DCA FF5244 call dword ptr [edx+$44]
007B6DCD 3C01 cmp al, $01
007B6DCF 7538 jnz 007B6E09
007B6DD1 8D55F8 lea edx, [ebp-$08]
007B6DD4 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B6DD6 E81518CDFF call 004885F0
007B6DDB 8B45F8 mov eax, [ebp-$08]
* Reference to: SysUtils.StrToCurr(AnsiString):Currency;overload;
|
007B6DDE E8356AC5FF call 0040D818
007B6DE3 DD4508 fld qword ptr [ebp+$08]
007B6DE6 D80D8C6E7B00 fmul dword ptr [$007B6E8C]
007B6DEC DEC1 faddp st(1), st(0)
007B6DEE 83C4F8 add esp, -$08
007B6DF1 DF3C24 fistp qword ptr [esp]
007B6DF4 9B wait
007B6DF5 8D45FC lea eax, [ebp-$04]
|
007B6DF8 E8DF67C5FF call 0040D5DC
007B6DFD 8B55FC mov edx, [ebp-$04]
007B6E00 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B6E02 E81918CDFF call 00488620
007B6E07 EB36 jmp 007B6E3F
007B6E09 8D55F0 lea edx, [ebp-$10]
007B6E0C 8BC3 mov eax, ebx
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007B6E0E E8DD17CDFF call 004885F0
007B6E13 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.StrToCurr(AnsiString):Currency;overload;
|
007B6E16 E8FD69C5FF call 0040D818
007B6E1B DD4508 fld qword ptr [ebp+$08]
007B6E1E D80D8C6E7B00 fmul dword ptr [$007B6E8C]
007B6E24 DEE9 fsubp st(1), st(0)
007B6E26 83C4F8 add esp, -$08
007B6E29 DF3C24 fistp qword ptr [esp]
007B6E2C 9B wait
007B6E2D 8D45F4 lea eax, [ebp-$0C]
|
007B6E30 E8A767C5FF call 0040D5DC
007B6E35 8B55F4 mov edx, [ebp-$0C]
007B6E38 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007B6E3A E8E117CDFF call 00488620
007B6E3F 33C0 xor eax, eax
007B6E41 5A pop edx
007B6E42 59 pop ecx
007B6E43 59 pop ecx
007B6E44 648910 mov fs:[eax], edx
****** FINALLY
|
007B6E47 68746E7B00 push $007B6E74
007B6E4C 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
007B6E4F E8D0E4C4FF call 00405324
007B6E54 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
007B6E57 E8C8E4C4FF call 00405324
007B6E5C 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007B6E5F E8C0E4C4FF call 00405324
007B6E64 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007B6E67 E8B8E4C4FF call 00405324
007B6E6C C3 ret
* Reference to: System.@HandleFinally;
|
007B6E6D E982DCC4FF jmp 00404AF4
007B6E72 EBD8 jmp 007B6E4C
****** END
|
007B6E74 5E pop esi
007B6E75 5B pop ebx
007B6E76 8BE5 mov esp, ebp
007B6E78 5D pop ebp
007B6E79 C20800 ret $0008
*)
end;
procedure TfrmSelExportField._PROC_007B6E91(Sender : TObject);
begin
(*
007B6E91 8BEC mov ebp, esp
007B6E93 83C4F4 add esp, -$0C
007B6E96 53 push ebx
007B6E97 56 push esi
007B6E98 57 push edi
007B6E99 33C9 xor ecx, ecx
007B6E9B 894DFC mov [ebp-$04], ecx
007B6E9E 8BFA mov edi, edx
007B6EA0 8BF0 mov esi, eax
007B6EA2 33C0 xor eax, eax
007B6EA4 55 push ebp
* Possible String Reference to: '<27>,<2C><><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007B6EA5 68C36F7B00 push $007B6FC3
***** TRY
|
007B6EAA 64FF30 push dword ptr fs:[eax]
007B6EAD 648920 mov fs:[eax], esp
007B6EB0 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007B6EB3 E86CE4C4FF call 00405324
007B6EB8 8B4738 mov eax, [edi+$38]
* Reference to: Classes.TCollection.Clear(TCollection);
|
007B6EBB E8B4D4C6FF call 00424374
007B6EC0 8BC6 mov eax, esi
* Reference to: Classes.TWriter.AddAncestor(TWriter;TComponent);
|
007B6EC2 E8D1F7D0FF call 004C6698
007B6EC7 48 dec eax
007B6EC8 85C0 test eax, eax
007B6ECA 0F8C83000000 jl 007B6F53
007B6ED0 40 inc eax
007B6ED1 8945F4 mov [ebp-$0C], eax
007B6ED4 33DB xor ebx, ebx
007B6ED6 8BD3 mov edx, ebx
* Reference to field TfrmSelExportField.Parent : TWinControl
|
007B6ED8 8B4630 mov eax, [esi+$30]
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B6EDB E8683DD0FF call 004BAC48
* Reference to field TWinControl.Left : Integer
|
007B6EE0 80784001 cmp byte ptr [eax+$40], $01
007B6EE4 751F jnz 007B6F05
007B6EE6 8BD3 mov edx, ebx
* Reference to field TfrmSelExportField.Parent : TWinControl
|
007B6EE8 8B4630 mov eax, [esi+$30]
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B6EEB E8583DD0FF call 004BAC48
007B6EF0 8B10 mov edx, [eax]
* Reference to method TWinControl.Update()
|
007B6EF2 FF9288000000 call dword ptr [edx+$0088]
007B6EF8 85C0 test eax, eax
007B6EFA 7509 jnz 007B6F05
007B6EFC C745F801000000 mov dword ptr [ebp-$08], $00000001
007B6F03 EB15 jmp 007B6F1A
007B6F05 8BD3 mov edx, ebx
* Reference to field TfrmSelExportField.Parent : TWinControl
|
007B6F07 8B4630 mov eax, [esi+$30]
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B6F0A E8393DD0FF call 004BAC48
007B6F0F 8B10 mov edx, [eax]
* Reference to method TWinControl.Update()
|
007B6F11 FF9288000000 call dword ptr [edx+$0088]
007B6F17 8945F8 mov [ebp-$08], eax
007B6F1A 8BD3 mov edx, ebx
* Reference to field TfrmSelExportField.Parent : TWinControl
|
007B6F1C 8B4630 mov eax, [esi+$30]
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B6F1F E8243DD0FF call 004BAC48
* Reference to field TWinControl.WindowProc : TWndMethod
|
007B6F24 8B4038 mov eax, [eax+$38]
007B6F27 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B6F2A E8BD39C5FF call 0040A8EC
007B6F2F 8B45F8 mov eax, [ebp-$08]
007B6F32 50 push eax
007B6F33 6A00 push $00
007B6F35 8BD3 mov edx, ebx
* Reference to field TfrmSelExportField.Parent : TWinControl
|
007B6F37 8B4630 mov eax, [esi+$30]
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B6F3A E8093DD0FF call 004BAC48
* Reference to field TWinControl.Left : Integer
|
007B6F3F 8A4840 mov cl, byte ptr [eax+$40]
007B6F42 8B4738 mov eax, [edi+$38]
007B6F45 8B55FC mov edx, [ebp-$04]
* Reference to: DB.TFieldDefs.Add(TFieldDefs;AnsiString;TFieldType;Integer;Boolean);
|
007B6F48 E88732D0FF call 004BA1D4
007B6F4D 43 inc ebx
007B6F4E FF4DF4 dec dword ptr [ebp-$0C]
007B6F51 7583 jnz 007B6ED6
007B6F53 6A01 push $01
007B6F55 6A00 push $00
007B6F57 8B4738 mov eax, [edi+$38]
007B6F5A B101 mov cl, $01
* Possible String Reference to: 'Sflag'
|
007B6F5C BADC6F7B00 mov edx, $007B6FDC
* Reference to: DB.TFieldDefs.Add(TFieldDefs;AnsiString;TFieldType;Integer;Boolean);
|
007B6F61 E86E32D0FF call 004BA1D4
007B6F66 6A00 push $00
007B6F68 6A00 push $00
007B6F6A 8B4738 mov eax, [edi+$38]
007B6F6D B103 mov cl, $03
* Possible String Reference to: 'Sindex'
|
007B6F6F BAEC6F7B00 mov edx, $007B6FEC
* Reference to: DB.TFieldDefs.Add(TFieldDefs;AnsiString;TFieldType;Integer;Boolean);
|
007B6F74 E85B32D0FF call 004BA1D4
007B6F79 6A00 push $00
007B6F7B 6A00 push $00
007B6F7D 8B4738 mov eax, [edi+$38]
007B6F80 B105 mov cl, $05
* Possible String Reference to: 'Ssel'
|
007B6F82 BAFC6F7B00 mov edx, $007B6FFC
* Reference to: DB.TFieldDefs.Add(TFieldDefs;AnsiString;TFieldType;Integer;Boolean);
|
007B6F87 E84832D0FF call 004BA1D4
007B6F8C 6A14 push $14
007B6F8E 6A00 push $00
007B6F90 8B4738 mov eax, [edi+$38]
007B6F93 B101 mov cl, $01
* Possible String Reference to: 'SDefNote'
|
007B6F95 BA0C707B00 mov edx, $007B700C
* Reference to: DB.TFieldDefs.Add(TFieldDefs;AnsiString;TFieldType;Integer;Boolean);
|
007B6F9A E83532D0FF call 004BA1D4
007B6F9F 8BC7 mov eax, edi
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B6FA1 E82EE9D0FF call 004C58D4
007B6FA6 8BC7 mov eax, edi
* Reference to: DBClient.TCustomClientDataSet.CreateDataSet(TCustomClientDataSet);
|
007B6FA8 E8F76EEFFF call 006ADEA4
007B6FAD 33C0 xor eax, eax
007B6FAF 5A pop edx
007B6FB0 59 pop ecx
007B6FB1 59 pop ecx
007B6FB2 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
007B6FB5 68CA6F7B00 push $007B6FCA
007B6FBA 8D45FC lea eax, [ebp-$04]
* Reference to: System.@LStrClr(void;void);
|
007B6FBD E862E3C4FF call 00405324
007B6FC2 C3 ret
* Reference to: System.@HandleFinally;
|
007B6FC3 E92CDBC4FF jmp 00404AF4
007B6FC8 EBF0 jmp 007B6FBA
****** END
|
007B6FCA 5F pop edi
007B6FCB 5E pop esi
007B6FCC 5B pop ebx
007B6FCD 8BE5 mov esp, ebp
007B6FCF 5D pop ebp
007B6FD0 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B7019(Sender : TObject);
begin
(*
007B7019 8BEC mov ebp, esp
007B701B B909000000 mov ecx, $00000009
007B7020 6A00 push $00
007B7022 6A00 push $00
007B7024 49 dec ecx
007B7025 75F9 jnz 007B7020
007B7027 51 push ecx
007B7028 53 push ebx
007B7029 56 push esi
007B702A 8955F8 mov [ebp-$08], edx
007B702D 8945FC mov [ebp-$04], eax
007B7030 33C0 xor eax, eax
007B7032 55 push ebp
007B7033 68EB717B00 push $007B71EB
***** TRY
|
007B7038 64FF30 push dword ptr fs:[eax]
007B703B 648920 mov fs:[eax], esp
007B703E 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B7041 E87A0ED1FF call 004C7EC0
007B7046 84C0 test al, al
007B7048 0F857C010000 jnz 007B71CA
007B704E 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007B7051 E8FE04D1FF call 004C7554
007B7056 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.First(TDataSet);
|
007B7059 E8D20FD1FF call 004C8030
007B705E C745F401000000 mov dword ptr [ebp-$0C], $00000001
007B7065 33C0 xor eax, eax
007B7067 55 push ebp
007B7068 68C3717B00 push $007B71C3
***** TRY
|
007B706D 64FF30 push dword ptr fs:[eax]
007B7070 648920 mov fs:[eax], esp
007B7073 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007B7076 E8D904D1FF call 004C7554
007B707B 33D2 xor edx, edx
007B707D 8B45F8 mov eax, [ebp-$08]
007B7080 8B08 mov ecx, [eax]
007B7082 FF9190010000 call dword ptr [ecx+$0190]
007B7088 E9EC000000 jmp 007B7179
007B708D 8B45F8 mov eax, [ebp-$08]
|
007B7090 E8FB14D1FF call 004C8590
007B7095 8B45FC mov eax, [ebp-$04]
* Reference to: Classes.TWriter.AddAncestor(TWriter;TComponent);
|
007B7098 E8FBF5D0FF call 004C6698
007B709D 8BF0 mov esi, eax
007B709F 4E dec esi
007B70A0 85F6 test esi, esi
007B70A2 7C36 jl 007B70DA
007B70A4 46 inc esi
007B70A5 33DB xor ebx, ebx
007B70A7 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSelExportField.Parent : TWinControl
|
007B70AA 8B4030 mov eax, [eax+$30]
007B70AD 8BD3 mov edx, ebx
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B70AF E8943BD0FF call 004BAC48
007B70B4 8D55E4 lea edx, [ebp-$1C]
007B70B7 8B08 mov ecx, [eax]
* Reference to method TWinControl.SetEnabled(Boolean)
|
007B70B9 FF5164 call dword ptr [ecx+$64]
007B70BC 8D45E4 lea eax, [ebp-$1C]
007B70BF 50 push eax
007B70C0 8B45F8 mov eax, [ebp-$08]
007B70C3 8B4030 mov eax, [eax+$30]
007B70C6 8BD3 mov edx, ebx
* Reference to: DB.TFields.GetField(TFields;Integer):TField;
|
007B70C8 E87B3BD0FF call 004BAC48
007B70CD 5A pop edx
007B70CE 8B08 mov ecx, [eax]
007B70D0 FF91B4000000 call dword ptr [ecx+$00B4]
007B70D6 43 inc ebx
007B70D7 4E dec esi
007B70D8 75CD jnz 007B70A7
* Possible String Reference to: 'Sflag'
|
007B70DA BA00727B00 mov edx, $007B7200
007B70DF 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B70E2 E8CDFAD0FF call 004C6BB4
007B70E7 BA10727B00 mov edx, $007B7210
007B70EC 8B08 mov ecx, [eax]
007B70EE FF91B0000000 call dword ptr [ecx+$00B0]
* Possible String Reference to: 'Sindex'
|
007B70F4 BA1C727B00 mov edx, $007B721C
007B70F9 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B70FC E8B3FAD0FF call 004C6BB4
007B7101 50 push eax
007B7102 8D45D4 lea eax, [ebp-$2C]
007B7105 8B55F4 mov edx, [ebp-$0C]
007B7108 B1FC mov cl, $FC
|
007B710A E8651AC6FF call 00418B74
007B710F 8D55D4 lea edx, [ebp-$2C]
007B7112 58 pop eax
007B7113 8B08 mov ecx, [eax]
007B7115 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'Ssel'
|
007B711B BA2C727B00 mov edx, $007B722C
007B7120 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B7123 E88CFAD0FF call 004C6BB4
007B7128 50 push eax
007B7129 8D45C4 lea eax, [ebp-$3C]
007B712C 33D2 xor edx, edx
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007B712E E8311CC6FF call 00418D64
007B7133 8D55C4 lea edx, [ebp-$3C]
007B7136 58 pop eax
007B7137 8B08 mov ecx, [eax]
007B7139 FF91B4000000 call dword ptr [ecx+$00B4]
* Possible String Reference to: 'SDefNote'
|
007B713F BA3C727B00 mov edx, $007B723C
007B7144 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B7147 E868FAD0FF call 004C6BB4
007B714C 50 push eax
007B714D 8D45B4 lea eax, [ebp-$4C]
007B7150 33D2 xor edx, edx
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B7152 E8711CC6FF call 00418DC8
007B7157 8D55B4 lea edx, [ebp-$4C]
007B715A 58 pop eax
007B715B 8B08 mov ecx, [eax]
007B715D FF91B4000000 call dword ptr [ecx+$00B4]
007B7163 FF45F4 inc dword ptr [ebp-$0C]
007B7166 8B45F8 mov eax, [ebp-$08]
007B7169 8B10 mov edx, [eax]
007B716B FF924C020000 call dword ptr [edx+$024C]
007B7171 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.Next(TDataSet);
|
007B7174 E8D311D1FF call 004C834C
007B7179 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmSelExportField.OFFS_00A1
|
007B717C 80B8A100000000 cmp byte ptr [eax+$00A1], $00
007B7183 0F8404FFFFFF jz 007B708D
007B7189 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B718C E82F0DD1FF call 004C7EC0
007B7191 84C0 test al, al
007B7193 7508 jnz 007B719D
007B7195 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.First(TDataSet);
|
007B7198 E8930ED1FF call 004C8030
007B719D 33C0 xor eax, eax
007B719F 5A pop edx
007B71A0 59 pop ecx
007B71A1 59 pop ecx
007B71A2 648910 mov fs:[eax], edx
****** FINALLY
|
007B71A5 68CA717B00 push $007B71CA
007B71AA 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.First(TDataSet);
|
007B71AD E87E0ED1FF call 004C8030
007B71B2 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007B71B5 E8BA03D1FF call 004C7574
007B71BA 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007B71BD E8B203D1FF call 004C7574
007B71C2 C3 ret
* Reference to: System.@HandleFinally;
|
007B71C3 E92CD9C4FF jmp 00404AF4
007B71C8 EBE0 jmp 007B71AA
****** END
|
007B71CA 33C0 xor eax, eax
007B71CC 5A pop edx
007B71CD 59 pop ecx
007B71CE 59 pop ecx
007B71CF 648910 mov fs:[eax], edx
****** FINALLY
|
007B71D2 68F2717B00 push $007B71F2
007B71D7 8D45B4 lea eax, [ebp-$4C]
* Reference to object Variant
|
007B71DA 8B153C114000 mov edx, [$0040113C]
007B71E0 B904000000 mov ecx, $00000004
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B71E5 E82AEFC4FF call 00406114
007B71EA C3 ret
* Reference to: System.@HandleFinally;
|
007B71EB E904D9C4FF jmp 00404AF4
007B71F0 EBE5 jmp 007B71D7
****** END
|
007B71F2 5E pop esi
007B71F3 5B pop ebx
007B71F4 8BE5 mov esp, ebp
007B71F6 5D pop ebp
007B71F7 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B7249(Sender : TObject);
begin
(*
007B7249 8BEC mov ebp, esp
007B724B 6A00 push $00
007B724D 6A00 push $00
007B724F 6A00 push $00
007B7251 53 push ebx
007B7252 56 push esi
007B7253 884DFF mov [ebp-$01], cl
007B7256 8BF2 mov esi, edx
007B7258 8BD8 mov ebx, eax
007B725A 8B4508 mov eax, [ebp+$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B725D E882E5C4FF call 004057E4
007B7262 33C0 xor eax, eax
007B7264 55 push ebp
007B7265 6844737B00 push $007B7344
***** TRY
|
007B726A 64FF30 push dword ptr fs:[eax]
007B726D 648920 mov fs:[eax], esp
007B7270 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B7272 E85DE6D0FF call 004C58D4
007B7277 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B7279 E82E6DD2FF call 004DDFAC
007B727E 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B7280 FF5244 call dword ptr [edx+$44]
007B7283 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B7285 E8226DD2FF call 004DDFAC
007B728A 8B5508 mov edx, [ebp+$08]
007B728D 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B728F FF5138 call dword ptr [ecx+$38]
007B7292 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007B7294 E82FE6D0FF call 004C58C8
007B7299 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B729B E8200CD1FF call 004C7EC0
007B72A0 84C0 test al, al
007B72A2 757D jnz 007B7321
007B72A4 8BC6 mov eax, esi
007B72A6 8B10 mov edx, [eax]
007B72A8 FF92D8000000 call dword ptr [edx+$00D8]
007B72AE EB34 jmp 007B72E4
* Possible String Reference to: 'Name'
|
007B72B0 BA5C737B00 mov edx, $007B735C
007B72B5 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B72B7 E8F8F8D0FF call 004C6BB4
007B72BC 8D55F4 lea edx, [ebp-$0C]
007B72BF 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B72C1 FF5160 call dword ptr [ecx+$60]
007B72C4 8B45F4 mov eax, [ebp-$0C]
007B72C7 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B72CA E81D36C5FF call 0040A8EC
007B72CF 8B55F8 mov edx, [ebp-$08]
007B72D2 8B863C020000 mov eax, [esi+$023C]
007B72D8 8B08 mov ecx, [eax]
007B72DA FF5138 call dword ptr [ecx+$38]
007B72DD 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
007B72DF E86810D1FF call 004C834C
* Reference to field TfrmSelExportField.OFFS_00A1
|
007B72E4 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
007B72EB 74C3 jz 007B72B0
007B72ED 807DFF00 cmp byte ptr [ebp-$01], $00
007B72F1 750D jnz 007B7300
007B72F3 33D2 xor edx, edx
007B72F5 8B863C020000 mov eax, [esi+$023C]
007B72FB 8B08 mov ecx, [eax]
007B72FD FF5138 call dword ptr [ecx+$38]
007B7300 807DFF00 cmp byte ptr [ebp-$01], $00
007B7304 741B jz 007B7321
007B7306 8B863C020000 mov eax, [esi+$023C]
007B730C 8B10 mov edx, [eax]
007B730E FF5214 call dword ptr [edx+$14]
007B7311 85C0 test eax, eax
007B7313 7E0C jle 007B7321
007B7315 33D2 xor edx, edx
007B7317 8BC6 mov eax, esi
007B7319 8B08 mov ecx, [eax]
007B731B FF91D0000000 call dword ptr [ecx+$00D0]
007B7321 33C0 xor eax, eax
007B7323 5A pop edx
007B7324 59 pop ecx
007B7325 59 pop ecx
007B7326 648910 mov fs:[eax], edx
****** FINALLY
|
007B7329 684B737B00 push $007B734B
007B732E 8D45F4 lea eax, [ebp-$0C]
007B7331 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B7336 E80DE0C4FF call 00405348
007B733B 8D4508 lea eax, [ebp+$08]
* Reference to: System.@LStrClr(void;void);
|
007B733E E8E1DFC4FF call 00405324
007B7343 C3 ret
* Reference to: System.@HandleFinally;
|
007B7344 E9ABD7C4FF jmp 00404AF4
007B7349 EBE3 jmp 007B732E
****** END
|
007B734B 5E pop esi
007B734C 5B pop ebx
007B734D 8BE5 mov esp, ebp
007B734F 5D pop ebp
007B7350 C20400 ret $0004
*)
end;
procedure TfrmSelExportField._PROC_007B7365(Sender : TObject);
begin
(*
007B7365 8BEC mov ebp, esp
007B7367 81C40CFFFFFF add esp, $FFFFFF0C
007B736D 53 push ebx
007B736E 56 push esi
007B736F 57 push edi
007B7370 33C9 xor ecx, ecx
007B7372 898D0CFFFFFF mov [ebp+$FFFFFF0C], ecx
007B7378 898D10FFFFFF mov [ebp+$FFFFFF10], ecx
007B737E 898D14FFFFFF mov [ebp+$FFFFFF14], ecx
007B7384 898D18FFFFFF mov [ebp+$FFFFFF18], ecx
007B738A 898D1CFFFFFF mov [ebp+$FFFFFF1C], ecx
007B7390 898D28FFFFFF mov [ebp+$FFFFFF28], ecx
007B7396 898D24FFFFFF mov [ebp+$FFFFFF24], ecx
007B739C 898D20FFFFFF mov [ebp+$FFFFFF20], ecx
007B73A2 8955F8 mov [ebp-$08], edx
007B73A5 8945FC mov [ebp-$04], eax
007B73A8 B933000000 mov ecx, $00000033
007B73AD 8D852CFFFFFF lea eax, [ebp+$FFFFFF2C]
* Reference to object String
|
007B73B3 8B1520114000 mov edx, [$00401120]
* Reference to: System.@InitializeArray(Pointer;Pointer;Cardinal);
|
007B73B9 E86AECC4FF call 00406028
007B73BE 33C0 xor eax, eax
007B73C0 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]Í@'
|
007B73C1 681B757B00 push $007B751B
***** TRY
|
007B73C6 64FF30 push dword ptr fs:[eax]
007B73C9 648920 mov fs:[eax], esp
007B73CC 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B73CF E8EC0AD1FF call 004C7EC0
007B73D4 84C0 test al, al
007B73D6 7418 jz 007B73F0
007B73D8 8B45F8 mov eax, [ebp-$08]
|
007B73DB E8B011D1FF call 004C8590
007B73E0 8B45F8 mov eax, [ebp-$08]
007B73E3 8B10 mov edx, [eax]
007B73E5 FF924C020000 call dword ptr [edx+$024C]
007B73EB E9EC000000 jmp 007B74DC
007B73F0 8B45FC mov eax, [ebp-$04]
* Reference to: Forms.TCustomForm.WMClose(TCustomForm;TWMClose;TWMClose);
| or: Forms.TCustomForm.CMRelease(TCustomForm;TMessage;TMessage);
| or: QForms.TCustomForm.SetParent(TCustomForm;TWidgetControl);
|
007B73F3 E84C4FEAFF call 0065C344
007B73F8 8BF0 mov esi, eax
007B73FA 4E dec esi
007B73FB 85F6 test esi, esi
007B73FD 7C61 jl 007B7460
007B73FF 46 inc esi
007B7400 33FF xor edi, edi
007B7402 8D9D2CFFFFFF lea ebx, [ebp+$FFFFFF2C]
007B7408 8BD7 mov edx, edi
007B740A 8B45FC mov eax, [ebp-$04]
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B740D E8BE45EBFF call 0066B9D0
|
007B7412 E80944EBFF call 0066B820
007B7417 8D9520FFFFFF lea edx, [ebp+$FFFFFF20]
|
007B741D E8A639EBFF call 0066ADC8
007B7422 8B9520FFFFFF mov edx, [ebp+$FFFFFF20]
007B7428 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B742B E884F7D0FF call 004C6BB4
007B7430 8D9524FFFFFF lea edx, [ebp+$FFFFFF24]
007B7436 8B08 mov ecx, [eax]
007B7438 FF5160 call dword ptr [ecx+$60]
007B743B 8B8524FFFFFF mov eax, [ebp+$FFFFFF24]
007B7441 8D9528FFFFFF lea edx, [ebp+$FFFFFF28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B7447 E8A034C5FF call 0040A8EC
007B744C 8B9528FFFFFF mov edx, [ebp+$FFFFFF28]
007B7452 8BC3 mov eax, ebx
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B7454 E81FDFC4FF call 00405378
007B7459 47 inc edi
007B745A 83C304 add ebx, +$04
007B745D 4E dec esi
007B745E 75A8 jnz 007B7408
007B7460 8B45F8 mov eax, [ebp-$08]
|
007B7463 E82811D1FF call 004C8590
007B7468 8B45FC mov eax, [ebp-$04]
* Reference to: Forms.TCustomForm.WMClose(TCustomForm;TWMClose;TWMClose);
| or: Forms.TCustomForm.CMRelease(TCustomForm;TMessage;TMessage);
| or: QForms.TCustomForm.SetParent(TCustomForm;TWidgetControl);
|
007B746B E8D44EEAFF call 0065C344
007B7470 8BF0 mov esi, eax
007B7472 4E dec esi
007B7473 85F6 test esi, esi
007B7475 7C5A jl 007B74D1
007B7477 46 inc esi
007B7478 33FF xor edi, edi
007B747A 8D9D2CFFFFFF lea ebx, [ebp+$FFFFFF2C]
007B7480 833B00 cmp dword ptr [ebx], +$00
007B7483 7445 jz 007B74CA
007B7485 8BD7 mov edx, edi
007B7487 8B45FC mov eax, [ebp-$04]
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B748A E84145EBFF call 0066B9D0
|
007B748F E88C43EBFF call 0066B820
007B7494 8D951CFFFFFF lea edx, [ebp+$FFFFFF1C]
|
007B749A E82939EBFF call 0066ADC8
007B749F 8B951CFFFFFF mov edx, [ebp+$FFFFFF1C]
007B74A5 8B45F8 mov eax, [ebp-$08]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B74A8 E807F7D0FF call 004C6BB4
007B74AD 50 push eax
007B74AE 8D850CFFFFFF lea eax, [ebp+$FFFFFF0C]
007B74B4 8B13 mov edx, [ebx]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B74B6 E80D19C6FF call 00418DC8
007B74BB 8D950CFFFFFF lea edx, [ebp+$FFFFFF0C]
007B74C1 58 pop eax
007B74C2 8B08 mov ecx, [eax]
007B74C4 FF91B4000000 call dword ptr [ecx+$00B4]
007B74CA 47 inc edi
007B74CB 83C304 add ebx, +$04
007B74CE 4E dec esi
007B74CF 75AF jnz 007B7480
007B74D1 8B45F8 mov eax, [ebp-$08]
007B74D4 8B10 mov edx, [eax]
007B74D6 FF924C020000 call dword ptr [edx+$024C]
007B74DC 33C0 xor eax, eax
007B74DE 5A pop edx
007B74DF 59 pop ecx
007B74E0 59 pop ecx
007B74E1 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]Í@'
|
007B74E4 6822757B00 push $007B7522
007B74E9 8D850CFFFFFF lea eax, [ebp+$FFFFFF0C]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B74EF E880D1C5FF call 00414674
007B74F4 8D851CFFFFFF lea eax, [ebp+$FFFFFF1C]
007B74FA BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B74FF E844DEC4FF call 00405348
007B7504 8D852CFFFFFF lea eax, [ebp+$FFFFFF2C]
007B750A B933000000 mov ecx, $00000033
* Reference to object String
|
007B750F 8B1520114000 mov edx, [$00401120]
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B7515 E8FAEBC4FF call 00406114
007B751A C3 ret
* Reference to: System.@HandleFinally;
|
007B751B E9D4D5C4FF jmp 00404AF4
007B7520 EBC7 jmp 007B74E9
****** END
|
007B7522 5F pop edi
007B7523 5E pop esi
007B7524 5B pop ebx
007B7525 8BE5 mov esp, ebp
007B7527 5D pop ebp
007B7528 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B752C(Sender : TObject);
begin
(*
007B752C 55 push ebp
007B752D 8BEC mov ebp, esp
007B752F B90C000000 mov ecx, $0000000C
007B7534 6A00 push $00
007B7536 6A00 push $00
007B7538 49 dec ecx
007B7539 75F9 jnz 007B7534
007B753B 53 push ebx
007B753C 56 push esi
007B753D 8BDA mov ebx, edx
007B753F 8BF0 mov esi, eax
007B7541 33C0 xor eax, eax
007B7543 55 push ebp
007B7544 68FB767B00 push $007B76FB
***** TRY
|
007B7549 64FF30 push dword ptr fs:[eax]
007B754C 648920 mov fs:[eax], esp
007B754F 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
007B7551 E8F64DEAFF call 0065C34C
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B7556 E809A6E9FF call 00651B64
* Reference to field TfrmSelExportField.ControlStyle : TControlStyle
|
007B755B 8B4050 mov eax, [eax+$50]
007B755E 8D55F4 lea edx, [ebp-$0C]
007B7561 8B08 mov ecx, [eax]
* Possible reference to virtual method TControlStyle.OFFS_10
|
007B7563 FF5110 call dword ptr [ecx+$10]
007B7566 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
007B7568 E8DF4DEAFF call 0065C34C
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B756D E8F2A5E9FF call 00651B64
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7572 8B801C010000 mov eax, [eax+$011C]
007B7578 8D4DF0 lea ecx, [ebp-$10]
007B757B BA02000000 mov edx, $00000002
|
007B7580 E86B29EAFF call 00659EF0
007B7585 8B55F4 mov edx, [ebp-$0C]
007B7588 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B758A E825F6D0FF call 004C6BB4
007B758F 8D55EC lea edx, [ebp-$14]
007B7592 8B08 mov ecx, [eax]
007B7594 FF5160 call dword ptr [ecx+$60]
007B7597 8B45EC mov eax, [ebp-$14]
007B759A 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B759D E84A33C5FF call 0040A8EC
007B75A2 8D55E8 lea edx, [ebp-$18]
007B75A5 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B75A8 E83F33C5FF call 0040A8EC
007B75AD 837DE800 cmp dword ptr [ebp-$18], +$00
007B75B1 741D jz 007B75D0
007B75B3 8B55F0 mov edx, [ebp-$10]
007B75B6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B75B8 E8F7F5D0FF call 004C6BB4
007B75BD 8D55E4 lea edx, [ebp-$1C]
007B75C0 8B08 mov ecx, [eax]
007B75C2 FF5160 call dword ptr [ecx+$60]
007B75C5 8B45E4 mov eax, [ebp-$1C]
007B75C8 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B75CB E81C33C5FF call 0040A8EC
007B75D0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007B75D2 E87DFFD0FF call 004C7554
007B75D7 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.First(TDataSet);
|
007B75D9 E8520AD1FF call 004C8030
007B75DE E9BB000000 jmp 007B769E
007B75E3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007B75E5 E8560ED1FF call 004C8440
007B75EA 837DFC00 cmp dword ptr [ebp-$04], +$00
007B75EE 7521 jnz 007B7611
007B75F0 8B55F4 mov edx, [ebp-$0C]
007B75F3 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B75F5 E8BAF5D0FF call 004C6BB4
007B75FA 50 push eax
007B75FB 8D45D4 lea eax, [ebp-$2C]
* 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);
|
007B75FE E85D5DC6FF call 0041D360
007B7603 8D55D4 lea edx, [ebp-$2C]
007B7606 58 pop eax
007B7607 8B08 mov ecx, [eax]
007B7609 FF91B4000000 call dword ptr [ecx+$00B4]
007B760F EB22 jmp 007B7633
007B7611 8B55F4 mov edx, [ebp-$0C]
007B7614 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B7616 E899F5D0FF call 004C6BB4
007B761B 50 push eax
007B761C 8D45C4 lea eax, [ebp-$3C]
007B761F 8B55FC mov edx, [ebp-$04]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B7622 E8A117C6FF call 00418DC8
007B7627 8D55C4 lea edx, [ebp-$3C]
007B762A 58 pop eax
007B762B 8B08 mov ecx, [eax]
007B762D FF91B4000000 call dword ptr [ecx+$00B4]
007B7633 8D55C0 lea edx, [ebp-$40]
007B7636 8B45F0 mov eax, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B7639 E8AE32C5FF call 0040A8EC
007B763E 837DC000 cmp dword ptr [ebp-$40], +$00
007B7642 7449 jz 007B768D
007B7644 837DF800 cmp dword ptr [ebp-$08], +$00
007B7648 7521 jnz 007B766B
007B764A 8B55F0 mov edx, [ebp-$10]
007B764D 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B764F E860F5D0FF call 004C6BB4
007B7654 50 push eax
007B7655 8D45B0 lea eax, [ebp-$50]
* 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);
|
007B7658 E8035DC6FF call 0041D360
007B765D 8D55B0 lea edx, [ebp-$50]
007B7660 58 pop eax
007B7661 8B08 mov ecx, [eax]
007B7663 FF91B4000000 call dword ptr [ecx+$00B4]
007B7669 EB22 jmp 007B768D
007B766B 8B55F0 mov edx, [ebp-$10]
007B766E 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B7670 E83FF5D0FF call 004C6BB4
007B7675 50 push eax
007B7676 8D45A0 lea eax, [ebp-$60]
007B7679 8B55F8 mov edx, [ebp-$08]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007B767C E84717C6FF call 00418DC8
007B7681 8D55A0 lea edx, [ebp-$60]
007B7684 58 pop eax
007B7685 8B08 mov ecx, [eax]
007B7687 FF91B4000000 call dword ptr [ecx+$00B4]
007B768D 8BC3 mov eax, ebx
007B768F 8B10 mov edx, [eax]
007B7691 FF924C020000 call dword ptr [edx+$024C]
007B7697 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Next(TDataSet);
|
007B7699 E8AE0CD1FF call 004C834C
007B769E 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
007B76A5 0F8438FFFFFF jz 007B75E3
007B76AB 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007B76AD E8C2FED0FF call 004C7574
007B76B2 33C0 xor eax, eax
007B76B4 5A pop edx
007B76B5 59 pop ecx
007B76B6 59 pop ecx
007B76B7 648910 mov fs:[eax], edx
****** FINALLY
|
007B76BA 6802777B00 push $007B7702
007B76BF 8D45A0 lea eax, [ebp-$60]
* Reference to object Variant
|
007B76C2 8B153C114000 mov edx, [$0040113C]
007B76C8 B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B76CD E842EAC4FF call 00406114
007B76D2 8D45C0 lea eax, [ebp-$40]
* Reference to: System.@LStrClr(void;void);
|
007B76D5 E84ADCC4FF call 00405324
007B76DA 8D45C4 lea eax, [ebp-$3C]
* Reference to object Variant
|
007B76DD 8B153C114000 mov edx, [$0040113C]
007B76E3 B902000000 mov ecx, $00000002
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B76E8 E827EAC4FF call 00406114
007B76ED 8D45E4 lea eax, [ebp-$1C]
007B76F0 BA07000000 mov edx, $00000007
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B76F5 E84EDCC4FF call 00405348
007B76FA C3 ret
* Reference to: System.@HandleFinally;
|
007B76FB E9F4D3C4FF jmp 00404AF4
007B7700 EBBD jmp 007B76BF
****** END
|
007B7702 5E pop esi
007B7703 5B pop ebx
007B7704 8BE5 mov esp, ebp
007B7706 5D pop ebp
007B7707 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B7708(Sender : TObject);
begin
(*
007B7708 55 push ebp
007B7709 8BEC mov ebp, esp
007B770B 51 push ecx
007B770C B906000000 mov ecx, $00000006
007B7711 6A00 push $00
007B7713 6A00 push $00
007B7715 49 dec ecx
007B7716 75F9 jnz 007B7711
007B7718 874DFC xchg [ebp-$04], ecx
007B771B 53 push ebx
007B771C 56 push esi
007B771D 57 push edi
007B771E 894DFC mov [ebp-$04], ecx
007B7721 8BF2 mov esi, edx
007B7723 8BD8 mov ebx, eax
007B7725 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7728 E8B7E0C4FF call 004057E4
007B772D 8B4510 mov eax, [ebp+$10]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7730 E8AFE0C4FF call 004057E4
007B7735 33C0 xor eax, eax
007B7737 55 push ebp
007B7738 681D797B00 push $007B791D
***** TRY
|
007B773D 64FF30 push dword ptr fs:[eax]
007B7740 648920 mov fs:[eax], esp
007B7743 33C0 xor eax, eax
007B7745 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD>3<EFBFBD>j@h|y{'
|
007B7746 68B7787B00 push $007B78B7
***** TRY
|
007B774B 64FF30 push dword ptr fs:[eax]
007B774E 648920 mov fs:[eax], esp
007B7751 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007B7753 E87CE1D0FF call 004C58D4
007B7758 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B775A E84D68D2FF call 004DDFAC
007B775F 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B7761 FF5244 call dword ptr [edx+$44]
007B7764 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B7766 E84168D2FF call 004DDFAC
* Possible String Reference to: 'exec Get_SY_MaxBH '
|
007B776B BA38797B00 mov edx, $007B7938
007B7770 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B7772 FF5138 call dword ptr [ecx+$38]
007B7775 8D55F4 lea edx, [ebp-$0C]
007B7778 8B45FC mov eax, [ebp-$04]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B777B E87432C5FF call 0040A9F4
007B7780 8B4DF4 mov ecx, [ebp-$0C]
007B7783 8D45F8 lea eax, [ebp-$08]
007B7786 BA54797B00 mov edx, $007B7954
* Reference to: System.@LStrCat3;
|
007B778B E8B0DEC4FF call 00405640
007B7790 8B45F8 mov eax, [ebp-$08]
007B7793 50 push eax
007B7794 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B7796 E81168D2FF call 004DDFAC
007B779B 5A pop edx
007B779C 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B779E FF5138 call dword ptr [ecx+$38]
007B77A1 8D55EC lea edx, [ebp-$14]
007B77A4 8B4510 mov eax, [ebp+$10]
* Reference to: SysUtils.QuotedStr(AnsiString):AnsiString;
|
007B77A7 E84832C5FF call 0040A9F4
007B77AC 8B4DEC mov ecx, [ebp-$14]
007B77AF 8D45F0 lea eax, [ebp-$10]
007B77B2 BA60797B00 mov edx, $007B7960
* Reference to: System.@LStrCat3;
|
007B77B7 E884DEC4FF call 00405640
007B77BC 8B45F0 mov eax, [ebp-$10]
007B77BF 50 push eax
007B77C0 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B77C2 E8E567D2FF call 004DDFAC
007B77C7 5A pop edx
007B77C8 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B77CA FF5138 call dword ptr [ecx+$38]
007B77CD 8D55E4 lea edx, [ebp-$1C]
007B77D0 8B450C mov eax, [ebp+$0C]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
007B77D3 E83437C5FF call 0040AF0C
007B77D8 8B4DE4 mov ecx, [ebp-$1C]
007B77DB 8D45E8 lea eax, [ebp-$18]
007B77DE BA60797B00 mov edx, $007B7960
* Reference to: System.@LStrCat3;
|
007B77E3 E858DEC4FF call 00405640
007B77E8 8B45E8 mov eax, [ebp-$18]
007B77EB 50 push eax
007B77EC 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B77EE E8B967D2FF call 004DDFAC
007B77F3 5A pop edx
007B77F4 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B77F6 FF5138 call dword ptr [ecx+$38]
007B77F9 8D55DC lea edx, [ebp-$24]
007B77FC 8B4508 mov eax, [ebp+$08]
* Reference to: SysUtils.IntToStr(Integer):AnsiString;overload;
|
007B77FF E80837C5FF call 0040AF0C
007B7804 8B4DDC mov ecx, [ebp-$24]
007B7807 8D45E0 lea eax, [ebp-$20]
007B780A BA60797B00 mov edx, $007B7960
* Reference to: System.@LStrCat3;
|
007B780F E82CDEC4FF call 00405640
007B7814 8B45E0 mov eax, [ebp-$20]
007B7817 50 push eax
007B7818 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B781A E88D67D2FF call 004DDFAC
007B781F 5A pop edx
007B7820 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007B7822 FF5138 call dword ptr [ecx+$38]
007B7825 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007B7827 E89CE0D0FF call 004C58C8
007B782C 8BC3 mov eax, ebx
007B782E 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_014C
|
007B7830 FF924C010000 call dword ptr [edx+$014C]
007B7836 85C0 test eax, eax
007B7838 7E36 jle 007B7870
* Possible String Reference to: 'MaxBH'
|
007B783A BA6C797B00 mov edx, $007B796C
007B783F 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B7841 E86EF3D0FF call 004C6BB4
007B7846 8D55D4 lea edx, [ebp-$2C]
007B7849 8B08 mov ecx, [eax]
* Reference to method TfrmSelExportField.SetDragMode(TDragMode)
|
007B784B FF5160 call dword ptr [ecx+$60]
007B784E 8B45D4 mov eax, [ebp-$2C]
007B7851 8D55D8 lea edx, [ebp-$28]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B7854 E89330C5FF call 0040A8EC
007B7859 8B55D8 mov edx, [ebp-$28]
007B785C 8BC6 mov eax, esi
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B785E E815DBC4FF call 00405378
007B7863 833E00 cmp dword ptr [esi], +$00
007B7866 7404 jz 007B786C
007B7868 B301 mov bl, $01
007B786A EB06 jmp 007B7872
007B786C 33DB xor ebx, ebx
007B786E EB02 jmp 007B7872
007B7870 33DB xor ebx, ebx
007B7872 84DB test bl, bl
007B7874 7537 jnz 007B78AD
007B7876 6A40 push $40
* Possible String Reference to: '<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>('
|
007B7878 687C797B00 push $007B797C
007B787D FF75FC push dword ptr [ebp-$04]
007B7880 6894797B00 push $007B7994
007B7885 8D45D0 lea eax, [ebp-$30]
007B7888 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007B788D E822DEC4FF call 004056B4
007B7892 8B45D0 mov eax, [ebp-$30]
* Reference to: System.@LStrToPChar(String):PAnsiChar;
|
007B7895 E85ADFC4FF call 004057F4
007B789A 8BD0 mov edx, eax
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007B789C B998797B00 mov ecx, $007B7998
*)
end;
procedure TfrmSelExportField._PROC_007B79A5(Sender : TObject);
begin
(*
007B79A5 8BEC mov ebp, esp
007B79A7 6A00 push $00
007B79A9 6A00 push $00
007B79AB 6A00 push $00
007B79AD 6A00 push $00
007B79AF 6A00 push $00
007B79B1 6A00 push $00
007B79B3 53 push ebx
007B79B4 894DF8 mov [ebp-$08], ecx
007B79B7 8BDA mov ebx, edx
007B79B9 8945FC mov [ebp-$04], eax
007B79BC 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B79BF E820DEC4FF call 004057E4
007B79C4 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B79C7 E818DEC4FF call 004057E4
007B79CC 33C0 xor eax, eax
007B79CE 55 push ebp
007B79CF 68687A7B00 push $007B7A68
***** TRY
|
007B79D4 64FF30 push dword ptr fs:[eax]
007B79D7 648920 mov fs:[eax], esp
007B79DA 8D55EC lea edx, [ebp-$14]
*)
end;
procedure TfrmSelExportField._PROC_007B7AA5(Sender : TObject);
begin
(*
007B7AA5 8BEC mov ebp, esp
007B7AA7 6A00 push $00
007B7AA9 6A00 push $00
007B7AAB 6A00 push $00
007B7AAD 6A00 push $00
007B7AAF 6A00 push $00
007B7AB1 6A00 push $00
007B7AB3 53 push ebx
007B7AB4 894DF8 mov [ebp-$08], ecx
007B7AB7 8BDA mov ebx, edx
007B7AB9 8945FC mov [ebp-$04], eax
007B7ABC 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7ABF E820DDC4FF call 004057E4
007B7AC4 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7AC7 E818DDC4FF call 004057E4
007B7ACC 33C0 xor eax, eax
007B7ACE 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007B7ACF 68617B7B00 push $007B7B61
***** TRY
|
007B7AD4 64FF30 push dword ptr fs:[eax]
007B7AD7 648920 mov fs:[eax], esp
007B7ADA 8D55EC lea edx, [ebp-$14]
*)
end;
procedure TfrmSelExportField._PROC_007B7BA1(Sender : TObject);
begin
(*
007B7BA1 8BEC mov ebp, esp
007B7BA3 6A00 push $00
007B7BA5 6A00 push $00
007B7BA7 6A00 push $00
007B7BA9 6A00 push $00
007B7BAB 6A00 push $00
007B7BAD 6A00 push $00
007B7BAF 6A00 push $00
007B7BB1 6A00 push $00
007B7BB3 53 push ebx
007B7BB4 894DF8 mov [ebp-$08], ecx
007B7BB7 8BDA mov ebx, edx
007B7BB9 8945FC mov [ebp-$04], eax
007B7BBC 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7BBF E820DCC4FF call 004057E4
007B7BC4 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7BC7 E818DCC4FF call 004057E4
007B7BCC 33C0 xor eax, eax
007B7BCE 55 push ebp
* Possible String Reference to: '<27>r<EFBFBD><72><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007B7BCF 687D7C7B00 push $007B7C7D
***** TRY
|
007B7BD4 64FF30 push dword ptr fs:[eax]
007B7BD7 648920 mov fs:[eax], esp
007B7BDA 8D55EC lea edx, [ebp-$14]
*)
end;
procedure TfrmSelExportField._PROC_007B7CBD(Sender : TObject);
begin
(*
007B7CBD 8BEC mov ebp, esp
007B7CBF 6A00 push $00
007B7CC1 6A00 push $00
007B7CC3 6A00 push $00
007B7CC5 6A00 push $00
007B7CC7 6A00 push $00
007B7CC9 6A00 push $00
007B7CCB 6A00 push $00
007B7CCD 6A00 push $00
007B7CCF 53 push ebx
007B7CD0 894DF8 mov [ebp-$08], ecx
007B7CD3 8BDA mov ebx, edx
007B7CD5 8945FC mov [ebp-$04], eax
007B7CD8 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7CDB E804DBC4FF call 004057E4
007B7CE0 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B7CE3 E8FCDAC4FF call 004057E4
007B7CE8 33C0 xor eax, eax
007B7CEA 55 push ebp
* Possible String Reference to: '<27>V<EFBFBD><56><EFBFBD><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007B7CEB 68997D7B00 push $007B7D99
***** TRY
|
007B7CF0 64FF30 push dword ptr fs:[eax]
007B7CF3 648920 mov fs:[eax], esp
007B7CF6 8D55EC lea edx, [ebp-$14]
*)
end;
procedure TfrmSelExportField._PROC_007B7DD9(Sender : TObject);
begin
(*
007B7DD9 8BEC mov ebp, esp
007B7DDB 33C9 xor ecx, ecx
007B7DDD 51 push ecx
007B7DDE 51 push ecx
007B7DDF 51 push ecx
007B7DE0 51 push ecx
007B7DE1 51 push ecx
007B7DE2 53 push ebx
007B7DE3 56 push esi
007B7DE4 57 push edi
007B7DE5 8BF0 mov esi, eax
007B7DE7 33C0 xor eax, eax
007B7DE9 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007B7DEA 6810807B00 push $007B8010
***** TRY
|
007B7DEF 64FF30 push dword ptr fs:[eax]
007B7DF2 648920 mov fs:[eax], esp
007B7DF5 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
| or: QForms.TCustomForm.GetCanvas(TCustomForm):TCanvas;
|
007B7DF7 E8E83BEBFF call 0066B9E4
* Reference to field TfrmSelExportField.OnMouseMove : TMouseMoveEvent
|
007B7DFC 8B80D8000000 mov eax, [eax+$00D8]
007B7E02 33D2 xor edx, edx
007B7E04 55 push ebp
007B7E05 68E67F7B00 push $007B7FE6
***** TRY
|
007B7E0A 64FF32 push dword ptr fs:[edx]
007B7E0D 648922 mov fs:[edx], esp
* Reference to field TMouseMoveEvent.OFFS_0004
|
007B7E10 8B4004 mov eax, [eax+$04]
007B7E13 8B80D8000000 mov eax, [eax+$00D8]
007B7E19 8B4034 mov eax, [eax+$34]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
007B7E1C E82BCFD5FF call 00514D4C
007B7E21 8945FC mov [ebp-$04], eax
007B7E24 8B45FC mov eax, [ebp-$04]
|
007B7E27 E858CED5FF call 00514C84
* Reference to: Classes.TCollection.Clear(TCollection);
|
007B7E2C E843C5C6FF call 00424374
007B7E31 8BC6 mov eax, esi
* Reference to: Forms.TCustomForm.WMClose(TCustomForm;TWMClose;TWMClose);
| or: Forms.TCustomForm.CMRelease(TCustomForm;TMessage;TMessage);
| or: QForms.TCustomForm.SetParent(TCustomForm;TWidgetControl);
|
007B7E33 E80C45EAFF call 0065C344
007B7E38 48 dec eax
007B7E39 85C0 test eax, eax
007B7E3B 0F8C97010000 jl 007B7FD8
007B7E41 40 inc eax
007B7E42 8945F4 mov [ebp-$0C], eax
007B7E45 33DB xor ebx, ebx
007B7E47 8BD3 mov edx, ebx
007B7E49 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7E4B E8803BEBFF call 0066B9D0
007B7E50 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_00D0
|
007B7E52 FF92D0000000 call dword ptr [edx+$00D0]
007B7E58 84C0 test al, al
007B7E5A 0F846E010000 jz 007B7FCE
007B7E60 8BD3 mov edx, ebx
007B7E62 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7E64 E8673BEBFF call 0066B9D0
|
007B7E69 E8B239EBFF call 0066B820
007B7E6E 8D55F8 lea edx, [ebp-$08]
|
007B7E71 E8522FEBFF call 0066ADC8
007B7E76 8BD3 mov edx, ebx
007B7E78 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7E7A E8513BEBFF call 0066B9D0
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7E7F 8B801C010000 mov eax, [eax+$011C]
007B7E85 33D2 xor edx, edx
|
007B7E87 E89420EAFF call 00659F20
007B7E8C 3C01 cmp al, $01
007B7E8E 0F85A2000000 jnz 007B7F36
007B7E94 8B45FC mov eax, [ebp-$04]
007B7E97 8B4010 mov eax, [eax+$10]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
007B7E9A E8C5C0D5FF call 00513F64
007B7E9F 8BF8 mov edi, eax
007B7EA1 8BD3 mov edx, ebx
007B7EA3 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7EA5 E8263BEBFF call 0066B9D0
007B7EAA 8BD0 mov edx, eax
007B7EAC 8BC7 mov eax, edi
|
007B7EAE E859BCD5FF call 00513B0C
007B7EB3 33D2 xor edx, edx
007B7EB5 8BC7 mov eax, edi
|
007B7EB7 E840C0D5FF call 00513EFC
007B7EBC B201 mov dl, $01
007B7EBE 8BC7 mov eax, edi
|
007B7EC0 E827C0D5FF call 00513EEC
007B7EC5 8BD3 mov edx, ebx
007B7EC7 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7EC9 E8023BEBFF call 0066B9D0
007B7ECE 8D55EC lea edx, [ebp-$14]
* Reference to : TcxCustomGridTableView._PROC_00629378()
|
007B7ED1 E8A214E7FF call 00629378
007B7ED6 8B45EC mov eax, [ebp-$14]
007B7ED9 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007B7EDC E80B2AC5FF call 0040A8EC
007B7EE1 8D45F0 lea eax, [ebp-$10]
* Possible String Reference to: 'С<><D0A1>=#,0.0'
|
007B7EE4 BA28807B00 mov edx, $007B8028
* Reference to: System.@LStrCat;
|
007B7EE9 E80ED7C4FF call 004055FC
007B7EEE 8B55F0 mov edx, [ebp-$10]
007B7EF1 8BC7 mov eax, edi
|
007B7EF3 E8CCBFD5FF call 00513EC4
007B7EF8 8BD3 mov edx, ebx
007B7EFA 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7EFC E8CF3AEBFF call 0066B9D0
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7F01 8B801C010000 mov eax, [eax+$011C]
007B7F07 B101 mov cl, $01
007B7F09 BA01000000 mov edx, $00000001
|
007B7F0E E86520EAFF call 00659F78
007B7F13 8BD3 mov edx, ebx
007B7F15 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7F17 E8B43AEBFF call 0066B9D0
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7F1C 8B801C010000 mov eax, [eax+$011C]
* Possible String Reference to: '#,0.00'
|
007B7F22 B93C807B00 mov ecx, $007B803C
007B7F27 BA01000000 mov edx, $00000001
|
007B7F2C E81720EAFF call 00659F48
007B7F31 E998000000 jmp 007B7FCE
007B7F36 8BD3 mov edx, ebx
007B7F38 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7F3A E8913AEBFF call 0066B9D0
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7F3F 8B801C010000 mov eax, [eax+$011C]
007B7F45 33D2 xor edx, edx
|
007B7F47 E8D41FEAFF call 00659F20
007B7F4C 3C04 cmp al, $04
007B7F4E 755D jnz 007B7FAD
007B7F50 8BD3 mov edx, ebx
007B7F52 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7F54 E8773AEBFF call 0066B9D0
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7F59 8B801C010000 mov eax, [eax+$011C]
007B7F5F B104 mov cl, $04
007B7F61 33D2 xor edx, edx
|
007B7F63 E81020EAFF call 00659F78
007B7F68 8BD3 mov edx, ebx
007B7F6A 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7F6C E85F3AEBFF call 0066B9D0
* Reference to field TfrmSelExportField.OFFS_011C
|
007B7F71 8B801C010000 mov eax, [eax+$011C]
007B7F77 B104 mov cl, $04
007B7F79 BA01000000 mov edx, $00000001
|
007B7F7E E8F51FEAFF call 00659F78
007B7F83 8B45FC mov eax, [ebp-$04]
007B7F86 8B4010 mov eax, [eax+$10]
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
007B7F89 E8D6BFD5FF call 00513F64
007B7F8E 8BF8 mov edi, eax
007B7F90 8BD3 mov edx, ebx
007B7F92 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7F94 E8373AEBFF call 0066B9D0
007B7F99 8BD0 mov edx, eax
007B7F9B 8BC7 mov eax, edi
|
007B7F9D E86ABBD5FF call 00513B0C
007B7FA2 B204 mov dl, $04
007B7FA4 8BC7 mov eax, edi
|
007B7FA6 E841BFD5FF call 00513EEC
007B7FAB EB21 jmp 007B7FCE
007B7FAD 8B45FC mov eax, [ebp-$04]
|
007B7FB0 E8CFCCD5FF call 00514C84
* Reference to: ActnMan.TActionListCollection.GetActionManager(TActionListCollection):TCustomActionManager;
| or: ActnMan.TActionBars.Add(TActionBars):TActionBarItem;
| or: ActnMan.TActionClients.Add(TActionClients):TActionClientItem;
| or: ActnMenus.TMenuStack.Peek(TMenuStack):TCustomActionMenuBar;
| or: ComCtrls.TStatusPanels.Add(TStatusPanels):TStatusPanel;
| or: ComCtrls.TWorkAreas.Add(TWorkAreas):TWorkArea;
|
007B7FB5 E8E2CAD5FF call 00514A9C
007B7FBA 8BF8 mov edi, eax
007B7FBC 8BD3 mov edx, ebx
007B7FBE 8BC6 mov eax, esi
* Reference to: Contnrs.TComponentList.Extract(TComponentList;TComponent):TComponent;
| or: Contnrs.TComponentList.GetItems(TComponentList;Integer):TComponent;
|
007B7FC0 E80B3AEBFF call 0066B9D0
007B7FC5 8BD0 mov edx, eax
007B7FC7 8BC7 mov eax, edi
|
007B7FC9 E83EBBD5FF call 00513B0C
007B7FCE 43 inc ebx
007B7FCF FF4DF4 dec dword ptr [ebp-$0C]
007B7FD2 0F856FFEFFFF jnz 007B7E47
007B7FD8 33C0 xor eax, eax
007B7FDA 5A pop edx
007B7FDB 59 pop ecx
007B7FDC 59 pop ecx
007B7FDD 648910 mov fs:[eax], edx
****** FINALLY
|
007B7FE0 68ED7F7B00 push $007B7FED
007B7FE5 C3 ret
* Reference to: System.@HandleFinally;
|
007B7FE6 E909CBC4FF jmp 00404AF4
007B7FEB EBF8 jmp 007B7FE5
****** END
|
007B7FED 33C0 xor eax, eax
007B7FEF 5A pop edx
007B7FF0 59 pop ecx
007B7FF1 59 pop ecx
007B7FF2 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[<5B><>]<5D>'
|
007B7FF5 6817807B00 push $007B8017
007B7FFA 8D45EC lea eax, [ebp-$14]
007B7FFD BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007B8002 E841D3C4FF call 00405348
007B8007 8D45F8 lea eax, [ebp-$08]
* Reference to: System.@LStrClr(void;void);
|
007B800A E815D3C4FF call 00405324
007B800F C3 ret
* Reference to: System.@HandleFinally;
|
007B8010 E9DFCAC4FF jmp 00404AF4
007B8015 EBE3 jmp 007B7FFA
****** END
|
007B8017 5F pop edi
007B8018 5E pop esi
007B8019 5B pop ebx
007B801A 8BE5 mov esp, ebp
007B801C 5D pop ebp
007B801D C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B8045(Sender : TObject);
begin
(*
007B8045 8BEC mov ebp, esp
007B8047 83C4F4 add esp, -$0C
007B804A 53 push ebx
007B804B 56 push esi
007B804C 57 push edi
007B804D 33C9 xor ecx, ecx
007B804F 894DF4 mov [ebp-$0C], ecx
007B8052 8BDA mov ebx, edx
007B8054 8945FC mov [ebp-$04], eax
007B8057 8B45FC mov eax, [ebp-$04]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B805A E885D7C4FF call 004057E4
007B805F 33C0 xor eax, eax
007B8061 55 push ebp
* Possible String Reference to: '<27>N<EFBFBD><4E><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007B8062 68A1817B00 push $007B81A1
***** TRY
|
007B8067 64FF30 push dword ptr fs:[eax]
007B806A 648920 mov fs:[eax], esp
007B806D 33C0 xor eax, eax
007B806F 55 push ebp
007B8070 687C817B00 push $007B817C
***** TRY
|
007B8075 64FF30 push dword ptr fs:[eax]
007B8078 648920 mov fs:[eax], esp
007B807B 33C9 xor ecx, ecx
007B807D B201 mov dl, $01
* Reference to class TSaveDialog
|
007B807F A1A4EC4300 mov eax, dword ptr [$0043ECA4]
* Reference to: Dialogs.TOpenDialog.Create(TOpenDialog;boolean;TComponent);
|
007B8084 E8F77CC8FF call 0043FD80
007B8089 8945F8 mov [ebp-$08], eax
007B808C 8B45F8 mov eax, [ebp-$08]
007B808F 83C060 add eax, +$60
* Possible String Reference to: 'xls(*.xls)|*.xls|ȫ<><C8AB>(*.*)|*.*'
|
007B8092 BAB8817B00 mov edx, $007B81B8
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B8097 E8DCD2C4FF call 00405378
007B809C 8B45F8 mov eax, [ebp-$08]
007B809F 8B15D8817B00 mov edx, [$007B81D8]
* Reference to field TSaveDialog.Options : TOpenOptions
|
007B80A5 89505C mov [eax+$5C], edx
007B80A8 8B45F8 mov eax, [ebp-$08]
007B80AB 83C078 add eax, +$78
007B80AE 8B55FC mov edx, [ebp-$04]
* Reference to: System.@LStrAsg(void;void;void;void);
|
007B80B1 E8C2D2C4FF call 00405378
007B80B6 8B45F8 mov eax, [ebp-$08]
007B80B9 8B10 mov edx, [eax]
* Reference to method TSaveDialog.Execute()
|
007B80BB FF523C call dword ptr [edx+$3C]
007B80BE 84C0 test al, al
007B80C0 0F84A0000000 jz 007B8166
007B80C6 85DB test ebx, ebx
007B80C8 0F8480000000 jz 007B814E
007B80CE 33C0 xor eax, eax
007B80D0 55 push ebp
* Possible String Reference to: '<27>5<EFBFBD><35><EFBFBD>j'
|
007B80D1 6806817B00 push $007B8106
***** TRY
|
007B80D6 64FF30 push dword ptr fs:[eax]
007B80D9 648920 mov fs:[eax], esp
007B80DC 6A01 push $01
007B80DE 6A01 push $01
* Possible String Reference to: 'xls'
|
007B80E0 68E4817B00 push $007B81E4
007B80E5 8D55F4 lea edx, [ebp-$0C]
007B80E8 8B45F8 mov eax, [ebp-$08]
* Reference to: Dialogs.TOpenDialog.GetFileName(TOpenDialog):TFileName;
|
007B80EB E8D884C8FF call 004405C8
007B80F0 8B45F4 mov eax, [ebp-$0C]
007B80F3 B101 mov cl, $01
007B80F5 8BD3 mov edx, ebx
|
007B80F7 E87096EEFF call 006A176C
007B80FC 33C0 xor eax, eax
007B80FE 5A pop edx
007B80FF 59 pop ecx
007B8100 59 pop ecx
007B8101 648910 mov fs:[eax], edx
007B8104 EB2E jmp 007B8134
* Reference to: System.@HandleAnyException;
|
007B8106 E935C7C4FF jmp 00404840
007B810B 6A00 push $00
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007B810D B9E8817B00 mov ecx, $007B81E8
* Possible String Reference to: '<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>,Դ<>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD>ܴ<EFBFBD><DCB4>ڱ༭״̬!'
|
007B8112 BAF4817B00 mov edx, $007B81F4
*)
end;
procedure TfrmSelExportField._PROC_007B8231(Sender : TObject);
begin
(*
007B8231 8BEC mov ebp, esp
007B8233 83C4EC add esp, -$14
007B8236 53 push ebx
007B8237 56 push esi
007B8238 57 push edi
007B8239 33DB xor ebx, ebx
007B823B 895DEC mov [ebp-$14], ebx
007B823E 895DF0 mov [ebp-$10], ebx
007B8241 894DF8 mov [ebp-$08], ecx
007B8244 8955FC mov [ebp-$04], edx
007B8247 8BF0 mov esi, eax
007B8249 8B45F8 mov eax, [ebp-$08]
* Reference to: System.@LStrAddRef(void;void):Pointer;
|
007B824C E893D5C4FF call 004057E4
007B8251 33C0 xor eax, eax
007B8253 55 push ebp
* Possible String Reference to: '<EFBFBD>Z<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<EFBFBD><EFBFBD>]ÐU<EFBFBD><EFBFBD>3<EFBFBD>QQQQSV<EFBFBD>ڋ<EFBFBD>3<EFBFBD>UhW
| <EFBFBD>{'
|
007B8254 6895847B00 push $007B8495
***** TRY
|
007B8259 64FF30 push dword ptr fs:[eax]
007B825C 648920 mov fs:[eax], esp
007B825F 8B45FC mov eax, [ebp-$04]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B8262 E859FCD0FF call 004C7EC0
007B8267 84C0 test al, al
007B8269 0F8503020000 jnz 007B8472
007B826F 33D2 xor edx, edx
007B8271 55 push ebp
007B8272 6868847B00 push $007B8468
***** TRY
|
007B8277 64FF32 push dword ptr fs:[edx]
007B827A 648922 mov fs:[edx], esp
*)
end;
procedure TfrmSelExportField._PROC_007B84A4(Sender : TObject);
begin
(*
007B84A4 55 push ebp
007B84A5 8BEC mov ebp, esp
007B84A7 33C9 xor ecx, ecx
007B84A9 51 push ecx
007B84AA 51 push ecx
007B84AB 51 push ecx
007B84AC 51 push ecx
007B84AD 53 push ebx
007B84AE 56 push esi
007B84AF 8BDA mov ebx, edx
007B84B1 8BF0 mov esi, eax
007B84B3 33C0 xor eax, eax
007B84B5 55 push ebp
007B84B6 6857857B00 push $007B8557
***** TRY
|
007B84BB 64FF30 push dword ptr fs:[eax]
007B84BE 648920 mov fs:[eax], esp
007B84C1 8BC6 mov eax, esi
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007B84C3 E8F8F9D0FF call 004C7EC0
007B84C8 84C0 test al, al
007B84CA 7575 jnz 007B8541
007B84CC 8BC6 mov eax, esi
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007B84CE E881F0D0FF call 004C7554
007B84D3 8BC6 mov eax, esi
* Reference to: DB.TDataSet.First(TDataSet);
|
007B84D5 E856FBD0FF call 004C8030
007B84DA EB55 jmp 007B8531
* Possible String Reference to: 'SSel'
|
007B84DC BA6C857B00 mov edx, $007B856C
007B84E1 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B84E3 E8CCE6D0FF call 004C6BB4
007B84E8 8B10 mov edx, [eax]
* Reference to method TfrmSelExportField.GetClientRect()
|
007B84EA FF5244 call dword ptr [edx+$44]
007B84ED 8BD3 mov edx, ebx
007B84EF 80F201 xor dl, $01
007B84F2 3AC2 cmp al, dl
007B84F4 7534 jnz 007B852A
007B84F6 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007B84F8 E843FFD0FF call 004C8440
* Possible String Reference to: 'SSel'
|
007B84FD BA6C857B00 mov edx, $007B856C
007B8502 8BC6 mov eax, esi
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007B8504 E8ABE6D0FF call 004C6BB4
007B8509 50 push eax
007B850A 8D45F0 lea eax, [ebp-$10]
007B850D 8BD3 mov edx, ebx
* Reference to: Variants.@VarFromBool(TVarData;TVarData;Boolean);
|
007B850F E85008C6FF call 00418D64
007B8514 8D55F0 lea edx, [ebp-$10]
007B8517 58 pop eax
007B8518 8B08 mov ecx, [eax]
007B851A FF91B4000000 call dword ptr [ecx+$00B4]
007B8520 8BC6 mov eax, esi
007B8522 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmSelExportField.OFFS_024C
|
007B8524 FF924C020000 call dword ptr [edx+$024C]
007B852A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.Next(TDataSet);
|
007B852C E81BFED0FF call 004C834C
* Reference to field TfrmSelExportField.OFFS_00A1
|
007B8531 80BEA100000000 cmp byte ptr [esi+$00A1], $00
007B8538 74A2 jz 007B84DC
007B853A 8BC6 mov eax, esi
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007B853C E833F0D0FF call 004C7574
007B8541 33C0 xor eax, eax
007B8543 5A pop edx
007B8544 59 pop ecx
007B8545 59 pop ecx
007B8546 648910 mov fs:[eax], edx
****** FINALLY
|
007B8549 685E857B00 push $007B855E
007B854E 8D45F0 lea eax, [ebp-$10]
* Reference to: Variants.@VarClr(TVarData;TVarData);
|
007B8551 E81EC1C5FF call 00414674
007B8556 C3 ret
* Reference to: System.@HandleFinally;
|
007B8557 E998C5C4FF jmp 00404AF4
007B855C EBF0 jmp 007B854E
****** END
|
007B855E 5E pop esi
007B855F 5B pop ebx
007B8560 8BE5 mov esp, ebp
007B8562 5D pop ebp
007B8563 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B87F1(Sender : TObject);
begin
(*
007B87F1 8BEC mov ebp, esp
007B87F3 33C0 xor eax, eax
007B87F5 55 push ebp
* Possible String Reference to: '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>]Ã-<2D>;<3B>'
|
007B87F6 686B887B00 push $007B886B
***** TRY
|
007B87FB 64FF30 push dword ptr fs:[eax]
007B87FE 648920 mov fs:[eax], esp
007B8801 FF05EC3B8900 inc dword ptr [$00893BEC]
007B8807 7554 jnz 007B885D
007B8809 B8E4FD8800 mov eax, $0088FDE4
007B880E B90A000000 mov ecx, $0000000A
* Reference to object String
|
007B8813 8B1520114000 mov edx, [$00401120]
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B8819 E8F6D8C4FF call 00406114
007B881E B8D4FD8800 mov eax, $0088FDD4
007B8823 B904000000 mov ecx, $00000004
* Reference to object String
|
007B8828 8B1520114000 mov edx, [$00401120]
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B882E E8E1D8C4FF call 00406114
007B8833 B888FD8800 mov eax, $0088FD88
007B8838 B913000000 mov ecx, $00000013
* Reference to object String
|
007B883D 8B1520114000 mov edx, [$00401120]
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B8843 E8CCD8C4FF call 00406114
007B8848 B868FD8800 mov eax, $0088FD68
007B884D B908000000 mov ecx, $00000008
* Reference to object String
|
007B8852 8B1520114000 mov edx, [$00401120]
* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
007B8858 E8B7D8C4FF call 00406114
007B885D 33C0 xor eax, eax
007B885F 5A pop edx
007B8860 59 pop ecx
007B8861 59 pop ecx
007B8862 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ã-<2D>;<3B>'
|
007B8865 6872887B00 push $007B8872
007B886A C3 ret
* Reference to: System.@HandleFinally;
|
007B886B E984C2C4FF jmp 00404AF4
007B8870 EBF8 jmp 007B886A
****** END
|
007B8872 5D pop ebp
007B8873 C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B8874(Sender : TObject);
begin
(*
007B8874 832DEC3B890001 sub dword ptr [$00893BEC], +$01
007B887B C3 ret
*)
end;
procedure TfrmSelExportField._PROC_007B887C(Sender : TObject);
begin
(*
007B887C 80887B00081954 or byte ptr [eax+$1908007B], $54
007B8883 63784F arpl [eax+$4F], di
007B8886 6E outsb
007B8887 47 inc edi
007B8888 657443 jz 007B88CE
007B888B 6F outsd
007B888C 6E outsb
007B888D 7465 jz 007B88F4
007B888F 6E outsb
007B8890 7453 jz 007B88E5
007B8892 7479 jz 007B890D
007B8894 6C insb
007B8895 6545 inc ebp
007B8897 7665 jbe 007B88FE
007B8899 6E outsb
007B889A 7400 jz 007B889C
007B889C 0308 add ecx, [eax]
007B889E 06 push es
007B889F 53 push ebx
007B88A0 656E outsb
007B88A2 64657207 jb 007B88AD
007B88A6 54 push esp
007B88A7 4F dec edi
007B88A8 626A65 bound ebp, qword ptr [edx+$65]
007B88AB 63740005 arpl [eax+eax+$05], si
007B88AF 41 inc ecx
007B88B0 44 inc esp
007B88B1 61 popa
007B88B2 7461 jz 007B8915
007B88B4 07 pop es
007B88B5 50 push eax
007B88B6 6F outsd
007B88B7 696E7465722806 imul ebp, [esi+$74], $06287265
007B88BE 41 inc ecx
007B88BF 53 push ebx
007B88C0 7479 jz 007B893B
007B88C2 6C insb
007B88C3 6508546378 or gs:[ebx+$78], dl
007B88C8 53 push ebx
007B88C9 7479 jz 007B8944
007B88CB 6C insb
007B88CC 6500B011400000 add gs:[eax+$4011], dh
007B88D3 0000 add [eax], al
007B88D5 00E8 add al, ch
007B88D7 704F jo 007B8928
007B88D9 008BC028897B add [ebx+$7B8928C0], cl
007B88DF 0000 add [eax], al
007B88E1 0000 add [eax], al
007B88E3 0000 add [eax], al
007B88E5 0000 add [eax], al
007B88E7 0000 add [eax], al
007B88E9 0000 add [eax], al
007B88EB 006889 add [eax-$77], ch
007B88EE 7B00 jnp 007B88F0
007B88F0 0000 add [eax], al
007B88F2 0000 add [eax], al
007B88F4 0000 add [eax], al
007B88F6 0000 add [eax], al
007B88F8 0000 add [eax], al
007B88FA 0000 add [eax], al
007B88FC 4C dec esp
007B88FD 897B00 mov [ebx+$00], edi
007B8900 40 inc eax
007B8901 0000 add [eax], al
007B8903 001472 add [edx+esi*2], dl
007B8906 4F dec edi
007B8907 00A84540005C add [eax+$5C004045], ch
007B890D 3E42 inc edx
007B890F 00B8454000BC add [eax+$BC004045], bh
007B8915 45 inc ebp
007B8916 40 inc eax
007B8917 00B0454000E4 add [eax+$E4004045], dh
007B891D 42 inc edx
007B891E 40 inc eax
007B891F 0000 add [eax], al
007B8921 43 inc ebx
007B8922 40 inc eax
007B8923 00BC8D7B009C3D add [ebp+ecx*4+$3D9C007B], bh
007B892A 42 inc edx
007B892B 00A43D4200EC8D add [ebp+edi+$8DEC0042], ah
007B8932 7B00 jnp 007B8934
007B8934 EC in al, dx
007B8935 3E42 inc edx
007B8937 00748D7B add [ebp+ecx*4+$7B], dh
007B893B 009C8E7B00007D add [esi+ecx*4+$7D00007B], bl
007B8942 4F dec edi
007B8943 00D0 add al, dl
007B8945 8E7B00 mov , word ptr [ebx+$00]
007B8948 7C83 jl 007B88CD
007B894A 4F dec edi
007B894B 0016 add [esi], dl
007B894D 54 push esp
007B894E 637843 arpl [eax+$43], di
007B8951 7573 jnz 007B89C6
007B8953 746F jz 007B89C4
007B8955 6D insd
007B8956 43 inc ebx
007B8957 6F outsd
007B8958 6E outsb
007B8959 7472 jz 007B89CD
007B895B 6F outsd
007B895C 6C insb
007B895D 53 push ebx
007B895E 7479 jz 007B89D9
007B8960 6C insb
007B8961 657390 jnb 007B88F4
007B8964 68897B0007 push $07007B89
007B8969 16 push ss
007B896A 54 push esp
007B896B 637843 arpl [eax+$43], di
007B896E 7573 jnz 007B89E3
007B8970 746F jz 007B89E1
007B8972 6D insd
007B8973 43 inc ebx
007B8974 6F outsd
007B8975 6E outsb
007B8976 7472 jz 007B89EA
007B8978 6F outsd
007B8979 6C insb
007B897A 53 push ebx
007B897B 7479 jz 007B89F6
007B897D 6C insb
007B897E 657328 jnb 007B89A9
007B8981 897B00 mov [ebx+$00], edi
007B8984 90 nop
007B8985 724F jb 007B89D6
007B8987 0006 add [esi], al
007B8989 0012 add [edx], dl
007B898B 637849 arpl [eax+$49], di
007B898E 6E outsb
007B898F 706C jo 007B89FD
007B8991 61 popa
007B8992 636543 arpl [ebp+$43], sp
007B8995 6F outsd
007B8996 6E outsb
007B8997 7461 jz 007B89FA
007B8999 696E65720600E8 imul ebp, [esi+$65], $E8000672
007B89A0 704F jo 007B89F1
007B89A2 004883 add [eax-$7D], cl
007B89A5 4F dec edi
007B89A6 005C834F add [ebx+eax*4+$4F], bl
007B89AA 0001 add [ecx], al
007B89AC 0000 add [eax], al
007B89AE 0001 add [ecx], al
007B89B0 0000 add [eax], al
007B89B2 0000 add [eax], al
007B89B4 0000 add [eax], al
007B89B6 800000 add byte ptr [eax], $00
007B89B9 0A4261 or al, byte ptr [edx+$61]
007B89BC 636B67 arpl [ebx+$67], bp
007B89BF 726F jb 007B8A30
007B89C1 756E jnz 007B8A31
007B89C3 64E8704F0048 call 487BD939
007B89C9 834F005C or dword ptr [edi+$00], +$5C
007B89CD 834F0001 or dword ptr [edi+$00], +$01
007B89D1 0000 add [eax], al
007B89D3 0000 add [eax], al
007B89D5 0000 add [eax], al
007B89D7 0000 add [eax], al
007B89D9 0000 add [eax], al
007B89DB 800100 add byte ptr [ecx], $00
007B89DE 07 pop es
007B89DF 43 inc ebx
007B89E0 6F outsd
007B89E1 6E outsb
007B89E2 7465 jz 007B8A49
007B89E4 6E outsb
007B89E5 74E8 jz 007B89CF
007B89E7 704F jo 007B8A38
007B89E9 004883 add [eax-$7D], cl
007B89EC 4F dec edi
007B89ED 005C834F add [ebx+eax*4+$4F], bl
007B89F1 0001 add [ecx], al
007B89F3 0000 add [eax], al
007B89F5 0002 add [edx], al
007B89F7 0000 add [eax], al
007B89F9 0000 add [eax], al
007B89FB 0000 add [eax], al
007B89FD 800200 add byte ptr [edx], $00
007B8A00 08496E or [ecx+$6E], cl
007B8A03 61 popa
007B8A04 63746976 arpl [ecx+ebp*2+$76], si
007B8A08 65E8704F0048 call 487BD97E
007B8A0E 834F005C or dword ptr [edi+$00], +$5C
007B8A12 834F0001 or dword ptr [edi+$00], +$01
007B8A16 0000 add [eax], al
007B8A18 0003 add [ebx], al
007B8A1A 0000 add [eax], al
007B8A1C 0000 add [eax], al
007B8A1E 0000 add [eax], al
007B8A20 800300 add byte ptr [ebx], $00
007B8A23 095365 or [ebx+$65], edx
007B8A26 6C insb
007B8A27 656374696F arpl gs:[ecx+ebp*2+$6F], si
007B8A2C 6E outsb
007B8A2D 7C88 jl 007B89B7
007B8A2F 7B00 jnp 007B8A31
007B8A31 3800 cmp [eax], al
007B8A33 00FF add bh, bh
007B8A35 3800 cmp [eax], al
007B8A37 00FF add bh, bh
007B8A39 0100 add [eax], eax
007B8A3B 0000 add [eax], al
007B8A3D 0000 add [eax], al
007B8A3F 008000000080 add [eax+$80000000], al
007B8A45 0400 add al, +$00
007B8A47 114F6E adc [edi+$6E], ecx
007B8A4A 47 inc edi
007B8A4B 657443 jz 007B8A91
007B8A4E 6F outsd
007B8A4F 6E outsb
007B8A50 7465 jz 007B8AB7
007B8A52 6E outsb
007B8A53 7453 jz 007B8AA8
007B8A55 7479 jz 007B8AD0
007B8A57 6C insb
007B8A58 654C dec esp
007B8A5A 6D insd
007B8A5B 4F dec edi
007B8A5C 0018 add [eax], bl
007B8A5E 0000 add [eax], al
007B8A60 FF3480 push dword ptr [eax+eax*4]
007B8A63 4F dec edi
007B8A64 0001 add [ecx], al
007B8A66 0000 add [eax], al
007B8A68 0000 add [eax], al
007B8A6A 0000 add [eax], al
007B8A6C 800000 add byte ptr [eax], $00
007B8A6F 008005000A53 add [eax+$530A0005], al
007B8A75 7479 jz 007B8AF0
007B8A77 6C insb
007B8A78 6553 push ebx
007B8A7A 686565748B push $8B746565
007B8A7F C0CC8A ror ah, $8A
007B8A82 7B00 jnp 007B8A84
007B8A84 0000 add [eax], al
007B8A86 0000 add [eax], al
007B8A88 0000 add [eax], al
007B8A8A 0000 add [eax], al
007B8A8C 0000 add [eax], al
007B8A8E 0000 add [eax], al
007B8A90 0000 add [eax], al
007B8A92 0000 add [eax], al
007B8A94 0000 add [eax], al
007B8A96 0000 add [eax], al
007B8A98 0000 add [eax], al
007B8A9A 0000 add [eax], al
007B8A9C 0000 add [eax], al
007B8A9E 0000 add [eax], al
007B8AA0 CC int 3
007B8AA1 8A7B00 mov bh, byte ptr [ebx+$00]
007B8AA4 0800 or [eax], al
007B8AA6 0000 add [eax], al
007B8AA8 5C pop esp
007B8AA9 114000 adc [eax+$00], eax
007B8AAC A845 test al, $45
007B8AAE 40 inc eax
007B8AAF 00B4454000B845 add [ebp+eax*2+$45B80040], dh
007B8AB6 40 inc eax
007B8AB7 00BC454000B045 add [ebp+eax*2+$45B00040], bh
007B8ABE 40 inc eax
007B8ABF 00E4 add ah, ah
007B8AC1 42 inc edx
007B8AC2 40 inc eax
007B8AC3 0000 add [eax], al
007B8AC5 43 inc ebx
007B8AC6 40 inc eax
007B8AC7 004091 add [eax-$6F], al
007B8ACA 7B00 jnp 007B8ACC
007B8ACC 1B546378 sbb edx, [ebx+$78]
007B8AD0 56 push esi
007B8AD1 61 popa
007B8AD2 6C insb
007B8AD3 7565 jnz 007B8B3A
007B8AD5 54 push esp
007B8AD6 7970 jns 007B8B48
007B8AD8 6543 inc ebx
007B8ADA 6C insb
007B8ADB 61 popa
007B8ADC 7373 jnb 007B8B51
007B8ADE 52 push edx
007B8ADF 65706F jo 007B8B51
007B8AE2 7369 jnb 007B8B4D
007B8AE4 746F jz 007B8B55
007B8AE6 7279 jb 007B8B61
007B8AE8 55 push ebp
007B8AE9 8BEC mov ebp, esp
007B8AEB 33C0 xor eax, eax
007B8AED 55 push ebp
007B8AEE 68298B7B00 push $007B8B29
***** TRY
|
007B8AF3 64FF30 push dword ptr fs:[eax]
007B8AF6 648920 mov fs:[eax], esp
007B8AF9 833DFC3B890000 cmp dword ptr [$00893BFC], +$00
007B8B00 740B jz 007B8B0D
007B8B02 A1FC3B8900 mov eax, dword ptr [$00893BFC]
007B8B07 50 push eax
* Reference to: user32.UnhookWindowsHookEx()
|
007B8B08 E83703C5FF call 00408E44
007B8B0D 33C0 xor eax, eax
007B8B0F 5A pop edx
007B8B10 59 pop ecx
007B8B11 59 pop ecx
007B8B12 648910 mov fs:[eax], edx
****** FINALLY
|
007B8B15 68308B7B00 push $007B8B30
007B8B1A 33C0 xor eax, eax
* Reference to GlobalVar_00893BF8
|
007B8B1C A3F83B8900 mov dword ptr [$00893BF8], eax
007B8B21 33C0 xor eax, eax
* Reference to GlobalVar_00893BFC
|
007B8B23 A3FC3B8900 mov dword ptr [$00893BFC], eax
007B8B28 C3 ret
* Reference to: System.@HandleFinally;
|
007B8B29 E9C6BFC4FF jmp 00404AF4
007B8B2E EBEA jmp 007B8B1A
****** END
|
007B8B30 5D pop ebp
007B8B31 C3 ret
007B8B32 8BC0 mov eax, eax
007B8B34 53 push ebx
007B8B35 56 push esi
007B8B36 8BD8 mov ebx, eax
007B8B38 8BC3 mov eax, ebx
007B8B3A 66BEFFFF mov si, $FFFF
* Reference to: System.@CallDynaInst;
|
007B8B3E E811BAC4FF call 00404554
007B8B43 5E pop esi
007B8B44 5B pop ebx
007B8B45 C3 ret
007B8B46 8BC0 mov eax, eax
007B8B48 53 push ebx
007B8B49 8BD8 mov ebx, eax
007B8B4B 8BC3 mov eax, ebx
|
007B8B4D E8E2FFFFFF call 007B8B34
* Reference to field GlobalVar_00893BFC.OFFS_0038
|
007B8B52 8B4038 mov eax, [eax+$38]
007B8B55 5B pop ebx
007B8B56 C3 ret
007B8B57 90 nop
*)
end;
end.
Reference in New Issue Copy Permalink