From f187bf9e2c538f408ac16758b1e04d9a279b700a Mon Sep 17 00:00:00 2001 From: Footballjds Date: Sun, 11 Jan 2026 19:15:36 -0500 Subject: [PATCH] TConfigJSON.Put(key, value); --- utils/config.simba | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) diff --git a/utils/config.simba b/utils/config.simba index 39589c2..64deaeb 100644 --- a/utils/config.simba +++ b/utils/config.simba @@ -62,6 +62,38 @@ begin TJSONParser(Self.Data).Save(Self.Path, [EJSONFormatOption.USE_TABS, EJSONFormatOption.SINGLE_LINE_ARR], 1); end; +procedure TConfigJSON.Put(const key: String; value: Int64); overload; +begin + if Self.Data.Has(key) then + Self.Data.Item[key].AsInt := value + else + Self.Data.AddInt(key, value); +end; + +procedure TConfigJSON.Put(const key: String; value: Double); overload; +begin + if Self.Data.Has(key) then + Self.Data.Item[key].AsFloat := value + else + Self.Data.AddFloat(key, value); +end; + +procedure TConfigJSON.Put(const key: String; value: Boolean); overload; +begin + if Self.Data.Has(key) then + Self.Data.Item[key].AsBool := value + else + Self.Data.AddBool(key, value); +end; + +procedure TConfigJSON.Put(const key: String; value: String); overload; +begin + if Self.Data.Has(key) then + Self.Data.Item[key].AsString := value + else + Self.Data.AddString(key, value); +end; + (* ## TConfigINI Type responsible for dealing with INI configuration files.