Discussion :

[sofianoo]

bonjour tlm,
j'ai utilisé une procedure, mais au moment de l'execution ya un message d'erreur m'indiquant que la procedure n'est pas déclaré,alors je l'ai déclaré dans l'unit1,mais tjrs le msg d'erreur sachant que cette procedure est utilisé par unit1 et unit3.
ou devrais-je la déclaré.
merci

[Clorish]

si tu utilise une procedure de unit1 dans unit3, il faut rajouter unit1 a la liste de uses de Unit3.

apres, verifie que tu utilises bien la procedrue avec les bon parametres ...

Sinon ton message n'est pas tres tres clair ... et demande quelques precisions

[sofianoo]

en vérifiant unit1 été dans la liste des uses de unit3,j'ai déclaré la procédure ds unit 1 et3,mnt j'ai les msg d'erreur suivant:
not enough actual parameters
Unsatisfied forward or external declaration

[DragonHeart]

Lorsque tu as écrit ta procédure dans Unit1 tu as pensé a rajouter devant le nom de la form devant?

comme ceci

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
Unit Unit1

interface

Uses (...)

Type
  TForm1 = class(TForm)
  ...
  Procedure MaProcedure;
  private
  public
  end;

Var 
  Form1 : TForm1;

implementation

{$R *.DFM}

Procedure TForm1.MaProcedure;
Begin
End;

[Clorish]

en vérifiant unit1 été dans la liste des uses de unit3,j'ai déclaré la procédure ds unit 1 et3,mnt j'ai les msg d'erreur suivant:
not enough actual parameters
Unsatisfied forward or external declaration

Si ta procedure est declaree dans unit1, tu n'as pas besoin de la declarer dans unit3 ... quand a l'erreur forward c'est parce que tu as du la declarer mais pas l'implementer.

Ensuite il y a aussi la portee des fonctions.
Je pense que ca vient de la.
Si tu declare une fonction dans implementation elle est declare localement a l'unitee donc non exportable. Il faut declarer son prototype dans interface pour qu'elle puisse etre utilisé ailleur.

Exemples :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Unit1;
Interface
 
Implementation
 
procedure MaProc;
Begin
[...]
End;

Ca c'est une procedure locale a unit1 et untilisable uniquement ici.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Unit1;
Interface
 
Procedure MaProc;
 
Implementation
 
Procedure MaProc;
Begin
[...]
End;

Ici, le prototype de la declaration dans la section interface rend la procedure publique et pourra etre utilise dans toutes les unitees qui inclu Unit1.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Unit3;
Interface
 
Uses Unit1;
 
Implementation
 
Procedure UneProcedure;
Begin
MaProc;
End;

Ici le code est exact et l'appel a MaProc correct car j'ai inclut Unit1 dans la liste des uses.
A noter que ca ne marche que dans le 2e cas de declaration (publique) sinon bien sur que ca ne marchera pas car MaProc sera limité a unit1 ....

[sofianoo]

j'ai suivi vos coseil mais je sais pas pkoi ça marche pas voici un bout de mon pg:

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
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, DBCtrls, StdCtrls, Mask, DB, DBTables, XPMan,
  JvExControls, JvGradient, Grids, DBGrids, Buttons, JvButton,
  JvNavigationPane;

type
  TForm1 = class(TForm)
    
  private
    { Private declarations }
  public
    procedure Ma_proc(Sender: TObject);{ Public declarations }
  end;

var
  Form1: TForm1;
  NombrePages:integer;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}
procedure Ma_proc;
begin
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
 var Rech:integer;
begin
Rech:=strtoint(inputbox('Rechercher','Entrer le numéro de l''offre','1'));
if not table1.FindKey([rech])then
begin
messagedlg('Le Numéro de l''offre que vous avez saisie n''existe pas',
            mtinformation,[mbok],0);
end;
table1.Edit;
table1.Post;
table2.Edit;
table2.Post;
QuickReport4.Query1.active:=false;
QuickReport4.Query1.Params[0].value:=strtoint(DBEdit7.Text);
QuickReport4.Query1.active:=true;
QuickReport4.Prepare;
NombrePages:=QuickReport4.QRPrinter.PageCount;
QuickReport4.QRPrinter.Free;
QuickReport4.QRPrinter := nil;
Ma_proc;
QuickReport4.PREVIEW;
end;


end.

le pb c'est que méme dans unit1 j'ai les messages d'erreur suivant:
[Error] Unit1.pas(215): Not enough actual parameters
[Error] Unit1.pas(77): Unsatisfied forward or external declaration: 'TForm1.Ma_proc'
[Fatal Error] Mon_prog.dpr(8): Could not compile used unit 'Unit1.pas'

[bjl]

bonjour,

ou tu fais

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
type
  TForm1 = class(TForm)
    
  private
    { Private declarations }
  public
    procedure Ma_proc(Sender: TObject);{ Public declarations }
  end;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}
procedure TForm1.Ma_proc(Sender: TObject);
begin
end;


QuickReport4.QRPrinter := nil;
Ma_proc(self);
QuickReport4.PREVIEW;

mais je ne vois pas comment tu feras pour l'utiliser dans unit3.

ou bien

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
type
  TForm1 = class(TForm)
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure Ma_proc(monparamêtre : TmonParamêtre);


implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}
procedure Ma_proc(monparamêtre : TmonParamêtre);
begin
end;


QuickReport4.QRPrinter := nil;
Ma_proc(Paramêtre);
QuickReport4.PREVIEW;

avec utilisation possible dans unit3


dans ton cas,
1) tu utilise une méthode déclarée comme procedure de TForm1 donc
elle doit être implémentée comme tel. tu l'as implémentée comme une procédure interne de l'unit.

2) tu utilise une procédure de Tform1 sans paramêtre alos que tu l'as déclarée avec paramêtre.

[sofianoo]

dans mon cas ya pas de paramétre donc je dois la déclaré sans paramétre?

[bjl]

bah oui.

[sofianoo]

alors je bloc ou j'ai loupé qque chose!! je l'ai declaré dans public comme suit

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
public
    procedure Mr_Melle(Sender: TObject);{ Public declarations }
  end;
var
  Form1: TForm1;
  NombrePages:integer;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}
procedure Mr_Melle(Sender: TObject);
begin
if (form2.combobox2.itemindex=0)or
   (form2.combobox2.itemindex=1)or
   (form2.combobox2.itemindex=2)or
   (form2.combobox2.itemindex=3)then
begin
QuickReport4.QRlabel27.Caption:='Mr.';
end
else
if (form2.combobox2.itemindex=5)then
  begin
  QuickReport4.QRlabel27.Caption:='Melle.';
  end
  else
    if (form2.combobox2.itemindex=4) then
      begin
        QuickReport4.QRlabel27.Caption:='';
      end;
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
table1.Edit;
table1.Post;
table2.Edit;
table2.Post;
QuickReport4.Query1.active:=false;
QuickReport4.Query1.Params[0].value:=strtoint(DBEdit7.Text);
QuickReport4.Query1.active:=true;
QuickReport4.Prepare;
NombrePages:=QuickReport4.QRPrinter.PageCount;
QuickReport4.QRPrinter.Free;
QuickReport4.QRPrinter := nil;
Mr_Melle(self);
QuickReport4.PREVIEW;
end;

mais il ya ce msg
[Error] Unit1.pas(77): Unsatisfied forward or external declaration: 'TForm1.Mr_Melle'
[Fatal Error] OFFRE_DES_PRIX.dpr(8): Could not compile used unit 'Unit1.pas'