zusammenfalten · markieren

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?

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.

......

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

[/ot]

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.

......

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!

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

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)

......

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

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

zusammenfalten · markieren

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