Оптимизация работы с выражениями в реальном времени в Delphi с использованием RTTI

Delphi , Компоненты и Классы , RTTI

Вопрос, с которым столкнулся разработчик, заключается в возможности предоставления пользователю функционала для определения выражений, использующих скомпилированные классы с включенным RTTI. Рассмотрим пример класса TAnimal, для которого необходимо реализовать функцию оценки на основе пользовательских выражений.

type
  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;

Задача состоит в том, чтобы написать функцию EvaluateAnimal, которая будет принимать экземпляр класса TAnimal и строку с выражением, и возвращать результат его оценки. Пользователь может вводить выражения, например, (TAnimal.Weight * TAnimal.Height) / (TAnimal.Weight + TAnimal.Height).

С помощью RTTI можно получить доступ к свойствам экземпляра класса, но как оценить пользовательское выражение? Необходимо механизм, который позволит подготовить выражение при запуске приложения, а затем в реальном времени оценивать его, используя экземпляр класса TAnimal. Пользователь должен иметь возможность изменять выражение в любой момент, и приложение должно корректно его обрабатывать.

В качестве альтернативного решения предлагается использовать компонент JclExprEval, который позволяет работать с выражениями в реальном времени. Свойства класса TAnimal являются свойствами экземпляра, а не класса, что важно учитывать при работе с выражениями.

Подтвержденный ответ заключается в использовании Live Bindings для оценки выражений. Пример кода на Object Pascal демонстрирует, как создать выражение и оценить его:

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.

При создании связывания выражение компилируется в промежуточное представление, которое затем оценивается. Это позволяет использовать одно и то же выражение для множества объектов с минимальной задержкой.

Важно отметить, что в приведенном коде не освобождаются объекты, что приводит к утечке памяти. Это сделано для упрощения демонстрации процесса оценки выражений.

Создано по материалам из источника по ссылке.

Вопрос связан с оптимизацией работы с выражениями в реальном времени в Delphi с использованием RTTI для оценки выражений, использующих свойства объектов, с возможностью их изменения и динамической переоценки.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: RTTI ::