TTdbFieldDefs.Add
TTdbFieldDefs
Top 


Die Eigenschaft Add erstellt ein neues Felddefinitionsobjekt und fügt es der Eigenschaft Items dieses TFieldDefsTdb-Objekts hinzu.

function Add(const Name: string; DataTypeTdb: TTdbDataType; Size: Integer = 0; Required: Boolean = False): TTdbFieldDef;

Beschreibung
Verwenden Sie Add um eine neue TdbFieldDef zu der Liste der Felddefinitionen hinzuzufügen. Add gibt eine Referenz auf das neue TdbFielDef Objekt zurück.

Add verwendet die übergebenen Werte in Name, DataType, Size und Required und weist Sie den entsprechenden Eigenschaften der neuen Felddefinition zu.

Falls bereits eine Felddefinition mit diesem Namen existiert wird ein EDatabaseError ausgelöst.

Beispiel
Der folgende Code leert die FieldDefTdb Liste und fügt drei Felder ein:
(* Leeren der Liste der Felddefinitionen *)
TdbTable1.FieldDefsTdb.Clear;
(* Ein Stringfeld der Laenge 40 hinzufuegen *)
TdbTable1.FieldDefsTdb.Add('Name', dtString, 40);
(* Ein Auswahlfeld mit den Werten "Sales", "Marketing", "Development" hinzufuegen *)
with TdbTable1.FieldDefsTdb.Add('Department', dtEnum) do Specification := 'Sales,Marketing,Development';
(* Ein Zaehlerfeld hinzufuegen, das als RecordId fuer den Datensatz verwendet wird. Referenzen auf Datesaetze dieser Tabelle zeigen den Namen der Person an. *)
with TdbTable1.FieldDefsTdb.Add('RecordId', dtAutoInc) do Specification := 'Name';
(* Die Tabelle mit den neuen Felddefinitionen restrukturieren. *)
TdbTable1.AlterTable;