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?

[Roland Chastain]

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

Moi non plus.

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

[BeanzMaster]

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?

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

Code :

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

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

[naute]

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

Autant pour moi .

Code Pascal :

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

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 ( 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é.

[naute]

Bonjour 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 !

Bien vu: voir au dessus.

[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 :

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

1
2
3
  object XPManifest1: TXPManifest
    Left = 385
  end

[Jipété]

Si je peux me permettre :

Autant pour moi .

Code Pascal :

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

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 Pascal :

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

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

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

Rhôôôô,
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...

[naute]

Si je peux me permettre :

Code Pascal :

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

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 ) 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é . Je prend tous les conseils.

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.

[alanglet]

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é

[FChrisF]

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 :

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

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 :

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

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

-en tant que composant dans la forme:

Code :

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

1
2
3
4
5
6
7
type
  { TForm1 }
  TForm1 = class(TForm)
  ...
    XPManifest1: TXPManifest;
  ...
  end;

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

Code :

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

1
2
3
  object XPManifest1: TXPManifest
    Left = ...
  end

[naute]

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

Tout à fait .

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.

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 .

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

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

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

[naute]

Bonjour 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 Pascal :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
unit param;
 
{$MODE Delphi}
 
interface
 
.../... 
 
implementation
 
{$R *.lfm}
 
.../...

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:

[Jipété]

Et là-dedans :

T'es allé voir là-dedans ?