像 Javascript 对象一样循环遍历 F# 记录

在 javascript 中，我可以使用简单的 for 循环访问对象的每个属性，如下所示

var myObj = {x:1, y:2};
var i, sum=0;
for(i in myObj) sum = sum + myObj[i];

我想知道我是否可以用 F# 做类似的事情。

type MyObj = {x:int; y:int}
let myObj = {x=1; y=2}
let allValues:seq<int> = allPropertyValuesIn myObj //How do I implement allPropertyValuesIn 
let sum = allValues |> Seq.fold (+) 0

谢谢您的意见

编辑以澄清为什么我想做这样的事情
我正在开发一个 XML 文件生成器。输入是从数据库读取的行，并且 xsd 是预定义的。

假设我需要生成一个“产品”元素，根据业务规则，产品下可能有 200 个子元素，有些是必需的，有些是可选的。遵循以下建议这个优秀的博客 http://fsharpforfunandprofit.com/posts/designing-for-correctness/，我已经有了我的第一个（非常粗略的）产品记录设计：

1.    type Product{ Price:Money; Name:Name; FactoryLocation:Address option ... }
2.    let product = {Price = Money(1.5); Name = Name ("Joe Tooth Paste"); ... }
3.    let child1 = createEl ("Price", product.Price)
   ..
203.  let allChildren = child1
                        ::child2
                        ::child3
                        ..
                        ::[]
404.  let prodctEl = createElWithCildren ("Product", allChildren)

这是非常乏味且不简洁的。在 F# 中必须有更好的方法来完成此类操作。我也不太喜欢反思的想法。

还有其他方法还是我只是做错了？

尝试这个：

open Microsoft.FSharp.Reflection

type MyObj = {x:int; y:int}
let myObj = {x=1; y=2}
let allValues = FSharpType.GetRecordFields (myObj.GetType())
let sum =
    allValues
    |> Seq.fold
        (fun s t -> s + int(t.GetValue(myObj).ToString()))
        0
printfn "%d" sum

然而，正如约翰·帕尔默（John Palmer）所告诫的那样，做这样的事情并没有太多充分的理由。