Buenas,estoy pasando las funciones de consultas sql a archivos dll en mi aplicacion,pero la duda es capturar el resultado boleano de la consulta y como traerme elmresultado que me resulte de un select aqui dejo parte de mi codigo
Código Delphi
[-]function guardarclasificaciones(clas_nombre, clas_materiales, clas_herramientas, clas_equipos, clas_articulos:string): Boolean;
var
q: TMyQuery;
begin
q := TMyQuery.Create(nil);
try
q.Connection := con; q.SQL.Clear;
q.SQL.Add('INSERT INTO matdav_clasificacion(clas_nombre, clas_materiales, clas_herramientas,clas_equipos,clas_articulos) VALUES (:pnombre, :pmateriales, :pherramientas,:pequipos,:particulos);');
q.ParamByName('pnombre').AsString := clas_nombre;
q.ParamByName('pmateriales').AsString := clas_materiales;
q.ParamByName('pherramientas').AsString := clas_herramientas;
q.ParamByName('pequipos').AsString := clas_equipos;
q.ParamByName('particulos').AsString := clas_articulos;
q.Execute;
Result:=q.Active;
finally
q.Free;
con.Free;
end;
end;
function borrarclasificaciones(clas_id:Integer): Boolean;
var
qdelete: TMyQuery;
begin
qdelete := TMyQuery.Create(nil);
try
qdelete.Connection := con; qdelete.SQL.Clear;
qdelete.SQL.Add('delete from matdav_clasificacion');
qdelete.SQL.Add('where clas_codigo=:pid');
qdelete.ParamByName('pid').AsInteger := clas_id;
qdelete.Open;
Result:=qdelete.Active;
finally
qdelete.Free;
con.Free;
end;
end;
Utiliso Mysql, Delphi Xe10.1 berlin