dws2mflibmodule.dfm

script language

object dws2MFLib: Tdws2MFLib
  OldCreateOrder = False
  Left = 414
  Top = 186
  Height = 472
  Width = 733
  object dws2UnitBasic: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'Beep'
        Parameters = <>
        OnEval = dws2UnitBasicFunctionsBeepEval
      end
      item
        Name = 'Dec'
        Parameters = <
          item
            Name = 'I'
            DataType = 'Integer'
            IsVarParam = True
          end>
        OnEval = dws2UnitBasicFunctionsDecEval
      end
      item
        Name = 'Dec2'
        Parameters = <
          item
            Name = 'I'
            DataType = 'Integer'
            IsVarParam = True
          end
          item
            Name = 'N'
            DataType = 'Integer'
          end>
        OnEval = dws2UnitBasicFunctionsDec2Eval
      end
      item
        Name = 'Inc'
        Parameters = <
          item
            Name = 'I'
            DataType = 'Integer'
            IsVarParam = True
          end>
        OnEval = dws2UnitBasicFunctionsIncEval
      end
      item
        Name = 'Inc2'
        Parameters = <
          item
            Name = 'I'
            DataType = 'Integer'
            IsVarParam = True
          end
          item
            Name = 'N'
            DataType = 'Integer'
          end>
        OnEval = dws2UnitBasicFunctionsInc2Eval
      end
      item
        Name = 'GetTickCount'
        Parameters = <>
        ResultType = 'Integer'
        OnEval = dws2UnitBasicFunctionsGetTickCountEval
      end
      item
        Name = 'Sleep'
        Parameters = <
          item
            Name = 'mSecs'
            DataType = 'Integer'
          end>
        OnEval = dws2UnitBasicFunctionsSleepEval
      end
      item
        Name = 'WriteLn'
        Parameters = <
          item
            Name = 'Text'
            DataType = 'String'
          end>
        OnEval = dws2UnitBasicFunctionsWriteLnEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFBasic'
    Variables = <>
    Left = 50
    Top = 30
  end
  object dws2UnitConnection: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'Connected'
        Parameters = <>
        ResultType = 'Boolean'
        OnEval = dws2UnitConnFunctionsConnectedEval
      end
      item
        Name = 'IPAddress'
        Parameters = <>
        ResultType = 'String'
        OnEval = dws2UnitConnFunctionsIPAddressEval
      end>
    Instances = <>
    Records = <>
    UnitName = 'MFConnection'
    Variables = <>
    Left = 50
    Top = 80
  end
  object dws2UnitFile: Tdws2Unit
    Arrays = <>
    Classes = <>
    Constants = <>
    Dependencies.Strings = (
      'Internal'
      'Classes')
    Enumerations = <>
    Forwards = <>
    Functions = <
      item
        Name = 'DescCopy'
        Parameters = <
          item
            Name = 'Source'
            DataType = 'String'
          end
          item
            Name = 'Target'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsDescCopyEval
      end
      item
        Name = 'DescListCreate'
        Parameters = <
          item
            Name = 'Dir'
            DataType = 'String'
          end>
        ResultType = 'TStringList'
        OnEval = dws2UnitFileFunctionsDescListCreateEval
      end
      item
        Name = 'DescListRead'
        Parameters = <
          item
            Name = 'List'
            DataType = 'TStringList'
          end
          item
            Name = 'FileName'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsDescListReadEval
      end
      item
        Name = 'DescMove'
        Parameters = <
          item
            Name = 'Source'
            DataType = 'String'
          end
          item
            Name = 'Target'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsDescMoveEval
      end
      item
        Name = 'DescRead'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsDescReadEval
      end
      item
        Name = 'DescWrite'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end
          item
            Name = 'Desc'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsDescWriteEval
      end
      item
        Name = 'OpenDialog'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end
          item
            Name = 'InitialDir'
            DataType = 'String'
          end
          item
            Name = 'Title'
            DataType = 'String'
          end
          item
            Name = 'DefaultExt'
            DataType = 'String'
          end
          item
            Name = 'Filter'
            DataType = 'String'
          end
          item
            Name = 'FilterIndex'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsOpenDialogEval
      end
      item
        Name = 'OpenDialogMulti'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end
          item
            Name = 'InitialDir'
            DataType = 'String'
          end
          item
            Name = 'Title'
            DataType = 'String'
          end
          item
            Name = 'DefaultExt'
            DataType = 'String'
          end
          item
            Name = 'Filter'
            DataType = 'String'
          end
          item
            Name = 'FilterIndex'
            DataType = 'Integer'
          end>
        ResultType = 'TStringList'
        OnEval = dws2UnitFileFunctionsOpenDialogMultiEval
      end
      item
        Name = 'SaveDialog'
        Parameters = <
          item
            Name = 'Filename'
            DataType = 'String'
          end
          item
            Name = 'InitialDir'
            DataType = 'String'
          end
          item
            Name = 'Title'
            DataType = 'String'
          end
          item
            Name = 'DefaultExt'
            DataType = 'String'
          end
          item
            Name = 'Filter'
            DataType = 'String'
          end
          item
            Name = 'FilterIndex'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsSaveDialogEval
      end
      item
        Name = 'CDClose'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsCDCloseEval
      end
      item
        Name = 'CDOpen'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsCDOpenEval
      end
      item
        Name = 'GetCRC32FromFile'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitFileFunctionsGetCRC32FromFileEval
      end
      item
        Name = 'GetDriveName'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsGetDrivenameEval
      end
      item
        Name = 'GetDriveNum'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitFileFunctionsGetDriveNumEval
      end
      item
        Name = 'GetDriveReady'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'Integer'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsGetDriveReadyEval
      end
      item
        Name = 'GetDriveSerial'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'Integer'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsGetDriveSerialEval
      end
      item
        Name = 'GetDriveType'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'Integer'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitFileFunctionsGetDriveTypeEval
      end
      item
        Name = 'DirectoryExists'
        Parameters = <
          item
            Name = 'DirName'
            DataType = 'String'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsDirectoryExistsEval
      end
      item
        Name = 'DirectoryList'
        Parameters = <
          item
            Name = 'DirName'
            DataType = 'String'
          end
          item
            Name = 'Recurse'
            DataType = 'Boolean'
          end
          item
            Name = 'Hidden'
            DataType = 'Boolean'
          end>
        ResultType = 'TStringList'
        OnEval = dws2UnitFileFunctionsDirectoryListEval
      end
      item
        Name = 'CopyFile'
        Parameters = <
          item
            Name = 'Source'
            DataType = 'String'
          end
          item
            Name = 'Target'
            DataType = 'String'
          end
          item
            Name = 'Fail'
            DataType = 'Boolean'
          end>
        ResultType = 'Boolean'
        OnEval = dws2UnitFileFunctionsCopyFileEval
      end
      item
        Name = 'FileDate'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end
          item
            Name = 'Flag'
            DataType = 'Integer'
          end>
        ResultType = 'DateTime'
        OnEval = dws2UnitFileFunctionsFileDateEval
      end
      item
        Name = 'FileList'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end
          item
            Name = 'Recurse'
            DataType = 'Boolean'
          end
          item
            Name = 'Hidden'
            DataType = 'Boolean'
          end
          item
            Name = 'Dirs'
            DataType = 'Boolean'
          end>
        ResultType = 'TStringList'
        OnEval = dws2UnitFileFunctionsFileListEval
      end
      item
        Name = 'FileSize'
        Parameters = <
          item
            Name = 'FileName'
            DataType = 'String'
          end>
        ResultType = 'Integer'
        OnEval = dws2UnitFileFunctionsFileSizeEval
      end
      item
        Name = 'MakePath'
        Parameters = <
          item
            Name = 'Drive'
            DataType = 'String'
          end
          item
            Name = 'Dir'
            DataType = 'String'
          end
          item
            Name = 'Name'
            DataType = 'String'
          end
          item
            Name = 'Ext'
            DataType = 'String'
          end>
        ResultType = 'String'
        OnEval = dws2UnitFileFunctionsMakePathEval
      end
      item
        Name = 'MoveFile'
        Parameters = <
          item
            Name = 'Source'