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 :

[laz4android] Erreur de syntaxe avec case of string


Sujet :

Lazarus Pascal

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 332
    Par défaut [laz4android] Erreur de syntaxe avec case of string
    Bonjour à tous

    j'utilise Laz4Android pour faire une petite application.
    j'ai un jmenu.
    J'utilise case of avec TAndroidModule1.AndroidModule1ClickOptionMenuItem

    Si j'utilise itemId pas de souci
    si j'utilise itemCaption créer plante
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
      case itemCaption of
          'Save':

  2. #2
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 927
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 927
    Billets dans le blog
    6
    Par défaut
    Bonjour,
    Effectivement, en Pascal, pas de case sur des chaînes.
    A émuler par un
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    i := CaptionList.Indexof(itemCaption);
    case i of
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  3. #3
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 217
    Par défaut
    Hello,
    Citation Envoyé par tourlourou Voir le message
    Effectivement, en Pascal, pas de case sur des chaînes.
    C'est bizarre ce que tu dis . Ce code fonctionne chez moi en free pascal :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    var s : String;
    begin
      s := 'titi';
      case s of
       'toto' : writeln('toto');
       'titi' : writeln('titi');
      end;
      readln;
    end.
    Ami calmant, J.P

  4. #4
    Modérateur
    Avatar de tourlourou
    Homme Profil pro
    Biologiste ; Progr(amateur)
    Inscrit en
    Mars 2005
    Messages
    3 927
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Biologiste ; Progr(amateur)

    Informations forums :
    Inscription : Mars 2005
    Messages : 3 927
    Billets dans le blog
    6
    Par défaut
    C'est moi qui doit dater du jurassique, alors
    Je me suis fié à mon expérience surtout Delphi : si FPC a intégré le case string, c'est bien
    Delphi 5 Pro - Delphi 11.3 Alexandria Community Edition - CodeTyphon 6.90 sous Windows 10 ; CT 6.40 sous Ubuntu 18.04 (VM)
    . Ignorer la FAQ Delphi et les Cours et Tutoriels Delphi nuit gravement à notre code !

  5. #5
    Membre éclairé
    Avatar de sematimo
    Profil pro
    Inscrit en
    Février 2009
    Messages
    332
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2009
    Messages : 332
    Par défaut
    Ne fonctionne toujous pas avec:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    procedure TBlocnote.BlocnoteClickOptionMenuItem(Sender: TObject;
      jObjMenuItem: jObject; itemID: integer; itemCaption: string; checked: boolean
      ); 
    var
    s:string;
    begin
        s:=itemCaption;
       case s of
            'Save':  textview1.Text:='save';
    end;
    end;

  6. #6
    Expert confirmé
    Avatar de jurassic pork
    Homme Profil pro
    Bidouilleur
    Inscrit en
    Décembre 2008
    Messages
    4 217
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Bidouilleur
    Secteur : Industrie

    Informations forums :
    Inscription : Décembre 2008
    Messages : 4 217
    Par défaut
    Tu peux essayer ceci aussi :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    uses strUtils;
    var  s : String;
    begin
      s := 'titi';
      case IndexStr(s,['toto','titi']) of
       0 : writeln('toto');
       1 : writeln('titi');
      end;
      readln;
    end.

  7. #7
    Expert confirmé
    Avatar de Jipété
    Profil pro
    Inscrit en
    Juillet 2006
    Messages
    11 120
    Détails du profil
    Informations personnelles :
    Localisation : France, Hérault (Languedoc Roussillon)

    Informations forums :
    Inscription : Juillet 2006
    Messages : 11 120
    Par défaut
    Citation Envoyé par sematimo Voir le message
    Ne fonctionne toujours pas...
    Pas la première fois que je te dis que des infos comme "ne fonctionne pas" ou "plante" ne sont pas des messages d'erreur valides...

    Et sinon, quand on a ce genre d'embrouille, la première chose à faire est de vérifier les données :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
    procedure TBlocnote.BlocnoteClickOptionMenuItem(Sender: TObject;
      jObjMenuItem: jObject; itemID: integer; itemCaption: string; checked: boolean
      ); 
    var
      s: string;
    begin
      s:=itemCaption;
      ShowMessage(s); // <</!\ <</!\ <</!\ et tu nous dis ce que ça affiche
      case s of
        'Save':  textview1.Text:='save';
      end;
    end;

    Je profite du post pour squatter :
    pour ce sujet (https://www.developpez.net/forums/d2.../#post12027267), tu en es où ?

    MP pour Yves : oui oui ça fonctionne, même sous Linux !

Discussions similaires

  1. [PHP 4] Erreur de syntaxe avec Implode
    Par jmtrivia dans le forum Langage
    Réponses: 2
    Dernier message: 13/05/2009, 18h43
  2. Gestionnaire d'interruptions : erreur de syntaxe avec l'opcode call
    Par Link/DD dans le forum Programmation d'OS
    Réponses: 7
    Dernier message: 23/01/2008, 17h00
  3. [POO] Erreur de syntaxe avec une classe
    Par sirbaldur dans le forum Langage
    Réponses: 5
    Dernier message: 10/01/2007, 13h30
  4. [Conception] Erreur de syntaxe avec un champ de tableau
    Par lodan dans le forum PHP & Base de données
    Réponses: 6
    Dernier message: 21/09/2006, 11h45
  5. Erreur de syntaxe avec UPDATE
    Par tyarak dans le forum Requêtes
    Réponses: 3
    Dernier message: 01/02/2006, 01h18

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