delphi中的Case使用方法及DIV及MOD千分位、百分位、十位的截取

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;
上一篇:移掉k位数字


下一篇:字符串需要掌握的内置方法