Discussion :

[Roland Chastain]

Bonjour !

Je me suis amusé à adapter pour Linux le jeu écrit par par M.Dlb à l'occasion du défi Pascal 2011. (Le lien de téléchargement du programme original se trouve ici.)

Il reste apparemment quelques petites choses à corriger mais le jeu se compile et fonctionne.



Il y a un problème que je n'ai pas réussi à résoudre dans la procédure DrawPixel de l'unité sdl_utils. Je ne sais pas si c'est une erreur dans le code ou si c'est lié au fait que je compile en 64 bits. Chaque appel de la procédure déclenche une exception de type Range check error.

[M.Dlb]

Content de voir que ce programme intéresse encore du monde, 10 ans après !!!
Merci pour l'effort, et bon courage pour le portage !

[Roland Chastain]

Merci pour l'effort, et bon courage pour le portage !

Pas de quoi. Je crois que le plus gros est fait.

[Roland Chastain]

Je me suis décidé à porter ce projet vers SDL2. J'ai mis la nouvelle version en pièce jointe dans le premier message de la discussion.

Il y a encore une ou deux choses à réparer. L'enregistrement des meilleurs scores provoque une erreur. J'ai eu la flemme de chercher pourquoi, donc j'ai désactivé cette fonctionnalité pour le moment.

Chose étrange, j'ai constaté que si je supprime l'option de compilation -gh, le texte ne s'affiche plus.

Si vous arrivez à comprendre ce phénomène, je suis preneur d'une explication.

P.-S. Par contre j'ai compris d'où venait l'exception Range check error que je cherchais vainement à résoudre. C'est tout simplement à cause de ces déclarations :

Code :

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

1
2
3
type
  PLongBuffer = ^TLongBuffer;
  TLongBuffer = array[0..0] of LongWord;

[anapurna]

Je me suis décidé à porter ce projet vers SDL2. J'ai mis la nouvelle version en pièce jointe dans le premier message de la discussion.

Il y a encore une ou deux choses à réparer. L'enregistrement des meilleurs scores provoque une erreur. J'ai eu la flemme de chercher pourquoi, donc j'ai désactivé cette fonctionnalité pour le moment.

Chose étrange, j'ai constaté que si je supprime l'option de compilation -gh, le texte ne s'affiche plus.

Si vous arrivez à comprendre ce phénomène, je suis preneur d'une explication.

P.-S. Par contre j'ai compris d'où venait l'exception Range check error que je cherchais vainement à résoudre. C'est tout simplement à cause de ces déclarations :

Code :

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

1
2
3
type
  PLongBuffer = ^TLongBuffer;
  TLongBuffer = array[0..0] of LongWord;

dans mon souvenir c'est la declaration "ancestrale" du tableau dynamique
change simplement :

Code :

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

TLongBuffer = arrray of LongWord;

tu n'as normalement plus besoin de passé par un pointer

pour le reste tu doit avoir des erreurs au niveau mémoire (dépassements de capacite ... )
qui dois générer cet effet de bord

[Andnotor]

La déclaration array[0..0] of est plutôt un tableau statique dont la taille est inconnue à la compilation. On la voit surtout pour l'accès indiciel aux pixels d'un bitmap après Scanline.
Tu peux lui donner une taille array[word] of ou désactiver la vérification des limites {$R-} pour éviter l'exception.

Ce n'est pas compatible avec un tableau dynamique qui est un type managé et contient une "entête" à l'instar d'une AnsiString (compteur de référence, etc).

[anapurna]

La déclaration array[0..0] of est plutôt un tableau statique dont la taille est inconnue à la compilation. On la voit surtout pour l'accès indiciel aux pixels d'un bitmap après Scanline.
Tu peux lui donner une taille array[word] of ou désactiver la vérification des limites {$R-} pour éviter l'exception.

Ce n'est pas compatible avec un tableau dynamique qui est un type managé et contient une "entête" à l'instar d'une AnsiString (compteur de référence, etc).

Salut,

Dis-moi, couplé à un pointeur, cela revient bien à une liste de cellules.
C’est pour cela que je parlais d’ancêtre des tableaux dynamiques : cette méthode existe depuis quasiment les débuts du langage Pascal.

À l’époque, les tableaux dynamiques n’avaient pas encore été développés.
Et comme tu le dis si bien, l’accès indiciel le rendait particulièrement intéressant.

[Informt2025]

À l’époque, les tableaux dynamiques n’avaient pas encore été développés.
Et comme tu le dis si bien, l’accès indiciel le rendait particulièrement intéressant.

Bonjour,

En Delphi cela ne fonctionne plus, dans les versions ultérieurs la vérification de range est activée par défaut et ca decleche une exception au premier appel
il faut donner une longueur la plus large possible:

Code :

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

1
2
3
4
 
type
  PLongBuffer = ^TLongBuffer;
  TLongBuffer = array[Word] of LongWord;

[Andnotor]

@anapurna

Je me suis sans doute mal exprimé, ce que je voulais dire est que array[0..0] of (statique) n'est pas compatible avec array of (dynamique).

En Delphi cela ne fonctionne plus, dans les versions ultérieurs la vérification de range est activée par défaut [...]

Comme tout contrôle cette vérification prend du temps. Sous Delphi elle est par défaut activée en debug mais désactivée en release.