Discussion :

[dragonno]

J'ai une fonction que je déclare dans la partie publique de l'interface :

Code :

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

Function MonMessage(texte:String):Boolean;

Et j'ai le message :

Code :

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

1
2
[Avertissement] Unit1.pas(84): La valeur de retour de la fonction 'MonMessage' peut être indéfinie
[Erreur] Unit1.pas(53): Déclaration forward ou external non satisfaite : 'TForm1.MonMessage'

Et quand je la déclare ainsi :

Code :

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

Function MonMessage(texte:String):Boolean;Forward;

J'ai le message :

Code :

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

[Erreur] Unit1.pas(53): Définition de champ non autorisée après des méthodes ou propriétés

Je la déclare complètement aussi dans la partie Implémentation :

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
Function MonMessage(texte:String):Boolean;
begin
  //Ici on lance linscription des joueurs !
  form1.Panel2.Show;
  //centrage Horizontal de Panel1
  Larg1:=form1.width;
  Larg2:=form1.Panel2.Width;
  x:=(Larg1 - Larg2)div 2;
  form1.Panel2.left:=x;
  //centrage Vertical de Panel1
  {Haut1:=form1.Height;
  Haut2:=Panel1.Height;
  x:=(Haut1 - Haut2)div 2;}
  form1.Panel2.top:=form1.GroupBox1.Top;
  form1.Label1.caption:=texte;
end;

[ouiouioui]

bonjour, en fait ta fonction doit renvoyer un boolean
donc par exemple faut au début

Code :

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

Result := False;

et tu met à true si sa réussi

[dragonno]

Ok Merci ^^ mais je le met où ça ?
Et pour le forward ?

[ouiouioui]

tu y met dans ta fonction aprés le begin
et le forward tu y met pas

[Andnotor]

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
Function TForm1.MonMessage(texte:String):Boolean;  //Erreur Forward
begin
  Result := TRUE;  //Avertissement
  //Ici on lance linscription des joueurs !
  form1.Panel2.Show;
  //centrage Horizontal de Panel1
  Larg1:=form1.width;
  Larg2:=form1.Panel2.Width;
  x:=(Larg1 - Larg2)div 2;
  form1.Panel2.left:=x;
  //centrage Vertical de Panel1
  {Haut1:=form1.Height;
  Haut2:=Panel1.Height;
  x:=(Haut1 - Haut2)div 2;}
  form1.Panel2.top:=form1.GroupBox1.Top;
  form1.Label1.caption:=texte;
end;

Click sur le message d'erreur et presse

[zemeilleurofgreg]

[Avertissement] Unit1.pas(84): La valeur de retour de la fonction 'MonMessage' peut être indéfinie

ce message intervient lorsque tu n'as pas défini de valeur de retour "par defaut"
par exemple au début de ta fonction mettre "result:=false".

[Erreur] Unit1.pas(53): Déclaration forward ou external non satisfaite : 'TForm1.MonMessage'

ce message intervient lorsque la déclaration est différente de ta fonction en elle même.

@+

[Aka Guymelef]

ce message intervient lorsque la déclaration est différente de ta fonction en elle même.

Non déclaration différente c'est une autre erreur si je ne m'abuse, ici cela indique réellement qu'une déclaration n'a pas d'implémentation associée.

[zemeilleurofgreg]

Non déclaration différente c'est une autre erreur si je ne m'abuse, ici cela indique réellement qu'une déclaration n'a pas d'implémentation associée.

Euhhhhh............ tu n'as peut-être pas tort.
c'est erreur est tellement anodine que je n'y fais plus vraiment attention !

[dragonno]

Merci beaucoup Tous !!!
OuiOuiOui, AndNotor, et Aka Guymelef

Merci ZeMeilleurOfGreg !
ça fait +2 que je te compte, le +1 c'est la remarque que je t'ai passé en mp.
Je vais avoir les cotes cassées à force de rire^^

Pour vos solutions j'ai testé ça me fait ça :

Code :

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

[Erreur] Unit1.pas(53): Déclaration forward ou external non satisfaite : 'TForm1.MonMessage'

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
//partie du programme....
 
  public
    { Déclarations publiques }
    Function MonMessage(texte:String):Boolean;
  end;
 
var
  Form1: TForm1;
  x,y,Larg1,Larg2,Haut1,Haut2,index,Nbr_Joueur,N:integer;
  chaine:string[255];
  FondGroup:Tbitmap;
  fichier:file of byte;
  f_texte:Text;
  octet:byte;
 
implementation
 
{$R *.DFM}
 
Function MonMessage(texte:String):Boolean;
begin
  Result:=False;
  //Ici on lance linscription des joueurs !
end;
 
   //.............reste du programme.
end.

[Aka Guymelef]

La solution a été donnée par AndNotOr précédemment :

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
//partie du programme....
 
  public
    { Déclarations publiques }
    Function MonMessage(texte:String):Boolean;
  end;
 
var
  Form1: TForm1;
  x,y,Larg1,Larg2,Haut1,Haut2,index,Nbr_Joueur,N:integer;
  chaine:string[255];
  FondGroup:Tbitmap;
  fichier:file of byte;
  f_texte:Text;
  octet:byte;
 
implementation
 
{$R *.DFM}
 
Function TForm1.MonMessage(texte:String):Boolean;
begin
  Result:=False;
  //Ici on lance linscription des joueurs !
end;
 
   //.............reste du programme.
end.

[Andnotor]

Quand tu déclares une nouvelle procédure/fonction/propriété dans un objet, ne fais pas un copier/coller dans le bloc implementation. A la place, presse simplement Ctrl+Shift+C.

[dragonno]

Merci Aka
J'avais pas fait attention au "Tform1."

Merci AndNoTor

Quand tu déclares une nouvelle procédure/fonction/propriété dans un objet, ne fais pas un copier/coller dans le bloc implementation. A la place, presse simplement Ctrl+Shift+C.

Super info !!!