Chr(v) + chr(v1) + chr(v2) ....的問題.. |
尚未結案
|
LPH
一般會員 發表:53 回覆:43 積分:19 註冊:2003-04-02 發送簡訊給我 |
|
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
不明白你問甚麼....
我測試過和最初一樣的說,你試試
procedure TForm1.Button1Click(Sender: TObject); var skey, skey2 : string; i : integer; begin skey := chr(170) chr(53) chr(255) chr(182) chr(52); i := length(skey); showmessage(skey); // ? ? (亂碼) showmessage(inttostr(i)); // 5 (5個字元) skey2 := IntToStr(Ord(skey[1])); for i := 2 to 5 do skey2 := skey2 ',' IntToStr(Ord(skey[i])); Showmessage(skey2); // 170,53,255,182,52 (和開始一模一樣) end; |
LPH
一般會員 發表:53 回覆:43 積分:19 註冊:2003-04-02 發送簡訊給我 |
引言: 不明白你問甚麼.... 我測試過和最初一樣的說,你試試Skey 的亂碼 ? ? 存入欄位之後用 UltraEdit 去看時原本 170,53,255,182 52 的 hex 應該是AA 35 FF B6 34 卻變成 3F FF 3F F6 E0 這是我不解的地方..不知要如何解決...procedure TForm1.Button1Click(Sender: TObject); var skey, skey2 : string; i : integer; begin skey := chr(170) chr(53) chr(255) chr(182) chr(52); i := length(skey); showmessage(skey); // ? ? (亂碼) showmessage(inttostr(i)); // 5 (5個字元) skey2 := IntToStr(Ord(skey[1])); for i := 2 to 5 do skey2 := skey2 ',' IntToStr(Ord(skey[i])); Showmessage(skey2); // 170,53,255,182,52 (和開始一模一樣) end; |
Justmade
版主 發表:94 回覆:1934 積分:2030 註冊:2003-03-12 發送簡訊給我 |
|
wnhoo
高階會員 發表:75 回覆:443 積分:198 註冊:2003-04-22 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |