在vb裡用 ToUnicodeString("中文")會轉成 unicode碼 4E2D6587，請問在DELPHI要用個去轉
試站內大大的一些程式都不行
1.MultiByteToWideChar(CodePage, MB_PRECOMPOSED, PChar(@s[1]), - 1, PWideChar(@Result[1]), l - 1);
2.Utf8Encode
3.function Big5ToUnicode(const Ws: string; CodePage:Word):widestring;
4.function UnicodeEncode(s:string;CodePage:word):WideString;
5.function Big5ToGB(sBig5: string): string;
請教各位大大如何轉 謝謝

小弟寫了一段 function ，試試看囉


[code delphi]
function EncodeUTF8(Value: WideString):String;
var I: Integer;
sTmp: String;
begin
Result := '';
for I := 1 to Length(Value) do
begin
FmtStr(sTmp, '%4.4X', [Ord(Value[i])]);
// 加空格是為了區格每個字方便閱讀用
Result := Result sTmp ' ';
end;
end;
[/code]

呼叫 ==> EncodeUTF8('中文')

------
價值的展現，來自於你用哪一個角度來看待它!!

謝謝大大