Eliminar registro

[sizne]

Hola:
Por favor preciso sus ayudas.
Tengo ADOtables: Donde TMaster es la tabla principal, y tiene varias dependientes (T1,T2,T3,T4)

Ahora lo que quiero hacer es... Elimininar un registro de TMaster, pero si tiene depentiendes osea registros en sus dependientes pues que me pregunte si deseo eliminar también sus depentiendes; o sino que me avice q no puedo eliminar por que tiene registros depentiendes.

Código Delphi [-]
procedure TFregList.EliminarClick(Sender: TObject);
begin
 if (T1.RecordCount=0)and(T2.RecordCount=0)
 and (T2.RecordCount=0) then
    begin
      if TMaster.RecordCount  = 0 then
          messageDlg('No existe ningun registro a eliminar',
          mtConfirmation, [mbOk], 0)
      else
        Tmaster.Delete;
    end
 else
  messageDlg('Existen informacion dependiente, no se puede eliminar',
          mtConfirmation, [mbOk], 0);
end;

Lo que sucede es que siempre me aparece el msj de que tiene dependientes y no puede eliminar, aun cuando no tiene ningun registro dependiente...

Por favor...

Saludos

Gracias!!!

[Casimiro Notevi]

Echa un vistazo a las condiciones, T2.recordcount=0 se repite:

if (T1.RecordCount=0)and(T2.RecordCount=0)
 and (T2.RecordCount=0) then

[sizne]

Empezado por Casimiro Notevi

Echa un vistazo a las condiciones, T2.recordcount=0 se repite:

if (T1.RecordCount=0)and(T2.RecordCount=0)
 and (T2.RecordCount=0) then

Hola...
Ups...eso fue un error al escribir.... todas son diferentes en si...Disculpen la equivocacion.

Código Delphi [-]
if (T1.RecordCount=0)and(T2.RecordCount=0)
 and (T3.RecordCount=0) then

Saludos

[Casimiro Notevi]

Pero si pones un punto de ruptura en la condición (con F5) y mira los valores de los distintos recordcount, ¿qué valores tienen?, porque seguramente son todos cero, y por eso sale el mensaje

[sizne]

Hooolas..
Lo que sucede es que Tmaster a veces recien ingreso el registro y voy a eliminar dicho registro, y es ahi que me aparece el msj de que tiene dependientes cuando no los tiene.

Todas las demas tablas estan relacionadas por una llave:
Tmaster : IdE...etc....
T1:id1,IdE...etc..
T2:id2,IdE...etc..
T3:id3,IdE...etc..

Lo creo que es que cuando quiero eliminar, creo que en las comparaciones lo esta haciendo en forma general y no asi de un solo registro.

Ya que en IdE=5 (por ejemplo) tiene dependientes y no se puede eliminar...
Pero por decir IdE=8 que recien ingresé, no tiene dependientes y tendria q eliminarse. Pero en las comparaciones q hice revisa todos los registros de las depentiendes, y no se como hacer para que solo de un solo IDE me lo revice q tenga dependientes....

Alguien por favor...

Gracias!!!