Datensatz in einer DBF - Datei kopieren

[INC-Man]

Hallo tylix,
ich habe mal was zusammengestellt, ich hoffe es läuft auch so wie ich mir das vorstelle.

mfg INC-Man

Delphi-Quellcode:

procedure Spiegeldaten(tblQuelle: TTable);
var
  aVarArray: array[0..100] of Variant;
  slFieldList: TStringlist;
  nLauf, nMaxListZahl: Integer;
begin
  slFieldList := TStringlist.Create;
  slFieldList.Clear;
  tblQuelle.GetFieldNames(slFieldList);
  nMaxListZahl := slFieldList.Count - 1;
  if nMaxListZahl > 100 then nMaxListZahl := 100;
  for nLauf := 0 to nMaxListZahl do
    begin
      aVarArray[nLauf] := tblQuelle.FieldByName(slFieldList[nLauf]).value;
      slFieldList[nLauf] := UpperCase(slFieldList[nLauf]);
    end;

  tblQuelle.Append;
   for nLauf := 0 to nMaxListZahl do
        tblQuelle.FieldByName('FORDERUNGSKONTO').AsInteger := nUnterkonten;
  slFieldList.Free;
end;

// Aufruf:
begin
  tblQuelle muß auf den zu spielgenden Satz stehen

  Spiegeldaten(tblQuelle); {Daten Spiegeln ohne Post}

  // Daten noch ändern
  tblQuelle.FieldByName('xy').AsInteger := 2;

  // Daten abschließen 
  tblQuelle.Post; 
  {dann kann der weiter Datensatz bearbeitet werden.}
end;