API:IBX.IBCustomDataSet.TIBBCDField.Create
Delphi
constructor Create(AOwner: TComponent); override;
C++
__fastcall virtual TIBBCDField(System::Classes::TComponent* AOwner);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
| constructor | public | IBX.IBCustomDataSet.pas IBX.IBCustomDataSet.hpp |
IBX.IBCustomDataSet | TIBBCDField |
Description
Create crée une instance de TBCDField.
IBX.IBCustomDataSet.TIBBCDField.Create hérite de Data.DB.TBCDField.Create. Tout le contenu en-dessous de cette ligne se réfère à Data.DB.TBCDField.Create.
Create crée une instance de TBCDField.
La plupart des applications ne créent pas explicitement des instances de TBCDField. 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.
Après l'appel du constructeur hérité, Create définit la propriété DataType à ftBCD et initialise Size à 4. 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 TBCDField. Après avoir instancié un TBCDField, associez-le à un champ spécifique en affectant le nom du champ à sa propriété FieldName. Attribuez à l'instance de TBCDField 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 TBCDField à un composant ensemble de données en affectant à sa propriété DataSet le nom du composant ensemble de données. Spécifiez la précision du TBCDField en définissant la propriété Precision.
L'exemple ci-dessous crée un objet TBCDField pour le champ Amount accessible par l'intermédiaire d'un TSQLQuery nommé SQLQuery1.
var
T: TBCDField;
begin
SQLQuery1.Close;
T := TBCDField.Create(SQLQuery1);
T.FieldName := 'Amount';
T.Name := SQLQuery1.Name + T.FieldName;
T.Index := SQLQuery1.FieldCount;
T.DataSet := SQLQuery1;
T.Precision := 2;
SQLQuery1.FieldDefs.UpDate;
SQLQuery1.Open;
end;
SQLQuery1->Close();
TBCDField *T = new TBCDField(SQLQuery1);
T->FieldName = "Amount";
T->Name = SQLQuery1->Name + T->FieldName;
T->Index = SQLQuery1->FieldCount;
T->DataSet = SQLQuery1;
SQLQuery1->FieldDefs->UpDate();
SQLQuery1->Open();