Re: D5 - Class\Collection example??

From: "Maarten Wiltink" <maarten@xxxxxxxxxxxxxxxxxx>
Date: Sun, 14 Oct 2007 17:11:55 +0200

"Maarten Wiltink" <maarten@xxxxxxxxxxxxxxxxxx> wrote in message
news:47123117$0$238$e4fe514c@xxxxxxxxxxxxxxxxx
[...]

type
TPerson = class(TPersistent) { I like being able to Assign }
private
FPartner: TPerson;
protected
procedure SetPartner(const Value: TPerson); virtual;
function DoPartnerChanging(var NewValue: TPerson); virtual;
procedure DoPartnerChanged; virtual;
public
property Partner: TPerson read FPartner write SetPartner;
end;

I forgot. This class _really_ needs a destructor that sets their
Partner to nil. Or actually, their Partner's Partner if there is
one.

Groetjes,
Maarten Wiltink

.

References:
- D5 - Class\Collection example??
  - From: Don
- Re: D5 - Class\Collection example??
  - From: Tom de Neef
- Re: D5 - Class\Collection example??
  - From: Maarten Wiltink

Prev by Date: Re: D5 - Class\Collection example??
Next by Date: Re: D5 - Class\Collection example??
Previous by thread: Re: D5 - Class\Collection example??
Next by thread: Re: D5 - Class\Collection example??
Index(es):
- Date
- Thread

Relevant Pages

Re: D5 - ClassCollection example??
... // since it will result in an infinite loop! ... You set your own Partner, ... TPerson = class ... function DoPartnerChanging(var NewValue: TPerson); virtual; ...
(comp.lang.pascal.delphi.misc)
Re: D5 - ClassCollection example??
... // since it will result in an infinite loop! ... You set your own Partner, ... TPerson = class ... function DoPartnerChanging(var NewValue: TPerson); virtual; ...
(comp.lang.pascal.delphi.misc)