Configura��es Regionais no Delphi

Question

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.

Sabado · Answer

Precisa alterar as op��es regionais no painel de controle do windows....

Edilcimar · Answer

deve estar havendo algum problema com o seu computador pois eu coloco DecimalSeparator := �.�;ShortDateFormat := �DD/MM/YYYY�;DateSeparator := �/�;e funciona normalmente...

Aprendiz_ce · Answer

[quote:2e592b8d9c=�Edilcimar�]deve estar havendo algum problema com o seu computador pois eu coloco DecimalSeparator := �.�;ShortDateFormat := �DD/MM/YYYY�;DateSeparator := �/�;e funciona normalmente[/quote:2e592b8d9c]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....

Netosdr · Answer

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;

Aprendiz_ce · Answer

[quote:006f3b6341=�netosdr�]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 Dataif not Is4DigitYear then begin showmessage(�O formato de data � inv�lido. Verifique�); Application.Terminate;end;[/quote:006f3b6341]netodsr,Gostei! Fica bem melhor assim.Confesso que vou adotar essa sua dica.Obrigado e um forte abra�o....