paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 20:51:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: fixed compilation

Browse Source 
git-svn-id: trunk@16229 -
This commit is contained in:
paul 2008-08-25 14:23:05 +00:00
parent 39a3313e3f
commit e10d1efd80
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/fileutil.inc
View File

@ -1007,7 +1007,7 @@ begin
if (FileInfo.Attr and faDirectory)>0 then begin
if not DeleteDirectory(CurFilename,false) then exit;
end else begin
if not DeleteFile(CurFilename) then exit;
if not SysUtils.DeleteFile(CurFilename) then exit;
end;
until SysUtils.FindNext(FileInfo)<>0;
end;
@ -1031,7 +1031,7 @@ begin
{$ELSE}
Flags:=[sffDontSearchInBasePath];
{$ENDIF}
Result:=SearchFileInPath(Result,'',GetEnvironmentVariable('PATH'),':',Flags);
Result:=SearchFileInPath(Result,'',SysUtils.GetEnvironmentVariable('PATH'),':',Flags);
end;
// resolve links
Result:=ReadAllLinks(Result,false);
@ -1052,7 +1052,7 @@ begin
s:='WriteTest';
fs.Write(s[1],length(s));
fs.Free;
DeleteFile(TempFilename);
SysUtils.DeleteFile(TempFilename);
Result:=true;
except
end;