2,507
社区成员
发帖
与我相关
我的任务
分享十六进制 加一 的运算问题
比如
Procedure Test;
var
StrTemp : string;
begin
StrTemp := #$E2 ; //十六进制，如果把这个数值进行加一处理？ 变成#$E3
。。。。。
end;
说明：当StrTemp := 'E2' ; 这样的十六进制很好加一；
可以这样 StrTemp := Chr( StrtoInt($+ Strtemp)+1 )
但是当
StrTemp := #$E2 ; //十六进制，如果把这个数值进行加一处理？ 变成#$E3
Procedure Test;
var
StrTemp : string;
begin
StrTemp := #$E2 ; //十六进制，如果把这个数值进行加一处理？ 变成#$E3
。。。。。
end;
说明：当StrTemp := 'E2' ; 这样的十六进制很好加一；
可以这样 StrTemp := Chr( StrtoInt($+ Strtemp)+1 )
但是当
StrTemp := #$E2 ; //十六进制，如果把这个数值进行加一处理？ 变成#$E3
...全文
请发表友善的回复…
发表回复
lhy 2009-09-15
- 打赏
- 举报
直接加一
minizhuxianchun 2009-09-15
- 打赏
- 举报
一切内存中的量都可以看成Byte类型.
var
pS: array[0..9] of Char;
pB: ^Byte;
begin
ps[0]:='A';
pB:=@(ps[0]);
pB^:=pB^+1;
//这时ps[0]就是‘B’。
end;
var
pS: array[0..9] of Char;
pB: ^Byte;
begin
ps[0]:='A';
pB:=@(ps[0]);
pB^:=pB^+1;
//这时ps[0]就是‘B’。
end;
SuperTitan001 2009-09-15
- 打赏
- 举报
StrTemp := #$E2；
StrTemp :=chr(ord(StrTemp)+1)
StrTemp :=chr(ord(StrTemp)+1)
wxsan 2009-09-15
- 打赏
- 举报
刚到，先顶一下！
天剑68 2009-09-14
- 打赏
- 举报
StrTemp:=char(byte(StrTemp[1])+1);
既然StrTemp只存一个字节，还不如定义为char类型。
既然StrTemp只存一个字节，还不如定义为char类型。
sparklerl 2009-09-14
- 打赏
- 举报
那就先把 #$E2 变成E2
??
??
