Live Bindings - konzolově

    1program LiveBindingProgr;
    2
    3{$APPTYPE CONSOLE}
    4
    5uses
    6  System.SysUtils,
    7  System.Bindings.Expression,
    8  System.Bindings.ObjEval,
    9  System.Bindings.Helper;
   10
   11type
   12  TMyObject1 = class(TObject)
   13  private
   14    FIntegerValue: Integer;
   15    FStringValue: String;
   16  public
   17    property IntegerValue: Integer read FIntegerValue write FIntegerValue;
   18    property StringValue: String read FStringValue write FStringValue;
   19  end;
   20
   21  TMyObject2 = class(TMyObject1);
   22  TMyResultObject = class(TMyObject1);
   23
   24var
   25  MyObject1: TMyObject1;
   26  MyObject2: TMyObject2;
   27  MyResultObject: TMyResultObject;
   28
   29  BindingExpression1: TBindingExpression;
   30  BindingExpression2: TBindingExpression;
   31
   32begin
   33  ReportMemoryLeaksOnShutdown := True;
   34  MyObject1 := TMyObject1.Create;
   35  MyObject2 := TMyObject2.Create;
   36  MyResultObject := TMyResultObject.Create;
   37
   38  MyObject1.IntegerValue := 1;
   39  MyObject1.StringValue := 'LiveBinding ';
   40
   41  MyObject2.IntegerValue := 2;
   42  MyObject2.StringValue := 'power.';
   43
   44  { a binding expression that binds the two Integer properties of the given objects }
   45  BindingExpression1 := TBindings.CreateManagedBinding(
   46    { inputs }
   47    [TBindings.CreateAssociationScope([
   48      Associate(MyObject1, 'o1'),
   49      Associate(MyObject2, 'o2')
   50      ])],
   51    '(o1.IntegerValue + 10) * o2.IntegerValue',
   52    { outputs }
   53    [TBindings.CreateAssociationScope([
   54      Associate(MyResultObject, 'res')
   55      ])],
   56    'res.IntegerValue',
   57    nil);
   58
   59  { a binding expression that binds the two String properties of the given objects }
   60  BindingExpression2 := TBindings.CreateManagedBinding(
   61    { inputs }
   62    [TBindings.CreateAssociationScope([
   63      Associate(MyObject1, 'o1'),
   64      Associate(MyObject2, 'o2')
   65      ])],
   66    '(o1.StringValue) + "is "+ o2.StringValue',
   67    { outputs }
   68    [TBindings.CreateAssociationScope([
   69      Associate(MyResultObject, 'res')
   70      ])],
   71    'res.StringValue',
   72    nil);
   73
   74  TBindings.Notify(MyObject1, 'IntegerValue');
   75  TBindings.Notify(MyObject2, 'StringValue');
   76
   77  Writeln('Result of add operation: ', MyResultObject.IntegerValue);
   78  Writeln(MyResultObject.StringValue);
   79  Readln;
   80
   81  MyObject1.Free;
   82  MyObject2.Free;
   83  MyResultObject.Free;
   84end.