Overload

Version imprimable

15/04/2003, 11h58
JMF

Overload

Bonjour,

j'ai une fonction pour enregistrer un mouvement de marchandise dans une table. On peut passer en paramètre un TQuery qui sera alors utilisé pour effectuer la requete ou bien Nil et dans ce cas un TQuery par défaut sera utilisé.

Nous sommes en train de passer certaines applications en DBExpress mais comme cela se fait progressivement, il faudrait pouvoir faire cohabiter les 2 fonctionnements.

Les classes TQuery et TSQLQuery n'ayant pas le même ancêtre, je n'ai pas pu utiliser cette technique. :(

J'ai donc pensé écrire une version surchargée de la méthode mais lorsqu'on passe un Nil, il y a ambiguité. :(
Il y a-til un moyen de dire qu'en cas d'ambiguité, il faut utiliser telle version. Une sorte de version par défaut.

N'ayant réussi à trouver un moyen de faire cela, j'ai pensé mettre mon argument en Variant. Ainsi je teste le type de la classe de l'argument et j'agit en conséquence. Seulement un Variant ne semble pas pouvoir avoir Nil pour valeur. :(

Là je suis à court d'idée. :?
Quelqu'un aurait-il une solution ?

Merci beaucoup. :D

Salut,

si le problème est juste de définir une fonction par défaut en cas de nul, tu peux utiliser une valeur par défaut de paramètre:

Code:

1
2
3
4
5
6
7
8
9
10
 
    procedure Test(Obj : TQuery); overload;
    procedure Test(Obj : TADOQuery = nil); overload;
 
//--> dans les cas suivants
 
  Test(MaQuery); //Fait la première
  Test(MaQueryADO); //Fait la deuxième
  Test(nil); //Fait la deuxième
  Test; //Fait la deuxième

Salut rbag,

merci pour ton aide mais malheureusement j'ai d'autres arguments dans ma méthode, je ne peux donc mettre une valeur par défaut au premier sans en mettre aux autres. :(

Par contre j'ai eu une autre idée : passer un pointer vers le NIL/TQuery/TSQLQuery et selon le type de l'argument le transtyper en conséquence.

Seulement je dois mal gérer mon pointeur (Je n'en ai jamais utilisé encore :oops:) car lors du Open sur le TQuery/TSQLQuery, j'obtiens l'erreur suivante : Erreur à la création du handle de curseur.

Voici le code que j'utilise :
Code:

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 PROCEDURE TDM_Divers.Ajouter_Mouvement(Query:Pointer;Table:TAcces_Table;Mouvement:TAcces_Mouvement); BEGIN IF NOT Assigned(Query) THEN Query:=Query_Divers; IF TObject(Query).ClassName = 'TQuery' THEN BEGIN WITH TQuery(Query) DO BEGIN Close; SQL.Text:='____Ma_requête_SQL____'; Open; END; END ELSE BEGIN WITH TSQLQuery(Query) DO BEGIN Close; SQL.Text:='____Ma_requête_SQL____'; Open; END; END; END; {$ENDIF} END;
BTW si quelqu'un a une idée pour éviter de répéter le bloc de code concernant l'execution de la requête, je suis preneur. :D

Merci.

15/04/2003, 15h38
rbag

'ai fait un test vite fait, sur mon ordi ça marche (quasiment le même code). Tu n'aurais pas oublié qq chose ou fait une erreur dans le code ?
15/04/2003, 15h56
JMF

Bah mince alors. Je ne vois pas où est mon erreur (d'un autre côté si je la voyais je ne te demanderais pas de l'aide :wink:)

Pourrais tu me montrer le code de ton test stp ?
Merci.

Pas de pb:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenQry(QBDE);
  OpenQry(QSQL);
  OpenQry(nil);
end;
 
procedure TForm1.OpenQry(Query: pointer);
begin
  if not Assigned(Query) then
    Query := QSQL;
  if TObject.ClassName = 'TQuery' then begin
    TQuery(Query).Close;
    TQuery(Query).SQL.Clear;
    TQuery(Query).SQL.Add('SELECT * FROM MaTable');
    TQuery(Query).Open;
  end else begin
    TSQLQuery(Query).Close;
    TSQLQuery(Query).SQL.Clear;
    TSQLQuery(Query).SQL.Add('SELECT * FROM MaTable');
    TSQLQuery(Query).Open;
  end;
end;

15/04/2003, 16h32
JMF

En effet cela fonctionne, l'erreur doit venir du reste de mon code.

Merci beaucoup pour ton aide. :D

BTW il y a une erreur dans ton code, tu oublies de transtyper l'argument ici : if TObject.ClassName = 'TQuery' :wink:

TQuery et TSQLQuery ont un ancetre commun : TDataSet, c'est celui-ci qu'il faut prendre comme type de paramètre et tester dans la procédure le type réel de composant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.OpenQry(Query:TDataSet); 
begin 
  if not Assigned(Query) then 
    Query := QSQL; 
  if Query Is TQuery then begin 
    TQuery(Query).Close; 
    TQuery(Query).SQL.Clear; 
    TQuery(Query).SQL.Add('SELECT * FROM MaTable'); 
    TQuery(Query).Open; 
  end else begin 
    TSQLQuery(Query).Close; 
    TSQLQuery(Query).SQL.Clear; 
    TSQLQuery(Query).SQL.Add('SELECT * FROM MaTable'); 
    TSQLQuery(Query).Open; 
  end; 
end;

18/04/2003, 09h19
JMF

Merci Nono40 mais en fait j'avais déjà trouvé cette solution seulement pris par les contraintes du boulot j'ai oublié de l'indiquer. Je suis vraiment désolé. :oops: