paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

Patch from Ludo Brands to fix issue #20106

Browse Source 
git-svn-id: trunk@18921 -
This commit is contained in:
michael 2011-08-31 08:51:35 +00:00
parent 3c5d642685
commit d443fafc3c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-base/src/win/fileinfo.pp
View File

@ -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