paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:39:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fixed using for-var after loop.

Browse Source
This commit is contained in:
Martin 2025-03-01 12:37:15 +01:00
parent 7b77a98bcf
commit b50acfc112
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/syneditplugins.pas
View File

@ -439,9 +439,12 @@ begin
(CurrentEditor.CaretX -1 <= Length(iString)) then (CurrentEditor.CaretX -1 <= Length(iString)) then
begin begin
iIdentChars := CurrentEditor.IdentChars; iIdentChars := CurrentEditor.IdentChars;
for cCol := CurrentEditor.CaretX -1 downto 1 do cCol := CurrentEditor.CaretX -1;
while cCol > 0 do begin
if not (iString[cCol] in iIdentChars) then if not (iString[cCol] in iIdentChars) then
break; break;
dec(cCol);
end;
Result := Copy( iString, cCol +1, CurrentEditor.CaretX - cCol -1); Result := Copy( iString, cCol +1, CurrentEditor.CaretX - cCol -1);
end; end;
end; end;