Caractère alphabetique majuscule

Question

Bonjour,

Je voulais savoir comment exprimé en delphi un caractère en Alphabetique Masjuscule ( afin de faire un teste dans IF) ?

Merci beaucoup et bonne journée !

Tank

Cirec · Answer

Salut,
Fonction UpCase('a') --> A  // pour un caractère

Fonction UpperCase('delphi') --> DELPHI // pour une chaine de caractères

Var c: Char;

If UpCase(c) = 'Z' Then

Voilà 

@+
Cirec

Tank01 · Answer

Et si ma lettre que je veux tester peur etre n'importe qu'elle lettre de l'alphabet ( A,B,C ou D, OU......, Z) commment le tester ? N'ai-je pas d'autre choix que de faire un If UpCase(c)='Z' ou 'A' ou 'B' ?

Tank01 · Answer

En fait,pour expliquer c'est pour mettre dans un Posex(),je voudrais que le caractère à rechercher sois le premier caractère alphabetique majuscule !

ThWilliam · Answer

Salut,
si j'ai bien compris ce que tu veux, voici une procedure Posex.
Procedure et non function pcq elle renvoie deux valeurs :
   P : position du 1° caractère majuscule ou 0 (pas de majuscule dans la chaine)
   C: lettre majuscule ou #0 si pas de majuscule

procedure Posex(s: string; var P: integer; var C: char);
var
    i: integer;
begin
    P:= 0;
    C:= #0;
    for i:= 1 to Length(s) do
       if s[i] in ['A'..'Z'] then
      begin
         P:= i;
        C:= s[i];
        Break;  // sortie de la boucle
    end;
end;

A +
Thierry

Tank01 · Answer

mais delphi accepte il de comprendre que le caractère recherché serais de AàZ en majuscule, et cela, passé directement en paramètre de la fonction Posex ( sachant que je ne peux passer que des string en paramètre à rechercher:s :s je suis perdu :s )

Posex('A jusqu'a Z',string_to_test:string;Offset: Cardinal = i)

Voila je pense avoir été explicite lol, y a t-il moyen de faire comprendre a delphi "n'importe quelle char de A à Z" sachant que le premier paramètre de la fonction Posex doit etre un string !

Merci encore !!

Tank

f0xi · Answer

type
  TCharSet = set of Char;

function CharSetPos(const CharSet : TCharSet; const S : string; const OffSet : cardinal = 1) : cardinal;
var N : cardinal;
begin
    for N := Offset to Length(S) do begin
         if S[N] in CharSet then begin
            Result := N;
            exit;
         end;
    end;
end;







renvois l'indice d'une lettre appartenant a l'ensemble CharSet.

CharSetPos(['A'..'Z'],'bonjour Monsieur'); { renvois 9, qui est la position de "M" }

ThWilliam · Answer

Sorry, je n'avais pas pigé que tu voulais employer la fonction PosEx de Delphi.
Le paramètre Substr de PosEx est de type string, donc il réclame une valeur précise :  'A' ou 'B' ou 'Bonjour'.  Donc inutilisable dans ton cas...
Si tu veux scruter ton string_to_test à partir d'une certaine position, emploie la fonction de f0xi qui en plus te permet de rechercher n'importe quel ensemble de caractères.

Petite correction, car la valeur de retour de  CharSetPos peut être  indéfinie :

function CharSetPos(const CharSet : TCharSet; const S : string; const OffSet : cardinal = 1) : cardinal;
var N : cardinal;
begin
    Result:= 0;
    for N := Offset to Length(S) do begin
         if S[N] in CharSet then begin
            Result := N;
            Break;
         end;
    end;
end;

Comme ton Charset est toujours de A à Z : tu pourrais simplifier (mais est-ce utile ?)

function AToZSetPos(const S : string; const OffSet : cardinal = 1) : cardinal;
var N : cardinal;
begin
    Result:= 0;
    for N := Offset to Length(S) do begin
         if S[N] in ['A'..'Z'] then begin
            Result := N;
            Break;
         end;
    end;
end;

Tank01 · Answer

je vais tester cela dés que j'en ai le temps, cette fonction est très interessante !! merci beaucoup

Tank01 · Answer

Si j'ai bien compris ThWilliam, en fait, "const OffSet : cardinal" , il faut en fait passer un entier correspondant à l'index à partir duquel on veut commencer la recherche, c'est ca?

f0xi · Answer

oui l'offset vas de 1 a Length(S)

c'est un cardinal qui vas de 0 a 4 milliard et quelques vus qu'une chaine peu faire de 2octets  a 4Go ^^

aide delphi >> cardinal, integer, word, longword, smallint, shortint, byte (type entiers)

ThWilliam · Answer

Tu as bien compris.Petite précision : le paramètre Offset a une valeur par défaut 1 (const Offset: cardinal 1)
Donc, tu n'es pas obligé de le préciser pour une recherche commençant au 1° caractère.

P:= AToZSetPos(string_to_test);  // recherche à partir du 1° caractère
P:= AToZSetPos(string_to_test , 1); // idem   
P:= AToZSetPos(string_to_test, 10); //recherche à partir du 10° caractère

A +
Thierry

Caractère alphabetique majuscule

11 réponses

Votre réponse

Discussions similaires