Discussion :

[naute]

Bonjour .

Je suis en train de convertir une petite appli Delphi vers Lazarus et ça ne se passe (pour l'instant) pas trop mal, mais je bute sur l'erreur Ordinal expression expected que je ne comprend pas. Sous Delphi, cette ligne de code fonctionne sans problème et on est là dans du basique.

Code Pascal :

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

 if not (Key in [' ','-','a'..'z','A'..'Z','é','è','ê','î','ï','ô','ç','à','ù',Chr(VK_BACK), Chr(VK_DELETE)])

L'erreur est positionnée sous la virgule qui précède le é

Code :

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

'A'..'Z','é'

Je dois dire que je ne refuserais pas un coup de main .

Amicalement,
naute.

Edit: J'avais écrit "butte". Oups! Heureusement que jipété est en week-end .

[thewolf]

Bonjour.

Le problème vient du fait que les caractères accentués ne sont pas considérés par Lazarus comme des caractères donc de type scalaire (ordinal) mais comme des chaines de caractères (string).

Il doit donc falloir utiliser une autre méthode (genre case ?).

Je n'en sais pas plus !

Cordialement.
Christian

[Roland Chastain]

Bonjour ! Pour compléter la réponse de Christian, changer l'encodage du fichier devrait résoudre le problème. Clic droit, paramètres du fichier, encodage, Ansi (cp1252).

[naute]

Bonjour Christian, bonjour Roland .

@ Christian:
Merci pour ces précisions. J'ai du mal à comprendre pourquoi Lazarus (Free Pascal), qui, si j'ai bien compris, se veut une implémentation (clone) libre de Delphi (Turbo Pascal), ne respecte pas les Type(s) de base. Ce n'est certainement pas ça qui va arranger la position du Pascal dans l'Open Source.

@ Roland:
Merci pour ton intervention, Roland, mais:
1 - Clic droit sur quoi? C'est peut-être évident pour toi mais pour moi bof...
2 - Ansi (CP1252): Je voyais plutôt UTF8 mais ça n'a peut-être rien à voir.

Amicalement,
Hervé.

[Roland Chastain]

Clic droit sur quoi?

Clic droit dans la fenêtre de Lazarus, celle dans laquelle tu tapes ton code. Pardon pour le vague de ma réponse.

D'une manière ou d'une autre, la solution la plus facile consiste à changer l'encodage du fichier. La solution moins facile est de changer certaines habitudes de programmation qui ne correspondent plus à "ce qui se fait de mieux maintenant", à savoir l'UTF-8, qui permet d'afficher tous les caractères de toutes les langues. Le code que tu nous a montré ne passerait pas non plus avec un Delphi récent.

[Roland Chastain]

Dans un fichier encodé en UTF-8 (encodage que Lazarus utilise par défaut, comme Delphi désormais), le caractère accentué est encodé sur plusieurs octets. Ce n'est pas un "type ordinal".

[naute]

OK! .

Maintenant que c'est fait, un autre problème arrive. Lazarus n'a pas l'air de connaître MilToPix(). Quel est son équivalent s'il existe?

[Jipété]

Et là-dedans :

T'es allé voir là-dedans ?

[naute]

Croisement de post.

Et là-dedans :

T'es allé voir là-dedans ?

Ben j'y étais allé hier et j'avais enlevé la référence de la clause uses, puisque je voulais me débarrasser du manifest dont Lazarus ne voulait pas. Donc, le message est logique d'une certaine manière. Mais en revérifiant tout à l'heure tous les lfm, j'ai constaté que la référence avait été remise dans base.lfm. Je l'ai ré-enlevée (têtu) mais au lieu de compiler tout de suite, j'ai basculé unité/fiche (hier je ne pouvais pas) et j'ai constaté la disparition du composant TXPManifest. J'ai lancé la compil à la suite et ça a fonctionné. Enfin si on peut dire (voir mon post précédent).

Encore des comportements plus ou moins erratiques.