Back to Questions
760
views1
comment
Type Conversion when a generic type is passed
f#

Hello,
I'm been battling when this for a while. I would like to create a function to convert from the obj type to 'T as supplied by the code. Some of what I tried was this

type MyClass() = class
member x.Convert1<'T> (v:obj) : 'T=
let typ = typeof<'T>
System.Convert.ChangeType(typ ,v) :?> 'T

member x.Convert2<'T> (v:obj) : 'T=
let typ = typeof<'T>
//I would like to control the conversion for some of the types
match typ with
| ?: System.Int32 -> 2
| ?: System.Int64 -> 2L
| _ -> x.Convert1<'T> v
end

As above, the code is wrong. I've been struggle with how to correctly write the code for the conversion. Any guidance will be appreciated.

Thank you.

.

I think you want

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

 
type MyClass() = class
    member x.Convert1<'T> (v:obj) : 'T=
        let typ = typeof<'T>
        System.Convert.ChangeType(v, typ) :?> 'T
    
    member x.Convert2<'T> (v:obj) : 'T=      
        let typ = typeof<'T>
        //I would like to control the conversion for some of the types
        if typ = typeof<System.Int32> then
            (box 2) :?> 'T
        elif typ = typeof<System.Int64> then
            (box 2L) :?> 'T
        else x.Convert1<'T> v
end
By on 5/18/2009 3:06 AM ()

    Topic tags

    IntelliFactory Offices Copyright (c) 2011-2012 IntelliFactory. All rights reserved.
    Home | Products | Consulting | Trainings | Blogs | Jobs | Contact Us | Terms of Use | Privacy Policy | Cookie Policy     		Built with WebSharper