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

String 和 widestring to HTML code 的問題

答題得分者是:h@visli
SuperLowB
初階會員


發表:96
回覆:77
積分:34
註冊:2003-06-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-12-13 13:51:33 IP:210.177.xxx.xxx 未訂閱
本人想寫個widestring to HTML code (e.g. 你好嗎 =&# 20320;&#22909 ;&# 21966; )program ,目的是想將這些html code 在web 上顯示出來, 我的coding 是:

function WideStr2HTMLCode(AWideString: WideString): string;
var
i: integer;
begin
result := '';
for i := 1 to length(AWideString) do
result := result '&#' IntToStr(Ord(AWideString[i])) ';';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=WideStr2HTMLCode(edit1.Text);
end;

小弟的電腦是winxp locale 是"台灣".... 當我按下button1時, 顯示出來的HTMLcode 是沒錯
(i.e. 你好嗎 =&# 20320;&# 22909;&# 21966; )

但當我將我個winxp 個locale 轉去"中國(PRC)"後, 顯示出來的HTMLcode 是就錯了
(i.e. 你好嗎=&# 59143;&# 59092;&# 30462;)

點解? 應該怎麼做才對?
編輯記錄
Coffee 重新編輯於 2007-10-12 11:07:12, 註解 修改分類為問題‧
h@visli
資深會員


發表:101
回覆:416
積分:418
註冊:2004-02-13

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-01-12 11:05:03 IP:218.18.xxx.xxx 訂閱
我的作業系統是XP 簡體,不管改成哪個區域,得到的都是
你好嗎
------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------
系統時間:2017-10-19 4:00:34
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!