dws2mflibmodule.dfm

script language

    Variables = <>
    Left = 160
    Top = 180
  end
  object dws2UnitString: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal'
      'Classes')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'ANSI2OEM'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsANSI2OEMEval
      end
      item
        Name = 'ChangeTokenValue'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'Name'
            DataType = 'String'
          end
          item
            Name = 'Value'
            DataType = 'String'
          end
          item
            Name = 'Delimiter'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsChangeTokenValueEval
      end
      item
        Name = 'Chr'
        Parameters = <
          item
            Name = 'Byte'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsChrEval
      end
      item
        Name = 'CmpRE'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'RE'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitStringFunctionsCmpREEval
      end
      item
        Name = 'CmpWC'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'WC'
            DataType = 'String'
          end
          item
            Name = 'Case'
            DataType = 'Boolean'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitStringFunctionsCmpWCEval
      end
      item
        Name = 'Crop'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'Len'
            DataType = 'Integer'
          end
          item
            Name = 'Dir'
            DataType = 'Integer'
          end
          item
            Name = 'Delimiter'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsCropEval
      end
      item
        Name = 'ForEach'
        Parameters = <
          item
            Name = 'List'
            DataType = 'TStringList'
          end
          item
            Name = 'Func'
            DataType = 'String'
          end
          item
            Name = 'Flag'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitStringFunctionsForEachEval
      end
      item
        Name = 'FormatColumns'
        Parameters = <
          item
            Name = 'List'
            DataType = 'TStringList'
          end
          item
            Name = 'Delimiter'
            DataType = 'String'
          end
          item
            Name = 'Space'
            DataType = 'String'
          end
          item
            Name = 'Adjustment'
            DataType = 'Integer'
          end>
        OnEval = dws2UnitStringFunctionsFormatColumnsEval
      end
      item
        Name = 'GetCRC32FromString'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitStringFunctionsGetCRC32FromStringEval
      end
      item
        Name = 'GetStringFromList'
        Parameters = <
          item
            Name = 'List'
            DataType = 'TStringList'
          end
          item
            Name = 'Delimiter'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsGetStringFromListEval
      end
      item
        Name = 'GetTokenList'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'Delimiter'
            DataType = 'String'
          end
          item
            Name = 'Repeater'
            DataType = 'Boolean'
          end
          item
            Name = 'IgnoreFirst'
            DataType = 'Boolean'
          end
          item
            Name = 'IgnoreLast'
            DataType = 'Boolean'
          end>
        ResultType = 'TStringList'
        OnEval = dws2UnitStringFunctionsGetTokenListEval
      end
      item
        Name = 'IncWC'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'WC'
            DataType = 'String'
          end
          item
            Name = 'Case'
            DataType = 'Boolean'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsIncWCEval
      end
      item
        Name = 'Num2Text'
        Parameters = <
          item
            Name = 'Num'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsNum2TextEval
      end
      item
        Name = 'OEM2ANSI'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsOEM2ANSIEval
      end
      item
        Name = 'Ord'
        Parameters = <
          item
            Name = 'Char'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitStringFunctionsOrdEval
      end
      item
        Name = 'PosX'
        Parameters = <
          item
            Name = 'SubStr'
            DataType = 'String'
          end
          item
            Name = 'S'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitStringFunctionsPosXEval
      end
      item
        Name = 'StringOfChar'
        Parameters = <
          item
            Name = 'Ch'
            DataType = 'String'
          end
          item
            Name = 'Count'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsStringOfCharEval
      end
      item
        Name = 'TestWC'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitStringFunctionsTestWCEval
      end
      item
        Name = 'Translate'
        Parameters = <
          item
            Name = 'S'
            DataType = 'String'
          end
          item
            Name = 'Out'
            DataType = 'String'
          end
          item
            Name = 'In'
            DataType = 'String'
          end
          item
            Name = 'Place'
            DataType = 'String'
          end
          item
            Name = 'Case'
            DataType = 'Boolean'
          end>
        ResultType = 'String'
        OnEval = dws2UnitStringFunctionsTranslateEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFString'
    Variables = <>
    Left = 270
    Top = 30
  end
  object dws2UnitSystem: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal'
      'Classes')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'ShellExecute'
        Parameters = <
          item
            Name = 'Operation'
            DataType = 'String'
          end
          item
            Name = 'Filename'
            DataType = 'String'
          end
          item
            Name = 'Parameters'
            DataType = 'String'
          end
          item
            Name = 'Directory'
            DataType = 'String'
          end
          item
            Name = 'ShowCmd'
            DataType = 'Integer'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitSystemFunctionsShellExecuteEval
      end
      item
        Name = 'ShellExecuteWait'
        Parameters = <
          item
            Name = 'Filename'
            DataType = 'String'
          end
          item
            Name = 'Parameters'
            DataType = 'String'
          end
          item
            Name = 'Directory'
            DataType = 'String'
          end
          item
            Name = 'ShowCmd'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitSystemFunctionsShellExecuteWaitEval
      end
      item
        Name = 'ExitWindowsEx'
        Parameters = <
          item
            Name = 'Flags'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitSystemFunctionsExitWindowsExEval
      end
      item
        Name = 'WriteMailslot'
        Parameters = <
          item
            Name = 'Machine'
            DataType = 'String'
          end
          item
            Name = 'Mailslot'
            DataType = 'String'
          end
          item
            Name = 'Text'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitSystemFunctionsWriteMailslotEval
      end
      item
        Name = 'GetProcessList'
        Parameters = <>
        ResultType = 'TStringList'
        OnEval = dws2UnitSystemFunctionsGetProcessListEval
      end
      item
        Name = 'HiWord'
        Parameters = <
          item
            Name = 'Value'
            DataType = 'Integer'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitSystemFunctionsHiWordEval
      end
      item
        Name = 'IsFileActive'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitSystemFunctionsIsFileActiveEval
      end
      item
        Name = 'KillProcess'
        Parameters = <
          item
            Name = 'Window'
            DataType = 'Integer'
          end
          item
            Name = 'FileName'
            DataType = 'String'
          end
          item
            Name = 'KillAll'
            DataType = 'Boolean'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitSystemFunctionsKillProcessEval
      end
      item
        Name = 'LoWord'
        Parameters = <
          item
            Name = 'Value'
            DataType = 'Integer'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitSystemFunctionsLoWordEval
      end
      item
        Name = 'MakeLong'
        Parameters = <
          item
            Name = 'Low'
            DataType = 'Integer'
          end
          item
            Name = 'High'
            DataType = 'Integer'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitSystemFunctionsMakeLongEval
      end
      item
        Name = 'PostMessage'
        Parameters = <
          item
            Name = 'Window'
            DataType = 'Integer'
          end
          item
            Name = 'Msg'
            DataType = 'Integer'
          end
          item
            Name = 'WParam'
            DataType = 'Integer'
          end
          item
            Name = 'LParam'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitSystemFunctionsPostMessageEval
      end
      item
        Name = 'SendKeys'
        Parameters = <
          item
            Name = 'Keys'
            DataType = 'String'
          end>
        OnEval = dws2UnitSystemFunctionsSendKeysEval