* added DecimalSeparator:='.'; to make test locale independent.

git-svn-id: trunk@4113 -

tests/test/tstrreal3.pp

@@ -10,6 +10,7 @@ var
  e: extended;
  r: double;
 begin
+ DecimalSeparator:='.';
  e := 234.502;
  Result := FloatToStrF(e, ffGeneral, 15, 0);
 // Memo1.Lines.Add(Result);      { prints 234.502  }