Ola Adriano Bom Dia ... Obrigado pela dica ... Ontem fiz o seguinte : coloqueis dos edits no form e um botão ... e coloquei o seguinte codigo : SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL, PChar(Edit1.Text)); SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STHOUSAND, PChar(Edit2.Text ));
O programa nao da mensagem de erro ... nem ao compilar e nem ao executa-lo ... mas tabem não faz as aletraçoes nas conffigurações do windows ... :-( E fiz certo o comando ? seria isso mesmo ? Alguem teria mais uma dica ... Grato Henri V. Alves > Em 27/08/07, Adriano Santos <[EMAIL PROTECTED]> escreveu: > > > > > > As duas dicas acima são pra usar dentro do seu sistema. Não será > > alterado no Windows. > > Pra gravar no Windows use: > > > > //Data curta > > procedure TForm1.Button4Click(Sender: TObject); > > var > > vDataCurta : String; > > begin > > SetLength(vDataCurta,12); > > > > > > GetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,PChar(vDataCurta),12); > > end; > > //Data longa > > procedure TForm1.Button22Click(Sender: TObject); > > begin > > > > SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SYSTEM_DEFAULT,Pchar( > > Edit5.Text)); > > end; > > //Decimal e milhar > > procedure TForm1.Button5Click(Sender: TObject); > > begin > > SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STHOUSAND, SeuEdit.Text); > > SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SDECIMAL, SeuEdit.Text); > > end; > > > > Da uma estudada legal em SetLocaleInfo e GetLocaleInfo. > > > > Abs > > > > -- > > Adriano Santos > > Desenvolvedor Delphi desde 1998. Professor e programador PHP. > > Bacharel em Comunicação Social pela Universidade Cruzeiro do Sul, SP. > > > > Colunista e Comissão Editorial da revista ClubeDelphi. > > http://www.delphitodelphi.blogspot.com > > > > [As partes desta mensagem que não continham texto foram removidas]
