F�rum Limitar n� de virgulas em celulas do DBGrid #386390

15/09/2010

Gostaria de saber se h� alguma maneira de limitar o n� de virgulas por c�lula do DBGrid para 1. Por�m n�o quero que isto seja feito atrav�s da propriedade DisplayFormat do ADOTable (componente de acesso a dados que utilizo), pois quando utilizo o DisplayFormat o n� 1 se torna 1,00 e quero na verdade que 1 continue sendo mostrado como 1.

Consegui limitar a virgula quando colocada em um edit atrav�s de um bot�o e tamb�m atrav�s do OnKeyPress de um Edit, por�m como fazer isso para as colunas de um DBGrid? Devo utilizar o comando DBGrid1.SelectedIndex = Index da coluna selecionada?

Aqui v�o os c�digos feitos para o Edit:

Inserindo a virgula em um Edit atrav�s de um bot�o

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Pos(DecimalSeparator, Edit1.Text) = 0 then
    Edit1.Text := Edit1.Text + DecimalSeparator
  else
    sndPlaySound('Default',SND_ASYNC);

  //Declarar mmSystem no uses da unit
end;

-------------------------------------- // --------------------------------------

Inserindo a virgula digitando diretamente no Edit

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  if (key in [',']) and (Pos(DecimalSeparator, Edit3.Text) <> 0) then
    key := #0;
end;

Alguma dica?

Thiago Nobre

Curtir t�pico

+ 0

Responder

Posts

15/09/2010

Wilson Junior

Coloque no seu DisplayFormat ###,##0.### assim ele ir� mostrar zero quando n�o tiver nada, e somente mostrar� as casa decimais se existir, e tamb�m n�o deixa incluir mais de um separador de decimal.

Espero ter colaborado.

Responder

Gostei + 0

15/09/2010

Thiago Nobre

Posso colocar no DisplayFormat assim: 0.###

Sim ou n�o?

Responder

Gostei + 0

15/09/2010

Wilson Junior

Pode, sem problemas nenhum.

Responder

Gostei + 0

15/09/2010

Thiago Nobre

Pode, sem problemas nenhum.

Valeu ae cara, assim que eu tiver tempo eu vou testar aqui e te retorno uma resposta!

Abra�o.

Responder

Gostei + 0

16/09/2010

Thiago Nobre

Wilson, eu testei aqui e formatou sim, mas quando eu colocava mais de uma virgula ele n�o formatava, mas aparecia uma mensagem que dizia: 'N�Com+de1Virgula' is not a valid floating point for field 'CampoSelecionado' e n�o deixa o usu�rio mudar de campo em quanto ele n�o corrigir. N�o sei se isso � por causa do Display Format, mas j� funciona, por�m mesmo assim eu gostaria de saber se tem como quando o cara pressionar a virgula em o campo que j� tem ela, ela n�o chegasse nem a aparecer no campo.

Obrigado pela ajuda e se n�o tiver como n�o tem problema, pois assim j� est� funcionando e � s� por curiosidade mesmo que eu queria saber.

Responder

Gostei + 0

16/09/2010

Wilson Junior

Na propriedade EditFormt coloque #####0###

Espero ter colaborado.

Responder

Gostei + 0

16/09/2010

Thiago Nobre

Na propriedade EditFormt coloque #####0###

Espero ter colaborado.

Colaborou e muito!

Na EditFormt � assim mesmo #####0### ?

N�o seria assim #####0.###, com o ponto?

Responder

Gostei + 0

16/09/2010

Wilson Junior

Isto mesmo. Me desculpe.

Responder

Gostei + 0

16/09/2010

Thiago Nobre

Beleza cara, vlw ae!

Responder

Gostei + 0