Você também pode configurar essas variáveis internamente. Dessa forma
eu resolvi todos os problemas que tinha com configuração de máquina de
usuário:
No OnCreate do seu formulário principal:
// uses ..., SysUtils, ...;
procedure TfmMain.FormCreate(Sender: TObject);
begin
CurrencyString := 'R$';
CurrencyFormat := 0;
NegCurrFormat := 0;
ThousandSeparator := '.';
DecimalSeparator := ',';
CurrencyDecimals := 2;
DateSeparator := '/';
ShortDateFormat := 'dd/MM/yyyy';
LongDateFormat := 'dddd, d' + StrChar(' de ') + 'MMMM' + StrChar('
de ') + 'yyyy';
TimeSeparator := ':';
TimeAMString := '';
TimePMString := '';
ShortTimeFormat := 'hh:mm';
LongTimeFormat := 'hh:mm:ss';
ListSeparator := ';';
end;
--- Em delphi-br@yahoogrupos.com.br, "Claudio Marconi" <[EMAIL PROTECTED]>
escreveu
>
> Voce pode tomar a decisão correta de como manipular essa funcão através
> da variabel global de ambiente: DecimalSeparator
>
> nesta variável ela traz o que está definido no Reginal Settins( no
painel de
> controle).
>
> Em 04/03/08, Joel Alexandre <[EMAIL PROTECTED]> escreveu:
> >
> > Senhores, boa noite.
> >
> > Deixa eu fazer uma pequena consultoria aos amigos. É o seguinte,
> > sempre tive problemas com pontuação de casas decimais. Funções como
> > StrToCurr da Sysutils funciona bem se o usuário define (. Ponto) nas
> > Configurações Regionais do Painel de controle do Windows. Se o uruário
> > define vírgula esta funçao, pelo menos comigo, já não funcionam.
> > Gostaria de perguntar aos senhores como evitar este problema ou
melhor,
> > como trabalhar com este tipo de configuração que o usuario faz?
> >
> > Obrigado a todos
> > Joel
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
>
> --
> Cláudio Marconi
> Delphi/DirectShow Developer
> 55 61 8406-6451
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
