本人想寫個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;)

點解? 應該怎麼做才對?

編輯記錄

我的作業系統是XP 簡體，不管改成哪個區域，得到的都是
你好嗎

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------