Delphi RTTI를 사용하여 표현식 작성 및 평가

Question

사용자가 RTTI를 사용하는 컴파일 된 클래스를 사용하여 표현식을 정의 할 수 있도록 허용하는 작업에 직면했습니다. 간단한 방식으로 설명하겠습니다.

TAnimal = class(TPersistent) 
private 
    fWeight : Double; 
    fHeight : Double; 
    fName : string; 
published 
    property Weight : Double read fWeight write fWeight; 
    property Height : Double read fHeight write fHeight; 
    property Name : string read fName write fName; 
end; 

그리고 난이 공급 된 표정으로 동물을 평가하는 루틴이

function EvaluateAnimal(const animal : TAnimal; expression : string) : Double; 
begin 
    //Result := Turn expression to evaluation and give the result 
end; 

사용자 발현 내가 RTTI 컨텍스트를 사용하여 TAnimal를 얻을 수 있습니다, 지금 (TAnimal.Weight * TAnimal.Height)/(TAnimal.Weight + TAnimal.Height)

이며, 동물의 키와 몸무게의 가치를 얻으십시오. 그러나, 어떻게 사용자가 제공 한 표현을 평가할 수 있습니까 ??

내 응용 프로그램이 시작될 때 런타임에 사용자 표현을 준비하는 데 사용할 수있는 메커니즘이 있습니까? 그냥 animal 인스턴스를 보내 값을 검색하십시오. 사용자는 언제든지 표현식을 자유롭게 변경할 수 있으며 응용 프로그램은 표현식을 평가해야합니다.

저는 Delphi XE3을 사용하고 있습니다.

Answer 1

라이브 바인딩을 사용하여 표현식을 평가할 수 있습니다. 여기에 사소한 예는 다음과 같습니다

program BindingsDemo; 
{$APPTYPE CONSOLE} 

uses 
    System.Rtti, 
    System.Bindings.Expression, 
    System.Bindings.EvalProtocol, 
    System.Bindings.Helper; 

type 
    TFoo = class 
    Val1: Integer; 
    Val2: Integer; 
    Result: TValue; 
    end; 

procedure Main; 
var 
    Foo: TFoo; 
    scope: IScope; 
    expr: TBindingExpression; 
begin 
    Foo := TFoo.Create; 
    Foo.Val1 := 42; 
    Foo.Val2 := 666; 
    scope := TBindings.CreateAssociationScope([Associate(Foo, 'Foo')]); 
    expr := TBindings.CreateUnmanagedBinding(
    [Scope], 
    'Foo.Val1 + Foo.Val2', 
    [Scope], 
    'Foo.Result', 
    nil 
); 
    expr.Evaluate; 
    Assert(Foo.Result.AsInteger=708); 
    Writeln(Foo.Result.ToString); 
end; 

begin 
    Main; 
    Readln; 
end. 

주, 나는 의도적으로 무료 객체에 코드를 생략하고 있으므로이 코드를 유출했습니다. 우리가 표현 평가 측면에 집중할 수 있도록하기로 결정했습니다.