📄 tjrange.pas
字号:
unit TJRange;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls
type
TfrmQyTJ=class(TForm)
DateTimePicker1: TDateTimePicker;
Label10: TLabel;
DateTimePicker2: TDateTimePicker;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
Bevel4: TBevel;
Bevel5: TBevel;
Bevel6: TBevel;
Bevel7: TBevel;
Bevel8: TBevel;
Bevel9: TBevel;
Bevel10: TBevel;
Bevel11: TBevel;
Bevel12: TBevel;
Label15: TLabel;
Bevel13: TBevel;
Bevel14: TBevel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label31: TLabel;
Label32: TLabel;
procedure FormKeyDown(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure DateTimePicker1Change(Sender : TObject);
procedure _PROC_0065DB24(Sender : TObject);
procedure _PROC_0065E2F0(Sender : TObject);
procedure _PROC_0065E320(Sender : TObject);
procedure Proc_0065DA58(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmQyTJ: TfrmQyTJ;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmQyTJ.FormKeyDown(Sender : TObject);
begin
(*
0065E274 55 push ebp
0065E275 8BEC mov ebp, esp
0065E277 6683391B cmp word ptr [ecx], +$1B
0065E27B 7505 jnz 0065E282
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0065E27D E83A7EDFFF call 004560BC
0065E282 5D pop ebp
0065E283 C20400 ret $0004
*)
end;
procedure TfrmQyTJ.FormClose(Sender : TObject);
begin
(*
0065E288 C60102 mov byte ptr [ecx], $02
0065E28B A184D47700 mov eax, dword ptr [$0077D484]
0065E290 33D2 xor edx, edx
0065E292 8910 mov [eax], edx
0065E294 C3 ret
*)
end;
procedure TfrmQyTJ.Button1Click(Sender : TObject);
begin
(*
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0065E298 E81F7EDFFF call 004560BC
0065E29D C3 ret
*)
end;
procedure TfrmQyTJ.DateTimePicker1Change(Sender : TObject);
begin
(*
0065E2A0 53 push ebx
0065E2A1 83C4F8 add esp, -$08
0065E2A4 8BD8 mov ebx, eax
* Reference to control TfrmQyTJ.DateTimePicker1 : TDateTimePicker
|
0065E2A6 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: comctrls.TDateTimePicker.GetTime(TDateTimePicker):TTime;
|
0065E2AC E833BDE2FF call 00489FE4
0065E2B1 83C4F8 add esp, -$08
0065E2B4 DD1C24 fstp qword ptr [esp]
0065E2B7 9B wait
* Reference to: Unit_005B0D4C.Proc_005B1740
|
0065E2B8 E88334F5FF call 005B1740
0065E2BD 890424 mov [esp], eax
* Reference to control TfrmQyTJ.DateTimePicker2 : TDateTimePicker
|
0065E2C0 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: comctrls.TDateTimePicker.GetTime(TDateTimePicker):TTime;
|
0065E2C6 E819BDE2FF call 00489FE4
0065E2CB 83C4F8 add esp, -$08
0065E2CE DD1C24 fstp qword ptr [esp]
0065E2D1 9B wait
* Reference to: Unit_005B0D4C.Proc_005B1740
|
0065E2D2 E86934F5FF call 005B1740
0065E2D7 89442404 mov [esp+$04], eax
0065E2DB 8B4C2404 mov ecx, [esp+$04]
0065E2DF 8B1424 mov edx, [esp]
0065E2E2 8BC3 mov eax, ebx
* Reference to : TfrmQyTJ._PROC_0065DB24()
|
0065E2E4 E83BF8FFFF call 0065DB24
0065E2E9 59 pop ecx
0065E2EA 5A pop edx
0065E2EB 5B pop ebx
0065E2EC C3 ret
*)
end;
procedure TfrmQyTJ._PROC_0065DB24(Sender : TObject);
begin
(*
0065DB24 55 push ebp
0065DB25 8BEC mov ebp, esp
0065DB27 81C494FEFFFF add esp, $FFFFFE94
0065DB2D 53 push ebx
0065DB2E 56 push esi
0065DB2F 33DB xor ebx, ebx
0065DB31 899D94FEFFFF mov [ebp+$FFFFFE94], ebx
0065DB37 899D98FEFFFF mov [ebp+$FFFFFE98], ebx
0065DB3D 899D9CFEFFFF mov [ebp+$FFFFFE9C], ebx
0065DB43 899DA0FEFFFF mov [ebp+$FFFFFEA0], ebx
0065DB49 899DA4FEFFFF mov [ebp+$FFFFFEA4], ebx
0065DB4F 895DAC mov [ebp-$54], ebx
0065DB52 895DA8 mov [ebp-$58], ebx
0065DB55 895DF4 mov [ebp-$0C], ebx
0065DB58 895DF0 mov [ebp-$10], ebx
0065DB5B 895DEC mov [ebp-$14], ebx
0065DB5E 894DF8 mov [ebp-$08], ecx
0065DB61 8955FC mov [ebp-$04], edx
0065DB64 8BD8 mov ebx, eax
0065DB66 8D75B0 lea esi, [ebp-$50]
0065DB69 33C0 xor eax, eax
0065DB6B 55 push ebp
0065DB6C 680BE26500 push $0065E20B
***** TRY
|
0065DB71 64FF30 push dword ptr fs:[eax]
0065DB74 648920 mov fs:[eax], esp
0065DB77 6A00 push $00
0065DB79 8D45F0 lea eax, [ebp-$10]
0065DB7C 50 push eax
* Reference to field TfrmQyTJ.OFFS_0398
|
0065DB7D 8B8398030000 mov eax, [ebx+$0398]
* Reference to class TAlysWin
|
0065DB83 8B157CEE6300 mov edx, [$0063EE7C]
* Reference to: system.@AsClass;
|
0065DB89 E8CE58DAFF call 0040345C
0065DB8E 8A805A050000 mov al, byte ptr [eax+$055A]
0065DB94 B101 mov cl, $01
0065DB96 8B55FC mov edx, [ebp-$04]
* Reference to: Unit_00651A88.Proc_006522FC
|
0065DB99 E85E47FFFF call 006522FC
0065DB9E 6A00 push $00
0065DBA0 8D45EC lea eax, [ebp-$14]
0065DBA3 50 push eax
* Reference to field TfrmQyTJ.OFFS_0398
|
0065DBA4 8B8398030000 mov eax, [ebx+$0398]
* Reference to class TAlysWin
|
0065DBAA 8B157CEE6300 mov edx, [$0063EE7C]
* Reference to: system.@AsClass;
|
0065DBB0 E8A758DAFF call 0040345C
0065DBB5 8A805A050000 mov al, byte ptr [eax+$055A]
0065DBBB B101 mov cl, $01
0065DBBD 8B55F8 mov edx, [ebp-$08]
* Reference to: Unit_00651A88.Proc_006522FC
|
0065DBC0 E83747FFFF call 006522FC
0065DBC5 8B55F0 mov edx, [ebp-$10]
* Reference to control TfrmQyTJ.Label31 : TLabel
|
0065DBC8 8B8390030000 mov eax, [ebx+$0390]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0065DBCE E8ADBEDDFF call 00439A80
0065DBD3 8B55EC mov edx, [ebp-$14]
* Reference to control TfrmQyTJ.Label32 : TLabel
|
0065DBD6 8B8394030000 mov eax, [ebx+$0394]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0065DBDC E89FBEDDFF call 00439A80
0065DBE1 56 push esi
* Reference to field TfrmQyTJ.OFFS_0398
|
0065DBE2 8B8398030000 mov eax, [ebx+$0398]
* Reference to class TAlysWin
|
0065DBE8 8B157CEE6300 mov edx, [$0063EE7C]
* Reference to: system.@AsClass;
|
0065DBEE E86958DAFF call 0040345C
0065DBF3 8B4DF8 mov ecx, [ebp-$08]
0065DBF6 8B55FC mov edx, [ebp-$04]
* Reference to : TAlysWin._PROC_006456B8()
|
0065DBF9 E8BA7AFEFF call 006456B8
0065DBFE DB2D18E26500 fld tbyte ptr [$0065E218]
0065DC04 D82E fsubr dword ptr [esi]
0065DC06 D9E1 fabs
0065DC08 D81D24E26500 fcomp dword ptr [$0065E224]
0065DC0E DFE0 fstsw ax
0065DC10 9E sahf
0065DC11 7639 jbe 0065DC4C
* Possible String Reference to: '共'
|
0065DC13 6830E26500 push $0065E230
0065DC18 D906 fld dword ptr [esi]
* Reference to: system.@TRUNC;
|
0065DC1A E8E150DAFF call 00402D00
0065DC1F 52 push edx
0065DC20 50 push eax
0065DC21 8D45A8 lea eax, [ebp-$58]
* Reference to: Unit_00409434.Proc_0040A594
|
0065DC24 E86BC9DAFF call 0040A594
0065DC29 FF75A8 push dword ptr [ebp-$58]
* Possible String Reference to: '组数据'
|
0065DC2C 683CE26500 push $0065E23C
0065DC31 8D45AC lea eax, [ebp-$54]
0065DC34 BA03000000 mov edx, $00000003
* Reference to: system.@LStrCatN;
|
0065DC39 E81268DAFF call 00404450
0065DC3E 8B55AC mov edx, [ebp-$54]
* Reference to control TfrmQyTJ.Label16 : TLabel
|
0065DC41 8B8354030000 mov eax, [ebx+$0354]
* Reference to: controls.TControl.SetText(TControl;TCaption);
|
0065DC47 E834BEDDFF call 00439A80
0065DC4C DB2D18E26500 fld tbyte ptr [$0065E218]
0065DC52 D86E04 fsubr dword ptr [esi+$04]
0065DC55 D9E1 fabs
0065DC57 D81D24E26500 fcomp dword ptr [$0065E224]
0065DC5D DFE0 fstsw ax
0065DC5F 9E sahf
0065DC60 763D jbe 0065DC9F
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -