Discussion :

[dimi2]

Bonjour, voici mon code. trois erreurs s'affichent à la compilation :

1. Unknow identifier pour la ligne Trim(...)
2. Ordinal expression expected pour la ligne Ord(...)
3. Unknow identifier pour la ligne UpperCase(...).

Par Trim(...), je voudrais supprimer les espaces de début et de fin de la chaîne entrée.
Par Ord(...) , je voudrais obtenir le code Ascii de la première lettre de la chaîne entrée.
Par UpperCase(...) , je voudrais mettre la première lettre de l'entrée en majuscule.

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
 
 
var
entree : string;
capitale : string;
ascii : integer;
 
begin
 
...
readln(entree);
entree := trim(entree);
capitale := copy(entree,1,1);
ascii := ord(capitale);
if ascii > 96 then
        capitale := UpperCase(capitale);
...

Je ne vois pas du tout ce qui ne convient pas. Merci de votre coup de pouce.

[darrylsite]

Il faut avant tout savoir que les procedure upcase, ord sont predefinies. Elles prennent en argument un caractere et non une chaine de caracteres.
si tu veux mettre le premier caractere en majiscule tu peux faire :

Code :

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

1
2
 
capitale[1] := UpCase(capitale[1]);

Pour obtenir le code ascii du premier caractere :

Code :

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

1
2
 
ascii := ord(capitale[1]);

je ne sais pas si trim est predefinie. Mais si elle ne l' est pas, il faut la definir avant de l' utiliser.

[dimi2]

Merci beaucoup, c'est parfait pour UpCase et Ord. Par contre pour Trim j'ai fait :

Code :

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

1
2
3
4
5
6
 
var
entree : string[80];
 
begin
entree := trim(entree[80]);

Mais J'obtiens encore l'erreur Unknown identifier.

[droggo]

Gio,

Je ne crois pas que Trim existe dans TPW, ni prédéfinie, ni dans l'unité Strings (je n'ai pas TPW sous la main pour vérifier, mais tu peux le faire rapidement dans l'aide).

Il te faut donc l'écrire, ou la trouver toute faite quelque part.

[dimi2]

Bonjour,
Je vous remercie de votre information. Je lutte avec Trim depuis plusieurs heures... Je débute en TP et je m'étonne de la complication de ce langage. Il y a toujours une subtilité qu'uncun bouquin n'explique ou signale. Trim ne fonctionne pas, pas plus que TrimRigth, TrimLeft, UpperCase, LowerCase ... pourtant fonctions censées appartenir à TP...

[droggo]

Hie,

Bonjour,
Je vous remercie de votre information. Je lutte avec Trim depuis plusieurs heures... Je débute en TP et je m'étonne de la complication de ce langage. Il y a toujours une subtilité qu'uncun bouquin n'explique ou signale. Trim ne fonctionne pas, pas plus que TrimRigth, TrimLeft, UpperCase, LowerCase ... pourtant fonctions censées appartenir à TP...

Certaines fonctions que tu cites n'existent pas dans TPW, vérifie dans l'aide si ce que tu veux utiliser existe.
(Dans TPW, il suffit d'écrire le nom de la fonction que tu veux utiliser dans le code, positionner le point d'insertion sur ce mot, et faire Ctrl F1 pour vérifier)

Pascal n'est pas plus compliqué que tous les langages du même type, mais il ne faut pas chercher à utiliser des fonctions qui n'existent pas.
Il n'y a pas là de subtilité, ça existe ou pas.
- Si ça existe, il faut utiliser les bons paramètres pour l'appel, l'aide est là pour savoir ce qu'il faut.
- Sinon, il faut se débrouiller pour écrire une fonction qui produit le résultat voulu, ou en trouver une quelque part.