Hi!
Ich habe folgendes Problem:
In einer
Unit definiere ich drei Klassen die gegenseitig voneinander abhängig sind. Also Klasse 1 enthält einen Pointer auf Klasse 2, Klasse 2 enthält einen Pointer auf Klasse 1 und 3, und Klasse 3 enthält einen Pointer auf Klasse 1 und 2. Innerhalb einer
Unit ist es nun kein Problem mit "TClassName = Class" eine Klasse vorwärts zu deklarieren um solche Strukturen zu ermöglichen.
Delphi-Quellcode:
Unit ;
Interface
Type
TClass1 =
Class;
TClass3 =
Class;
TClass2 =
Class(TObject)
Privat
FClass1: TClass1;
FClass3: TClass3;
...
End;
TClass1 =
Class(TObject)
Privat
FClass2: TClass2;
...
End;
TClass3 =
Class(TObject)
Privat
FClass1: TClass1;
FClass2: TClass2;
...
End;
Mein Problem ist nun das meine
Unit langsam unhandlich groß wird (schon über 1200 Zeilen), einfach dadurch das ich alle 3 Klassen in der selben
Unit vereinen muss.
Gibt es auch eine Möglichkeit (in Delphi 7) Klassen
unit-übergreifend vorwärts zu deklarieren, damit ich die drei Klassen jeweils in eine eigen
Unit verlegen könnte?
Ich freue mich über jeden hilfreichen Tip!
Grüße von TOC!