Discussion :

[Art19]

bonjour,

je voudrais decomposer mon programme en mettant certaines fonction dans une unit et d'autres dans une autre unit et faire appel a une fonction d'une unit dans une autre unit. Est ce possible?

[anapurna]

salut

oui si tu evite les reference circulaire
c'est a dire

funcA appelle funcb qui elle meme appel funcA

@+ Phil

[Art19]

ok merci.

pourtant j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure functA();
var
   b: Integer;
begin
 
   b := functB();
 
end;

et il me dit: Undeclare Identifier "functB" alors que j'ai bien mis l'unit de functB dans l'unit de functA

[anapurna]

salut

tu a bien declarer dans les uses l'unite b ?
la fonction est bien predeclarer dans la parti interface de l'unité ?

@+ Phil

[Art19]

la fonction est bien predeclarer dans la parti interface de l'unité ?

MERCI

[Shredder]

salut

tu dois ajouter ta procédure en haut de l'unit (aves les procédures et autre fonctions) de manière a obtenir ceci :




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
functA();
functB();
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.functA();
var
b: Integer;
begin

b := functB();

end;

procedure TForm1.functB();
begin
//ton code
end;

end.


++