易截截图软件、单文件、免安装、纯绿色、仅160KB

Delphi如何直接取浮点数的幂

一个浮点数变量Val，如何通过Delphi的函数（注意是Delphi的函数而不是自定义的函数）直接取它的幂值？

比如当Val:=101.3时，它的科学表达式形式为“1.013E+2”，我想得到它的幂值“2”
当Val:=0.0103时，它的科学表达式形式为“1.013E-2”,我想得到的值是“-2”
查了一下关于Math的单元函数，貌似没有直接支持的函数
不知道其它单元有没有。

如果实在没有，我会把分给算法效率最高的一位。

1、用mod，以1为分界值
2、利用FormatFloat，再提取幂值

引用
edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));

原来有函数

Delphi(Pascal) code:

function Log10(const X: Extended): Extended;
{ Log.10(X) := Log.2(X) * Log.10(2) }
asm
FLDLG2 { Log base ten of 2 }
FLD X
FYL2X
FWAIT
end;


引用
edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));

2 楼正解
round(log10(101.3)) ---> 2
round(log10(0.0103)) ---> -2
云南天游科技，主要开发大型3D网络游戏

高薪诚招

游戏客户端，服务器端delphi 程序员

包吃住

电话 0871-6089588
不知道Delphi的浮点数在不同型号的CPU（但仅限于X86或X64系列机)上是否采用的同一种格式，如果是的话，我倒是想直接分�


相关问答：

delphi 怎样将ucs2编码转换成中文

接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......

Delphi怎么取返回内容中的指定部分.

返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......

delphi 本地装载驱动 - Delphi / Windows SDK/API

delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......

delphi activx 的问题 110分

我在网上找了个关于IEBHO的代码，然后按照哪个设置了，后来运行的时候出现
构建
  [警告] Project2.dpr(14): File not found: 'MYbho.TLB'
  [警告] Project2.dpr(16): File not found: 'MYbho.RES' ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号