Obtener el Nombre de un Campo en Tiempo Ejecucion

[Jvilomar]

Hola... mi pregunta es la siguiente....

Estoy Intentando hacer una function para obtener un valor maximo de una tabla X. son varias tablas y todo va a depender de la que seleccione el usuario final.

por ejemplo hago algo como

Código Delphi [-]
function TfrmFuncion.NumMaximo(Tabla,Campo :String): Integer;
begin
   result := 0;
     with qConsulta do
       begin
       close
         with SQL do
           begin
             Clear;
             Add('Select '+Campo+' as Maximo');
             Add('From '+Tabla);
           End;
        ExecSQL;
    ............

bien el punto es que necesito tener acceso al campo Maximo de mi consulta pero en tiempo diseño no puedo porque delphi no le reconoce en el query ya que no lo he agregado. lo que quisiera saber es si hay alguna forma de que en tiempo ejecución yo pueda agregar el campo como si estuviera utilizando el Fields Editor..... para poder utilizar el valor que tenga.

gracias de antemano.

[__marcsc]

Hola,

en primer lugar, en el código que has puesto deberías sustituir el ExecSQL por Open, ya que ExecSQL sirve solo para Inserts, updates y deletes, no para selects.

Respecto a tu pregunta... No te sirve recuperar el valor de tu campo usando FieldByName??

Código Delphi [-]
Open;
ShowMessage(qConsulta.FieldByName('Maximo').AsString);

Saludos!

[Jvilomar]

Gracias.... creo que el problema lo tenia con el ExecSQL...

es la costumbre... pero me sirvio la correcion porque ya si tengo acceso al campo.. y me funciona a las mil maravillas.. gracias de nuevo..