Posts by Daniel Grillo • 573 points
13 posts
-
3
votes1
answer418
viewsA: Frame Replication [Error: Component already exists]
A simple solution is to name each frame created. It looks like this: procedure TMain.Button1Click(Sender: TObject); var i:integer; frame:TFrame; begin for i := 0 to 5 do begin frame :=…
-
3
votes3
answers810
viewsA: Multiple lines on a Showmessage in Delphi
Complementing @Ricardo’s response, you have several ways to include a new line in a string. See below for several commented examples: procedure TForm1.Button1Click(Sender: TObject); var Msg: string;…
-
1
votes2
answers431
viewsA: Create Login screen at runtime
You can use the Inputquery same. Use help to check how it works in more detail, including with examples. Below I took the example of help and adapted to answer your question. Follow the code:…
-
4
votes2
answers1376
viewsQ: Delphi Berlin slow after migrating from a Delphi Seattle project
I migrated a project made in Delphi Seattle to Delphi Berlin and it became impossible to work on it because the autocomplete started to take about 20 seconds to show some suggestion. How to solve…
-
5
votes2
answers1376
viewsA: Delphi Berlin slow after migrating from a Delphi Seattle project
To resolve this issue I deleted the file dproj and opened the project on Berlin using the file dpr. The Berlin created a new dproj and everything became normal again.…
-
2
votes1
answer1209
viewsA: Add repeated parameter to Delphi’s Delphi component
As the parameter accepts only string, just turn the JSON in string. So to include a JSONArray do as follows: var JSArray : TJSONArray; begin JSArray := TJSONArray.Create; try JSArray.Add('"Atenção!…
-
3
votes1
answer1327
viewsA: Help JSON Delphi
I created a project as an example. I used Delphi Seattle but I think it works on X6 as well. See below: Add to uses: System.JSON Add a TMemo and put in it the text JSON you passed on your question.…
-
2
votes2
answers159
viewsA: Inversion of array (positions)
Try it like this: i = 0; for (j = 3; j >= i; j--){ aux = x[j]; x[j] = x[i]; x[i] = aux; i++; }
-
3
votes3
answers3550
viewsA: How to make your Android virtual keyboard visible/invisible while Tedit is in focus
I have no way to test it now, but try the following code on OnEnter edit’s: procedure TForm1.Edit1Enter(Sender: TObject); var VKbSvc: IFMXVirtualKeyboardService; begin if…
-
1
votes2
answers725
viewsA: Set PIC pin as input and output with CCS?
You have two options using directives #USE STANDARD_IO(port) or #USE FAST_IO(port): #USE STANDARD_IO(port) Upside: It "takes care" of the direction of the pins. So when you use input(pin),…
picanswered Daniel Grillo 573 -
0
votes1
answer77
viewsA: How does an led flash 1,100000 seconds with PIC?
I haven’t worked with Assembly in a while PIC. When I worked and needed one delay i resorted to a site that generated the code I needed. To my surprise this site still exists. And it’s this one:…
picanswered Daniel Grillo 573 -
5
votes1
answer2976
viewsA: How to get request header by passing Authorization Bearer using Datasnap
Datasnap is based on the components Indy. When there is a requisition Http with authentication, the function TIdCustomHTTPServer.DoParseAuthentication is called. If there is no function associated…
-
4
votes1
answer713
viewsQ: Hyperlink in a Dbgrid field
I am making a small internal software to research extensions in my company. In addition to the extensions I also put an email field in the database as can be seen below: My purpose is to click on…