?? dws2reginimodule.dfm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -