Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2017-12

Laz commit for SpinEdit overflow fix

2 messages · 2 people · 12-8-2017

Alexey 1
Bart 1

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Alexey12-8-2017 09:57 UTC

- FIncrement := AIncrement;
+ if AIncrement > 0 then
+ FIncrement := AIncrement

+ else

+ FIncrement := -AIncrement;
better: FIncrement := Abs(AIncrement);

Regards, Alexey -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20171208/8e8847d4/attachment.html>

Reply by email

Bart12-8-2017 20:54 UTC

to Alexey

On Fri, Dec 8, 2017 at 10:57 AM, Alexey via Lazarus <

wrote:

Show quoted text 8 lines

- FIncrement := AIncrement; + if AIncrement > 0 then + FIncrement := AIncrement + else + FIncrement := -AIncrement; better: FIncrement := Abs(AIncrement);

I believe you are referring to T(Float)SpinEditEx? This code is in the generic part, and Abs(AIncrement) does not compile there, at least not with 3.0.4RC1.
Therefore this workaround.

Bart
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20171208/34e6488a/attachment.html>

Reply by email