paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 19:09:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazControl: LazIntegerEdit, result not set

Browse Source
This commit is contained in:
Martin 2024-08-15 23:52:12 +02:00
parent 5bdd772f03
commit 20445109d5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/laznumedit.pas
View File

@ -411,6 +411,7 @@ var
s: String; s: String;
n: Boolean; n: Boolean;
begin begin
Result := True;
APrefix := ''; APrefix := '';
AVal := 0; AVal := 0;
s := RealGetText; s := RealGetText;
@ -433,6 +434,7 @@ begin
AVal := -AVal; AVal := -AVal;
{$POP} {$POP}
except except
Result := False;
if n then if n then
AVal := Min_Limit AVal := Min_Limit
else else