Plattform unabhängige Funktion "IsFilereadOnly" ?

[LazarusRocks]

Hallo,

ich würde gerne diese Funktion von Delphi nach Lazarus konvertieren.

Code: Alles auswählen

function IsFileReadOnly(_filename:String):boolean;
var
_fileAttributes:DWord;
begin
  Result:=false;
  if not FileExists(_filename) then exit;
  _fileAttributes:=GetFileAttributes(PChar(_filename));
  if (_fileAttributes and FILE_ATTRIBUTE_READONLY) = FILE_ATTRIBUTE_READONLY then Result:=true
end;

Nun habe aber im WIKI und den Foren nichts dazu gefunden. Gibt's das schon als Plattform unabhängige Funktion oder muss man das selber proggen ?

Vielen Dank

[theo]

http://www.freepascal.org/docs-html/rtl ... tattr.html" onclick="window.open(this.href);return false;

[LazarusRocks]

Vielen Dank.

Nun habe ich gleich die nächste Frage.
In dem Hilfe-Eintrag hat es einen Schreibfehler. Wie kann ich den korrigieren ?
Das ganze Hilfe-System scheint ja nicht über das WIKI gelöst zu sein.

[af0815]

Vielen Dank.

Nun habe ich gleich die nächste Frage.
In dem Hilfe-Eintrag hat es einen Schreibfehler. Wie kann ich den korrigieren ?
Das ganze Hilfe-System scheint ja nicht über das WIKI gelöst zu sein.

Liegt im SVN in den xml Files, ev. diff schicken.

[Christian]

Unsinn, das geht viel einfacher mit dem lazDoc Editor in deinem lazarus einfach die betreffende stelle in den LCL Quellen ansteuern und den aufrufen dann korrigieren und einen diff machen und schicken.

[marcov]

[Turtle] svn log sysutex/ex40.pp |more
------------------------------------------------------------------------
r500 | marco | 2008-12-05 14:35:14 +0100 (Fri, 05 Dec 2008) | 1 line

* fixed spelling error in src, reported by Delphifreak - lazarusforum.de