validar campo importe en DBgrid

[sargento elias]

Buenos dias.

Me podeis decir como en un campo del Dbgrid(decimal en el ib) puedo hacer para que no me meta mas de una coma?y que la coma no sea el primer caracter?

[sargento elias]

Este es el codigo que he utilizado






Código SQL [-] (http://www.clubdelphi.com/foros/#)
if (( key < '0' ) or (key > '9')) and (key <> #8) and (key <> ',' ) then
key:=#0;
if grid.SelectedIndex = 5 then
begin
if (pos(',',grid.selectedfield.text)=0) then
coma:=false
else
coma:=true;
if (key = ',' ) and (self.grid.selectedfield.text = '') then
key :=#0;
if ((coma=true) and (key = ',')) then
key :=#0;
end;
end;












El problema es que ya tengo un dato en ese campo ejem. 10,20 Entonces al modificarlo el self.grid.selectedfield.text ='' nunca esta vacio y claro , y me deja meter todas las comas que quiera. Alguna SOlucion?