vedlegge en kopi av gjeldende rekord. {********************************** ************** //prosedyre AppendCurrent ////Forfatter: Steve Zimmelman //Dato: 06/04/1996 ////Versjon: Delphi 2 og høyere ////Will tilføye en nøyaktig kopi av gjeldende //registrering av datasett som er gått inn //prosedyren, og vil returnere datasettet //i redigeringsmodus med rekord pekeren på //den nylig vedlagte posten. ****** ******************************************} Prosedyre AppendCurrent (Datasett: TDataset); Var unna: Variant; i: Integer; Begynn // Opprett en variant Array
unna: = VarArrayCreate ([0, DataSet.Fieldcount-1], VarVariant); // lese verdier i matrisen
For i: = 0 til (DataSet.Fieldcount-1) Har Begynn unna [i]: = DataSet.fields [i] .Value; Slutt; // Legg til en ny rekord
DataSet.Append; // Sett tabellens verdier i ny rekord
for jeg: = 0 til (DataSet.Fieldcount-1) Har Begynn DataSet.fields [i] .Value: = unna [i]; Ende; ende; Anmeldelser