jsj_DELPHI基本语法(13)

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

TForm1.Button1Click(Sender:TObject); begin Alpha := 15; { Alpha } Test1(Alpha); { Test1, } end;

onClick Alpha 1 2 Alpha 0

2.1.8.6

NoValue AnEditBox if NoValue(Edit1)… Edit1 procedure Calculate

(CalNo:Integer); begin CalNo := CalNo*10; end; Calculate … Number := StrToInt(Edit1.Text); Calculate(Number); Edit2.Text := IntToStr(Number); … Number 1 Calculate Calculate Number CalNo CalNo Number 2 1 var procedure Calculate(var CalNo :

Integer); CalNo Number