Res: [delphi-br] Re: Como subtrair horas corretas

2010-08-27 Por tôpico Eny Urias
Porque vc não usa IncHour()?

Adiciona a unit DateUtils... 
--
Eny Trova Urias

Somos o que repetitivamente fazemos, portanto, a excelência não é um feito, 
mas 
um hábito- Aristóteles






De: Roni Rodrigo ronirodr...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13
Assunto: Re: [delphi-br] Re: Como subtrair horas corretas

  
mas então... como eu disse... não seria 0 hora do dia seguinte?
converte teu 24:00 pra 0 e incrementa 1 dia...
ai vc faz o calculo normalmente...
o/

Em 26/08/2010 22:00, alexsandro_qs escreveu:
 É o problema que estou tendo aqui é isso, pois o usuário digitar
 Inicial : 07:30
 Final: 24:00
 o resultado teria que dar : 16:30

 Só que como ele não reconhece o 24:00, não faz o calculo.

 --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo 
 ronirodr...@... escreveu
 
  cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai
  até de 0:00 até 23:59 ...
  o/
 
  Em 26/08/2010 18:48, alexsandro_qs escreveu:
   Boa noite pessoal;
  
   Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um tempinho
   atrás, estava tudo ok. Só que agora pintou um problema:
  
   era feito assim:
   ---
   var
   h1, h2, resultado : TDateTime;
   begin
  
   d1:= StrToTime(adotDatainicial.Value);
   d2:= StrToTime(adotDatainicia2.Value);
   resultado := d2 - d1;
  
   ---
   Só que quando é digitado 24:00, esse valor não é reconhecido
   como horas ai os erros.
  
   Alguém poderia me ajudar com isso ?
  
   OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o 
 outro)
  
   Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60
 

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]



Res: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010

2010-08-27 Por tôpico Lucas Eduardo Barao Neves
Bom dia, Alan, já tentei isso também e ainda assim não dá certo.

Lucas






De: Alan ricardo Souza alanr.so...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 26 de Agosto de 2010 17:06:01
Assunto: Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010

   
Boa tarde,
 
Ao invés de colocar a virgula no dbedit tente colocar no displayformat do 
clientdataset (obs cito o clientdataset mas o mydac tambem da por uso o corelab 
da devart) que vc nescessita pois normalmente campo decimal é somente colocar a 
mascara no display format ex(###,##0.00).

--- Em qui, 26/8/10, Eduardo Silva dos Santos eduardo@gmail.com escreveu:

De: Eduardo Silva dos Santos eduardo@gmail.com
Assunto: Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 26 de Agosto de 2010, 12:14

Lucas, não uso DbEdit mais vou fazer um teste aqui. Qual versão do MyDAC
você ta usando?

Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...

Em 26 de agosto de 2010 08:33, Lucas Eduardo Barao Neves 
lucas_del...@yahoo.com.br escreveu:



 Bom dia pessoal.

 Estou com um problema com campos do tipo float e DBEdit no Delphi 2010 com
 MySQL5.1.

 O problema é o seguinte: crio meu campo no MySQL como float de 16,2. Na
 aplicação coloco um dbedit e quando tento preenchê-lo colocando vírgula
 como
 separador decimal ele dá o seguinte erro:

 ---
 Project raised exception class EDatabaseError with message ''1,25' is not a

 valid floating point value for field 'Valor Gasolina''.
 ---

 Se eu apagar o valor e digitar ponto como separador, por ex. 1.25, ele não
 aceita, aliás, o dbedit nem deixa eu digitar o '.', aceitando somente a
 vírgula.

 Alguém saberia por que isso acontece e como posso resolver?

 Para referência, estou usando os componentes MyDAC.

 Grato a todos,

 Lucas Neves

 [As partes desta mensagem que não continham texto foram removidas]

  


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]



Re: Res: [delphi-br] Re: Como subtrair horas corretas

2010-08-27 Por tôpico Roni Rodrigo
de qualquer forma, 24:00 não é uma hora válida mesmo... vai ter q 
converter pra 00:00 ai se incrementar a hora vai simplesmente passar 
a ser 01:00 do dia atual.
por isso, ao invés de incrementar a hora, incrementa o dia... pode usar 
o IncDay()... ou somar 1 na data
o/


Em 27/08/2010 08:53, Eny Urias escreveu:
 Porque vc não usa IncHour()?

 Adiciona a unit DateUtils...
 --
 Eny Trova Urias

 Somos o que repetitivamente fazemos, portanto, a excelência não é um 
 feito, mas
 um hábito- Aristóteles

 
De: Roni Rodrigo ronirodr...@yahoo.com.br 
mailto:ronirodrigo%40yahoo.com.br
 Para: delphi-br@yahoogrupos.com.br mailto:delphi-br%40yahoogrupos.com.br
 Enviadas: Quinta-feira, 26 de Agosto de 2010 22:15:13
 Assunto: Re: [delphi-br] Re: Como subtrair horas corretas

 mas então... como eu disse... não seria 0 hora do dia seguinte?
 converte teu 24:00 pra 0 e incrementa 1 dia...
 ai vc faz o calculo normalmente...
 o/

 Em 26/08/2010 22:00, alexsandro_qs escreveu:
  É o problema que estou tendo aqui é isso, pois o usuário digitar
  Inicial : 07:30
  Final: 24:00
  o resultado teria que dar : 16:30
 
  Só que como ele não reconhece o 24:00, não faz o calculo.
 
  --- Em delphi-br@yahoogrupos.com.br 
 mailto:delphi-br%40yahoogrupos.com.br
  mailto:delphi-br%40yahoogrupos.com.br, Roni Rodrigo
  ronirodr...@... escreveu
  
   cara... acredito que 24:00 não seja uma hora válida mesmo... o dia vai
   até de 0:00 até 23:59 ...
   o/
  
   Em 26/08/2010 18:48, alexsandro_qs escreveu:
Boa noite pessoal;
   
Eu tinha feito uma forma de subtrair 2 horas aqui, e até à um 
 tempinho
atrás, estava tudo ok. Só que agora pintou um problema:
   
era feito assim:
---
var
h1, h2, resultado : TDateTime;
begin
   
d1:= StrToTime(adotDatainicial.Value);
d2:= StrToTime(adotDatainicia2.Value);
resultado := d2 - d1;
   
---
Só que quando é digitado 24:00, esse valor não é reconhecido
como horas ai os erros.
   
Alguém poderia me ajudar com isso ?
   
OBS.: a hora nunca vai passar de 24:00 ( ou seja de um dia para o
  outro)
   
Ex.: saída 24:00 - entrada 01:00 = 23:00 e não 23:60
  

 [As partes desta mensagem que não continham texto foram removidas]



[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Delphi 2010 ta doido?

2010-08-27 Por tôpico Marcos Alexandre Lemos Rodrigues
Essa migração dos tipos de dados ficou meio chata, mas não tinha opção pra
não perder compatibilidade, mas os benefícios compensam. Ainda mais na era
da Internet e dos apps de multiplos idiomas.

Uma tecnologia do Rad Studio que adorei e não sei porque não emplacou foi o
ECO, muito mais simples e poderoso de se desenvolver do que as alternativas
do VS e do Java.

Em 26 de agosto de 2010 17:24, Clairton clair...@dessis.com.br escreveu:



 se não deu certo ainda tente mudar os pChar para pAnsichar ou ao
 contrario lembro que tive que fazer um monte de teste para consegui que
 as funções da BEMAFI32.DLL funcionassem corretamente.

 Att.:
 Clairton E. Müller

 Em 25/08/2010 19:28, Iran Lima escreveu:

 
 
 
  Mudei tudo pra ANSI e não resolveu ainda
 
  function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao:
 AnsiString;
  Aliquota: AnsiString; TipoQuantidade: AnsiString; Quantidade: AnsiString;
  CasasDecimais: Integer; ValorUnitario: AnsiString; TipoDesconto:
  AnsiString;
  Desconto: AnsiString): Integer; StdCall; External 'BEMAFI32.DLL';
 
  De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br] Em

  nome de Clairton
  Enviada em: terça-feira, 24 de agosto de 2010 18:54
  Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
 delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br

  Assunto: Re: [delphi-br] Delphi 2010 ta doido?
 
  a Declaração das funçoes tbm tem que estar com o Ansi...
 
  function Bematech_FI_VendeItem( Codigo: AnsiString; Descricao:
  AnsiString; Aliquota: AnsiString; TipoQuantidade: AnsiString;
  Quantidade: AnsiString; CasasDecimais: Integer; ValorUnitario:
  AnsiString; TipoDesconto: AnsiString; Desconto: AnsiString): Integer;
  StdCall; External 'BEMAFI32.DLL';
 
  Att.:
 
  Clairton Eloisio Müller
 
  Em 24/08/2010 18:46, Iran Lima escreveu:
  
   Já tentei com pansichar
  
   E nada.
  
   -Mensagem original-
   De: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
   delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
   [mailto:delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
   delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br] Em
   nome de Roni Rodrigo
   Enviada em: terça-feira, 24 de agosto de 2010 18:27
   Para: delphi-br@yahoogrupos.com.br delphi-br%40yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
  delphi-br%40yahoogrupos.com.br delphi-br%2540yahoogrupos.com.br
   Assunto: Re: [delphi-br] Delphi 2010 ta doido?
  
   tenta converter em pansichar...
   ex:
   Bematech_FI_VendeItem(PAnsiChar(codigo), PAnsiChar(descricao),
   PAnsiChar(aliquota)...
  
   Em 24/08/2010 17:01, Iran Lima escreveu:
Gente to com um problema ao passar parâmetros strings no Delphi 2010
 ,
   
Exemplo: Se eu usar um SaveToFile(arquivo.txt) o arquivo gerado fica
   nome
a sem extensão.
   
Outro Exemplo ao chamar o método da Bemafi32.dll
   
Bematech_FI_VendeItem( 'codigo', descricao, aliquota,
   
sTipoQtde, FormatFloat('0', quantidade), iDecimal,
   
FormatFloat('0.00',valorUnitario),
   
sTipoDesconto, FormatFloat('0.00',0) );
   
so vai a primeira letra de cada parâmetro
   
2010-08-24 16:53:57 - Parâmetros: 0|S|I|I|0|2|1|$|0 (Log da
impressora), no
Debug passa tudo blz mas a impressora recebe errado
   
O que pode ser isso???
   



[As partes desta mensagem que não continham texto foram removidas]



Res: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010

2010-08-27 Por tôpico Lucas Eduardo Barao Neves
O problema foi resolvido. Deletei os campos no mySQL e criei novamente. Depois 
exclui os componentes MyQuery e MyDataSource do DataModule, adicionei de novo e 
passou a funcionar...

Vai entender...





De: Alan ricardo Souza alanr.so...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Quinta-feira, 26 de Agosto de 2010 17:06:01
Assunto: Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010

   
Boa tarde,
 
Ao invés de colocar a virgula no dbedit tente colocar no displayformat do 
clientdataset (obs cito o clientdataset mas o mydac tambem da por uso o corelab 
da devart) que vc nescessita pois normalmente campo decimal é somente colocar a 
mascara no display format ex(###,##0.00).

--- Em qui, 26/8/10, Eduardo Silva dos Santos eduardo@gmail.com escreveu:

De: Eduardo Silva dos Santos eduardo@gmail.com
Assunto: Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010
Para: delphi-br@yahoogrupos.com.br
Data: Quinta-feira, 26 de Agosto de 2010, 12:14

Lucas, não uso DbEdit mais vou fazer um teste aqui. Qual versão do MyDAC
você ta usando?

Att,
...
Eduardo Silva dos Santos
DRD SISTEMAS
(27) 3218-4201
(27) 9961-7095
MSN: eduardo@gmail.com
Site: http://www.drdsistemas.com.br/
...

Em 26 de agosto de 2010 08:33, Lucas Eduardo Barao Neves 
lucas_del...@yahoo.com.br escreveu:



 Bom dia pessoal.

 Estou com um problema com campos do tipo float e DBEdit no Delphi 2010 com
 MySQL5.1.

 O problema é o seguinte: crio meu campo no MySQL como float de 16,2. Na
 aplicação coloco um dbedit e quando tento preenchê-lo colocando vírgula
 como
 separador decimal ele dá o seguinte erro:

 ---
 Project raised exception class EDatabaseError with message ''1,25' is not a

 valid floating point value for field 'Valor Gasolina''.
 ---

 Se eu apagar o valor e digitar ponto como separador, por ex. 1.25, ele não
 aceita, aliás, o dbedit nem deixa eu digitar o '.', aceitando somente a
 vírgula.

 Alguém saberia por que isso acontece e como posso resolver?

 Para referência, estou usando os componentes MyDAC.

 Grato a todos,

 Lucas Neves

 [As partes desta mensagem que não continham texto foram removidas]

  


[As partes desta mensagem que não continham texto foram removidas]



-- 
 FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

[As partes desta mensagem que não continham texto foram removidas]


 


  

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] DBGrid - Sempre 1 linha / ClientDataSet - Criar XML incluindo onGetText

2010-08-27 Por tôpico pcedisi
Bom dia a todos do grupo!

Estou precisando da ajuda pra resolver as questões abaixo.

DBgrid: Sempre mostra 1 linha mesmo não havendo registros. Como
evitar isso?

ClientDataSet: Como salvar XML com o texto vindo do evento onGetText ou outra 
forma de fazê-lo? O objetivo é salvar os campos criptografados.


Muito obrigado.

até mais,

Paulo



[delphi-br] ClientDataSet com comportamento estranho

2010-08-27 Por tôpico Ricardo Rocha
Olá a todos, estou enfrentado difícil de solucionar, pelo menos pra mim... Vou 
colocar o código de como estou trabalhando com o clientdataset, quem puder me 
ajudar agradeço.

Resumo do problema: Tenho um formulário de pedido que trabalho com duas tabelas 
no firebird que são: (pedido e pedido_item) eu uso stored procedure para 
insert e update nessas tabelas. No form de cadastro de pedido tenho um dbgrid 
que é adcionado os items do pedido. Quando eu registro um novo pedido ele salva 
noramalmente, ai logo em seguida se eu clicar em localizar um pedido e 
seleciona-lo e logo em seguido clicar em novo, eu começo a inserio o produto 
ele 
puxa os produtos que foi inserido no pedido anterior não estou entendo mais 
nada. Vou postar algus código, se alguém já passou por isso e puder me ajudar. 
Agradeço.

{: Procedure para inserir o pedido e os items} 
procedure TDMPrincipal.InsertPedido;
var
  idPed: Integer;
begin
  // verifica se escolheu produtos
  if cdsPedidoItem.IsEmpty then
  raise Exception.Create('É necessário escolher os produtos!');

idPed:= qSequence.FieldByName('VLRSEQ').AsInteger + 1;

Start;
  // Adiciona o pedido
  try
with spPedido do
begin
  Params[0].AsInteger:= cdsPedidoPED_COD.AsInteger;
  Params[1].AsInteger:= cdsPedidoFUNC_COD.AsInteger;
  Params[2].AsDate:= cdsPedidoPED_DATA.AsDateTime;
  Params[3].AsBCD:= cdsPedidoItemTOTALGERAL.AsVariant;
  Params[4].AsInteger:= cdsPedidoFORN_COD.AsInteger;

  ExecProc;
  Commit;
  //idPed:= Params[4].AsInteger;
end;
  Except
Rollback;
  end;

  // Adiciona os items
  try
Start;
cdsPedidoItem.First;
while not cdsPedidoItem.Eof do
begin
  with spPedidoItem do
  begin
Params[0].AsInteger:= idPed;
Params[1].AsInteger:= cdsPedidoItemPROD_COD.AsInteger;
Params[2].AsInteger:= cdsPedidoItemQUANTIDADE.AsInteger;
Params[3].AsBCD:= cdsPedidoItemVALOR.AsCurrency;
ExecProc;
  end;
  cdsPedidoItem.Next;
end;
Commit;
  Except
DeletePedido(idPed);
Rollback;
  end;
end;

No evendo afterpost do clientdataset eu chamo essa procedure;
No evendo onnewrecord eu para 0 para o código do pedido.


No formulário de pedido tenho os botões de novo salvar alterar localizar

Novo:
  DataSource1.DataSet.Open;
  DataSource1.DataSet.Insert;

Salvar:
  {: salvo as dados se os campos estiverem preenchidos}
  if FieldsWrithe(DataSource1) and (DataSource1.State in [dsEdit, dsInsert]) 
then
  begin
DMPrincipal.cdsPedido.Post;
MessageDlg(MSG_OK, mtInformation, [mbOK], 0);
  end;
  DMPrincipal.cdsPedido.Close;
  DMPrincipal.cdsPedidoItem.Close;

Alterar:
  {: habilita/desabilita os componentes e verifica permissões/restrições }
  if not DataSource1.DataSet.IsEmpty then
  begin
DataSource1.DataSet.Edit;
DataSource2.DataSet.Edit;
EnableDisableControls(True);
  end
  else
  begin
raise Exception.Create('Nenhum pedido foi selecionado!');
  end;

Localizar:
  {: verifica se esta em modo de edição ou inserção}
  if DataSource1.State in [dsEdit, dsInsert] then
case MessageDlg('Deseja salvar as alterações realizados no Cadastro?', 
mtConfirmation, [mbYes,mbNo,mbCancel], 0) of
 mrYes: btnSalvar.Click;
 mrNo: DataSource1.DataSet.Cancel;
end
  else
Application.CreateForm(TfrmBuscaPedido, frmBuscaPedido);
frmBuscaPedido.ShowModal;

Vlw Pessaol... Ajudem ai please

 Ricardo Messias da Silva Rocha
Bacharel em Ciência da Computação


  

[As partes desta mensagem que não continham texto foram removidas]



[delphi-br] KeyEvent em um TAction.OnExecute

2010-08-27 Por tôpico Júlio César Santiago Guiótti
Olá,

tenho uma instância de um TAction criado em tempo de execução.
Queria que este TAction fosse disparado no onKeyUp de um TEdit.

Mas o OnExecute do TAction espera por um TNotifyEvent, enquanto o onkeyUp é
um TKeyEvent.

Alguém sabe como consigo contornar este problema?


Obrigado,
Abraço,
Júlio César Santiago Guiótti


[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] Erro ao abrir TADOQuery

2010-08-27 Por tôpico Diego Garcia
Amigo, mande o código de como vc está atribuindo o comando para o AdoQuery
dinamico, só para ter uma noção...

*Diego Garcia*
Twitter: http://www.twitter.com/drgarcia1986


Em 27 de agosto de 2010 10:44, Jhosef Marks jho...@gmail.com escreveu:



 Tenho uma query com um comando SQL que funciona normalmente.

 Mas quando eu tento passar o mesmo SQL para uma outra query criada
 dinamicamente e tento dar um OPEN. Aparece o seguinte erro:

 *espaço insuficiente de armazenamento para concluir a operação*

 Alguém já passou por isso?

 Att,

 *Jhosef Marks de Carvalho*
 *Blog: **http://www.jhosefmarks.com.br* http://www.jhosefmarks.com.br*
 Jesus está voltando

 *
 *E se o meu povo, que se chama pelo meu nome, se humilhar, e orar, e
 buscar
 a minha face e se converter dos seus maus caminhos, então eu ouvirei dos
 céus, e perdoarei os seus pecados, e sararei a sua terra. (2 Cr 7:14) *

 [As partes desta mensagem que não continham texto foram removidas]

  



[As partes desta mensagem que não continham texto foram removidas]





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010

2010-08-27 Por tôpico Luiz Escobar
Lucas pq e/ou pra que vc esta usando FLOAT ???  
Que campos são esses ?
Será q não seria melhor vc usar DECIMAL 

Apenas um ponto de vista.

[]s
Luiz Escobar


  From: Lucas Eduardo Barao Neves 
  Sent: Friday, August 27, 2010 2:25 PM
  To: delphi-br@yahoogrupos.com.br 
  Subject: Res: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010



  O problema foi resolvido. Deletei os campos no mySQL e criei novamente. 
Depois 
  exclui os componentes MyQuery e MyDataSource do DataModule, adicionei de novo 
e 
  passou a funcionar...

  Vai entender...

  
  De: Alan ricardo Souza alanr.so...@yahoo.com.br
  Para: delphi-br@yahoogrupos.com.br
  Enviadas: Quinta-feira, 26 de Agosto de 2010 17:06:01
  Assunto: Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010

  Boa tarde,

  Ao invés de colocar a virgula no dbedit tente colocar no displayformat do 
  clientdataset (obs cito o clientdataset mas o mydac tambem da por uso o 
corelab 
  da devart) que vc nescessita pois normalmente campo decimal é somente colocar 
a 
  mascara no display format ex(###,##0.00).

  --- Em qui, 26/8/10, Eduardo Silva dos Santos eduardo@gmail.com 
escreveu:

  De: Eduardo Silva dos Santos eduardo@gmail.com
  Assunto: Re: [delphi-br] Problemas com MySQL 5.1 e Delphi 2010
  Para: delphi-br@yahoogrupos.com.br
  Data: Quinta-feira, 26 de Agosto de 2010, 12:14

  Lucas, não uso DbEdit mais vou fazer um teste aqui. Qual versão do MyDAC
  você ta usando?

  Att,
  ...
  Eduardo Silva dos Santos
  DRD SISTEMAS
  (27) 3218-4201
  (27) 9961-7095
  MSN: eduardo@gmail.com
  Site: http://www.drdsistemas.com.br/
  ...

  Em 26 de agosto de 2010 08:33, Lucas Eduardo Barao Neves 
  lucas_del...@yahoo.com.br escreveu:

  
  
   Bom dia pessoal.
  
   Estou com um problema com campos do tipo float e DBEdit no Delphi 2010 com
   MySQL5.1.
  
   O problema é o seguinte: crio meu campo no MySQL como float de 16,2. Na
   aplicação coloco um dbedit e quando tento preenchê-lo colocando vírgula
   como
   separador decimal ele dá o seguinte erro:
  
   ---
   Project raised exception class EDatabaseError with message ''1,25' is not a
  
   valid floating point value for field 'Valor Gasolina''.
   ---
  
   Se eu apagar o valor e digitar ponto como separador, por ex. 1.25, ele não
   aceita, aliás, o dbedit nem deixa eu digitar o '.', aceitando somente a
   vírgula.
  
   Alguém saberia por que isso acontece e como posso resolver?
  
   Para referência, estou usando os componentes MyDAC.
  
   Grato a todos,
  
   Lucas Neves
  
   [As partes desta mensagem que não continham texto foram removidas]
  
   
  

  [As partes desta mensagem que não continham texto foram removidas]

  

  -- 
   FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM 

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



  

[As partes desta mensagem que não continham texto foram removidas]



Re: [delphi-br] DBGrid - Sempre 1 linha / ClientDataSet - Criar XML incluindo onGetText

2010-08-27 Por tôpico Diego Garcia
sobre o xml, use um campo calculado para armazenar o valor que vc manipula
com o onGetText... você esta gerando esse xml como? mandando salvar a partir
do clientdataset mesmo, ou esta escrevendo linha a linha ?

*Diego Garcia*
Twitter: http://www.twitter.com/drgarcia1986
Blog:http://getideia.blogspot.com


Em 27 de agosto de 2010 09:49, pcedisi pced...@gmail.com escreveu:



 Bom dia a todos do grupo!

 Estou precisando da ajuda pra resolver as questões abaixo.

 DBgrid: Sempre mostra 1 linha mesmo não havendo registros. Como
 evitar isso?

 ClientDataSet: Como salvar XML com o texto vindo do evento onGetText ou
 outra forma de fazê-lo? O objetivo é salvar os campos criptografados.

 Muito obrigado.

 até mais,

 Paulo

  



[As partes desta mensagem que não continham texto foram removidas]





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




Re: [delphi-br] KeyEvent em um TAction.OnExecute

2010-08-27 Por tôpico Luciano Bruno
usa assim

edit1onkeyup()
begin
  action.execult(self)
end;

2010/8/27 Júlio César Santiago Guiótti jcsguio...@gmail.com



 Olá,

 tenho uma instância de um TAction criado em tempo de execução.
 Queria que este TAction fosse disparado no onKeyUp de um TEdit.

 Mas o OnExecute do TAction espera por um TNotifyEvent, enquanto o onkeyUp é
 um TKeyEvent.

 Alguém sabe como consigo contornar este problema?

 Obrigado,
 Abraço,
 Júlio César Santiago Guiótti

 [As partes desta mensagem que não continham texto foram removidas]

  




-- 
Luciano S. Bruno
Consultor em TI


[As partes desta mensagem que não continham texto foram removidas]





-- 
 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:
delphi-br-ow...@yahoogrupos.com.br
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:
delphi-br-unsubscr...@yahoogrupos.com.br

* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html




[delphi-br] [off] Evento Dev In Rio 2010

2010-08-27 Por tôpico Dirlei Dionísio
Olá,

Peço licença à moderação do grupo pelo off, mas creio ser de interesse
de muitos.

No próximo dia 9 de outubro (sábado) acontecerá o Dev In Rio 2010, um
evento que reunirá as comunidades de tecnologia mais movimentadas do
Rio de Janeiro. Será um evento independente de linguagens ou
tecnologias, com o único propósito de juntar o que todas elas tem de
melhor e suas comunidades.

Eu estarei presente e sortearei um ingresso entre os leitores do meu
blog. Mais informações aqui:
http://maisquebomcodigo.blogspot.com/2010/08/sorteio-de-ingresso-para-o-dev-in-rio.html

Grande abraço!

--
Dirlei Dionísio
http://MaisQueBomCodigo.blogspot.com