Delphi TClientDataSet: AutoInc auch wirklich automatisch inc-en

Thema durchsuchen

Ansicht

Themen-Optionen

TClientDataSet: AutoInc auch wirklich automatisch inc-en

Ein Thema von SMALLID · begonnen am 1. Jan 2007 · letzter Beitrag vom 2. Jan 2007

Vorheriger Beitrag

Nächster Beitrag

alzaimar

(Moderator)

Registriert seit: 6. Mai 2005
Ort: Berlin
4.956 Beiträge

Delphi 2007 Enterprise

Re: TClientDataSet: AutoInc auch wirklich automatisch inc-en

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:

markieren

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")