From d443fafc3c11147588fb9f0c43b5d5cf6d169ddf Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Wed, 31 Aug 2011 08:51:35 +0000
Subject: [PATCH] Patch from Ludo Brands to fix issue #20106
git-svn-id: trunk@18921 -
---
packages/fcl-base/src/win/fileinfo.pp | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/packages/fcl-base/src/win/fileinfo.pp b/packages/fcl-base/src/win/fileinfo.pp
index 5c0e457497..68dd89a24b 100644
--- a/packages/fcl-base/src/win/fileinfo.pp
+++ b/packages/fcl-base/src/win/fileinfo.pp
@@ -226,7 +226,7 @@ begin
s:=LowerCase(inp);
I:=0;
Result:='';
- While (Result='') and (i<FmyVersionCategories.Count -1) do
+ While (Result='') and (i<FmyVersionCategories.Count) do
begin
V:=FmyVersionCategories[i];
if (V=S) and ((transid=0) or (transid=dword(pointer(FmyVersionCategories.Objects[i])))) then