1.Case的格式
case <表达式> of
<数值>:<语句>;
<数值>:<语句>;
else
<语句>;
end;
实例1说明
case id of
1:result := 99;
2:result := 98;
else
result := 97;
end;
实例2说明
case id:integer of
1..9 : begin
result := 99;
end;
10 : begin
result := 98;
end;
else: begin
result := 100;
end;
end;
2.Div及Mod千分位、百分位、十位的截取
x1 = y1 div 1000 ; //取千分位
x2 = (y2 mod 1000) div 100 ; //取百分位
x3 = (y3 mod 100) div 10 ; //取十分位
piDev_No := 1100;//本次假设1100
iFloor := piDev_No div 1000;//取千分位
iArea := (piDev_No mod 1000) div 100; //取百分位
iSec := (piDev_No mod 100) div 10;; //取十分位
case iFloor of
1:begin
case iArea of
1:begin
1101: result := 0;
end;
2:begin
1201: result := 1;
end;
3:begin
1301: result := 2;
end;
end;
2:begin
case iArea of
1:begin
2101: result := 4;
end;
2:begin
2201: result := 5;
end;
3:begin
2301: result := 5;
end;
end;
end;