Discussion :

[dimi2]

Bonjour,
J'ai découvert la fonction UpCase pour la mise en majuscules dans ce forum. Bouquins et recherches sur internet ne proposent que UpperCase qui est refusé par le compilateur. Quelle est la fonction faisant le travail inverse, mise en minuscules, correspondant à UpCase ?
Merci encore.

[Tuxico]

Il y a :

Code :

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

Function StrLower(C:PChar):PChar;

dans sysutils si je ne m'abuse.


Sinon,

Ce n'est pas très difficile à coder. Il suffit de jouer avec les codes des caractères ascii

[Alcatîz]

Bonjour,

Il y a :

Code :

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

Function StrLower(C:PChar):PChar;

dans sysutils si je ne m'abuse.

C'est dans l'unité Strings.

[dimi2]

Merci.
Avec le code suivant, j'obtiens l'erreur : type mismatch :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
 
capitale : string;
entree : string;
 
begin
 
capitale := copy(entree,1,1);
if ord(capitale[1]) < 91 then
capitale := strlower(capitale);

J'ai essayé avec la déclaration char pour la variable capitale, mais j'obtiens le même type d'erreur.

[diden138]

Bonjour,
pour convertir un caractère en majuscule/minuscule tu a plusieurs solutions soit tu fais ça :
1-manuellement( tu joue avec le code ASCII ou une autre solution d'Alcatiz ici )
2-en utilisant les fonctions déjà prête StrUpper,StrLower de l'unité Strings(ce que je te conseil).
Maintenant pour convertir une chaine complète en majuscule/minuscule faut écrire tes propres fonctions ce qui est très facile dans ce cas :

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
30
31
 
uses strings;
var
   text:string;
function  StrToUpper(const Chaine:String):String;
var
   i:integer;
   result:string;
begin
   Result:='';
   for i:=1 to length(Chaine) do
       Result:=Result+StrUpper(@Chaine[i])^;
StrToUpper:=Result;
end;
function StrToLower(const Chaine:String):String;
var
   i:integer;
   Result:string;
begin
   Result:=''; 
   for i:=1 to length(Chaine) do
       Result:=Result+StrLower(@Chaine[i])^;
StrToLower:=Result;
end;
begin
 read(text);
 writeln('en majuscule',strtoupper(text));
 writeln('en minuscule',strtolower(text));
readln;
readln;
end.

sinon si tu utilise FreePascal dans l'unité sysutils y a UpperCase et LowerCase qui font ça voila
Ps: Tu Obtenais une erreur car StrUpper et StrLower utilise des pointeur sur le caractère à transformer d'où l'ajout de "@".
en espérant t'avoir aider
Cordialement @+

[dimi2]

je vous remercie pour ce code... mais j'obtiens des erreurs à la compilation.