Como Criar uma Function no Delphi

[conecty 0]

Por gentileza gostaria de criar uma função no delphi com este código pois vou usar varias vezes no projeto:procedure TFormParcReceber.BitBtn1Click(Sender: TObject);var dt1,DT2,DT3:STRING;beginCrpe2.ReportName:='C:\SGE\Relátorio\alu_aniversario.rpt';Crpe2.Formulas[Crpe1.Formulas.IndexOf('dia')].Formula.Text :='"'+ 'Mês '+Dt3+' de '+dm.ano+'"';dt1:=Edit1.Text;dt2:=Edit2.Text;Dt3 := EDIT3.Text; Crpe2.Selection.Formula.Text := 'month({PFISICA.PFISICA_NASCIMENTO})='+Dt1+' and {TURMA_ALUNO.TURMA_ALUNO_ANO}='+DT2+''; // day({PFISICA.PFISICA_NASCIMENTO})='+Dt3+'';Crpe2.WindowState:=wsMaximized;Crpe2.WindowButtonBar.SearchBtn := True;Crpe2.Output := toWindow;Crpe2.DiscardSavedData;Crpe2.Refresh;Crpe2.execute;Grato !!!

[marcio.theis 3]

Se ele não vai gerar nenhum retorno, pode ser uma PROCEDURE mesmo, no caso apenas precisa criar a procedure, copiar e colar, algo como:

 

procedure TForm1.Nome_da_proceduire;var	dt1,DT2,DT3:STRING;beginCrpe2.ReportName:='C:\SGE\Relátorio\alu_aniversario.rpt';Crpe2.Formulas[Crpe1.Formulas.IndexOf('dia')].Formula.Text :='"'+ 'Mês '+Dt3+' de '+dm.ano+'"';dt1:=Edit1.Text;dt2:=Edit2.Text;Dt3 := EDIT3.Text;Crpe2.Selection.Formula.Text := 'month({PFISICA.PFISICA_NASCIMENTO})='+Dt1+' and {TURMA_ALUNO.TURMA_ALUNO_ANO}='+DT2+''; // day({PFISICA.PFISICA_NASCIMENTO})='+Dt3+'';Crpe2.WindowState:=wsMaximized;Crpe2.WindowButtonBar.SearchBtn := True;Crpe2.Output := toWindow;Crpe2.DiscardSavedData;Crpe2.Refresh;Crpe2.execute;end;

Depois chamando no botão:

 

procedure TFormParcReceber.BitBtn1Click(Sender: TObject);beginNome_da_proceduire();end;

Se quiser ler sobre procedure pode ver este link, ou sobre function este link.

[conecty 0]

Rapaz valeu mesmo pela dica, mim permita mais uma duvida !!!só que nesta procedrure as linhas:Crpe2.ReportName:='C:\SGE\Relátorio\alu_aniversario.rpt';Crpe2.Formulas[Crpe1.Formulas.IndexOf('dia')].Formula.Text :='"'+ 'Mês '+Dt3+' de '+dm.ano+'"';Crpe2.Selection.Formula.Text := 'month({PFISICA.PFISICA_NASCIMENTO})='+Dt1+' and {TURMA_ALUNO.TURMA_ALUNO_ANO}='+DT2+''; // day({PFISICA.PFISICA_NASCIMENTO})='+Dt3+''; e os edits podem ser prenchidos com outros dados por isso pensei em uma function não seu se estou pensando logico, pois sou novo em function e proceduregrato !!!

[thalesoli 0]

Procedure's são conjuntos de instruções que são somente executadas

ex:

procedure alerta(mensagem: String);begin  ShowMessage(Mensagem);end;

Function's são conjuntos de instruções que no final retornam algum valor para quem chamou ela

ex:

function Quadrado(Numero: Double):Double;begin  Result := Numero * Numero;end;