Einzelnen Beitrag anzeigen

alzaimar
(Moderator)

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

Re: TClientDataSet: AutoInc auch wirklich automatisch inc-en

  Alt 1. Jan 2007, 14:31
Du musst Dir dein 'AutoInc' selbst basteln. Dazu dient das Event 'OnNewRecord'. Hier weist Du dem 'AutoInc'-Feld (Der Datentyp muss -glaube ich- ein TIntegerFeld sein) einfach einen neuen Wert zu, z.B. so:

Delphi-Quellcode:
Procedure TDatamodule1.MyDataSetNewRecord (Sender : TDataset);
Begin
  inc (fUniqueID);
  Sender['IDFieldName'] := fUniqueID;
End;
Nun musst Du das private Feld 'fUniqueID' beim Einlesen der XML-Tabelle nur noch auf den höchsten Wert des Feldes 'IDFieldName' setzen und dann läuft das.
"Wenn ist das Nunstruck git und Slotermeyer? Ja! Beiherhund das Oder die Flipperwaldt gersput!"
(Monty Python "Joke Warefare")
  Mit Zitat antworten Zitat