Configurações Regionais no Delphi

21/11/2005

3

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.


Responder

Posts

24/11/2005

Sabado

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


Responder

25/11/2005

Edilcimar

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


Responder

25/11/2005

Aprendiz_ce

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.


Responder

25/11/2005

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 Data
if not Is4DigitYear then begin
showmessage(´O formato de data é inválido. Verifique´);
Application.Terminate;
end;


Responder

28/11/2005

Aprendiz_ce

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.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira