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;