TStr=string[2];
Function isGB(Character:TStr):Boolean;
Begin
if Length(Character)=2 Then
Begin
if (Ord(Character[2])<$A1) or (Ord(Character[2])>$FE) Then
Result:=False
Else if (Ord(Character[1])<$A1) or (Ord(Character[1])>$FE) Then
Result:=False
Else
Result:=True;
End
Else
Result:=False;
End;
判断Big5 类似
to xzgyb:
可能是我的用法不对,函数老是返回False
with tmemorystream.create do
begin
loadfromfile('C:\test.txt'); //unicode文档
if istextunicode(memory,size,nil) then
showmessage('I'' got it!')
else showmessage('It''s NOT Unicode text!')
Free;
end;
主要是最后一个参数pint,不知道该如何用。