Discussion :

[bouzaidi]

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

[philnext]

tu transformes ta fonction

Code :

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

1
2
3
4
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;

en

Code :

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

1
2
3
4
function TFMain.f (r : string) : string;
begin
//Mon souci c'est comment avoir accès au variable a et b ainsi qu'à g et h
end;

tu fais <ctrl><Alt><C> : ça va déclarer ta fonction en 'private' tu as accès dans cette fonction à tous les éléments demandés.

[bouzaidi]

tu transformes ta fonction

Code :

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

1
2
3
4
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;

en

Code :

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

1
2
3
4
function TFMain.f (r : string) : string;
begin
//Mon souci c'est comment avoir accès au variable a et b ainsi qu'à g et h
end;

tu fais <ctrl><Alt><C> : ça va déclarer ta fonction en 'private' tu as accès dans cette fonction à tous les éléments demandés.

JE ne peux pas transformer f en une fonction de TF_Main, car j'en ai besoin pour l'appeler depuis l'exterieur ce qui ne marchera pas si la fonction est dans le bloc type .... end;

Soit la variable globale généralement associé à une form, soit tu passe un paramètre en plus qui est une form de la classe TF_Main

comment faire STP je suis pas fort en delphi.
Merci d'avance

[bouzaidi]

aah ok j ai pas vu le code. je vais essayer Merci

[philnext]

Si tu veux l'appeler de l'extérieur de la passe de 'private' en 'public' (copier/coller)

[bouzaidi]

Si tu veux l'appeler de l'extérieur de la passe de 'private' en 'public' (copier/coller)

je l'ai essayé mais ca ne marche pas. En fait mon appel de l'exterieur sera depuis une dll, donc dans ma dll je fais appel à cette fonction et si cette fonction est déclarée comme TF_Main.f alors elle n'est pas visible dans la dll meme si elle est en public, à moins si j'ai pas mis la clauses export dans le bon endroit...
Merci

[ShaiLeTroll]

Soit la variable globale généralement associé à une form, soit tu passe un paramètre en plus qui est une form de la classe TF_Main

soit par soucis de logique objet, tu fais une méthode de classe qui prend en paramètre la form

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

[PaulR]

Ce que je fais toujours, lorsque j'ai des fonctions que je dois utiliser dans des forms différents, c'est ajouter à mon projet une unité (donc un .pas sans .dfm) et j'ymets dedans toutes les fonctions communes... Exemple

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
unit iBase;
 
interface
 
uses
   Windows, Messages, Etc etc etc
 
type
   function F( param divers ) : integer;
 
(...)
 
implementation
 
  function F( param divers ) : integer;
  begin
     // mon calcul
  end;
(...)

J'ai donc une unité iBase.pas sur disque. J'en fais le uses (Maj+F11) dans toutes les fiches où j'ai besoin de ma fonction F...

[bouzaidi]

Soit la variable globale généralement associé à une form, soit tu passe un paramètre en plus qui est une form de la classe TF_Main

soit par soucis de logique objet, tu fais une méthode de classe qui prend en paramètre la form

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

C'est la solution qui me va le meiux, ca compile. merci.
A moins j'ai une petite question: voici la fonction d'où j'appelle les autres variables de TF_Main:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function GetTypeDeal(refcon : string; const F_Main: TF_Main): string;
begin
   F_Main.AdoQuery1.Connection       := F_Main.ADOConnectionSophis;
   F_Main.ADOQuery1.SQL.Text := 'select sicovam from histomvts where refcon ='+ refcon ;
   F_Main.ADOQuery1.open;
   F_Main.ADOQuery1.SQL.Text:='select ADI_GETALLOTEMENT(' + F_Main.ADOQuery1.FieldByName('SICOVAM').AsString + ') as colonne from dual';
   F_Main.ADOQuery1.open;
   Result := F_Main.ADOQuery1.FieldByName('colonne').AsString;
end;

mais le problème c'est que à l'execution mon programe plante à la premiere ligne de cette fonction avec un message d'erreur de type EAccess Violation...
Je ne sais pas d'ou ca vient! Je précise que ADOConnectionSophis est un champs du type TF_Main qui est une connexion à une certaine base de données. je crois qu'àprès l'appel de la fonction ces champs sont ignorés !!!! enfin j'en sais pas trop.

Voyez vous le pb. Merci d'avance

[philnext]

Tu es sur que tu as fait le create de
F_Main.AdoQuery1 ?

[Gilbert Geyer]

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;

Suggestion simple :

Code :

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

1
2
3
4
5
6
7
function f (r : string; frm : TF_Main) : string;
begin     // accès aux trucs déclarés dans le type TF_Main donc valable pour  toutes les var Form1, Form2 créées statiquement ou dynamiquement à partir du type TF_Main 
            u:=frm.a;
            v:=frm.b;
            w:=frm.g (...):string;
            frm.h(....);
end;

Remarque : Comme a,b,g et h n'existent que dans le type TF_Main on ne peut évidemment pas remplacer le frm : TF_Main par frm : TForm en conséquence de quoi je laisserais la fonction f dans l'unité de déclaration du type TF_Main et éviterais de la mettre dans une "unité-caisse-à-outils-communs" qu'on trimballe d'une appli à l'autre.

[Gilbert Geyer]

Ce que je fais toujours, lorsque j'ai des fonctions que je dois utiliser dans des forms différents, c'est ajouter à mon projet une unité (donc un .pas sans .dfm) et j'ymets dedans toutes les fonctions communes... Exemple

Je fais de même sauf que mon unité-caisse-à-outils est un .pas AVEC .dfm
Exemple :

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
unit uCaisseAOutils;
interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Math, Buttons, ExtCtrls;

type
  TFormCaisseAOutils = class(TForm)
    EditNumerique: TEdit;
    .....
    procedure EditNumeriqueKeyPress(Sender: TObject; var Key: Char); // ça marche même sans mettre cette procedure dans les déclarations publiques
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  FU1 : TFormCaisseAOutils;
implementation

{$R *.DFM}

procedure TForm1.EditNumeriqueKeyPress(Sender: TObject; var Key: Char);
begin     if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)])
          then Key := #0;
          if Key = DecimalSeparator
          then if Pos(DecimalSeparator, (Sender as TEdit).Text) <> 0 then Key := #0;
end;

... et pour utiliser une procédure de la caisse à outils dans une autre unité, dans le cas de l'exemple ci-dessus je le fais avec le code suivant :

Code :

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

1
2
3
4
5
6
procedure TFormGen.FormCreate(Sender: TObject);
begin   ...
          Edit1.OnKeyPress:=FU1.EditNumeriqueKeyPress;
          Edit8.OnKeyPress:=FU1.EditNumeriqueKeyPress;
          ...
end;

... cela permet d'élargir le contenu de la caisse à outils à bon nombre de routines concernant des composants d'utilisation répétitive.