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

3257 lines
115 KiB
ObjectPascal
Raw Permalink Normal View History

1
2024-07-23 20:18:14 +08:00
unit U_ZDYHelp;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmZDYHelp=class(TForm)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
V1Code: TcxGridDBColumn;
V1Name: TcxGridDBColumn;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DataSource1: TDataSource;
ClientDataSet1: TClientDataSet;
TBAdd: TToolButton;
TBSave: TToolButton;
TBDel: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
TBEdit: TToolButton;
V1Note: TcxGridDBColumn;
V1OrderNo: TcxGridDBColumn;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
ZDYName: TEdit;
ThreeImgList: TImageList;
Label2: TLabel;
cxGridPopupMenu1: TcxGridPopupMenu;
V1ZdyFlag: TcxGridDBColumn;
V1HelpType: TcxGridDBColumn;
V1Ssel: TcxGridDBColumn;
Note: TcxGridDBColumn;
v1note1: TcxGridDBColumn;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure TBAddClick(Sender : TObject);
procedure TBSaveClick(Sender : TObject);
procedure TBDelClick(Sender : TObject);
procedure TBCloseClick(Sender : TObject);
procedure FormShow(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure TBEditClick(Sender : TObject);
procedure TV1CellDblClick(Sender : TObject);
procedure ZDYNameChange(Sender : TObject);
procedure V1NamePropertiesEditValueChanged(Sender : TObject);
procedure V1OrderNoPropertiesEditValueChanged(Sender : TObject);
procedure V1NotePropertiesEditValueChanged(Sender : TObject);
procedure V1Column1PropertiesEditValueChanged(Sender : TObject);
procedure V1HelpTypePropertiesEditValueChanged(Sender : TObject);
procedure TV1KeyPress(Sender : TObject);
procedure TV1CellClick(Sender : TObject);
procedure v1note1PropertiesEditValueChanged(Sender : TObject);
procedure _PROC_007CDAE6(Sender : TObject);
procedure _PROC_007CDBCC(Sender : TObject);
procedure _PROC_007D0101(Sender : TObject);
procedure _PROC_007D034D(Sender : TObject);
procedure _PROC_007D0599(Sender : TObject);
procedure _PROC_007D07E9(Sender : TObject);
procedure _PROC_007D0AD1(Sender : TObject);
procedure _PROC_007D0B7D(Sender : TObject);
procedure _PROC_007D0B88(Sender : TObject);
procedure _PROC_007D0B90(Sender : TObject);
procedure _PROC_007D0BF6(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmZDYHelp: TfrmZDYHelp;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmZDYHelp.FormCreate(Sender : TObject);
begin
(*
007CDB0C 55 push ebp
007CDB0D 8BEC mov ebp, esp
007CDB0F 6A00 push $00
007CDB11 53 push ebx
007CDB12 56 push esi
007CDB13 57 push edi
007CDB14 8BD8 mov ebx, eax
007CDB16 33C0 xor eax, eax
007CDB18 55 push ebp
007CDB19 68A5DB7C00 push $007CDBA5
***** TRY
|
007CDB1E 64FF30 push dword ptr fs:[eax]
007CDB21 648920 mov fs:[eax], esp
007CDB24 33C0 xor eax, eax
007CDB26 55 push ebp
* Possible String Reference to: '<27><>l<EFBFBD><6C><EFBFBD>t<<3C>'
|
007CDB27 687BDB7C00 push $007CDB7B
***** TRY
|
007CDB2C 64FF30 push dword ptr fs:[eax]
007CDB2F 648920 mov fs:[eax], esp
* Reference to control TfrmZDYHelp.cxGrid1 : TcxGrid
|
007CDB32 8B8300030000 mov eax, [ebx+$0300]
007CDB38 B205 mov dl, $05
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
007CDB3A E89D9FCBFF call 00487ADC
* Reference to control TfrmZDYHelp.ADOConnection1 : TADOConnection
|
007CDB3F 8B9B44030000 mov ebx, [ebx+$0344]
007CDB45 33D2 xor edx, edx
007CDB47 8BC3 mov eax, ebx
007CDB49 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOConnection.OFFS_48
|
007CDB4B FF5148 call dword ptr [ecx+$48]
007CDB4E 8D45FC lea eax, [ebp-$04]
*)
end;
procedure TfrmZDYHelp.FormClose(Sender : TObject);
begin
(*
007CDBB4 56 push esi
007CDBB5 8BF1 mov esi, ecx
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CDBB7 8B8050030000 mov eax, [eax+$0350]
007CDBBD 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
007CDBBF FF92C4000000 call dword ptr [edx+$00C4]
007CDBC5 C60602 mov byte ptr [esi], $02
007CDBC8 5E pop esi
007CDBC9 C3 ret
*)
end;
procedure TfrmZDYHelp.TBAddClick(Sender : TObject);
begin
(*
007CDD9C 53 push ebx
007CDD9D 56 push esi
007CDD9E 57 push edi
007CDD9F 8BF8 mov edi, eax
007CDDA1 8B8750030000 mov eax, [edi+$0350]
007CDDA7 8B10 mov edx, [eax]
* Reference to method TfrmZDYHelp.SetFocus()
|
007CDDA9 FF92C4000000 call dword ptr [edx+$00C4]
007CDDAF 8B87F8020000 mov eax, [edi+$02F8]
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
007CDDB5 E8DEE5E8FF call 0065C398
007CDDBA B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_0062C720()
|
007CDDBC E85FE9E5FF call 0062C720
007CDDC1 8B87F8020000 mov eax, [edi+$02F8]
* Reference to: Contnrs.TComponentList.First(TComponentList):TComponent;
| or: Contnrs.TComponentList.Last(TComponentList):TComponent;
|
007CDDC7 E8D8E5E8FF call 0065C3A4
007CDDCC B201 mov dl, $01
007CDDCE 8B08 mov ecx, [eax]
* Reference to method TfrmZDYHelp.ConstrainedResize(Integer,Integer,Integer,Integer)
|
007CDDD0 FF5138 call dword ptr [ecx+$38]
007CDDD3 BE06000000 mov esi, $00000006
007CDDD8 8B9F20030000 mov ebx, [edi+$0320]
007CDDDE 8BC3 mov eax, ebx
|
007CDDE0 E8ABA7CFFF call 004C8590
007CDDE5 8BC3 mov eax, ebx
007CDDE7 8B10 mov edx, [eax]
007CDDE9 FF924C020000 call dword ptr [edx+$024C]
007CDDEF 4E dec esi
007CDDF0 75E6 jnz 007CDDD8
007CDDF2 5F pop edi
007CDDF3 5E pop esi
007CDDF4 5B pop ebx
007CDDF5 C3 ret
*)
end;
procedure TfrmZDYHelp.TBSaveClick(Sender : TObject);
begin
(*
007CDDF8 55 push ebp
007CDDF9 8BEC mov ebp, esp
007CDDFB B92E000000 mov ecx, $0000002E
007CDE00 6A00 push $00
007CDE02 6A00 push $00
007CDE04 49 dec ecx
007CDE05 75F9 jnz 007CDE00
007CDE07 53 push ebx
007CDE08 56 push esi
007CDE09 57 push edi
007CDE0A 8945FC mov [ebp-$04], eax
007CDE0D 33C0 xor eax, eax
007CDE0F 55 push ebp
007CDE10 6812E97C00 push $007CE912
***** TRY
|
007CDE15 64FF30 push dword ptr fs:[eax]
007CDE18 648920 mov fs:[eax], esp
007CDE1B 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CDE1E 8B8020030000 mov eax, [eax+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007CDE24 E897A0CFFF call 004C7EC0
007CDE29 84C0 test al, al
007CDE2B 0F85DF090000 jnz 007CE810
007CDE31 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CDE34 8B8050030000 mov eax, [eax+$0350]
007CDE3A 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
007CDE3C FF92C4000000 call dword ptr [edx+$00C4]
007CDE42 A024E97C00 mov al, byte ptr [$007CE924]
007CDE47 50 push eax
007CDE48 8D45E0 lea eax, [ebp-$20]
* 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);
|
007CDE4B E810F5C4FF call 0041D360
007CDE50 8D4DE0 lea ecx, [ebp-$20]
007CDE53 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CDE56 8B8020030000 mov eax, [eax+$0320]
* Possible String Reference to: 'ZDYName'
|
007CDE5C BA30E97C00 mov edx, $007CE930
007CDE61 8B18 mov ebx, [eax]
* Reference to method TClientDataSet.Locate(string,Variant,TLocateOptions)
|
007CDE63 FF9344020000 call dword ptr [ebx+$0244]
007CDE69 84C0 test al, al
007CDE6B 741D jz 007CDE8A
007CDE6D 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007CDE6F B938E97C00 mov ecx, $007CE938
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>'
|
007CDE74 BA40E97C00 mov edx, $007CE940
*)
end;
procedure TfrmZDYHelp.TBDelClick(Sender : TObject);
begin
(*
007CEBD4 55 push ebp
007CEBD5 8BEC mov ebp, esp
007CEBD7 B904000000 mov ecx, $00000004
007CEBDC 6A00 push $00
007CEBDE 6A00 push $00
007CEBE0 49 dec ecx
007CEBE1 75F9 jnz 007CEBDC
007CEBE3 51 push ecx
007CEBE4 53 push ebx
007CEBE5 56 push esi
007CEBE6 8BD8 mov ebx, eax
007CEBE8 33C0 xor eax, eax
007CEBEA 55 push ebp
* Possible String Reference to: '<27><>]<5D><><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007CEBEB 684DED7C00 push $007CED4D
***** TRY
|
007CEBF0 64FF30 push dword ptr fs:[eax]
007CEBF3 648920 mov fs:[eax], esp
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CEBF6 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007CEBFC E8BF92CFFF call 004C7EC0
007CEC01 84C0 test al, al
007CEC03 0F8529010000 jnz 007CED32
* Possible String Reference to: 'ZDYNo'
|
007CEC09 BA64ED7C00 mov edx, $007CED64
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CEC0E 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007CEC14 E89B7FCFFF call 004C6BB4
007CEC19 8D55F8 lea edx, [ebp-$08]
007CEC1C 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007CEC1E FF5160 call dword ptr [ecx+$60]
007CEC21 8B45F8 mov eax, [ebp-$08]
007CEC24 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEC27 E8C0BCC3FF call 0040A8EC
007CEC2C 837DFC00 cmp dword ptr [ebp-$04], +$00
007CEC30 752D jnz 007CEC5F
* Possible String Reference to: 'ZDYname'
|
007CEC32 BA74ED7C00 mov edx, $007CED74
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CEC37 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007CEC3D E8727FCFFF call 004C6BB4
007CEC42 8D55F0 lea edx, [ebp-$10]
007CEC45 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007CEC47 FF5160 call dword ptr [ecx+$60]
007CEC4A 8B45F0 mov eax, [ebp-$10]
007CEC4D 8D55F4 lea edx, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEC50 E897BCC3FF call 0040A8EC
007CEC55 837DF400 cmp dword ptr [ebp-$0C], +$00
007CEC59 0F84C8000000 jz 007CED27
007CEC5F 6A01 push $01
* Possible String Reference to: '<27><>ʾ<EFBFBD><CABE>Ϣ'
|
007CEC61 B97CED7C00 mov ecx, $007CED7C
* Possible String Reference to: 'ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD>?'
|
007CEC66 BA88ED7C00 mov edx, $007CED88
*)
end;
procedure TfrmZDYHelp.TBCloseClick(Sender : TObject);
begin
(*
007CEDDC 55 push ebp
007CEDDD 8BEC mov ebp, esp
007CEDDF 6A00 push $00
007CEDE1 6A00 push $00
007CEDE3 53 push ebx
007CEDE4 8BD8 mov ebx, eax
007CEDE6 33C0 xor eax, eax
007CEDE8 55 push ebp
* Possible String Reference to: '<27><>\<5C><><EFBFBD><EFBFBD>[YY]<5D>'
|
007CEDE9 685FEE7C00 push $007CEE5F
***** TRY
|
007CEDEE 64FF30 push dword ptr fs:[eax]
007CEDF1 648920 mov fs:[eax], esp
* Reference to field TfrmZDYHelp.ModalResult : TModalResult
|
007CEDF4 C7834C02000002000000 mov dword ptr [ebx+$024C], $00000002
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CEDFE 8B8350030000 mov eax, [ebx+$0350]
007CEE04 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
007CEE06 FF92C4000000 call dword ptr [edx+$00C4]
007CEE0C 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmZDYHelp.OFFS_0374
|
007CEE0F 8B8374030000 mov eax, [ebx+$0374]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEE15 E8D2BAC3FF call 0040A8EC
007CEE1A 8B4DF8 mov ecx, [ebp-$08]
007CEE1D 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD>'
|
007CEE20 BA74EE7C00 mov edx, $007CEE74
* Reference to: System.@LStrCat3;
|
007CEE25 E81668C3FF call 00405640
007CEE2A 8B45FC mov eax, [ebp-$04]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007CEE2D B984EE7C00 mov ecx, $007CEE84
* Reference to control TfrmZDYHelp.TV1 : TcxGridDBTableView
|
007CEE32 8B93F8020000 mov edx, [ebx+$02F8]
|
007CEE38 E897DDFFFF call 007CCBD4
007CEE3D 8BC3 mov eax, ebx
* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
007CEE3F E85471CDFF call 004A5F98
007CEE44 33C0 xor eax, eax
007CEE46 5A pop edx
007CEE47 59 pop ecx
007CEE48 59 pop ecx
007CEE49 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[YY]<5D>'
|
007CEE4C 6866EE7C00 push $007CEE66
007CEE51 8D45F8 lea eax, [ebp-$08]
007CEE54 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007CEE59 E8EA64C3FF call 00405348
007CEE5E C3 ret
* Reference to: System.@HandleFinally;
|
007CEE5F E9905CC3FF jmp 00404AF4
007CEE64 EBEB jmp 007CEE51
****** END
|
007CEE66 5B pop ebx
007CEE67 59 pop ecx
007CEE68 59 pop ecx
007CEE69 5D pop ebp
007CEE6A C3 ret
*)
end;
procedure TfrmZDYHelp.FormShow(Sender : TObject);
begin
(*
007CEE90 55 push ebp
007CEE91 8BEC mov ebp, esp
007CEE93 33C9 xor ecx, ecx
007CEE95 51 push ecx
007CEE96 51 push ecx
007CEE97 51 push ecx
007CEE98 51 push ecx
007CEE99 51 push ecx
007CEE9A 51 push ecx
007CEE9B 51 push ecx
007CEE9C 53 push ebx
007CEE9D 8BD8 mov ebx, eax
007CEE9F 33C0 xor eax, eax
007CEEA1 55 push ebp
* Possible String Reference to: '<27><>Z<EFBFBD><5A><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007CEEA2 680FF07C00 push $007CF00F
***** TRY
|
007CEEA7 64FF30 push dword ptr fs:[eax]
007CEEAA 648920 mov fs:[eax], esp
007CEEAD 8BC3 mov eax, ebx
* Reference to : TfrmZDYHelp._PROC_007CDBCC()
|
007CEEAF E818EDFFFF call 007CDBCC
007CEEB4 8D55F4 lea edx, [ebp-$0C]
* Reference to field TfrmZDYHelp.OFFS_0374
|
007CEEB7 8B8374030000 mov eax, [ebx+$0374]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEEBD E82ABAC3FF call 0040A8EC
007CEEC2 8B55F4 mov edx, [ebp-$0C]
007CEEC5 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '01'
|
007CEEC8 B924F07C00 mov ecx, $007CF024
* Reference to: System.@LStrCat3;
|
007CEECD E86E67C3FF call 00405640
007CEED2 8D55F0 lea edx, [ebp-$10]
* Reference to field TfrmZDYHelp.OFFS_0378
|
007CEED5 8B8378030000 mov eax, [ebx+$0378]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEEDB E80CBAC3FF call 0040A8EC
007CEEE0 8B55F0 mov edx, [ebp-$10]
007CEEE3 8D45F8 lea eax, [ebp-$08]
* Possible String Reference to: '01'
|
007CEEE6 B924F07C00 mov ecx, $007CF024
* Reference to: System.@LStrCat3;
|
007CEEEB E85067C3FF call 00405640
* Reference to field TfrmZDYHelp.OFFS_0374
|
007CEEF0 8B8374030000 mov eax, [ebx+$0374]
* Possible String Reference to: 'YGNameDCG'
|
007CEEF6 BA30F07C00 mov edx, $007CF030
* Reference to: System.@LStrCmp;
|
007CEEFB E84068C3FF call 00405740
007CEF00 7507 jnz 007CEF09
007CEF02 8BC3 mov eax, ebx
|
007CEF04 E8EFEAFFFF call 007CD9F8
007CEF09 8D55E8 lea edx, [ebp-$18]
* Reference to field TfrmZDYHelp.OFFS_0374
|
007CEF0C 8B8374030000 mov eax, [ebx+$0374]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEF12 E8D5B9C3FF call 0040A8EC
007CEF17 8B4DE8 mov ecx, [ebp-$18]
007CEF1A 8D45EC lea eax, [ebp-$14]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD>'
|
007CEF1D BA44F07C00 mov edx, $007CF044
* Reference to: System.@LStrCat3;
|
007CEF22 E81967C3FF call 00405640
007CEF27 8B45EC mov eax, [ebp-$14]
* Possible String Reference to: '<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'
|
007CEF2A B954F07C00 mov ecx, $007CF054
* Reference to control TfrmZDYHelp.TV1 : TcxGridDBTableView
|
007CEF2F 8B93F8020000 mov edx, [ebx+$02F8]
|
007CEF35 E89ADBFFFF call 007CCAD4
007CEF3A 8D55E4 lea edx, [ebp-$1C]
* Reference to field TfrmZDYHelp.OFFS_0378
|
007CEF3D 8B8378030000 mov eax, [ebx+$0378]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CEF43 E8A4B9C3FF call 0040A8EC
007CEF48 8B55E4 mov edx, [ebp-$1C]
007CEF4B A1743C8900 mov eax, dword ptr [$00893C74]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007CEF50 E8CB96CBFF call 00488620
* Reference to field TfrmZDYHelp.OFFS_0384
|
007CEF55 8A9384030000 mov dl, byte ptr [ebx+$0384]
* Reference to control TfrmZDYHelp.V1Note : TcxGridDBColumn
|
007CEF5B 8B833C030000 mov eax, [ebx+$033C]
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007CEF61 E85EACE5FF call 00629BC4
* Reference to field TfrmZDYHelp.OFFS_0385
|
007CEF66 8A9385030000 mov dl, byte ptr [ebx+$0385]
* Reference to control TfrmZDYHelp.v1note1 : TcxGridDBColumn
|
007CEF6C 8B8370030000 mov eax, [ebx+$0370]
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007CEF72 E84DACE5FF call 00629BC4
* Reference to field TfrmZDYHelp.OFFS_0387
|
007CEF77 8A9387030000 mov dl, byte ptr [ebx+$0387]
* Reference to control TfrmZDYHelp.V1ZdyFlag : TcxGridDBColumn
|
007CEF7D 8B8360030000 mov eax, [ebx+$0360]
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007CEF83 E83CACE5FF call 00629BC4
* Reference to field TfrmZDYHelp.OFFS_0386
|
007CEF88 8A9386030000 mov dl, byte ptr [ebx+$0386]
* Reference to control TfrmZDYHelp.V1OrderNo : TcxGridDBColumn
|
007CEF8E 8B8340030000 mov eax, [ebx+$0340]
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007CEF94 E82BACE5FF call 00629BC4
* Reference to field TfrmZDYHelp.OFFS_0389
|
007CEF99 8A9389030000 mov dl, byte ptr [ebx+$0389]
* Reference to control TfrmZDYHelp.V1HelpType : TcxGridDBColumn
|
007CEF9F 8B8364030000 mov eax, [ebx+$0364]
* Reference to : TcxCustomGridTableView._PROC_00629BC4()
|
007CEFA5 E81AACE5FF call 00629BC4
* Reference to field TfrmZDYHelp.OFFS_0388
|
007CEFAA 80BB8803000001 cmp byte ptr [ebx+$0388], $01
007CEFB1 7541 jnz 007CEFF4
007CEFB3 33D2 xor edx, edx
* Reference to control TfrmZDYHelp.TBAdd : TToolButton
|
007CEFB5 8B8324030000 mov eax, [ebx+$0324]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007CEFBB E85095CBFF call 00488510
007CEFC0 33D2 xor edx, edx
* Reference to control TfrmZDYHelp.TBSave : TToolButton
|
007CEFC2 8B8328030000 mov eax, [ebx+$0328]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007CEFC8 E84395CBFF call 00488510
007CEFCD 33D2 xor edx, edx
* Reference to control TfrmZDYHelp.TBDel : TToolButton
|
007CEFCF 8B832C030000 mov eax, [ebx+$032C]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007CEFD5 E83695CBFF call 00488510
007CEFDA 33D2 xor edx, edx
* Reference to control TfrmZDYHelp.TBEdit : TToolButton
|
007CEFDC 8B8338030000 mov eax, [ebx+$0338]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007CEFE2 E82995CBFF call 00488510
007CEFE7 33D2 xor edx, edx
* Reference to control TfrmZDYHelp.Label2 : TLabel
|
007CEFE9 8B8358030000 mov eax, [ebx+$0358]
* Reference to: Controls.TControl.SetVisible(TControl;Boolean);
|
007CEFEF E81C95CBFF call 00488510
007CEFF4 33C0 xor eax, eax
007CEFF6 5A pop edx
007CEFF7 59 pop ecx
007CEFF8 59 pop ecx
007CEFF9 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
007CEFFC 6816F07C00 push $007CF016
007CF001 8D45E4 lea eax, [ebp-$1C]
007CF004 BA07000000 mov edx, $00000007
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007CF009 E83A63C3FF call 00405348
007CF00E C3 ret
* Reference to: System.@HandleFinally;
|
007CF00F E9E05AC3FF jmp 00404AF4
007CF014 EBEB jmp 007CF001
****** END
|
007CF016 5B pop ebx
007CF017 8BE5 mov esp, ebp
007CF019 5D pop ebp
007CF01A C3 ret
*)
end;
procedure TfrmZDYHelp.ToolButton1Click(Sender : TObject);
begin
(*
007CF060 53 push ebx
007CF061 8BD8 mov ebx, eax
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CF063 8B8350030000 mov eax, [ebx+$0350]
007CF069 8B10 mov edx, [eax]
* Reference to method TEdit.SetFocus()
|
007CF06B FF92C4000000 call dword ptr [edx+$00C4]
* Reference to field TfrmZDYHelp.ModalResult : TModalResult
|
007CF071 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001
007CF07B 5B pop ebx
007CF07C C3 ret
*)
end;
procedure TfrmZDYHelp.TBEditClick(Sender : TObject);
begin
(*
007CF080 53 push ebx
007CF081 8BD8 mov ebx, eax
* Reference to control TfrmZDYHelp.TV1 : TcxGridDBTableView
|
007CF083 8B83F8020000 mov eax, [ebx+$02F8]
* 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;
|
007CF089 E80AD3E8FF call 0065C398
007CF08E B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_0062C720()
|
007CF090 E88BD6E5FF call 0062C720
* Reference to control TfrmZDYHelp.TV1 : TcxGridDBTableView
|
007CF095 8B83F8020000 mov eax, [ebx+$02F8]
* 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;
|
007CF09B E804D3E8FF call 0065C3A4
007CF0A0 B201 mov dl, $01
007CF0A2 8B08 mov ecx, [eax]
* Possible reference to virtual method TcxGridDBTableView.OFFS_38
|
007CF0A4 FF5138 call dword ptr [ecx+$38]
007CF0A7 5B pop ebx
007CF0A8 C3 ret
*)
end;
procedure TfrmZDYHelp.TV1CellDblClick(Sender : TObject);
begin
(*
007CF0AC 55 push ebp
007CF0AD 8BEC mov ebp, esp
007CF0AF 53 push ebx
007CF0B0 8BD8 mov ebx, eax
* Reference to control TfrmZDYHelp.TV1 : TcxGridDBTableView
|
007CF0B2 8B83F8020000 mov eax, [ebx+$02F8]
* 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;
|
007CF0B8 E8DBD2E8FF call 0065C398
* Reference to field TcxGridDBTableView.OFFS_0018
|
007CF0BD 80781800 cmp byte ptr [eax+$18], $00
007CF0C1 750A jnz 007CF0CD
* Reference to field TfrmZDYHelp.ModalResult : TModalResult
|
007CF0C3 C7834C02000001000000 mov dword ptr [ebx+$024C], $00000001
007CF0CD 5B pop ebx
007CF0CE 5D pop ebp
007CF0CF C20C00 ret $000C
*)
end;
procedure TfrmZDYHelp.ZDYNameChange(Sender : TObject);
begin
(*
007CF0D4 55 push ebp
007CF0D5 8BEC mov ebp, esp
007CF0D7 B904000000 mov ecx, $00000004
007CF0DC 6A00 push $00
007CF0DE 6A00 push $00
007CF0E0 49 dec ecx
007CF0E1 75F9 jnz 007CF0DC
007CF0E3 51 push ecx
007CF0E4 53 push ebx
007CF0E5 8BD8 mov ebx, eax
007CF0E7 33C0 xor eax, eax
007CF0E9 55 push ebp
* Possible String Reference to: '<27><>X<EFBFBD><58><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007CF0EA 6842F27C00 push $007CF242
***** TRY
|
007CF0EF 64FF30 push dword ptr fs:[eax]
007CF0F2 648920 mov fs:[eax], esp
007CF0F5 8D55F4 lea edx, [ebp-$0C]
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CF0F8 8B8350030000 mov eax, [ebx+$0350]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007CF0FE E8ED94CBFF call 004885F0
007CF103 8B45F4 mov eax, [ebp-$0C]
007CF106 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF109 E8DEB7C3FF call 0040A8EC
007CF10E 837DF800 cmp dword ptr [ebp-$08], +$00
007CF112 0F8498000000 jz 007CF1B0
* Possible String Reference to: ' zdyname like '%'
|
007CF118 6858F27C00 push $007CF258
007CF11D 8D55EC lea edx, [ebp-$14]
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CF120 8B8350030000 mov eax, [ebx+$0350]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007CF126 E8C594CBFF call 004885F0
007CF12B 8B45EC mov eax, [ebp-$14]
007CF12E 8D55F0 lea edx, [ebp-$10]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF131 E8B6B7C3FF call 0040A8EC
007CF136 FF75F0 push dword ptr [ebp-$10]
007CF139 6874F27C00 push $007CF274
007CF13E 6880F27C00 push $007CF280
* Possible String Reference to: ' or Note like ''
|
007CF143 688CF27C00 push $007CF28C
007CF148 6874F27C00 push $007CF274
007CF14D 8D55E4 lea edx, [ebp-$1C]
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CF150 8B8350030000 mov eax, [ebx+$0350]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007CF156 E89594CBFF call 004885F0
007CF15B 8B45E4 mov eax, [ebp-$1C]
007CF15E 8D55E8 lea edx, [ebp-$18]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF161 E886B7C3FF call 0040A8EC
007CF166 FF75E8 push dword ptr [ebp-$18]
007CF169 6874F27C00 push $007CF274
007CF16E 6880F27C00 push $007CF280
* Possible String Reference to: ' or ZJM like ''
|
007CF173 68A4F27C00 push $007CF2A4
007CF178 6874F27C00 push $007CF274
007CF17D 8D55DC lea edx, [ebp-$24]
* Reference to control TfrmZDYHelp.ZDYName : TEdit
|
007CF180 8B8350030000 mov eax, [ebx+$0350]
* Reference to: Controls.TControl.GetText(TControl):TCaption;
|
007CF186 E86594CBFF call 004885F0
007CF18B 8B45DC mov eax, [ebp-$24]
007CF18E 8D55E0 lea edx, [ebp-$20]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF191 E856B7C3FF call 0040A8EC
007CF196 FF75E0 push dword ptr [ebp-$20]
007CF199 6874F27C00 push $007CF274
007CF19E 6880F27C00 push $007CF280
007CF1A3 8D45FC lea eax, [ebp-$04]
007CF1A6 BA0E000000 mov edx, $0000000E
* Reference to: System.@LStrCatN;
|
007CF1AB E80465C3FF call 004056B4
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CF1B0 8B8310030000 mov eax, [ebx+$0310]
* Reference to: DB.TDataSet.GetActive(TDataSet):Boolean;
|
007CF1B6 E85968CFFF call 004C5A14
007CF1BB 84C0 test al, al
007CF1BD 7430 jz 007CF1EF
007CF1BF 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CF1C2 8B8310030000 mov eax, [ebx+$0310]
|
007CF1C8 E803D2FFFF call 007CC3D0
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CF1CD 8B9320030000 mov edx, [ebx+$0320]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CF1D3 8B8310030000 mov eax, [ebx+$0310]
|
007CF1D9 E8BAD2FFFF call 007CC498
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CF1DE 8B9320030000 mov edx, [ebx+$0320]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CF1E4 8B8310030000 mov eax, [ebx+$0310]
|
007CF1EA E831D4FFFF call 007CC620
007CF1EF 33C0 xor eax, eax
007CF1F1 5A pop edx
007CF1F2 59 pop ecx
007CF1F3 59 pop ecx
007CF1F4 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
007CF1F7 6849F27C00 push $007CF249
007CF1FC 8D45DC lea eax, [ebp-$24]
* Reference to: System.@LStrClr(void;void);
|
007CF1FF E82061C3FF call 00405324
007CF204 8D45E0 lea eax, [ebp-$20]
* Reference to: System.@LStrClr(void;void);
|
007CF207 E81861C3FF call 00405324
007CF20C 8D45E4 lea eax, [ebp-$1C]
* Reference to: System.@LStrClr(void;void);
|
007CF20F E81061C3FF call 00405324
007CF214 8D45E8 lea eax, [ebp-$18]
* Reference to: System.@LStrClr(void;void);
|
007CF217 E80861C3FF call 00405324
007CF21C 8D45EC lea eax, [ebp-$14]
* Reference to: System.@LStrClr(void;void);
|
007CF21F E80061C3FF call 00405324
007CF224 8D45F0 lea eax, [ebp-$10]
* Reference to: System.@LStrClr(void;void);
|
007CF227 E8F860C3FF call 00405324
007CF22C 8D45F4 lea eax, [ebp-$0C]
* Reference to: System.@LStrClr(void;void);
|
007CF22F E8F060C3FF call 00405324
007CF234 8D45F8 lea eax, [ebp-$08]
007CF237 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007CF23C E80761C3FF call 00405348
007CF241 C3 ret
* Reference to: System.@HandleFinally;
|
007CF242 E9AD58C3FF jmp 00404AF4
007CF247 EBB3 jmp 007CF1FC
****** END
|
007CF249 5B pop ebx
007CF24A 8BE5 mov esp, ebp
007CF24C 5D pop ebp
007CF24D C3 ret
*)
end;
procedure TfrmZDYHelp.V1NamePropertiesEditValueChanged(Sender : TObject);
begin
(*
007CF2B4 55 push ebp
007CF2B5 8BEC mov ebp, esp
007CF2B7 B92B000000 mov ecx, $0000002B
007CF2BC 6A00 push $00
007CF2BE 6A00 push $00
007CF2C0 49 dec ecx
007CF2C1 75F9 jnz 007CF2BC
007CF2C3 53 push ebx
007CF2C4 56 push esi
007CF2C5 57 push edi
007CF2C6 8BDA mov ebx, edx
007CF2C8 8945FC mov [ebp-$04], eax
007CF2CB 33C0 xor eax, eax
007CF2CD 55 push ebp
* Possible String Reference to: '<27>fN<66><4E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>_^[<5B><>]<5D>'
|
007CF2CE 6889FC7C00 push $007CFC89
***** TRY
|
007CF2D3 64FF30 push dword ptr fs:[eax]
007CF2D6 648920 mov fs:[eax], esp
007CF2D9 8D55F4 lea edx, [ebp-$0C]
007CF2DC 8BC3 mov eax, ebx
* Reference to: ActnMan.TActionListCollection.GetListItem(TActionListCollection;Integer):TActionListItem;
| or: ActnMan.TActionClientsCollection.GetActionClient(TActionClientsCollection;Integer):TActionClient;
| or: ActnMan.TActionBars.GetActionBar(TActionBars;Integer):TActionBarItem;
| or: ActnMan.TActionClients.GetActionClient(TActionClients;Integer):TActionClientItem;
| or: ActnMenus.TMenuList.GetMenu(TMenuList;Integer):TCustomActionMenuBar;
| or: ADODB.TParameters.GetItem(TParameters;Integer):TParameter;
|
007CF2DE E8D903DCFF call 0058F6BC
007CF2E3 8D55F0 lea edx, [ebp-$10]
007CF2E6 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF2E9 E8FEB5C3FF call 0040A8EC
007CF2EE 837DF000 cmp dword ptr [ebp-$10], +$00
007CF2F2 0F848A080000 jz 007CFB82
007CF2F8 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CF2FB 8B9820030000 mov ebx, [eax+$0320]
007CF301 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Edit(TDataSet);
|
007CF303 E83891CFFF call 004C8440
007CF308 8D55DC lea edx, [ebp-$24]
007CF30B 8B45F4 mov eax, [ebp-$0C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF30E E8D9B5C3FF call 0040A8EC
007CF313 8B55DC mov edx, [ebp-$24]
007CF316 8D45E0 lea eax, [ebp-$20]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007CF319 E8AA9AC4FF call 00418DC8
007CF31E 8D45E0 lea eax, [ebp-$20]
007CF321 50 push eax
* Possible String Reference to: 'ZdyName'
|
007CF322 BAA4FC7C00 mov edx, $007CFCA4
007CF327 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007CF329 E88678CFFF call 004C6BB4
007CF32E 5A pop edx
007CF32F 8B08 mov ecx, [eax]
* Reference to method TClientDataSet.DestroyFields()
|
007CF331 FF91B4000000 call dword ptr [ecx+$00B4]
007CF337 33D2 xor edx, edx
007CF339 55 push ebp
007CF33A 684DFB7C00 push $007CFB4D
***** TRY
|
007CF33F 64FF32 push dword ptr fs:[edx]
007CF342 648922 mov fs:[edx], esp
007CF345 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryCmd : TADOQuery
|
007CF348 8B8018030000 mov eax, [eax+$0318]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007CF34E E8D9CAD0FF call 004DBE2C
* Reference to: ADODB.TADOConnection.BeginTrans(TADOConnection):Integer;
|
007CF353 E83C2FD0FF call 004D2294
007CF358 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryTemp : TADOQuery
|
007CF35B 8B9814030000 mov ebx, [eax+$0314]
007CF361 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007CF363 E86C65CFFF call 004C58D4
007CF368 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CF36A E83DECD0FF call 004DDFAC
007CF36F 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007CF371 FF5244 call dword ptr [edx+$44]
* Possible String Reference to: 'select * from KH_ZDY where ZdyNo=''
|
007CF374 68B4FC7C00 push $007CFCB4
007CF379 8D55D4 lea edx, [ebp-$2C]
007CF37C 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmZDYHelp.OFFS_0374
|
007CF37F 8B8074030000 mov eax, [eax+$0374]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF385 E862B5C3FF call 0040A8EC
007CF38A FF75D4 push dword ptr [ebp-$2C]
007CF38D 68E0FC7C00 push $007CFCE0
007CF392 8D45D8 lea eax, [ebp-$28]
007CF395 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007CF39A E81563C3FF call 004056B4
007CF39F 8B45D8 mov eax, [ebp-$28]
007CF3A2 50 push eax
007CF3A3 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CF3A5 E802ECD0FF call 004DDFAC
007CF3AA 5A pop edx
007CF3AB 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007CF3AD FF5138 call dword ptr [ecx+$38]
007CF3B0 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007CF3B2 E81165CFFF call 004C58C8
007CF3B7 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryTemp : TADOQuery
|
007CF3BA 8B8014030000 mov eax, [eax+$0314]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007CF3C0 E8FB8ACFFF call 004C7EC0
007CF3C5 84C0 test al, al
007CF3C7 0F8401010000 jz 007CF4CE
007CF3CD 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryCmd : TADOQuery
|
007CF3D0 8B9818030000 mov ebx, [eax+$0318]
007CF3D6 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007CF3D8 E8F764CFFF call 004C58D4
007CF3DD 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CF3DF E8C8EBD0FF call 004DDFAC
007CF3E4 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007CF3E6 FF5244 call dword ptr [edx+$44]
007CF3E9 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CF3EB E8BCEBD0FF call 004DDFAC
* Possible String Reference to: 'insert into KH_ZDY(ZDYNo,ZDYName,Ty
| pe,MainType) select :ZDYNo,:ZDYName
| ,:Type,:MainType '
|
007CF3F0 BAECFC7C00 mov edx, $007CFCEC
007CF3F5 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007CF3F7 FF5138 call dword ptr [ecx+$38]
007CF3FA 8D55C0 lea edx, [ebp-$40]
007CF3FD 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmZDYHelp.OFFS_0374
|
007CF400 8B8074030000 mov eax, [eax+$0374]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF406 E8E1B4C3FF call 0040A8EC
007CF40B 8B55C0 mov edx, [ebp-$40]
007CF40E 8D45C4 lea eax, [ebp-$3C]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007CF411 E8B299C4FF call 00418DC8
007CF416 8D45C4 lea eax, [ebp-$3C]
007CF419 50 push eax
007CF41A 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
007CF41C E8CFCED0FF call 004DC2F0
007CF421 BA48FD7C00 mov edx, $007CFD48
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
007CF426 E8D54FD0FF call 004D4400
007CF42B 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
007CF42C E89362D0FF call 004D56C4
007CF431 8D55AC lea edx, [ebp-$54]
007CF434 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmZDYHelp.OFFS_0378
|
007CF437 8B8078030000 mov eax, [eax+$0378]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF43D E8AAB4C3FF call 0040A8EC
007CF442 8B55AC mov edx, [ebp-$54]
007CF445 8D45B0 lea eax, [ebp-$50]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007CF448 E87B99C4FF call 00418DC8
007CF44D 8D45B0 lea eax, [ebp-$50]
007CF450 50 push eax
007CF451 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
007CF453 E898CED0FF call 004DC2F0
007CF458 BA58FD7C00 mov edx, $007CFD58
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
007CF45D E89E4FD0FF call 004D4400
007CF462 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
007CF463 E85C62D0FF call 004D56C4
007CF468 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
007CF46A E881CED0FF call 004DC2F0
007CF46F BA6CFD7C00 mov edx, $007CFD6C
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
007CF474 E8874FD0FF call 004D4400
007CF479 50 push eax
007CF47A 8D459C lea eax, [ebp-$64]
* Possible String Reference to: 'Main'
|
007CF47D BA80FD7C00 mov edx, $007CFD80
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007CF482 E84199C4FF call 00418DC8
007CF487 8D559C lea edx, [ebp-$64]
007CF48A 58 pop eax
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
007CF48B E83462D0FF call 004D56C4
007CF490 8D5588 lea edx, [ebp-$78]
007CF493 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmZDYHelp.OFFS_0380
|
007CF496 8B8080030000 mov eax, [eax+$0380]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF49C E84BB4C3FF call 0040A8EC
007CF4A1 8B5588 mov edx, [ebp-$78]
007CF4A4 8D458C lea eax, [ebp-$74]
* Reference to: Variants.@VarFromLStr(TVarData;TVarData;AnsiString);
|
007CF4A7 E81C99C4FF call 00418DC8
007CF4AC 8D458C lea eax, [ebp-$74]
007CF4AF 50 push eax
007CF4B0 8BC3 mov eax, ebx
* Reference to: ADODB.TCustomADODataSet.GetParameters(TCustomADODataSet):TParameters;
|
007CF4B2 E839CED0FF call 004DC2F0
007CF4B7 BA8CFD7C00 mov edx, $007CFD8C
* Reference to: ADODB.TParameters.ParamByName(TParameters;WideString):TParameter;
|
007CF4BC E83F4FD0FF call 004D4400
007CF4C1 5A pop edx
* Reference to: ADODB.TParameter.SetValue(TParameter;Variant;Variant);
|
007CF4C2 E8FD61D0FF call 004D56C4
007CF4C7 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.ExecSQL(TADOQuery):Integer;
|
007CF4C9 E806EAD0FF call 004DDED4
007CF4CE 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CF4D1 8B8020030000 mov eax, [eax+$0320]
* Possible String Reference to: 'ZDYNO'
|
007CF4D7 BAA8FD7C00 mov edx, $007CFDA8
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007CF4DC E8D376CFFF call 004C6BB4
007CF4E1 8D5580 lea edx, [ebp-$80]
007CF4E4 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007CF4E6 FF5160 call dword ptr [ecx+$60]
007CF4E9 8B4580 mov eax, [ebp-$80]
007CF4EC 8D5584 lea edx, [ebp-$7C]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CF4EF E8F8B3C3FF call 0040A8EC
007CF4F4 837D8400 cmp dword ptr [ebp-$7C], +$00
007CF4F8 755B jnz 007CF555
* Possible String Reference to: 'KH_ZDY'
|
007CF4FA 68B8FD7C00 push $007CFDB8
007CF4FF 6A03 push $03
007CF501 6A01 push $01
007CF503 8D55F8 lea edx, [ebp-$08]
007CF506 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryTemp : TADOQuery
|
007CF509 8B8014030000 mov eax, [eax+$0314]
* Possible String Reference to: 'SY'
|
007CF50F B9C8FD7C00 mov ecx, $007CFDC8
|
007CF514 E81FD3FFFF call 007CC838
007CF519 84C0 test al, al
007CF51B 7564 jnz 007CF581
007CF51D 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryCmd : TADOQuery
|
007CF520 8B8018030000 mov eax, [eax+$0318]
* Reference to: ADODB.TCustomADODataSet.GetConnection(TCustomADODataSet):TADOConnection;
|
007CF526 E801C9D0FF call 004DBE2C
* Reference to: ADODB.TADOConnection.RollbackTrans(TADOConnection);
|
007CF52B E8B02DD0FF call 004D22E0
007CF530 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007CF532 B9CCFD7C00 mov ecx, $007CFDCC
* Possible String Reference to: 'ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>'
|
007CF537 BAD4FD7C00 mov edx, $007CFDD4
*)
end;
procedure TfrmZDYHelp.V1OrderNoPropertiesEditValueChanged(Sender : TObject);
begin
(*
007CFF1C 55 push ebp
007CFF1D 8BEC mov ebp, esp
007CFF1F B906000000 mov ecx, $00000006
007CFF24 6A00 push $00
007CFF26 6A00 push $00
007CFF28 49 dec ecx
007CFF29 75F9 jnz 007CFF24
007CFF2B 53 push ebx
007CFF2C 56 push esi
007CFF2D 8BDA mov ebx, edx
007CFF2F 8BF0 mov esi, eax
007CFF31 33C0 xor eax, eax
007CFF33 55 push ebp
007CFF34 68A7007D00 push $007D00A7
***** TRY
|
007CFF39 64FF30 push dword ptr fs:[eax]
007CFF3C 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007CFF3F BABC007D00 mov edx, $007D00BC
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CFF44 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007CFF4A E8656CCFFF call 004C6BB4
007CFF4F 8D55F4 lea edx, [ebp-$0C]
007CFF52 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007CFF54 FF5160 call dword ptr [ecx+$60]
007CFF57 8B45F4 mov eax, [ebp-$0C]
007CFF5A 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CFF5D E88AA9C3FF call 0040A8EC
007CFF62 837DF800 cmp dword ptr [ebp-$08], +$00
007CFF66 751D jnz 007CFF85
007CFF68 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007CFF6A B9C4007D00 mov ecx, $007D00C4
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007CFF6F BACC007D00 mov edx, $007D00CC
*)
end;
procedure TfrmZDYHelp.V1NotePropertiesEditValueChanged(Sender : TObject);
begin
(*
007D0150 55 push ebp
007D0151 8BEC mov ebp, esp
007D0153 B906000000 mov ecx, $00000006
007D0158 6A00 push $00
007D015A 6A00 push $00
007D015C 49 dec ecx
007D015D 75F9 jnz 007D0158
007D015F 51 push ecx
007D0160 53 push ebx
007D0161 56 push esi
007D0162 8BDA mov ebx, edx
007D0164 8BF0 mov esi, eax
007D0166 33C0 xor eax, eax
007D0168 55 push ebp
* Possible String Reference to: '<27><>G<EFBFBD><47><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007D0169 68F1027D00 push $007D02F1
***** TRY
|
007D016E 64FF30 push dword ptr fs:[eax]
007D0171 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D0174 BA08037D00 mov edx, $007D0308
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0179 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D017F E8306ACFFF call 004C6BB4
007D0184 8D55F4 lea edx, [ebp-$0C]
007D0187 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D0189 FF5160 call dword ptr [ecx+$60]
007D018C 8B45F4 mov eax, [ebp-$0C]
007D018F 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D0192 E855A7C3FF call 0040A8EC
007D0197 837DF800 cmp dword ptr [ebp-$08], +$00
007D019B 751D jnz 007D01BA
007D019D 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D019F B910037D00 mov ecx, $007D0310
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D01A4 BA18037D00 mov edx, $007D0318
*)
end;
procedure TfrmZDYHelp.V1Column1PropertiesEditValueChanged(Sender : TObject);
begin
(*
007D039C 55 push ebp
007D039D 8BEC mov ebp, esp
007D039F B906000000 mov ecx, $00000006
007D03A4 6A00 push $00
007D03A6 6A00 push $00
007D03A8 49 dec ecx
007D03A9 75F9 jnz 007D03A4
007D03AB 51 push ecx
007D03AC 53 push ebx
007D03AD 56 push esi
007D03AE 8BDA mov ebx, edx
007D03B0 8BF0 mov esi, eax
007D03B2 33C0 xor eax, eax
007D03B4 55 push ebp
* Possible String Reference to: '<27><>E<EFBFBD><45><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007D03B5 683C057D00 push $007D053C
***** TRY
|
007D03BA 64FF30 push dword ptr fs:[eax]
007D03BD 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D03C0 BA54057D00 mov edx, $007D0554
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D03C5 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D03CB E8E467CFFF call 004C6BB4
007D03D0 8D55F4 lea edx, [ebp-$0C]
007D03D3 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D03D5 FF5160 call dword ptr [ecx+$60]
007D03D8 8B45F4 mov eax, [ebp-$0C]
007D03DB 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D03DE E809A5C3FF call 0040A8EC
007D03E3 837DF800 cmp dword ptr [ebp-$08], +$00
007D03E7 751D jnz 007D0406
007D03E9 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D03EB B95C057D00 mov ecx, $007D055C
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D03F0 BA64057D00 mov edx, $007D0564
*)
end;
procedure TfrmZDYHelp.V1HelpTypePropertiesEditValueChanged(Sender : TObject);
begin
(*
007D05E8 55 push ebp
007D05E9 8BEC mov ebp, esp
007D05EB B906000000 mov ecx, $00000006
007D05F0 6A00 push $00
007D05F2 6A00 push $00
007D05F4 49 dec ecx
007D05F5 75F9 jnz 007D05F0
007D05F7 51 push ecx
007D05F8 53 push ebx
007D05F9 56 push esi
007D05FA 8BDA mov ebx, edx
007D05FC 8BF0 mov esi, eax
007D05FE 33C0 xor eax, eax
007D0600 55 push ebp
* Possible String Reference to: '<27>fC<66><43><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007D0601 6889077D00 push $007D0789
***** TRY
|
007D0606 64FF30 push dword ptr fs:[eax]
007D0609 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D060C BAA0077D00 mov edx, $007D07A0
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0611 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D0617 E89865CFFF call 004C6BB4
007D061C 8D55F4 lea edx, [ebp-$0C]
007D061F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D0621 FF5160 call dword ptr [ecx+$60]
007D0624 8B45F4 mov eax, [ebp-$0C]
007D0627 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D062A E8BDA2C3FF call 0040A8EC
007D062F 837DF800 cmp dword ptr [ebp-$08], +$00
007D0633 751D jnz 007D0652
007D0635 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D0637 B9A8077D00 mov ecx, $007D07A8
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D063C BAB0077D00 mov edx, $007D07B0
*)
end;
procedure TfrmZDYHelp.TV1KeyPress(Sender : TObject);
begin
(*
007D083C 80390D cmp byte ptr [ecx], $0D
007D083F 750A jnz 007D084B
* Reference to field TfrmZDYHelp.ModalResult : TModalResult
|
007D0841 C7804C02000001000000 mov dword ptr [eax+$024C], $00000001
007D084B C3 ret
*)
end;
procedure TfrmZDYHelp.TV1CellClick(Sender : TObject);
begin
(*
007D084C 55 push ebp
007D084D 8BEC mov ebp, esp
007D084F 6A00 push $00
007D0851 6A00 push $00
007D0853 53 push ebx
007D0854 8BD8 mov ebx, eax
007D0856 33C0 xor eax, eax
007D0858 55 push ebp
007D0859 68BF087D00 push $007D08BF
***** TRY
|
007D085E 64FF30 push dword ptr fs:[eax]
007D0861 648920 mov fs:[eax], esp
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0864 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007D086A E85176CFFF call 004C7EC0
007D086F 84C0 test al, al
007D0871 7531 jnz 007D08A4
* Possible String Reference to: 'Note'
|
007D0873 BAD8087D00 mov edx, $007D08D8
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0878 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D087E E83163CFFF call 004C6BB4
007D0883 8D55F8 lea edx, [ebp-$08]
007D0886 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D0888 FF5160 call dword ptr [ecx+$60]
007D088B 8B45F8 mov eax, [ebp-$08]
007D088E 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D0891 E856A0C3FF call 0040A8EC
007D0896 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmZDYHelp.Note : TcxGridDBColumn
|
007D0899 8B836C030000 mov eax, [ebx+$036C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007D089F E87C7DCBFF call 00488620
007D08A4 33C0 xor eax, eax
007D08A6 5A pop edx
007D08A7 59 pop ecx
007D08A8 59 pop ecx
007D08A9 648910 mov fs:[eax], edx
****** FINALLY
|
007D08AC 68C6087D00 push $007D08C6
007D08B1 8D45F8 lea eax, [ebp-$08]
007D08B4 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007D08B9 E88A4AC3FF call 00405348
007D08BE C3 ret
* Reference to: System.@HandleFinally;
|
007D08BF E93042C3FF jmp 00404AF4
007D08C4 EBEB jmp 007D08B1
****** END
|
007D08C6 5B pop ebx
007D08C7 59 pop ecx
007D08C8 59 pop ecx
007D08C9 5D pop ebp
007D08CA C20C00 ret $000C
*)
end;
procedure TfrmZDYHelp.v1note1PropertiesEditValueChanged(Sender : TObject);
begin
(*
007D08E0 55 push ebp
007D08E1 8BEC mov ebp, esp
007D08E3 B906000000 mov ecx, $00000006
007D08E8 6A00 push $00
007D08EA 6A00 push $00
007D08EC 49 dec ecx
007D08ED 75F9 jnz 007D08E8
007D08EF 51 push ecx
007D08F0 53 push ebx
007D08F1 56 push esi
007D08F2 8BDA mov ebx, edx
007D08F4 8BF0 mov esi, eax
007D08F6 33C0 xor eax, eax
007D08F8 55 push ebp
007D08F9 68770A7D00 push $007D0A77
***** TRY
|
007D08FE 64FF30 push dword ptr fs:[eax]
007D0901 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D0904 BA8C0A7D00 mov edx, $007D0A8C
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0909 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D090F E8A062CFFF call 004C6BB4
007D0914 8D55F4 lea edx, [ebp-$0C]
007D0917 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D0919 FF5160 call dword ptr [ecx+$60]
007D091C 8B45F4 mov eax, [ebp-$0C]
007D091F 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D0922 E8C59FC3FF call 0040A8EC
007D0927 837DF800 cmp dword ptr [ebp-$08], +$00
007D092B 751D jnz 007D094A
007D092D 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D092F B9940A7D00 mov ecx, $007D0A94
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D0934 BA9C0A7D00 mov edx, $007D0A9C
*)
end;
procedure TfrmZDYHelp._PROC_007CDAE6(Sender : TObject);
begin
(*
007CDAE6 7365 jnb 007CDB4D
007CDAE8 7220 jb 007CDB0A
007CDAEA 7768 jnbe 007CDB54
007CDAEC 657265 jb 007CDB54
007CDAEF 206973 and [ecx+$73], ch
007CDAF2 6E outsb
007CDAF3 756C jnz 007CDB61
007CDAF5 6C insb
007CDAF6 285374 sub [ebx+$74], dl
007CDAF9 61 popa
007CDAFA 7475 jz 007CDB71
007CDAFC 732C jnb 007CDB2A
007CDAFE 27 daa
007CDAFF 27 daa
007CDB00 293D27D4DAD3 sub dword ptr [$D3DAD427], edi
007CDB06 C3 ret
007CDB07 27 daa
007CDB08 0000 add [eax], al
007CDB0A 0000 add [eax], al
007CDB0C 55 push ebp
007CDB0D 8BEC mov ebp, esp
007CDB0F 6A00 push $00
007CDB11 53 push ebx
007CDB12 56 push esi
007CDB13 57 push edi
007CDB14 8BD8 mov ebx, eax
007CDB16 33C0 xor eax, eax
007CDB18 55 push ebp
007CDB19 68A5DB7C00 push $007CDBA5
***** TRY
|
007CDB1E 64FF30 push dword ptr fs:[eax]
007CDB21 648920 mov fs:[eax], esp
007CDB24 33C0 xor eax, eax
007CDB26 55 push ebp
* Possible String Reference to: '<27><>l<EFBFBD><6C><EFBFBD>t<<3C>'
|
007CDB27 687BDB7C00 push $007CDB7B
***** TRY
|
007CDB2C 64FF30 push dword ptr fs:[eax]
007CDB2F 648920 mov fs:[eax], esp
* Reference to control TBClose : TToolButton
|
007CDB32 8B8300030000 mov eax, [ebx+$0300]
007CDB38 B205 mov dl, $05
* Reference to: Controls.TControl.SetAlign(TControl;TAlign);
|
007CDB3A E89D9FCBFF call 00487ADC
* Reference to control DataSource1 : TDataSource
|
007CDB3F 8B9B44030000 mov ebx, [ebx+$0344]
007CDB45 33D2 xor edx, edx
007CDB47 8BC3 mov eax, ebx
007CDB49 8B08 mov ecx, [eax]
* Possible reference to virtual method TDataSource.OFFS_48
|
007CDB4B FF5148 call dword ptr [ecx+$48]
007CDB4E 8D45FC lea eax, [ebp-$04]
*)
end;
procedure TfrmZDYHelp._PROC_007CDBCC(Sender : TObject);
begin
(*
007CDBCC 55 push ebp
007CDBCD 8BEC mov ebp, esp
007CDBCF 33C9 xor ecx, ecx
007CDBD1 51 push ecx
007CDBD2 51 push ecx
007CDBD3 51 push ecx
007CDBD4 51 push ecx
007CDBD5 51 push ecx
007CDBD6 53 push ebx
007CDBD7 8945FC mov [ebp-$04], eax
007CDBDA 33C0 xor eax, eax
007CDBDC 55 push ebp
* Possible String Reference to: '<27><>m<EFBFBD><6D><EFBFBD><EFBFBD>[<5B><>]<5D>'
|
007CDBDD 6817DD7C00 push $007CDD17
***** TRY
|
007CDBE2 64FF30 push dword ptr fs:[eax]
007CDBE5 648920 mov fs:[eax], esp
007CDBE8 33C0 xor eax, eax
007CDBEA 55 push ebp
007CDBEB 68F5DC7C00 push $007CDCF5
***** TRY
|
007CDBF0 64FF30 push dword ptr fs:[eax]
007CDBF3 648920 mov fs:[eax], esp
007CDBF6 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CDBF9 8B8010030000 mov eax, [eax+$0310]
* Reference to: DB.TDataSet.DisableControls(TDataSet);
|
007CDBFF E85099CFFF call 004C7554
007CDC04 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CDC07 8B9810030000 mov ebx, [eax+$0310]
007CDC0D 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Close(TDataSet);
|
007CDC0F E8C07CCFFF call 004C58D4
007CDC14 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CDC16 E89103D1FF call 004DDFAC
007CDC1B 8B10 mov edx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_44
|
007CDC1D FF5244 call dword ptr [edx+$44]
007CDC20 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CDC22 E88503D1FF call 004DDFAC
007CDC27 50 push eax
* Possible String Reference to: 'select A.*,ZJM=dbo.getPinYin(A.ZdyN
| ame) from KH_ZDY A where A.Type=''
|
007CDC28 682CDD7C00 push $007CDD2C
007CDC2D 8B45FC mov eax, [ebp-$04]
007CDC30 FFB074030000 push dword ptr [eax+$0374]
007CDC36 687CDD7C00 push $007CDD7C
007CDC3B 8D45F8 lea eax, [ebp-$08]
007CDC3E BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007CDC43 E86C7AC3FF call 004056B4
007CDC48 8B55F8 mov edx, [ebp-$08]
007CDC4B 58 pop eax
007CDC4C 8B08 mov ecx, [eax]
007CDC4E FF5138 call dword ptr [ecx+$38]
007CDC51 8D55F4 lea edx, [ebp-$0C]
007CDC54 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmZDYHelp.OFFS_0380
|
007CDC57 8B8080030000 mov eax, [eax+$0380]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CDC5D E88ACCC3FF call 0040A8EC
007CDC62 837DF400 cmp dword ptr [ebp-$0C], +$00
007CDC66 743C jz 007CDCA4
* Possible String Reference to: ' and A.MainType=''
|
007CDC68 6888DD7C00 push $007CDD88
007CDC6D 8D55EC lea edx, [ebp-$14]
007CDC70 8B45FC mov eax, [ebp-$04]
* Reference to field TfrmZDYHelp.OFFS_0380
|
007CDC73 8B8080030000 mov eax, [eax+$0380]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007CDC79 E86ECCC3FF call 0040A8EC
007CDC7E FF75EC push dword ptr [ebp-$14]
007CDC81 687CDD7C00 push $007CDD7C
007CDC86 8D45F0 lea eax, [ebp-$10]
007CDC89 BA03000000 mov edx, $00000003
* Reference to: System.@LStrCatN;
|
007CDC8E E8217AC3FF call 004056B4
007CDC93 8B45F0 mov eax, [ebp-$10]
007CDC96 50 push eax
007CDC97 8BC3 mov eax, ebx
* Reference to: ADODB.TADOQuery.GetSQL(TADOQuery):TStrings;
|
007CDC99 E80E03D1FF call 004DDFAC
007CDC9E 5A pop edx
007CDC9F 8B08 mov ecx, [eax]
* Possible reference to virtual method TADOQuery.OFFS_38
|
007CDCA1 FF5138 call dword ptr [ecx+$38]
007CDCA4 8BC3 mov eax, ebx
* Reference to: DB.TDataSet.Open(TDataSet);
|
007CDCA6 E81D7CCFFF call 004C58C8
007CDCAB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CDCAE 8B9020030000 mov edx, [eax+$0320]
007CDCB4 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CDCB7 8B8010030000 mov eax, [eax+$0310]
|
007CDCBD E8D6E7FFFF call 007CC498
007CDCC2 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007CDCC5 8B9020030000 mov edx, [eax+$0320]
007CDCCB 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CDCCE 8B8010030000 mov eax, [eax+$0310]
|
007CDCD4 E847E9FFFF call 007CC620
007CDCD9 33C0 xor eax, eax
007CDCDB 5A pop edx
007CDCDC 59 pop ecx
007CDCDD 59 pop ecx
007CDCDE 648910 mov fs:[eax], edx
****** FINALLY
|
007CDCE1 68FCDC7C00 push $007CDCFC
007CDCE6 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmZDYHelp.ADOQueryMain : TADOQuery
|
007CDCE9 8B8010030000 mov eax, [eax+$0310]
* Reference to: DB.TDataSet.EnableControls(TDataSet);
|
007CDCEF E88098CFFF call 004C7574
007CDCF4 C3 ret
* Reference to: System.@HandleFinally;
|
007CDCF5 E9FA6DC3FF jmp 00404AF4
007CDCFA EBEA jmp 007CDCE6
****** END
|
007CDCFC 33C0 xor eax, eax
007CDCFE 5A pop edx
007CDCFF 59 pop ecx
007CDD00 59 pop ecx
007CDD01 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[<5B><>]<5D>'
|
007CDD04 681EDD7C00 push $007CDD1E
007CDD09 8D45EC lea eax, [ebp-$14]
007CDD0C BA04000000 mov edx, $00000004
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007CDD11 E83276C3FF call 00405348
007CDD16 C3 ret
* Reference to: System.@HandleFinally;
|
007CDD17 E9D86DC3FF jmp 00404AF4
007CDD1C EBEB jmp 007CDD09
****** END
|
007CDD1E 5B pop ebx
007CDD1F 8BE5 mov esp, ebp
007CDD21 5D pop ebp
007CDD22 C3 ret
*)
end;
procedure TfrmZDYHelp._PROC_007D0101(Sender : TObject);
begin
(*
007D0101 7064 jo 007D0167
007D0103 61 popa
007D0104 7465 jz 007D016B
007D0106 204B48 and [ebx+$48], cl
007D0109 5F pop edi
007D010A 5A pop edx
007D010B 647920 jns 007D012E
007D010E 53 push ebx
007D010F 657420 jz 007D0132
007D0112 4F dec edi
007D0113 7264 jb 007D0179
007D0115 65724E jb 007D0166
007D0118 6F outsd
007D0119 3D0000FFFF cmp eax, $FFFF0000
007D011E FFFF DB $FF, $FF //
007D0120 0E push cs
007D0121 0000 add [eax], al
007D0123 0020 add [eax], ah
007D0125 7768 jnbe 007D018F
007D0127 657265 jb 007D018F
007D012A 205A64 and [edx+$64], bl
007D012D 794E jns 007D017D
007D012F 6F outsd
007D0130 3D270000FF cmp eax, $FF000027
007D0135 FFFF DB $FF, $FF //
007D0137 FF050000005A inc dword ptr [$5A000000]
007D013D 64794E jns 007D018E
007D0140 6F outsd
007D0141 0000 add [eax], al
007D0143 00FF add bh, bh
007D0145 FFFF DB $FF, $FF //
007D0147 FF01 inc dword ptr [ecx]
007D0149 0000 add [eax], al
007D014B 0027 add [edi], ah
007D014D 0000 add [eax], al
007D014F 00558B add [ebp-$75], dl
007D0152 EC in al, dx
007D0153 B906000000 mov ecx, $00000006
007D0158 6A00 push $00
007D015A 6A00 push $00
007D015C 49 dec ecx
007D015D 75F9 jnz 007D0158
007D015F 51 push ecx
007D0160 53 push ebx
007D0161 56 push esi
007D0162 8BDA mov ebx, edx
007D0164 8BF0 mov esi, eax
007D0166 33C0 xor eax, eax
007D0168 55 push ebp
* Possible String Reference to: '<27><>G<EFBFBD><47><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007D0169 68F1027D00 push $007D02F1
***** TRY
|
007D016E 64FF30 push dword ptr fs:[eax]
007D0171 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D0174 BA08037D00 mov edx, $007D0308
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0179 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D017F E8306ACFFF call 004C6BB4
007D0184 8D55F4 lea edx, [ebp-$0C]
007D0187 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D0189 FF5160 call dword ptr [ecx+$60]
007D018C 8B45F4 mov eax, [ebp-$0C]
007D018F 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D0192 E855A7C3FF call 0040A8EC
007D0197 837DF800 cmp dword ptr [ebp-$08], +$00
007D019B 751D jnz 007D01BA
007D019D 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D019F B910037D00 mov ecx, $007D0310
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D01A4 BA18037D00 mov edx, $007D0318
*)
end;
procedure TfrmZDYHelp._PROC_007D034D(Sender : TObject);
begin
(*
007D034D 7064 jo 007D03B3
007D034F 61 popa
007D0350 7465 jz 007D03B7
007D0352 204B48 and [ebx+$48], cl
007D0355 5F pop edi
007D0356 5A pop edx
007D0357 647920 jns 007D037A
007D035A 53 push ebx
007D035B 657420 jz 007D037E
007D035E 4E dec esi
007D035F 6F outsd
007D0360 7465 jz 007D03C7
007D0362 3D27000000 cmp eax, $00000027
007D0367 00FF add bh, bh
007D0369 FFFF DB $FF, $FF //
007D036B FF01 inc dword ptr [ecx]
007D036D 0000 add [eax], al
007D036F 0027 add [edi], ah
007D0371 0000 add [eax], al
007D0373 00FF add bh, bh
007D0375 FFFF DB $FF, $FF //
007D0377 FF0E dec dword ptr [esi]
007D0379 0000 add [eax], al
007D037B 0020 add [eax], ah
007D037D 7768 jnbe 007D03E7
007D037F 657265 jb 007D03E7
007D0382 205A64 and [edx+$64], bl
007D0385 794E jns 007D03D5
007D0387 6F outsd
007D0388 3D270000FF cmp eax, $FF000027
007D038D FFFF DB $FF, $FF //
007D038F FF050000005A inc dword ptr [$5A000000]
007D0395 64794E jns 007D03E6
007D0398 6F outsd
007D0399 0000 add [eax], al
007D039B 00558B add [ebp-$75], dl
007D039E EC in al, dx
007D039F B906000000 mov ecx, $00000006
007D03A4 6A00 push $00
007D03A6 6A00 push $00
007D03A8 49 dec ecx
007D03A9 75F9 jnz 007D03A4
007D03AB 51 push ecx
007D03AC 53 push ebx
007D03AD 56 push esi
007D03AE 8BDA mov ebx, edx
007D03B0 8BF0 mov esi, eax
007D03B2 33C0 xor eax, eax
007D03B4 55 push ebp
* Possible String Reference to: '<27><>E<EFBFBD><45><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007D03B5 683C057D00 push $007D053C
***** TRY
|
007D03BA 64FF30 push dword ptr fs:[eax]
007D03BD 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D03C0 BA54057D00 mov edx, $007D0554
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D03C5 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D03CB E8E467CFFF call 004C6BB4
007D03D0 8D55F4 lea edx, [ebp-$0C]
007D03D3 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D03D5 FF5160 call dword ptr [ecx+$60]
007D03D8 8B45F4 mov eax, [ebp-$0C]
007D03DB 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D03DE E809A5C3FF call 0040A8EC
007D03E3 837DF800 cmp dword ptr [ebp-$08], +$00
007D03E7 751D jnz 007D0406
007D03E9 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D03EB B95C057D00 mov ecx, $007D055C
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D03F0 BA64057D00 mov edx, $007D0564
*)
end;
procedure TfrmZDYHelp._PROC_007D0599(Sender : TObject);
begin
(*
007D0599 7064 jo 007D05FF
007D059B 61 popa
007D059C 7465 jz 007D0603
007D059E 204B48 and [ebx+$48], cl
007D05A1 5F pop edi
007D05A2 5A pop edx
007D05A3 647920 jns 007D05C6
007D05A6 53 push ebx
007D05A7 657420 jz 007D05CA
007D05AA 5A pop edx
007D05AB 647946 jns 007D05F4
007D05AE 6C insb
007D05AF 61 popa
007D05B0 673D0000FFFF cmp eax, $FFFF0000
007D05B6 FFFF DB $FF, $FF //
007D05B8 0E push cs
007D05B9 0000 add [eax], al
007D05BB 0020 add [eax], ah
007D05BD 7768 jnbe 007D0627
007D05BF 657265 jb 007D0627
007D05C2 205A64 and [edx+$64], bl
007D05C5 794E jns 007D0615
007D05C7 6F outsd
007D05C8 3D270000FF cmp eax, $FF000027
007D05CD FFFF DB $FF, $FF //
007D05CF FF050000005A inc dword ptr [$5A000000]
007D05D5 64794E jns 007D0626
007D05D8 6F outsd
007D05D9 0000 add [eax], al
007D05DB 00FF add bh, bh
007D05DD FFFF DB $FF, $FF //
007D05DF FF01 inc dword ptr [ecx]
007D05E1 0000 add [eax], al
007D05E3 0027 add [edi], ah
007D05E5 0000 add [eax], al
007D05E7 00558B add [ebp-$75], dl
007D05EA EC in al, dx
007D05EB B906000000 mov ecx, $00000006
007D05F0 6A00 push $00
007D05F2 6A00 push $00
007D05F4 49 dec ecx
007D05F5 75F9 jnz 007D05F0
007D05F7 51 push ecx
007D05F8 53 push ebx
007D05F9 56 push esi
007D05FA 8BDA mov ebx, edx
007D05FC 8BF0 mov esi, eax
007D05FE 33C0 xor eax, eax
007D0600 55 push ebp
* Possible String Reference to: '<27>fC<66><43><EFBFBD><EFBFBD>^[<5B><>]<5D>'
|
007D0601 6889077D00 push $007D0789
***** TRY
|
007D0606 64FF30 push dword ptr fs:[eax]
007D0609 648920 mov fs:[eax], esp
* Possible String Reference to: 'ZdyName'
|
007D060C BAA0077D00 mov edx, $007D07A0
* Reference to control TfrmZDYHelp.ClientDataSet1 : TClientDataSet
|
007D0611 8B8620030000 mov eax, [esi+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D0617 E89865CFFF call 004C6BB4
007D061C 8D55F4 lea edx, [ebp-$0C]
007D061F 8B08 mov ecx, [eax]
* Possible reference to virtual method TClientDataSet.OFFS_60
|
007D0621 FF5160 call dword ptr [ecx+$60]
007D0624 8B45F4 mov eax, [ebp-$0C]
007D0627 8D55F8 lea edx, [ebp-$08]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D062A E8BDA2C3FF call 0040A8EC
007D062F 837DF800 cmp dword ptr [ebp-$08], +$00
007D0633 751D jnz 007D0652
007D0635 6A00 push $00
* Possible String Reference to: '<27><>ʾ'
|
007D0637 B9A8077D00 mov ecx, $007D07A8
* Possible String Reference to: '<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!'
|
007D063C BAB0077D00 mov edx, $007D07B0
*)
end;
procedure TfrmZDYHelp._PROC_007D07E9(Sender : TObject);
begin
(*
007D07E9 7064 jo 007D084F
007D07EB 61 popa
007D07EC 7465 jz 007D0853
007D07EE 204B48 and [ebx+$48], cl
007D07F1 5F pop edi
007D07F2 5A pop edx
007D07F3 647920 jns 007D0816
007D07F6 53 push ebx
007D07F7 657420 jz 007D081A
007D07FA 48 dec eax
007D07FB 656C insb
007D07FD 7054 jo 007D0853
007D07FF 7970 jns 007D0871
007D0801 653D27000000 cmp eax, $00000027
007D0807 00FF add bh, bh
007D0809 FFFF DB $FF, $FF //
007D080B FF01 inc dword ptr [ecx]
007D080D 0000 add [eax], al
007D080F 0027 add [edi], ah
007D0811 0000 add [eax], al
007D0813 00FF add bh, bh
007D0815 FFFF DB $FF, $FF //
007D0817 FF0E dec dword ptr [esi]
007D0819 0000 add [eax], al
007D081B 0020 add [eax], ah
007D081D 7768 jnbe 007D0887
007D081F 657265 jb 007D0887
007D0822 205A64 and [edx+$64], bl
007D0825 794E jns 007D0875
007D0827 6F outsd
007D0828 3D270000FF cmp eax, $FF000027
007D082D FFFF DB $FF, $FF //
007D082F FF050000005A inc dword ptr [$5A000000]
007D0835 64794E jns 007D0886
007D0838 6F outsd
007D0839 0000 add [eax], al
007D083B 0080390D750A add [eax+$A750D39], al
007D0841 C7804C02000001000000 mov dword ptr [eax+$024C], $00000001
007D084B C3 ret
007D084C 55 push ebp
007D084D 8BEC mov ebp, esp
007D084F 6A00 push $00
007D0851 6A00 push $00
007D0853 53 push ebx
007D0854 8BD8 mov ebx, eax
007D0856 33C0 xor eax, eax
007D0858 55 push ebp
007D0859 68BF087D00 push $007D08BF
***** TRY
|
007D085E 64FF30 push dword ptr fs:[eax]
007D0861 648920 mov fs:[eax], esp
* Reference to control ToolButton1 : TToolButton
|
007D0864 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.IsEmpty(TDataSet):Boolean;
|
007D086A E85176CFFF call 004C7EC0
007D086F 84C0 test al, al
007D0871 7531 jnz 007D08A4
* Possible String Reference to: 'Note'
|
007D0873 BAD8087D00 mov edx, $007D08D8
* Reference to control ToolButton1 : TToolButton
|
007D0878 8B8320030000 mov eax, [ebx+$0320]
* Reference to: DB.TDataSet.FieldByName(TDataSet;AnsiString):TField;
|
007D087E E83163CFFF call 004C6BB4
007D0883 8D55F8 lea edx, [ebp-$08]
007D0886 8B08 mov ecx, [eax]
* Reference to method TToolButton.SetDragMode(TDragMode)
|
007D0888 FF5160 call dword ptr [ecx+$60]
007D088B 8B45F8 mov eax, [ebp-$08]
007D088E 8D55FC lea edx, [ebp-$04]
* Reference to: SysUtils.Trim(AnsiString):AnsiString;overload;
|
007D0891 E856A0C3FF call 0040A8EC
007D0896 8B55FC mov edx, [ebp-$04]
* Reference to control Label20 : N.A.
|
007D0899 8B836C030000 mov eax, [ebx+$036C]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
007D089F E87C7DCBFF call 00488620
007D08A4 33C0 xor eax, eax
007D08A6 5A pop edx
007D08A7 59 pop ecx
007D08A8 59 pop ecx
007D08A9 648910 mov fs:[eax], edx
****** FINALLY
|
007D08AC 68C6087D00 push $007D08C6
007D08B1 8D45F8 lea eax, [ebp-$08]
007D08B4 BA02000000 mov edx, $00000002
* Reference to: System.@LStrArrayClr(void;void;Integer);
|
007D08B9 E88A4AC3FF call 00405348
007D08BE C3 ret
*)
end;
procedure TfrmZDYHelp._PROC_007D0AD1(Sender : TObject);
begin
(*
007D0AD1 7064 jo 007D0B37
007D0AD3 61 popa
007D0AD4 7465 jz 007D0B3B
007D0AD6 204B48 and [ebx+$48], cl
007D0AD9 5F pop edi
007D0ADA 5A pop edx
007D0ADB 647920 jns 007D0AFE
007D0ADE 53 push ebx
007D0ADF 657420 jz 007D0B02
007D0AE2 4E dec esi
007D0AE3 6F outsd
007D0AE4 7465 jz 007D0B4B
007D0AE6 313D27000000 xor [$00000027], edi
007D0AEC FFFF DB $FF, $FF //
007D0AEE FFFF DB $FF, $FF //
007D0AF0 0100 add [eax], eax
007D0AF2 0000 add [eax], al
007D0AF4 27 daa
007D0AF5 0000 add [eax], al
007D0AF7 00FF add bh, bh
007D0AF9 FFFF DB $FF, $FF //
007D0AFB FF0E dec dword ptr [esi]
007D0AFD 0000 add [eax], al
007D0AFF 0020 add [eax], ah
007D0B01 7768 jnbe 007D0B6B
007D0B03 657265 jb 007D0B6B
007D0B06 205A64 and [edx+$64], bl
007D0B09 794E jns 007D0B59
007D0B0B 6F outsd
007D0B0C 3D270000FF cmp eax, $FF000027
007D0B11 FFFF DB $FF, $FF //
007D0B13 FF050000005A inc dword ptr [$5A000000]
007D0B19 64794E jns 007D0B6A
007D0B1C 6F outsd
007D0B1D 0000 add [eax], al
007D0B1F 00558B add [ebp-$75], dl
007D0B22 EC in al, dx
007D0B23 33C0 xor eax, eax
007D0B25 55 push ebp
* Possible String Reference to: '<27><>?<3F><><EFBFBD><EFBFBD>]Ë<><C38B>-x<<3C>'
|
007D0B26 68450B7D00 push $007D0B45
***** TRY
|
007D0B2B 64FF30 push dword ptr fs:[eax]
007D0B2E 648920 mov fs:[eax], esp
007D0B31 FF05783C8900 inc dword ptr [$00893C78]
007D0B37 33C0 xor eax, eax
007D0B39 5A pop edx
007D0B3A 59 pop ecx
007D0B3B 59 pop ecx
007D0B3C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-x<<3C>'
|
007D0B3F 684C0B7D00 push $007D0B4C
007D0B44 C3 ret
* Reference to: System.@HandleFinally;
|
007D0B45 E9AA3FC3FF jmp 00404AF4
007D0B4A EBF8 jmp 007D0B44
****** END
|
007D0B4C 5D pop ebp
007D0B4D C3 ret
007D0B4E 8BC0 mov eax, eax
007D0B50 832D783C890001 sub dword ptr [$00893C78], +$01
007D0B57 C3 ret
007D0B58 55 push ebp
007D0B59 8BEC mov ebp, esp
007D0B5B 33C0 xor eax, eax
007D0B5D 55 push ebp
* Possible String Reference to: '<27>r?<3F><><EFBFBD><EFBFBD>]Ë<><C38B>-|<<3C>'
|
007D0B5E 687D0B7D00 push $007D0B7D
***** TRY
|
007D0B63 64FF30 push dword ptr fs:[eax]
007D0B66 648920 mov fs:[eax], esp
007D0B69 FF057C3C8900 inc dword ptr [$00893C7C]
007D0B6F 33C0 xor eax, eax
007D0B71 5A pop edx
007D0B72 59 pop ecx
007D0B73 59 pop ecx
007D0B74 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']Ë<><C38B>-|<<3C>'
|
007D0B77 68840B7D00 push $007D0B84
007D0B7C C3 ret
*)
end;
procedure TfrmZDYHelp._PROC_007D0B7D(Sender : TObject);
begin
(*
* Reference to: System.@HandleFinally;
|
007D0B7D E9723FC3FF jmp 00404AF4
|
007D0B82 EBF8 jmp 007D0B7C
007D0B84 5D pop ebp
007D0B85 C3 ret
*)
end;
procedure TfrmZDYHelp._PROC_007D0B88(Sender : TObject);
begin
(*
007D0B88 832D7C3C890001 sub dword ptr [$00893C7C], +$01
007D0B8F C3 ret
*)
end;
procedure TfrmZDYHelp._PROC_007D0B90(Sender : TObject);
begin
(*
007D0B90 DC0B fmul qword ptr [ebx]
007D0B92 7D00 jnl 007D0B94
007D0B94 0000 add [eax], al
*)
end;
procedure TfrmZDYHelp._PROC_007D0BF6(Sender : TObject);
begin
(*
007D0BF6 48 dec eax
007D0BF7 0050D4 add [eax-$2C], dl
007D0BFA 42 inc edx
007D0BFB 0008 add [eax], cl
007D0BFD 2D4A007CD0 sub eax, $D07C004A
007D0C02 42 inc edx
007D0C03 00F4 add ah, dh
007D0C05 6B4A00D0 imul ecx, [edx+$00], $D0
007D0C09 1D4A0030F6 sbb eax, $F630004A
007D0C0E 48 dec eax
007D0C0F 004CFB48 add [ebx+edi*8+$48], cl
007D0C13 0098FA48000C add [eax+$C0048FA], bl
007D0C19 7948 jns 007D0C63
007D0C1B 00ACF04800E829 add [eax+esi*8+$29E80048], ch
007D0C22 4A dec edx
007D0C23 00E4 add ah, ah
007D0C25 ED in eax, dx
007D0C26 48 dec eax
007D0C27 00547848 add [eax+edi*2+$48], dl
007D0C2B 005878 add [eax+$78], bl
007D0C2E 48 dec eax
007D0C2F 00DC add ah, bl
007D0C31 2A4A00 sub cl, byte ptr [edx+$00]
007D0C34 3CA9 cmp al, $A9
007D0C36 48 dec eax
007D0C37 00C0 add al, al
007D0C39 834800D0 or dword ptr [eax+$00], -$30
007D0C3D 7948 jns 007D0C87
007D0C3F 004C8548 add [ebp+eax*4+$48], cl
007D0C43 00D0 add al, dl
007D0C45 2C4A sub al, $4A
007D0C47 009C2B4A008486 add [ebx+ebp+$8684004A], bl
007D0C4E 48 dec eax
007D0C4F 00482D add [eax+$2D], cl
007D0C52 4A dec edx
007D0C53 00C0 add al, al
007D0C55 A9480038EE test eax, $EE380048
007D0C5A 48 dec eax
007D0C5B 00F4 add ah, dh
007D0C5D EE out dx, al
007D0C5E 48 dec eax
007D0C5F 00F0 add al, dh
007D0C61 E94800D8EE jmp EF550CAE
007D0C66 48 dec eax
007D0C67 00D8 add al, bl
007D0C69 1B4A00 sbb ecx, [edx+$00]
007D0C6C EC in al, dx
007D0C6D 334A00 xor ecx, [edx+$00]
007D0C70 20C4 and ah, al
007D0C72 48 dec eax
007D0C73 00B0404A0010 add [eax+$10004A40], dh
007D0C79 44 inc esp
007D0C7A 4A dec edx
007D0C7B 00CC add ah, cl
007D0C7D 42 inc edx
007D0C7E 4A dec edx
007D0C7F 00B8C44800BC add [eax+$BC0048C4], bh
007D0C85 C44800 les ecx, [eax+$00]
007D0C88 48 dec eax
007D0C89 45 inc ebp
007D0C8A 4A dec edx
007D0C8B 001CC3 add [ebx+eax*8], bl
007D0C8E 48 dec eax
007D0C8F 0018 add [eax], bl
007D0C91 F0 lock
007D0C92 48 dec eax
007D0C93 00444C4A add [esp+ecx*2+$4A], al
007D0C97 000C02 add [edx+eax], cl
007D0C9A 49 dec ecx
007D0C9B 0094EC48009C64 add [esp+ebp*8+$649C0048], dl
007D0CA2 4A dec edx
007D0CA3 008C154A003C18 add [ebp+edx+$183C004A], cl
007D0CAA 4A dec edx
007D0CAB 0038 add [eax], bh
007D0CAD 52 push edx
007D0CAE 4A dec edx
007D0CAF 005C224A add [edx+$4A], bl
007D0CB3 00D8 add al, bl
007D0CB5 224A00 and cl, byte ptr [edx+$00]
007D0CB8 7C68 jl 007D0D22
007D0CBA 4A dec edx
007D0CBB 00941F4A003C60 add [edi+ebx+$603C004A], dl
007D0CC2 4A dec edx
007D0CC3 001447 add [edi+eax*2], dl
007D0CC6 4A dec edx
007D0CC7 0034654A00CC2C add [$2CCC004A], dh
007D0CCE 4A dec edx
007D0CCF 000E add [esi], cl
007D0CD1 0000 add [eax], al
007D0CD3 0000 add [eax], al
007D0CD5 0001 add [ecx], al
007D0CD7 0000 add [eax], al
007D0CD9 0020 add [eax], ah
007D0CDB 114000 adc [eax+$00], eax
007D0CDE E803000037 call 377D0CE6
007D0CE3 00C2 add dl, al
007D0CE5 117D00 adc [ebp+$00], edi
007D0CE8 F8 clc
007D0CE9 0200 add al, byte ptr [eax]
007D0CEB 0000 add [eax], al
007D0CED 0008 add [eax], cl
007D0CEF 54 push esp
007D0CF0 6F outsd
007D0CF1 6F outsd
007D0CF2 6C insb
007D0CF3 42 inc edx
007D0CF4 61 popa
007D0CF5 7231 jb 007D0D28
007D0CF7 FC cld
007D0CF8 0200 add al, byte ptr [eax]
007D0CFA 0001 add [ecx], al
007D0CFC 0009 add [ecx], cl
007D0CFE 54 push esp
007D0CFF 42 inc edx
007D0D00 52 push edx
007D0D01 61 popa
007D0D02 667265 jb 007D0D6A
007D0D05 7368 jnb 007D0D6F
007D0D07 0003 add [ebx], al
007D0D09 0000 add [eax], al
007D0D0B 0100 add [eax], eax
007D0D0D 06 push es
007D0D0E 54 push esp
007D0D0F 42 inc edx
007D0D10 46 inc esi
007D0D11 696E6404030000 imul ebp, [esi+$64], $00000304
007D0D18 0100 add [eax], eax
007D0D1A 07 pop es
007D0D1B 54 push esp
007D0D1C 42 inc edx
007D0D1D 43 inc ebx
007D0D1E 6C insb
007D0D1F 6F outsd
007D0D20 7365 jnb 007D0D87
007D0D22 0803 or [ebx], al
007D0D24 0000 add [eax], al
007D0D26 0200 add al, byte ptr [eax]
007D0D28 06 push es
007D0D29 50 push eax
007D0D2A 61 popa
007D0D2B 6E outsb
007D0D2C 656C insb
007D0D2E 310C03 xor [ebx+eax], ecx
007D0D31 0000 add [eax], al
007D0D33 0300 add eax, [eax]
007D0D35 07 pop es
007D0D36 42 inc edx
007D0D37 656744 inc esp
007D0D3A 61 popa
007D0D3B 7465 jz 007D0DA2
007D0D3D 1003 adc [ebx], al
007D0D3F 0000 add [eax], al
007D0D41 0300 add eax, [eax]
007D0D43 07 pop es
007D0D44 45 inc ebp
007D0D45 6E outsb
007D0D46 6444 inc esp
007D0D48 61 popa
007D0D49 7465 jz 007D0DB0
007D0D4B 1403 adc al, $03
007D0D4D 0000 add [eax], al
007D0D4F 0400 add al, +$00
007D0D51 06 push es
007D0D52 4C dec esp
007D0D53 61 popa
007D0D54 62656C bound esp, qword ptr [ebp+$6C]
007D0D57 3118 xor [eax], ebx
007D0D59 0300 add eax, [eax]
007D0D5B 000500106378 add [$78631000], al
007D0D61 47 inc edi
007D0D62 7269 jb 007D0DCD
007D0D64 6450 push eax
007D0D66 6F outsd
007D0D67 7075 jo 007D0DDE
007D0D69 704D jo 007D0DB8
007D0D6B 656E outsb
007D0D6D 7531 jnz 007D0DA0
007D0D6F 1C03 sbb al, $03
007D0D71 0000 add [eax], al
007D0D73 06 push es
007D0D74 000B add [ebx], cl
007D0D76 41 inc ecx
007D0D77 44 inc esp
007D0D78 4F dec edi
007D0D79 51 push ecx
007D0D7A 7565 jnz 007D0DE1
007D0D7C 7279 jb 007D0DF7
007D0D7E 43 inc ebx
007D0D7F 6D insd
007D0D80 642003 and fs:[ebx], al
007D0D83 0000 add [eax], al
007D0D85 06 push es
007D0D86 000C41 add [ecx+eax*2], cl
007D0D89 44 inc esp
007D0D8A 4F dec edi
007D0D8B 51 push ecx
007D0D8C 7565 jnz 007D0DF3
007D0D8E 7279 jb 007D0E09
007D0D90 4D dec ebp
007D0D91 61 popa
007D0D92 696E2403000006 imul ebp, [esi+$24], $06000003
007D0D99 000C41 add [ecx+eax*2], cl
007D0D9C 44 inc esp
007D0D9D 4F dec edi
007D0D9E 51 push ecx
007D0D9F 7565 jnz 007D0E06
007D0DA1 7279 jb 007D0E1C
007D0DA3 54 push esp
007D0DA4 656D insd
007D0DA6 7028 jo 007D0DD0
007D0DA8 0300 add eax, [eax]
007D0DAA 0007 add [edi], al
007D0DAC 000B add [ebx], cl
007D0DAE 44 inc esp
007D0DAF 61 popa
007D0DB0 7461 jz 007D0E13
007D0DB2 53 push ebx
007D0DB3 6F outsd
007D0DB4 7572 jnz 007D0E28
007D0DB6 636531 arpl [ebp+$31], sp
007D0DB9 2C03 sub al, $03
007D0DBB 0000 add [eax], al
007D0DBD 0400 add al, +$00
007D0DBF 06 push es
007D0DC0 4C dec esp
007D0DC1 61 popa
007D0DC2 62656C bound esp, qword ptr [ebp+$6C]
007D0DC5 3330 xor esi, [eax]
007D0DC7 0300 add eax, [eax]
007D0DC9 0008 add [eax], cl
007D0DCB 0008 add [eax], cl
007D0DCD 4F dec edi
007D0DCE 7264 jb 007D0E34
007D0DD0 65724E jb 007D0E21
007D0DD3 6F outsd
007D0DD4 4D dec ebp
007D0DD5 3403 xor al, $03
007D0DD7 0000 add [eax], al
007D0DD9 0900 or [eax], eax
007D0DDB 0A4F72 or cl, byte ptr [edi+$72]
007D0DDE 6465725F jb 007D0E41
007D0DE2 4D dec ebp
007D0DE3 61 popa
007D0DE4 696E380300000A imul ebp, [esi+$38], $0A000003
007D0DEB 0003 add [ebx], al
007D0DED 52 push edx
007D0DEE 4D dec ebp
007D0DEF 313C03 xor [ebx+eax], edi
007D0DF2 0000 add [eax], al
007D0DF4 0B00 or eax, [eax]
007D0DF6 08524D or [edx+$4D], dl
007D0DF9 44 inc esp
007D0DFA 42 inc edx
007D0DFB 4D dec ebp
007D0DFC 61 popa
007D0DFD 696E400300000C imul ebp, [esi+$40], $0C000003
007D0E04 000C52 add [edx+edx*2], cl
007D0E07 4D dec ebp
007D0E08 58 pop eax
007D0E09 4C dec esp
007D0E0A 53 push ebx
007D0E0B 45 inc ebp
007D0E0C 7870 js 007D0E7E
007D0E0E 6F outsd
007D0E0F 7274 jb 007D0E85
007D0E11 31440300 xor [ebx+eax+$00], eax
007D0E15 000400 add [eax+eax], al
007D0E18 06 push es
007D0E19 4C dec esp
007D0E1A 61 popa
007D0E1B 62656C bound esp, qword ptr [ebp+$6C]
007D0E1E 3448 xor al, $48
007D0E20 0300 add eax, [eax]
007D0E22 0008 add [eax], cl
007D0E24 000E add [esi], cl
007D0E26 43 inc ebx
007D0E27 7573 jnz 007D0E9C
007D0E29 746F jz 007D0E9A
007D0E2B 6D insd
007D0E2C 65724E jb 007D0E7D
007D0E2F 6F outsd
007D0E30 4E dec esi
007D0E31 61 popa
007D0E32 6D insd
007D0E33 654C dec esp
007D0E35 0300 add eax, [eax]
007D0E37 000D000A506F add [$6F500A00], cl
007D0E3D 7075 jo 007D0EB4
007D0E3F 704D jo 007D0E8E
007D0E41 656E outsb
007D0E43 7531 jnz 007D0E76
007D0E45 50 push eax
007D0E46 0300 add eax, [eax]
007D0E48 000E add [esi], cl
007D0E4A 0002 add [edx], al
007D0E4C 4E dec esi
007D0E4D 32540300 xor dl, byte ptr [ebx+eax+$00]
007D0E51 000400 add [eax+eax], al
007D0E54 06 push es
007D0E55 4C dec esp
007D0E56 61 popa
007D0E57 62656C bound esp, qword ptr [ebp+$6C]
007D0E5A 3558030000 xor eax, $00000358
007D0E5F 0800 or [eax], al
007D0E61 035957 add ebx, [ecx+$57]
007D0E64 59 pop ecx
007D0E65 5C pop esp
007D0E66 0300 add eax, [eax]
007D0E68 000400 add [eax+eax], al
007D0E6B 06 push es
007D0E6C 4C dec esp
007D0E6D 61 popa
007D0E6E 62656C bound esp, qword ptr [ebp+$6C]
007D0E71 37 aaa
007D0E72 60 pusha
007D0E73 0300 add eax, [eax]
007D0E75 0008 add [eax], cl
007D0E77 0008 add [eax], cl
007D0E79 50 push eax
007D0E7A 52 push edx
007D0E7B 54 push esp
007D0E7C 43 inc ebx
007D0E7D 6F outsd
007D0E7E 6C insb
007D0E7F 6F outsd
007D0E80 7264 jb 007D0EE6
007D0E82 0300 add eax, [eax]
007D0E84 000400 add [eax+eax], al
007D0E87 06 push es
007D0E88 4C dec esp
007D0E89 61 popa
007D0E8A 62656C bound esp, qword ptr [ebp+$6C]
007D0E8D 386803 cmp [eax+$03], ch
007D0E90 0000 add [eax], al
007D0E92 0800 or [eax], al
007D0E94 0C4D or al, $4D
007D0E96 50 push eax
007D0E97 52 push edx
007D0E98 54 push esp
007D0E99 43 inc ebx
007D0E9A 6F outsd
007D0E9B 64654E dec esi
007D0E9E 61 popa
007D0E9F 6D insd
007D0EA0 656C insb
007D0EA2 0300 add eax, [eax]
007D0EA4 000400 add [eax+eax], al
007D0EA7 06 push es
007D0EA8 4C dec esp
007D0EA9 61 popa
007D0EAA 62656C bound esp, qword ptr [ebp+$6C]
007D0EAD 397003 cmp [eax+$03], esi
007D0EB0 0000 add [eax], al
007D0EB2 0800 or [eax], al
007D0EB4 05436F6E4E add eax, +$4E6E6F43
007D0EB9 6F outsd
007D0EBA 7403 jz 007D0EBF
007D0EBC 0000 add [eax], al
007D0EBE 0400 add al, +$00
007D0EC0 07 pop es
007D0EC1 4C dec esp
007D0EC2 61 popa
007D0EC3 62656C bound esp, qword ptr [ebp+$6C]
007D0EC6 3132 xor [edx], esi
007D0EC8 7803 js 007D0ECD
007D0ECA 0000 add [eax], al
007D0ECC 0800 or [eax], al
007D0ECE 06 push es
007D0ECF 4D dec ebp
007D0ED0 50 push eax
007D0ED1 52 push edx
007D0ED2 54 push esp
007D0ED3 4B dec ebx
007D0ED4 5A pop edx
007D0ED5 7C03 jl 007D0EDA
007D0ED7 0000 add [eax], al
007D0ED9 0400 add al, +$00
007D0EDB 07 pop es
007D0EDC 4C dec esp
007D0EDD 61 popa
007D0EDE 62656C bound esp, qword ptr [ebp+$6C]
007D0EE1 3133 xor [ebx], esi
007D0EE3 800300 add byte ptr [ebx], $00
007D0EE6 0008 add [eax], cl
007D0EE8 0006 add [esi], al
007D0EEA 4D dec ebp
007D0EEB 50 push eax
007D0EEC 52 push edx
007D0EED 54 push esp
007D0EEE 4D dec ebp
007D0EEF 46 inc esi
007D0EF0 8403 test [ebx], al
007D0EF2 0000 add [eax], al
*)
end;
end.
Reference in New Issue Copy Permalink