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

迪丽热爱

已于 2022-02-25 13:53:50 修改

阅读量1.4k

点赞数 1

分类专栏： delphi7 文章标签：开发语言 delphi

于 2022-02-25 13:24:39 首次发布

本文链接：https://blog.csdn.net/lovemelovefish/article/details/123129995

版权

delphi7 专栏收录该内容

13 篇文章

订阅专栏

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
                 case piDev_No of
                    1101: result := 0;
                    1102: result := 1;
                  end; 
               end;
             2:begin
                case piDev_No of
                    1201: result := 2; 
                    1202: result := 3; 
                  end;
               end;
             3:begin
                 case piDev_No of
                    1301: result := 4;
                  end; 
               end;
         end;
    2:begin
         case iArea of
             1:begin
                 case piDev_No of
                   2101: result := 4; 
                 end;
               end;
             2:begin
                 case piDev_No of
                   2201: result := 5; 
                  end;
               end;
             3:begin
                  case piDev_No of
                     2301: result := 5; 
                   end;
               end;
         end;
 end;