Anexar una copia de su registro actual

Anexar una copia de su registro actual

Anexar una copia de su registro actual : Multi-millones de consejos para hacer su vida mas facil.

Adjuntar una copia de su registro actual.

{************************************************
// procedimiento AppendCurrent
//
// Autor: Steve Zimmelman
// Fecha : 06/04/1996
//
// Version: Delphi 2 y Superior
//
// anexara una copia exacta de la actual
// registro del conjunto de datos que se transmite en
// el procedimiento, y devolvera el conjunto de datos
// en estado de edicion con el puntero de registro en
// la recien anexa registro.
************************************************}
Procedimiento AppendCurrent(Dataset:TDataset)
Var
& nbsp & nbsp lejos : Variante
& nbsp & nbsp i : Integer
Begin
& nbsp & nbsp // Crear una variante de la Matriz
& nbsp & nbsp lejos := VarArrayCreate(
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp [0,el conjunto de datos.Fieldcount-1],
& nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp & nbsp VarVariant)
& nbsp & nbsp // leer valores en el array
& nbsp & nbsp For i := 0 a (conjunto de datos.Fieldcount-1) Do Begin
& nbsp & nbsp & nbsp & nbsp & nbsp lejos[i] := conjunto de datos.campos[i].Valor
& nbsp & nbsp Final
& nbsp & nbsp // Agregar un nuevo registro
& nbsp & nbsp conjunto de datos.Anexar
& nbsp & nbsp // Poner la matriz de valores en las nuevas el registro
& nbsp & nbsp For i := 0 a (conjunto de datos.Fieldcount-1) Do Begin
& nbsp & nbsp & nbsp & nbsp & nbsp conjunto de datos.campos[i].Valor := lejos[i]
& nbsp & nbsp Final
Fin