Como se Clona un Objeto

[ruben Dario]

Saludos al forum

Como se clona un Objeto.

[karinha]

oNew := oClone( oObject )

Salu2

[ruben Dario]

Gracias karinha

Me da este error al ejecutar

__objcole -- Error de Argumento

[karinha]

Que intentas clonar, una ListBox?

[ruben Dario]

No
No se si es posible clonar esto
oQSet := TOleAuto():New( "ADODB.Recordset" )
...
oQSet:Open( "Select "+ cSelect +" from " + cTabla + " LIMIT 50" , oApp:StrConnection,1, 3 )

Intento clonar el oQSet no se si es posible,

[karinha]

ni jo.
mis desculpas.

salu2

[Antonio Linares]

Ruben,

Clonar un objeto que use determinados handles de Windows, memoria, buffers, etc., no tiene sentido. El resultado no serviría de nada, ó provocaría muchos errores.

Lo que puedes hacer es copiar los valores de las datas del objeto, pero el objeto en si, completo, no podria ser duplicado y uno provocaria errores en el otro.

[nageswaragunupudi]

No
No se si es posible clonar esto
oQSet := TOleAuto():New( "ADODB.Recordset" )
...
oQSet:Open( "Select "+ cSelect +" from " + cTabla + " LIMIT 50" , oApp:StrConnection,1, 3 )

Intento clonar el oQSet no se si es posible,

RecordSet has a Clone method in ADO.

oRs2 := oRs:Clone()

oRs2 has all the filter, sort, record position at the time of cloning.
For all subsequent operations, the two recordsets are in independent.

[ruben Dario]

Muchas Gracias

Por su aporte y alcaracion

[MOISES]

No, it is not.

When you clone a Recordset you actually just create a new pointer to the same Recordset, therefore any changes you make to one Recordset will be visible in all of its clones. However, if you execute a Requery on the original Recordset, the clones will no longer be synchronized to the original.

The provider must support bookmarks on the Recordset object to create clones. Bookmarks are interchangeable; a bookmark reference from one Recordset object refers to the same record in any of its clones.

Note: The filter of the original Recordset will not be applied to the clone. To copy an existing filter: objRecordsetNew.Filter=objRecordsetOriginal.Filter