[Synedit-checkins] SynEdit/Source SynEdit.pas,1.386.2.48,1.386.2.49

[Maël Hörz <ma...@us...>]

Update of /cvsroot/synedit/SynEdit/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2360/Source

Modified Files:
      Tag: Unicode_2004_08_31
	SynEdit.pas 
Log Message:
Fix memory leak.

Index: SynEdit.pas
===================================================================
RCS file: /cvsroot/synedit/SynEdit/Source/SynEdit.pas,v
retrieving revision 1.386.2.48
retrieving revision 1.386.2.49
diff -u -d -r1.386.2.48 -r1.386.2.49
--- SynEdit.pas	21 Jan 2006 19:47:33 -0000	1.386.2.48
+++ SynEdit.pas	23 Jan 2006 18:43:30 -0000	1.386.2.49
@@ -9467,6 +9467,7 @@
       x := x - TmpDelLen;
 
     FirstIndent := -1;
+    FullStrToDelete := nil;
     // Delete string
     if SomethingToDelete then
     begin
@@ -9516,6 +9517,10 @@
       SetCaretAndSelection(OrgCaretPos, BB, BE);
     end;
     ActiveSelectionMode := OrgSelectionMode;
+    if FullStrToDelete <> nil then
+      StrDisposeW(FullStrToDelete)
+    else
+      StrDisposeW(StrToDelete);
   end;
 end;