[Truco] TDBGrid(Columna, Fila)

[rgstuamigo]

Empezado por ecfisa

...No sé si se puede obtener el campo trabajándolo como TStringGrid... , pero será cosa de buscarle la vuelta...
...

A Caray se me olvidó esa linea de agregarle a la funcion que hize, pero ya lo he agregado.
Saludos...

[ecfisa]

Empezado por rgstuamigo

A Caray se me olvidó esa linea de agregarle a la funcion que hize, pero ya lo he agregado.
Saludos...

Acabo de probarlo y funciona correctamente.
Mejor entonces, ahora tienen dos trucos para elegir.
Y como en esto siempre hay más de una forma correcta de hacer algo, en cualquier momento se suma un tercero o cuarto...


Un saludo.

[ecfisa]

Hola rgstuamigo.

Cuando quise cambiar el resultado de la función a TField para que me devuelva el campo no lo realiza. Es decir devuelve el valor del campo correctamente como string, pero no el campo en sí:

Código Delphi [-]
function TForm1.DBgridColFil(ACol, AFil: integer; Rejilla: TDBGrid): TField;
begin
  Result:= nil;
  if (ACol < 1)or(ACol > TStringGrid(Rejilla).ColCount)or(AFil<1)or(AFil > TStringGrid(Rejilla).RowCount) then
    raise Exception.Create('Selección fuera de rango');
  TStringGrid(Rejilla).Row:=AFil;
  TStringGrid(Rejilla).Col:=ACol;
  Rejilla.SetFocus;
  Result:= Rejilla.SelectedField;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:= DBGridColFil(SpinEdit1.Value,SpinEdit2.Value, DBGrid1).AsString;
end;

Me toma los cambios de columna pero no el de las filas, probalo a ver si estoy haciendo algo equivocado...

Un saludo.

[rgstuamigo]

Empezado por ecfisa

Hola rgstuamigo.

Cuando quise cambiar el resultado de la función a TField para que me devuelva el campo no lo realiza. Es decir devuelve el valor del campo correctamente, pero no el campo:
...
...
Me toma los cambios de columna pero no el de las filas...

Tenés toda la razón, y eso ocurre por que al Dataset no lo hemos movido para nada, en todo caso habrá que moverlo con el método MoveBy para que tambien el dataset se posicione en el campo expecífico.
Saludos...

[ecfisa]

Empezado por rgstuamigo

Tenés toda la razón, y eso ocurre por que al Dataset no lo hemos movido para nada, en todo caso habrá que moverlo con el método MoveBy para que tambien el dataset se posicione en el campo expecífico.
Saludos...

Exacto, así como está, sólo posiciona bien en pantalla, pero al no desplazar el DataSet, la línea:

Código Delphi [-]
  Result:= Rejilla.SelectedField.AsString;

puede devolver cualquier valor dependiendo del registro donde este posicionado en ese momento.

Un saludo.