求DELPHI中 float转DWord格式的方法

Question

C代码好像是这么写的
int floatToDWORD(float flo)
{
  float *a = &flo;
  int *b = (int*)a;
  int c = *b;
  return c;
}delphi 应该怎么写呢
谢谢DelphiC

Answer 1

看你C的代码是只去浮点数的整数部分，你可以用这几个函数Trunc(f)，Floor(f)，int(f)四舍五入用Round浮点数的下一个整数用Ceil

Answer 2

用指针或可变记录都行TDoubleDWord = record
  case integer of
    0:(Vdouble:Double);
    1:(Vdword:Dword);
end指针大概如下：
var
aDouble:Double;
aDword:Dword;aDWord:=(PDword(@aDouble))^

Answer 3

DELPHI中,浮点数用double标示
可以将double先转换为String,FloatToStr函数进行转换
用下列函数进行转换
function StrToDword(Value: string): dword;  
var  
ValuePtr: PChar;  
begin  
ValuePtr:=@Value[1];  
asm  
MOV EAX, [ValuePtr]  
MOV EAX, [EAX]  
MOV Result, EAX end;  
end;