Problemas con TStringList

[pdimasi2008]

Bueno ya se por donde viene el problema...lastima que no se como solucionarlo todavia.... resulta que me olvide de comentar que cuando el usuario ingresa un codigo a borrar el dbgrid trae los datos de dos tablas (osea se realiza una union de dos tablas una de historico y otra de actual) bien el problema viene por ahy no se bien como hacer esto ya que el usuario puede elejir un registro de la tabla actual y otro de la tabla historico.Trate de hacer lo siguiente pero la verdad no tengo mucha idea...

Código Delphi [-]
sql:='delete from MANUALESPRODUCTO where = ' + QuotedStr((lista.Objects[w] as TManualFactory).CodigoM) join HISTORICOMANUALES where(HISTORICOMANUALES.PLNCODIGO = MANUALESPRODUCTO.PLN_CODIGO)'

[*Caro*]

Hola pdimasi2008, podrías añadir la tabla a la que pertenece cada registro, eso en tu consulta que hace la Union y en tus objetos guardas también la tabla a la que pertenecen:

Código Delphi [-]
//En el primer campo tendrías la tabla a la que pertenece
Select 'NombreTabla1' As Tabla, ...... From Tabla1
UNION
Select 'NombreTabla2' As Tabla, ...... From Tabla2
 
//Para el Delete, recuperas el nombre de la tabla
 
aSql := 'Delete From '+TManualFactory(lista.Objects[w]).NombreTabla+' Where........'

Saluditos