Saber el campo con valor mas alto

[ilichhernandez]

Hola amigos, estoy tratando de calcular cual es el valor mas alto de la query en uno de sus campos (campo ID), el codigo que he echo no da error pero tampoco trabaja....si alguien tiene alguna idea de lo que estoy haciendo mal.... please!!!!
Acepto sugerencias......


procedure Tform_marcascomerciales.cxButton1Click(Sender: TObject); //nuevo
var valor,valormayor : integer;
begin
qrymarcascom.Last;
qrymarcascom.Insert;
panel1.SendToBack;
//calular registro clave mas alto.
valormayor :=0;
While (not qrymarcascom.Eof) Do
Begin
with qrymarcascom Do
Begin
valor := fieldbyname('id').AsInteger;
showmessage(Inttostr(valor));
if (valor > valormayor) then
begin
valormayor := valor;
showmessage('valor maximo' + Inttostr(valormayor));
end;
next;
end;
end;
showmessage(InttoStr(valormayor));
end;


Gracias y
Saludos.

[Sotrono]

Hola. No te compliques programando todo el codigo de la funcion, lo podes hacer con una consulta SQL, esto deberia servirte:

SELECT Max(campo)
FROM tabla;


Salu2...

[ilichhernandez]

Gracias, ...

dm.qrymarcascomerciales.SQL.clear;
dm.qrymarcascomerciales.sql.add('Select MAX(id) From marcascomerciales');
dm.qrymarcascomerciales.open;
valormayor := dm.qrymarcascomerciales.fieldbyname('MAX').AsInteger;
showmessage(InttoStr(valormayor));

Con este codigo ahora resulta.. !!! Gracias
Saludos