cs_systmd
Messages postés41Date d'inscriptionmercredi 25 février 2004StatutMembreDernière intervention29 août 2012 27 sept. 2011 à 19:00
...et puis suppimer Application.MainFormOnTaskbar := True; du Dpr
cs_systmd
Messages postés41Date d'inscriptionmercredi 25 février 2004StatutMembreDernière intervention29 août 2012 27 sept. 2011 à 18:59
Bonjour,
on peut remplacer AnsiStrings dans les Uses de perdugagne.pas par StrUtils
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 27 sept. 2011 à 16:05
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;
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és4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 27 sept. 2011 à 16:03
@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és637Date d'inscriptionmardi 22 avril 2003StatutMembreDernière intervention 9 janvier 2017 27 sept. 2011 à 08:34
Bonjour,
J'ai une erreur à la compilation avec delphi7
sur les variable publiques
et AnsiStrings.dcu non trouvé
Salutations
philouchess
Messages postés1Date d'inscriptionlundi 29 août 2011StatutMembreDernière intervention26 septembre 2011 26 sept. 2011 à 13:12
Merci Cantador pour ta note , très encourageant , je prends note de tes remarques et les appliquerai dans un prochain programme.
Salutations
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 26 sept. 2011 à 10:27
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.
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 !