API:Data.DB.TGuidField.Create
Delphi
constructor Create(AOwner: TComponent); override;
C++
__fastcall virtual TGuidField(System::Classes::TComponent* AOwner);
Propriétés
| Type | Visibilité | Source | Unité | Parent |
|---|---|---|---|---|
| constructor | public | Data.DB.pas Data.DB.hpp |
Data.DB | TGuidField |
Description
Create crée une instance de l'objet TStringField.
Data.DB.TGuidField.Create hérite de Data.DB.TStringField.Create. Tout le contenu en-dessous de cette ligne se réfère à Data.DB.TStringField.Create.
Create crée une instance de l'objet TStringField.
La plupart des applications ne créent pas explicitement des instances de TStringField. Au lieu de cela, les composants champ sont créés automatiquement, comme des composants champ persistants définis dans l'éditeur de champs à la conception, ou comme des composants champ dynamiques créés automatiquement par l'ensemble de données.
Create initialise la propriété DataType à ftString, la propriété Size à 20 et la propriété Transliterate à true. Le paramètre AOwner spécifie le composant (généralement un ensemble de données) qui devient le nouveau propriétaire du champ. Le propriétaire est responsable de la libération du composant.
Dans le cas rare où vous devez créer un composant champ persistant à l'exécution, appelez Create pour créer et initialiser une instance de TStringField. Après avoir instancié un TStringField, associez-le à un champ spécifique en affectant le nom du champ à sa propriété FieldName. Attribuez à l'instance de TStringField un identificateur unique dans la propriété Name. Indiquez où le champ apparaît dans la collection des champs en affectant une valeur ordinale à la propriété Index. Associez l'objet TStringField à un composant ensemble de données en définissant sa propriété DataSet.
L'exemple suivant crée un objet TStringField pour le champ nommé LastName accédé via un TSQLDataSet nommé SQLDataSet1.
var
T: TStringField;
begin
SQLDataSet1.Close;
T := TStringField.Create(SQLDataSet1);
T.FieldName := 'LastName';
T.Name := SQLDataSet1.Name + T.FieldName;
T.Index := SQLDataSet1.FieldCount;
T.DataSet := SQLDataSet1;
SQLDataSet1.FieldDefs.UpDate;
SQLDataSet1.Open;
end;
SQLDataSet1->Close();
TStringField *T = new TStringField(SQLDataSet1);
T->FieldName = "LastName";
T->Name = SQLDataSet1->Name + T->FieldName;
T->Index = SQLDataSet1->FieldCount;
T->DataSet = SQLDataSet1;
SQLDataSet1->FieldDefs->UpDate();
SQLDataSet1->Open();