Fórum Configurações regionais #169023
12/07/2003
0
como eu posso fazer para saber como está configurada o formato da data nas configurações regionais? Sabendo isso, será q tem como eu alterar essa configuração via delphi?
valeu.
valeu.
Brunoroot
Curtir tópico
+ 0
Responder
Posts
12/07/2003
Cefernan
Olá Bruno,
tem como ver as configurações regionais sim, bem como alterá-las. Altere o valor destas variáveis e a configuração regional para o seu programa será a que você setou. Vai aí uma lista destas variáveis:
var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;
var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;
var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;
var TListSeparator: Char;
Um pequeno exemplo:
Quero alterar a data para o ano com 4 digitos.
Inclua o seguinte código no seu projeto (.dpr):
ShortDateFormat := ´mm/dd/yyyy´;
Lembre-se de incluir a unit SysUtils nas cláusulas uses.
Era que lhe ajude.
[]´s
tem como ver as configurações regionais sim, bem como alterá-las. Altere o valor destas variáveis e a configuração regional para o seu programa será a que você setou. Vai aí uma lista destas variáveis:
var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;
var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;
var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;
var TListSeparator: Char;
Um pequeno exemplo:
Quero alterar a data para o ano com 4 digitos.
Inclua o seguinte código no seu projeto (.dpr):
ShortDateFormat := ´mm/dd/yyyy´;
Lembre-se de incluir a unit SysUtils nas cláusulas uses.
Era que lhe ajude.
[]´s
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)