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