Realizar calculos y buscar número mayor en DBGrid

[Neftali [Germán.Estévez]]

Empezado por lujurock

a partir de un DBGrid con 4 columnas y cada una de ellas contiene alrededor de 19.000 datos numericos. Mi necesidad es poder encontrar el máximo valor en cada una de las columnas y tambien realizar calculos entre dos columnas, pero no consigo dar con el codigo.

Creo que el enfoque que le estás dando a cómo solucionar el problema es incorrecto. Piensa que el DBGrid no es más que una "ventana" a los datos reales que tienes en la tabla o query.
Así que en mi opinión deberías hacer las búsquedas sobre la tabla/query, no sobre el control, ya que segun como lo tengas configurado ni siquiera estás viendo en el Grid todos los datos, sino una parte o porción de ellos.

Realiza la busqueda del dato con un LOCATE, FINDKEY o similar sobre el dataset.

[Rockin]

Es mejor buscar en el dataset y hacer las operaciones sobre el. Pero como ha preguntado lo del gridpor eso lo he hehcho.

Sobre el dataset es mejor un select que un locate.

Saludos.

[*Caro*]

Hola, para buscar el mayor no recorrería ni el DBGrid ni el DataSet, lo haría con otra consulta que me de el Max de las 4 columnas y tendría las mismas condiciones que la consulta que se muestra en el DBGrid.

Código Delphi [-]
OtroQuery.Close;
OtroQuery.Sql.Text := 'select Max(campo1), MAX(campo2) From tabla';
OtroQuery.Open;

Y si tienes que hacer calculos sobre tus columnas, podrías crearte un campo calculado.

Saluditos

[Rockin]

Tambien podria ordenar la consulta por el campo de modo descendente.

Código SQL [-]
select valor from tablar order by valor desc

Hay varis formas, pero a lo mejor tiene que mostrar el grid por algo.

Saludos.

[Neftali [Germán.Estévez]]

Empezado por lujurock

...creo que estamos con versiones diferentes de delphi o yo soy muy novato en esto, ya que el primer error que me aparece en el codigo que me enviaste es la propiedad Cells (DBGrid.Cells, la unica propiedad parecida es DBGrid.Columns[]

El problema es que esa propiedad está en el DBGrid de la TMS (que te ha dicho que es el que él utiliza), pero no en el Grid estandard.

Empezado por Caro

Hola, para buscar el mayor no recorrería ni el DBGrid ni el DataSet, lo haría con otra consulta que me de el Max de las 4 columnas y tendría las mismas condiciones que la consulta que se muestra en el DBGrid.

Si no necesitas posicionarte en el registro, sólo encontrar el valor, Caro tiene razón. Si por el contrario necesitas posicionarte en ese registro hazlo sobre el mismo del DBGrid.

[Rockin]

Si tienes que recorrer el Grid por fuerza, prueba algo parecido a esto, te hablo de memoria.

Código Delphi [-]
var
maximo: tipodedatos;
resultado:tipodedatos;

begin
DataSet.First;

maximo:= dataset.FieldByName('campovalor').AsTipoDeDatos;

while not DataSet.First.eof do
begin

//esto es para calcular el valor maximo
IF (StrToTipoDatos(DBGRID..Fields[columnadelvalordelgrid].Text) > maximo) then
begin
maximo:= StrToTipoDatos(DBGRID..Fields[columnadelvalordelgrid].Text;
end;


//esto es para calcular el valor entre dos columnas

resultado:= StrToTipoDatos(DBGRID.Fields[columnaoperando1].Text) operacion StrToTipoDatos(DBGRID.Fields[columnaoperando2].Text) ;

DataSet.Next;

end;

ShowMessage(TipodatostoStr(maximo));

Al ir recorriendo el dataset el cursor va cambiando de registro en el Grid.

Prueba algo así.
Saludos.

[lujurock]

Muchas gracias por sus respuestas. sabe alguno de ustedes de donde puedo bajar el componente TMS DBGrid para Delphi 2006?

[Neftali [Germán.Estévez]]

Empezado por lujurock

sabe alguno de ustedes de donde puedo bajar el componente TMS DBGrid para Delphi 2006?

(1) Abrir explorador Web (sirve cualquiera, Firefox, Opera, Safari, hasta IE).
(2) Ir a la barra de direcciones (normalmente está en la parte superior).
(3) Escribir el siguiente texto. Tal como está y sin comillas:
"www.google.com"
(4) Pulsa la tecla RETURN o ENTER.
(5) Aparecerá un cuadro de texto en la parte central de la ventana.
(6) Escribe en ese cuadro de texto esto (sin comillas): "Delphi TMS"
(7) Haz click en el botón de "Buscar".

P.D: Te hubieras ahorado 15 horas de espera.