FONCTION MAJUSCULE ET MINUSCULE ACCENTUÉES
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015
-
16 mai 2004 à 16:10
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 21 mai 2004 à 23:39
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 - 21 mai 2004 à 23:39
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/22864-fonction-majuscule-et-minuscule-accentuees
https://codes-sources.commentcamarche.net/source/22864-fonction-majuscule-et-minuscule-accentuees
21 mai 2004 à 23:39
Mais vu les commentaires que tu avais ajouté, je ne pensais pas que c'étais ce que tu utilisas ( j'avais pas vu le zip à ce moment... )
18 mai 2004 à 21:56
18 mai 2004 à 21:53
Si on te pose la question...tu dis que tu n'es pas au courant
17 mai 2004 à 09:32
et utiliser un boucle For est plus clair à mon avis vu que dans le meilleur des cas, il n'y a que 2 variables utilisées :)
sinon Nono a raison (comme souvent) AnsiUpperCase est deja tout fait :p
17 mai 2004 à 00:58
16 mai 2004 à 16:18
______________________________
function majuscule(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if Ch in ['a'..'z'] then Dec(Ch, 32);
if Ch in ['à'..'ö'] then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
______________________________
mais bon...trop long à mon goût
16 mai 2004 à 16:10
je pensais aussi à :
______________________________________________
function majuscule(s:string):string;
begin
while length(result)<length(s) do if (s[length(result)+1] in ['a'..'z'])or(s[length(result)+1] in ['à'..'ö']) then result:=result+chr(ord(s[length(result)+1])-32) else result:=result+s[length(result)+1];
end;
______________________________________________
ou à
______________________________________________
function majuscule(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32);
if (Ch >= 'à') and (Ch <= 'ö') then Dec(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;
______________________________________________
qui est une dérivée directe de la fonction uppercase de Delphi