Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); begin if query1.IsEmpty then ShowMessage('No hay Registros que mostrar') else ShowMessage('Hay Registros que mostrar'); end;
procedure TForm1.Button1Click(Sender: TObject); begin if query1.IsEmpty then ShowMessage('No hay Registros que mostrar') else ShowMessage('Hay Registros que mostrar'); end;