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

fixed a few directory exists checks

Browse Source 
git-svn-id: trunk@4917 -
This commit is contained in:
mattias 2003-12-20 11:10:36 +00:00
parent 6447d99a32
commit 014aa5c45f
3 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/cleandirdlg.pas
View File

@ -271,7 +271,7 @@ var
FullFilename: String;
begin
Result:=false;
if (not FileExists(MainDirectory)) or (Lvl>20) then exit;
if (not DirectoryExists(MainDirectory)) or (Lvl>20) then exit;
if SysUtils.FindFirst(MainDirectory+FindMask,
faAnyFile,FileInfo)=0
then begin
@ -383,7 +383,7 @@ begin
// delete them all
for i:=0 to List.Count-1 do begin
Filename:=List[i];
writeln('Deleting file ',Filename);
writeln('TCleanDirectoryDialog: Deleting file ',Filename);
if FileExists(Filename) then begin
repeat
if DeleteFile(Filename) then begin

7
ide/main.pp
View File

@ -8273,13 +8273,13 @@ begin
end;
if (EnvironmentOptions.LazarusDirectory='')
or not FileExists(EnvironmentOptions.LazarusDirectory) then begin
or not DirectoryExists(EnvironmentOptions.LazarusDirectory) then begin
writeln('');
writeln(
'NOTE: Lazarus Source Directory not set! (see Environment Options)');
end;
if (EnvironmentOptions.FPCSourceDirectory='')
or not FileExists(EnvironmentOptions.FPCSourceDirectory) then begin
or not DirectoryExists(EnvironmentOptions.FPCSourceDirectory) then begin
writeln('');
writeln('NOTE: FPC Source Directory not set! (see Environment Options)');
end;
@ -10247,6 +10247,9 @@ end.
{ =============================================================================
$Log$
Revision 1.681 2003/12/20 11:10:35 mattias
fixed a few directory exists checks
Revision 1.680 2003/12/20 01:20:52 mattias
splitted output directories for cross compilation

5
lcl/include/filectrl.inc
View File

@ -26,7 +26,7 @@ var
begin
dirExist := false;
F := FileGetAttr(FileName);
F := FileGetAttr(ChompPathDelim(FileName));
if F <> -1 then
if (F and faDirectory) <> 0 then
dirExist := true;
@ -896,6 +896,9 @@ end;
{
$Log$
Revision 1.37 2003/12/20 11:10:36 mattias
fixed a few directory exists checks
Revision 1.36 2003/11/13 12:47:20 marco
* 3 of the four linuxerror occurances fixed