線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2355
推到 Plurk!
推到 Facebook!

UCS2 轉換問題 !

尚未結案
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; ~~ 新手上路.衝.衝.衝.
系統時間:2017-12-13 15:26:46
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!