Класс F # присваивает значение объекта другому объекту

Question

Исходя из фона C#, я пытаюсь назначить экземпляр класса другому экземпляру класса в F #, но я получаю сообщение об ошибке «Исключение инициализации типа»

Мой код

//filename is CCPType.fs 

module CCPType = 

    type CCPClass() = class 
     let mutable p = Unchecked.defaultof<int> 
     let mutable d = Unchecked.defaultof<int[,]> 

     member self.P 
      with get() = p 
      and set (value) = p <- value 

     member self.D 
      with get() = d 
      and set (value) = d <- value 

    end 

//filename is Programme.fs 

Module Start = 

    [<EntryPoint>] 
    let main argv = 
     let record = FileParser.ParseTextToCCPRecord(text) // returns CCPClass 
     let z = Optimiser.Execute(record) //arg is of type CCPClass 

//filename is Optimiser.fs 

module Optimiser = 

    let mutable ccpDataSet = CCPClass() 

следующие фрагменты являются частью Optimiser.fs в модуле оптимизатора. Я попытался следующие

let Execute record = 
     ccpDataSet <- record 

, и я также пытался

let Execute(record: CCPClass) = 
     ccpDataSet = new CCPClass() 
     ccpDataSet.P <- record.P 
     ccpDataSet.D <- record.D 

, и я также пытался

let Execute(record: CCPClass) = 
     ccpDataSet <- new CCPClass() 
     ccpDataSet.P <- record.P 
     ccpDataSet.D <- record.D 

, и я также пытался

let Execute record = 
     ccpDataSet.P <- record.P 
     ccpDataSet.D <- record.D 

и я пробовал несколько разных способов, но я ill не может копировать один экземпляр класса в другой.

Я получаю сообщение об ошибке «Необработанное исключение типа« Исключение System.TypeInitializationException ».

«" ccpDataSet "выбрасывает исключение типа" System.TypeInitializationException "'.

Любые идеи? Спасибо

Answer 1

Благодаря Федору и Карстен, я понял это.

let mutable private OpenD : bool[] = Array.zeroCreate<bool> ccpDataSet.D.Length 

Так как я новичок в F # это не ведет себя как C#, я пытался установить длину в открытой компании нулевого экземпляра. Изменил его до 0, и он работает :)