Delphi深度探索－CodeSite应用指南(13)

SysUtils;

{=========================================}

{== TCSEmployeeSummaryFormatter Methods ==}

{=========================================}

function TCSEmployeeSummaryFormatter.InspectorType: TCSInspectorType;

begin

Result := itStockStringList;

end;

实现一个自定义的格式化器的第一步是确定哪种类型的内置察看器将被用来察看格式化后的数据，这里使用的是字符串列表察看器。察看器类型将被FormatData方法所使用。　

procedure TCSEmployeeSummaryFormatter.FormatData( var Data );

var

EmpRec: TCSEmployee;

begin

EmpRec := TCSEmployee( Data );

AddLine( EmpRec.FirstName '''' '''' EmpRec.LastName );

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有