HI,
hab folgendes Problem:
Habe 2 units:
UElement:
Code:
unit UElement;
interface
type TElement = class
private
//fx,fy hier deklariert bedeutet, kann in UKnoten nicht nutzen
procedure SetFX(xpunkt:Integer);virtual;abstract;
procedure SetFY(ypunkt:Integer);virtual;abstract;
function GetFX:integer;virtual;abstract;
function GetFY:integer;virtual;abstract;
public
destructor destroy();virtual;abstract;
constructor create(x,y:integer);overload;virtual;abstract;
constructor load(ListBoxString:String);overload;virtual;abstract;
end;
implementation
end.
und UKnoten
Code:
unit UKnoten;
interface
uses UElement;
type TKnoten = class(TElement)
private
FIsKante:Boolean;
procedure SetFX(xpunkt:Integer);override;
procedure SetFY(ypunkt:Integer);override;
procedure SetIsKante(kante:boolean);
function GetFX:integer;override;
function GetFY:integer;override;
function GetIsKante:Boolean;
private
constructor create(x,y:integer);overload;override;
constructor load(ListBoxString:String);overload;override;
destructor destroy();override;
property FxProperty: integer read GetFY write SetFY;
property FyProperty: integer read GetFX write SetFX;
end;
implementation
end;
der Compiler beschwert sich, dass die ganzen Methoden nicht in der Basisklasse gefunden werden.
Das Problem, kann ich dadurch beheben, dass ich TElement, und TKnoten in eine
Unit packe, aber
das wollte ich ja eigentlich verhindern, mehrere KLassen in einer
Unit.
Gibts ne Möglichkeit diesen Fehler zu beheben ohne meine Klassen in eine zu packen oder alles public
zu deklarieren?
Gruß Cyberdevil