Olá galera, nesta Quick Tips, irei mostrar como podemos integrar
com o compilador do Delphi, informando para ele WARNING, HINT, ERRO, FATAL, através de diretivas de compilação a
mais conhecida é a {$R *.dfm} presente em todos os forms criados em Delphi
Veremos a diretiva Message,
permite informarmos pelo código fonte, avisos e erros para o compilador, o
valor default é o HINT. Os tipos de
mensagem (HINT, WARNING, ERROR, FATAL) são opcionais. Caso nenhum tipo seja
informado, como dito antes, o tipo default assumido é o HINT. A sequencia do texto é necessária e deve sempre estar entre
aspas simples.
unit
uFrmMensagensCompilador;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs,
StdCtrls, Buttons;
type
TFrmMensagensCompilador
= class(TForm)
BitBtn1:
TBitBtn;
private
{
Private declarations }
public
{ Public declarations }
end;
var
FrmMensagensCompilador:
TFrmMensagensCompilador;
Implementation
{$R *.dfm}
{Exibindo uma mensagem padrão que
seria o HINT}
{$Message 'Usando mensagem sem
HINT'}
{Exibindo uma mensagem do tipo
HINT}
{$Message Hint 'Usando mensagem com
HINT'}
{Exibindo uma mensagem do tipo
Warning}
{$Message Warn 'Usando Mensagem Warning
- Atenção seu sistema esta funcionando, mas com variáveis sem uso'}
{Exibindo uma mensagem do tipo
ERROR}
{$Message Error 'Usando mensagem de
erro, o sistema não compila'}
{Exibindo uma mensagem do tipo
FATAL}
{$Message Fatal 'Usando Mensagem
Fatal, o sistema não compila'}
end.
Com esta diretiva de compilação($Message) podemos
trabalhar diretamente com o nosso compilador, assim como ele informa mensagens
de Warning, ou até mesmo de erro, podemos também criar nossas próprias
mensagens.
Mas par que isso?
Imagina que você
queria documentar, ou chamar a atenção na hora de processar uma determinada
Unit, ou método, por exemplo. Até mesmo na hora de compilarmos um pacote,
informarmos alguma coisa para quem esteja utilizando este pacote, ou unit.
Existem muitas outras diretivas de compilação, este assunto é bem
escasso na grande rede (Internet), o melhor local ainda para procurar este tipo
de informação entre outras é sempre o bom e velho HELP, que no Delphi 2010,
esta fantástico, com exemplos, explicações mais detalhadas e claras, vale apena
ver o HELP, de todas as ferramentas, ainda mais de uma tão grande quanto o
Delphi.
Fico por aqui ate à próxima Quick Tips.
Um abraço
Wesley Y
wyamazack@rwsolution.com.br