Discussion :

[timmalos]

Bonjour à tous. Dans le cadre d'un projet informatique pour mes études, je developpe une sorte de jeu tournant autour de la génération aléatoire / algorithme de recherche de sortie de labyrinthes.



Je développe actuellement sous Windows et Lazarus 0.9.28 et j'ai eu l'occasion ce matin de tester mon programme sous Linux.
Pour le diagramme des classes, en gros j'ai ma classe mère labyrinthe puis 3 classes héritées qui rajoutent des options aux labyrinthes en fonction du mode de jeu choisi 'labyrinthe_survivor.pas, labyrinthe_FirstOut.pas, labyrinthe_TimeAttack.pas'


Celui ci tourne parfaitement (ou presque) sous Windows, mais j'ai une erreur d'execution sous Linux lors de l'appui sur le bouton 'Start Game'. (La compilation passe sans problème.)

Après quelques tests, c'est lors de la creation de l'instance de ma classe héritée qui pose problème. La ou le problème se pose, c'est que je souhaite créé 2 labyrinthes. Le premier create (que ce soit laby ou laby2 utilisé) se passe très bien, avec n'importe quelle classe fille ou mère, c'est le 2eme qui pose problème.
On dirait qu'il ne veut pas instancier ma classe heritée une 2eme fois.


Je vous mets le code en pièce jointe, c'est assez complexe à se plonger dedans mais peut etre que cette erreur est déjà arrivée à quelqu'un et que vous saurez m'aiguiller.

Merci d'avance,
Tim

Lien vers les sources : http://usb-online.fr/usb-file-902.html

[Paul TOTH]

dans ton start game il ne manquerait pas des ".Free" et des "laby2 := nil" ?

[timmalos]

Pas sur d'avoir compris, pourquoi rajouter un .free et NIL au lancement de mon jeu?
Par contre, dans ma procedure FinJeu j'ai bien

Code :

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

1
2
3
 If (laby <> NIL)  Then laby.Destroy;
    If (laby2 <> NIL) Then laby2.Destroy;
    laby := NIL;laby2 := NIL;

Mais ce qui m'etonne le plus c'est que tout marche bien sous Windows mais pas sous Linux. Y'aurait t'il une difference lors de la creation d'une instance de classe héritée?