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 !