Limitar caracteres en un dbgrid

[heiverp]

Buenas Tardes

Tengo un leve problema con un dbgrid y es que tengo una columna llamada edad en la cual al ingresar datos se debe validar que solamente se puedan digitar 2 caracteres, si se intentan digitar mas no lo permita,

alguien tiene idea de como hacerlo, me he matado buscando, parecía ser fácil pero no

[ecfisa]

Hola heiverp, bienvenido a Club Delphi

Y como es costumbre cuando ingresan por primera vez, te invitamos a que leas nuestra guía de estilo.

Si es de tipo caracter, crea los campos persistentes en tu DataSet (*) y luego agrega este código al evento OnCreate del formulario en que reside el DBGrid:

Código Delphi [-]
procedure TForm.FormCreate(Sender: TObject);
var
  ds: TDataSet;
begin
  ds := DBGrid1.DataSource.DataSet;
  ds.Close;
  ds.FieldByName('EDAD').Size := 2; // (EDAD : nombre de columna que corresponda en la tabla)
  ds.Open;
end;

(*)

• Click derecho sobre el componente DataSet -> Fields Editor...
• Click derecho sobre la ventana emergente -> Add all fields.

Nota: También puedes hacerlo desde el Object Inspector, sobre el campo persistente en tiempo de diseño sin necesidad de código.

Saludos

[[AgustinOrtu]]

Daniel,

Porque es necesario que sean persistentes los campos para la primera solucion?

[ecfisa]

Hola de nuevo.

Recordaba haber tratado caso similar, pero no podía encontrarlo... Aquí tenes otra forma de limitar los caracteres: escribiendo en dbgrid

Saludos

[[AgustinOrtu]]

Muy interesante, acabo de probarlo y se llega a un callejon sin salida:

Código Delphi [-]
  ds.Open;
  ds.FieldByName('algo').Size := 10; // --> can't do that on an opened dataset

  ds.Close;
  ds.FieldByName('algo') // --> can't do that on a closed dataset

[ecfisa]

Hola Agustín.

Es realmente extraño... ¿ Creaste previamente los campos persistentes ?

Ejemplo sobre dbdemos:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
  ds: TDataSet;
begin
  ds := DBGrid1.DataSource.DataSet;
  ds.Close;
  ds.FieldByName('Name').Size := 2;
  ds.Open;
end;

Resultado:


Saludos

[[AgustinOrtu]]

No, justamente queria probar eso mismo: Si era posible hacerlo sin declarar campos persistentes. Por lo general trabajo sin campos persistentes y a nivel del TDataSet directamente. El diseñador RAD me gusta usarlo solo para la parte de colocar los controles, los aligns.. y poco mas

Tengo por costumbre hacer todo el trabajo de datos via codigo, usando clases (y mas recientemente, interfaces) que hacen todo el trabajo sucio. Lo hago de esta manera porque en un solo pantallazo tengo centralizado todas las cuestiones de formato, validaciones, nombres, mascaras.. etc. Sino ir de un lado para otro entre vista de form, vista de codigo, me termino perdiendo.

saludos!

[ecfisa]

Hola Agustín.

Empezado por AgustinOrtu

Daniel,

Porque es necesario que sean persistentes los campos para la primera solucion?

Recién veo este mensaje , disculpas.

Creo que el motivo es que para modificar la propiedad Size, el TDataSet debe estar cerrado y en ese punto el método FieldByName no tiene conocimiento de los campos de la tabla, si previamente no fueron creados de forma persistente.

Saludos

[heiverp]

Hola Ecfisa

Agradezco tu ayuda, pero resulta que el campo no es tipo carácter, es un campo numérico por lo tanto no tiene la propiedad size.

[[AgustinOrtu]]

Valida en el OnBeforePost del DataSet

[ecfisa]

Hola heiverp

Empezado por heiverp

Hola Ecfisa

Agradezco tu ayuda, pero resulta que el campo no es tipo carácter, es un campo numérico por lo tanto no tiene la propiedad size.

En el mensaje #4 te sugerí otro modo que funciona independientemente del tipo del campo.

Saludos

[heiverp]

Muchas gracias
efectivamente de ese modo que me comentas se limito en el evento keypress
Me has salvado la vida

Emmm soy nuevo acá como hago para puntuar tu respuesta y para dar tema como resuelto

[Casimiro Notevi]

Empezado por heiverp

Emmm soy nuevo acá como hago para puntuar tu respuesta y para dar tema como resuelto

En unas semanas podrás hacerlo, estamos preparando una remodelación de los foros, gracias