Discussion :

[CyberTwister]

Bonjour

Alors, je travail sous borland.
je voudrai pouvoir utiliser depuis unit1.pas une fonction dans unit2.pas mais je vois pas du tout comment faire ça.
Pourriez vous me dire la démarche svp ?
(ou déclarer les fonctions...)

Merci pour tout

[Booster2ooo]

Tu rajoute Unit2 dans les uses et c'est bon si je ne me trompe pas

[shell13010]

Salut,

Declare dans Unit1

Code :

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

1
2
3
4
5
6
7
8
9
10
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
end;
 
end.

[bsdocuments]

Bonjour

Alors, je travail sous borland.
je voudrai pouvoir utiliser depuis unit1.pas une fonction dans unit2.pas mais je vois pas du tout comment faire ça.
Pourriez vous me dire la démarche svp ?
(ou déclarer les fonctions...)

Merci pour tout

Voici un petit exemple;

code de l'unité n°2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Unit Unit2;
interface
 
function Func_Unit2:Boolean;
 
implementation
 
function Func_Unit2:Boolean;
begin
end;
 
end.

code de l'unité n°1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Unit Unit1;
interface
uses Unit2;
 
implementation
 
procedure Proc_Unit1;
begin
 if Func_Unit2
   then ; {continuez votre code..}
end;
 
end.

pour plus de clairessissement postez votre code.

a+

[CyberTwister]

Super
Merci beaucoup