mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: JSON-Pack utility

Browse source
This commit is contained in:
Alexander Koblov 2023-07-11 23:03:27 +03:00
commit 3dc144d2e2
1 changed files with 11 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

26
tools/jsonpack/jsonpack.lpr
View file

@ -13,7 +13,7 @@ uses
var
AFileName: String;
AConfig: TJSONObject;
AConfig: TJSONData;
AStream: TFileStream;
AOptions: TFormatOptions;
begin
@ -39,20 +39,20 @@ begin
AStream:= TFileStream.Create(AFileName, fmOpenRead or fmShareDenyNone);
try
AConfig:= GetJSON(AStream, True) as TJSONObject;
try
with TStringList.Create do
try
Text:= AConfig.FormatJSON(AOptions);
SaveToFile(AFileName);
finally
Free;
end;
finally
AConfig.Free;
end;
AConfig:= GetJSON(AStream, True);
finally
AStream.Free;
end;
try
with TStringList.Create do
try
Text:= AConfig.FormatJSON(AOptions);
SaveToFile(AFileName);
finally
Free;
end;
finally
AConfig.Free;
end;
end.