Mas como ele vai saber qual mes eh o atual???
Gabriel Moricz
--- Em delphi-br@yahoogrupos.com.br, Joao Morais <[EMAIL PROTECTED]>
escreveu
> Gabriel Moricz wrote:
>
> >
> > Ola..
> >
> > Estou tendo o seguinte problema..
> >
> > estou precisando enviar mensagens no formato mmmm d, yyyy.
> >
> > Ate então formato a data e tudo bem, só que em horas envio em
> > Portugues e outras horas em ingles..
> >
> > o problema eh que minha maquina esta com configurações regionais
para
> > Portugues BR, então minhas mensagens saem hora assim e hora o
assado:
> >
> > Portugues
> > Março 04, 2005
> >
> > Ingles
> > Março 04, 2005
> >
> > Poxa, ai não fica legal..Quero que o ingles saia March 04, 2005
> >
> > Achei algumas coisas sobre SysLocale, mas não estou conseguindo
que
> > ele assuma as configurações em Ingles
> >
> > codigo
> > //Para Ingles
> > SysLocale.DefaultLCID := 1033;
> > SysLocale.PriLangID := 9;
> > SysLocale.SubLangID := 1;
> >
> > //Para Portugues
> > SysLocale.DefaultLCID := 1046;
> > SysLocale.PriLangID := 22;
> > SysLocale.SubLangID := 1;
> >
> >
> > O que esta faltando?? è SysLocale que devo usar mesmo??
> > Vcs tem alguma outra ideia???
>
> Na verdade você precisa alterar o conteúdo do array LongMonthNames.
Vai
> uma sugestão (vê se dá certo, não tenho Delphi aqui pra testar)
>
> const
> LongMonthsPT: array[1..12] of string = (
> 'Janeiro', 'Fevereiro', ... );
> LongMonthsEN: array[1..12] of string = (
> 'January', 'February', ... );
> var
> OldLongMonthNames: array[1..12] of string;
> begin
> OldLongMonthNames:=LongMonthNames;
> try
> ...
>
> { para passar para portugues }
> LongMonthNames:=LongMonthsPT;
>
> ...
>
> { para passar para inglês }
> LongMonthNames:=LongMonthsEN;
>
> finally
> LongMonthNames:=OldLongMonthNames;
> end;
> end;
>
> Para nomes curtos, basta usar o mesmo esquema para alterar o array
> ShortMonthNames.
>
>
> --
> João Morais
--
<<<<< 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] ou [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
