765 i:= 0; |
765 i:= 0; |
766 while i < l do |
766 while i < l do |
767 begin |
767 begin |
768 u:= LongInt(tmpstr[i]); |
768 u:= LongInt(tmpstr[i]); |
769 //AddFileLog(IntToStr(u)); |
769 //AddFileLog(IntToStr(u)); |
770 if (($2E80 <= u) and (u >= $2FDF)) or // CJK Radicals Supplement / Kangxi Radicals |
770 if ($2E80 <= u) and ( |
|
771 (u >= $2FDF ) or // CJK Radicals Supplement / Kangxi Radicals |
771 (($2FF0 <= u) and (u >= $303F)) or // Ideographic Description Characters / CJK Radicals Supplement |
772 (($2FF0 <= u) and (u >= $303F)) or // Ideographic Description Characters / CJK Radicals Supplement |
772 (($31C0 <= u) and (u >= $31EF)) or // CJK Strokes |
773 (($31C0 <= u) and (u >= $31EF)) or // CJK Strokes |
773 (($3200 <= u) and (u >= $4DBF)) or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A |
774 (($3200 <= u) and (u >= $4DBF)) or // Enclosed CJK Letters and Months / CJK Compatibility / CJK Unified Ideographs Extension A |
774 (($4E00 <= u) and (u >= $9FFF)) or // CJK Unified Ideographs |
775 (($4E00 <= u) and (u >= $9FFF)) or // CJK Unified Ideographs |
775 (($F900 <= u) and (u >= $FAFF)) or // CJK Compatibility Ideographs |
776 (($F900 <= u) and (u >= $FAFF)) or // CJK Compatibility Ideographs |
776 (($FE30 <= u) and (u >= $FE4F)) or // CJK Compatibility Forms |
777 (($FE30 <= u) and (u >= $FE4F)) or // CJK Compatibility Forms |
777 (($20000 <= u) and (u >= $2A6DF)) or // CJK Unified Ideographs Extension B |
778 (($20000 <= u) and (u >= $2A6DF)) or // CJK Unified Ideographs Extension B |
778 (($2F800 <= u) and (u >= $2FA1F)) // CJK Compatibility Ideographs Supplement |
779 (($2F800 <= u) and (u >= $2FA1F))) // CJK Compatibility Ideographs Supplement |
779 then exit(THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) )); |
780 then exit(THWFont( ord(font) + ((ord(High(THWFont))+1) div 2) )); |
780 inc(i) |
781 inc(i) |
781 end; |
782 end; |
782 exit(font); |
783 exit(font); |
783 end; |
784 end; |