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

added fileexists for secondary config files

Browse Source 
git-svn-id: trunk@4589 -
This commit is contained in:
mattias 2003-09-09 11:22:17 +00:00
parent fb960f29e0
commit 78d8cb65a4
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/include/unix/lazbaseconf.inc
View File

@ -71,7 +71,6 @@ begin
PrimaryConfigPath:=FExpand(NewValue);
end;
{---------------------------------------------------------------------------
SetSecondaryConfigPath procedure
---------------------------------------------------------------------------}
@ -90,7 +89,8 @@ var
begin
PrimaryFilename:=GetPrimaryConfigPath+PathDelim+AFilename;
SecondaryFilename:=GetSecondaryConfigPath+PathDelim+AFilename;
if not FileExists(PrimaryFilename) then begin
if (not FileExists(PrimaryFilename))
and (FileExists(SecondaryFilename)) then begin
try
SrcFS:=TFileStream.Create(SecondaryFilename,fmOpenRead);
try

6
ide/include/win32/lazconf.inc
View File

@ -83,7 +83,8 @@ var
begin
PrimaryFilename:=GetPrimaryConfigPath+PathDelim+AFilename;
SecondaryFilename:=GetSecondaryConfigPath+PathDelim+AFilename;
if not FileExists(PrimaryFilename) then begin
if (not FileExists(PrimaryFilename))
and (FileExists(SecondaryFilename)) then begin
try
SrcFS:=TFileStream.Create(SecondaryFilename,fmOpenRead);
try
@ -168,6 +169,9 @@ end;
{
$Log$
Revision 1.15 2003/09/09 11:22:17 mattias
added fileexists for secondary config files
Revision 1.14 2003/09/09 11:11:02 mattias
fixed win32 intf showmoadl and lazconf