Jeu de mot motus

Soyez le premier à donner votre avis sur cette source.

Vue 8 180 fois - Téléchargée 898 fois

Description

jeu de mots motus
Recherche d'un mot de 7 à 12 lettres en 6 essais.
Lettre bonne bien placée : dans carré rouge
lettre bonne mal placée :dans cercle vert.
Compilé avec code gear delphi 2009

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_systmd
Messages postés
41
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
29 août 2012
-
...et puis suppimer Application.MainFormOnTaskbar := True; du Dpr
cs_systmd
Messages postés
41
Date d'inscription
mercredi 25 février 2004
Statut
Membre
Dernière intervention
29 août 2012
-
Bonjour,

on peut remplacer AnsiStrings dans les Uses de perdugagne.pas par StrUtils
Cirec
Messages postés
3809
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 septembre 2019
34 -
Salut,

pour D7 c'est simple ...
au chargement tu fais "tout ignorer".
tu supprimes tous les mots clés "var" de la section "public"
public
{ Déclarations publiques }
testTgrid:boolean;
testgridgrid:boolean;
modifmotmot:string;
testmotmot:integer;
Lbonne,Lmalplace:boolean;
retour:string;
testRight:boolean;
end;

et dans l'unité "perdugagne.pas"
tu retires la l'appel à "AnsiStrings"
et dans la procédure : "procedure TForm2.joueson(air:string);"
tu remplaces:

case AnsiIndexstr(air,['gagne','perdu','fintemps']) of
0:hres:=FindResource(hInstance, pchar('Songagne'), 'wav');
1:hres := FindResource(hInstance, pchar('Sonperdu'), 'wav');
2:hres := FindResource(hInstance, pchar('Sonfintemps'), 'wav');
end;

par:
hres:=FindResource(hInstance, pchar('Son' + air), 'wav');

c'est plus simple et ça fonctionne pour D7 et D2009 ++

il y a juste l'affichage du mot "Score" du panel qu'il faut remplacer par un TLabel

et ça devrait rouler
@++
cs_cantador
Messages postés
4716
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
10 -
@yvessimon :

PHILOUCHESS a précisé que son programme a été conçu sous Delphi 9.
Les erreurs que tu constates sous D7 sont normales.
il est nécessaire de reprendre le source et d'effectuer quelques conversions.
yvessimon
Messages postés
644
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
-
Bonjour,

J'ai une erreur à la compilation avec delphi7

sur les variable publiques
et AnsiStrings.dcu non trouvé



Salutations

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.