var
a: Integer;
b: byte;b := byte(a);
a: Integer;
b: byte;b := byte(a);
解决方案 »
- delphi 中断 与 Timer 联合使用谁的优先级高
- 怎样生成这样的一组字符串?
- delphi8.0怎样连接到sybase数据库,不是本机数据库
- 异常处理!
- 如何在数据库中将一个字段付值为nui?
- 如何模拟串口发送数据
- 有两个列表框,相互比较各自的条目,若listbox1列表框中的条目没有和listbox2列表框中的条目相对应,则把listbox1列表框中该条目清除。不
- 关于forgot的感情帖子http://expert.csdn.net/Expert/TopicView1.asp?id=1326537,这是后面的故事,原帖的分不够了,这里再开帖,请朋友们
- 救命,我的主窗体不见了
- 将VC++语句转成delphi语句
- 如何实现:用鼠标按住一个控件后,使整个窗体随着鼠标的移动而移动
- 请问在项目选项中加上"Build with runtime packages"有什么用?
int mod 10
j:^byte;
k1,k2:byte;
begin
i:=strtoint(inputbox('输入','输入一个整数',''));
j:=@i;
k1:=j^;
inc(j);
k2:=j^;
showmessage(inttostr(k1)+':'+inttostr(k2));
end;