Ajouter une copie de votre enregistrement en cours

Ajouter une copie de votre enregistrement en cours

Ajouter une copie de votre enregistrement en cours : Plusieurs milliers de conseils pour vous faciliter la vie.

Ajouter une copie de votre enregistrement en cours.

{************************************************
// procedure AppendCurrent
//
// Auteur: Steve Zimmelman
// Date : 06/04/1996
//
// Version: Delphi 2 et Plus
//
// ajouter une copie exacte de l'actuel
// enregistrement de la base de donnees qui est transmis dans
// la procedure, et sera de retour le jeu de donnees
// dans l'etat de modification avec le pointeur d'enregistrement sur
// le nouvellement ajoute enregistrement.
************************************************}
Procedure AppendCurrent(Dataset:TDataset)
Var
& nbsp & nbsp loin : Variant
& nbsp & nbsp j' : Entier
Begin
& nbsp & nbsp // Creer un Tableau de type variant
& nbsp & nbsp loin := VarArrayCreate(
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp [0,l'ensemble des donnees.Fieldcount-1],
& ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & ! & nbsp VarVariant)
& nbsp & nbsp // lire des valeurs dans le tableau
& nbsp & nbsp For i := 0 to (DataSet.Fieldcount-1) Do Begin
& ! & ! & ! & ! & nbsp loin[i] := DataSet.champs[i].Valeur
& nbsp & nbsp Fin
& nbsp & nbsp // Ajouter un nouvel enregistrement
& nbsp & nbsp DataSet.Ajouter
& nbsp & nbsp // Placer le tableau de valeurs dans les nouvelles de l'enregistrement
& nbsp & nbsp For i := 0 to (DataSet.Fieldcount-1) Do Begin
& ! & ! & ! & ! & nbsp DataSet.champs[i].Valeur := loin[i]
& nbsp & nbsp Fin
Fin