when i compile this code Quand je compile ce code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if FDTable1.IndexFieldNames = column.Field.FieldName then
FDTable1.IndexFieldNames := column.Field.FieldName + ' DESC'
else
FDTable1.IndexFieldNames := column.Field.FieldName;
end;

i receive an error msg j'obtiens ce message d'erreur :

L'objet [<exp-Num>DESC] est introuvable