Vérifier qu'un element "char" est un entier "integer"

Version imprimable

05/05/2007, 21h21
nic1319

Vérifier qu'un element "char" est un entier "integer"

Bonjour,
Je débute en delphi (pascal).

J'ai une variable de type char "variable", je voudrais verifier si la variable contient un entier.
J'ai cree un ensemble d'entier "ens".

If variable in ens
Then ...

Il me dit que char n'est pas compatible avec integer.
Comment faire alors pour arriver a faire cette verification?

Merci

Nico
05/05/2007, 21h31
droggo

Lai,

Le passage char vers entier se fait avec ord.

Mais pourquoi ne pas tester directement avec un ensemble de char ?
05/05/2007, 22h18
nic1319

Comment faire un ensemble de char en enlevant les entiers?

Merci
05/05/2007, 22h31
CapJack

Pourrais-tu poster le code stp ? Parce que là, j'ai beaucoup de mal...

Si je prends ta requête à la lettre, la syntaxe juste est :

Code:

if variable in ['0'..'9'] then // <- avec des guillements pour les caractères.

Mais j'ai un gros doute.
05/05/2007, 23h48
nic1319

en fait je fais un projet d'algorithmique (sur delphi).
Je realise un jeu de domino.
Et donc mon pb et que lors du jeu, je stocke ce que veut faire l'utilisateur dans une variable "choix" (de type char) ('le numero' du domino qu'il veut jouer ou 'P' pour piocher ou 'Q' pour passer).

Donc je voudrais savoir si dans "choix", il y a un entier pour traiter le cas de l'ajout du domino.

Capjack, avec ton code, il me dit que les types sont incompatibles.?

Encore merci

Nicolas
06/05/2007, 00h51
CapJack

Poste le code que tu as programmé. Sans ça, on va tourner en rond.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Procedure AFFICH_MENU_TOUR (var choix:char; dom_max_pioche:integer);
Begin
  Writeln ('Que voulez-vous faire?');
  writeln ('Jouer un domino (Taper le numero du domino à jouer),');
  If dom_max_pioche<>0
  Then
    writeln ('Piocher (Taper ''P'').')
  Else
    writeln ('Je passe mon tour (Taper ''Q'').');
  readln (choix);
  choix:=upcase(choix);
end;
 
////////////////////////////////////////////////////////////////////////////////
Procedure TOUR (var pdeb_p,pdeb_pl,pfin_pl:T_ptr_dom;var dom_max_pioche:integer;pcour_j:T_ptr_joueurs);
var
  choix:char;
  pcour_d:T_ptr_dom;
  cote:char;
  cote_aux:integer;
Begin
  writeln ('Les dominos du plateau sont : ');
  writeln;
  AFFICH_PLATEAU (pdeb_pl);
  writeln ('Les dominos de la main de ',pcour_j^.nom,' sont : ');
  writeln;
  AFFICH_MAIN (pcour_j^.main);
  writeln;
  AFFICH_MENU_TOUR (choix,dom_max_pioche);
  If choix in ['1'..'28']                  //Ajout d'un domino au plateau
    Then
      begin
        //Retrait du domino de la main du joueur
        RETRAIT_VD_DOM (pcour_j^.main,choix,pcour_d);
        //Recherche des possibilités d'ajout du domino sur le plateau et ajout

Delphi me marque :[DCC Erreur] fonctionnalites.pas(73): E2010 Types incompatibles : 'Char' et 'string'
[DCC Erreur] fonctionnalites.pas(74): E2010 Types incompatibles : 'string' et 'Char'

06/05/2007, 08h28
sjrd
Tu as 28 dominos différents ? Dans ce cas tu ne peux travailler avec des Char : du dois utiliser des string et faire :
Code:

1 2 NoDomino := StrToIntDef(Choix, 0); if (NoDomino > 0) and (NoDomino <= 28) then
06/05/2007, 10h10
CapJack

Oui, c'est bien ce que je craignais. Encore des confusions autour de la notion de variable et de type. Ici, nous avons une confusion entier (Integer) / caractère (Char) / chaîne de caractères (String).

On ne peut pas stocker une chaîne de deux caractères ou plus telles que '28' dans un variable de type Char, qui ne peut contenir qu'un seul caractère. Pour stocker plus d'un caractère, il faut utiliser le type String.

On ne peut pas comparer une variable de type Integer avec une variable de type String.

Si tu as pratiqué a programmation via un langage de marquage ou de script qui n'est pas très regardant au niveau des types, bienvenue dans un langage structuré et rigoureux qui ne permet pas ce genre de bricolage (sauf avec les variants, mais beurk) !

Je te conseille d'approfondir la notion de variable et les différents types de variable en prenant un peu de ton temps pour étudier les excellents tutoriels que le site propose. ;)

Tout marche bien maintenant, merci à sjrd et à capjack!

J'aurais juste une autre question sans doute idiote (la question est dans le code suivant) :
Code:

1 2 3 4 5 6 7 If ok=true Then If ok2=true Then writeln ('Tout est ok') Else writeln ('comment l''ordi fait pour savoir avec quel ''if'' va ce ''else'' (le premier ou le deuxieme)??')
Merci bien

Il va avec le plus proche en remontant.

Pour faire correspondre le dernier else avec le premier then il faut mettre le premeir then dans un bloc begin.. end.

Ton code :
Code:

1 2 3 4 5 6 7 If ok=true Then If ok2=true Then writeln ('ok true, ok2 true') Else writeln ('ok true, ok2 false');
Autre code :
Code:

1 2 3 4 5 6 7 8 9 If ok=true Then begin If ok2=true Then writeln ('ok true, ok2 true') end Else writeln ('ok false');