From 20b4a3d0edba2c27df8971c291c80ff4da17ce88 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 10 Mar 2014 15:44:02 +0000
Subject: [PATCH] SynEdit: fixed wrong index in space trimmer. Issue #0025843

git-svn-id: trunk@44397 -
---
 components/synedit/synedittexttrimmer.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/synedit/synedittexttrimmer.pas b/components/synedit/synedittexttrimmer.pas
index e263f70c3c..fbae973315 100644
--- a/components/synedit/synedittexttrimmer.pas
+++ b/components/synedit/synedittexttrimmer.pas
@@ -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;