UCS2 轉換問題 !

發文回覆瀏覽次數：2705

推到 Plurk!

推到 Facebook!

尚未結案

unisabilly
一般會員

發表：19
回覆：20
積分：17
註冊：2004-05-20

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-12-27 20:12:11

IP:168.209.xxx.xxx 未訂閱

各位大大聖誕快樂 ~ 小弟有個問題請教,小弟的一個小程式需要將文字轉換成UCS2的例如說: 在TEdit裡輸入 : 我愛你 <按下Button後> 在Memo裡顯示出 : 00460072006F006D002000320037003800320035003500340036003800390034003A00206211611B59B3 當然後面還有傳送等等的作業.... 現在問題就是該如何將TEdit.Text裡的文字轉換成UCS2 然後顯示在Memo裡. 1. WideStringToUSC4String - 是否可以轉換成 USC2的(小弟不懂USC4和USC2有何不同,而Delphi的Help檔裡只找到這個比較類似的Function) 2. 在Memo裡要顯示出來如果直接memo.Text := USC; 會有[Error] Unit1.pas(130): Incompatible types: 'String' and 'UCS4String' 的問題. 如果用 memo.Text := USC4StringToWideString(USC) 又會轉回原來Edit裡的文字. 不曉得該如何做,請各位先進幫幫忙 ~ 我參考了下列這邊看起來很類似我的需求,但是他是C 的我真的不懂,請各位大大幫幫忙!! http://delphi.ktop.com.tw/topic.php?TOPIC_ID=41528 ~~ 新手上路.衝.衝.衝.

unisabilly
一般會員

發表：19
回覆：20
積分：17
註冊：2004-05-20

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-27 23:42:09

IP:168.209.xxx.xxx 未訂閱

不好意思 ~ 又佔用空間了 ... 下列的小程式碼就可以將字轉成UCS2了參考看看 !


function EncodeChinese(Input: WideString): string;
var
        i: Integer;
begin
        Result := '';
        for i := 1 to Length(Input) do
                Result := Result   Format('%4.4x', [ord(Input[i])]);
end;

~~ 新手上路.衝.衝.衝.

系統時間：2024-12-04 1:47:46

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！