delphi_Case...Of语句使用？

Posted 2023-03-28

delphi_Case...Of语句使用？？怎么使用啊，给个例程，最好详细说明！40分！

示例一个函数如下：
function IsCnChar( UCP : UCS4Char ) : Integer;
begin
Result := 0; // 缺省不是汉字
case UCP of
$3400..$4DB5: Result := 1; // CJK 扩展A
$3007, $4E00..$9FCB: Result := 2; // CJK 基本集
$E815..$E864: Result := 3; // CJK 自定义区
$F900..$FAD9: Result := 4; // CJK 兼容
$20000..$2A6D6: Result := 5; // CJK 扩展B
$2A700..$2B734: Result := 6; // CJK 扩展C
$2B740..$2B81D: Result := 7; // CJK 扩展D
$2F800..$2FA1D: Result := 8; // CJK 兼容补遗
end;
end;

调用方法：
if IsCnChar( $5678 ) > 0 then ShowMessage( \'是汉字\' ); 参考技术A 给你一个自己写的判断星期的函数，里面有相关用法
function GetWeek(MyDate: Tdatetime): String;
begin
case dayofweek(MyDate) of
1: result := '日';
2: result := '一';
3: result := '二';
4: result := '三';
5: result := '四';
6: result := '五';
7: result := '六';
end;
result := '星期' + result;
end;

//需要注意的是 case...of 中间那个变量类型必须是int 参考技术B case Age of
0:showmessage('他出生了‘);
1..7: showmessage('他是个幼儿');
8..13: showmessage('他是个小学生');
14..19:showmessage('他是个中学生');
20..23:showmessage('他是个大学生');
else
showmessage('他参加工作了');
end;

13_set语句和with语句的使用

set 、 with 语句

[TOC]

1. set语句

在模板中，可以使用set语句来定义变量。示例如下：

  <!--定义--> % set username=‘cheng‘ %
  <!--使用-->  username 

一旦定义了这个变量，那么在后面的代码中，都可以使用这个变量了，就跟Python中的变量定义和使用是一样的

2. with语句

with语句定义的变量，只能在with语句块中使用，出了这个代码块，就不能使用了，如：

% with my_room=‘cheng‘ %
     my_room 
    <!-- 里面也可以通过set语句来定义多个局部变量 -->
% endwith %

with语句不一定要跟一个变量，可以定义一个空的with语句，以后在with块中通过set定义的变量，就只能在with块中使用了

% with %
    % set my_room=‘cheng‘ %
     my_room    <!-- 当然， my_room这个变量还是只能在with这个代码块中使用的-->
% endwith %