Discussion :

[tintinux]

Bonjour,

Connaissez-vous un moyen de récupérer à l'exécution le nom du type d'un TControl, dans une chaîne de caractères ?

Exemple : Lafonction(Edit1) retournerait 'TEdit'

Merci
Martin

[Invité]

Bonjour,

Je ne sais pas si cela peut vous aider. J'utilise ce genre de procedure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function TFormX.CheckFieldsOK(Sender : TObject): Tedit;
//Vérifie le remplissage des champs
//Renvoi le premier Tedit vide [dont le nom commence par ED]
var
 iLoc : integer;
begin
 for iLoc := 0 to ComponentCount-1 do
  if (Components[iLoc] is TEdit) then
   if LeftStr(Tedit(Components[iLoc]).Name,2) = 'ED'  then 
     Result := Tedit(Components[iLoc]);
end;

Cordialement. Gilles

[tintinux]

Bonjour,

Sauf erreur ça retourne le nom du composant, pas son type.

Ce dont j'ai besoin est que ça retourne 'TEdit' pas l'adresse du composant, dans ton exemple.

Merci quand même.

[batyann811]

Essaye ClassName.

Code :

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

 Str:=Button1.ClassName;  // Str <- TButton

[tintinux]

Bon sang, mais c'était évident et je ne l'ai pas vu...

Merci !