API:IBX.IBCustomDataSet.TIBStringField.Create

Übergeordnet: TIBStringField

Delphi

constructor Create(AOwner: TComponent); override;

C++

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

Eigenschaften

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

Beschreibung

Erzeugt eine Instanz eines TWideStringField-Objekts.

IBX.IBCustomDataSet.TIBStringField.Create erbt von Data.DB.TWideStringField.Create. Der folgende Inhalt bezieht sich auf Data.DB.TWideStringField.Create.

Erzeugt eine Instanz eines TWideStringField-Objekts.

Die meisten Anwendungen erzeugen keine expliziten Instanzen von TWideStringField. 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 ftString, Size auf 20 und Transliterate auf true. 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 TWideStringField erstellen und initialisieren wollen. Verknüpfen Sie das TWideStringField-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.

Das folgende Beispiel erzeugt ein TWideStringField-Objekt für das Feld Notes, auf das mit der TQuery-Komponente Query1 zugegriffen werden kann.

var
T: TWideStringField;
begin
Query1.Close;
T := TWideStringField.Create(Query1);
T.FieldName := 'BookList';
T.Name := Query1.Name + T.FieldName;
T.Index := Query1.FieldCount;
T.DataSet := Query1;
Query1.FieldDefs.UpDate;
Query1.Open;
end;

TWideStringField *T;
Query1->Close();
T = new TWideStringField(Query1);
T->FieldName = "LastName";
T->Name = Query1->Name + T->FieldName;
T->Index = Query1->FieldCount;
T->DataSet = Query1;
Query1->FieldDefs->UpDate();
Query1->Open();