ماهو الحل هذا الكود لترتيب اعمدة dbgrid تنازليا عند النقر عليها

[mmnn]

وضعت هذا الكود

كود :

{$J+} const PreviousColumnIndex : integer = 0; {$J-} begin  if DBGrid1.DataSource.DataSet is TCustomADODataSet then  with TCustomADODataSet(DBGrid1.DataSource.DataSet) do  begin    try      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=      DBGrid1.Columns[PreviousColumnIndex].title.Font.Style - [fsBold];   except    end;    DBGrid1.Columns[PreviousColumnIndex].title.Font.Style :=    DBGrid1.Columns[PreviousColumnIndex].title.Font.Style + [fsBold];    PreviousColumnIndex := DBGrid1.Columns[PreviousColumnIndex].index;    if (Pos(DBGrid1.Columns[2].Field.FieldName, Sort) = 1)    and (Pos(' DESC', Sort)= 0) then      Sort := DBGrid1.Columns[2].Field.FieldName + ' DESC'    else      Sort := DBGrid1.Columns[2].Field.FieldName + ' ASC';  end;

ولكن تظهر تلك الراسالة
ما هو الحل

[محمد عبد العزيز]

1- ماهو اصدار دلفي المستخدم ؟
2- ماهي رسالة الخطأ كاملة ؟

[mmnn]

1- ماهو اصدار دلفي المستخدم ؟
2- ماهي رسالة الخطأ كاملة ؟


اصدار الدلفى : دلفى7
الرساله هى 
type mismatch

[محمد عبد العزيز]

لا يبدو اي خطأ في الكود فوق في دلفي 7
ما السطر الذي يظهر به الخطأ ؟ او اذكر رسالة الخطأ كاملة كما اظهرها الCompiler

[rahiche]

جرب محتوى هذا الدرس
من اجل الترتيب ممكن يفيدك
https://www.youtube.com/watch?v=NiZWhBMfLdE