dws2classeslibmodule.dfm

script language

object dws2ClassesLib: Tdws2ClassesLib
  OldCreateOrder = False
  Left = 329
  Top = 163
  Height = 671
  Width = 860
  object dws2Unit: Tdws2Unit
    Arrays = <>
    Classes = <
      item
        Name = 'TList'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = dws2UnitClassesTListConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitClassesTListMethodsDestroyEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end
          item
            Name = 'Add'
            Parameters = <
              item
                Name = 'Obj'
                DataType = 'TObject'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTListMethodsAddEval
            Kind = mkFunction
          end
          item
            Name = 'Insert'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Obj'
                DataType = 'TObject'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTListMethodsInsertEval
            Kind = mkProcedure
          end
          item
            Name = 'Count'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTListMethodsCountEval
            Kind = mkFunction
          end
          item
            Name = 'Delete'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTListMethodsDeleteEval
            Kind = mkProcedure
          end
          item
            Name = 'IndexOf'
            Parameters = <
              item
                Name = 'Obj'
                DataType = 'TObject'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTListMethodsIndexOfEval
            Kind = mkFunction
          end
          item
            Name = 'Remove'
            Parameters = <
              item
                Name = 'Obj'
                DataType = 'TObject'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTListMethodsRemoveEval
            Kind = mkFunction
          end
          item
            Name = 'Clear'
            Parameters = <>
            OnEval = dws2UnitClassesTListMethodsClearEval
            Kind = mkProcedure
          end
          item
            Name = 'GetItems'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            ResultType = 'TObject'
            OnEval = dws2UnitClassesTListMethodsGetItemsEval
            Kind = mkFunction
          end
          item
            Name = 'SetItems'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Value'
                DataType = 'TObject'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTListMethodsSetItemsEval
            Kind = mkProcedure
          end>
        Properties = <
          item
            Name = 'Items'
            DataType = 'TObject'
            ReadAccess = 'GetItems'
            WriteAccess = 'SetItems'
            Parameters = <
              item
                Name = 'x'
                DataType = 'Integer'
                IsWritable = False
              end>
            IsDefault = True
          end>
      end
      item
        Name = 'TStrings'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = dws2UnitClassesTStringsConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'Destroy'
            Parameters = <>
            OnEval = dws2UnitClassesTStringsMethodsDestroyEval
            Attributes = [maOverride]
            Kind = mkDestructor
          end
          item
            Name = 'Add'
            Parameters = <
              item
                Name = 'Str'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTStringsMethodsAddEval
            Kind = mkFunction
          end
          item
            Name = 'Get'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetEval
            Kind = mkFunction
          end
          item
            Name = 'IndexOf'
            Parameters = <
              item
                Name = 'Str'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTStringsMethodsIndexOfEval
            Kind = mkFunction
          end
          item
            Name = 'IndexOfName'
            Parameters = <
              item
                Name = 'Str'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTStringsMethodsIndexOfNameEval
            Kind = mkFunction
          end
          item
            Name = 'Insert'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Str'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsInsertEval
            Kind = mkProcedure
          end
          item
            Name = 'Clear'
            Parameters = <>
            OnEval = dws2UnitClassesTStringsMethodsClearEval
            Kind = mkProcedure
          end
          item
            Name = 'GetText'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetTextEval
            Kind = mkFunction
          end
          item
            Name = 'SetText'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsSetTextEval
            Kind = mkProcedure
          end
          item
            Name = 'GetCount'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTStringsMethodsGetCountEval
            Kind = mkFunction
          end
          item
            Name = 'GetCommaText'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetCommaTextEval
            Kind = mkFunction
          end
          item
            Name = 'SetCommaText'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsSetCommaTextEval
            Kind = mkProcedure
          end
          item
            Name = 'LoadFromFile'
            Parameters = <
              item
                Name = 'FileName'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsLoadFromFileEval
            Kind = mkProcedure
          end
          item
            Name = 'SaveToFile'
            Parameters = <
              item
                Name = 'FileName'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsSaveToFileEval
            Kind = mkProcedure
          end
          item
            Name = 'Delete'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsDeleteEval
            Kind = mkProcedure
          end
          item
            Name = 'Exchange'
            Parameters = <
              item
                Name = 'Index1'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Index2'
                DataType = 'Integer'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsExchangeEval
            Kind = mkProcedure
          end
          item
            Name = 'Move'
            Parameters = <
              item
                Name = 'CurIndex'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'NewIndex'
                DataType = 'Integer'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsMoveEval
            Kind = mkProcedure
          end
          item
            Name = 'AddStrings'
            Parameters = <
              item
                Name = 'Strings'
                DataType = 'TStringList'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsAddStringsEval
            Kind = mkProcedure
          end
          item
            Name = 'AddObject'
            Parameters = <
              item
                Name = 'S'
                DataType = 'String'
                IsWritable = False
              end
              item
                Name = 'AObject'
                DataType = 'TObject'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTStringsMethodsAddObjectEval
            Kind = mkFunction
          end
          item
            Name = 'InsertObject'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'S'
                DataType = 'String'
                IsWritable = False
              end
              item
                Name = 'AObject'
                DataType = 'TObject'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsInsertObjectEval
            Kind = mkProcedure
          end
          item
            Name = 'IndexOfObject'
            Parameters = <
              item
                Name = 'AObject'
                DataType = 'TObject'
                IsWritable = False
              end>
            ResultType = 'Integer'
            OnEval = dws2UnitClassesTStringsMethodsIndexOfObjectEval
            Kind = mkFunction
          end
          item
            Name = 'GetNames'
            Parameters = <
              item
                Name = 's'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetNamesEval
            Kind = mkFunction
          end
          item
            Name = 'GetStrings'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetStringsEval
            Kind = mkFunction
          end
          item
            Name = 'SetStrings'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Value'
                DataType = 'String'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsSetStringsEval
            Kind = mkProcedure
          end
          item
            Name = 'GetObjects'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end>
            ResultType = 'TObject'
            OnEval = dws2UnitClassesTStringsMethodsGetObjectsEval
            Kind = mkFunction
          end
          item
            Name = 'SetObjects'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Integer'
                IsWritable = False
              end
              item
                Name = 'Value'
                DataType = 'TObject'
                IsWritable = False
              end>
            OnEval = dws2UnitClassesTStringsMethodsSetObjectsEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValues'
            Parameters = <
              item
                Name = 'Str'
                DataType = 'String'
                IsWritable = False
              end>
            ResultType = 'String'
            OnEval = dws2UnitClassesTStringsMethodsGetValuesEval
            Kind = mkFunction