jsj_DELPHI基本语法(16)

delphi网络资源总结,话了重点,方便阅读,记忆

Monday

2.1.9.2 type Thours = 0..23; TValidLetter = 'A' .. 'F'; TDays = ( Sunday ,Monday,Tuesday,Wednesday,Thursday, Friday,Saturday); { } TWorkDay =

Monday..Friday; { TDays } ( Implementation {$R*.DFM}

Options|Project|Complier Options Range Cheking )

2.1.8.4

begin end Result function CalculateInterest(Principal,InterestRate: Double):Double; begin CalculateInterest := Principal * InterestRate; end; Result Result :=

Principal*InterestRate; InterestEarned :=CalculateInterest(2000,0.012); Implementation interface

inplementation uses