Création d'un composant à partir d'un string

Bonjour,

J'aimerai savoir si il est possible de créer un composant à partir d'un string.

Je m'explique: je récupère dans un fichier texte le type d'un composant (TSQLTimeStampField) et j'aimerai faire un create de ce type de composant.

Sachant qu'il dérive de TFields, j'ai déclaré un TFields dans la partie "var"
et j'aimerais faire un truc du style:

Code:

---

1 2 3 4 5 6 7 8

VAR MonChamp:Tfield; TypeDuChamp: String; begin ---Récupération du type du champs dans TypeDuChamp --- MonChamp:=TypeDuChamp.create(self); end;

---

comment instancier un composant à partir de son nom contenu dans un string?

Merci

J'ai déjà essayer de trouver des infos sur ce sujet, et j'ai rien trouvé ; mais si tu résussi à trouver une sorte d'interpréteur de commande Delphi, ça serait peut-être possible, même si je suis pas sûr que ça existe ...

Sinon, tu peux faire un code, un peu long, qui prévois tous les types de variables possibles ...

salut

impossible tels que tu le veut
un string ne peut pas etre un tfield
mais il existe d'autre solution

si ton champs existe dans le dataset il te suffit de

Code:

---

F := dataSource.Dataset.FieldByName(FieldName);

---

si ton champs n'existe pas utilise

Code:

---

1 2 3 4 5 6

CalcField:=TStringField.Create(self); CalcField.FieldKind:=fkCalculated; CalcField.Size:=20; CalcField.FieldName:='FieldName'; CalcField.DataSet:=Dataset;

---

ensuite reutilise la premiere solution pour le retrouver

@+ Phil

Merci pour cette réponse. J'ai essayé de la mettre en pratique mais les champs retournés étaient vides.

Je me suis débrouillé autrement, j'ai fait une suite de "if" pour déterminer le type du champ.

salut

pour connaitre le type de champs

Code:

---

Dataset.FieldByName(FieldName).DataType

---

un exemple d'utilisation

Code:

---

1 2 3 4 5 6 7

F := Dataset.FieldByName(FieldName); case F.DataType of ftfloat,ftCurrency,ftBCD: result := F.AsFloat; ftInteger,ftWord,ftSmallint:result := F.AsInteger; else result := F.AsString; end;

---

@+ Phil
PS : ne pas oublier le tag resolue si la repons a ta question a ete apporté