Data.DB.TBooleanField.Create
Delphi
constructor Create(AOwner: TComponent); override;
C++
__fastcall virtual TBooleanField(System::Classes::TComponent* AOwner);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
| constructor | public | Data.DB.pas Data.DB.hpp |
Data.DB | TBooleanField |
Description
Instancie un objet champ booléen.
La plupart des applications ne créent pas explicitement des instances de TBooleanField. Au lieu de cela, les composants champ sont créés automatiquement, comme des composants champ persistants définis dans l'éditeur de champs à la conception, ou comme des composants champ dynamiques créés automatiquement par l'ensemble de données.
Create définit la propriété DataType à ftBoolean et initialise les chaînes associées aux valeurs booléennes à True et False. Le paramètre AOwner spécifie le composant (généralement un ensemble de données) qui devient le nouveau propriétaire du champ. Le propriétaire est responsable de la libération du composant.
Dans le cas rare où vous devez créer un composant champ persistant à l'exécution, appelez Create pour créer et initialiser une instance de TBooleanField. Après avoir instancié un TBooleanField, associez-le à un champ spécifique en affectant le nom du champ à sa propriété FieldName. Attribuez à l'instance de TBooleanField un identificateur unique dans la propriété Name. Indiquez où le champ apparaît dans la collection des champs en affectant une valeur ordinale à la propriété Index. Associez le TBooleanField à un composant ensemble de données en affectant à sa propriété DataSet le nom d'un composant ensemble de données.
L'exemple suivant crée un objet TBooleanField pour le champ nommé PaidInFull accédé via un TClientDataSet nommé ClientDataSet1.
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();