* empty registry unit inserted

fcl/inc/Makefile.inc

@@ -6,4 +6,4 @@ INCNAMES=classes.inc classesh.inc bits.inc collect.inc compon.inc filer.inc \
          lists.inc parser.inc persist.inc reader.inc streams.inc stringl.inc \
          writer.inc cregist.inc
 
-INCUNITS=inifiles ezcgi pipes rtfpars idea base64 gettext iostream zstream cachecls
+INCUNITS=inifiles registry ezcgi pipes rtfpars idea base64 gettext iostream zstream cachecls

fcl/inc/registry.pp

@@ -0,0 +1,925 @@
+unit Registry;
+
+{$mode objfpc}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  HKEY = Integer;
+  PHKEY = ^HKEY;
+
+  ERegistryException = class(Exception);
+
+  TRegKeyInfo = record
+    NumSubKeys: Integer;
+    MaxSubKeyLen: Integer;
+    NumValues: Integer;
+    MaxValueLen: Integer;
+    MaxDataLen: Integer;
+    //FileTime: TFileTime;
+  end;
+
+  TRegDataType = (rdUnknown, rdString, rdExpandString, rdInteger, rdBinary);
+
+  TRegDataInfo = record
+    RegData: TRegDataType;
+    DataSize: Integer;
+  end;
+
+  { TRegistry }
+  {
+    @abstract(Class to provide access to a registry.)
+    Introduced by Curtis White
+    Currently maintained by Curtis White
+  }
+  TRegistry = class(TObject)
+  private
+    fCurrentKey: HKEY;
+    fRootKey: HKEY;
+    fLazyWrite: Boolean;
+    fCurrentPath: string;
+    //fCloseRootKey: Boolean;
+
+    procedure SetRootKey(Value: HKEY);
+  protected
+    function GetBaseKey(Relative: Boolean): HKey;
+    function GetData(const Name: string; Buffer: Pointer;
+                  BufSize: Integer; var RegData: TRegDataType): Integer;
+    function GetKey(const Key: string): HKEY;
+
+    procedure ChangeKey(Value: HKey; const Path: string);
+    procedure PutData(const Name: string; Buffer: Pointer;
+                  BufSize: Integer; RegData: TRegDataType);
+    procedure SetCurrentKey(Value: HKEY);
+  public
+    constructor Create;
+    destructor Destroy; override;
+
+    function CreateKey(const Key: string): Boolean;
+    function DeleteKey(const Key: string): Boolean;
+    function DeleteValue(const Name: string): Boolean;
+    function GetDataInfo(const ValueName: string; var Value: TRegDataInfo): Boolean;
+    function GetDataSize(const ValueName: string): Integer;
+    function GetDataType(const ValueName: string): TRegDataType;
+    function GetKeyInfo(var Value: TRegKeyInfo): Boolean;
+    function HasSubKeys: Boolean;
+    function KeyExists(const Key: string): Boolean;
+    function LoadKey(const Key, FileName: string): Boolean;
+    function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
+    //function ReadCurrency(const Name: string): Currency;
+    function ReadBinaryData(const Name: string; var Buffer; BufSize: Integer): Integer;
+    function ReadBool(const Name: string): Boolean;
+    function ReadDate(const Name: string): TDateTime;
+    function ReadDateTime(const Name: string): TDateTime;
+    function ReadFloat(const Name: string): Double;
+    function ReadInteger(const Name: string): Integer;
+    function ReadString(const Name: string): string;
+    function ReadTime(const Name: string): TDateTime;
+    function RegistryConnect(const UNCName: string): Boolean;
+    function ReplaceKey(const Key, FileName, BackUpFileName: string): Boolean;
+    function RestoreKey(const Key, FileName: string): Boolean;
+    function SaveKey(const Key, FileName: string): Boolean;
+    function UnLoadKey(const Key: string): Boolean;
+    function ValueExists(const Name: string): Boolean;
+
+    procedure CloseKey;
+    procedure GetKeyNames(Strings: TStrings);
+    procedure GetValueNames(Strings: TStrings);
+    procedure MoveKey(const OldName, NewName: string; Delete: Boolean);
+    procedure RenameValue(const OldName, NewName: string);
+    //procedure WriteCurrency(const Name: string; Value: Currency);
+    procedure WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);
+    procedure WriteBool(const Name: string; Value: Boolean);
+    procedure WriteDate(const Name: string; Value: TDateTime);
+    procedure WriteDateTime(const Name: string; Value: TDateTime);
+    procedure WriteFloat(const Name: string; Value: Double);
+    procedure WriteInteger(const Name: string; Value: Integer);
+    procedure WriteString(const Name, Value: string);
+    procedure WriteExpandString(const Name, Value: string);
+    procedure WriteTime(const Name: string; Value: TDateTime);
+
+    property CurrentKey: HKEY read fCurrentKey;
+    property CurrentPath: string read fCurrentPath;
+    property LazyWrite: Boolean read fLazyWrite write fLazyWrite;
+    property RootKey: HKEY read fRootKey write SetRootKey;
+  end;
+
+  { TRegIniFile }
+  {
+    @abstract(Class to provide access to a registry in an Ini file manner.)
+    Introduced by Curtis White
+    Currently maintained by Curtis White
+  }
+  TRegIniFile = class(TRegistry)
+  private
+    fFileName: String;
+  public
+    constructor Create(const FN: string);
+
+    function ReadString(const Section, Ident, Default: string): string;
+    function ReadInteger(const Section, Ident: string;
+                Default: Longint): Longint;
+    function ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
+
+    procedure WriteString(const Section, Ident, Value: String);
+    procedure WriteInteger(const Section, Ident: string; Value: Longint);
+    procedure WriteBool(const Section, Ident: string; Value: Boolean);
+    procedure ReadSection(const Section: string; Strings: TStrings);
+    procedure ReadSections(Strings: TStrings);
+    procedure ReadSectionValues(const Section: string; Strings: TStrings);
+    procedure EraseSection(const Section: string);
+    procedure DeleteKey(const Section, Ident: String);
+
+    property FileName: String read fFileName;
+  end;
+
+
+implementation
+
+{******************************************************************************
+                                  TRegistry
+ ******************************************************************************}
+{------------------------------------------------------------------------------
+  Method: TRegistry.Create
+  Params:  None
+  Returns: Nothing
+
+  Constructor for the class.
+ ------------------------------------------------------------------------------}
+constructor TRegistry.Create;
+begin
+  inherited Create;
+end;
+
+{------------------------------------------------------------------------------
+  Method: TRegistry.Destroy
+  Params:  None
+  Returns: Nothing
+
+  Destructor for the class.
+ ------------------------------------------------------------------------------}
+destructor TRegistry.Destroy;
+begin
+  inherited Destroy;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.CreateKey
+  Params:   Key: String key to create
+  Returns:  Boolean containing result of the create. True if it succeeded.
+
+  Create a registry key.
+ ------------------------------------------------------------------------------}
+function TRegistry.CreateKey(const Key: String): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.DeleteKey
+  Params:   Key: String key to create
+  Returns:  Boolean containing result of the delete. True if it succeeded.
+
+  Delete a registry key.
+ ------------------------------------------------------------------------------}
+function TRegistry.DeleteKey(const Key: String): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.DeleteValue
+  Params:   Name: Name of key of which to delete its value
+  Returns:  Boolean containing result of the function. True if it succeeded.
+
+  Delete the value for a registry key.
+ ------------------------------------------------------------------------------}
+function TRegistry.DeleteValue(const Name: String): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetBaseKey
+  Params:   Relative: Is the key relative or absolute. True if relative.
+  Returns:  HKey containing the base key.
+
+  Gets the base key.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetBaseKey(Relative: Boolean): HKey;
+begin
+  Result := CurrentKey;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetData
+  Params:   Name: name of the key
+            Buffer:
+            BufSize:
+            RegData:
+  Returns:  Integer containing output from the function.
+
+  Gets data from the registry.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetData(const Name: String; Buffer: Pointer;
+          BufSize: Integer; var RegData: TRegDataType): Integer;
+begin
+  Result := 0;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetDataInfo
+  Params:   ValueName: name of the value to get info on
+            Value:
+  Returns:  Boolean containing result of the function. True if it succeeded.
+
+  Get info on the data value.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetDataInfo(const ValueName: String; var Value: TRegDataInfo): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetDataSize
+  Params:   ValueName: name of the value to get info on
+  Returns:  Integer containing the size of the value.
+
+  Get the size of the data value.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetDataSize(const ValueName: String): Integer;
+begin
+  Result := 0;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetDataType
+  Params:   ValueName: name of the value to get info on
+  Returns:  TRegDataType containing type of the value.
+
+  Get the type of the data value.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetDataType(const ValueName: string): TRegDataType;
+begin
+  Result := rdUnknown;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetKey
+  Params:   Key: key to get
+  Returns:  HKey containing the key.
+
+  Get a key from the registry.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetKey(const Key: String): HKEY;
+begin
+  Result := 0;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.GetKeyInfo
+  Params:   Value: value of info to get key info on
+  Returns:  Boolean containing result of the function. True if it succeeded.
+
+  Get the info of a key.
+ ------------------------------------------------------------------------------}
+function TRegistry.GetKeyInfo(var Value: TRegKeyInfo): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.HasSubKeys
+  Params:   None
+  Returns:  Boolean containing result of the function. True if there are sub
+            keys.
+
+  See if the key has sub keys.
+ ------------------------------------------------------------------------------}
+function TRegistry.HasSubKeys: Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.KeyExists
+  Params:   Key: the name of the key
+  Returns:  Boolean containing result of the function. True if the key exists.
+
+  Check to see if a key exists.
+ ------------------------------------------------------------------------------}
+function TRegistry.KeyExists(const Key: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.LoadKey
+  Params:   Key: the name of the key
+            FileName: file containing the key to load
+  Returns:  Boolean containing result of the function. True if it succeeded.
+
+  Load a key from a file.
+ ------------------------------------------------------------------------------}
+function TRegistry.LoadKey(const Key, FileName: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.OpenKey
+  Params:   Key: the name of the key
+            CanCreate: create the key if it does not exist. True to create
+  Returns:  Boolean containing result of the function. True if it succeeded.
+
+  Open a key and optionally create it if is does not exist.
+ ------------------------------------------------------------------------------}
+function TRegistry.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
+begin
+  Result := True;
+end;
+
+
+
+
+
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadBinaryData
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadBinaryData(const Name: string; var Buffer; BufSize: Integer): Integer;
+begin
+  Result := 0;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadBool
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadBool(const Name: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadCurrency
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+{function TRegistry.ReadCurrency(const Name: string): Currency;
+begin
+  Result := 0.0;
+end;}
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadDate
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadDate(const Name: string): TDateTime;
+begin
+  Result := now;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadDateTime
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadDateTime(const Name: string): TDateTime;
+begin
+  Result := now;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadFloat
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadFloat(const Name: string): Double;
+begin
+  Result := 0.0;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadInteger
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadInteger(const Name: string): Integer;
+begin
+  Result := 0;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadString
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadString(const Name: string): string;
+begin
+  Result := '';
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReadTime
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReadTime(const Name: string): TDateTime;
+begin
+  Result := now;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.RegistryConnect
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.RegistryConnect(const UNCName: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ReplaceKey
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ReplaceKey(const Key, FileName, BackUpFileName: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.RestoreKey
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.RestoreKey(const Key, FileName: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.SaveKey
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.SaveKey(const Key, FileName: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.UnLoadKey
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.UnLoadKey(const Key: string): Boolean;
+begin
+  Result := True;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegistry.ValueExists
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegistry.ValueExists(const Name: string): Boolean;
+begin
+  Result := True;
+end;
+
+
+
+
+
+
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.CloseKey
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.CloseKey;
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.ChangeKey
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.ChangeKey(Value: HKey; const Path: String);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.GetKeyName
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.GetKeyNames(Strings: TStrings);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.GetValueNames
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.GetValueNames(Strings: TStrings);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.MoveKey
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.MoveKey(const OldName, NewName: string; Delete: Boolean);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.PutData
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.PutData(const Name: string; Buffer: Pointer;
+  BufSize: Integer; RegData: TRegDataType);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.RenameValue
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.RenameValue(const OldName, NewName: string);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.SetCurrentKey
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.SetCurrentKey(Value: HKEY);
+begin
+  fCurrentKey := Value;
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.SetRootKey
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.SetRootKey(Value: HKEY);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteBinaryData
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteBinaryData(const Name: string; var Buffer; BufSize: Integer);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteBool
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteBool(const Name: string; Value: Boolean);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteCurrency
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+{procedure TRegistry.WriteCurrency(const Name: string; Value: Currency);
+begin
+
+end;}
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteDate
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteDate(const Name: string; Value: TDateTime);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteDateTime
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteDateTime(const Name: string; Value: TDateTime);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteExpandString
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteExpandString(const Name, Value: string);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteFloat
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteFloat(const Name: string; Value: Double);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteInteger
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteInteger(const Name: string; Value: Integer);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteString
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteString(const Name, Value: string);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegistry.WriteTime
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegistry.WriteTime(const Name: string; Value: TDateTime);
+begin
+
+end;
+
+
+{******************************************************************************
+                                TRegIniFile
+ ******************************************************************************}
+{------------------------------------------------------------------------------
+  Method: TRegIniFile.Create
+  Params:  None
+  Returns: Nothing
+
+  Constructor for the class.
+ ------------------------------------------------------------------------------}
+constructor TRegIniFile.Create(const FN: String);
+begin
+  inherited Create;
+  fFileName := FN;
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.DeleteKey(const Section, Ident: String);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.EraseSection(const Section: string);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.ReadSection(const Section: string; Strings: TStrings);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.ReadSections(Strings: TStrings);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.ReadSectionValues(const Section: string; Strings: TStrings);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.WriteBool(const Section, Ident: string; Value: Boolean);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.WriteInteger(const Section, Ident: string; Value: LongInt);
+begin
+
+end;
+
+{------------------------------------------------------------------------------
+  Method:  TRegIniFile.MyMethod
+  Params:  AOwner: the owner of the class
+  Returns: Nothing
+
+  Description of the procedure for the class.
+ ------------------------------------------------------------------------------}
+procedure TRegIniFile.WriteString(const Section, Ident, Value: String);
+begin
+
+end;
+
+
+
+{------------------------------------------------------------------------------
+  Function: TRegIniFile.MyFunction
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegIniFile.ReadBool(const Section, Ident: string; Default: Boolean): Boolean;
+begin
+  Result := Default;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegIniFile.MyFunction
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegIniFile.ReadInteger(const Section, Ident: string; Default: LongInt): LongInt;
+begin
+  Result := Default;
+end;
+
+{------------------------------------------------------------------------------
+  Function: TRegIniFile.MyFunction
+  Params:   AOwner: the owner of the class
+  Returns:  String containing output from the function.
+
+  Description of the function for the class.
+ ------------------------------------------------------------------------------}
+function TRegIniFile.ReadString(const Section, Ident, Default: String): String;
+begin
+  Result := Default;
+end;
+
+
+end.
+
+{
+  $Log$
+  Revision 1.1  2000-06-02 19:48:48  peter
+    * empty registry unit inserted
+
+}
+