Delphi ×Ö·û´®×ªÎª×Ö½ÚÊý×é

info : String;

info := "ÖйúÄϾ© ChinaNanJing";

ÇóÖú£ºÔõô°Ñ×Ö·û´®infoµÄÄÚÈÝת»»ÎªÊ®Áù½øÖƵÄ×Ö½ÚÊý×飿

---

ascÂë°É?
i:=1 to length(info)

inttohex(ord(info[i]),2)

---

ºÎΪ"Ê®Áù½øÖƵÄ×Ö½ÚÊý×é"?

---

1Â¥£ºÎÒÊÔÒ»ÊÔ£¡
2Â¥£º Èç aArr : array[0..1] of byte;
        aArr[0] := $10;
        aArr[1] := $11;

---

Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
I : Integer;
str : string;
test : array[0..49] of char;
ByteArr : Array[0..49] of string;
begin
str := 'ÖйúÄϾ©ChinaNanJing';
Move(str[1],Test[0],Length(str));
for I := 0 to Length(Test)-1 do
begin
ByteArr[I] := IntToHex(ord(Test[I]),2);
end;
for I := 0 to Length(ByteArr)-1 do
self.Memo1.Lines.Add(ByteArr[I]);
end;





ÕâÀïÓиöÎÊÌ⣬ºº×ÖÊÇÕ¼2¸ö×Ö½Ú¡£

---

ÒýÓÃ

1Â¥£ºÎÒÊÔÒ»ÊÔ£¡
2Â¥£º Èç aArr : array[0..1] of byte;
        aArr[0] := $10;
        aArr[1] := $11;

ÕâÑùµÄ»°, ¸ù±¾²»ÓÃת»», StringÀàÐͱ¾Éí¾ÍÊÇÕâÑù´æ´¢µÄ

---

Âé·³´ó¼Òдµã×¢ÊÍÔÚ³ÌÐòÀÎÒ¶ÔDelphi»ù±¾ÎÄä¡£

5Â¥£ºËäÈ»ÕâÑùÒ²Òª°ÑString¼ÓÈëµ½byte[]Àïȥѽ£¬Ôõô¼ÓÈë½øÈ¥ÄØ£¿