5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
outer2000 2002-02-08
- 打赏
- 举报
强制转化byte(yourinteger)
fontain 2002-02-08
- 打赏
- 举报
var i:integer;
j:^byte;
k1,k2:byte;
begin
i:=strtoint(inputbox('输入','输入一个整数',''));
j:=@i;
k1:=j^;
inc(j);
k2:=j^;
showmessage(inttostr(k1)+':'+inttostr(k2));
end;
j:^byte;
k1,k2:byte;
begin
i:=strtoint(inputbox('输入','输入一个整数',''));
j:=@i;
k1:=j^;
inc(j);
k2:=j^;
showmessage(inttostr(k1)+':'+inttostr(k2));
end;
wyj1974 2002-02-08
- 打赏
- 举报
可使用：
int mod 10
int mod 10
chechy 2002-02-08
- 打赏
- 举报
var
a: Integer;
b: byte;
b := byte(a);
a: Integer;
b: byte;
b := byte(a);
