OOP-Anfänger

[p. specht]

Eigenartig:

cls
Class Hund = Geburtsdatum$(10),Rasse$(32),Groesse%,bellen@

proc Hund.bellen
Parameters gebell$
print gebell$
endproc

declare waldi#
dim waldi#,Hund
with waldi#
.Geburtsdatum$ = "23.09.1999"
.rasse$ = "Bernhardiner"
.Groesse% = 65
endwith

print waldi#.bellen("Wuff!")

WaitInput
Dispose waldi#
End

liefert bei mir (XProf11.2a) die Ausgabe

Wuff!
7

Das Beispiel stammt im wesentlichen aus dem XProfan OOP-Kurs. Bitte wo kommt die 7 her?
Gruss

[Bangkok]

Die 7 entsteht durch den Aufruf als Funktion und das Print davor. In der Prozedur wird "wuff" ausgegeben und die Prozedur gibt dann 7 zurück, hat ja keinen Returnwert. Die 7 wird dann durch deinen Aufruf Print waldi#.bellen("Wuff!") ausgegeben, da die Funktion ja aber keine Rückgabe hat kommt hier wahrscheinlich irgendein Wert zurück.
Wenn du nur waldi#.bellen("Wuff!") aufrufst stimmt alles.

Hallo Peter,

Du hast in der Funktion schon print drin und läßt Dir das dann nochmal mit print anzeigen.

Wenn Du in der Funktion Return verwendest, klappt's.

Deine Abfrage von Print gibt anscheinend die Zeilennummer in Programm aus. Wenn Du "Wuff!" als Parameter wegläßt, und dafür in der Prozedur ein paar Zeilen mehr einfügst,ändert sich die Zahl.
Ist das jetzt ein Bug oder Feature? Ich find's praktisch, auch wenn Roland es nicht so vorgesehen hat.

Grüße an alle
Jörg

[p. specht]

Grosses AHA-Erlebnis! Das war wieder mal Selbstüberlistung, ein klassischer Abfolgefehler: Im Kurs steht 2 x print (für die Daten), der an 3. Stelle stehende Methodenaufruf ist aber selbst bereits ein Befehl, und braucht daher kein Print. Vielen Dank für die rasche Klärung!

Gruss