Discussion :

[BXDSPORT]

Bonjour

Je désire savoir sous delphi 2005 entreprise comment faire pour résoudre une erreur. Voici le problème
J'ai une variable donnée définie en string qui récupére une lettre. J'ai une constante array of char où j'ai définie les lettres de l'alphabet. Je me pose la question suivante Comment faire pour vérifier que la lettre de ma variable se trouve dans le liste de ma constante.

Merci de vos pistes

[LadyWasky]

Pourquoi ne fais tu pas en sorte que ta constante soit un ensemble (type Set) au lieu t'un tableau de caractères ?

Code :

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

1
2
3
4
5
6
7
8
9
10
const Alphabet=['A'..'Z', 'a'..'z'];
var S:string;
begin
//Initialisation
S:='C';
 
//Test :
if (S[1] in Alphabet) then ...
 
end;

[Cl@udius]

Salut !

Je te propose deux solutions

la première avec ton tableau:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function IndexOfAlphabet(const s: string): Integer;
var
  i: Integer;
begin
  result := -1;
  for i := 0 to High(Alphabet) do
    if s = Alphabet[i] then begin
      result := i;
      Exit;
    end;
end;

Si la fonction renvoie -1 alors s ne fait pas partie du tableau.

A moins que tu aies réellement besoin d'un tableau, je te propose ceci de plus simple:

Code :

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

1
2
3
4
5
6
7
 
function EstDansAlphabet(const c: Char): Boolean;
var
  Alphabet: set of 'A'..'Z';
begin
  result := c in Alphabet;
end;

@+

[Cl@udius]

Ce coup-ci c'est moi qui suis grillé par Waskol !!

[LadyWasky]

Ce coup-ci c'est moi qui suis grillé par Waskol !!

Chacun son tour, comme à la confesse !