.


:




:

































 

 

 

 





, .. , .

- , . - () . , , .. . .

- , . , .. , .

) :

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;





:


: 2016-10-30; !; : 844 |


:

:

, .
==> ...

777 - | 750 -


© 2015-2024 lektsii.org - -

: 0.011 .