Discussion :

[LadyWasky]

si je fait :

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
Procedure TForm1.MetAJour(ID:integer);
var UneValeur:integer;
begin
  With table1 do
  begin
     open;
     UneValeur:=FieldbyName('MonChamp').Asinteger;
     with Table2 do
     begin
        open;
        if locate('MonChampCle',VarArrayOf([ID]),[]) then
        FieldbyName('MonChamp').Asinteger:=UneValeur;
        close;
     end;
     close;
  end;
end;

Est-ce que Delphi va s'y retrouver pour savoir à qui il va appliquer le Open, le locate et le close du with imbriqué (ça m'arrangerait bien pour gagner en clarté dans mon code) ?

Est-ce que c'est franchement déconseillé ?

Je n'ai rien trouvé dans l'aide sur le fonctionnement du With à ce propos dans Delphi 7.

Merci pour vos lumières.

[neilbgr]

Lors d'un conflit de nom (de méthode, de property, ...) c'est le dernier qui gagne.

Delphi lui s'y retrouvera de toute façon, mais toi (ou moi), avec deux objets semblables, le risque d'erreur est trop grand pour laisser ainsi trop d'imbrication de with.

[LadyWasky]

Merci beaucoup pour cette explication.