How to return the real data from a udt ?

[Vinod Chandran]

Hi Jose Roca,

Code Select Expand

Dim sample As CWSTR = "My Sample String"
Print sample
This will print "My Sample String" on screen. I know that cwstr is a udt. What is the magic behind this ? I mean when i try to write a udt like this

Code Select Expand

Type MyType
m_String As String
Declare Constructor(Byval sParam As String)

End Type
Constructor MyType(Byval sParam As String)
m_String = sParam
End Constructor

Dim sample As MyType = "enter man"
Print sample
It result in an "Invalid data type " error. I know that i am missing so many things in my constructor. I have posted this code only for expressing my idea because, i knew that i cant really express this idea through words. English is not my first language. Thats why the subject title look weird. Could you please explain me how to do this ?

[Vinod Chandran]

Hi,
I am i missing this ?

Code Select Expand

Declare Operator Print(Byval udtName as MyType)
And ...

Code Select Expand

Operator MyType.Print(Byval udtName as MyType)
    Print udtName. m_String
End Operator

[José Roca]

The "magic" is casting.

Code Select Expand


Type MyType
m_String As String
Declare Constructor(Byval sParam As String)
DECLARE OPERATOR CAST () BYREF AS STRING
End Type
Constructor MyType(Byval sParam As String)
m_String = sParam
End Constructor

OPERATOR MyType.CAST () BYREF AS STRING
   OPERATOR = m_String
END OPERATOR

Dim sample As MyType = "enter man"
Print sample


[Vinod Chandran]

@Jose,
Wow!, Thanks a lot.