Fügen Sie eine Kopie Ihrer aktuellen Datensatz

Fügen Sie eine Kopie Ihrer aktuellen Datensatz

Fügen Sie eine Kopie Ihrer aktuellen Datensatz : Mehreren tausend Tipps, um Ihr Leben einfacher machen.

Fügen Sie eine Kopie Ihrer aktuellen Datensatz.

{************************************************
Verfahren AppendCurrent
//
Autor: Steve Zimmelman
Datum: 04.06.1996
//
Version: Delphi 2 und höher
//
Wird eine genaue Kopie des aktuellen anfügen
Datensatz des Datasets der übergeben wird
das Verfahren und das Dataset zurück
im Bearbeitungszustand mit den Datensatzzeiger auf
der neu angefügte Datensatz.
************************************************}
Prozedur AppendCurrent(Dataset:TDataset);
Var
Ferne: Variant;
Ich: Integer;
BEGIN
Erstellen ein Variant-Array
Ferne: = VarArrayCreate ()
[0,DataSet.Fieldcount-1]
VarVariant);
Werte in das Array lesen
For i: = 0, (DataSet.Fieldcount-1) fangen
Ferne [i]: = DataSet.fields[i]. Wert;
Ende;
Hinzufügen eines neuen Datensatzes
DataSet.Append;
Arraywerte in neu den Datensatz zu setzen
For i: = 0, (DataSet.Fieldcount-1) fangen
DataSet.fields[i]. Wert: aFeld = [i];
Ende;
Ende;