API:IBX.IBCustomDataSet.TIBBCDField.Create

Übergeordnet: TIBBCDField

Delphi

constructor Create(AOwner: TComponent); override;

C++

__fastcall virtual TIBBCDField(System::Classes::TComponent* AOwner);

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
constructor	public	IBX.IBCustomDataSet.pas IBX.IBCustomDataSet.hpp	IBX.IBCustomDataSet	TIBBCDField

Beschreibung

Erstellt eine Instanz von TBCDField.

IBX.IBCustomDataSet.TIBBCDField.Create erbt von Data.DB.TBCDField.Create. Der folgende Inhalt bezieht sich auf Data.DB.TBCDField.Create.

Erstellt eine Instanz von TBCDField.

Die meisten Anwendungen erzeugen keine expliziten Instanzen von TBCDField. 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.

Nach Aufruf des geerbten Konstruktors setzt Create die Eigenschaft DataType auf ftBCD und initialisiert Size mit 4. 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 TBCDField erstellen und initialisieren wollen. Verknüpfen Sie das 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. Durch Setzen der Eigenschaft Precision wird die Genauigkeit für das TBCDField-Objekt festgelegt.

Das folgende Beispiel erzeugt ein TBCDField-Objekt für ein Feld mit dem Namen Amount, auf das mit der TSQLQuery-Komponente SQLQuery1 zugegriffen werden kann.

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();