Hallo,
ich habe eine eigene Unit Rechteck erstellt. Diese soll von der Klasse TRect erben.
Beim Compilieren tritt der Fehler mit der Meldung "Klassentyp erwartet" auf.
Was mache ich falsch?

zusammenfalten · markieren

Delphi-Quellcode:

unit rechteck;

interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
  TRechteck = class(TRect)

  private
  x1,x2,y1,y2: Integer;

  public
    constructor erstellen(x1,y1,x2,y2:Integer);
end;



implementation

constructor TRechteck.erstellen;
begin
  self.x1:=x1;
  self.y1:=y1;
  self.x2:=x2;
  self.y2:=y2;
end;

end.

Hallo,

Trect ist als record defeniert und nicht als class

siehe Hilfe.

GRuß

Zitat von Heuman:

Hallo,

Trect ist als record defeniert und als class

siehe Hilfe.

GRuß

Was muss ich konkret ändern?

markieren

Delphi-Quellcode:

TRechteck = class
private
  x1,x2,y1,y2: Integer;
public
  constructor erstellen(x1,y1,x2,y2:Integer);
end;

Nicht das das jetzt sinnvoll ist, aber es kompiliert

Zitat von Schokohase:

markieren

Delphi-Quellcode:

TRechteck = class
private
  x1,x2,y1,y2: Integer;
public
  constructor erstellen(x1,y1,x2,y2:Integer);
end;

Nicht das das jetzt sinnvoll ist, aber es kompiliert

TRechteck soll aber von TRect erben.

siehe
Die class TRechteck soll vom Record TRect erben?
Wie soll das gehen.

Die Fehlermeldung sagt es doch schon.. "Klassentyp erwartet"
Ist TRect ein Klassentyp?

gruss

Zitat von EWeiss:

siehe
Die class TRechteck soll vom Record TRect erben?
Wie soll das gehen.

Die Fehlermeldung sagt es doch schon.. "Klassentyp erwartet"
Ist TRect ein Klassentyp?

gruss

Es geht darum, dass ich in der Unit Rechteck, die Methode FillRect benötige. FillRect benötigt als Parameter ein TRect.
Um die Rechtecke zu zeichnen, verwende ich die Unit Rechteck. Rechteck ist aber nicht vom Typ TRect.
Das heißt, ich kann FillRect in der Unit Rechteck gar nicht aufrufen.

Hallo,
das sollte eigentlich funktionieren.

var rt:TRect;

begin

.fillrect(rt);

end;

Hallo,

dann gib doch Deiner Klasse eine TRect-Property:

zusammenfalten · markieren

Delphi-Quellcode:

TRechteck = class
private
  fRect:TRect;
public
  constructor Erstellen(x1,y1,x2,y2:Integer);
  property Rechteck:TRect read fRect;
end;


constructor TRechteck.Erstellen(x1,y1,x2,y2:Integer);
begin
  fRect:=Rect(x1, y1, x2, y2);
end;