Data.DB.TFloatField.Create

Aus RAD Studio API Documentation
Wechseln zu: Navigation, Suche

Delphi

constructor Create(AOwner: TComponent); override;

C++

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

Eigenschaften

Typ Sichtbarkeit Quelle Unit Übergeordnet
constructor public
Data.DB.pas
Data.DB.hpp
Data.DB TFloatField

Beschreibung

Erstellt eine Instanz von TFloatField.

Die meisten Anwendungen erzeugen keine expliziten Instanzen von TFloatField. 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 initialisiert die Eigenschaft DataType mit ftFloat und Precision mit 15. 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 TFloatField erstellen und initialisieren wollen. Verknüpfen Sie das TFloatField-Objekt nach der Instantiierung mit einem bestimmten Feld, indem Sie der Eigenschaft FieldName den gewünschten Feldnamen zuweisen. Führen Sie nach dem Erstellen der Komponente die gewünschten Initialisierungen durch. Der Eigenschaft Index weisen Sie die Position des Feldes in der Feldkollektion der Datenmenge zu. Zuletzt geben Sie in der Eigenschaft DataSet die Datenmengenkomponente an, mit der das Feld verknüpft ist. Optional können Sie der Eigenschaft Precision einen Wert zuweisen.

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



var
T: TFloatField;
begin
SQLDataSet1.Close;
T := TFloatField.Create(SQLDataSet1);
T.Precision := 2;
T.FieldName := 'Amount';
T.Name := SQLDataSet1.Name + T.FieldName;
T.Index := SQLDataSet1.FieldCount;
T.DataSet := SQLDataSet1;
SQLDataSet1.FieldDefs.UpDate;
SQLDataSet1.Open;
end;



SQLDataSet1->Close();
TFloatField *T = new TFloatField(SQLDataSet1);
T->Precision = 2;
T->FieldName = "Amount";
T->Name = SQLDataSet1->Name + T->FieldName;
T->Index = SQLDataSet1->FieldCount;
T->DataSet = SQLDataSet1;
SQLDataSet1->FieldDefs->UpDate();
SQLDataSet1->Open();



Siehe auch