3

是否有用于格式化浮点数的字符串实用程序库

FormatFloat('$0.00', FTotal)

FloatToStrF ?

我能够做我需要的

  '$' + format('%0.2f', [FTotal]);

但只是好奇这些例程是否存在于某个地方?

4

1 回答 1

3

底层 DWScript 编译器生成一个迷你 RTL,其中包含字符串函数,如提到的Format(fmt: String; args: array of const): String. 它还包含function FloatToStr(f : Float; p : Integer = 99): String;也可以在这种情况下工作的内容。

不幸的是,这些迷你 RTL 函数的文档有点不好看,但您可以了解支持的内容:https ://bitbucket.org/egrange/dwscript/wiki/InternalStringFunctions.wiki#!internal-string-functions

在内部,函数映射到

function Format(f,a) { a.unshift(f); return sprintf.apply(null,a) }

function FloatToStr(i,p) { return (p==99)?i.toString():i.toFixed(p) }

您还可以编写自己的代码来处理任何字符串格式。最好的办法是编写一个浮动助手,以便您可以编写如下内容:

type
  TFloatHelper = helper for Float
    function toMyFormat: String;
  end;

function TFloatHelper.toMyFormat: String;`
begin
  Result := '$' + format('%0.2f', [Self]);
end;

var value = 1.23;
var str = value.toMyFormat;

然而,这将为所有浮点值添加 toMyFormat 扩展。如果您想将其限制为一种新类型,您可以编写如下内容:

type
  TMyFloat = Float;

  TFloatHelper = strict helper for TMyFloat
    function toMyFormat: String;
  end;

[...]

我希望这有帮助。

于 2016-01-06T10:58:44.450 回答