Bonjour, j'ai le code suivant et ma question est mise en commentaire dans le code::

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
 
unit FM_Main;
 
interface
 
uses  {...}
 
type
  TF_Main = class(TForm)
    private {...}
    protected {...}
    public 
     function g (...):string;
     procedure h(....);
     a: TADOConnection;
     b: TADOQuery;
 end;
function f (r : string) : string;
 
implementation
 
function TF_Main.g(...):string;
begin 
{corps de la fonction g}
end;
 
procedure TF_Main.h(...);
begin 
{corps de la fonction g}
end;
function f (r : string) : string;
begin
//Mon souci c'est comment avoir accès au variable a et b ainsi qu'à g et h
end;

Merci D'avance les gas