escribiendo en dbgrid

[deivi]

Quisiera ayuda en algo supuestamente fácil, pero que llevo días y no doy con la solución.
Tengo un formulario con un JvDBGrid y necesito saber en una columna en concreto, la longitud de la cadena que estoy escribiendo. No tengo ni idea de como capturar lo que estoy escribiendo en el momento para saber la longitud del campo y lo necesito para bloquear la edición si pasa de ciertos caracteres.
Gracias.

[[duilioisola]]

Suppngo que ese DBGrid depende de un DataSet.
Si asignas a un campo una longitud máxima, el DBGrid se encargará de todo.

Puedes establecer esta propiedad en el inspector de objetos.
Si no utilizas campos persistentes, deberás utilizar esta línea:

Código Delphi [-]
// Establece la longitud máxima para el código de artículo en 15 caracteres
DataSet.FieldByName('ARTICULO').Size := 15;

[deivi]

Lo he intentado, pero me dice que no puedo hacer eso en un dataset abierto, y como el campo no es persistente, no puedo asignarle el valor antes de abrir el dataset, por eso había pensado en capturar la longitud del campo que estoy escribiendo en el momento.

[ecfisa]

Empezado por deivi

Lo he intentado, pero me dice que no puedo hacer eso en un dataset abierto, y como el campo no es persistente, no puedo asignarle el valor antes de abrir el dataset, por eso había pensado en capturar la longitud del campo que estoy escribiendo en el momento.

Hola deivi.

Por lejos creo que la opción mas simple es crear el campo persistente y configurar la propiedad Size desde el Field Editor o usando el código que te sugirió duilioisola, pero ignoro por que no podes hacerlo.

Sin embargo, podrías hacer:

Código Delphi [-]
const
  THE_COLUMNN   = 1; // Columna del campo en cuestión
  ALLOWED_CHARS = 2; // ( Cantidad de caracteres permitidos - 1 )

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with TDBGrid(Sender) do
    if (EditorMode) and (SelectedIndex = THE_COLUMNN) then
      if (Length(TInPlaceEdit(Controls[0]).Text) > ALLOWED_CHARS) and (Key<>#8) then
        Key:= #0;
end;

Saludos

[deivi]

No consigo que eso me funcione bien. El campo que quiero modificar está en la columna 4, pero he probado poniendo distintos valoresd dentro de control[n] y no me saca nada.

[ecfisa]

Hola deivi.

Tál como dejé comentado en el código anterior, el índice de la columna está indicado por la constante THE_COLUMNN y no por el índice de la propiedad Controls que siempre será cero.

La cantidad de caracteres -1 que deseas permitir se regula por el valor asignado a la constante ALLOWED_CHARS.

Saludos

[deivi]

gracias, no puse el with TDBGrid(Sender) do y se me lió todo. Me ha funcionado perfectamente. La duda era TInPlaceEdit(Controls[0]).Text), pero poniendo el with ya no hay duda.
No tenía ni idea de que existía lo del TInPlaceEdit, pero creo que lo usaré más a menudo.
Lo de no usar campos persistentes es para tener más facilidad a la hora de crear campos en la base de datos o de modificar el tamaño de los campos. Así no tengo que volver a hacer cambios en los dataset y es más dinámico todo.
Muchas gracias.

[ecfisa]

Hola deivi.

De nada, inclusive podes aplicarlo a varias columnas con unas pocas modificaciones:

Código Delphi [-]
const
  // Cantidad de columnas que van a restringirse
  NCOLS = 3; 
  //Arreglo constante con la cantidad de caracteres permitidos para cada columna a restringir.
  ALLOWED_CHARS: array[1..NCOLS] of Integer = (2, 1, 4); 

type
  TIndex = 1..255;
  TIndexSet = set of TIndex;

var
  ColumnsSet: TIndexSet = [1, 2, 3]; // Índice de las columnas a restringir.

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with TDBGrid(Sender) do
    if (EditorMode) and (SelectedIndex in ColumnsSet) then
      if (Length(TInPlaceEdit(Controls[0]).Text) > ALLOWED_CHARS[SelectedIndex]) and (Key<>#8) then
        Key:= #0;
end;

En el ejemplo se restringen las columnas uno, dos y tres a la cantidad de tres, dos y cinco caracteres respectivamente.

Saludos