ich versuche gerade eine Anwendung über die Einführung eines State Pattern
(
https://sourcemaking.com/design_patterns/state )
zu verbessern.
Aktuell scheitere ich daran die State Klasse in meiner zweiten
unit zu definieren, in dieser
unit ist die
eigentlich Klasse ja nur über eine foreward deklaration bekannt. Was mache ich hier falsch ?
Delphi-Quellcode:
unit TProcessor;
///
/// unit 1 mit der Klasse die zukünftig auch eine State class bekommen soll
///
interface
uses Types, Classes;
implementation
type
TProcessor =
class ()
FState : TProcessStatesClass;
// kommt dann noch
function GetState : TProcessStatesClass;
procedure SetState(
const Value : TProcessStatesClass);
end;
end.
unit ProcessStates;
///
/// unit 2 mit der Ober-Klasse für die states
///
interface
uses Types, Classes;
implementation
type
TProcessor =
class;
// // Forward declaration
TProcessStatesClass =
class of TProcessStates;
type TProcessStates =
class(TObject)
private
FProcessor : TProcessor ;
public
end;
end.