2
votes
Vote UpVote

Legacy Code: Abstract to Interface

Rob's Technology Corner – Say you where given the following legacy code snippet, and where told that you needed that there are now five new  packet types that need to be written. TDataObject = class(TObject) // Some Shared Data here. end; TPacketWriter = class(TObject) private function CreateObjectX : TDataObject; procedure WriteFileZ(Data : TDataObject); protected procedure WriteFileX(Data : TDataObject); virtual; abstract; procedure WriteFileY(Data : TDataObject); virtual; abstract; public procedure Execute; end; TPacketWriterTypeA = class(TPacketWriter) protected ...
Favorite? Off-Topic? Robert Love @ 2013-02-14 09:46

Statistics

Visits: 396
Votes: 2
Favorites: 0
Off-Topic: 1

Visits by Source

User Actions

Users who voted for this posting

Alister Christie
Felix Colibri
Subscribe:
Contact us to advertise on DelphiFeeds.com

Community Links

Torry Firebird News

Sponsor

 
Please login or register to use this functionality.
(click on this box to dismiss)