JEU DE MOT MOTUS

Commentaire de cantador le 26/09/2011 10:27:48 administrateur CS

Bonjour,

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 !

Commentaire de yvessimon le 27/09/2011 08:34:02

Bonjour,

J'ai une erreur à la compilation avec delphi7

sur les variable publiques
et AnsiStrings.dcu non trouvé




Salutations

Commentaire de cirec le 27/09/2011 16:05:26 administrateur CS

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
@++