Deepcopy: Difference between revisions
Deepcopy en FreeBASIC
Drkameleon (talk | contribs) (Added Arturo implementation) |
(Deepcopy en FreeBASIC) |
||
Line 670:
T{ foo { bar V{ 1 2 3 -99 } } { baz V{ 4 5 6 } } }
</pre>
=={{header|FreeBASIC}}==
{{trans|PureBasic}}
<lang freebasic>
Type DeepCopy
value1 As Integer
value2 As String * 1
value3 As String
value4 As Boolean
value5 As Double
End Type
Dim As DeepCopy a, b
a.value1 = 10
a.value2 = "A"
a.value3 = "OK"
a.value4 = True
a.value5 = 1.985766472453666
b = a
a.value1 = 20
a.value2 = "B"
a.value3 = "NOK"
a.value4 = False
a.value5 = 3.148556644245367
Print !"Valor de \"a\":"
Print a.value1
Print a.value2
Print a.value3
Print a.value4
Print a.value5
Print !"\nValor \"b\":"
With b
Print .value1
Print .value2
Print .value3
Print .value4
Print .value5
End With
Sleep
</lang>
{{out}}
<pre>
Valor de "a":
20
B
NOK
false
3.148556644245367
Valor de "b":
10
A
OK
true
1.985766472453666
</pre>
=={{header|Go}}==
| |||