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.

[diden138]

assure toi que t'a bien ajouté l'unité Strings
Ps: j'ai pas Pascal sous la main pour tester mais ça devrais marcher.
Cordialement @+

[diden138]

désolé j'avais oublier quelques trucs (notament le ^)
j'ai rectifié le code à toi de jouer
Cordialement @+

[dimi2]

Là, j'ai l'erreur identifier expected sur la ligne

Code :

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

function  StrToUpper(const Chaine:String):String;

[diden138]

je viens de télécharger Tubro Pascal(malgré que je n'ai pas le droit là ou je suis) pour essayer et ça marche chez moi je comprend pas
essaye de changer les nom des fonctions peut être qu'elle existe déjà(dans TPW)
Cordialement @+

[Alcatîz]

C'est juste que TPW ne supporte pas le mode de transmission de paramètre comme constante. Il suffit d'ôter le const et cela compilera.

La FAQ traite des modes de transmission :
http://pascal.developpez.com/faq/?pa...re-ou-fonction

[dimi2]

Bonjour,

J'ai enlevé le const, mais ça ne compile toujours pas.

[Tuxico]

quelle erreur? quelle ligne?

[dimi2]

Erreur Identifier expected sur la ligne :

Code :

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

1
2
 
function  StrToUpper(Chaine:String):String;

[diden138]

Bonjour,
personellement je ne crois pas que tu est obligé de travailler avec TPW utilise FreePascal c'est le meilleur (pour moi en tout cas).
La solution que je t'ai proposé marche parfaitement
Cordialement @+

[dimi2]

Merci à tous.