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

AddLine( EmpRec.Address );

AddLine( EmpRec.City '''', '''' EmpRec.State '''' '''' EmpRec.ZipCode );

AddLine( '''''''' );

AddLine( ''''Phone: '''' EmpRec.PhoneNumber );

AddLine( ''''Hire Date: '''' DateToStr( EmpRec.HireDate ) );

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

AddLine( '''''''' );

AddLine( ''''Vacation Days: '''' IntToStr( EmpRec.VacationDays ) );

AddLine( ''''Sick Days: '''' IntToStr( EmpRec.SickDays ) );

if EmpRec.Manager then

AddLine( ''''Manager: Yes'''' )

else

AddLine( ''''Manager: No'''' );

end;

FormatData 方法是核心部分，注意传递给FormatData

标签：

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