jsj_DELPHI基本语法(10)

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

(.) Unit1 CalculateInterest Unit2 Unit2 uses Unit1 Unit1.CalculateInterest

(PrincipalInterestRate : Double)

2.1.7.3

implementation Count …implememntation var Count : Integer; procedure TForm1.AddClick(Sender:TObject); var FirstNumber,SecondNumber:Integer; begin Count := Count + 1; Counter.Text := IntToStr(Count); FirstNumber := StrToInt(Edit1.Text); SecondNumber := StrToInt(Edit2.Text); Edit3.Text := IntToStr

(FirstNumber+SecondNumber); end; … Count Count end. initialization Count … initialization

Count := 0; AddClick Count