查人人中国名人网建筑材料公司简介范文:ASCII TO HEX
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/10 09:23:38
用delphi实现
我用Lazarus实现的，Delphi应该同理
窗口上有两个文本框，在Edit1中输入字符，在Edit2中就有对应的16进制的ASCII码出现
procedure TForm1.Edit1Change(Sender: TObject);
var
i:Longint;
p:char;
s:String;
r1,r2:Longint;
begin
edit2.text:='';
s:=edit1.text;
For i:=1 to length(s) Do Begin
p:=s[i];
r1:=ord(p) div 16;
r2:=ord(p) mod 16;
If r1>9 Then edit2.text:=edit2.text+chr(r1+55) Else edit2.text:=edit2.text+chr(r1+48);
If r2>9 Then edit2.text:=edit2.text+chr(r2+55) Else edit2.text:=edit2.text+chr(r2+48);
End;
end;