最近在看php的教程，发现每个编程语言都又讲到逻辑的部分 比如while if case of 然后发现在delphi中case of 我不是经常用的 我喜欢if if if 一条一条的执行
这里就复习一下case of 的语法吧 case int of int是一个数值类型 可以是任意的数值类型 比如下面例子中的 ComboBox1.ItemIndex

case int of

然后是0: 1: 2: 不同的条件执行 中间可以加break 跳出循环 具体看例子领会吧
case ComboBox1.ItemIndex of
0:
begin
PageControl1.Enabled := True;
SpeedButton3.Enabled := True;
PageControl1.ActivePageIndex := 0;
end;
1:
begin
PageControl1.Enabled := True;
SpeedButton3.Enabled := True;
PageControl1.ActivePageIndex := 1;
end;
else
begin
PageControl1.Enabled := False;
SpeedButton3.Enabled := False;
end;
end;
文章转自