UniCodeToUTF8的問題........ |
|
尚未結案
|
|
cloudandy
一般會員   發表：9 回覆：0 積分：1 註冊：2006-07-10 發送簡訊給我 |
在delphi7中使用了UniCodeToUTF8的Function，如以下程式碼:
procedure TForm1.Button5Click(Sender: TObject); var c: PChar; w: PWideChar; begin GetMem(w,255); StringToWideChar(Edit5.Text,w,255); GetMem(c,255); UnicodeToUtf8(c,w,255); Edit6.Text:=c; FreeMem(c); FreeMem(w); end; 若 Edit5.Text = '查詢' 為什麼結果會變成 '?亥岷'呢 ?? 我要如何結果還是'查詢'呢?? |
|
OsX
版主  發表：6 回覆：151 積分：111 註冊：2003-05-03 發送簡訊給我 |
<textarea class="delphi" rows="10" cols="60" name="code">
procedure TForm1.Button3Click(Sender: TObject);
var
aUTF: UTF8String;
begin
aUTF := AnsiToUtf8( Edit1.Text );
Label1.Caption := aUTF;
Label2.Caption := Utf8ToAnsi( aUTF );
end;
</textarea> 轉成 UTF8 後還要把 UTF8 轉回來, 原本的字串才會對
|
發表時間：2007-05-31 10:05:59
IP:218.170.xxx.xxx 訂閱
系統時間：2024-11-23 6:35:16
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |