Unsatisfied forward or external declaration

[simonko]

Delphi-Quellcode:

TQuadrat = class(TGeomFigur)
    protected
      FLaenge : real;
      procedure SetBreite(pbreite :real); virtual;
      procedure SetLaenge(plaenge :real); virtual;
    public
      property Breite : real write SetBreite;
      property Laenge : real write SetLaenge;
    end;
    TRechteck = class(TQuadrat)
    protected
      FBreite : real;
      procedure SetBreite(pbreite :real); override;
      procedure SetLaenge(plaenge :real); override;
    end;

diesen fehler krieg ich bei den 2 letzten proceduren. aber warum?

[sakura]

Zitat von simonko:

diesen fehler krieg ich bei den 2 letzten proceduren. aber warum?

Weil Du diese zwar deklariert hast, aber nie den eigentlichen Code dazu geschrieben hast.

......

[Dax]

TRechteck = class(TQuadrat) Bahhh böse! Quadrate sind Sonderfälle von Rechtecken und nicht umgekehrt

[/ot]

[sakura]

Zitat von Dax:

Bahhh böse! Quadrate sind Sonderfälle von Rechtecken und nicht umgekehrt

In der OO-Programmierung aber so oder so nicht geschickt darzustellen. Es gibt keine allseits anerkannte Regelung in der OO, wenn man daraus zwei Klassen machen will.

......

[simonko]

wäre TQuadrat von TRechteck dann hätte ich in TQuadrat 2 variabeln die die werte der seitenlänge speichern. Im quadrat benötige ich nur eine!

[3_of_8]

Schau dir mal die Smilies an: Das war nicht ernst gemeint.

[sakura]

Zitat von 3_of_8:

Schau dir mal die Smilies an: Das war nicht ernst gemeint.

Das würde ich einen Zwinker wie nicht entnehmen. Zumal sich die Informatikerwelt da wirklich nicht einig ist. Es gibt iA drei Positionen für das Problem

• Quadrat <- Rechteck
• Rechteck <- Quadrat
• Rechteck (+IsQuadrat: Bool)

......

[simonko]

ist doch eigendlich egal was von was komt. im diesem fall ist es günstiger das rechteck vom quadrat abzuleiten.

[marabu]

Eine Klasse TQuadrat in Gegenwart einer Klasse TRechteck scheint mir ein Modellierungsfehler zu sein - egal wer von wem abgeleitet wird:

Delphi-Quellcode:

type
  TRectangle = class
    Height: Cardinal;
    Width: Cardinal;
    function IsSquare: boolean;
  end;

function TRectangle.IsSquare: boolean;
begin
  Result := Height = Width;
end;

Als Streitobjekt unter Informatikern habe ich das konkrete Thema nie kennen gelernt - oder erinnere ich mich nur nicht mehr daran?

Frohe Weihnachten vom marabu