如何轉換一個字符串中的每個字符到ASCII碼？ |
|
尚未結案
|
|
garywang
一般會員   發表：3 回覆：0 積分：0 註冊：2002-09-26 發送簡訊給我 |
|
|
kan0515
中階會員  發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|
|
T.J.B
版主 發表：29 回覆：532 積分：497 註冊：2002-08-14 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var
s, TMP: String;
i : integer;
begin
s := 'ABCDE'; //假設字串
for i := 1 to length(s) do
begin
TMP := TMP+IntToStr(ORD(S[I]))+','; end;
ShowMessage(TMP); //可觀察此TMP的內容 為(65,66,67,68,69)
end; end.
------
天行健 君子當自強不息~~@.@ |
|
anderslee
初階會員 發表：2 回覆：32 積分：26 註冊：2002-06-03 發送簡訊給我 |
這是一個可行的方法 // This could be a solution:
Type BA: array of byte; // define a byte array type
Var BB : ^BA; // define a point to an array
Begin
BB := @StringVar[1]; // point to first char of string
// now you have the ascii code as an array of byte
// BB[0], bb[1] ....
End;
視乎你要做的是什麼, Ord(stringvar[n]) 可能較直接
引言: 我有個字符串，想把其中的每一個字符都轉換為ASCII，程序怎么寫呢？ |
發表時間：2002-09-27 10:37:13
IP:61.170.xxx.xxx 未訂閱
系統時間：2024-04-30 14:02:02
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |