Klassen

Aus ProgrammingWiki

Bsp: Auto hat Eigenschaften (Farbe, Geschwindigkeit...) und Methoden (starten, beschleunigen, bremsen...)

type TAuto=class // im Type-Teil // Datenfelder farbe: string; geschwindigkeit: integer; tankfuellung: integer; // in ml maxTankvolumen: integer; // Konstruktor constructor create(nFarbe:string,nTankfuellung:integer, nMaxTankVol:integer); // Methodenköpfe function getGeschwindigkeit:integer; procedure setGeschwindigkeit(nGeschwindigkeit:integer); function getFarbe:string; function getTankfuellung:integer; procedure Tanken(nTankMenge:integer); end;

Konstruktor und Destruktor

beim Konstruktor werden zB Datenfelder belegt der Desktruktor gibt beim Löschen Speicher wieder frei

Um eine Instanz zu erzeugen, muss man zunächst das Objekt (die Variable) deklarieren...

var ferrari2:TAuto;

...und im implement-Teil den Konstruktor aufrufen:

ferrari2:=TAuto.create('rot', 5000, 40000);

TAuto.create muss natürlich vorher definiert werden (siehe unten).

Allgemein:

->

Objekt := Klasse.create();

Destruktor:

ferrari2.free;

Die Methoden (und der Konstruktor) sind nun noch nicht definiert:

implement // im Implement-Teil constructor TAuto.create(nFarbe:string,nTankfuellung:integer,nMaxTankVol:integer) begin farbe:=nFarbe; // banal tankfuellung:=nTankfuellung; maxTankvolumen:=nMaxTankVol; end;

Methode Tanken:

procedure TAuto.Tanken(TankMenge: Integer); begin if maxTankvolumen <= tankfuellung + TankMenge then tankfuellung := tankfuellung + TankMenge else tankfuellung := maxTankvolumen; end; ...