Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 2016
-
19 juil. 2009 à 03:20
kachwahed
Messages postés18Date d'inscriptionsamedi 6 décembre 2008StatutMembreDernière intervention 5 décembre 2009
-
11 août 2009 à 17:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
kachwahed
Messages postés18Date d'inscriptionsamedi 6 décembre 2008StatutMembreDernière intervention 5 décembre 2009 11 août 2009 à 17:32
Bonjour, Joli travail...
Attention a la clause uses tu peu éliminer quelques unités, par exemple pour l'Unit uPerso il suffit d'utiliser:
uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls, ExtCtrls;
et les autres n'ont plus important, aussi tu peu t'en servis de la fonction ShellAbout du ShellAPI, par exemple:
ShellAbout(Handle, 'Démineur par Karim KHALAFI',nil, Application.Icon.Handle);
j'ai ajouté un bouton pour supprimer les clés de registre:
procedure TfScoreList.BSupprimerClick(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create();
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SoftWare\',False);
Reg.DeleteKey('Demineur');
Reg.CloseKey;
finally
Reg.Free();
end;
end;
et n'oublie pas de protéger les blocs de registre avec Try..Finally, et d'ajouter les raccourcis clavier (Nouvelle partie F2, A propos... F1, ... etc );
Merci karim.
debiars87
Messages postés43Date d'inscriptiondimanche 18 janvier 2009StatutMembreDernière intervention25 juin 2009 26 juil. 2009 à 11:56
ca sent lutilisation du C excessif
ici biensure c le pascal donc il faut aue tu thabitue
Debiars Junior
khalafi_karim
Messages postés3Date d'inscriptionlundi 18 juillet 2005StatutMembreDernière intervention24 juillet 2009 19 juil. 2009 à 14:29
Pour rectifier le commentaire précédant, voici ce que je voulait écrire :
Oui effectivement les parenthèses sont inutile quand il n'y a pas de paramètres, mais pour moi il est préférable de toujours garder les parenthèses car sa permet de différencier les routines des ""propriétés"".
De plus comme je suis un ancien adepte du C, vous comprendrai alors que les habitudes sont dure à changer.
Bacterius
Messages postés3792Date d'inscriptionsamedi 22 décembre 2007StatutMembreDernière intervention 3 juin 201610 19 juil. 2009 à 03:20
Eh ben ça m'a l'air pas mal du tout, la capture me plaît même si j'ai survolé le code (verrait ça demain). Juste une remarque : en Delphi quand il n'y a pas de paramètres à une routine c'est inutile de mettre les parenthèses (donc "EndGame" suffit au lieu de "EndGame()"). Ca doit être la même chose sur l'autre source, pas allé voir (demain).
11 août 2009 à 17:32
Attention a la clause uses tu peu éliminer quelques unités, par exemple pour l'Unit uPerso il suffit d'utiliser:
uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls, ExtCtrls;
et les autres n'ont plus important, aussi tu peu t'en servis de la fonction ShellAbout du ShellAPI, par exemple:
ShellAbout(Handle, 'Démineur par Karim KHALAFI',nil, Application.Icon.Handle);
j'ai ajouté un bouton pour supprimer les clés de registre:
procedure TfScoreList.BSupprimerClick(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create();
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.OpenKey('\SoftWare\',False);
Reg.DeleteKey('Demineur');
Reg.CloseKey;
finally
Reg.Free();
end;
end;
et n'oublie pas de protéger les blocs de registre avec Try..Finally, et d'ajouter les raccourcis clavier (Nouvelle partie F2, A propos... F1, ... etc );
Merci karim.
26 juil. 2009 à 11:56
ici biensure c le pascal donc il faut aue tu thabitue
Debiars Junior
19 juil. 2009 à 14:29
Oui effectivement les parenthèses sont inutile quand il n'y a pas de paramètres, mais pour moi il est préférable de toujours garder les parenthèses car sa permet de différencier les routines des ""propriétés"".
De plus comme je suis un ancien adepte du C, vous comprendrai alors que les habitudes sont dure à changer.
19 juil. 2009 à 03:20
Cordialement, Bacterius !