Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionTu as d'autres évènements qui se déclenchent dans cette opération.
program nvg1; uses Forms, Unit1 in 'Unit1.pas' {nvg}; {$R *.RES} begin Application.Initialize; Application.CreateForm(Tnvg, nvg); Application.Run; end.
unit Unit1; interface uses Windows, Classes, Forms, Grids, DBGrids, Db, DBTables, DBCGrids, StdCtrls, Controls ; type Tnvg = class(TForm) DataSource1: TDataSource; DB1: TDBGrid; Edit1: TEdit; Table1: TTable; procedure Edit1Change(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } end; var nvg: Tnvg; implementation {$R *.DFM} procedure Tnvg.Edit1Change(Sender: TObject); var filtre:string; begin if edit1.text<>'' then begin filtre:='nom_elev='''+edit1.text+'*'''; table1.filter:=filtre; table1.filtered:=true; end else table1.filtered:=false; end; end.
Le projet:\projet.exe a fauté avec le message: accès violation at 0x4de3b711:read of adress 0xt19eefe8' precesus stoppé.