codetools: TCTDirectoryCache.GetFiles: fixed last file

git-svn-id: trunk@30987 -

components/codetools/directorycacher.pas

@@ -1254,7 +1254,7 @@ begin
   if Directory='' then exit;
   UpdateListing;
   ListedFiles:=FListing.Files;
-  for i:=0 to FListing.Count do
+  for i:=0 to FListing.Count-1 do
     Files.Add(PChar(@ListedFiles[FListing.Starts[i]+SizeOf(TCTDirectoryListingTime)]));
 end;
 

ide/buildprojectdlg.pas

@@ -496,7 +496,8 @@ begin
         and (not Quiet) then begin
           Result:=IDEQuestionDialog(lisDeleteFileFailed,
             Format(lisPkgMangUnableToDeleteFile, ['"', Filename, '"']),
-            mtError,[mrRetry,mrCancel,mrNo,'Skip',mrNoToAll,'Skip errors']);
+            mtError,
+            [mrRetry, mrCancel, mrNo, lisCCOSkip, mrNoToAll, lisSkipErrors]);
           if Result=mrNoToAll then begin
             Quiet:=true;
             break;

ide/lazarusidestrconsts.pas

@@ -3581,6 +3581,7 @@ resourcestring
     +'the package, otherwise other packages can get problems using this '
     +'package.%s%sDelete ambiguous file?';
   lisPkgMangUnableToDeleteFile = 'Unable to delete file %s%s%s.';
+  lisSkipErrors = 'Skip errors';
   lisDeleteAllTheseFiles = 'Delete all these files?';
   lisPkgMangUnsavedPackage = 'Unsaved package';
   lisFpcmakeFailed = 'fpcmake failed';