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

AddNameValuePair( ''''Salary'''', Format( ''''%m'''', [ EmpRec.Salary ] ) );

AddNameValuePair( ''''VacationDays'''', EmpRec.VacationDays );

AddNameValuePair( ''''SickDays'''', EmpRec.SickDays );

AddNameValuePair( ''''Manager'''', EmpRec.Manager );

end;

这里为了在网格察看器中格式化数据，我们使用AddNameValuePair方法来实现。　

function TCSEmployeeDetailsFormatter.TypeName: string;

begin

Result := ''''TCSEmployee'''';

end;

下面两个过程是用来封装对SendCustomData方法的调用的，这里对全局的TCodeSite对象实例CodeSite进行了调用：

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

{== Support Methods ==}

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

procedure CSSendEmployeeSummary( const Msg: string; EmpRec: TCSEmployee );

标签：

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