山 山水之间 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #1 如何把字符串如jhsd或数字2746转化成ascii码,然后再如何将他们转化回来?
山 山水之间 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #4 我知道可以这样将字符转化成ascii码,但我不知道怎么将转化好的ascii再转化成原字符 procedure TForm1.Button1Click(Sender: TObject); var a:string; b:string; i:integer; begin a:=edit1.text; for i:=1 to length(a)do begin b:=b+inttostr(ord(a)); end; edit2.text:=b; end;
我知道可以这样将字符转化成ascii码,但我不知道怎么将转化好的ascii再转化成原字符 procedure TForm1.Button1Click(Sender: TObject); var a:string; b:string; i:integer; begin a:=edit1.text; for i:=1 to length(a)do begin b:=b+inttostr(ord(a)); end; edit2.text:=b; end;
C CrazyIdea Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #5 需要把生成ASCLL码用分隔符分开才好。否则,不好办。再说,也没有不分开的必要啊。
影 影 子 Unregistered / Unconfirmed GUEST, unregistred user! 2002-12-27 #9 你理解错误,ascii码并不字符或者字符串。 可以使用array of byte 保存,或者通过特定的字符分割你上面代码生成的字符串。