* avoid RTE 213

ide/fpcodcmp.pas

@@ -146,8 +146,10 @@ begin
 
   if ShowOnlyUnique and (Index<>-1) and (CIndex<>-1) then
     begin
-      St:=PString(CodeCompleteWords^.At(CIndex+1))^;
-      {if UpCase(st[Length(UpWordS)+1])<>Upcase(Text[Length(UpWordS)+1]) then}
+      {St:=PString(CodeCompleteWords^.At(CIndex+1))^;
+       Was wrong, CIndex+1 could be above count => collection.error
+       generated RTE 213
+      if UpCase(st[Length(UpWordS)+1])<>Upcase(Text[Length(UpWordS)+1]) then}
         begin
           Text:='';
           FPCompleteCodeWord:=false;
@@ -636,7 +638,10 @@ END.
 
 {
  $Log$
- Revision 1.10  2002-09-11 13:12:42  pierre
+ Revision 1.11  2002-09-26 13:00:41  pierre
+  * avoid RTE 213
+
+ Revision 1.10  2002/09/11 13:12:42  pierre
   * fix CodeComplete loading and use a unit for standard units code complete
 
  Revision 1.9  2002/09/09 06:53:54  pierre