WideStr
函数功能取出字符串中的汉字
函数说明function WideStr(str:string):String; //取出字符串中的汉字
var I: Integer;
begin
for I := 1 to Length(WideString(Str)) do
if Length(string(WideString(Str)[I])) = 2 then
result:= result + WideString(Str)[I];
end;
函数功能取出字符串中的汉字
函数说明function WideStr(str:string):String; //取出字符串中的汉字
var I: Integer;
begin
for I := 1 to Length(WideString(Str)) do
if Length(string(WideString(Str)[I])) = 2 then
result:= result + WideString(Str)[I];
end;