paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-31 04:12:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fixed wrong index in space trimmer. Issue #0025843

Browse Source 
git-svn-id: trunk@44397 -
This commit is contained in:
martin 2014-03-10 15:44:02 +00:00
parent bbcdb509b3
commit 20b4a3d0ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedittexttrimmer.pas
View File

@ -280,11 +280,11 @@ procedure TSynEditTrimSpaceList.Delete(AEntryIdx: Integer);
begin
Assert((AEntryIdx >= 0) and (AEntryIdx < FCount), 'TSynEditTrimSpaceList.Delete index');
Entries[AEntryIdx].TrimmedSpaces := '';
dec(FCount);
if AEntryIdx < FCount then begin
Move(Entries[AEntryIdx+1], Entries[AEntryIdx], (FCount-AEntryIdx)*SizeOf(Entries[0]));
Pointer(Entries[FCount-1].TrimmedSpaces) := nil;
Pointer(Entries[FCount].TrimmedSpaces) := nil;
end;
dec(FCount);
end;
function TSynEditTrimSpaceList.IndexOf(ALineIdx: Integer): Integer;