function isHanzi(zi: Char): Boolean; var code: Integer; begin code := Integer(zi); Result := (code > $4e00) and (code <= $9fbb); end;
function isHanzi(zi: Char): Boolean; var code: Integer; begin code := Integer(zi); Result := (code > $4e00) and (code <= $9fbb); end;