My面向对象学习和实践历程.pptVIP

My面向对象技术学习和实践历程 My学习和实践历程 面向对象与面向过程 总结 My学习和实践历程图 初识：《设计模式》 初试 Chat：一个类似于NetMeeting的P2P即时通讯 Email解释器：提取Email文件里面的数据 大量：3DGIS引擎 3DGIS系统运作原理和流程： 3DGIS类结构图： 疑惑：OTDR 利用OTDR仪表实现自动监控光缆网络，采用后台数据库存储测试光纤资料和测试结果，后台服务器管理和操作OTDR仪表，采用分布式客户端完成系统的各项操作和显示 更多：《敏捷软件开发》 本质？：《面向对象分析与设计》 信徒？ 插件框架: 客户想以他们自己期望的方式来处理CellTree中的数据记录，即用自己编写的一个控件（用Delphi、VB或者C++等开发）来替换原有的Cell组件来进行数据处理。比如客户想用一个嵌有Excel的控件接管Cell的数据编辑功能，以满足客户使用Excel的旧有习惯。 向导框架: 一套用来开发向导应用的通用框架，它定义了向导中的各种概念，确定了向导的结构，并实现了大部分通用的向导功能。基于它可以快速实现从简单到复杂的向导应用。 面向对象与面向过程 案例1：枚举单元格 需求： 很多时候需要枚举表单中一个范围内的所有单元格，比如单元格求和，表单复制等。由于有合并单元格的存在，枚举算法比较复杂，因此，需要提取出一套通用的枚举程序。 案例2：NSFramework中的参数列表 需求： 存储管理NSFramewrok向导中的参数列表 案例3：URL机制 需求： 解释和拼接URL 总结 面向对象技术源自于编程实践，而非某一天才的理论突破，理解和提升该技术的最重要方法是实践－－编写大量的面向对象代码。 总结每次实践，识别好和不好的设计，设想更好的解决方案，并在下一次实践中应用。 追求完美。 研读大师们的经典著作，拿大师和自己的想法对比，想象把这些建议应用在曾经的实践中的情形。 不局限于一家之言，研究诸子百家的观点。 与他人分享经验。 学着以创建美的软件而骄傲，并享受其中的快乐。--Robert C.Martin * * 初识 初试 大量 本质 信徒？ 更多 疑惑 解决方案1： type TXLCellEnumProc = procedure(ACell: TXLCell; AData: Pointer; var Stop: Boolean); …… procedure EnumCells(Asheet:TXLSheet; ARange: TRect; AEnumProc: TXLCellEnumProc; AData: Pointer); var R, C: Integer; Stop: Boolean; begin Stop := False; for R := ARange.Top to ARange.Bottom - 1 do for C := ARange.Left to ARange.Right - 1 do if ASheet.IsFirstCell(C, R) then begin AEnumProc(ASheet.Cells[C, R], AData, Stop); if Stop then exit; end; end; 求和函数的实现： …… Procedure AddProc(Acell:TXLCell;Adata:Pointer;var Stop:Boolean); Begin Integer(Adata):=Integer(Adata)+Acell.Value; End; function Sum (Asheet:TXLSheet; ARange: TRect):Integer; begin Result := 0; EnumCells(Asheet,Arange, Pointer(Result),AddProc); end; 解决方案2： Type TCellsIterator = class(TInterfacedObject, ICellsIterator) private …… protected …… function GetHasNextCell: Boolean; stdcall; function GetCurCell: TXLCell; stdcall; public constructor Create(ASheet: TXLSheet; const ARange: TRect); virtual; function FirstCell