Ein paar Fragen ...

Genesis
"Hier werden Sie geholfen !"

PROFAN

XProfan kann natürlich auch "objektorientiert"
Hier ein Auszug aus der XProfan-Hilfe zu dem Thema:

Zitat

Objektorientierte Programmierung in XProfan

Objektorientierte Programmierung in XProfan

XProfan ermöglicht die objektorientierte Programmierung, auch OOP genannt. Natürlich kann diese Kurzanleitung keine Einführung in die objektorientierte Programmierung bieten, diese findet sich im Kurs zu diesem Thema. Hier soll aber gezeigt werden, wie die OOP mit XProfan möglich ist.

Klassen definieren

Ein Objekt ist die Instanz einer Klasse. Die Klasse ist eine Vorlage für die Objekte. Die Klasse eines Objektes beschreibt, wie das Objekt aussieht, welche Daten und Methoden es hat. Eine Klasse kann die Daten und Methoden von einer übergeordneten Klasse erben. So können neue Klassen Erweiterungen bereits bestehender und getesteter Klassen sein. Man muss nicht jedesmal das Rad neu erfinden. Dabei können Daten und Methoden der übergeordneten Klasse "überschrieben" werden, d.h. Daten und Methoden der abgeleiteten Klasse ersetzen die gleichnamigen Daten und Methoden der übergeordneten Klasse.

Methoden sind Funktionen/Prozeduren innerhalb eines Objektes. Eine Klasse ist so ähnlich wie eine Struktur mit dem Unterschied, dass neben Datenfeldern (Eigenschaften einer Klasse) auch Methoden in der Klasse enthalten sind.

Um eine Klasse zu beschreiben wird der Befehl Class verwendet:

Class meineKlasse = x&,setx@,getx@,info@

Diese Klasse hat eine Eigenschaft (x&) und drei Methoden. Methoden werden durch ein abschließendes @ gekennzeichnet. Natürlich müssen die Methoden noch als Prozeduren definiert werden. Als Beispiel die Getter- und Setter-Methode für x&:

Proc neu.setx
Parameters wert&
.x& = wert&
EndProc

Proc neu.getx
return .x&
EndProc

Die Prozeduren müssen den Klassennamen und mit Punkt getrennt den Methodennamen (ohne @ !) enthalten. Will man auf Variablen (Daten) und Prozeduren innerhalb der Klasse zugreifen, ist das durch einen vorangestellten Punkt zu kennzeichnen.

Gültigkeit von Eigenschaften und Methoden

Zur Gültigkeit von Eigenschaften und Methoden bei Objekten: Gemäß UML-Schreibweise kann vor die Eigenschaft (Variable) oder Methode in der Klassenbeschreibung (CLASS ...) das Zeichen für die Gültigkeit angegeben werden:
- private
# protected
+ public
Wird es weggelassen, gilt die Eigenschaft bzw. die Methode wie bisher als public, d.h. sie kann von jedem gelesen bzw. aufgerufen werden.
Wird eine Eigenschaft oder Methode als private bezeichnet, so kann sie nur innerhalb der Klasse gelesen bzw. aufgerufen werden, auch ein Vererben ist nicht möglich.
Sollen Eigenschaften und Methoden geschützt sein, aber vererbt werden können, wählt man protected.
Üblicherweise wird man Eigenschaften von Objekten als private oder protected kennzeichnen und dafür sogenannte Getter- und Setter-Methoden schreiben, um auf diese Eigenschaften lesend (get...) und schreibend (set...) zugreifen zu können, wie ich es im Beispiel ja mit getx und setx schon gemacht habe. Erweitert um die Gültigkeitsmerkmale könnte die Definition der Klasse also so aussehen:

Class meineKlasse = #x&, +getx@, +setx@, +info

Objekt erzeugen

Um von dieser Klasse nun eine Instanz, ein Objekt zu erzeugen kann genau wie bei Strukturen nun der Befehl DIM verwendet werden:

Dim meinObjekt#, meineKlasse

meinObjekt# muss natürlich zuvor deklariert worden sein. Von einer Klasse können beliebig viele Objekte erzeugt werden. Um jetzt auf die Methoden des Objektes zugreifen zu können, ist ganz einfach der Objektnamen voranzustellen:

meinObjekt#.setx(wert&)
wert& = meinObjekt#.getx()

Eine andere Möglichkeit der Erzeugung eines Objektes aus einber Klasse ist die Funktion new(), die gleichzeitig auch den Konstruktor aufruft. Der Konstruktur ist eine Methode, die den gleichen Namen hat, wie die Klasse und in der Regel dazu dient, das Objekt zu initialisieren.

Vererbung

Will man eine Klasse definieren, die ihre Daten und Methoden von einer anderen Klasse erbt, so muss der Name dieser Klasse als erstes (!) in der Klassenbeschreibung stehen:

Class zweiteKlasse = meineKlasse,y&,sety@,gety@,info@

Mehrfachvererbung ist in XProfan (wie in vielen anderen Sprachen) derzeit nicht zulässig, d.h. eine neue Klasse kann nur von einer anderen Klasse erben. Ein Objekt, dass jetzt von zweiteKlasse abgeleitet wird enthält die Variablen x& und y&, sowie die dazu gehörigen Methoden. Die Methode Info kommt in beiden Klassen vor. Hier "überschreibt" die neue Methode die gleichnahmige Methode der Ursprungsklasse.

Mit dem Zusatz ".super." kann man innerhalb einer Klasse bei Vererbung auf Methodem der übergeordneten Klasse ("Superklasse") zugreifen. In Anlehnung an JAVA wurde das Wort "super" gewählt. In Delphi ist diese Funktionalität als "inherited" bekannt.

Objekte zuweisen

Objekte, die von derselben Klasse gebildet wurden, können einander zugewiesen werden. Im Beispiel des Kurses zur objektorientierten Programmierung könnte also eine Zeile wie "Waldi# = Bello#" stehen. Sind die Objekte Instanzen von unterschiedlichen Klassen oder ist eines der beiden kein Objekt, sondern eine Struktur oder ein einfacher Bereich, erfolgt eine Fehlermeldung.
.
Der Rückgabewert einer Methode (oder Prozedur) kann auch ein Objekt sein und somit einem Objekt derselben Klasse zugewiesen werden.

Hinweis: Es gibt die Funktion @SizeOf, mit der die Größe jeder beliebigen Bereichsvariable, also auch einer Struktur oder eines Objektes, ermittelt werden kann. Die Funktion @TypeOf ermittelt, ob eine Bereichsvariable als Objekt, Struktur oder Bereich initialisiert wurde und mit @ClassOf ermittelt man, von welcher Klasse das Objekt erzeugt wurde.

Alles anzeigen

Genesis
Da kommt das zum Tragen, was 'Frabbing' auch geschrieben hat:
Den Hilfetext lesen
Den Teil, den ich hierhin gestellt habe, ist nur ein Eingangstext. Weiter im Text wird, auch an Hand von Beispielen, die OOP sehr ausführlich erklärt

In der XProfan-Hilfe sind doch einige Beispiele aufgeführt:

[Blockierte Grafik: http://www.postimage.org/Pq1X3tNi.jpg]