Conversion Delphi vers Lazarus - Error: Ordinal expression expected

Bonjour :D .

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:

---

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:

---

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

---

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

Amicalement,
naute.

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

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

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).

Bonjour Christian, bonjour Roland :D .

@ 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 :oops: bof...
2 - Ansi (CP1252): Je voyais plutôt UTF8 mais ça n'a peut-être rien à voir.

Amicalement,
Hervé.

Citation:

---

Envoyé par naute

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.

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".

OK! :plusser: .

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?

Citation:

---

Envoyé par naute

Lazarus n'a pas l'air de connaître MilToPix().

---

Moi non plus. :)

Qu'est-ce que cette fonction est supposée faire ?

Citation:

---

Envoyé par naute

OK! :plusser: .

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?

---

Ca ne serait pas une fonction provenant de ton projet en Delphi par hasard, qui se cacherai dans une autre unité ?

Code:

---

1 2 3 4

Function MillimetreToPixel(Value : Single):Integer; begin result := Round(Value *3.7795275591) end;

---

cf : https://www.unitconverters.net/typog...to-pixel-x.htm

Citation:

---

Envoyé par Roland Chastain

Moi non plus. :)
Qu'est-ce que cette fonction est supposée faire ?

---

Autant pour moi :aie: .

Code:

---

1 2 3 4 5 6

function MilToPix(PPI,Longueur: Integer): Integer; //Renvoie le nombre de pixels correspondant à "Longueur" exprimée en //millimètres sur l'axe considéré de l'imprimante en cours begin Result := Trunc(Longueur * PPI / 25.4); end;

---

C'est une petite routine perso (:oops: le code date de plusieurs années, j'avais oublié) qui se trouve dans une unité que j'ai supprimé car Lazarus n'en voulait pas (pour d'autres raisons). Et donc, évidemment, Lazarus ne la trouve plus à la compil. Vraiment désolé.

Pour tout dire, l'appli est destinée à établir un contrat de location saisonnière et je "fabrique" le contrat "à la main" afin de l'imprimer. C'est d’ailleurs assez fastidieux. Après impression, je le scanne et le sauvegarde en PDF pour l'envoyer par mail. Maintenant, je crée le PDF directement avec PowerPdf, qui n'est pas parfait mais qui fonctionne, et je veux tout passer sous Linux. Je n'ai rien contre Windows, j'ai adoré Windows 3.11 quand Linux n'était pas encore né, et Win XP et Win 7 (pas Win 8 et Win 10), mais j'ai plus de 10 ordis à la maison (je ne jette rien) qui n'attendent que Linux pour avoir une seconde vie.

Il faut donc que je supprime tous les appels aux fonctions liées à l'impression et dont je n'ai plus besoin, et probablement à d'autres fonction inutiles maintenant, avant d'appeler au secours.

Je n'ai par contre pas encore trouvé la solution en ce qui concerne l'encodage et la vérification de la saisie de caractères.

Amicalement,
Hervé.

Bonjour BeanzMaster :D .

Citation:

---

Envoyé par BeanzMaster

Ca ne serait pas une fonction provenant de ton projet en Delphi par hasard, qui se cacherai dans une autre unité ?

---

Encore un croisement de post :haha: !

Bien vu: voir au dessus. :ccool:

Apparemment, ça compile maintenant. Il ne reste plus que ça:

Pièce jointe 377281

Je l'ai pourtant enlevé de la clause uses: Je ne vois pas quoi faire de plus puisque, comme je ne peux pas afficher la fiche, je ne peux pas supprimer ce composant.

Edit:
Je l'ai également supprimé du fichier .lfm

Code:

---

1 2 3

object XPManifest1: TXPManifest Left = 385 end

---

Si je peux me permettre :

Citation:

---

Envoyé par naute

Autant pour moi :aie: .

Code:

---

1 2 3 4 5 6

function MilToPix(PPI,Longueur: Integer): Integer; //Renvoie le nombre de pixels correspondant à "Longueur" exprimée en //millimètres sur l'axe considéré de l'imprimante en cours begin Result := Trunc(Longueur * PPI / 25.4); end;

---

---

Code:

---

1 2 3 4 5 6

function MilToPix(PPI,Longueur: Integer): Double; //Renvoie le nombre de pixels correspondant à "Longueur" exprimée en //millimètres sur l'axe considéré de l'imprimante en cours begin Result := Longueur * PPI / 25.4; end;

---

Et tu fais le round (et pas un trunc, qui se contente de tronquer, genre 12,9 va devenir 12 :aie:) dans la partie qui appelle cette fonction.
Comme ça, au cas où il y aurait plusieurs opérations qui se suivent, tu ne fais qu'un seul round (plus performant), et tu auras moins d'imprécision.

Citation:

---

Envoyé par naute

j'ai adoré Windows 3.11 quand Linux n'était pas encore né

---

Rhôôôô, :P
Windows 3.0 : Sortie le 22 mai 1990
Linux : Sortie 17 septembre 1991
Windows 3.1 : Sortie le 18 mars 1992
Windows 3.11 : Sortie mi-1993
sources : Wikipédia, remonté par ggl.

Et pour ce TXPManifest, doit y avoir une autre unité qui l'utilise, faut tout passer en revue...

Citation:

---

Envoyé par Jipété

Si je peux me permettre :

Code:

---

1 2 3 4 5 6

function MilToPix(PPI,Longueur: Integer): Double; //Renvoie le nombre de pixels correspondant à "Longueur" exprimée en //millimètres sur l'axe considéré de l'imprimante en cours begin Result := Longueur * PPI / 25.4; end;

---

Et tu fais le round (et pas un trunc, qui se contente de tronquer, genre 12,9 va devenir 12 :aie:) dans la partie qui appelle cette fonction.
Comme ça, au cas où il y aurait plusieurs opérations qui se suivent, tu ne fais qu'un seul round (plus performant), et tu auras moins d'imprécision.

---

Mais tu peux tout te permettre jipété :D . Je prend tous les conseils.

Citation:

---

Envoyé par Jipété

Linux : Sortie 17 septembre 1991

---

Là tu chipotes. C'est le noyau qui est sorti en 1991, et sauf erreur, ne disposait pas encore d'interface graphique. Si on va par là, le "noyau" sur lequel est bâti Windows 3.10 (là je suis d'accord par rapport à 3.11) est sorti au début des années 80 soit légèrement avant Linux. Bien sûr, si tu veux remonter jusqu'à Unix Système V, je ne peux plus rien dire. :mouarf:

Bonsoir,

TXPManifest n'était-il pas un composant destiné à intégrer le fichier manifest sous Windows XP à l'époque de D7?
Maintenant Lazarus sous Windows permet d'intégrer ce fichier dans les ressources depuis les Options du projet.
Sous Linux je ne sais pas...

André

Citation:

---

Envoyé par naute

Apparemment, ça compile maintenant. Il ne reste plus que ça:

Je l'ai pourtant enlevé de la clause uses: Je ne vois pas quoi faire de plus puisque, comme je ne peux pas afficher la fiche, je ne peux pas supprimer ce composant.

Edit:
Je l'ai également supprimé du fichier .lfm

Code:

---

1 2 3

object XPManifest1: TXPManifest Left = 385 end

---

---

Le "manifest" Delphi est présent à 3 endroits par forme (et donc être retiré 3 fois, à ces 3 endroits):

-dans la clause uses de l'unité:

Code:

---

1 2	uses ..., XPMan, ...

---

-en tant que composant dans la forme:

Code:

---

1 2 3 4 5 6 7

type { TForm1 } TForm1 = class(TForm) ... XPManifest1: TXPManifest; ... end;

---

-dans la forme (fichier .dfm -> .lfm):

Code:

---

1 2 3

object XPManifest1: TXPManifest Left = ... end

---

Citation:

---

Envoyé par alanglet

Bonsoir,
TXPManifest n'était-il pas un composant destiné à intégrer le fichier manifest sous Windows XP à l'époque de D7?

---

Tout à fait :D .

Citation:

---

Envoyé par FChrisF

Le "manifest" Delphi est présent à 3 endroits par forme (et donc être retiré 3 fois, à ces 3 endroits):

---

Absolument et c'est ce que j'ai fait, mais apparemment, ça ne suffit pas.

Citation:

---

Envoyé par jipété

Et pour ce TXPManifest, doit y avoir une autre unité qui l'utilise, faut tout passer en revue...

---

J'ai fait une recherche "xpman" sur mes autres unités et je n'ai rien trouvé.

Sans autre solution, je vais supprimer le composant dans la version Delphi et je vais recommencer ma migration. Si vous avez une autre idée, je suis preneur :) .

Ce qui est bizarre, c'est qu'à la compilation, je n'ai aucune erreur, ni même un warning :weird: .

Bon! On va faire dormir les yeux. Demain y f'ra jour, enfin, j'espère :ptdr: .
Bonsoir à tous,
naute.

Si c'est à l'exécution qu'a lieu l'erreur, c'est qu'il reste une référence de type "object XPManifest1: TXPManifest" dans un des fichiers .lfm du projet.

C'est qui provoque l'erreur quand la forme (i.e. le fichier .lfm) est chargée depuis les ressources de l'.exe et que la classe TXPManifest n'est pas trouvée.



*** Edit ***

Vous avez bien "{$R *.lfm}" maintenant dans vos unités sous Free Pascal/Lazarus (i.e. les instructions Delphi d'origine "{$R *.dfm}" ont bien été modifiées, par vous ou par l'outil de conversion) ?

Bonjour FChrisF :D .

Citation:

---

Envoyé par FChrisF

Vous avez bien "{$R *.lfm}" maintenant dans vos unités sous Free Pascal/Lazarus (i.e. les instructions Delphi d'origine "{$R *.dfm}" ont bien été modifiées, par vous ou par l'outil de conversion) ?

---

Oui. J'ai utilisé l’outil de conversion fourni dans l'IDE et mes unités ont toutes:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

unit param;   {$MODE Delphi}   interface   .../...   implementation   {$R *.lfm}   .../...

---

Citation:

---

Envoyé par FChrisF

Si c'est à l'exécution qu'a lieu l'erreur, c'est qu'il reste une référence de type "object XPManifest1: TXPManifest" dans un des fichiers .lfm du projet.

---

Par contre, il est vrai que je n'ai vérifié la présence de manifest que dans le lfm de la fiche principale. J'm'en vais voir ça tout de suite.

Je précise ce pendant deux points:

1. Je n'ai déposé de composant TXPManifest que sur la fiche principale
2. Quand je veux basculer de l'unité vers la fiche, ça fonctionne pour toutes les fiches sauf pour la principale, pour laquelle j'ai le message suivant:

Pièce jointe 377389

Et là-dedans :
Pièce jointe 377417
T'es allé voir là-dedans ?