字元串轉ＵＴＦ８格式

将字元串轉換成 UTF8 編碼的函數

這種轉換一般用于網頁位址; 我不知道 Delphi 是不是有現成的函數, 用到了就寫了一個.

//函數:
function ToUTF8Encode(str: string): string;
var
  b: Byte;
begin
  for b in BytesOf(UTF8Encode(str)) do
    Result := Format('%s%%%.2x', [Result, b]);
end;

//測試:
var
  str: string;
begin
  str := '萬一';
  str := ToUTF8Encode(str);
  ShowMessage(str); //%E4%B8%87%E4%B8%80
end;

   
      
   

為 "小月124" 寫了個反向函數:

function ToUTF8Decode(const str: string): string;
var
  List: TStrings;
  tmpStr: AnsiString;
  i: Integer;
begin
  List := TStringList.Create;
  ExtractStrings(['%'], ['%'], PChar(str), List);
  SetLength(tmpStr, List.Count);
  for i := 0 to List.Count - 1 do
    Byte(tmpStr[i+1]) := StrToInt('$' + List[i]);
  List.Free;
  Result := UTF8Decode(tmpStr);
end;

{ 調用測試 }
procedure TForm1.FormCreate(Sender: TObject);
var
  s1: AnsiString;
  s2: WideString;
begin
  s1 := '%E4%B8%87%E4%B8%80';
  s2 := ToUTF8Decode(s1);
  ShowMessage(s2); { 萬一 }
end;