paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 21:18:14 +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 begin
Assert((AEntryIdx >= 0) and (AEntryIdx < FCount), 'TSynEditTrimSpaceList.Delete index'); Assert((AEntryIdx >= 0) and (AEntryIdx < FCount), 'TSynEditTrimSpaceList.Delete index');
Entries[AEntryIdx].TrimmedSpaces := ''; Entries[AEntryIdx].TrimmedSpaces := '';
dec(FCount);
if AEntryIdx < FCount then begin if AEntryIdx < FCount then begin
Move(Entries[AEntryIdx+1], Entries[AEntryIdx], (FCount-AEntryIdx)*SizeOf(Entries[0])); Move(Entries[AEntryIdx+1], Entries[AEntryIdx], (FCount-AEntryIdx)*SizeOf(Entries[0]));
Pointer(Entries[FCount-1].TrimmedSpaces) := nil; Pointer(Entries[FCount].TrimmedSpaces) := nil;
end; end;
dec(FCount);
end; end;
function TSynEditTrimSpaceList.IndexOf(ALineIdx: Integer): Integer; function TSynEditTrimSpaceList.IndexOf(ALineIdx: Integer): Integer;