WebStencilProcessor Funktionsaufruf im Template

[gubbe]

Deine Frage hat mich auf die Idee gebracht, mal zu schauen, wie man eigene Funktionen erweitern könnte. Hier ein Beispiel.

Wenn Du z.B. eine Funktion "FormatFloat" nutzen willst, kannst Du Sie folgendermaßen definieren.
Zum Registrieren rufst Du "RegisterOwnFunctions" in Deinem Code auf.

Delphi-Quellcode:

uses
  System.Bindings.Methods, System.Bindings.EvalProtocol, System.Bindings.Consts;

function MakeMethodFormatFloat: IInvokable;
begin
  Result := MakeInvokable(function(Args: TArray<IValue>): IValue
  var
    v1: IValue;
    Value: Extended;
    formatted: string;
  begin
    if Length(Args) <> 2 then
      raise EEvaluatorError.CreateRes(@sFormatArgError);
    v1 := Args[0];
    if not (v1.GetType.Kind in [tkString, tkUString, tkWString]) then
      raise EEvaluatorError.CreateRes(@sFormatExpectedStr);
    if Args[1].GetValue.IsEmpty then
      Exit(TValueWrapper.Create(nil)) // Handle null
    else
    begin
      Value := Args[1].GetValue.AsExtended;
      formatted := FormatFloat(v1.GetValue.AsString, Value, TFormatSettings.Create);
    end;
    Result := TValueWrapper.Create(formatted);
  end);
end;

procedure RegisterOwnFunctions;
begin
  TBindingMethodsFactory.RegisterMethod(
    TMethodDescription.Create(
      MakeMethodFormatFloat,
      'FormatFloat',
      'FormatFloat', '', True,
      '',
      nil));
end;