paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 03:19:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Fix compilation with FPC 3.0.4.

Browse Source 
git-svn-id: trunk@64645 -
This commit is contained in:
juha 2021-02-21 15:34:09 +00:00
parent 32a3dc8fa6
commit d01c4c6496
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditautocomplete.pp
View File

@ -424,7 +424,7 @@ var
StartI := Length(CodeTemplateAttributesStartMagic) + 1; StartI := Length(CodeTemplateAttributesStartMagic) + 1;
while (StartI <= Length(sComplValue)) and (sComplValue[StartI] in [#10,#13]) do while (StartI <= Length(sComplValue)) and (sComplValue[StartI] in [#10,#13]) do
Inc(StartI); Inc(StartI);
EndI := Pos(CodeTemplateAttributesEndMagic, sComplValue, StartI); EndI := PosEx(CodeTemplateAttributesEndMagic, sComplValue, StartI);
if EndI = 0 then if EndI = 0 then
raise Exception.Create('TCustomSynAutoComplete.ParseCompletionList: "' raise Exception.Create('TCustomSynAutoComplete.ParseCompletionList: "'
+ CodeTemplateAttributesEndMagic + '" not found.'); + CodeTemplateAttributesEndMagic + '" not found.');