mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 13:39:36 +02:00
* Flush when saving. Fixes issue #40938
This commit is contained in:
parent
088f394440
commit
10d913624d
@ -187,6 +187,7 @@ begin
|
||||
S:=FJSON.AsJSON;
|
||||
if S>'' then
|
||||
F.WriteBuffer(S[1],Length(S));
|
||||
F.Flush;
|
||||
Finally
|
||||
F.Free;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user