fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

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

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.