Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge
 
Delphi 2007 Enterprise
 
#3

Re: DBEdit Felder auslesen, wieso geht das nicht?

  Alt 16. Nov 2007, 09:54
Du willst einen Datensatz kopieren?

So etwa:

Delphi-Quellcode:
Procedure CopyCurrentDataset (MyDataset : TDataset);
Var
  fFields : Array Of Variant;
  i : Integer;

Begin
  SetLength (fFields, MyDataset.FieldCount);
  For i:=0 to MyDataSet.FieldCount - 1 do fFields[i] := MyDataSet.Fields(i).Value; // Alle Feldinhalte merken
  MyDataset.Append;
  For i:=0 to MyDataSet.FieldCount - 1 do MyDataSet.Fields(i).Value := fFields[i]; // Feldinhalte wieder zurückschreiben
  MyDataset.Post;
End;
Die Prozedure fügt den aktuellen Datensatz ans Ende der Datenmenge ein.

Vorsicht bei Blobs (geht das dann?), bei AutoInc- und berechneten Feldern.. Die Sonderbehandlung musst Du noch einbauen (Case FieldType of ....)
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat