Problèmes avec Richedit

J'ai 2 problèmes avec l'utilisation de richedit :
Tout d'abord, je ne sais pas comment afficher un Entier avec (style:
RichEdit1.Lines.Add('nombre=',nombre:Integer);...
Plus compliqué, je fait un petit jeu d'aventure, du moins j'essaie :

- j'ai une procédure lieu qui prend en paramètre x et y, ce sont des coordonnées sur une carte.

- j'ai aussi 4 Tbutton correspondant aux directions nord, sud, est ouest et je voudrais que lorsque j'appelle la procédure lieu depuis le TButton, la procédure lieu affiche dans le richedit1 le texte qui correspond.
Le problème est que le compilateur refuse de compiler quand je mets un Richedit1 dans la procédure lieu()..

Code:

---

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

procedure lieu(x,y:Integer); begin RichEdit1.clear; if (x=500) and (y=500) then RichEdit1.Lines.Add('Vous êtes au point 500,500'); end;     procedure TForm1.Button1Click(Sender: TObject); begin if (y<1000) then y:=y+1 else RichEdit1.Lines.Add('Vous ne pouvez pas aller plus loin'); RichEdit1.Lines.Add('coordonnées:'); lieu(x,y); end;   procedure TForm1.Button2Click(Sender: TObject); begin if (x>0) then x:=x-1 else RichEdit1.Lines.Add('Vous ne pouvez pas aller plus loin'); RichEdit1.Lines.Add('coordonnées:'); lieu(x,y); end;   procedure TForm1.Button3Click(Sender: TObject); begin if (x<1000) then x:=x+1 else RichEdit1.Lines.Add('Vous ne pouvez pas aller plus loin'); RichEdit1.Lines.Add('coordonnées:'); lieu(x,y); end;   procedure TForm1.Button4Click(Sender: TObject); begin if (y>0) then y:=y-1 else RichEdit1.Lines.Add('Vous ne pouvez pas aller plus loin'); RichEdit1.Lines.Add('coordonnées:'); lieu(x,y); end;

---

2 solutions au choix :
• Soi déclarer ta procédure Lieu dans la class de TForm1 sans oublier de l'ajouter dans la déclaration de la class :

Code:

---

procedure TForm1.lieu(x,y:Integer);

---

• Soi préciser le parent de l'objet TRichEdit directement dans la procédure :

Code:

---

1 2 3 4

procedure lieu(x,y:Integer); begin Form1.RichEdit1.clear; ...

---

Pour ton autre problème :
Pour convertir un nombre en chaîne de caractères, utilise la fonction IntToStr() :

Code:

---

RichEdit1.Lines.Add('Vous êtes au point '+IntToStr(x)+','+IntToStr(y)+'.');

---

Si tu rencontres d'autres problèmes concernant ce projet, poste à la suite de ce sujet plutôt que d'en créer un nouveau.

salut

en complement tu peut faire aussi de cet façon

Code:

---

RichEdit1.Lines.Add(format('Vous êtes au point %d , %d .',[x,y]);

---

@+ Phil

Merci pour vos réponses, ça marche!
PS : Sub0 : J'ai finalement choisi d'appeler le parent de l'objet TRichedit directement depuis la procédure lieu.