[函数] Unicode 检查字符串是否含中文字

<div class="cnblogs_code">

== </span><span style="color: #0000ff;"&gt;for</span> i:=Low(UCS4Str) <span style="color: #0000ff;"&gt;to</span> High(UCS4Str) <span style="color: #0000ff;"&gt;do</span>
     <span style="color: #0000ff;"&gt;if</span> ((UCS4Str[i] >=  $<span style="color: #800080;"&gt;3400</span>) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <=  $4DB5)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Unified Ideographs Extension A 3.0</span>
        ((UCS4Str[i] >=  $<span style="color: #800080;"&gt;4E00</span>) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <=  $9FA5)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Unified Ideographs 1.1</span>
        ((UCS4Str[i] >=  $9FA6) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <=  $9FBB)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Unified Ideographs 4.1</span>
        ((UCS4Str[i] >=  $F900) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <=  $FA2D)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Compatibility Ideographs 1.1</span>
        ((UCS4Str[i] >=  $FA30) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <=  $FA6A)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Compatibility Ideographs 3.2</span>
        ((UCS4Str[i] >=  $FA70) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <=  $FAD9)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Compatibility Ideographs 4.1</span>
        ((UCS4Str[i] >= $<span style="color: #800080;"&gt;20000</span>) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <= $2A6D6)) <span style="color: #0000ff;"&gt;or</span>   <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Unified Ideographs Extension B 3.1</span>
        ((UCS4Str[i] >= $2F800) <span style="color: #0000ff;"&gt;and</span> (UCS4Str[i] <= $2FA1D)) <span style="color: #0000ff;"&gt;then</span> <span style="color: #008000;"&gt;//</span><span style="color: #008000;"&gt; CJK Compatibility Supplement</span>

<span style="color: #000000;"> Exit(True);
<span style="color: #0000ff;">end;