Posts by Roubledo • 174 points
12 posts
-
0
votes1
answer98
viewsA: Delphi RTTI change the property value of an object that is owned by another
After much research, I decided as follows: procedure TOrmRtti<T>.AtribuirValorPropriedade(pObjeto: T; pPropriedade: string; pValor: TValue); var vContexto : TRttiContext; vTipo: TRttiType;…
-
0
votes1
answer98
viewsQ: Delphi RTTI change the property value of an object that is owned by another
I have the following var vEstado : TEstado; begin vEstado := TEstado.Create; vEstado.Codigo := 1; vEstado.Nome := 'ESPIRITO SANTO'; vEstado.Sigla := 'ES'; vEstado.Pais.Codigo := 100;…
-
1
votes1
answer1575
viewsA: You can open excel in Excel without Excel installed;
I know the Flexcel component of TMS. Flexcel for VCL / Firemonkey is a suite of Delphi Components allowing to Manipulate Excel files. It includes an extensive API allowing to natively read/write…
-
0
votes1
answer1875
viewsA: Adding bulk items/subitens in Listview
procedure TForm3.Button1Click(Sender: TObject); Var Item: TListItem; Conta, Posicao : Integer; begin // pega o memo e adiciona no listview …
-
2
votes3
answers50
viewsA: Returning information recorded in the bank
You must start a transaction Considering dbConacted - the name of the connection component to the database Query1 and query 2 - query with sql statements. dbConexao.starttransaction; Try…
-
-1
votes2
answers963
viewsA: Pass Ifddatasetreference (Firedac) to Clientdataset.Data
Use query.data. Use your client.data := your query.data, the data property returns the data dataset. function TRegra.ListarTitulosAVencer(pInicial, pFinal: TDate): TFDQuery; begin with Query do…
-
1
votes3
answers588
viewsA: Open as an administrator only the first time in Delphi.
In project options/Application in the Manifest File section, check the option: Enable Administrator Privileges to resolve.
-
1
votes1
answer147
viewsA: customFormat Livebindings Couldn’t find ifthen
The function must be typed with upper and lower case letters IfThen( owner.fieldbyname('tem_movimentacao').asboolean,false,true );
-
2
votes1
answer410
viewsA: Creating Report Inside a Panel
In the onpreview report event put: var frmPreview: TfrxPreviewForm; begin inherited; Relatorio.PreviewOptions.Modal := False; Relatorio.EngineOptions.DestroyForms := True; //…
-
1
votes1
answer1133
viewsA: Run routines in background
Use parallel processing Ttaks. procedure executarrotina; begin vg_Tarefas.Add(TTask.Create(procedure () var vEmail : TEmail; begin vEmail := TEmail.Create; try vEmail.Assunto := pAssunto;…
-
0
votes3
answers1222
viewsA: Open Form2 side by side with Form1 simultaneously and close or minimize both simultaneously
Perhaps a new approach will be more efficient. 1 - You have the 1 screen called Form1 2 - You have the 2 screen called form2 3 - Create a third screen with 2 panels, each with the dimensions of…
-
2
votes1
answer505
viewsA: Edit receive caption from several Abels
The simplest way would be at the onclick event of the label: Edi1.Text := Edit1.Text + Tlabel(Sender). caption+ ' ';