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

MG: fixed typo in win32 code

Browse Source 
git-svn-id: trunk@563 -
This commit is contained in:
lazarus 2002-01-01 15:52:39 +00:00
parent 7a28cf749f
commit 0ada200b98
2 changed files with 2 additions and 2 deletions
components/codetools
fileprocs.pas
ide
ideprocs.pp

2
components/codetools/fileprocs.pas
View File

@ -179,7 +179,7 @@ end;
function FileIsWritable(const AFilename: string): boolean;
begin
{$IFDEF win32}
Result:=((FileGetAttr(Filename) and faReadOnly)>0);
Result:=((FileGetAttr(AFilename) and faReadOnly)>0);
{$ELSE}
Result:={$IFDEF Ver1_0}Linux{$ELSE}Unix{$ENDIF}.Access(
AFilename,{$IFDEF Ver1_0}Linux{$ELSE}Unix{$ENDIF}.W_OK);

2
ide/ideprocs.pp
View File

@ -221,7 +221,7 @@ end;
function FileIsWritable(const AFilename: string): boolean;
begin
{$IFDEF win32}
Result:=((FileGetAttr(Filename) and faReadOnly)>0);
Result:=((FileGetAttr(AFilename) and faReadOnly)>0);
{$ELSE}
Result:={$IFDEF Ver1_0}Linux{$ELSE}Unix{$ENDIF}.Access(
AFilename,{$IFDEF Ver1_0}Linux{$ELSE}Unix{$ENDIF}.W_OK);