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 轉回來, 原本的字串才會對
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |