, din nuværende rekord.,,,,, {************************************************, //procedure appendcurrent, //,, //forfatter: steve zimmelman, //dato: 06 /04 /1996, ////version: delphi 2 og højere ////////,,,, //vil sætte en nøjagtig kopi af den nuværende, //registrering af de datasæt, som er vedtaget i //proceduren, og vil vende tilbage til de datasæt, //i edit stat med pladen fingerpeg om, //de nye bilag, ************************************************ rekord. den procedure appendcurrent (datasæt: tdataset);,, var, væk: variant, jeg: heltal, begynder, //, skabe en variant system, bort: = vararraycreate ([0, dataset.fieldcount- 1],,,,,,, varvariant); //, læs værdier i nettet, for jeg: = 0 - datasæt. fieldcount-1) kan begynde, borte [i]: = datasæt. områder [i]. værdi,,,,,,,, tilføje en ny rekord,,,,,,,,, - datasættet. både; //, læg array - værdier i nye plade,,, jeg: = 0 - datasæt. fieldcount-1) kan begynde, datasæt. områder [i]. værdi: = borte [i],,,,,,,,,,,,,,,