Datensatz duplizieren

[olaf]

Hallo,

versuch mal das.

Delphi-Quellcode:

  var
  Datatab : array of variant;
  Recordtab : array of TVarRec;
  anzfields : integer;


procedure TDatentools.datensatzkopieren(tabelle:TDataSet);
var
  i : integer;
begin
anzfields := tabelle.fields.count -1;
SetLength(Recordtab,anzfields+1);
SetLength(Datatab,anzfields+1);

for i :=0 to anzfields do
begin
Recordtab[i].VType := vtVariant;
Recordtab[i].VVariant := @Datatab[i];
end;

for i :=0 to anzfields do
Datatab[i] := tabelle.fields[i].value;
end;

procedure TDatentools.datensatzeinfuegen(tabelle:TDataSet;anftab,
    endtab:integer);
var
  i : integer;
begin
for i := anftab to anzfields-endtab do
tabelle.fields[i].value := Datatab[i];


//anftab ist das feld ab dem der eintrag aus dem kopierten record in der zieltabelle erfolgt
//endtab ist das feld bis zu dem der eintrag aus dem kopierten record in der zieltabelle erfolgt

//ausführen
//tabelle.append
//Datensatzeinfuegen(tabelle,anftab,endtab);
//tabelle.post

// vorher natürlich dataenstzkopieren aufrufen
end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]