, .. , .
- , . - () . , , .. . .
- , . , .. , .
) :
Type
< >= lass [{ >)]
...
Constructor >[(<>)]; [Override;]
Destructor < >[(<>)}; [Override;] End;
:
, , Public .
, . Create.
, (!) Destroy.
Destroy - Override, , - . Override - .
Free () , Nil.
Type TPictureShow=Class Public
FFilm: TFilm;
FTitle: String;
Constructor Create(AnTitle: String);
Destructor Destroy; Override;
Function GetFilm: TFilm;
Procedure SetFilm(Const AnFilm: TFilm);
Function GetTitIe: String;
Procedure SetTitle(AnTitle: String);
End;
) .
, . , , . - . :
Constructor < >.< >[(<>}};
[< >}
Begin
< >
End;
) .
Constructor < >.< >[(<>)];
[< >}
Begin
Inherited < >[(<>)};
< >
End;
Constructor TPictureShow.Create(AnTitle: String);
|
|
Begin
Inherited Create;
FTitle:=AnTitle;
FFilm:=TFilm.Create; // FFilm: =Nil; End;
:
Procedure\Function, :
< >.< >[(<>)];
- < .
, , - , , , ('', Nil, False - ). , . Nil , . :
Inherited, . , , .
, .
, , .
, - , , , Nil. Fail. , . , .
, , , , . , - , . , - .
. , () .
TComponent Create - Override, .
) .
, , , , .. . , .
, . , .
|
|
:
Destructor < >.< >[(<>)];
[< >]
Begin
< >
End;
.
, , , , . . Inherited. :
Destructor < >.< >[(<>)};
[< >]
Begin
< >
Inherited < >[{<>)];
End;