Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
UDT -> String -> UDT
| Uploader: |  MOD |
| Datum/Zeit: | 06.09.2010 18:29:20 |
#Include "crt.bi"
Type foo
x As Integer
y As Single
End Type
Dim As foo bar
bar.x = 5
bar.y = 7.77
'##################
Dim As String sendeString = String(SizeOf(foo), Chr(0))
memcpy(StrPtr(sendeString), @bar, SizeOf(foo))
Print sendeString
'##################
Dim As foo baz
memcpy(@baz, StrPtr(sendeString), SizeOf(foo))
Print baz.x, baz.y
Sleep