Delphi 我的US Ini文件是否适用于欧洲格式的浮点
我正在Windows 32位VCL平台上使用C++Builder XE4 我正在设置Delphi 我的US Ini文件是否适用于欧洲格式的浮点,delphi,c++builder,ini,Delphi,C++builder,Ini,我正在Windows 32位VCL平台上使用C++Builder XE4 我正在设置.INI文件，其中包括使用句点（）作为小数分隔符的浮点数。在欧洲，他们使用逗号（，）作为十进制分隔符 我使用的是C++Builder内置的TIniFile类 TIniFile是否会在欧洲阅读下面的文件条目？我是否需要第二个.INI文件，以逗号作为分隔符 读取浮点值时，故障保护返回值也使用句点（）。在下面的代码中 ReadFloat("Forex", "Size", 0.01 ); 0.01是故障安全返回
.INI，TIniFileTIniFile.INIReadFloat("Forex", "Size", 0.01 );
[Forex]
Size=0.0001
Value=10.5
OffSet=0.01
//Read TIniFile
MyList = new TIniFile("C:\\MyList.ini");
double r_Size = MyList->ReadFloat("Forex", "Size", 0.01);
double r_Value = MyList->ReadFloat("Forex", "Value", 10.0);
double r_OffSet = MyList->ReadFloat("Forex", "OffSet", 0.01);
步骤2）使用US格式（.）分隔符加载浮动
步骤3）使用本地分隔符重新保存
void __fastcall ConvertToLocalSeparator( ){
//1 Check Local Value of Seperator
TFormatSettings fmt = TFormatSettings::Create();
UnicodeString Local = fmt.DecimalSeparator;
UnicodeString Euro = ",";
if( CompareText(Local, Euro )==0 ){ //Local DecimalSeparator is Coma(,)
//2 Load Float using US format (.) Separator
TFormatSettings USfmt = TFormatSettings::Create(); // get defaults
USfmt.DecimalSeparator = '.';
USfmt.ThousandSeparator = '\0'; //'\0' to disable
TIniFile *MyList;
MyList = new TIniFile("C:\\MyList.ini");
double r_Size = StrToFloatDef(MyList->ReadString("Forex", "Size", ""), 0.01, USfmt);
delete MyList;
MyList=NULL;
//3 Re-Save with local Separator
MyList = new TIniFile("C:\\MyList.ini");
MyList->WriteFloat("Forex", "Size", r_Size );
delete MyList;
MyList=NULL;
}
}
在内部，
ReadFloat（）ReadString（）StrToFloat（）t格式设置字符串doubleWriteFloat（）FloatToStr（）t格式设置double字符串WriteString（）StrToFloat（）FloatToStr（）SysUtilsDecimalSeparatorReadFloat（）WriteFloat（）小数分隔符。WriteFloat（）ReadFloat（）WriteString（）ReadString（）//写入文件
tformatsetings fmt=tformatsetings:：Create（）；//获取默认值
fmt.DecimalSeparator=_D（'.'）；
fmt.ThousandSeparator=_D（'，）；//或“\0”以禁用
MyList=新文件（\u D（“C:\\MyList.ini”）；
MyList->WriteString（_D（“外汇”）、_D（“大小”）、FloatToStr（r_大小，fmt））；
MyList->WriteString（_D（“外汇”）、_D（“价值”）、FloatToStr（r_值，fmt））；
MyList->WriteString（_D（“外汇”）、_D（“对冲”）、FloatToStr（r_对冲，fmt））；
//读取文件
TFormatSettings fmt=TFormatSettings:：Create（）；
fmt.DecimalSeparator=_D（'.'）；
fmt.ThousandSeparator=_D（'，）；//或“\0”以禁用
MyList=新文件（\u D（“C:\\MyList.ini”）；
双r_Size=StrToFloatDef（MyList->ReadString（_D（“外汇”），_D（“大小”），_D（“”），0.01，fmt）；
双r_值=StrToFloatDef（MyList->ReadString（_D（“外汇”），_D（“值”），_D（“”），10.0，fmt）；
双r_OffSet=StrToFloatDef（MyList->ReadString（_D（“外汇”），_D（“OffSet”），_D（“”），0.01，fmt）；
更新：如果您想使用本地格式（我不推荐使用这种格式）读取并重新保存文件，您可以尝试以下方法：
t格式设置USFmt；
t格式设置EuroFmt；
void uu fastcall InitFormats（）
{
USFmt=t格式设置：：Create（）；
USFmt.DecimalSeparator=_D（'.'）；
USFmt.ThousandSeparator=_D（'\0'）；
EuroFmt=t格式设置：：Create（）；
EuroFmt.DecimalSeparator=_D（'，'）；
EuroFmt.000分隔符=_D（'\0'）；
}
void\uu fastcall CheckLocalFormat（TCustomIniFile*Ini，字符串部分，字符串名称，双默认值）
{
双重价值；
字符串s=Ini->ReadString（节，名称，_D（“”）；
如果（！TryStrToFloat（s，值））
{
如果（！TryStrToFloat（s，value，USFmt）和&！TryStrToFloat（s，value，EuroFmt））
值=默认值；
Ini->WriteFloat（节、名称、值）；
}
}
void\uu快速调用CheckLocalFormat（）
{
TIniFile*MyList=新的TIniFile（_D（“C:\\MyList.ini”）；
CheckLocalFormat（MyList，_D（“外汇”），_D（“大小”），0.01）；
CheckLocalFormat（MyList，_D（“外汇”），_D（“价值”），10.0）；
CheckLocalFormat（MyList，_D（“外汇”），_D（“对冲”），0.01）；
删除MyList；
}
t格式设置：：Invariant\u D（）System:：charSystem:：stringwchar\u tchar16\u t