¿Cómo puedo saber si un DataSet es el maestro en una relación maestro/detalle en Delphi?

Question

Quiero crear una acción "Duplicar registro" que cuando se invoca, duplica el registro actual en cualquier descendiente TDataSet. ¿Cómo puedo averiguar si el conjunto de datos es el conjunto de datos maestro de una relación maestro/detalle? Con TClientDataSet es bastante fácil, pero necesito esta acción para usarla con todos los descendientes de TDataSet.

Answer 1

Debe llamar al TDataSet. GetDetailDataSets método. Si la lista no está vacía, este conjunto de datos es el conjunto de datos maestro para los conjuntos de datos en la lista. Por ejemplo:

var 
    oDetails: TList; 
    lIsMaster: Boolean; 
... 
    oDetails := TList.Create; 
    try 
    myDataSet.GetDetailDataSets(oDetails); 
    lIsMaster := oDetails.Count > 0; 
    finally 
    oDetails.Free; 
    end;