paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 17:06:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* aaccess also for treginifile.

Browse Source 
git-svn-id: trunk@8169 -
This commit is contained in:
marco 2007-07-27 11:18:55 +00:00
parent a093c52815
commit 6a133f11f3
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-registry/src/regini.inc
View File

@ -13,6 +13,16 @@ begin
fPath := ''; fPath := '';
end; end;
constructor TRegIniFile.Create(const FN: String;aaccess:longword);
begin
inherited Create(aaccess);
fFileName := FN;
if fFileName<>'' then
fPath := fFileName + '\'
else
fPath := '';
end;
procedure TRegIniFile.DeleteKey(const Section, Ident: String); procedure TRegIniFile.DeleteKey(const Section, Ident: String);
begin begin
if not OpenKey(fPath+Section,true) then Exit; if not OpenKey(fPath+Section,true) then Exit;

2
packages/fcl-registry/src/registry.pp
View File

@ -14,6 +14,7 @@ Uses
Windows, Windows,
{$endif XMLREG} {$endif XMLREG}
Classes, Classes,
inifiles,
SysUtils; SysUtils;
{$I regdef.inc} {$I regdef.inc}
@ -132,6 +133,7 @@ type
fPath : String; fPath : String;
public public
constructor Create(const FN: string); constructor Create(const FN: string);
constructor Create(const FN: string;aaccess:longword); overload;
function ReadString(const Section, Ident, Default: string): string; function ReadString(const Section, Ident, Default: string): string;
function ReadInteger(const Section, Ident: string; function ReadInteger(const Section, Ident: string;
Default: Longint): Longint; Default: Longint): Longint;