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

2008-04-09 04:28:48来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi随笔二

下一篇:一篇好文,成功或未成功在客户端使用IE下载ActiveForm的都应该看(