Mod3, un jeu de patience

Soyez le premier à donner votre avis sur cette source.

Vue 4 424 fois - Téléchargée 1 626 fois

Description

Pour les amateurs du genre, ce jeu avec 104 cartes permet environ 95% de réussite.
Au point de vue du code, c'est assez semblable à mes prestations précédentes.

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018

@Cirec : merci pour ce dépoussiérage de cette unité de gestion de cartes à jouer, néanmoins très intéressante.
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
re,

ça va déjà mieux ...

mais les deux premières lignes de la procédure "EffaceJeu"
ne sont pas utile et peuvent être aisément supprimées.

procedure EffaceJeu;
begin
//Tapis.Free;
//Tapis := TBitmap.Create;
...
end;

pourquoi vouloir, à tout prix, libérer et récréer ce Bitmap ici ?
je n'y vois aucun intérêt.
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
39
Salut Debiars,

comme toujours c'est un excellent jeu, bien fait et agréable.
Bravo et merci de le partager avec nous.

J'ai pas encore parcouru tout le code mais il y a un petit oubli
quelque par qui engendre des fuites de mémoire.

---------------------------
Unexpected Memory Leak
---------------------------
An unexpected memory leak has occurred. The unexpected small block leaks are:

21 - 28 bytes: TBrush x 1
29 - 36 bytes: TPen x 1, Unknown x 2
37 - 44 bytes: TFont x 1
61 - 68 bytes: TBitmap x 1
101 - 108 bytes: TBitmapCanvas x 1
117 - 124 bytes: TBitmapImage x 1
149 - 156 bytes: Unknown x 1
---------------------------
OK
---------------------------
et ces valeurs augmentent à chaque nouveau jeu.

après un rapide coup d'oeil, je dirais que le coupable
se nomme "Tapis" !

en effet cette variable semble être recréée à chaque appel
à la procédure EffaceJeu mais n'est jamais libérée.

Il faudrait, peut être, la créer dans "Initialise" et la libérer
dans "Libere" comme les autres !?

ps: La note arrivera après la correction :p
Messages postés
285
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
11 février 2018

Merci!
Messages postés
4719
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
1 février 2021
14
c'est fait !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.