怎么让控件显示在窗体上的时候也显示出它的name属性 在编辑的时候,我们在窗体上可以看到控件的name属性,这样看起来更直观些 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 请教各位大哥一个问题,我现在在做关于一个IEEE754格式的数据转化为一个十进制的问题。代码如下:procedure TForm1.Button1Click(Sender: TObject);VAR e,a1,a2,a3:BYTE;M:integer;z:extended;value:extended;beginBUF[0]:=$50;BUF[1]:=$80;BUF[2]:=$00;BUF[3]:=$00;E:=(BUF[0] SHL 1)+(BUF[1] SHR 7)-126;a1:=BUF[1] AND $FF;a2:=BUF[2] AND $FF;a3:=BUF[3] AND $FF;M:=(a1 shr 4)*1048576+(a1 and $0f)*65536+(a2 shr 4)*4096+(a2 and $0f)*256+(a3 shr 4)*16+(a3 and $0f);value:=(power(2,E));z:=(value * m)div $1000000;showmessage(floattostr(z));end;其中E为指数,M为尾数,Z为最后要的数据结果。可是最后输出的结果不正确,不知道是怎么回事,请各位大哥指点一下。 tools|entvironment opitions|preferencesshow component captions procedure TForm1.Edit1Enter(Sender: TObject);begin edit1.HideSelection := true; edit1.Hint := edit1.Name;end; Txxxxx.Caption:=Txxxx.name;orShowHint:=True;Hint:=Txx.name; 设计期的时候,鼠标悬停就会出现name的;运行期的时候可以这样edit1.hint:=Edit1.name;edit1.showhint:=True; tools|entvironment opitions|designershow component captions多谢大家的帮忙,解决,买单 进销存中,结未收款的一个困惑 那为朋友能帮忙改写下这段c代码 服务程序连接数据库问题?? 急 请帮忙! 谁有网络五子棋的的源码,给我一份好吗? ado查询对于2000和2008不同的表现 在多线程里执行一个查询,再根据查询的结果执行一个更新的操作,这样多线程能不能发挥它的优势呢 超easy问题! 向各位前辈请教!!!(高分悬赏) 急!急!急! 高手请进! inno step 打包 安装完成报错问题 初学者问题,郁闷啊,如何将一个表中的所有数据存到一个动态二维数组中啊?????????? 如何读取dll里的jpeg资源文件
VAR e,a1,a2,a3:BYTE;
M:integer;
z:extended;
value:extended;
begin
BUF[0]:=$50;
BUF[1]:=$80;
BUF[2]:=$00;
BUF[3]:=$00;
E:=(BUF[0] SHL 1)+(BUF[1] SHR 7)-126;
a1:=BUF[1] AND $FF;
a2:=BUF[2] AND $FF;
a3:=BUF[3] AND $FF;
M:=(a1 shr 4)*1048576+(a1 and $0f)*65536+(a2 shr 4)*4096+(a2 and $0f)*256+(a3 shr 4)*16+(a3 and $0f);
value:=(power(2,E));
z:=(value * m)div $1000000;
showmessage(floattostr(z));
end;
其中E为指数,M为尾数,Z为最后要的数据结果。可是最后输出的结果不正确,不知道是怎么回事,请各位大哥指点一下。
show component captions
procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.HideSelection := true;
edit1.Hint := edit1.Name;
end;
or
ShowHint:=True;
Hint:=Txx.name;
运行期的时候可以这样
edit1.hint:=Edit1.name;
edit1.showhint:=True;
show component captions多谢大家的帮忙,解决,买单