Discussion :

[sematimo]

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

Code :

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

1
2
  case itemID of
      i:

si j'utilise itemCaption créer plante

Code :

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

1
2
  case itemCaption of
      'Save':

[tourlourou]

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

[jurassic pork]

Hello,

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

[tourlourou]

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

[sematimo]

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;

[jurassic pork]

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.

[Jipété]

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 !

[sematimo]

Voici le message que j'ai lorsque je fais 'Créer'

[Jipété]

Voici le message que j'ai lorsque je fais 'Créer'

Admettons, mais c'est où que tu fais "Créer ? Dans quel bout de code ? On ne le voit pas dans ce que tu postes...


Je t'avais demandé un "ShowMessage(s)", il est où son résultat ?


Et pour l'autre sujet, tu en es où ?

[Andnotor]

Je t'avais demandé un "ShowMessage(s)", il est où son résultat ?

Comment veux-tu si l'app ne démarre pas


Relisez plus attentivement la réponse de tourlourou :

Je me suis fié à mon expérience surtout Delphi : si FPC a intégré le case string, c'est bien

Delphi attend une valeur ordinale {$mode delphi} alors qu'une chaîne est acceptée par Free Pascal {$mode objfpc}.

[sematimo]

J'ai précisé au début que j'utilise laz4android.
Je ne peux pas avoir de résultat avec showmessage puisque l'application n'est pas créée et donc je ne peux pas lancer l'apk.
Avec laz4android je vais dans le menu 'Exécuter' et 'Créer' et normalement si tous va bien je lance '[LAMW] build Android APK et Run'.

Code :

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

1
2
i := CaptionList.Indexof(itemCaption);
case i of

ce code revient à utiliser itemid.

Je voulais utiliser itemCaption pour avoir un code source plus compréhensible avec case of 'new' 'save' open', mais bon je vais utiliser itemID, case of 1, 2, 3...

[Andnotor]

Je voulais utiliser itemCaption pour avoir un code source plus compréhensible avec case of 'new' 'save' open'

Plus compréhensible mais moins évolutif puisque limité à l'anglais.

je vais utiliser itemID, case of 1, 2, 3...

Préférable, quitte à déclarer des constantes pour plus de clarté : NewID=1, SaveID=2.

[jurassic pork]

Hello,

case of string works only in mode objfpc.

Tu as un mode Delphi dans ton code ? Dans le forum mettre toujours le code en entier quand c'est possible car on peut passer à côté de quelque chose si on ne voit pas tout.
Ma solution du message #6 ne fonctionne pas ?

Ami calmant, J.P

[sematimo]

en utilisant itemid , l'apk est créer, au run showmessage affiche bien le texte sélectionné dans le menu

je suis bien en delphi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
unit unit1;
 
{$mode delphi}
 
interface
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, SysUtils, AndroidWidget, Laz_And_Controls, intentmanager, And_jni,
  menu;
 
type