函数功能

函数说明

函数功能

取出字符串中的汉字

函数说明

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;