JEU DE MOT MOTUS
cs_cantador
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
-
26 sept. 2011 à 10:27
cs_systmd Messages postés 41 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 29 août 2012 - 27 sept. 2011 à 19:00
cs_systmd Messages postés 41 Date d'inscription mercredi 25 février 2004 Statut Membre Dernière intervention 29 août 2012 - 27 sept. 2011 à 19:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53620-jeu-de-mot-motus
https://codes-sources.commentcamarche.net/source/53620-jeu-de-mot-motus
27 sept. 2011 à 19:00
27 sept. 2011 à 18:59
on peut remplacer AnsiStrings dans les Uses de perdugagne.pas par StrUtils
27 sept. 2011 à 16:05
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
@++
27 sept. 2011 à 16:03
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.
27 sept. 2011 à 08:34
J'ai une erreur à la compilation avec delphi7
sur les variable publiques
et AnsiStrings.dcu non trouvé
Salutations
26 sept. 2011 à 13:12
Salutations
26 sept. 2011 à 10:27
Quelques remarques :
- code mal indenté
- les procédure et fonctions à placer dans les interfaces public, private etc
- utiliser plutôt les TStringList à la place des TextFile
- les parenthèses dans les fonctions sans paramètres peuvent être omises
- il doit y avoir aussi quelques optimisations (voir fonctions textes) dans les boucles de recherche dans les mots
Pour un premier programme, c'est plutôt encourageant.
et bravo d'avoir pensé à utiliser un Thread.
je te mets 7/10 pour ce soft.
bon courage et bienvenue au Club !