比如说我要把"张三"这个字符串转换为ASCII码,函数是什么,转换回来的函数是什么,
还有16进制和10进制之间转换函数和反函数。
还有16进制和10进制之间转换函数和反函数。
解决方案 »
- 用Random函数做一个摇号器怎么做
- 简单问题,新手求助,在线等
- 紧急求救!!!关于hook的问题。解决了这个问题,小弟愿出1000分答谢各位
- 我错了!!大家帮忙!!!——在线等待啊?!!!
- 我想在软件中使用EhLib组件,不知它是不是免费的?有没有什么限制?
- 我用TcpServer 能够接收到TcpClient发来的信息,但是怎么返回给TcpClient值?
- delphi 6 与 oracle9i(本地连接,非ODBC连接)的问题
- 请问如何才能定义记录类型的数组?
- 如何使程序为当前窗口
- 菜单中的‘...’是如何设置的?例如About...谢谢~
- 一个不错的技术站点!~~~~~~~~~~~~~~~~
- 如何读出并显示当前操作系统有几种汉字输入方式?
showMessage(IntToHex(s[i], 2));StrToInt('$ABCDEF');
s: String;
sASCII: Integer;
I: Integer;
begin
s := '张三';
sASCII := 0;
for I := 1 to Length(s);
sASCII := sASCII + Ord(s[I]);
end;//////////////////////////////////////16->10
var
I : Integer;
begin
I := StrToInt('$' + Edit1.Text);//这里Edit1.Text是16进制值!!
end;
/////////////10->16
参见函数:IntToHex
{$R *.dfm}procedure TForm1.CoolButton1Click(Sender: TObject);
{********************************************************}
{ Written By BlazingFire 2002.10 }
{ This function can transfer a binary string }
{ to a hex string. }
{********************************************************}
function BinToHexEx(BinS:String):String;
const
HexArray:Array[0..15] of Char
=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var
Value:Integer;
TmpStr:String;
begin
BinS:=Trim(BinS);
for Value:=1 to Length(BinS) do
begin
if Not(BinS[Value] in ['0','1']) then
begin
Result:='Wrong binray string!';
Exit;
end;
end;
Result:='';
while Length(BinS)>0 do
begin
Value:=0;
if Length(BinS)<=4 then
begin
TmpStr:=BinS;
BinS:='';
while Length(TmpStr)<4 do TmpStr:='0'+TmpStr;
end
else
begin
TmpStr:=Copy(BinS,Length(BinS)-3,4);
BinS:=Copy(BinS,1,Length(BinS)-4);
end;
if TmpStr[1]='1' then Inc(Value,8);
if TmpStr[2]='1' then Inc(Value,4);
if TmpStr[3]='1' then Inc(Value,2);
if TmpStr[4]='1' then Inc(Value);
Result:=HexArray[Value]+Result;
end;
end;
begin
ShowMessage(BinToHexEx(IntToBin(10)));
end;
自己看看吧,Delphi自带的IntToHex太不好用(可能是我才疏学浅吧),我以前写的了一个二进制转化为十六进制的函数。
var
AChr,TmpChr:Char;
ASC:Integer;
begin
AChr:='A';//字符
ASC:=Ord(AChr);//字符-->ASCII
ShowMessage(IntToStr(ASC));
TmpChr:=Chr(ASC);//ASCII-->字符
ShowMessage(TmpChr);
end;