Delphi - Cotejar Funcion

function SQLGetReEnvios (strMedResub : string) :string ;

var

strSQL : string;

begin

  strSQL := 'SELECT MedReSub' + 'FROM Hcinsuranceclaimheader';

      if strMedReSub = '' then

  begin

   result := '1';

 end

     Else

     begin

     result := '7';

    end;

    end;

end.

function SQLGetReEnvios (strMedResub : string) :string ;

var

  strSQL : string;

begin

  strSQL := 'SELECT MedReSub' + 'FROM Hcinsuranceclaimheader';

  if strMedReSub = '' then

    begin

      result := '1';

    end

  Else

    begin

      result := '7';

    end;

end;

"strMedResub" es el parámetro de entrada de la funcion

"result" como su nombre dice, es el resultado

//Imagino que llamas a tu funcion de la siguiente forma

respuesta := SQLGetReEnvios('');

//o de esta otra forma

respuesta := SQLGetReEnvios(variableString);

//El proceso que realiza la funcion es: si el parametro "strMedResub" es una cadena vacia

//regresa 1 y si es diferente a cadena vacia regresa 7, siempre, sin importar lo que mandes como

//parametro y sin importar lo que hay en la base de datos

//Pues lo que pones en la variable "strSQL" no lo usas para nada 

function SQLGetReEnvios (strMedResub : string) :string ;

var

  strSQL : string;

begin

  strSQL := 'SELECT MedReSub FROM Hcinsuranceclaimheader';

  Query1.Close;

  Query1.Sql.Clear;

  Query1.Sql.Add(strSQL);

  Query1.Open;

  if not Query1.Eof then begin //Esta linea nos permite saber si el query regresó algun dato    

    //if strMedReSub = '' then// esta linea la cambiaría por esto

    if Query1.FieldByName('MedReSub').AsString = '' then

      begin

        result := '1';

      end

    Else

      begin

        result := '7';

      end;

  else

    result := '1';//No hay datos en la consulta realizada

  Query1.Close;

end;

Query1.close;//Hay que cerrar la consulta actual, si hay alguna

Query1.Sql.Clear;//se limpia la consulta anterior

Query1.Sql.Add('select campo1, campo2 from tabla');// se genera la nueva consulta

Query1.Open;//se ejecuta la consulta

if not Query1.eof then begin //el "Eof" significa "end of file", lo que quiere decir, si no hay fin de archivo entonces...

//aqui pondiras el codigo que quieres hacer con los datos obtenidos de la consulta

//mostrarlos al usuario, hacer calculos...

//aqui pudiera ser que haya datos, pero no en todos los campos, lo verificarias de esta forma

  if Query1.FieldByName('campo1').AsString <> '' then begin

    //Aqui quiere decir que el campo1 tiene datos

  end else begin

    //Aqui quiere decir que el campo1 NO tiene datos

  end;

end else begin

//Aqui pondrias algun otro codigo, puede ser un mensaje al usuario diciendo que no se encontraron datos

end;

Query1.Close;//por ultimo, se cierra la consulta, pues ya no se necesita trabajar con los datos

Query1.close;//Hay que cerrar la consulta actual, si hay alguna

Query1.Sql.Clear;//se limpia la consulta anterior

Query1.Sql.Add('select campo1, campo2 from tabla');// se genera la nueva consulta

Query1.Open;//se ejecuta la consulta

while not Query1.eof do begin //Aqui el while, indica "mientras no haya fin de archivo" hacer lo siguiente

//aqui pondiras el codigo que quieres hacer con los datos obtenidos de la consulta

//mostrarlos al usuario, hacer calculos...

//aqui pudiera ser que haya datos, pero no en todos los campos, lo verificarias de esta forma

  if Query1.FieldByName('campo1').AsString <> '' then begin

    //Aqui quiere decir que el campo1 tiene datos

  end else begin

    //Aqui quiere decir que el campo1 NO tiene datos

  end;

  Query1.Next;//Cuando una consulta se ejecuta, siempre inicias en el primer registro o fila que encuentre la consulta

  //Con el "Next" le dices al Query1 que te dé el siguiente registro o fila

end;

Query1.Close;//por ultimo, se cierra la consulta, pues ya no se necesita trabajar con los datos