paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:19:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: TCTDirectoryCache.GetFiles: fixed last file

Browse Source 
git-svn-id: trunk@30987 -
This commit is contained in:
mattias 2011-05-31 16:20:16 +00:00
parent f4ccf88085
commit ced61b53b4
3 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/directorycacher.pas
View File

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

3
ide/buildprojectdlg.pas
View File

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

1
ide/lazarusidestrconsts.pas
View File

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