paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* avoid RTE 213

Browse Source
This commit is contained in:
pierre 2002-09-26 13:00:41 +00:00
parent e1c908703a
commit 26205c4b62
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/fpcodcmp.pas
View File

@ -146,8 +146,10 @@ begin
if ShowOnlyUnique and (Index<>-1) and (CIndex<>-1) then if ShowOnlyUnique and (Index<>-1) and (CIndex<>-1) then
begin begin
St:=PString(CodeCompleteWords^.At(CIndex+1))^; {St:=PString(CodeCompleteWords^.At(CIndex+1))^;
{if UpCase(st[Length(UpWordS)+1])<>Upcase(Text[Length(UpWordS)+1]) then} 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 begin
Text:=''; Text:='';
FPCompleteCodeWord:=false; FPCompleteCodeWord:=false;
@ -636,7 +638,10 @@ END.
{ {
$Log$ $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 * fix CodeComplete loading and use a unit for standard units code complete
Revision 1.9 2002/09/09 06:53:54 pierre Revision 1.9 2002/09/09 06:53:54 pierre