Data.DB.TByteField.Create
Delphi
constructor Create(AOwner: TComponent); override;
C++
__fastcall virtual TByteField(System::Classes::TComponent* AOwner);
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
| constructor | public | Data.DB.pas Data.DB.hpp |
Data.DB | TByteField |
Beschreibung
Erstellt eine Instanz von TIntegerField.
Data.DB.TByteField.Create erbt von Data.DB.TIntegerField.Create. Der folgende Inhalt bezieht sich auf Data.DB.TIntegerField.Create.
Erstellt eine Instanz von TIntegerField.
Die meisten Anwendungen erzeugen keine expliziten Instanzen von TIntegerField. Vielmehr werden die Feldomponenten automatisch erzeugt, und zwar entweder als vom Felder-Editor beim Entwurf definierte persistente Feldkomponenten oder als von der Datenmenge automatisch erzeugte dynamische Feldkomponenten.
Create initialisiert die Eigenschaft DataType mit ftInteger, MinValue mit -2147483648 und MaxValue mit 2147483647. Der Parameter AOwner gibt die Komponente – normalerweise eine Datenmenge – an, die der Eigentümer des neuen Feldes wird. Der Eigentümer ist für die Freigabe der Komponente verantwortlich.
In den seltenen Fällen, für die das Erzeugen einer persistenten Feldkomponente zur Laufzeit erforderlich ist, rufen Sie Create auf, wenn Sie eine Instanz von TIntegerField erstellen und initialisieren wollen. Verknüpfen Sie das TIntegerField-Objekt nach der Instantiierung mit einem bestimmten Feld, indem Sie der Eigenschaft FieldName den gewünschten Feldnamen zuweisen. Weisen Sie der Eigenschaft Name einen eindeutigen Bezeichner für das Objekt zu. Der Eigenschaft Index weisen Sie die Position des Feldes in der Feldkollektion der Datenmenge zu. Weisen Sie der Eigenschaft DataSet den Namen der Datenmengenkomponente zu.
Im folgenden Beispiel wird ein TIntegerField-Objekt für das Feld Quantity erstellt, auf das mit der TSQLDataSet-Komponente SQLDataSet1 zugegriffen werden kann:
var
T: TIntegerField;
begin
SQLDataSet1.Close;
T := TIntegerField.Create(SQLDataSet1);
T.FieldName := 'Quantity';
T.Name := SQLDataSet1.Name + T.FieldName;
T.Index := SQLDataSet1.FieldCount;
T.DataSet := SQLDataSet1;
SQLDataSet1.FieldDefs.UpDate;
SQLDataSet1.Open;
end;
SQLDataSet1->Close();
TIntegerField *T = new TIntegerField(SQLDataSet1);
T->FieldName = "Quantity";
T->Name = SQLDataSet1->Name + T->FieldName;
T->Index = SQLDataSet1->FieldCount;
T->DataSet = SQLDataSet1;
SQLDataSet1->FieldDefs->UpDate();
SQLDataSet1->Open();