XProfan

Español

Nico
Madysa

Und ya otra vez Yo ...

Yo weiß no, si Yo a me oder a XProfan zweifeln se.
Folgende Situation: Yo habe zwei Objetos verschiedener Klassen. Das Objeto Usted# erhält el Objeto Yo# como Parámetro y ruft dessen Método en. Dabei übergibt Usted# el Método de Yo# una propio Eigenschaft como Parámetro.
Kompilieren Marca Separación

 {$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

Mein Problema: Sobald el Eigenschaft, el el Parámetro-Objeto transferencia se, privat es (así, como se en ordentlicher OOP gehört), knallt lo. (Kein Zugriff en geschützte Eigenschaft) Yo vermute, dass XProfan Problemas con irgend uno Form de Stack ha. Gibt lo una Möglichkeit, el problema a umgehen oder a beheben?

Saludo,

Nico

Nico Madysa

19.06.2010 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RGH

¡Hola,

Su Problema hängt así zusammen, dass XProfan el Parámetro .b& sólo en el Línea "Parameters" auswertet ... y como es el Zugriff en geschützte Características uno otro Objektes no posible.
Das kannst Usted umgehen, indem Es usted un lokale Variable verwendest, el Usted como Parámetro übergibst.

Saludo
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 Zitat

Absatzweise Cita Zeilenweise Cita

Nico
Madysa

Sí, así qué Yo vermutet. Posesiones auch gerade festgestellt, dass lo auch funktioniert, si uno una (öffentliche) Gettermethode übergibt.
Kompilieren Marca Separación

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