dws2weblibmodule.dfm

来自「script language」· DFM 代码 · 共 1,129 行 · 第 1/3 页

          end
          item
            Name = 'FileName'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesScriptDocMethodsFileNameEval
            Kind = mkClassFunction
          end
          item
            Name = 'Path'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesScriptDocMethodsPathEval
            Kind = mkClassFunction
          end>
        Properties = <>
      end
      item
        Name = 'TCookie'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'SetDomain'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2WebUnitClassesTCookieMethodsSetDomainEval
            Kind = mkProcedure
          end
          item
            Name = 'GetDomain'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesTCookieMethodsGetDomainEval
            Kind = mkFunction
          end
          item
            Name = 'SetExpires'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = dws2WebUnitClassesTCookieMethodsSetExpiresEval
            Kind = mkProcedure
          end
          item
            Name = 'GetExpires'
            Parameters = <>
            ResultType = 'DateTime'
            OnEval = dws2WebUnitClassesTCookieMethodsGetExpiresEval
            Kind = mkFunction
          end
          item
            Name = 'GetHeaderValue'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesTCookieMethodsGetHeaderValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetName'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2WebUnitClassesTCookieMethodsSetNameEval
            Kind = mkProcedure
          end
          item
            Name = 'GetName'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesTCookieMethodsGetNameEval
            Kind = mkFunction
          end
          item
            Name = 'SetPath'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2WebUnitClassesTCookieMethodsSetPathEval
            Kind = mkProcedure
          end
          item
            Name = 'GetPath'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesTCookieMethodsGetPathEval
            Kind = mkFunction
          end
          item
            Name = 'SetSecure'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Boolean'
              end>
            OnEval = dws2WebUnitClassesTCookieMethodsSetSecureEval
            Kind = mkProcedure
          end
          item
            Name = 'GetSecure'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = dws2WebUnitClassesTCookieMethodsGetSecureEval
            Kind = mkFunction
          end
          item
            Name = 'SetValue'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = dws2WebUnitClassesTCookieMethodsSetValueEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValue'
            Parameters = <>
            ResultType = 'String'
            OnEval = dws2WebUnitClassesTCookieMethodsGetValueEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'Domain'
            DataType = 'String'
            ReadAccess = 'GetDomain'
            WriteAccess = 'SetDomain'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Expires'
            DataType = 'DateTime'
            ReadAccess = 'GetExpires'
            WriteAccess = 'SetExpires'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'HeaderValue'
            DataType = 'String'
            ReadAccess = 'GetHeaderValue'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Name'
            DataType = 'String'
            ReadAccess = 'GetName'
            WriteAccess = 'SetName'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Path'
            DataType = 'String'
            ReadAccess = 'GetPath'
            WriteAccess = 'SetPath'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Value'
            DataType = 'String'
            ReadAccess = 'GetValue'
            WriteAccess = 'SetValue'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Secure'
            DataType = 'Boolean'
            ReadAccess = 'GetSecure'
            WriteAccess = 'SetSecure'
            Parameters = <>
            IsDefault = False
          end>
      end
      item
        Name = 'TFormVarGroup'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = customWebUnitClassesTFormVarGroupConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'SetPrefix'
            Parameters = <
              item
                Name = 'Prefix'
                DataType = 'String'
              end>
            OnEval = customWebUnitClassesTFormVarGroupMethodsSetPrefixEval
            Kind = mkProcedure
          end
          item
            Name = 'GetPrefix'
            Parameters = <>
            ResultType = 'String'
            OnEval = customWebUnitClassesTFormVarGroupMethodsGetPrefixEval
            Kind = mkFunction
          end
          item
            Name = 'count'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customWebUnitClassesTFormVarGroupMethodscountEval
            Kind = mkFunction
          end
          item
            Name = 'RecNr'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customWebUnitClassesTFormVarGroupMethodsRecNrEval
            Kind = mkFunction
          end
          item
            Name = 'First'
            Parameters = <>
            OnEval = customWebUnitClassesTFormVarGroupMethodsFirstEval
            Kind = mkProcedure
          end
          item
            Name = 'Next'
            Parameters = <>
            OnEval = customWebUnitClassesTFormVarGroupMethodsNextEval
            Kind = mkProcedure
          end
          item
            Name = 'Eof'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customWebUnitClassesTFormVarGroupMethodsEofEval
            Kind = mkFunction
          end
          item
            Name = 'Ext'
            Parameters = <>
            ResultType = 'String'
            OnEval = customWebUnitClassesTFormVarGroupMethodsExtEval
            Kind = mkFunction
          end
          item
            Name = 'Value'
            Parameters = <>
            ResultType = 'String'
            OnEval = customWebUnitClassesTFormVarGroupMethodsValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetAddNullFields'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'boolean'
              end>
            OnEval = customWebUnitClassesTFormVarGroupMethodsSetAddNullFieldsEval
            Kind = mkProcedure
          end
          item
            Name = 'GetAddNullFields'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customWebUnitClassesTFormVarGroupMethodsGetAddNullFieldsEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'Prefix'
            DataType = 'String'
            ReadAccess = 'GetPrefix'
            WriteAccess = 'SetPrefix'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'AddNullFields'
            DataType = 'boolean'
            ReadAccess = 'GetAddNullFields'
            WriteAccess = 'SetAddNullFields'
            Parameters = <>
            IsDefault = False
          end>
      end>
    Constants = <>
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'FormVar'
        Parameters = <
          item
            Name = 'ParamName'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2WebUnitFunctionsFormVarEval
      end
      item
        Name = 'RtfToHtml'
        Parameters = <
          item
            Name = 'RtfStr'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2WebUnitFunctionsRtfToHtmlEval
      end
      item
        Name = 'TrimURL'
        Parameters = <
          item
            Name = 'sURL'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2WebUnitFunctionsTrimURLEval
      end
      item
        Name = 'AcceptWML'
        Parameters = <>
        ResultType = 'boolean'
        OnEval = dws2WebUnitFunctionsacceptWMLEval
      end
      item
        Name = 'URLencode'
        Parameters = <
          item
            Name = 'sURL'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2WebUnitFunctionsURLencodeEval
      end
      item
        Name = 'URLdecode'
        Parameters = <
          item
            Name = 'sURL'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2WebUnitFunctionsURLdecodeEval
      end
      item
        Name = 'forward'
        Parameters = <
          item
            Name = 'NewFile'
            DataType = 'String'
          end>
        OnEval = dws2WebUnitFunctionsforwardEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'WebUnit'
    Variables = <>
    Left = 52
    Top = 20
  end
end