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


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

Visits by Source

User Actions

Users who voted for this posting

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

Community Links

Torry Firebird News


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