非标浮点数转换计算

【例子介绍】

【相关图片】

【源码结构】   a:=strtofloat(str1);
   b:=ceil(ln(a)/ln(2));
   Memo1.Clear;
   Memo1.Lines.Insert(0,'b= ' floattostr(b));
   c:=power(2,b);
   Memo1.Lines.Insert(1,'c= ' floattostr(c));
   d:=a/c;
   Memo1.Lines.Insert(2,'d= ' floattostr(d));
   e:=d*256;
   a_z:=trunc(e);
   a_y:=frac(e);
   Memo1.Lines.Insert(3,'e= ' floattostr(e));
   Memo1.Lines.Insert(4,'取整= ' inttostr(a_z));
   Memo1.Lines.Insert(5,'取余= ' floattostr(a_y));
   f:=a_y*256;
   b_z:=trunc(f);
   b_y:=frac(f);
   Memo1.Lines.Insert(6,'f= ' floattostr(f));
   Memo1.Lines.Insert(7,'取整= ' inttostr(b_z));
   Memo1.Lines.Insert(8,'取余= ' floattostr(b_y));
   g:=b_y*256;
   c_z:=trunc(g);
   c_y:=frac(g);
   Memo1.Lines.Insert(9,'g= ' floattostr(g));
   Memo1.Lines.Insert(10,'取整= ' inttostr(c_z));
   Memo1.Lines.Insert(11,'取余= ' floattostr(c_y));
   a_str:=IntToHex(b,2) IntToHex(a_z,2) IntToHex(b_z,2) IntToHex(c_z,2);
   Edit2.Text:=IntToHex(b,2) IntToHex(a_z,2) IntToHex(b_z,2) IntToHex(c_z,2);