Firedac SQLite UserData

[WoGe]

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