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

Langage Delphi Discussion :

Appel d'une fonction en connaissant le nom dans une table


Sujet :

Langage Delphi

  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2002
    Messages
    109
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Avril 2002
    Messages : 109
    Par défaut Appel d'une fonction en connaissant le nom dans une table
    Bonjour,

    Voici mon problème: Je dois être en mesure d'appeler une fonction selon la valeur d'un champ dans une base de données. Cette valeur représente le nom de la fonction.

    J'ai trouvé ceci:
    http://www.developpez.net/forums/d17...tenu-variable/

    Ça fonctionne très bien pour l'appel. Par contre, ça plante dans ma fonction. En effet, l'appel ce fait sur un objet de type TDocument (ma classe). J'ai donc mis la fonction à appelé dans le Published.

    Or, dans la fonction que j'appelle avec le nom, j'utilise une méthode Protected (ça fonctionne encore) mais par contre le crash se produit lors du retour de la valeur de la variable membre qui est Private (j'ai essayé de la mettre Protected ou Public mais j'obtiens le même problème).

    Voici mon bout de code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    Methode: Function():AnsiString Of Object;
     
    @Methode := Document.MethodAddress(Champs[0].strCH_Fonction);
    strTemp := Methode;
    Caption := strTemp;
    Puis dans la classe:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    published
     
    function obtenirDocumentIDFormate(): AnsiString;
     
    // Ma fonction
    function TDocument.obtenirDocumentIDFormate(): AnsiString;
     
    var
       strTemp: AnsiString;
       iCompteur: Integer;
     
    begin
     
       showmessage('dans fonction');
     
       strTemp := IntToStr(obtenirDocumentID()); <- ÇA PLANTE ICI!
     
       Result := strTemp;
     
    end;
    Merci de votre aide!

  2. #2
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 074
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 074
    Par défaut
    Transtype Methode en TMethod et affecte séparement le Code et le Data (qui sera Document dans ton cas)
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2002
    Messages
    109
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Avril 2002
    Messages : 109
    Par défaut
    Un peu plus d'explications svp?

    Merci!

  4. #4
    Expert éminent
    Avatar de ShaiLeTroll
    Homme Profil pro
    Développeur C++\Delphi
    Inscrit en
    Juillet 2006
    Messages
    14 074
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Développeur C++\Delphi
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juillet 2006
    Messages : 14 074
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    TMethod(Methode).Code := Document.MethodAddress(Champs[0].strCH_Fonction);
    TMethod(Methode).Data := Document;
    je ne sais plus si il y a le @ ou pas !
    Aide via F1 - FAQ - Guide du développeur Delphi devant un problème - Pensez-y !
    Attention Troll Méchant !
    "Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson" Confucius
    Mieux vaut se taire et paraître idiot, Que l'ouvrir et de le confirmer !
    L'ignorance n'excuse pas la médiocrité !

    L'expérience, c'est le nom que chacun donne à ses erreurs. (Oscar Wilde)
    Il faut avoir le courage de se tromper et d'apprendre de ses erreurs

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2002
    Messages
    109
    Détails du profil
    Informations personnelles :
    Localisation : Canada

    Informations forums :
    Inscription : Avril 2002
    Messages : 109
    Par défaut
    Super, ça marche #1!

    Merci!

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 04/03/2015, 08h27
  2. Réponses: 2
    Dernier message: 07/05/2010, 17h10
  3. Réponses: 7
    Dernier message: 26/08/2009, 13h44
  4. Réponses: 2
    Dernier message: 05/07/2008, 09h54
  5. Fermer une fenetre en connaissant son nom dans la FAQ
    Par morgan47 dans le forum VB 6 et antérieur
    Réponses: 8
    Dernier message: 04/09/2006, 10h41

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