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

codetools: fixed DirectoryIsWritable when missing pathdelim at end

Browse Source 
git-svn-id: trunk@12707 -
This commit is contained in:
mattias 2007-11-03 00:29:29 +00:00
parent efe7d0f7c6
commit 94f9b83e0e
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/fileprocs.pas
View File

@ -335,15 +335,15 @@ var
fs: TFileStream;
s: String;
begin
TempFilename:=GetTempFilename(DirectoryName,'tstperm');
TempFilename:=GetTempFilename(AppendPathDelim(DirectoryName),'tstperm');
Result:=false;
try
InvalidateFileStateCache;
fs:=TFileStream.Create(TempFilename,fmCreate);
s:='WriteTest';
fs.Write(s[1],length(s));
fs.Free;
DeleteFile(TempFilename);
if not DeleteFile(TempFilename) then
InvalidateFileStateCache;
Result:=true;
except
end;

1
ide/main.pp
View File

@ -8408,6 +8408,7 @@ begin
end;
procedure TMainIDE.DoRestart;
procedure StartStarter;
var
StartLazProcess: TProcess;