Hallo allerseits,
ich habe folgendes Problem unter Delphi 7: ich möchte innerhalb einer
Unit eine ganze Latte von Klassen definieren, die jeweils Objekte von andren Klassen als property haben. Um das ganze übersichtlicher zu gestalten, möchte ich Forward Deklarationen der Klassen einbauen, damit diese auch ganz oben bereits bekannt sind. Aber egal, was ich mache, Delphi beschwert sich immer bei mir, dass ich die Klassen redefinieren würde, mache ich irgendwas falsch? Hier ein Beispiel wie ich vorgehe. Es wird von Delphi so leider nicht akzeptiert (besagte Fehlermeldung) und ich weiß nicht warum:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TKlasse2 =
class(TObject);
TKlasse3 =
class(TObject);
TKlasse1 =
class(TObject)
private
FObjekt2: TKlasse2;
public
property Objekt2: TKlasse2
read FObjekt2
write FObjekt2;
end;
TKlasse2 =
class(TObject)
private
FObjekt3: TKlasse3;
public
property Objekt3: TKlasse3
read FObjekt3
write FObjekt3;
end;
TKlasse3 =
class(TObject)
private
FTest1:
String;
FTest3:
String;
FTest2:
String;
public
property Test1:
String read FTest1
write FTest1;
property Test2:
String read FTest2
write FTest2;
property Test3:
String read FTest3
write FTest3;
end;
implementation
end.