Pessoal bom dia .
Estou tendo problemas com conversão ,veja o exemplo abaixo :
Pelo trecho do programa abaixo eu gostaria q meu label recebesse
a seguinte forma de data '01/12/2005' , porem ele está recebendo
'1/12/2005' .. gostaria q ,independente do formato adotado pelo sistema
operacional,
meu programa utilizase os formatos inseridos na procedure Configurar ...
porem não acontece nada ..
alguem pode me dar uma ajuda ? obrigrado.
trecho do programa :
unit teste;
.....
implementation
{$R *.dfm}
var
Formatos : TFormatSettings;
....
procedure TForm1.Configurar;
begin
GetLocaleFormatSettings(1046, Formatos);
Formatos.ShortDateFormat := 'DD/MM/YYYY';
Formatos.DateSeparator := '/';
Formatos.NegCurrFormat := 12;
Formatos.DecimalSeparator := ',';
Formatos.ThousandSeparator:= '.';
Formatos.CurrencyDecimals := 2;
Formatos.CurrencyFormat := 2;
Formatos.CurrencyString := 'R$';
end;
procedure TForm1.Button1Click(Sender: TObject)
begin
configurar;
label1.Caption := DateToStr(Now,Formatos);
end;
....
end.
------------------------
Les mondes virtuels vous connaissez ?
Telechargez le navigateur 3D et visitez des centaines de mondes virtuels
gratuitement !
http://www.activeworlds.fr
------------------------
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
