Discussion :

[Jenojen]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
var
  Form1: TForm1;
  masque,mot:string;
 
procedure TForm1.btPartieClick(Sender: TObject);
var i:integer;
begin
mot:= emot.text;
For i:=1 to length(mot) do
 begin
 masque:=(masque+'@');
 end;
lmot.caption:=masque;
 
end;
 
procedure TForm1.btPropalClick(Sender: TObject);
var lettre: string;
     i,compteur:integer;
begin
i:=0;
compteur:=0;
lettre:=elettre.text;
If pos (lettre,mot) <> 0 then
 begin
 For i:=1 to length (mot) do
  begin
  masque[i]:= ??????;
  end;
 end
 else
 begin
  compteur:=compteur+1;
  lcompteur.caption:= (inttostr (compteur));
 end;
lmot.caption:= masque;
end;
 
end.

Bonjour,

Je dois réaliser un pendu dans le cadre de mon cours de programmation! J'aimerais savoir ce qu'il faut mettre dans la boucle qui doit servir à remplacer les @ dans ma variable masque (qui contient les @ remplacants les lettres du mot à trouver), par les lettres entrées par l'utilisteur et qui sont correctes. Les lettres éronnées par contre incrémenteront mon compteur!

J'ai essayé avec masque[i]:= pos (lettre,mot) // la variable mot contient le mot à trouver mais ils me disent que les types sont incompatibles!

Merci de bien vouloir m'aider.

[LinkinSelim]

J'ai essayé avec masque[i]:= pos (lettre,mot) // la variable mot contient le mot à trouver mais ils me disent que les types sont incompatibles!

evidement que les types sont incopatibles pos(lettre,mot) renvoi un entier, tu peu pas assigner un entier a un char( masque[i]) ...

[Jenojen]

evidement que les types sont incopatibles pos(lettre,mot) renvoi un entier, tu peu pas assigner un entier a un char( masque[i]) ...

Merci pour ta réponse!
La fonction pos renvoie la position de mon caractere dans le mot donc, mais comment faire alors pour remplacer le caractère introduit à l'exacte position dans ma variable masque.

En gros j'ai le mot TELEPHONE. J'introduis la lettre E, je teste et ma variable masque prendra comme valeur @E@E@@@@E etc...

Merci de bien vouloir m'aider.

[LinkinSelim]

La fonction pos renvoie la position de mon caractere dans le mot donc

tu as repondu a ta question , pos doit etre utilisé comme indice

donc tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

masque[i]:= mot[pos (lettre,mot)];

j'espere que ca va t'aider

[AT]

Voici le debut d'un de mes programmes ou j'ai réalisé un jeu du pendu

à voir si cela peu t'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
 
procedure TForm1.FormActivate(Sender: TObject);
begin
notec:=0;notep:=0;notev:=0;notem:=0;noteh:=0;notel:=0;notevm:=0;noteplantes:=0; num:=0;
randomize;
combobox1.ItemIndex:=0;combobox2.ItemIndex:=0;combobox3.ItemIndex:=0;combobox4.ItemIndex:=0;
listbox1.Visible:=false;Cacherlaliste1.Visible:=false;
 label9.Caption:=''; label4.Caption:='';label6.Caption:='';
Listc:=TstringList.Create;
for i:=Low(t) to high(t) do
Listc.Add(t[i]);
Listp:=TstringList.Create;
for i:=Low(tpays) to high(tpays) do
Listp.Add(tpays[i]);
Listv:=TstringList.Create;
for i:=Low(tvilles) to high(tvilles) do
Listv.Add(tvilles[i]);
Listm:=TstringList.Create;
for i:=Low(tmineraux) to high(tmineraux) do
Listm.Add(tmineraux[i]);
Listh:=TstringList.Create;
for i:=Low(thommes) to high(thommes) do
Listh.Add(thommes[i]);
Listl:=TstringList.Create;
for i:=Low(toiseaux) to high(toiseaux) do
Listl.Add(toiseaux[i]);
Listvm:=TstringList.Create;
for i:=Low(tvillesM) to high(tvillesM) do
Listvm.Add(tvillesM[i]);
Listplantes:=TstringList.Create;
for i:=Low(tplantes) to high(tplantes) do
Listplantes.Add(tplantes[i]);
end;
function Tform1.cache(s:string):string;
begin
d:=length(s);
for i:=2 to (d-1) do
 begin
 s[i]:='-';
 end;
cache:=s;
end;
function Tform1.cachep(s:string):string;
begin
d:=length(s);
for i:=2 to (d-1) do
 begin
 s[i]:='.';
 end;
cachep:=s;
end;
function tform1.dev(st,s:string;c:char):string;
begin
d:=length(s);
 for i:=2 to (d-1) do
 begin
 if(st[i]='-')and(s[i]=c)then
  begin
  st[i]:=c;num:=num+1;
  end;
 end;
 dev:=st;
end;
function tform1.devp(st,s:string;c:char):string;
begin
d:=length(s);
 for i:=2 to (d-1) do
 begin
 if(st[i]='.')and(s[i]=c)then
  begin
  st[i]:=c;num:=num+1;
  end;
 end;
 devp:=st;
end;
function tform1.gagne(q:integer):string;
var mot:string;
begin
 case q of
   1: mot:='Super';
   2: mot:='Excellent';
   3:  mot:='Victoire';
   4: mot:='Génial';
   5:  mot:='Cool';
   6: mot:='Bravo !';
   7: mot:='Petit génie';
 end;
 gagne:=mot;
end;

[Jenojen]

tu as repondu a ta question , pos doit etre utilisé comme indice

donc tout simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

masque[i]:= mot[pos (lettre,mot)];

j'espere que ca va t'aider

Merci ca m'avance bien seulement avec cette méthode, si je rentre un E pour telephone tous les @ seront remplacés par le E et si je rentre un L tous les E seront remplacés par un L etc.. Donc je souhaiterais que dans le cas du mot telephone que @E@E@@@@E s'affiche et non pas EEEEEEEEE si je rentre la lettre E.

Merci pour ton aide AT mais je ne suis pas encore en mesure de comprendre ton code.

[sjrd]

La fonction Pos ne peut pas être utilisée car elle ne renverra que le premier indice. Une boucle explicite sera plus efficace.

L'idée est la suivante : faire une boucle sur tous les caractères du mot. Donc bornes inférieure = 1 et supérieure = Length(Mot). Pour chaque caractère, si Mot[I] = Lettre, alors il faut remplacer le caractère correspondant du masque Masque[I] par Lettre.

Je te laisse traduire ça en code, car sinon tu vas prendre mon code sans lire et ça sera pas bon pour toi, puisque le but est que tu apprennes

[Jenojen]

La fonction Pos ne peut pas être utilisée car elle ne renverra que le premier indice. Une boucle explicite sera plus efficace.

L'idée est la suivante : faire une boucle sur tous les caractères du mot. Donc bornes inférieure = 1 et supérieure = Length(Mot). Pour chaque caractère, si Mot[I] = Lettre, alors il faut remplacer le caractère correspondant du masque Masque[I] par Lettre.

Je te laisse traduire ça en code, car sinon tu vas prendre mon code sans lire et ça sera pas bon pour toi, puisque le but est que tu apprennes

Merci beaucoup, ton algo m'a donné la solution mais ca m'a posé un autre probleme. En effet pour faire ca j'ai mis la condition dans la boucle et non plus la condition qui fait entrer en jeu la boucle.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 For i:=1 to length (mot) do
  begin
  If Mot[i] = lettre then
   begin
   masque[i]:= mot[pos (lettre,mot)];
   end
 else
 begin
  compteur:=compteur+1;
  lcompteur.caption:= (inttostr (compteur));
 end;

Ce qui a pour effet d'incrémenter mon compteur du nombre de fois qu'il passe dans la boucle. N'y a t-il pas moyen de incrémenter ce compteur sans pour autant passer par un deuxième test?

[Cl@udius]

Salut

Il n'est tout a fait fonctionnel ce code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  For i:=1 to length (mot) do
    If Mot[i] = lettre then
    begin
      masque[i]:= lettre;  // puisque tu connais la lettre
    end

Ensuite tu peux rajouter dans ce code un boolean LettreTrouvee pour savoir si tu dois incrémenter ton compteur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if not LettreTrouvee then 
    Compteur := Compteur + 1;

@+

[Jenojen]

Salut

Il n'est tout a fait fonctionnel ce code !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
  For i:=1 to length (mot) do
    If Mot[i] = lettre then
    begin
      masque[i]:= lettre;  // puisque tu connais la lettre
    end

Ensuite tu peux rajouter dans ce code un boolean LettreTrouvee pour savoir si tu dois incrémenter ton compteur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if not LettreTrouvee then 
    Compteur := Compteur + 1;

@+

Pour le code si je le laisse comme tu l'as mis masque[i] = lettre, il va me replacer toutes les lettres par la lettre.

Et pour le compteur j'ai rajouté cette ligne If pos (lettre,mot) = 0 then compteur:=compteur+1; et tout va bien.

Merci beaucoup pour vos réponses et j'aurais surement encore besoin de votre aide dans un futur proche

[pitango]

Bonjour,

Et pour le compteur j'ai rajouté cette ligne If pos (lettre,mot) = 0 then compteur:=compteur+1; et tout va bien

Clique sur le bouton , si c'est ok

A+

[sjrd]

Pour le code si je le laisse comme tu l'as mis masque[i] = lettre, il va me replacer toutes les lettres par la lettre.

Non ce n'est pas vrai. Si ça reste bien dans le if Mot[I] = Lettre then, ça fonctionnera très bien, et sera plus efficace, et plus lisible, et plus beau, et plus... Bref, ce sera mieux.

[Jenojen]

Bonjour,

J'avance dans mon programme et j'aimerais savoir deux choses.

- Comment limiter le nombre de caractères dans une editbox!
- Comment faire our que l'application ne soit pas redimensionable quand on utilise la flèche sur les bords.

Merci d'avance!

[Cl@udius]

Salut

- Comment limiter le nombre de caractères dans une editbox!

Utilise un MaskEdit au lieu d'un TEdit

- Comment faire our que l'application ne soit pas redimensionable quand on utilise la flèche sur les bords.

Définis la propriété BorderSize de la form à bsSingle.
Regarde également BorderIcons pour éventuellement interdire l'agrandissement de la form.

@+ Claudius

[ero-sennin]

Salut,

Pour limiter le nombre de caractères dans une TEdit, il suffit de modifier la propriété MaxLength de celui-ci.

Pour ce qui est du redimensionnement de la Form, tu peux en changer le style en définissant la propriété BorderStyle à bsSingle ou encore, à bsTollWindow (ce dernier ne mettant que le bouton de fermeture du programme)...

A toi de tester pour savoir lequel te convient le mieux
A+

[EDIT]
Grillé

[Jenojen]

Merci, voila ce que j'appelle une réponse rapide et en double exemplaire

[Jenojen]

Rebonjour,

Y-a t'il moyen de changer le nom du projet? Au lieu de form1, je souhaiterais l'appeler Le Pendu!

Et j'ai inclus à mon programme un fichier repertoire ou les mots peuvent etre retenus. Comment faire pour que quand je clique sur nouvelle partie, il prend un mot au hazard dans mon repertoire et le charge directement dans ma variable mot?

Merci d'avance.

[ero-sennin]

Salut,

Pour changer le nom de la Form, il suffit de modifier la propriété Caption de celle-ci.
Ensuite, pour ce qui est du projet, va dans :

• Projet
• Options
• Application

Pour ce qui est de choisir un mot automatique, tu peux faire ceci par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
function DonnerMot:String;
var
MaListe:TStringList;
begin
   MaListe:=TStringList.Create;
  // Chargement des données
  MaListe.LoadFromFile('mondico.txt');
  // On garde en le mot en clair dans une variable
  Result:=LowerCase(MaListe.Strings[random(MaListe.Count-1)]);
  MaListe.Free;
end;

Code non testé ...
A +

[Jenojen]

Merci de tes réponses cependant mon fichier est un fichier de type repertoire 'dico.rep' et quand je remplace mondico.txt par dico.rep et que je clique sur le bouton Partie il me dit impossible d'ouvrir le fichier dico.rep. Ensuite j'ai créé une variable LeMot pour remplacer Result car c'est Result qui stocke le mot choisi au hazard si j'ai bien compris?

[Cl@udius]

Salut

Je viens mettre mon grain de sel

Il est préférable d'inclure l'accès au dico dans un bloc try..finally au cas où.
Le random doit s'effectuer sur MaListe.Count sinon le dernier élément du dico ne sera jamais tiré.
Et enfin ne pas oublier l'appel de randomize, sur le create ou dans la section initialization.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function DonnerMot: string;
var
  MaListe: TStringList;
begin
  MaListe := TStringList.Create;
  try
    // Chargement des données
    MaListe.LoadFromFile('dico.txt');
    // On garde en le mot en clair dans une variable
    Result := MaListe.Strings[random(MaListe.Count)];
  finally
    MaListe.Free;
  end;
end;
 
initialization
  Randomize;
 
end.

@+