procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 0 to Form1 .ComponentCount - 1 do if Form1.Components[i] is TDBEdit then begin TDBEdit(Form1.Components[i]).Datasource :=//TraitementS end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.Button1Click(Sender: TObject); var I: integer; begin for I := 0 to ComponentCount - 1 do if Components[I] is TDBEdit then if TDBEdit(Components[I]).Tag = 1 then with TDBEdit(Components[I]) do begin DataSource := ???; // Traitements end; end;
procedure TForm1.Button1Click(Sender: TObject); var I: integer; begin for I := 0 to ComponentCount - 1 do if Components[I] is TDBEdit then if TDBEdit(Components[I]).Tag = 1 then with TDBEdit(Components[I]) do begin DataSource.DataSet.Close; DataSource := nil; DataSource := ???;//Traitements DataSource.DataSet.Open; end; end;
DataSource.DataSet.Open;