XProfan

Français

Nico
Madysa

et encore je ...

je ne sais pas, si je à mir ou bien à XProfan zweifeln soll.
Folgende Situation: j'ai deux Objekte verschiedener Klassen. cela objet Du# erhält cela objet je# comme paramètre et appelez dessen Methode sur. Dabei übergibt Du# qui Methode de je# une eigene qualité comme paramètre.
Kompilieren Marque Séparation

 {$iq}
Class Nummereins = a&,GetA@

proc Nummereins.GetA

    parameters einezahl&
    return .a& * einezahl&

endproc

Class Derandere = #b&,Multi@

proc Derandere.Multi

    parameters Objekt#
    .b& = 14
    return Objekt#.GetA(.b&)

endproc

declare Ich#,Du#
Dim Ich#,Nummereins
Dim Du#,Derandere
Ich#.a& = 3
cls
print Du#.Multi(Ich#)
waitinput
Dispose Ich#,Du#
end

mon Problem: Sobald qui qualité, qui dem paramètre-objet transfert wird, privat ist (so, comme sich chez ordentlicher OOP est), knallt es. (ne...aucune Zugriff sur geschützte qualité) je vermute, dass XProfan Probleme avec irgend einer forme de Stack hat. Gibt es une Possibilité, cela Problem trop tourner autour de ou bien trop beheben?

Salut,

Nico

Nico Madysa

19.06.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RGH

Salut,

Dein Problem hängt avec cela zusammen, dass XProfan den paramètre .b& seulement dans qui la ligne "Parameters" auswertet ... et voilà qui Zugriff sur geschützte Eigenschaften eines anderen Objektes pas possible.
cela peux Du tourner autour de, indem Vous lokale Variable verwendest, qui Du comme paramètre übergibst.

Salut
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

20.06.2010 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Nico
Madysa

oui, so quoi habe je vermutet. Habe aussi justement festgestellt, dass es aussi funktioniert, si on une (öffentliche) Gettermethode übergibt.
Kompilieren Marque Séparation

Class Nummereins = a&,GetA@

proc Nummereins.GetA

    parameters einezahl&
    return .a& * einezahl&

endproc

Class Derandere = #b&,GetB@,Multi@

proc Derandere.GetB

    return .b&

endproc

proc Derandere.Multi

    parameters Objekt#
    .b& = 14
    return Objekt#.GetA(.GetB())

endproc

declare Ich#,Du#
Dim Ich#,Nummereins
Dim Du#,Derandere
Ich#.a& = 3
cls
print Du#.Multi(Ich#)
waitinput
Dispose Ich#,Du#
end