Data.DB.TBytesField.Create

Übergeordnet: TBytesField

Delphi

constructor Create(AOwner: TComponent); override;

C++

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

Eigenschaften

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

Beschreibung

Erstellt eine Instanz von TBytesField.

Die meisten Anwendungen erzeugen keine expliziten Instanzen von TBytesField. 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 setzt die Eigenschaft DataType auf ftBytes. Der Parameter AOwner gibt den Eigentümer der Komponente an (meist eine Datenmenge). 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 TBytesField erstellen und initialisieren wollen. Verknüpfen Sie das TBytesField-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 die Feldkomponente zu. 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.

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

var
T: TBytesField;
begin
SQLDataSet1.Close;
T := TBytesField.Create(SQLDataSet1);
T.FieldName := 'BytesField';
T.Name := SQLDataSet1.Name + T.FieldName;
T.Index := SQLDataSet1.FieldCount;
T.DataSet := SQLDataSet1;
SQLDataSet1.FieldDefs.UpDate;
SQLDataSet1.Open;
end;

SQLDataSet1->Close();
TBytesField *T = new TBytesField(SQLDataSet1);
T->FieldName = "BytesField";
T->Name = SQLDataSet1->Name + T->FieldName;
T->Index = SQLDataSet1->FieldCount;
T->DataSet = SQLDataSet1;
SQLDataSet1->FieldDefs->UpDate();
SQLDataSet1->Open();