Configurações Regionais no Delphi
21/11/2005
0
Grato.
Aprendiz_ce
Posts
24/11/2005
Sabado
25/11/2005
Edilcimar
DecimalSeparator := ´.´;
ShortDateFormat := ´DD/MM/YYYY´;
DateSeparator := ´/´;
e funciona normalmente
25/11/2005
Aprendiz_ce
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.
25/11/2005
Netosdr
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;
28/11/2005
Aprendiz_ce
netodsr,
Gostei! Fica bem melhor assim.
Confesso que vou adotar essa sua dica.
Obrigado e um forte abraço.
Clique aqui para fazer login e interagir na Comunidade :)