limitar Número de caracteres de un DBGRid

[georgejg]

Primero Agradecerles a juanlaplata y a roman por sus opiniones fueron de gran importancia.

ahora siguiendo con el ejemplo de roman en el cual utilizaba el Sender.AsInteger o Sender.AsString funcionaba con el primero pero si lo utilizaba en mas de dos validaciones este no lo ejecutaba de la manera adecuada.

al final el Codigo q se utilizo fue el siguiente.

Código Delphi [-]
  
if Query11CANTIDAD.AsString = '' then
   begin
      Raise Exception.Create('El Campo Cantidad No Puede Quedar en Blanco!!');
   end;

if Query11CANTIDAD.AsInteger > 999999999 then
   begin
      Raise Exception.Create('El Numero Maximo de Caracteres es 10!!');
   end;

el primero valida q el campo no quede en blanco y el segundo valida q el numero de caracteres no sea superior a 9

Nuevamente Gracias por sus opiniones.
hasta la Proxima

Saludos...

[laukri]

Hola a todos!
Yo pongo el codigo en el onValidate del campo, y lanzo la exception... pero cuando la capturo?...
Los ubico un poco en la situacion... tengo que hacer un control de stock y quiero verificar que al momento de hacer la factura y al poner la cantidad que quiero del producto, este no supere el stock diponible...

Código Delphi [-]
 
procedure TDMDocumento.cdsDetalleCANTIDADValidate(Sender: TField);
begin
  dm.cdsArticulos.Open;
  dm.cdsArticulos.Locate('idArticulo', cdsDetalleARTICULO.AsInteger,[loCaseInsensitive]);
   if Sender.AsInteger > dm.cdsArticulosCANTIDAD.AsInteger then
   raise Exception.Create('¡No hay Stock suficiente!');
end;

tengo esto en el onValidate... donde capturo la exception?
desde ya agradezco su ayuda... Saludos
P/d: uso delphi 2007 y firebird 2.0