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

LCL/EditBtn: Fix detection of incorrect center date string element by ParseDate(). https://forum.lazarus.freepascal.org/index.php/topic,51008.msg373806/

Browse Source 
git-svn-id: trunk@63728 -
This commit is contained in:
wp 2020-08-13 08:20:57 +00:00
parent c00ae1a4b3
commit 0ba97f3388
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/editbtn.pas
View File

@ -1703,7 +1703,7 @@ begin
If (P=0) then If (P=0) then
Exit; Exit;
N2:=StrToIntDef(Copy(S,1,P-1),-1); N2:=StrToIntDef(Copy(S,1,P-1),-1);
If (N1=0) then Exit; If (N2=-1) then Exit;
Delete(S,1,P); Delete(S,1,P);
N3:=StrToIntDef(S,-1); N3:=StrToIntDef(S,-1);
If (N3=-1) then If (N3=-1) then