Procházet zdrojové kódy

Make sure the list is not empty.

git-svn-id: file:///var/svn/tigccpp/trunk/tigcc/ide@1083 9552661e-59e3-4036-b4f2-dbe53926924f
kevinkofler před 17 roky
rodič
revize
d9514f77c7
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  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