fix: some more compiler warnings and hints

ansgarbecker · ansgarbecker · commit 3b247070729b · 2026-01-12T13:53:59.000+01:00
diff --git a/source/main.pas b/source/main.pas
@@ -3802,10 +3802,13 @@ procedure TMainForm.actDropObjectsExecute(Sender: TObject);
 
 procedure TMainForm.actLaunchCommandlineExecute(Sender: TObject);
 var
-  path, log, cmd, MySQLArgs, TerminalArgs: String;
+  path, log, cmd, MySQLArgs: String;
   Conn: TDBConnection;
   P: TProcess;
+  {$IFNDEF WINDOWS}
+  TerminalArgs: String;
   SpacePos: Integer;
+  {$ENDIF}
 
   function DetectTerminal: string;
   const
diff --git a/source/reformatter.pas b/source/reformatter.pas
@@ -282,7 +282,7 @@ function TfrmReformatter.FormatSqlOnlineSqlformatOrg(SQL: String): String;
   JsonResponseStr := Response.Text;
   if JsonResponseStr.IsEmpty then
     raise Exception.Create(_('Empty result from online reformatter'));
-  JsonParser := TJSONParser.Create(JsonResponseStr);
+  JsonParser := TJSONParser.Create(JsonResponseStr, []);
   JsonTmp := JsonParser.Parse;
   Result := JsonTmp.GetPath('result').AsString;
   JsonTmp.Free;
diff --git a/source/texteditor.pas b/source/texteditor.pas
@@ -458,7 +458,7 @@ procedure TfrmTextEditor.menuFormatCodeOnceClick(Sender: TObject);
   // Reformat code if possible
   try
     if FHighlighter is TSynJScriptSyn then begin
-      JsonParser := TJSONParser.Create(MemoText.Text);
+      JsonParser := TJSONParser.Create(MemoText.Text, []);
       MemoText.Text := JsonParser.Parse.FormatJSON();
       JsonParser.Free;
       MemoText.SelStart := 0;
