IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lazarus Pascal Discussion :

Connaître un type à l'exécution [Lazarus]


Sujet :

Lazarus Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre émérite
    Profil pro
    Développeur informatique
    Inscrit en
    Janvier 2010
    Messages
    469
    Détails du profil
    Informations personnelles :
    Âge : 67
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Janvier 2010
    Messages : 469
    Par défaut Connaître un type à l'exécution
    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

  2. #2
    Invité
    Invité(e)
    Par défaut
    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

  3. #3
    Membre émérite
    Profil pro
    Développeur informatique
    Inscrit en
    Janvier 2010
    Messages
    469
    Détails du profil
    Informations personnelles :
    Âge : 67
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Janvier 2010
    Messages : 469
    Par défaut
    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.

  4. #4
    Membre chevronné
    Homme Profil pro
    Inscrit en
    Janvier 2010
    Messages
    235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Gironde (Aquitaine)

    Informations forums :
    Inscription : Janvier 2010
    Messages : 235
    Par défaut
    Essaye ClassName.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
     Str:=Button1.ClassName;  // Str <- TButton

  5. #5
    Membre émérite
    Profil pro
    Développeur informatique
    Inscrit en
    Janvier 2010
    Messages
    469
    Détails du profil
    Informations personnelles :
    Âge : 67
    Localisation : France

    Informations professionnelles :
    Activité : Développeur informatique

    Informations forums :
    Inscription : Janvier 2010
    Messages : 469
    Par défaut
    Bon sang, mais c'était évident et je ne l'ai pas vu...

    Merci !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [D7] connaître un type d'exception et la gérer
    Par _alex_ dans le forum Delphi
    Réponses: 3
    Dernier message: 29/08/2006, 13h41
  2. Réponses: 9
    Dernier message: 12/06/2006, 12h39
  3. Connaître le type d'un champs d'une table Mysql
    Par xoran dans le forum Langage SQL
    Réponses: 1
    Dernier message: 20/07/2005, 09h29
  4. [POO] Comment connaître le type d'un objet
    Par zizou39 dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 01/03/2005, 09h46
  5. [Access] Connaître le type de donnée
    Par Ric1983 dans le forum Bases de données
    Réponses: 4
    Dernier message: 15/02/2005, 19h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo