Man kann das direkt in
TFDParam.SetAsStrings sehen:
Delphi-Quellcode:
if not (FDataType in [ftString, ftFixedChar, ftWideString, ftFixedWideChar]) then
FDataType := {$IF DEFINED(IOS) OR DEFINED(ANDROID)} ftWideString {$ELSE} ftString {$ENDIF};
Values[AIndex] := AValue;
Wenn du das nicht alles nachbilden willst, dann vielleicht so:
Delphi-Quellcode:
if mydate > 0 then
l_Query.ParamByName('date').AsString := DateToISO8601(mydate)
else
begin
l_Query.ParamByName('date').AsString := '';
l_Query.ParamByName('date').Clear;
end;