請問VB的ToUnicodeString在Delphi要如何寫 |
答題得分者是:careychen
|
itsgero2798
一般會員 ![]() ![]() 發表:17 回覆:17 積分:6 註冊:2007-09-28 發送簡訊給我 |
在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; 請教各位大大如何轉 謝謝 |
careychen
尊榮會員 ![]() ![]() ![]() ![]() ![]() ![]() 發表:41 回覆:580 積分:959 註冊:2004-03-03 發送簡訊給我 |
小弟寫了一段 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('中文')
------
價值的展現,來自於你用哪一個角度來看待它!! |
itsgero2798
一般會員 ![]() ![]() 發表:17 回覆:17 積分:6 註冊:2007-09-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |