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 這是我不解的地方..不知要如何解決...
|
|
Justmade
版主 發表：94 回覆：1934 積分：2030 註冊：2003-03-12 發送簡訊給我 |
|
|
wnhoo
高階會員  發表：75 回覆：443 積分：198 註冊：2003-04-22 發送簡訊給我 |
發表時間：2003-05-22 18:18:39
IP:218.162.xxx.xxx 未訂閱
系統時間：2024-06-07 23:35:39
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |