[Jcl-checkins-diff] SF.net SVN: jcl:[3058] trunk/jcl/source/common/JclAnsiStrings.pas

[<ob...@us...>]

Revision: 3058
          http://jcl.svn.sourceforge.net/jcl/?rev=3058&view=rev
Author:   obones
Date:     2009-10-26 18:31:16 +0000 (Mon, 26 Oct 2009)

Log Message:
-----------
Much better when it actually compiles...

Modified Paths:
--------------
    trunk/jcl/source/common/JclAnsiStrings.pas

Modified: trunk/jcl/source/common/JclAnsiStrings.pas
===================================================================
--- trunk/jcl/source/common/JclAnsiStrings.pas	2009-10-26 08:00:46 UTC (rev 3057)
+++ trunk/jcl/source/common/JclAnsiStrings.pas	2009-10-26 18:31:16 UTC (rev 3058)
@@ -1079,7 +1079,7 @@
   for I := Index to Count - 2 do
     FStrings[I] := FStrings[I + 1];
     
-  SetLength(FStrings[FCount - 1], 0);  // the last string is no longer useful
+  SetLength(FStrings[FCount - 1].Str, 0);  // the last string is no longer useful
     
   Dec(FCount);
 end;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.