[英]Is there a StrToCurr like function that can deal with thousand separators?
我在这个问题上也有类似的情况。
procedure TForm2.FormCreate(Sender: TObject);
var
S: string;
C: Currency;
FormatSettings: TFormatSettings;
begin
S := '1.000.000,00';
FormatSettings := TFormatSettings.Create;
FormatSettings.ThousandSeparator := '.';
FormatSettings.DecimalSeparator := ',';
// raises an Exception which is "as designed" as per the documentation
C := StrToCurr(S, FormatSettings);
ShowMessage(FormatCurr(',0.00', C));
end;
引用大卫:
因此,将包含数千个分隔符的字符串传递给此函数是错误的。
那么,Delphi是否具有任何内置函数可以解析包含千位分隔符的货币字符串?
该设计(缺陷)的解决方案很简单:定义自己的功能。
unit MyFixForSysUtils;
interface
function StrToCurr(const Str: string): Currency; overload;
function StrToCurr(Str: string; const FormatSettings : TFormatSettings): Currency; overload;
implementation
uses SysUtils;
function StrToCurr(Str: string; const FormatSettings : TFormatSettings): Currency;
begin
Str:= StringReplace(Str, FormatSettings.ThousandSeparator, '', [rfReplaceAll]);
Result:= SysUtils.StrToCurr(Str, FormatSettings);
end;
function StrToCurr(const Str: string): Currency;
begin
Result:= StrToCurr(Str, FormatSettings);
end;
如果您确定自己的版本在范围上比sysutils
更近,那么您无需更改代码:
uses
SysUtils,
MyFixForSysUtils, <-- contains the above function
.... other units.
现在,Delphi将选择固定功能而不是损坏的功能。
有关此概念的更多信息,请参见: Delphi插入器
您可以使用VarCyFromStr
从“varutils.pas”在默认情况下指向COM帮手VarCyFromStr
在“activex.pas”(你可以直接使用)从“OLEAUT32”进口。
如果您知道该字符串已使用系统默认语言环境进行了本地化,则可以使用:
var
S: string;
C: Currency;
begin
S := '1.000.000,00';
if varutils.VarCyFromStr(S, 0, LOCALE_NOUSEROVERRIDE, C) = VAR_OK then
ShowMessage(FormatCurr(',0.00', C))
else
或通过GetThreadLocale
获取LCID
以使用当前线程的设置。
如果使用默认的用户区域设置对字符串进行了本地化,则可以使RTL为您调用该字符串,并使用此函数进行变体转换。
var
V: Variant;
C: Currency;
begin
V := '1.000.000,00';
C := V;
ShowMessage(FormatCurr(',0.00', C));
否则,您必须知道字符串在哪种语言环境中表示货币。 例:
var
S: string;
C: Currency;
begin
S := '1,000,000.00';
if varutils.VarCyFromStr(S, MAKELCID(LANG_ENGLISH, SORT_DEFAULT), 0, C) = VAR_OK then
ShowMessage(FormatCurr(',0.00', C))
else
// handle error
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.