[laz4android] Erreur de syntaxe avec case of string

Version imprimable

25/10/2024, 17h28
sematimo

[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
Code:

1 2 case itemID of i:
si j'utilise itemCaption créer plante
Code:

1 2 case itemCaption of 'Save':
26/10/2024, 09h53
tourlourou
Bonjour,
Effectivement, en Pascal, pas de case sur des chaînes.
A émuler par un
Code:

1 2 i := CaptionList.Indexof(itemCaption); case i of
26/10/2024, 10h04
jurassic pork
Hello,

Citation:

Envoyé par tourlourou

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:

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
26/10/2024, 10h44
tourlourou

C'est moi qui doit dater du jurassique, alors :oops:
Je me suis fié à mon expérience surtout Delphi : si FPC a intégré le case string, c'est bien :bravo:

Ne fonctionne toujous pas avec:

Code:

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;

Tu peux essayer ceci aussi :

Code:

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.

Citation:

Envoyé par sematimo

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:

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.../), tu en es où ?

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

26/10/2024, 20h48
sematimo

1 pièce(s) jointe(s)

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

Pièce jointe 661030
26/10/2024, 23h28
Jipété

Citation:

Envoyé par sematimo

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...
:cristal:

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

Et pour l'autre sujet, tu en es où ?
27/10/2024, 08h01
Andnotor

Citation:

Envoyé par Jipété

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

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

Relisez plus attentivement la réponse de tourlourou :

Citation:

Envoyé par 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}.
27/10/2024, 08h23
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:

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...
27/10/2024, 08h50
Andnotor

Citation:

Envoyé par sematimo

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.

Citation:

Envoyé par sematimo

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.
27/10/2024, 09h19
jurassic pork

Hello,

Citation:

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

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:

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