+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهو الحل هذا الكود لترتيب اعمدة dbgrid تنازليا عند النقر عليها (/showthread.php?tid=8869)
ماهو الحل هذا الكود لترتيب اعمدة dbgrid تنازليا عند النقر عليها - mmnn - 12-09-2017
وضعت هذا الكود
كود :
{$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;ما هو الحل
RE: ماهو الحل لهذا الكود - محمد عبد العزيز - 12-09-2017
1- ماهو اصدار دلفي المستخدم ؟
2- ماهي رسالة الخطأ كاملة ؟
RE: ماهو الحل لهذا الكود - mmnn - 12-09-2017
(12-09-2017, 09:24 PM)B.M.AbdelAziZ كتب :
1- ماهو اصدار دلفي المستخدم ؟
2- ماهي رسالة الخطأ كاملة ؟
اصدار الدلفى : دلفى7
الرساله هى
type mismatch
RE: ماهو الحل هذا الكود لترتيب اعمدة dbgrid تنازليا عند النقر عليها - محمد عبد العزيز - 13-09-2017
لا يبدو اي خطأ في الكود فوق في دلفي 7
ما السطر الذي يظهر به الخطأ ؟ او اذكر رسالة الخطأ كاملة كما اظهرها الCompiler
RE: ماهو الحل هذا الكود لترتيب اعمدة dbgrid تنازليا عند النقر عليها - rahiche - 13-09-2017
جرب محتوى هذا الدرس
من اجل الترتيب ممكن يفيدك
https://www.youtube.com/watch?v=NiZWhBMfLdE