OOP-Delphi-Anfänger

[Sir Rufo]

Wenn man zum aktuellen horizontalem Wert (x) etwas hinzufügt und zum aktuellen vertikalen Wert (y) nichts hinzufügt, wo kommt man dann wohl raus?

[hotkey]

Okay , das wär abgehakt , dankeschön.

Was hat self.breite für eine Funktion ?

[Sir Rufo]

Self ist immer die Referenz auf die Instanz der Methode.
Hier also die Referenz auf die aktuelle TRechteck-Instanz.

Self ist zwar nicht zwingend erforderlich, kann aber den Code verständlicher machen, bzw. einem fehlerhaften Bezug vorbeugen

Hier in diesem Fall ist es egal, ob man es hinschreibt oder nicht

Delphi-Quellcode:

procedure TRechteck.ZeichneAuf( aCanvas : TCanvas );
begin
  aCanvas.LineTo( aCanvas.PenPos.X + {Self.}breite, aCanvas.PenPos.y );
end;

[hotkey]

Alles klar vielen Dank.

Damit "erkennt" man sozusagen auf was sich diese "breite" bezieht , habe ich das richtig interpretiert ?

[Sir Rufo]

Zitat von hotkey:

Alles klar vielen Dank.

Damit "erkennt" man sozusagen auf was sich diese "breite" bezieht , habe ich das richtig interpretiert ?

Achtung, jetzt nicht verwirren lassen ... das ist jetzt reine Spielerei, könnte einem aber mal unter die Füße kommen:

Delphi-Quellcode:

procedure TRechteck.ZeichneAuf( aCanvas : TCanvas );
// lokale Variablen
var
  hoehe, breite : integer;
begin
  // weil diese Methode gleichlautende lokale Variablen wie die Klasse Felder hat, 
  // muss man in dieser Methode für den Zugriff auf die Klassen-Felder das Self voransetzen!
  // den lokalen Variablen wird ein Wert zugewiesen
  hohe := Self.hoehe - 10;
  breite := Self.breite - 10;
end;

[hotkey]

Alles klar vielen Dank.

Kurze Frage noch :

Was passiert wenn man mehrere Subklassen (Vererbung) hat , mer Objekte mehr Instanzen , kann man self dann immernoch benutzen ?

[Sir Rufo]

Zitat von hotkey:

Alles klar vielen Dank.

Kurze Frage noch :

Was passiert wenn man mehrere Subklassen (Vererbung) hat , mer Objekte mehr Instanzen , kann man self dann immernoch benutzen ?

Bei einer Vererbung hat man nicht mehr Instanzen, sondern immer nur eine,
denn die Klassenbeschreibung wird vererbt ... und keine Instanzen doppelt und dreifach erzeugt.

Delphi-Quellcode:

// Vererbung
TFoo = class
  FooData : integer;
end;

TFooSon = class( TFoo )
  FooSonData : integer;
end;

ist prinzipiell das gleiche wie

Delphi-Quellcode:

// Ohne Vererbung
TFooSon = class
  FooData : integer;
  FooSonData : integer;
end;