procedure TForm1.BitBtn1Click(Sender: TObject);
var
a : real;
begin
a := strtofloat('9.3');
edit1.text := FloatToStr(a);
end;转来转去,还是9。3啊!
var
a : real;
begin
a := strtofloat('9.3');
edit1.text := FloatToStr(a);
end;转来转去,还是9。3啊!
解决方案 »
- FormKeyDown 不执行?
- 关于源代码管理软件
- dbadvgrid append
- 请问一下这个怎么翻译
- 进销存中 物品多单位的问题? 头都大了。
- 使用CreateOleObject动态建DCOM实例,执行DCOM中的方法错误...为什么
- WINDOWS右键中WINZIP、ICQ等如何去除,请进来看看
- 怎样自己写一个对象使之可以在Word中插入?以及双击对象打开自己的处理程序?
- 急!把delphi代码转换成VC++代码,请高手帮帮忙
- 请问为何工程执行是出现"Can't focus a disabled or invisible windows"的错误提示?
- WinGate代理上网,设置后OICQ不能发送信息。怎样通过编程或已有软件结除这种设置
- delphi高手请进!!!!!windows自带的cards.dll如何使用?
Caption := FloatToStr(a);后检查标题。
a := strtofloat('9.3');
后增加一条使用变量A的语句,肯定就正确了:
showmessage(floattostr(a));
或者将A设为全局变量也没问题。可能这是Delphi编译器优化的结果。