Delphi 簡單清除文字裡的“亂碼”

之前遇到的一個問題，寫的代碼，嘿嘿

有幾天沒寫博客了，有點忙，還有，在打 Crysis, 哈哈

Function TForm1()function TForm1.RemoveUnicode(orgStr : string) : string;

var

 sUText : PWidechar;

 i : integer;

 str : string;

begin

 GetMem(sUText, sizeof(WideChar) * Succ(Length(orgStr)));

 StringToWideChar(orgStr, sUText, Succ(Length(orgStr)));

 str := '''';

   for i:=0 to length(sUText) do

    begin

      if not ((ord(sUText[i])< 0) or (Ord(sUText[i])> 255)) then

       begin

        str := str + sUText[i];

       end;

      if ((ord(sUText[i])= 8220) or (ord(sUText[i])= 8221)) then

        str := str + ''"'';

    end;

 result := str;

end;