1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

{ Duplizieren des aktuellen Records des übergebenen Datasets }

procedure DuplicateCurrentRecord(aDataSet: TDataSet);
var
  Data: array of variant;
  aRecord: array of TVarRec;
  i: integer;
  max: integer;
begin
  max := aDataSet.fields.count - 1;
  // set the lenghth of the arecord array to be the same as the number of
  // elements in the data array
  SetLength(arecord, max + 1);
  SetLength(data, max + 1);

  // set the variant type pointers to the data array
  for i := 0 to max do
  begin
    arecord[i].VType := vtVariant;
    arecord[i].VVariant := @data[i];
  end;

  // Copy the Record to the Array
  for i := 0 to max do
    Data[i] := aDataSet.fields[i].value;

  aDataSet.Insert;
  aDataSet.SetFields(aRecord);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure KopiereAktuellenDatensatzMitAppend(qQuelle, qZiel : TDataset; Speichern : Boolean);
var
  cnt : Integer;
  arr : array of variant;
begin
  if qQuelle.Active and (not DBEmpty(qQuelle)) then
  begin
    SetLength(arr, qQuelle.FieldCount);
    for cnt := 0 to qQuelle.FieldCount - 1 do
    begin
      arr[cnt] := qQuelle.Fields[cnt].AsVariant;
    end;
    qZiel.Append;
    for cnt := 0 to qZiel.FieldCount - 1 do
    begin
      qZiel.Fields[cnt].AsVariant := arr[cnt];
    end;
    if Speichern then
    begin
      qZiel.Post;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

Function DBEmpty(dts : TDataSet) : Boolean;
begin
  Result := not dts.Active;
  if not Result then
  begin
    Result := dts.eof and dts.bof;
  end;
end;