Database
midelphi.asc
Associated article: Multiple Inheritance for Delphi
Tags: Database
Published source code examples accompanying Roland Kaufmann's article on providing multiple inheritance for Borland's Delphi 2.0 development environment. Also see MIDELPHI.ZIP
_Multiple Inheritance for Delphi_
by Roland Kaufmann
Example 1:
procedure TProject.Assign( AProgrammer : TProgrammer );
begin
...
end;
...
var
ALead : TLead;
AProject : TProject;
begin
...
AProject.Assign( ALead.AsProgrammer );
...
end.
Example 2:
destructor TLead.Destroy;
begin
...
if not ( m_ProgrammerSuperClass = nil ) then
m_ProgrammerSuperClass.InheritedDestroy;
...
