Pascal，如何将整数标记为货币值

作者: 绵绵
发布时间: 2025-02-27 02:02:27 (4天前)
转自：

4 条回复

0#
回复此人
晴天？霹雳 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 我现在知道，它如此简单。只是用 </p> <pre> <code> showMessage(formatFloat('#.###.00', strToFloat(original))); </code> </pre> <P> 但是感谢雷米，你打开了我的脑海。 </p> </DIV>

编辑
1#
回复此人
晴天 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 此函数执行您指定的操作： </p> <pre> <code> function FormatThousandsSeparators(Value: Int64): string; var Index: Integer; begin Result := IntToStr(Value); Index := Length(Result) - 3; while Index > 0 do begin Insert('.', Result, Index + 1); Dec(Index, 3); end; end; </code> </pre> <P> 请注意你的例子 <code> 12345678910 </code> 不适合32位有符号整数值，这就是我使用的原因 <code> Int64 </code> 。 </p> <P> 此功能无法正确处理负值。例如，它返回 <code> '-.999' </code> 过了 <code> -999 </code> 。这可以这样处理： </p> <pre> <code> function FormatThousandsSeparators(Value: Int64): string; var Index: Integer; Negative: Boolean; begin Negative := Value < 0; Result := IntToStr(Abs(Value)); Index := Length(Result) - 3; while Index > 0 do begin Insert('.', Result, Index + 1); Dec(Index, 3); end; if Negative then Result := '-' + Result; end; </code> </pre> </DIV>

编辑
2#
回复此人
Jacob | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在Delphi中有System.SysUtils.Format调用 <a href="http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.Format" rel="nofollow noreferrer"> http://docwiki.embarcadero.com/Libraries/Tokyo/en/System.SysUtils.Format </A> 。 </p> <P> 这个电话了解 <code> 'm' </code> 作为特定货币格式器的字符。尝试这样的代码： </p> <pre> <code> Value := 12345678910; FormattedStr := Format('Money = %m', [Value]) </code> </pre> <P> 默认情况下 <code> Format </code> 将使用系统范围的格式设置，如果您必须覆盖默认系统设置，请参阅官方文档： </p> <BLOCKQUOTE> <P> 转换由CurrencyString，CurrencyFormat控制， NegCurrFormat，ThousandSeparator，DecimalSeparator和 CurrencyDecimals全局变量或它们中的等价物 TFormatSettings数据结构。如果格式字符串包含精度说明符，它会覆盖由给定的值 CurrencyDecimals全局变量或其TFormatSettings等价物。 </p> </BLOCKQUOTE> </DIV>

编辑

登录后才能参与评论