XProfan

Italia

Bin ich zu dusselig?

Wie kann ich eine globaldefinierte und dimensionierte Struktur per Konstruktorparameter an eine Klasse trasferimento, sodaß ich im with-Sinne zugreifen kann...?

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 1 -

Michael
Wodrich

struct xy = x&,y&
proc obj.meth
parameters b#
with b#
.x& = ...
.y& = ...
endwith

Programmieren, das spannendste Detektivspiel der Welt.

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

Long geht auch, aber Du kannst den Parameter gleich als Bereich angeben - es muß dann aber auch einer sein. Geht glaube ich erst ab v9, vorher war long zwingend.

Programmieren, das spannendste Detektivspiel der Welt.

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael Wodrich

struct xy = x&,y&
proc obj.meth
parameters b#
with b#
.x& = ...
.y& = ...
endwith

Ich dachte das scheiternd probiert zu haben, nochmal Syntax überprüfen...

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ok anders...

ich habe eine Struktur
Kompilieren Markieren Separieren

Struct xy=x&,y&
und eine Klasse
class my=+my@,#xy#(8)
//konstruktor

proc my.my

    parameters .xy#

    with .xy#

        *jammer*

    endwith

endproc

declare myclass#,myxy#
dim myxy#,xy
myclass#=new(my,xys=s2>)

Ist mir noch zu helfen?

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Michael
Wodrich

class my=+my@,#xy#(8)

class my=#xy,+my@ Struktur direkt angeben

Sonst mußt Du intern in der Methode einen Strukturbereich anlegen und tricksen.
(Zeiger verbiegen, in der Hilfedatei ist dazu ein Beispiel)

Programmieren, das spannendste Detektivspiel der Welt.

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ich hoffte ums Zeigerholen drumherumzukommen!

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Und wie ist es damit:
Kompilieren Markieren Separieren

!
Struct Xy = x&, y&
und eine Klasse
Class My = +My@,
#Xy#(8)
konstruktor

Proc My.my

    Parameters Pos#

    With Pos#

        Print .x&
        Print .y&

    Endwith

Endproc

Declare Myclass#,
Myxy#
Dim Myxy#, Xy

With Myxy#

    .x& = 45
    .y& = 75

EndWith

Myclass# = New(My, Myxy#)
WaitInput

So funktioniert es einwandfrei.

Saluto
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

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Ja genau, so hatte ich mir das auch gedacht - und es funktioniert!

Ich hatte wohl irgendwas an der Syntax verkehrt.

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

RGH

Ja genau, so hatte ich mir das auch gedacht - und es funktioniert!

Ich hatte wohl irgendwas an der Syntax verkehrt.

Ja, du versuchtest statt der Struktur selbst die Typdefinition der Struktur zu übergen:

myclass#=new(my,xy)

Und das kann nicht gutgehen. Ansonsten können Strukturen (nicht deren Typdefinitionen) und Objekte (nicht die Klassennamen) direkt circa Parameters trasferimento werden.

Saluto
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

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Hm klar lol naturalmente - habe einfach nicht genug aufgepasst...

Danke Roland!

26.09.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

- Page 2 -

Ist es eigendlich nur z.B. mit einer Klassenvariable possibile dem Destruktor automatisch beizubringen das der Bereich wieder Disposed wird?

26.09.2006 ▲

Vollständiges Zitat