paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 20:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

public TPropertyStorage StorageNeeded and FreeStorage

Browse Source 
git-svn-id: trunk@6799 -
This commit is contained in:
mattias 2005-02-17 22:35:05 +00:00
parent 72eb5291b8
commit 63b705cfd2
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/inipropstorage.pas
View File

@ -41,12 +41,12 @@ Type
FIniSection: String;
protected
Function IniFileClass: TIniFileClass; virtual;
procedure StorageNeeded(ReadOnly: Boolean);override;
procedure FreeStorage; override;
Function GetIniFileName: string; virtual;
Function RootSection: String; Override;
Property IniFile: TCustomIniFile Read FIniFile;
public
procedure StorageNeeded(ReadOnly: Boolean); override;
procedure FreeStorage; override;
function DoReadString(const Section, Ident, Default: string): string; override;
procedure DoWriteString(const Section, Ident, Value: string); override;
procedure DoEraseSections(const ARootSection : String);override;

4
lcl/propertystorage.pas
View File

@ -137,8 +137,6 @@ Type
procedure SetStoredValue(const AName: string; Value: TStoredType);
protected
function GetRoot: TComponent; virtual;
procedure StorageNeeded(ReadOnly: Boolean);Virtual;
procedure FreeStorage; Virtual;
Function RootSection: String; Virtual;
procedure SaveProperties; virtual;
procedure RestoreProperties; virtual;
@ -155,6 +153,8 @@ Type
procedure Save; virtual;
procedure Restore; virtual;
// Public Read/Write methods
procedure StorageNeeded(ReadOnly: Boolean);Virtual;
procedure FreeStorage; Virtual;
Function ReadString(const Ident, Default: string): string;
Function ReadInteger(const Ident: string; Default: Longint): Longint;
procedure WriteString(const Ident, Value: string);

4
lcl/xmlpropstorage.pas
View File

@ -43,13 +43,13 @@ type
FRootNode: String;
FRootNodePath: String;
protected
procedure StorageNeeded(ReadOnly: Boolean);override;
procedure FreeStorage; override;
Function GetXMLFileName: string; virtual;
Function RootSection: String; Override;
Function FixPath(const APath: String): String; virtual;
Property XMLConfig: TPropStorageXMLConfig Read FXML;
public
procedure StorageNeeded(ReadOnly: Boolean);override;
procedure FreeStorage; override;
function DoReadString(const Section, Ident, TheDefault: string): string; override;
procedure DoWriteString(const Section, Ident, Value: string); override;
Procedure DoEraseSections(const ARootSection: String);override;