请教各位一个问题，Delphi在打开项目时，有时会出现这样错误。Error creating form:"is not a valid floating point value.是什么原因？

Question

请教各位一个问题，Delphi在打开项目时，有时会出现这样错误。
Error creating form:"is not a valid floating point value.
是什么原因？

Answer 1

有无效的浮点数
用NotePad打开DFM看看问题在那里了http://lysoft.7u7.net

Answer 2

是不是用delphi5打开delphi7项目了吧

Answer 3

上面两位的都不对，我都试过了，是Delphi7的项目。重装Delphi有时候可以，我现在还有搞清楚不什么原因。郁闷！！！

Answer 4

原因我已找到了，是TEmbeddedWB控件的一个小Bug.在EmbeddedWB.pas文件中找到下面一段代码，将FloatToStr(M * InchToMetric)改为FloatToStrDef(M * InchToMetric,075)就ok了。
function TEmbeddedWB.PrintMarginStr(M: Real): PChar;
var
  S: string;
begin
  if printOptions.Measure <> RuntimeMeasure
    then begin
    if RuntimeMeasure = mMetric then
      s := FloatToStr(M * InchToMetric) else
      s := FloatToStr(M / InchToMetric);
    Result := PChar(S);
  end else Result := PChar(FloatToStr(M));
end;

Answer 5

原因我已找到了，是TEmbeddedWB控件的一个小Bug.在EmbeddedWB.pas文件中找到下面一段代码，将FloatToStr(M * InchToMetric)改为FloatToStrDef(M * InchToMetric,0.75)就ok了。
function TEmbeddedWB.PrintMarginStr(M: Real): PChar;
var
  S: string;
begin
  if printOptions.Measure <> RuntimeMeasure
    then begin
    if RuntimeMeasure = mMetric then
      s := FloatToStr(M * InchToMetric) else
      s := FloatToStr(M / InchToMetric);
    Result := PChar(S);
  end else Result := PChar(FloatToStr(M));
end;