Buchempfehlung
MySQL kurz & gut
MySQL kurz & gut
Das preiswerte Taschen- buch stellt MySQL-rele- vante Inhalte systematisch und knapp dar, sodass es sich optimal zum Nach- schlagen beim Pro- grammieren eignet. [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe
Liste
Übersicht / Liste
Neu
Datei hochladen
Suche
Quellcode suchen
Download
Dateidownload

Statische Variable in UDTs - Trick

Uploader:RedakteurMOD
Datum/Zeit:03.06.2010 01:37:43

Type foo
    bla As Integer Ptr

    Declare Constructor
    Declare Property bar As Integer
    Declare Property bar (ByRef x As Integer)
End Type

Constructor foo
    bar = 0
End Constructor

Property foo.bar As Integer
    Return *bla
End Property

Property foo.bar (ByRef x As Integer)
    Static As Integer temp
    temp = x
    bla = @temp
End Property


Dim As foo v1, v2

v1.bar = 5
v2.bar = 7

Print v1.bar
Print v2.bar

Sleep