Configurações Regionais no Delphi
No Form principal do meu projeto, faço a seguinte definição: ShortDateFormat := ´dd/mm/yyyy´, mas o sistema não transforma a data para este padrão. Por que? Como faço para o proprio aplicativo fazer isto automaticamente?
Grato.
Grato.
Aprendiz_ce
Curtidas 0
Respostas
Sabado
21/11/2005
Precisa alterar as opções regionais no painel de controle do windows.
GOSTEI 0
Edilcimar
21/11/2005
deve estar havendo algum problema com o seu computador pois eu coloco
DecimalSeparator := ´.´;
ShortDateFormat := ´DD/MM/YYYY´;
DateSeparator := ´/´;
e funciona normalmente
DecimalSeparator := ´.´;
ShortDateFormat := ´DD/MM/YYYY´;
DateSeparator := ´/´;
e funciona normalmente
GOSTEI 0
Aprendiz_ce
21/11/2005
deve estar havendo algum problema com o seu computador pois eu coloco
DecimalSeparator := ´.´;
ShortDateFormat := ´DD/MM/YYYY´;
DateSeparator := ´/´;
e funciona normalmente
Olá Edilcimar,
Este problema ocorre em qualquer estação aonde distribuio o aplicativo. Simplimenta não funciona. O que pode ser?
Obrigado mais um vez pela sua atenção.
GOSTEI 0
Netosdr
21/11/2005
Caro colega, utilizo assim em meus sistemas. Na abertura do sistema ele verifica se a data do sistema está configurada para 4 digitos. Se não está ele não deixa o usuário acessar o sistema.
Declare essa função na unit:
function Is4DigitYear: Boolean;
begin
Result:=(Pos(´yyyy´,ShortDateFormat)>0);
end;
no OnShow do FormPrincipal coloque:
//Verificando formatacao de Data
if not Is4DigitYear then begin
showmessage(´O formato de data é inválido. Verifique´);
Application.Terminate;
end;
Declare essa função na unit:
function Is4DigitYear: Boolean;
begin
Result:=(Pos(´yyyy´,ShortDateFormat)>0);
end;
no OnShow do FormPrincipal coloque:
//Verificando formatacao de Data
if not Is4DigitYear then begin
showmessage(´O formato de data é inválido. Verifique´);
Application.Terminate;
end;
GOSTEI 0
Aprendiz_ce
21/11/2005
Caro colega, utilizo assim em meus sistemas. Na abertura do sistema ele verifica se a data do sistema está configurada para 4 digitos. Se não está ele não deixa o usuário acessar o sistema.
Declare essa função na unit:
function Is4DigitYear: Boolean;
begin
Result:=(Pos(´yyyy´,ShortDateFormat)>0);
end;
no OnShow do FormPrincipal coloque:
//Verificando formatacao de Data
if not Is4DigitYear then begin
showmessage(´O formato de data é inválido. Verifique´);
Application.Terminate;
end;
netodsr,
Gostei! Fica bem melhor assim.
Confesso que vou adotar essa sua dica.
Obrigado e um forte abraço.
GOSTEI 0