Ver Mensaje Individual
  #3  
Antiguo 10-06-2010
[maeyanes] maeyanes is offline
Capo de los Capos
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Hola...

Deberías poder hacer algo como esto:

Código Delphi [-]
if not Assigned(DBGrid1.DataSource) and not Assigned(DBGrid1.DataSource.DataSet) then
  ShowMessage('No tiene asignado un DataSet')
else
  if DBGrid1.DataSource.DataSet.ClassType is TTable then
    ShowMessage('El DataSet es un TTable')
  else
    if DBGrid1.DataSource.DataSet.ClassType is TQuery then
      ShowMessage('El DataSet es un TQuery')


Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita