Determinar cual es el campo que existe

[marcoszorrilla]

Código Delphi [-]
var
  Msk: string;
  Msk1: String;
  cCampos:String;
begin
// Determina si Existe un Registro en la Base de Datos
cCampos:='Los siguientes campos se encontraron en la busqueda';
 with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Rnc = '+QuotedStr(MERnc.Text));
     open;
  end;
   if not temp.IsEmpty then
     cCampos:=cCampos+':RNC';//segundo campo
with temp do
  begin
    close;
    sql.Clear;
    sql.Add('select Rnc,Suplidor,Telefono,Email from Suplidor');
    sql.Add('where Suplidor = '++QuotedStr(EDSuplidor.Text));
     open;
  end;
   if not temp.IsEmpty then
     cCampos:=cCampos+':Suplidor';

Y así hasta testar todos los campos.

Un Saludo.