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;