mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-09 08:29:06 +02:00
Merged revision(s) 57152 #756867c662, 57181 #d66a7bc370 from trunk:
IDE, EditorOpts: Fix stringcompare for color-names ........ IDE: updating EditorOptions.res for new lazarus_dci_file from rev 53111 #76a051e364 ........ git-svn-id: branches/fixes_1_8@57215 -
This commit is contained in:
parent
eb1b4e0f2c
commit
629862dd16
@ -6777,7 +6777,7 @@ begin
|
||||
l := length(s1)
|
||||
else
|
||||
l := length(s2);
|
||||
while i < l do begin
|
||||
while i <= l do begin
|
||||
Result := ord(s1[i]) - ord(s2[i]);
|
||||
if Result <> 0 then
|
||||
exit;
|
||||
|
Binary file not shown.
Loading…
Reference in New Issue
Block a user