Discussion :

[DomDA91]

Dans la liste des lettres accentuées françaises il faut ajouter la lettre 'Ÿ' (majuscule) qui fait partie du français (voir https://fr.wikipedia.org/wiki/%C5%B8) bien qu'introduite tardivement par l'ISO (en 1999 dans le jeu latin-9 avec Œ/œ et €). 'ÿ' (minuscule) existait déjà dans le jeu latin-1.

En UTF8, ÿ (minuscule) est codé #$C3#$BF et Ÿ (majuscule) #$C5#$B8.

La fonction Majuscule pourrait donc être modifiée comme suit :

Code :

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

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
function Majuscule(s: string): string;
var
  i: integer;
begin
  result := s;
  if Length(s) > 0 then
  begin
    i := Ord(result[1]);
    if i in [$61..$7A] then // minuscules non accentuées
    begin
      Dec(i, $20);
      result[1] := Chr(i);
    end else
      if Length(result) > 1 then
      begin
        i := Ord(result[2]);
        case Ord(result[1]) of
          $C5: if i = $93 then i := $92; // oe avec ligature
          $C3: if i in [$A0..$BB]
               then Dec(i, $20) // minuscules accentuées cas général
               else If i = $BF Then Begin // cas de 'ÿ'
                 i := $B8;
                 result[1] := #$C5;
               end;
        end;
        result[2] := Chr(i);
      end;
  end;
end;

Observons que cette fonction est strictement limitée au jeux de caractères français et si elle est utilisée comme indiqué plus haut pour majusculiser des noms de pays il se pourrait que certains d'entre-eux comportent des accentuations non supportées en français.

Une solution serait d'utiliser la fonction WideUpperCase de la RTL comme suggéré par ThWilliam au début de cette discussion.

Je l'ai testée sous Windows et elle est vraiment "universelle". Elle fonctionne non seulement pour les caractères latins (toutes langues confondues) mais aussi pour le cyrilique, le grec ancien, etc. En ce qui concerne son utilisation sous Unix je n'ai pas vérifié mais la doc FPC précise qu'un WideString Manager doit être installé (ce qui est peut-être le cas avec Lazarus, à vérifier).

[Roland Chastain]

En UTF8, ÿ (minuscule) est codé #$C3#$BF et Ÿ (majuscule) #$C5#$B8.

La fonction Majuscule pourrait donc être modifiée comme suit :

Excellent !

Je n'avais pas pensé à cette lettre, bien que je sois un admirateur d'Eugène Ysaÿe.

Observons que cette fonction est strictement limitée au jeu de caractères français

Effectivement. Mais je l'aime bien quand même parce qu'elle fait comprendre les choses, et qu'elle montre que les "vieilles" fonctions peuvent toujours servir, pourvu qu'on s'en serve comme il faut.

Autrement, dans le genre confortable et universel, je viens d'essayer la petite bibliothèque UTF8Tools :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses
  UTF8Scanner, Character, UnicodeInfo;
 
(* http://www.theo.ch/lazarus/utf8tools.zip *)
 
function Majuscule(s: string): string;
var
  sc: TUTF8Scanner;
begin
  sc := TUTF8Scanner.Create(s);
  if sc.Length > 0 then
    sc[1] := TCharacter.toTitle(sc[1]);
  result := sc.UTF8String;
  sc.Free;
end;

Cette discussion m'a fait faire un bond en avant ! Merci à tous.