📄 reason.pas
字号:
unit Reason;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmReason=class(TForm)
RxGradientCaption1: TRxGradientCaption;
Label1: TLabel;
Image1: TImage;
mChartInvest: TChart;
Series1: TPieSeries;
PaintBox1: TPaintBox;
image2: TImage;
Button1: TButton;
Label2: TLabel;
OFFS_00D3: N.A.;
OFFS_0304: N.A.;
OFFS_0300: N.A.;
OFFS_0328: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure FormKeyDown(Sender : TObject);
procedure image2Click(Sender : TObject);
procedure PaintBox1Paint(Sender : TObject);
procedure PaintBox1MouseDown(Sender : TObject);
procedure FormMouseWheel(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure _PROC_0069A28C(Sender : TObject);
procedure _PROC_0069A294(Sender : TObject);
procedure _PROC_0069A31C(Sender : TObject);
procedure _PROC_0069A450(Sender : TObject);
procedure _PROC_0069A774(Sender : TObject);
procedure _PROC_0069A7D0(Sender : TObject);
procedure _PROC_0069A7F4(Sender : TObject);
procedure _PROC_0069AC75(Sender : TObject);
procedure _PROC_0069ACC4(Sender : TObject);
procedure _PROC_0069B14D(Sender : TObject);
procedure _PROC_0069B7E0(Sender : TObject);
procedure _PROC_0069BC5C(Sender : TObject);
procedure _PROC_0069BC8C(Sender : TObject);
procedure Proc_0069AC74(Sender : TObject);
procedure Proc_0069B14C(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmReason: TfrmReason;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmReason.FormCreate(Sender : TObject);
begin
(*
0069A218 53 push ebx
0069A219 8BD8 mov ebx, eax
* Reference to field TfrmReason.OFFS_0304 : String
|
0069A21B 8D8304030000 lea eax, [ebx+$0304]
* Reference to: system.@LStrClr(String;String);
|
0069A221 E8CE9ED6FF call 004040F4
0069A226 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_02F8
|
0069A228 8983F8020000 mov [ebx+$02F8], eax
0069A22E 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_02FC
|
0069A230 8983FC020000 mov [ebx+$02FC], eax
0069A236 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0310
|
0069A238 898310030000 mov [ebx+$0310], eax
0069A23E 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0320
|
0069A240 898320030000 mov [ebx+$0320], eax
0069A246 5B pop ebx
0069A247 C3 ret
*)
end;
procedure TfrmReason.FormDestroy(Sender : TObject);
begin
(*
0069A248 53 push ebx
0069A249 8BD8 mov ebx, eax
* Reference to field TfrmReason.OFFS_02F8
|
0069A24B 8B83F8020000 mov eax, [ebx+$02F8]
0069A251 85C0 test eax, eax
0069A253 7405 jz 0069A25A
* Reference to: system.TObject.Free(TObject);
|
0069A255 E87290D6FF call 004032CC
* Reference to field TfrmReason.OFFS_02FC
|
0069A25A 8B83FC020000 mov eax, [ebx+$02FC]
0069A260 85C0 test eax, eax
0069A262 7405 jz 0069A269
* Reference to: system.TObject.Free(TObject);
|
0069A264 E86390D6FF call 004032CC
* Reference to field TfrmReason.OFFS_0310
|
0069A269 8B8310030000 mov eax, [ebx+$0310]
0069A26F 85C0 test eax, eax
0069A271 7405 jz 0069A278
* Reference to: system.@FreeMem;
|
0069A273 E80886D6FF call 00402880
* Reference to field TfrmReason.OFFS_0320
|
0069A278 8B8320030000 mov eax, [ebx+$0320]
0069A27E 85C0 test eax, eax
0069A280 7405 jz 0069A287
* Reference to: system.@FreeMem;
|
0069A282 E8F985D6FF call 00402880
0069A287 5B pop ebx
0069A288 C3 ret
*)
end;
procedure TfrmReason.FormKeyDown(Sender : TObject);
begin
(*
0069B1E0 55 push ebp
0069B1E1 8BEC mov ebp, esp
0069B1E3 53 push ebx
0069B1E4 56 push esi
0069B1E5 57 push edi
0069B1E6 8BF1 mov esi, ecx
0069B1E8 8BD8 mov ebx, eax
0069B1EA 668B06 mov ax, word ptr [esi]
0069B1ED 6683E80D sub ax, +$0D
0069B1F1 740F jz 0069B202
0069B1F3 6683E80E sub ax, +$0E
0069B1F7 7568 jnz 0069B261
0069B1F9 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0069B1FB E8BCAEDBFF call 004560BC
0069B200 EB5F jmp 0069B261
0069B202 8BC3 mov eax, ebx
* Reference to: forms.TCustomForm.Close(TCustomForm);
|
0069B204 E8B3AEDBFF call 004560BC
* Reference to field TfrmReason.OFFS_0300 : Byte
|
0069B209 8A8300030000 mov al, byte ptr [ebx+$0300]
0069B20F 2C02 sub al, $02
0069B211 7208 jb 0069B21B
0069B213 741E jz 0069B233
0069B215 FEC8 dec al
0069B217 7432 jz 0069B24B
0069B219 EB46 jmp 0069B261
* Reference to field TfrmReason.OFFS_02F4
|
0069B21B 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to class TfrmConsult
|
0069B221 8B15AC826900 mov edx, [$006982AC]
* Reference to: system.@AsClass;
|
0069B227 E83082D6FF call 0040345C
* Reference to : TfrmConsult._PROC_00698DD0()
|
0069B22C E89FDBFFFF call 00698DD0
0069B231 EB2E jmp 0069B261
* Reference to field TfrmReason.OFFS_02F4
|
0069B233 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to class TfrmFund
|
0069B239 8B1594BC6900 mov edx, [$0069BC94]
* Reference to: system.@AsClass;
|
0069B23F E81882D6FF call 0040345C
* Reference to : TfrmFund._PROC_0069EAB8()
|
0069B244 E86F380000 call 0069EAB8
0069B249 EB16 jmp 0069B261
* Reference to field TfrmReason.OFFS_02F4
|
0069B24B 8B83F4020000 mov eax, [ebx+$02F4]
* Reference to class TfrmFund
|
0069B251 8B1594BC6900 mov edx, [$0069BC94]
* Reference to: system.@AsClass;
|
0069B257 E80082D6FF call 0040345C
* Reference to : TfrmFund._PROC_0069EAE0()
|
0069B25C E87F380000 call 0069EAE0
* Reference to field TfrmReason.OFFS_02FC
|
0069B261 8BBBFC020000 mov edi, [ebx+$02FC]
0069B267 85FF test edi, edi
0069B269 0F8464020000 jz 0069B4D3
0069B26F 0FB706 movzx eax, word ptr [esi]
0069B272 83C0DF add eax, -$21
0069B275 83F807 cmp eax, +$07
0069B278 0F8755020000 jnbe 0069B4D3
0069B27E FF248585B26900 jmp dword ptr [$69B285+eax*4]
0069B285 FC cld
0069B286 B269 mov dl, $69
0069B288 00BDB2690082 add [ebp+$820069B2], bh
0069B28E B469 mov ah, $69
0069B290 0068B4 add [eax-$4C], ch
0069B293 6900A5B26900 imul eax, [eax], $0069B2A5
0069B299 33B36900B1B2 xor esi, [ebx+$B2B10069]
0069B29F 6900C7B36900 imul eax, [eax], $0069B3C7
0069B2A5 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2D6C
|
0069B2A7 E8C07AF1FF call 005B2D6C
0069B2AC E922020000 jmp 0069B4D3
0069B2B1 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2D98
|
0069B2B3 E8E07AF1FF call 005B2D98
0069B2B8 E916020000 jmp 0069B4D3
0069B2BD 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B2BF E88079F1FF call 005B2C44
0069B2C4 038308030000 add eax, [ebx+$0308]
* Reference to field TfrmReason.OFFS_030C
|
0069B2CA 3B830C030000 cmp eax, [ebx+$030C]
0069B2D0 7D11 jnl 0069B2E3
* Reference to field TfrmReason.OFFS_02FC
|
0069B2D2 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B2D8 E86779F1FF call 005B2C44
0069B2DD 018308030000 add [ebx+$0308], eax
0069B2E3 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B2E5 E80AF5FFFF call 0069A7F4
0069B2EA 33D2 xor edx, edx
* Reference to field TfrmReason.OFFS_02FC
|
0069B2EC 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B2F2 E83D7AF1FF call 005B2D34
0069B2F7 E9D7010000 jmp 0069B4D3
0069B2FC 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2C44
|
0069B2FE E84179F1FF call 005B2C44
0069B303 298308030000 sub dword ptr [ebx+$0308], eax
* Reference to field TfrmReason.OFFS_0308
|
0069B309 83BB0803000000 cmp dword ptr [ebx+$0308], +$00
0069B310 7D08 jnl 0069B31A
0069B312 33C0 xor eax, eax
* Reference to field TfrmReason.OFFS_0308
|
0069B314 898308030000 mov [ebx+$0308], eax
0069B31A 8BC3 mov eax, ebx
* Reference to : TfrmReason._PROC_0069A7F4()
|
0069B31C E8D3F4FFFF call 0069A7F4
0069B321 33D2 xor edx, edx
* Reference to field TfrmReason.OFFS_02FC
|
0069B323 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2D34
|
0069B329 E8067AF1FF call 005B2D34
0069B32E E9A0010000 jmp 0069B4D3
0069B333 8BC7 mov eax, edi
* Reference to: Unit_005B2404.Proc_005B2D50
|
0069B335 E8167AF1FF call 005B2D50
0069B33A 85C0 test eax, eax
0069B33C 7F6D jnle 0069B3AB
* Reference to field TfrmReason.OFFS_02FC
|
0069B33E 8B83FC020000 mov eax, [ebx+$02FC]
* Reference to: Unit_005B2404.Proc_005B2C44
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -