papyvore
Messages postés223Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention16 décembre 2021
-
27 févr. 2004 à 09:25
Silkevin
Messages postés1Date d'inscriptionmardi 12 mai 2009StatutMembreDernière intervention 8 juin 2009
-
8 juin 2009 à 10:33
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Silkevin
Messages postés1Date d'inscriptionmardi 12 mai 2009StatutMembreDernière intervention 8 juin 2009 8 juin 2009 à 10:33
Bonjour,
Iceman tu me sauve avec ton BJ^^
je voulais te remercier pour ton effort que t'as fait sur Delphi et félécitation ;-) il est génial!!
cs_azerty111
Messages postés1Date d'inscriptionvendredi 10 octobre 2003StatutMembreDernière intervention25 décembre 2006 25 déc. 2006 à 23:32
le truc qui va pas c'est ca:
Unom in '..\..\..\..\..\Program Files\NOVAXEL\NovaxelSQL\ressources\images\Unom.pas' {Form3};
cs_iceman2001
Messages postés9Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention19 septembre 2008 10 mars 2004 à 09:29
C'est bizarre car chez moi, je n'ai pas non plus ce fichier......et quand je compile, ça marche !!
Quelqu'un comprend ?
cs_iceman2001
Messages postés9Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention19 septembre 2008 10 mars 2004 à 09:28
C'est bizarre car chez moi, je n'ai pas non plus ce fichier......et quand je compile, ça marche !!
Quelqu'un comprend ?
cs_gamez
Messages postés34Date d'inscriptionsamedi 14 juin 2003StatutMembreDernière intervention27 janvier 2007 9 mars 2004 à 22:07
salut
a lexecution jai un "[Erreur fatale] UMain.pas(8): Fichier non trouvé : 'Unom.dcu' "
que faut il faire?
Inekman
Messages postés291Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention30 juin 2006 27 févr. 2004 à 20:41
voilà, exactement..ceci dit, je suis loin d'être un développeur confirmé :-D mais je fais tout pour le devenir.
cs_iceman2001
Messages postés9Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention19 septembre 2008 27 févr. 2004 à 16:49
Merci Inekman.
C'est sympa et ça fait plaisir venant de la part d'un developpeur confirmé ;-)
Mais en tant que débutant, je suis sur que mon source aurait pu être simplifié bien plus que ça encore, mais j'ai pas le courage de m'y remettre à fond. lol
Notamment au niveau de la gestion de la valeur des as ( qui vaut 1 ou 11 selon ton total ).
Mais comme tu dis, l'important c'est que ça marche et ça a été une bonne formation pour moi
Inekman
Messages postés291Date d'inscriptiondimanche 2 février 2003StatutMembreDernière intervention30 juin 2006 27 févr. 2004 à 16:30
Salut man,
j'ai jeté un oeil au programme, et il fonctionne nikel chez moi. Le projet est cool, et il est réussi. :-)
le code est commenté à certains endroits et pas à d'autres, rien de méchant mais t'en mets un minimum, c'est déjà ça. :-P
Petite astuce sympathique :
#######################
procedure Initialisation_partie;
begin
Mise_en_cours := 50;
Form_Main.Lbl_infos.Caption :='';
Form_Main.Lbl_infos.Caption :='Selectionner votre mise puis validez.';
Form_Main.Btn_moins10.Enabled := true;
Form_Main.Btn_moins100.Enabled := true;
Form_Main.Btn_plus10.Enabled := true;
Form_Main.Btn_plus100.Enabled := true;
Form_Main.Btn_valider_Mise.Enabled := true;
Form_Main.Lbl_Joueur_Credits.caption := IntToStr(Credit_Joueur);
Form_Main.lbl_Mise_en_cours.caption := IntToStr(Mise_en_cours)
end;
#######################
--> ceci peut être rédigé
...comme cela -->
#######################
procedure Initialisation_partie;
begin
Mise_en_cours := 50;
with Form_Main do
begin
Lbl_infos.Caption :='';
Lbl_infos.Caption :='Selectionner votre mise puis validez.';
Btn_moins10.Enabled := true;
Btn_moins100.Enabled := true;
Btn_plus10.Enabled := true;
Btn_plus100.Enabled := true;
Btn_valider_Mise.Enabled := true;
Lbl_Joueur_Credits.caption := IntToStr(Credit_Joueur);
lbl_Mise_en_cours.caption := IntToStr(Mise_en_cours)
end;
end;
#######################
C'est moins relou que de saisir à chaque fois le nom de la fiche et comme ça le code est structuré en bloc.
Ca fonctionne aussi bien avec, que sans ;-).
Voilà man, sinon c'est bien cool tout ça. 9/10
Inekman
cs_iceman2001
Messages postés9Date d'inscriptionvendredi 20 février 2004StatutMembreDernière intervention19 septembre 2008 27 févr. 2004 à 10:33
Voilà, ça devrait être bon maintenant.
iceman2001
papyvore
Messages postés223Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention16 décembre 202115 27 févr. 2004 à 09:25
bonjour
sans doute bien et pour le moins interressant
mais ou est donc Unom.pas elle n'est pas dans le zip ??
merci
a+
8 juin 2009 à 10:33
Iceman tu me sauve avec ton BJ^^
je voulais te remercier pour ton effort que t'as fait sur Delphi et félécitation ;-) il est génial!!
25 déc. 2006 à 23:32
Unom in '..\..\..\..\..\Program Files\NOVAXEL\NovaxelSQL\ressources\images\Unom.pas' {Form3};
10 mars 2004 à 09:29
Quelqu'un comprend ?
10 mars 2004 à 09:28
Quelqu'un comprend ?
9 mars 2004 à 22:07
a lexecution jai un "[Erreur fatale] UMain.pas(8): Fichier non trouvé : 'Unom.dcu' "
que faut il faire?
27 févr. 2004 à 20:41
27 févr. 2004 à 16:49
C'est sympa et ça fait plaisir venant de la part d'un developpeur confirmé ;-)
Mais en tant que débutant, je suis sur que mon source aurait pu être simplifié bien plus que ça encore, mais j'ai pas le courage de m'y remettre à fond. lol
Notamment au niveau de la gestion de la valeur des as ( qui vaut 1 ou 11 selon ton total ).
Mais comme tu dis, l'important c'est que ça marche et ça a été une bonne formation pour moi
27 févr. 2004 à 16:30
j'ai jeté un oeil au programme, et il fonctionne nikel chez moi. Le projet est cool, et il est réussi. :-)
le code est commenté à certains endroits et pas à d'autres, rien de méchant mais t'en mets un minimum, c'est déjà ça. :-P
Petite astuce sympathique :
#######################
procedure Initialisation_partie;
begin
Mise_en_cours := 50;
Form_Main.Lbl_infos.Caption :='';
Form_Main.Lbl_infos.Caption :='Selectionner votre mise puis validez.';
Form_Main.Btn_moins10.Enabled := true;
Form_Main.Btn_moins100.Enabled := true;
Form_Main.Btn_plus10.Enabled := true;
Form_Main.Btn_plus100.Enabled := true;
Form_Main.Btn_valider_Mise.Enabled := true;
Form_Main.Lbl_Joueur_Credits.caption := IntToStr(Credit_Joueur);
Form_Main.lbl_Mise_en_cours.caption := IntToStr(Mise_en_cours)
end;
#######################
--> ceci peut être rédigé
...comme cela -->
#######################
procedure Initialisation_partie;
begin
Mise_en_cours := 50;
with Form_Main do
begin
Lbl_infos.Caption :='';
Lbl_infos.Caption :='Selectionner votre mise puis validez.';
Btn_moins10.Enabled := true;
Btn_moins100.Enabled := true;
Btn_plus10.Enabled := true;
Btn_plus100.Enabled := true;
Btn_valider_Mise.Enabled := true;
Lbl_Joueur_Credits.caption := IntToStr(Credit_Joueur);
lbl_Mise_en_cours.caption := IntToStr(Mise_en_cours)
end;
end;
#######################
C'est moins relou que de saisir à chaque fois le nom de la fiche et comme ça le code est structuré en bloc.
Ca fonctionne aussi bien avec, que sans ;-).
Voilà man, sinon c'est bien cool tout ça. 9/10
Inekman
27 févr. 2004 à 10:33
iceman2001
27 févr. 2004 à 09:25
sans doute bien et pour le moins interressant
mais ou est donc Unom.pas elle n'est pas dans le zip ??
merci
a+