Data.DB.TBooleanField.Create
Delphi
constructor Create(AOwner: TComponent); override;
C++
__fastcall virtual TBooleanField(System::Classes::TComponent* AOwner);
Eigenschaften
| Typ | Sichtbarkeit | Quelle | Unit | Übergeordnet |
|---|---|---|---|---|
| constructor | public | Data.DB.pas Data.DB.hpp |
Data.DB | TBooleanField |
Beschreibung
Instantiiert ein boolesches Feldobjekt.
Die meisten Anwendungen erzeugen keine expliziten Instanzen von TBooleanField. 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 setzt die Eigenschaft DataType auf ftBoolean und initialisiert die den booleschen Werten zugeordneten Strings mit True und False. Der Parameter AOwner gibt den Eigentümer der Komponente an (meist eine Datenmenge). 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 TBooleanField erstellen und initialisieren wollen. Verknüpfen Sie das TBooleanField-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. Geben Sie mit der Eigenschaft DataSet die Datenmengenkomponente an, mit der das Feldobjekt verknüpft ist.
Das folgende Beispiel erzeugt ein TBooleanField-Objekt für ein Feld mit dem Namen PaidInFull, auf das mit der TClientDataSet-Komponente ClientDataSet1 zugegriffen wird.
var
T: TBooleanField;
begin
ClientDataSet1.Close;
T := TBooleanField.Create(ClientDataSet1);
T.FieldName := 'PaidInFull';
T.Name := ClientDataSet1.Name + T.FieldName;
T.Index := ClientDataSet1.FieldCount;
T.DataSet := ClientDataSet1;
ClientDataSet1.FieldDefs.UpDate;
ClientDataSet1.Open;
end;
ClientDataSet1->Close();
TBooleanField *T = new TBooleanField(ClientDataSet1);
T->FieldName = "PaidInFull";
T->Name = ClientDataSet1->Name + T->FieldName;
T->Index = ClientDataSet1->FieldCount;
T->DataSet = ClientDataSet1;
ClientDataSet1->FieldDefs->UpDate();
ClientDataSet1->Open();