From 2cecea18c88351876279f63ccaf0466bf8d8e6f2 Mon Sep 17 00:00:00 2001
From: wp_xxyyzz <wp_xxyyzz@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 5 Dec 2021 10:34:11 +0000
Subject: [PATCH] tvplanit: Write nicely formatted json file.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8169 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/tvplanit/source/vpjsonds.pas | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/components/tvplanit/source/vpjsonds.pas b/components/tvplanit/source/vpjsonds.pas
index 67d00cb7d..ec02c58d8 100644
--- a/components/tvplanit/source/vpjsonds.pas
+++ b/components/tvplanit/source/vpjsonds.pas
@@ -756,9 +756,7 @@ var
   cont: TVpContact;
   task: TvpTask;
   i, j: Integer;
- {$IF FPC_FullVersion < 30000}
   s: TJSONStringType;
- {$ENDIF}
 begin
   if AStream = nil then
     raise Exception.Create('No stream specified');
@@ -819,13 +817,8 @@ begin
       end;
     end;
 
-    {$IF FPC_FULLVERSION < 030000}
     s := json.FormatJSON;
     AStream.Write(s[1], Length(s));
-    {$ELSE}
-    json.DumpJSON(AStream);
-    {$ENDIF}
-
   finally
     json.Free;
   end;