Browse Source

Make sure the list is not empty.

git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@1083 9552661e-59e3-4036-b4f2-dbe53926924f
kevinkofler 17 years ago
parent
commit
d9514f77c7
1 changed files with 1 additions and 1 deletions
  1. 1 1
      CodeCompletion/CompletionForm.pas

+ 1 - 1
CodeCompletion/CompletionForm.pas

@@ -329,7 +329,7 @@ begin
 		// Find Symbol
 		if List.Find(Symbol, i) then
 			T := ''
-		else if (i >= 0) and (i <= List.Count) then
+		else if (List.Count > 0) and (i >= 0) and (i <= List.Count) then
 		begin
 			if i = 0 then
 			begin