Jeu de mot motus

Soyez le premier à donner votre avis sur cette source.

Vue 8 444 fois - Téléchargée 1 019 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

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
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
Messages postés
3815
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
4 août 2020
35
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
@++
Messages postés
4715
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
27 mars 2018
12
@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.
Messages postés
637
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
Afficher les 7 commentaires

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.