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.
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.
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).
Commentaires
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.
ici biensure c le pascal donc il faut aue tu thabitue
Debiars Junior
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.
Cordialement, Bacterius !
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.