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

procedure TCSEmployeeDetailsFormatter.FormatData( var Data );

var

EmpRec: TCSEmployee;

begin

EmpRec := TCSEmployee( Data );

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

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

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

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

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

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

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

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

标签：

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