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 : 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
 
 
 
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;