Data.DB.TBCDField.Create
Delphi
constructor Create(AOwner: TComponent); override;
C++
__fastcall virtual TBCDField(System::Classes::TComponent* AOwner);
プロパティ
| 種類 | 可視性 | ソース | ユニット | 親 |
|---|---|---|---|---|
| constructor | public | Data.DB.pas Data.DB.hpp |
Data.DB | TBCDField |
説明
Create は、TBCDField のインスタンスを破壊します。
大抵のアプリケーションでは、TBCDField のインスタンスを明示的に作成しません。 代わりに、フィールド コンポーネントが、設計時にフィールド エディタで定義された永続フィールド コンポーネントとして、または、データセットによって自動的に作成される動的フィールド コンポーネントとして、自動的に作成されます。
継承したコンストラクタ、Create は、DataType プロパティを ftBCD に設定し、Size を 4 を初期化します。 AOwner パラメータは、コンポーネント（大抵はデータセット）を示し、これが新しいフィールドの Owner になります。 この所有者には、このコンポーネントを解放する責任があります。
まれに、実行時に永続フィールド コンポーネントを作成しなければならない場合には、Create を呼び出して、TBCDField のインスタンスを作成および初期化します。 TBCDField をインスタンス化した後、FieldName プロパティをフィールド名に設定することにより、特定のフィールドに関連付けることができます。 TBCDField には、Name プロパティで一意の識別子を与えます。 フィールドのコレクション内で、どこにそのフィールドを表示させるかは、Index プロパティで、序数を指定することにより確定させます。 TBCDField をデータセット コンポーネントに関連付けるには、その DataSet プロパティをデータセット コンポーネント名に設定します。 TBCDField の精度は、Precision プロパティを設定することで指定します。
次の例では、「SQLQuery1」という名の TSQLQuery を介してアクセスされる、「Amount」という名のフィールドのための TBCDField オブジェクトを作成しています。
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();