jsj_DELPHI基本语法(9)

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

begin…end else else if begin…end ” else if

2.1.4.2 case

case (LongInt ) case if case procedure TForm1.Button1Click(Sender: TObject); var Number : Integer; begin Number := StrToInt(Edit1.Text); case Number of 1,3,5,7,9: Label2.Caption := ' '; 0,2,4,6,8:

Label2.Caption := ' '; 10..100: begin Label2.Caption := ' 10 100 '; Form1.Color := clBlue; end; else

Label2.Caption := ' 100 '; end; end; Edit1 OK” Number case Number if case else case end

2.1.7 2.1.7.1

2.1.7.2