Invalid floating point operation

[user5]

Can Trunc cause an invalid floating point error if its used on a very long decimal number?
Will the try statement catch an invalid floating point error?

[munair]

Does the DecimalSeparator match? The other day I had the same error reading large floating numbers. the system's decimal separator was set to a comma, while the data used a point. The following line solved my problem:

Code: Pascal  [Select][+][-]

1. DefaultFormatSettings.DecimalSeparator := '.'; // overwrite system's default

[Thaddy]

https://www.freepascal.org/docs-html/rtl/system/trunc.html
So they are bound to output by the limits of an int64 and an input limit of the largest available floating point type on the architecture the program runs on.

But note, indeed a wrong decimal separator can also cause it.

[wp]

This question is about an issue of the trunc function, not about string-to-float conversion. I cannot imagine how the decimal separator can have any effect on the trunc function. Please convince me with an example.

[Thaddy]

This question is about an issue of the trunc function, not about string-to-float conversion. I cannot imagine how the decimal separator can have any effect on the trunc function. Please convince me with an example.

In the case the values are read from a file in string format. Not enough information, really.

[munair]

Indeed, not enough information. It would help if the OP provided some code. But Trunc(StrToFloat(..)) could definitely cause the aforementioned issue.

[user5]

    Thanks for your responses. What I had in mind for the Trunc issue was something like: Trunc(newext1), with newext1 being an extended number.
    By the way, will the try statement catch an invalid floating point error? I can't seem to find out from the documentation.

[winni]

 Hi!
There were problems in earlier versions catching division by zero, but now it should work.
Test this:

Code: Pascal  [Select][+][-]

1.      
2.        try
3.         x := 100 / 0;
4.         except
5.           on EDivByZero do
6.             ShowMessage('Division by zero!')
7.         end;

Winni