unit4.pas

音像租赁管理系统 进行音像店的日常工作管理!

004DB7E6   8D851CFFFFFF           lea     eax, [ebp+$FFFFFF1C]

* Reference to: System.@VarClr(Variant;Variant);
|
004DB7EC   E847A1F2FF             call    00405938
004DB7F1   8D852CFFFFFF           lea     eax, [ebp+$FFFFFF2C]

* Reference to: System.@LStrClr(void;void);
|
004DB7F7   E82090F2FF             call    0040481C
004DB7FC   8D8530FFFFFF           lea     eax, [ebp+$FFFFFF30]

* Reference to object OleVariant
|
004DB802   8B154C114000           mov     edx, [$0040114C]
004DB808   B90D000000             mov     ecx, $0000000D

* Reference to: System.@FinalizeArray(Pointer;Pointer;Cardinal);
|
004DB80D   E8FE9BF2FF             call    00405410
004DB812   C3                     ret


* Reference to: System.@HandleFinally;
|
004DB813   E92C89F2FF             jmp     00404144
004DB818   EBCC                   jmp     004DB7E6

****** END
|
004DB81A   5E                     pop     esi
004DB81B   5B                     pop     ebx
004DB81C   8BE5                   mov     esp, ebp
004DB81E   5D                     pop     ebp
004DB81F   C3                     ret

*)
end;

procedure Tsystemset.SpeedButton1Click(Sender : TObject);
begin
(*
004DB8A8   A19C9D5800             mov     eax, dword ptr [$00589D9C]

* Reference to : Tsystemset.SpeedButton2Click()
|
004DB8AD   E832FCFFFF             call    004DB4E4
004DB8B2   A19C9D5800             mov     eax, dword ptr [$00589D9C]

* Reference to: Forms.TCustomForm.Close(TCustomForm);
|
004DB8B7   E874A2F8FF             call    00465B30
004DB8BC   C3                     ret

*)
end;

procedure Tsystemset.FormClose(Sender : TObject);
begin
(*
004DB8C0   33C0                   xor     eax, eax

* Reference to GlobalVar_00589D9C
|
004DB8C2   A39C9D5800             mov     dword ptr [$00589D9C], eax
004DB8C7   C3                     ret

*)
end;

procedure Tsystemset.Edit1Enter(Sender : TObject);
begin
(*
004DB8C8   53                     push    ebx
004DB8C9   8BD8                   mov     ebx, eax
004DB8CB   B1FF                   mov     cl, $FF
004DB8CD   B296                   mov     dl, $96
004DB8CF   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
004DB8D1   E8CAC3F2FF             call    00407CA0
004DB8D6   8BD0                   mov     edx, eax

* Reference to control Tsystemset.Edit1 : TEdit
|
004DB8D8   8B8334030000           mov     eax, [ebx+$0334]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB8DE   E829D8F6FF             call    0044910C
004DB8E3   5B                     pop     ebx
004DB8E4   C3                     ret

*)
end;

procedure Tsystemset.Edit1Exit(Sender : TObject);
begin
(*
004DB8E8   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tsystemset.Edit1 : TEdit
|
004DB8ED   8B8034030000           mov     eax, [eax+$0334]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB8F3   E814D8F6FF             call    0044910C
004DB8F8   C3                     ret

*)
end;

procedure Tsystemset.Edit2Enter(Sender : TObject);
begin
(*
004DB8FC   53                     push    ebx
004DB8FD   8BD8                   mov     ebx, eax
004DB8FF   B1FF                   mov     cl, $FF
004DB901   B296                   mov     dl, $96
004DB903   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
004DB905   E896C3F2FF             call    00407CA0
004DB90A   8BD0                   mov     edx, eax

* Reference to control Tsystemset.Edit2 : TEdit
|
004DB90C   8B8338030000           mov     eax, [ebx+$0338]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB912   E8F5D7F6FF             call    0044910C
004DB917   5B                     pop     ebx
004DB918   C3                     ret

*)
end;

procedure Tsystemset.Edit2Exit(Sender : TObject);
begin
(*
004DB91C   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tsystemset.Edit2 : TEdit
|
004DB921   8B8038030000           mov     eax, [eax+$0338]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB927   E8E0D7F6FF             call    0044910C
004DB92C   C3                     ret

*)
end;

procedure Tsystemset.Edit3Enter(Sender : TObject);
begin
(*
004DB930   53                     push    ebx
004DB931   8BD8                   mov     ebx, eax
004DB933   B1FF                   mov     cl, $FF
004DB935   B296                   mov     dl, $96
004DB937   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
004DB939   E862C3F2FF             call    00407CA0
004DB93E   8BD0                   mov     edx, eax

* Reference to control Tsystemset.Edit3 : TEdit
|
004DB940   8B833C030000           mov     eax, [ebx+$033C]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB946   E8C1D7F6FF             call    0044910C
004DB94B   5B                     pop     ebx
004DB94C   C3                     ret

*)
end;

procedure Tsystemset.Edit3Exit(Sender : TObject);
begin
(*
004DB950   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tsystemset.Edit3 : TEdit
|
004DB955   8B803C030000           mov     eax, [eax+$033C]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB95B   E8ACD7F6FF             call    0044910C
004DB960   C3                     ret

*)
end;

procedure Tsystemset.Edit4Enter(Sender : TObject);
begin
(*
004DB964   53                     push    ebx
004DB965   8BD8                   mov     ebx, eax
004DB967   B1FF                   mov     cl, $FF
004DB969   B296                   mov     dl, $96
004DB96B   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
004DB96D   E82EC3F2FF             call    00407CA0
004DB972   8BD0                   mov     edx, eax

* Reference to control Tsystemset.Edit4 : TEdit
|
004DB974   8B8340030000           mov     eax, [ebx+$0340]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB97A   E88DD7F6FF             call    0044910C
004DB97F   5B                     pop     ebx
004DB980   C3                     ret

*)
end;

procedure Tsystemset.Edit4Exit(Sender : TObject);
begin
(*
004DB984   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tsystemset.Edit4 : TEdit
|
004DB989   8B8040030000           mov     eax, [eax+$0340]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB98F   E878D7F6FF             call    0044910C
004DB994   C3                     ret

*)
end;

procedure Tsystemset.Edit6Enter(Sender : TObject);
begin
(*
004DB998   53                     push    ebx
004DB999   8BD8                   mov     ebx, eax
004DB99B   B1FF                   mov     cl, $FF
004DB99D   B296                   mov     dl, $96
004DB99F   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
004DB9A1   E8FAC2F2FF             call    00407CA0
004DB9A6   8BD0                   mov     edx, eax

* Reference to control Tsystemset.Edit6 : TEdit
|
004DB9A8   8B8374030000           mov     eax, [ebx+$0374]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB9AE   E859D7F6FF             call    0044910C
004DB9B3   5B                     pop     ebx
004DB9B4   C3                     ret

*)
end;

procedure Tsystemset.Edit6Exit(Sender : TObject);
begin
(*
004DB9B8   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tsystemset.Edit6 : TEdit
|
004DB9BD   8B8074030000           mov     eax, [eax+$0374]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB9C3   E844D7F6FF             call    0044910C
004DB9C8   C3                     ret

*)
end;

procedure Tsystemset.Edit5Enter(Sender : TObject);
begin
(*
004DB9CC   53                     push    ebx
004DB9CD   8BD8                   mov     ebx, eax
004DB9CF   B1FF                   mov     cl, $FF
004DB9D1   B296                   mov     dl, $96
004DB9D3   B096                   mov     al, $96

* Reference to: Unit_00407091.Proc_00407CA0
|
004DB9D5   E8C6C2F2FF             call    00407CA0
004DB9DA   8BD0                   mov     edx, eax

* Reference to control Tsystemset.Edit5 : TEdit
|
004DB9DC   8B835C030000           mov     eax, [ebx+$035C]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB9E2   E825D7F6FF             call    0044910C
004DB9E7   5B                     pop     ebx
004DB9E8   C3                     ret

*)
end;

procedure Tsystemset.Edit5Exit(Sender : TObject);
begin
(*
004DB9EC   BAFFFFFF00             mov     edx, $00FFFFFF

* Reference to control Tsystemset.Edit5 : TEdit
|
004DB9F1   8B805C030000           mov     eax, [eax+$035C]

* Reference to: Controls.TControl.SetColor(TControl;TColor);
|
004DB9F7   E810D7F6FF             call    0044910C
004DB9FC   C3                     ret

*)
end;

procedure Tsystemset.ToolButton4Click(Sender : TObject);
begin
(*
004DBA00   55                     push    ebp
004DBA01   8BEC                   mov     ebp, esp
004DBA03   6A00                   push    $00
004DBA05   6A00                   push    $00
004DBA07   33C0                   xor     eax, eax
004DBA09   55                     push    ebp

* Possible String Reference to: '槟嗱