求助。构建FloatToStrF函数。

Question

   我打算自己构建一个floattostr函数，就把floattostr从SysUtils里面扣了出来，但是编译有一个警告       [Warning] SysUtils.pas(13384): Symbol 'EStackOverflow' is deprecated并且得出得结果不正确，我把源码发上来  求修复方法。源码下载地址           http://115.com/file/e7lfzmqp

Answer 1

没有看你的代码，我想应该是这样的。如果你构建floattostr函数在Unit1中，应该使用Unit1.floattostr进行调用。

Answer 2

没有115的账户，没有看到代码。
贴出来吧。http://topic.csdn.net/t/20020320/22/589784.html和你的问题类似。
你看是否有帮助

Answer 3

var
  Form1: TForm1;
  CurrencyString: string;
  DecimalSeparator: Char = '.';
  ThousandSeparator: Char;
  CurrencyFormat: Byte;
  NegCurrFormat: Byte;关于那个警告，你从哪儿弄来的SysUtils啊？我delphi2007自带的SysUtils不会警告。

Answer 4

这里改成这样：
  if MemInfo.dwTotalPhys > 1073741824 then AllMem := FloatToStrF(MemInfo.dwTotalPhys / 1073741824, ffFixed , 18, 0)+' GB';
.
.
.
.
  if MemInfo.dwAvailPhys > 1073741824 then DoMen := FloatToStrF(MemInfo.dwAvailPhys / 1073741824, ffFixed , 18, 0)+' GB';
再看看！