EurekaLog 6 安装在XE3中

EurekaLog7支持XE3,现在还没有找到Crack版.

研究了一下,先安装上EurekaLog 6,我安装的是For Delphi 2010,然后在XE3中打开安装目录中的ExceptionExpert14.dpk,编译,报告错误:

DecimalSeparator没有定义.这是XE3中的一个变化,在文件ECore.pas中,所以简单地找到两处使用这个变量的地方:

function DateTimeToStrFixed(const ADateTime: TDateTime): AnsiString;
begin
  Result := QuickStringReplace(FloatToStr(ADateTime), FormatSettings.DecimalSeparator, '.');
end;

function StrToDateTimeFixed(const AStr: AnsiString): TDateTime;
var
  S: String;
begin
  S := AStr;
  S := QuickStringReplace(S, '.', FormatSettings.DecimalSeparator);
  Result := StrToFloat(S);
end;

 

 将DecimalSeparator改为FormatSettings.DecimalSeparator,然后就可以成功安装到XE3中了.

 

另:其他控件如果在XE3中安装时报告这种错误,或者提示没有定义ShortTimeFormat，DateSeparator，ThousandSeparator，CurrencyString等,都可以这样来修改。