Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.010 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#1

State pattern in DELPHI

  Alt 15. Sep 2021, 12:10
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.
  Mit Zitat antworten Zitat