paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 21:41:35 +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; fs: TFileStream;
s: String; s: String;
begin begin
TempFilename:=GetTempFilename(DirectoryName,'tstperm'); TempFilename:=GetTempFilename(AppendPathDelim(DirectoryName),'tstperm');
Result:=false; Result:=false;
try try
InvalidateFileStateCache;
fs:=TFileStream.Create(TempFilename,fmCreate); fs:=TFileStream.Create(TempFilename,fmCreate);
s:='WriteTest'; s:='WriteTest';
fs.Write(s[1],length(s)); fs.Write(s[1],length(s));
fs.Free; fs.Free;
DeleteFile(TempFilename); if not DeleteFile(TempFilename) then
InvalidateFileStateCache;
Result:=true; Result:=true;
except except
end; end;

1
ide/main.pp
View File

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