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.

[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;

[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)

[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]

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

[zemeilleurofgreg]

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

si tu veux avoir acces à ta fonction à partir de toute tes form, la réponse de PaulR est très bonne. C'est également de cette façon que je procède !

[aliwassem]

Pour moi avec les variables je les declarent dans la section Public comme par example dans la Form1 je declare

Code :

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

1
2
 
Var1,Var2 :string;

et dans la Form2

Code :

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

1
2
3
 
Form1.Var1 := ........;
.....

[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.

[Kaféine]

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

je ne comprend pas ton commentaire...
la procédure est EditNumeriqueKeyPress est public dans ce cas precis!!!
au même titre que l'edit EditNumerique....

en gros ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
  TFormCaisseAOutils = class(TForm)
    EditNumerique: TEdit;
    ..... //cette partie est public aussi !!!
  private
    { Déclarations privées }
  public
    procedure EditNumeriqueKeyPress(Sender: TObject; var Key: Char);  
end;

c'est pareil...sauf qu'il faut assigner l'evenement par programmation


Sinon moi je préfère ecrire un objet singleton qui sert de manager de tous mes globals necessaire à l'appli comme gestion des logs, messages, functions ou objet partagée etc....

[Gilbert Geyer]

A Kaféine, à propos de mon commentaire :

type
TFormCaisseAOutils = class(TForm)
EditNumerique: TEdit;
..... //cette partie est public aussi !!!
private { Déclarations privées }
public

Je reformule donc mon commentaire comme suit "ça marche même sans mettre la procedure EditNumeriqueKeyPress() dans la rubrique nommée Public, c'est à dire en la laissant devant la rubrique private, c'est à dire dans la partie qui se comporte de façon similaire à celle nommée explicitement Public".

Et comme la déclaration de la procédure en question se place automatiquement devant la rubrique private lors de sa création je ne vois pas l'intérêt de la déplacer puisque ça marche.

c'est pareil...sauf qu'il faut assigner l'evenement par programmation

Ok sur "c'est pareil". Par contre dans tous les cas il faut assigner l'évènement par une ligne de code pour chacun des Edit concernés et si tous les Edit doivent être numériques cela peut se régler dans une boucle.

[Kaféine]

Merci pour cette préscision.
alors on est d'accord

[Gilbert Geyer]

Kaféine :

alors on est d'accord

Oui ... mais même si tu n'étais pas d'accord t'as le droit d'avoir un point de vue différent