ObjectExists

[KilledWhale]

Yksinkertainen funktio lähinnä aloittelijoille, jolla voit tarkistaa objektin olemassaolon ennen sen käsittelyä, jolloin välttyy tuskastuttavalta mavinetsinnältä. En kuitenkaan suosittele suurempien projektien kanssa käytettäväksi koska objektien läpikäynti jokaista objektia käsitellessä hidastanee ohjelmaa jonkin verran

Code: Select all

a = MakeObject()

Repeat
	If objectExists(a) Then DeleteObject a
Forever

Function objectExists(obj)
	InitObjectList
	Repeat
		object = NextObject()
		If object = obj Then Return True
		If object = 0 Then Return False
	Forever
EndFunction

[phons]

Hei tämähän on kätevä! Itselle ei tullut mieleen tehdä tällaista, vaan tehdä aina erillinen muuttuja object_live.

[mikeful]

Code: Select all

Function objectExists(obj)
      If obj = 0 Then
            Return False
      Else
            Return True
      EndIf
EndFunction

Eikös tämä aja saman asian? Ei niitä objekteja tarvi läpi käydä.

[MAVmaggot]

Ei, koska objektin poistettua sen arvo pysyy samana.

[KilledWhale]

Deleteobject ei nollaa muuttujan arvoa, joten objektimuuttujan vertaaminen nollaan ei toimi. Toinen vaihtoehto olisi nollata objektimuuttuja ja sitten verrata.

Seuraava koodi mavittaa.

Code: Select all

a = MakeObject()
Repeat
If a Then DeleteObject a
Forever

[Tuxi]

Toimii, jos tekee näin:

Code: Select all

a = MakeObject()
Repeat
    If a Then 
        DeleteObject a
        a = 0
    EndIf
Forever

[MaGetzUb]

Eikö olisi sama asia tehdä näin:

Code: Select all

Function ObjExists(obj)
Return obj<> 0
EndFunction 

Tai sitte pelkästään näin, niinkuin tuxi sanoi

Code: Select all

If Obj Then 
...koodia..
Endif

[MAVmaggot]

Tuo tuxin tapa ei toimi, koska läpikäynnin tehdessä välistä puuttuu yksi luku joten se mavittaa silti.

[otto90x]

Tosiaan tuo objektimuuttujan nollaus objektin poiston yhteydessä lienee paras tapa. Nopein, yksinkertaisin ja kuuluu hyviin tapoihin.

Tuo tuxin tapa ei toimi, koska läpikäynnin tehdessä välistä puuttuu yksi luku joten se mavittaa silti.

Mitäköhän se höpöttää? Hyvin se toimii, eikä siitä mitään lukuja puutu.

[MAVmaggot]

Tarkoitin jos läpikäydään objektit itse For .. Next-luupilla niin ei hyödytä arvon nollaus, mutta taas tämä funktio hyödyttää.

[otto90x]

Tarkoitin jos läpikäydään objektit itse For .. Next-luupilla niin ei hyödytä arvon nollaus, mutta taas tämä funktio hyödyttää.

Kyllä hyödyttää. Oli objektit ladottu taulukkoon, tyyppikokoelmaan tai muistipalaan niin arvon nollaus toimii aina, jos nyt ei ole ihan miten sattuu niitä for-silmukoita laitellut.

Code: Select all

AddText  "TAULUKKO"

Dim a(9)

For i=0 To 9
    a(i) = MakeObject()
Next i

Repeat
    For i=0 To 9
        If a(i) Then
            DeleteObject a(i)
            a(i) = 0
        EndIf
    Next i
    DrawScreen
Until KeyHit(cbkeyreturn)

AddText "TYYPPIKOKOELMA"

Type b
    Field obj
End Type

For i=0 To 9
    o.b=New(b)
    o\obj = MakeObject()
Next i

Repeat
    
    For o.b = Each b
        If o\obj Then
            DeleteObject o\obj
            o\obj = 0
        EndIf
    Next o
    DrawScreen
Until KeyHit(cbkeyreturn)

AddText "MUISTIPALA"

mem = MakeMEMBlock(40)

For i=0 To 9
    PokeInt  mem,i*4,MakeObject()
Next i

Repeat
    
    For i=0 To 9
    
        obj = PeekInt(mem,i*4)
        
        If obj Then 
            DeleteObject obj
            
            PokeInt mem,i*4,0
        
        EndIf
        
    Next i
    
    DrawScreen
Until KeyHit(cbkeyreturn)

[JATothrim]

Kyllä hyödyttää. Oli objektit ladottu taulukkoon, tyyppikokoelmaan tai muistipalaan niin arvon nollaus toimii aina, jos nyt ei ole ihan miten sattuu niitä for-silmukoita laitellut.

-Agree

EDIT:

Taisin joskus tehdä taulukko esimerkin noin, ei tarvii käyttää erillistä taulukkoa näyttämään aktiivisia soluja.

[KilledWhale]

Periaatteessa objektimuuttujien nollaus on turhaa koska niidenkin jatkuva tarkastaminen syö tehoja. Paras tapa on vain opetella käyttämään objekteja ja opetella tietämään itse mitä on olemassa ja mitä ei.

[Jare]

Toimii, jos tekee näin:

Code: Select all

a = MakeObject()
Repeat
    If a Then 
        DeleteObject a
        a = 0
    EndIf
Forever

Tuo toimii, jos tietää, minne sen osoittimen on sijoittanut. Mutta entä jos teet 2D-taulukon (koko vaikkapa 128x96) ja sijoitat osoittimen yhteen tämän taulukon soluista? Poistaessasi objektin sinun pitäisi käydä koko taulukko läpi löytääksesi pointterin ja voidaksesi nollata sen. Ja tämä syö tehoja. Jos osoitin jää poistamatta, se voi jossain vaiheessa tulla esiin ohjelmassa ja aiheuttaa MAV:n, jos objektin olemassa oloa ei tarkisteta 100% varmuudella.

Periaatteessa objektimuuttujien nollaus on turhaa koska niidenkin jatkuva tarkastaminen syö tehoja. Paras tapa on vain opetella käyttämään objekteja ja opetella tietämään itse mitä on olemassa ja mitä ei.

Entä mitenkäs vältytään kokonaan objektimuuttujien tarkistamiselta? Väliaikaiset muuttujat toki tuhoutuvat funktiokutsujen lopussa ja vievät vanhat osoittimet mennessään, mutta miten sitten globaalien muuttujien, taulukoiden, tyyppien kenttien yms. kanssa? Usein pakko tarkistaa jollakin tapaa.

P.S. Uskon ettei kaikkia objekteja tarvitse käydä läpi vain saadakseen tietää, onko tietty objekti olemassa vai ei. MEMBlockSize()-funktio voisi paljastaa asian, jos sille syöttäisi objektiosoittimen. Kuvien kanssa toimii ainakin, joten luulisin että myös objektien tarkistaminen onnistuisi sillä.