Discussion :

[zanifu]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Matt2094]

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 ...

[anapurna]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

si ton champs n'existe pas utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zanifu]

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.

[anapurna]

salut

pour connaitre le type de champs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dataset.FieldByName(FieldName).DataType

un exemple d'utilisation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é