I'm creating a nested JSON object in Delphi using this code: var jo:TJsonObject; try jo := TJsonObject.Create; jo.AddPair('data', TJsonObject.Create); with jo.GetValue<TJsonObject>('data') do begin jo.AddPair('details', TJSONObject.Create); with jo.GetValue<TJsonObject>('details') do begin jo.AddPair('foo', 'bar'); end; end; finally FreeAndNil(jo); end; It works and produces…
I was initialising a TJSONArray as: jsonArray := xeroResponse.JSONValue as TJSONArray; but I had forgotten to free the TRESTResponse. Now that I'm doing that, the jsonArray is being freed as well. I use the jsonArray throughout the Form to run…
Usually one would set it like this at runtime: Label1.Caption := 'First line' + #13#10 + 'SecondLine'; but for some reason, this does not seem to work even if you turn WordWrap on or off. What is the solution to…
I'm trying to get this done on TMS Web Core via Delphi code using. procedure TForm1.WebFormCreate(Sender: TObject); begin pnlPersonalInfo.Margins.Left := 15; pnlPersonalInfo.Margins.Top := 15; pnlPersonalInfo.Margins.Right := 15; pnlPersonalInfo.Margins.Bottom := 15; phone.HTML.Text := GetBootstrapIcon('telephone-fill', 24, '#576A33'); email.HTML.Text := GetBootstrapIcon('envelope-fill', 24, '#576A33');…
I am writing a Delphi program which will use Hindi. I use Soluling which produce .RC files with constant LANG_HINDI. But it is not recognized as a valid constant. I try to search all source files including Windows.pas, but cannot…
I am trying to register a custom converter to avoid the inherited properties in TObjectList - mainly FListHelper and FOwnsObjects. But I cannot get the custom converter to register, and the documentation shows no real examples. (No this is not…
I am trying to get my RESTClient's CRUD Requests to work after retrieving the access-token from Azure but I don't know what parameters need to be added and I cannot find examples of the syntax that work, or maybe my…
I am migrating some projects from Delphi 10.4 to Delphi 11.3. I am facing some problems with the JSON library: See the following codes: First case: function TestCreate; var LValue: Variant; LJSON: TJSONNumber; begin LValue := 100; LJSON := TJSONNumber.Create(LValue);…
I am using TRestClient>TRestRequest>TRestResponse>TRESTResponseDataSetAdapter to retrieve JSON data from a Rest API. This works well and I create a TClientDataset in memory: // Create a new in memory dataset gStaffTable := TClientDataset.Create(nil); with gStaffTable do begin // Add some fields…
I have extracted the UK Gov Bank Holidays using Delphi 10.1 with TRESTClient and TRESTRequest. This is the results (cut down version): { "england-and-wales": {"division":"england-and-wales","events": [{"title":"New Year’s Day","date":"2018-01-01","notes":"","bunting":true}, {"title":"Good Friday","date":"2018-03-30","notes":"","bunting":false}, {"title":"Christmas Day","date":"2025-12-25","notes":"","bunting":true}, {"title":"Boxing Day","date":"2025-12-26","notes":"","bunting":true}]}, "scotland": {"division":"scotland","events": [{"title":"New Year’s Day","date":"2018-01-01","notes":"","bunting":true}, {"title":"2nd…