Os valores iniciais dessas variáveis são obtidos a partir do registro do sistema usando a função GetLocaleInfo na API Win32, e as alterações realizadas nessas variáveis só terão efeito em nossa aplicação, não alterando o comportamento no restante do sistema operacional.
Essas variáveis são:
DecimalSeparator: separador decimal para números
ThousandSeparator: separador de milhar em números
CurrencyString: prefixo para valores monetários (R$)
CurrencyDecimals: quantidade de casas decimais em valores monetários
DateSeparator: separador para datas (/)
TimeSeparator: separador para horas (:)
TimeAMString: sufixo para horas "am", quando não se trabalha com o formato de 24h
TimePMString: sufixo para horas "pm"
ShortDateFormat: formato para datas abreviadas (07/05/09)
LongDateFormat: formato para datas por extenso (quinta-feira, 07 de maio de 2009)
ShortTimeFormat: formato abreviado para horas (08:53)
LongTimeFormat: formato longo para horas (08:53:35)
ShotMonthNames: nomes abreviados dos meses. Indexado de 1 a 12.
Usa-se ShortMonthNames[3], retornando "mar" (março), por exemplo
LongMonthNames: nomes dos meses por extenso. Indexado de 1 a 12.
Usa-se LongMonthNames[6], retornando "junho", por exemplo
ShortDayNames: nomes abreviados dos dias da semana. Indexado de 1 a 7.
Usa-se ShortDayNames[1], retornando "dom" (domingo), por exemplo
LongDayNames: nomes dos dias da semana por extenso. Indexado de 1 a 7
Usa-se LongDayNames[2], retornando "segunda-feira", por exemplo.
Abra o Delphi e crie um novo projeto através do menu File -> New -> VCL Forms Application - Delphi, e altere as propriedade do Form:
Caption = CONFIGURAÇÕES REGIONAIS
Name = Frm_Principal
Position = poDesktopCenter
Caption = CONFIGURAÇÕES REGIONAIS
Name = Frm_Principal
Position = poDesktopCenter
Adicione um TMemo disponível na paleta Standard do Delphi (Tool Palette -> Standard: TMemo) e altere suas propriedades conforme baixo:
PROPERTIES TMEMO1:
Align = alClient
ScrollBarss = ssVertical
Clique na barra de título do formulário para selecioná-lo, acesse o evento onCreate do formulário (Object Inspector -> Guia Events: onCreate), e adicione o código abaixo:
procedure TFrm_Principal.FormCreate(Sender: TObject);
var
Ind: Integer;
Txt: String;
begin
Memo1.Lines.Clear;
Memo1.Lines.Add('');
Memo1.Lines.Add('CurrencyString...: ' + CurrencyString);
Memo1.Lines.Add('ThousandSeparator: ' + ThousandSeparator);
Memo1.Lines.Add('DecimalSeparator.: ' + DecimalSeparator);
Memo1.Lines.Add('CurrencyDecimals.: ' + IntToStr(CurrencyDecimals));
Memo1.Lines.Add('');
Memo1.Lines.Add('DateSeparator..: ' + DateSeparator);
Memo1.Lines.Add('ShortDateFormat: ' + ShortDateFormat + ' (' +
FormatDateTime(ShortDateFormat, Date) + ')');
Memo1.Lines.Add('LongDateFormat.: ' + LongDateFormat + ' (' +
FormatDateTime(LongDateFormat, Date) + ')');
Memo1.Lines.Add('TimeSeparator..: ' + TimeSeparator);
Memo1.Lines.Add('TimeAMString...: ' + TimeAMString);
Memo1.Lines.Add('TimePMString...: ' + TimePMString);
Memo1.Lines.Add('ShortTimeFormat: ' + ShortTimeFormat);
Memo1.Lines.Add('LongTimeFormat.: ' + LongTimeFormat);
Txt := StringOfChar(' ', 15);
Memo1.Lines.Add('');
Memo1.Lines.Add('ShortMonthNames.: ');
Memo1.Lines.Add('');
for Ind := 1 to 12 do
begin
Memo1.Lines.Add(Txt + ShortMonthNames[Ind]);
end;
Memo1.Lines.Add('');
Memo1.Lines.Add('LongMonthNames.: ');
Memo1.Lines.Add('');
for Ind := 1 to 12 do
begin
Memo1.Lines.Add(Txt + LongMonthNames[Ind]);
end;
Memo1.Lines.Add('');
Memo1.Lines.Add('ShortDayNames.: ');
Memo1.Lines.Add('');
for Ind := 1 to 7 do
begin
Memo1.Lines.Add(Txt + ShortDayNames[Ind]);
end;
Memo1.Lines.Add('');
Memo1.Lines.Add('LongDayNames.: ');
Memo1.Lines.Add('');
for Ind := 1 to 7 do
begin
Memo1.Lines.Add(Txt + LongDayNames[Ind]);
end;
end;
Salve as alterações (File -> Save All), coloque o nome uPrincipal para Unit e Principal para o nome do projeto.
Pronto, execute a aplicação (menu Run -> Run ou Pressione F9) e veja o resultado.
Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】
Nenhum comentário:
Postar um comentário