FireDAC max_string_size bei PostgreSQL

[backdraft]

Hallo,

ich habe bei der Umstellung von einem Projekt auf die aktuelle Delphi 11.2 Version ein Problem mit Text-Feldern in PostgreSQL.

Bei einem Query wird ein Parameter mit

Code:

ParamByName('xxx').AsString := ...;

übergeben.
Ist dieser Wert > als 4000 Zeichen, kommt es zu einer Exception, wenn ich den Query abschicke.
Auch ein LoadFromStream löst das Problem nicht.

Im FireDAC.Phys.PGWrapper wird die max_string_size auf 4000 gestellt.
Was funktioniert ist, dass ich

Code:

ParamByName('xxx').Size := 10000;

einstelle, aber das kann ich ja nicht bei jedem Parameter machen müssen.

Bestimmt gibt es irgendwo eine Standardeinstellung dafür, ich weiss nur nicht wo.

Code:

Connection.FormatOptions.MaxStringSize := 10000;

ist es nicht :-(

Vielleicht hatte ja jemand schon das gleiche Problem.

[backdraft]

Hat keiner einen Tipp?

[Union]

Wie wär es mit einem Helper für TFDParam?

Delphi-Quellcode:

procedure TFDParamHelper.SetAsString(const AValue: String);
begin
  if AValue = '' then
    Clear
  else
  begin
    Size  := 10000;
    Value := AValue;
  end;
end;