Delphi ,
: , .
. , .
.
Type
< > = Class
//
End;
, .
. . , .
. Class .
TChildClass = Class(TParentClass)
End;
, . , .
Delphi TObject.
TaClass=Class(TObject);
TaClass=Class;
.
TObject. , , .
, TObject . .
- .
- . ( ). , . , . - - , , , , . .
. . , . :
Type
TMyClass= class
aIntField: Integer;
aStrField: String;
aObjField: TObject;
End;
, . . Delphi . ( ):
|
|
Type
TMyClass= class
FIntField: Integer;
FStrField: String;
End;
, .
Var
aObject: TMyClass;
, .
Begin
// ()
aObject.FIntField:=0;
aObject.FStrField:= ;
End.
, . , , .
.
, . :
Type
TMyClass= class
Function MyFunc(aPar:Integer):Integer;
Procedure MyProc;
End;
Var
aObject: TMyClass;
Begin
// ()
aObject.MyProc;
End.
Delphi , , , .
Type
TParentClass= Class
Procedure DoWork;
End;
TChildClass= Class(TParentClass)
Procedure DoWork;
End;
Var
Object_a: TParentClass;
Object_b: TGhildClass;
DoWork,
-. , .
Delphi . , , ( Dynamic) ( Virtual). Override ().
.
, Show Hide . Draw.
Type
TVisualObject=Class(TWinControl);
Procedure Show;
Procedure Hide;
Procedure draw(IsShow:Boolean); Virtual;//
End;
TVisualChildObject=Class(TVisualOdject);
Prvirtual;ocedure draw(IsShow:Boolean); Override;//
End;
Show Hide .
Procedure TVisualObject.Show;
Begin
Draw(True);
End;
Procedure TVisualObject.Hide;
Begin
Draw(False);
End;
Draw . Show Hide
Draw .
|
|
.
. , . , Abstract.
Type
TVisualObject=Class(TWinControl);
procedure draw(IsShow:Boolean);virtual;abstract;
End;
TVisualChildObject=Class(TVisualOdject);
Procedure draw(IsShow:Boolean); Override;
End;
Var
aVisualObject: TVisualObject;
aVisualChildObject: TVisualChildObject;
begin
aVisualObject.Show; //!
aVisualChildObject.Show; // . Draw TVisualChildObject
//
end;