兄弟们怎么判断是否是unicode字符? ( 积分: 100 )

兄弟们怎么判断是否是unicode字符?

帮你顶，接个分

unicode字符串都是以$FF $FE开头

ord()大于一定的值就是了

谢谢大家了

多人接受答案了。

Function IsUnicode(S:String):Boolean;
function WStrLen(const S: WideString): Integer;overload;
begin
if Pointer(S) = nil then
Result := 0
else
Result := PInteger(Integer(S) - 4)^ div sizeof(WideChar);
end;
function AStrLen(const S: AnsiString): Longint;overload;
begin
Result := Longint(S);
if Result <> 0 then
Result := PLongint(Result - 4)^;
end;
var
WS : String;
begin
WS := S;
Result := WStrLen(WS) <> AStrLen(S);
end;