Der Hinweis war extrem hiflreich:
Man kann in der Routine ein ensprechendes Object erzeugen.
UND man kann auch ein vorher erzeugtes Object hinzufügen und auch von ausserhalb benutzten:
Delphi-Quellcode:
procedure TForm1.FDSqlFunctionCalculate(AFunc: TSQLiteFunctionInstance;
AInputs: TSQLiteInputs; AOutput: TSQLiteOutput; var AUserData: TObject);
begin
if not Assigned(AUserData) then
begin
AUserData := ATestClass;
(AUserData as TestClass).MyZahl := 1;
end;
if Assigned(AUserData) then
begin
(AUserData as TestClass).MyZahl := (AUserData as TestClass).MyZahl +3;
end;
AOutput.AsString := SQLregEx(AInputs[0].AsString,AInputs[1].AsString);
end;
Ich hatte übrigens auch nichts gefunden, aber etliche Stellen wo andere Funktionalität über Eigenschaften von Außen hinzugefügt wird.
Aber so geht es ja.
Danke