Class TDerived (unit Utderive)

Inherits from

TBase

Constructors


constructor Clone(const aTDerived: TDerived);

Create

constructor Create(const aChar: Char; const anAK: TAnotherKid);

TDerived} {]====================================================[

constructor Get(S: TStream);

Clone

constructor Read(var f: Textfile);

Get


Functions

procedure Copy(const aTDerived: TDerived);

Destroy

destructor Destroy;

Read

function Equals(const aTDerived: TDerived): boolean;

Copy

function GetAK: TAnotherKid;

Write

procedure Put(S: TStream);

Equals

function SetAK(const aTAnotherKid: TAnotherKid): TAnotherKid;

GetAK

procedure Write(var f: Textfile);

Put

Properties

Events

Variables

AK : TAnotherKid;



Constructors


constructor Clone(const aTDerived: TDerived);

Create


constructor Create(const aChar: Char; const anAK: TAnotherKid);

TDerived} {]====================================================[


constructor Get(S: TStream);

Clone


constructor Read(var f: Textfile);

Get


Functions


procedure Copy(const aTDerived: TDerived);

Destroy


destructor Destroy;

Read


function Equals(const aTDerived: TDerived): boolean;

Copy


function GetAK: TAnotherKid;

Write


procedure Put(S: TStream);

Equals


function SetAK(const aTAnotherKid: TAnotherKid): TAnotherKid;

GetAK


procedure Write(var f: Textfile);

Put


Properties


Events


Variables


AK : TAnotherKid;