Vamos iniciar incluindo algumas procedures na nossa class do formulário criado.
Listagem 1: Declaração das procedures
type
TForm1 = class(TForm)
private
{ Private declarations }
procedure ExibirSeparadorData;
procedure ExibirFormatoDataPequeno;
procedure ExibirFormatoDataGrande;
public
{ Public declarations }
end;
Neste momento vamos implementar as mesmas usando o CTRL + SHIF + C, em cima de uma das declarações. Agora vamos a implementação das procedures
Objetivo: Modificar o separador “/” por “-”
Listagem 2: Implementação da procedure ExibirSeparadorData
procedure TForm1.ExibirSeparadorData;
begin
ShowMessage('Atual DateSeparator : ' + DateToStr(Now));
DateSeparator := '-';
ShowMessage('Modificado DateSeparator : ' + DateToStr(Now));
end;
Objetivo: Modificar o formato curto da Data
Listagem 3: Implementação da procedure ExibirFormatoDataPequeno
procedure TForm1.ExibirFormatoDataPequeno;
begin
ShowMessage('Atual ShortDateFormat : ' + DateToStr(Now));
ShortDateFormat := 'yyyy-mm-dd';
ShowMessage('Modificado ShortDateFormat : ' + DateToStr(Now));
end;
Objetivo: Modificar o formato longo da Data
Listagem 4: Implementação da procedure ExibirFormatoDataGrande
procedure TForm1.ExibirFormatoDataGrande;
var
DataAtual : TDateTime;
NovoFormato : string;
begin
DataAtual := StrToDate('12/01/2012');
// Exibindo Normal
DateTimeToString(NovoFormato, 'dddddd', DataAtual);
ShowMessage('12/01/2012 usando original = '+NovoFormato);
// Exibindo Modificado
LongDateFormat := 'dddd dd ''de'' mmmm yyyy';
DateTimeToString(NovoFormato, 'dddddd', DataAtual);
ShowMessage('12/01/2012 usando novo formato = '+NovoFormato);
end;
Agora para usarmos as procedures vamos fazer de maneira bem simples, coloque um TButton, e no evento onClick do mesmo implemente a chamada de todas as procedures, o problema é que você irá ver diversos ShowMessages, se preferir faça um de cada vez.Listagem 5: Implementação do evento onClick do TButton
procedure TForm1.Button1Click(Sender: TObject);
begin
ExibirSeparadorData;
ExibirFormatoDataPequeno;
ExibirFormatoDataGrande;
end;
Desta forma podemos trabalhar com diversos Bancos de Dados, sem nos preocupar com o formato de data que iremos passar pra ele, por exemplo, o mySQL usa 2012-01-12, já o Firebird usa 12.01.2012. Resolvendo assim problemas de conversos e formações excessivas em nosso código. Fico por aqui e até a próxima.
Um abraço
Wesley Y
