ReduxDelphi

Reduxdelphi

ReduxDelphi ist ein vorhersehbarer Zustandsbehälter für Delphi -Apps, der einen unidirektionalen Datenfluss verwendet. Inspiriert von https://github.com/reactjs/redux.

Dieses Projekt ist derzeit mit Delphi 10.1 entwickelt

Die Probe von ToMVC basiert auf unveränderlichen Datenstrukturen (generische unveränderliche Listen).

Gegenbeispielcode

Hier ist ein einfaches Beispiel, das die grundlegende Verwendung von Geschäft, Aktionen, Versand, ...:

 unit DemoCounterForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Redux;

type
  TEnumAction= (INIT, INCREMENT, DECREMENT);

  TFormDemoCounter = class (TForm)
    ButtonInc: TButton;
    ButtonDec: TButton;
    LabelCounter: TLabel;

    procedure ButtonIncClick (Sender: TObject);
    procedure ButtonDecClick (Sender: TObject);
    procedure FormShow (Sender: TObject);

  private
    FStore : IStore<Integer, TEnumAction>;
  end ;

var
  FormDemoCounter: TFormDemoCounter;

implementation

{ $R *.dfm }

procedure TFormDemoCounter.ButtonIncClick (Sender: TObject);
begin
  FStore.dispatch(INCREMENT);
end ;

procedure TFormDemoCounter.ButtonDecClick (Sender: TObject);
begin
  FStore.dispatch(DECREMENT);
end ;

procedure TFormDemoCounter.FormShow (Sender: TObject);
var
  FReducer : TReducer<Integer,TEnumAction>;
begin
  FReducer :=
    function(State: Integer; Action: TEnumAction): Integer
    begin
      case Action of
        INCREMENT:
          Result := State + 1 ;
        DECREMENT:
          Result := State - 1 ;
        else
          Result := State;
      end ;
    end ;

  FStore := TStore<Integer, TEnumAction>.Create(FReducer, 0 );
  FStore.subscribe( procedure (State: Integer)
    begin
      LabelCounter.Caption := IntToStr(State);
    end
  );
  FStore.dispatch(INIT);
end ;

end .