I have a mySQL with the following two tables: person keyed on ID staff keyed on ID and StaffID (used to link managers and their staff) The following stored procedure should insert a row into the staff table provided both…
I noticed the Lazarus IDE and VSCode can be put into Docker Containers as devcontainers, so that you can develop and compile software inside that container. I have no experience with Docker, and I cannot seem to find any data…
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);…