Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.FormCreate(Sender: TObject); begin {La propriété Tag des tables à mettre à jour doit contenir l'adresse de la table source. Ex: Table2 sera mis à jour à l'aide de Table1} Table2.Tag := Longint(Table1); Table4.Tag := Longint(Table3); end ; Enuite, au moment du traitement : procedure TForm1.Button1Click(Sender: TObject); var i: integer; T: TTable; begin //pour chaque composant sur la fiche for i : = 0to ComponentCount - 1do //si c'est un TTable if Components[i] is TTable then begin //pour faciliter le code qui suit T := Components[i] as TTable; //si la propriété Tag est différente de zéro if T.Tag <> 0then { on met à jour avec la table situé à l'adresse contenue dans la propriété tag } T.BatchMove(TTable(T.Tag), batAppendUpdate); end; end; Je pense que cela répond mieux à tes exigences.
procedure TForm1.Button1Click(Sender: TObject); var i: integer; T: TTable; begin { parcourir tous les composants de la fiche (ou du module de données) } for i := 0 to ComponentCount - 1do begin { si le composant courant est une table et que sa propriété Tag est égale à 1 (par convention)} if (Components[i] is TTable) and (Components[i].Tag = 1) then begin { on prend une référence sur le composant actuel } T := Components[i] as TTable; { On met à jour Table1 avec la table référencée par T } Table1.BatchMove(T, batAppendUpdate); end; end; end;J'espère que, cette fois-ci, la description du problème était la bonne
procedure TForm1.Button1Click(Sender: TObject); var i: integer; T: TTable; begin { parcourir tous les composants de la fiche (ou du module de données) } for i := 0 to ComponentCount - 1do begin { si le composant courant est une table et que sa propriété Tag est égale à 1 (par convention)} if (Components[i] is TTable) and (Components[i].Tag = 1) then begin { on prend une référence sur le composant actuel } T := Components[i] as TTable; { On met à jour Table1 avec la table référencée par T } Table1.BatchMove(T, batAppendUpdate); end; end; end;J'espère que, cette fois-ci, la description du problème était la bonne