...
Code Block | ||
---|---|---|
| ||
uses uFormValidacao; var form : TFormValidacao; cAutorizacao : String; begin cAutorizacao := Trim(FFormPadraoRHCAGEDRESP.ValorNaTela('AUTORIZACAO')) if (Length(cAutorizacao) < 7) then begin form := TFormValidacao.Create(nil); try form.edAutorizacao.Text := cAutorizacao; if (form.Showmodal = mrok) then FFormPadraoRHCAGEDRESP.ValorParaTela('AUTORIZACAO', form.edAutorizacao.Text) else FFormPadraoRHCAGEDRESP.AddErro(FFormPadraoRHCAGEDRESP.EditorDaColuna('EB_','AUTORIZACAO'), 'Autorização deve ter 7 dígitos'); finally form.free; end; end; end; |
Evidenciando boas práticas
Uso do ShowModal
Para o caso dos script´s para eventos em que se espera um resultado a partir da execução de um formulário, é uma boa prática que esse formulário seja aberto com ShowModal. Sem usar o ShowModal e sim o Show corre o risco do usuário clicar fora da tela e o formulário criado ser sobreposto causando dificuldade ao usuário.Uso do Free
Importante sempre usar o método “Free”, inclusive quando instanciado formulários. O não uso deixa objetos perdidos em memória que podem causar problemas na utilização do sistema.
Para facilitar ainda mais o entendimento, foi produzido um vídeo sobre este conteúdo. Para acessá-lo, utilize o link abaixo:
...