精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>将十六进制字符串转换成浮点数字符串

主题:将十六进制字符串转换成浮点数字符串
发信人: showsky(示天)
整理人: teleme(2002-09-05 12:12:45), 站内信件
将十六进制字符串转换成浮点数字符串 

function strtofloat(s:string):string; 
var a : Single; 
  c : array[0..3] of char; 
begin 
  c[0]:=s[1]; 
  c[1]:=s[2]; 
  c[2]:=s[3]; 
  c[3]:=s[4]; 
  asm 
    push eax 
    mov eax,c 
    mov a,eax 
    pop eax 
  end; 
  result:=floattostr(a); 
end;
 
 
 



----
我每天都在努力,因为每天都要进步!
沉迷网络,程序人生,这就是我!
想认识了解示天,欢迎光临示天的个人主页:示天工作室

http://showsky.home.sohu.com
http://showsky.at.china.com  
http://showsky.y365.com
http://showsky.51.net
欢迎您来网易北京社区 DELPHI版
   

[关闭][返回]