dws2reginimodule.dfm

script language

object dws2RegIniLib: Tdws2RegIniLib
  OldCreateOrder = False
  Left = 65340
  Top = 643
  Height = 103
  Width = 112
  object RegIniUnit: Tdws2Unit
    Arrays = <>
    Classes = <
      item
        Name = 'TRegIniFile'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <
              item
                Name = 'Filename'
                DataType = 'String'
              end
              item
                Name = 'Rootkey'
                DataType = 'TRootKey'
                IsWritable = False
              end>
            OnAssignExternalObject = ConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'ReadString'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'String'
              end>
            ResultType = 'String'
            OnEval = ReadStringEval
            Kind = mkFunction
          end
          item
            Name = 'WriteString'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = WriteStringEval
            Kind = mkProcedure
          end
          item
            Name = 'EraseSection'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end>
            OnEval = EraseSectionEval
            Kind = mkProcedure
          end
          item
            Name = 'DeleteKey'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end>
            OnEval = DeleteKeyEval
            Kind = mkProcedure
          end
          item
            Name = 'UpdateFile'
            Parameters = <>
            OnEval = UpdateFileEval
            Kind = mkProcedure
          end
          item
            Name = 'SectionExists'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end>
            ResultType = 'Boolean'
            OnEval = SectionExistsEval
            Kind = mkFunction
          end
          item
            Name = 'ReadInteger'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'Integer'
              end>
            ResultType = 'Integer'
            OnEval = ReadIntegerEval
            Kind = mkFunction
          end
          item
            Name = 'WriteInteger'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'Integer'
              end>
            OnEval = WriteIntegerEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadBool'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'Boolean'
              end>
            ResultType = 'Boolean'
            OnEval = ReadBoolEval
            Kind = mkFunction
          end
          item
            Name = 'WriteBool'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = WriteBoolEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadDate'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'DateTime'
              end>
            ResultType = 'DateTime'
            OnEval = ReadDateEval
            Kind = mkFunction
          end
          item
            Name = 'WriteDate'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = WriteDateEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'DateTime'
              end>
            ResultType = 'DateTime'
            OnEval = ReadTimeEval
            Kind = mkFunction
          end
          item
            Name = 'WriteTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = WriteTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadDateTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'DateTime'
              end>
            ResultType = 'DateTime'
            OnEval = ReadDateTimeEval
            Kind = mkFunction
          end
          item
            Name = 'WriteDateTime'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = WriteDateTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadFloat'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Default'
                DataType = 'Float'
              end>
            ResultType = 'Float'
            OnEval = ReadFloatEval
            Kind = mkFunction
          end
          item
            Name = 'WriteFloat'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end
              item
                Name = 'Value'
                DataType = 'Float'
              end>
            OnEval = WriteFloatEval
            Kind = mkProcedure
          end
          item
            Name = 'ValueExists'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Ident'
                DataType = 'String'
              end>
            ResultType = 'Boolean'
            OnEval = ValueExistsEval
            Kind = mkFunction
          end
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = DestructEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end
          item
            Name = 'ReadSection'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Strings'
                DataType = 'TStringList'
              end>
            OnEval = ReadSectionEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadSections'
            Parameters = <
              item
                Name = 'Strings'
                DataType = 'TStringList'
              end>
            OnEval = ReadSectionsEval
            Kind = mkProcedure
          end
          item
            Name = 'ReadSectionValues'
            Parameters = <
              item
                Name = 'Section'
                DataType = 'String'
              end
              item
                Name = 'Strings'
                DataType = 'TStringList'
              end>
            OnEval = ReadSectionValuesEval
            Kind = mkProcedure
          end>
        Properties = <>
      end>
    Constants = <>
    Dependencies.Strings = (
      'Classes')
    Enumerations = <
      item
        Name = 'TRootKey'
        Elements = <
          item
            Name = 'rkClassesRoot'
            UserDefValue = 0
            IsUserDef = True
          end
          item
            Name = 'rkCurrentUser'
            UserDefValue = 1
            IsUserDef = True
          end
          item
            Name = 'rkLocalMachine'
            UserDefValue = 2
            IsUserDef = True
          end
          item
            Name = 'rkUsers'
            UserDefValue = 3
            IsUserDef = True
          end
          item
            Name = 'rkPerformanceData'
            UserDefValue = 4
            IsUserDef = True
          end
          item
            Name = 'rkCurrentConfig'
            UserDefValue = 5
            IsUserDef = True
          end
          item
            Name = 'rkDynData'
            UserDefValue = 6
            IsUserDef = True
          end>
      end>
    Forwards = <>
    Functions = <>
    Instances = <>
    Records = <>
    UnitName = 'RegistryIniFile'
    Variables = <>
    Left = 16
    Top = 16
  end
end