, voegt een kopie van Je huidige record.,,,,,, //- programma (************************************************, appendcurrent,,, de auteur: ////////, Steve zimmelman,, /datum: 06 /04 /1996 //////////////Delphi,,, 2 en hoger versie:,, /,, /zal extra stroom, een exacte kopie /opgenomen gegevens, door de,, //- programma, en zal terugkeren van de gegevens, redactie staat gegevens aanwijzingen, ////////nieuwe aanvullende gegevens,,.,,, * * * * * * * *******************************************}, programma 's appendcurrent (TDataSet gegevens:);,, var,, afstand: Variatie;,, ik begin: gehele getal;,,,,, ///////, het creëren van een reeks variabelen,,, ver van de plek waar vararraycreate: = [0 dataset.fieldcount (,,,- 1],,,,,,, varvariant); ///////- waarde, lees voor,,, ik: = 0 (gegevens. Fieldcount-1), tot ik]:= gegevens [[M]. Op het gebied van de waarde;,,,.,, een einde te maken Aan de; /, de toevoeging van een nieuwe gegevens,,,,,, het verzamelen van gegevens. De aanvullende; /, uit de generator waarde voor de nieuwe gegevens,,, ik: = 0 (gegevens. Fieldcount-1) om te beginnen, het verzamelen van gegevens op het gebied van [het].. Waarde: [M] = ver;,,,,,,,, aan het einde van het;;,