* Flush when saving. Fixes issue #40938

This commit is contained in:
Michaël Van Canneyt 2024-10-09 14:06:30 +02:00
parent 088f394440
commit 10d913624d

View File

@ -187,6 +187,7 @@ begin
S:=FJSON.AsJSON;
if S>'' then
F.WriteBuffer(S[1],Length(S));
F.Flush;
Finally
F.Free;
end;