View Full Version : سوال: دستور مرتب سازی (Sort) در دلفی؟؟
  
ms.nazeri
چهارشنبه 16 تیر 1389, 21:28 عصر
دستور sort کردن فیلدهای درون گرید، برای اعداد یا رشته ها در دلفی چیه؟
تو رو خدا یکی نمونه دستور Sort  در دلفی رو بهم بگه:گریه:
hossein_h62
چهارشنبه 16 تیر 1389, 22:42 عصر
دوست عزیز قبل از ایجاد این همه تاپیک لطفا جستجو رو فراموش نکن.سریعتر به جواب میرسی.
اینم یک نمونه :
 
AdoQuery1.Sql.text:='Select * From MyTable Order By myfield';
AdoQuery1.active:=True;
pezhvakco
جمعه 18 تیر 1389, 10:00 صبح
درود :
کد دستور جناب  حسن درسته . فقط بهتره اول اون کوئری رو ببندی .
 
اگه منظورت مرتب سازی جدول های دلفی ( DBGrid ) است، می تونی از ایندکس های لحظه ای استفاده کنی >
DataSet1.IndexFieldNames:='Col_Name';
یا
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
    DataSet1.IndexFieldNames:=Column.Field.FieldName;
end;
 
فکر خوش .
shge64
شنبه 19 تیر 1389, 23:07 عصر
دوست عزیز سلام
من از همه تازه کارترم ولی شاید این هم به دردت بخور
ADOTable.sort := strFieldName
به دردت نخورد بگو تا بعدیش رو در خدمت باشم
majid jun
شنبه 15 بهمن 1390, 17:47 عصر
سلم منم همچین مشکلی رو دارم برای جدول adotable
Vahid.Shatery
یک شنبه 16 بهمن 1390, 01:14 صبح
سلام
به نظر من یک ComboBox انتخاب کن و مواردی که میشه از اون Grid را Sort کرد داخلش تعریف کن که کاربر حق انتخاب داشته باشه .
بعد در onChange اونComboBoxکد زیر را بنویس .
  case cbb1.ItemIndex of
   0 : MainComponent.tblIORollCall.Sort := ' Perno ' ;
   1 : MainComponent.tblIORollCall.Sort := ' Enter_Date ' ;
   2 : MainComponent.tblIORollCall.Sort := ' Enter_Time ' ;
   3 : MainComponent.tblIORollCall.Sort := ' Exit_Date ' ;
   4 : MainComponent.tblIORollCall.Sort := ' Exit_Time ' ;
  end ;
Vahid.Shatery
یک شنبه 16 بهمن 1390, 01:15 صبح
بعد در onChange اونComboBoxکد زیر را بنویس .
سلام مجدد 
در onCloseUp هم می تونید بنویسید.
ahmadi613
شنبه 19 فروردین 1391, 23:44 عصر
با سلام
از فرمول زي استفاده كن فرق نمي كند چه  table  ويا  adotable  انشاالله درست مشه موفق باشي
Table1.Sort:='Date ASC';
Table1.First;
For i:=1 to Table1.RecordCount do
        begin
        Table1.Edit;
        Table1.FieldByName('shomareh').Value:=i;
        Table1.Post;
        Table1.Next;
        end;
 
vBulletin® v4.2.5, Copyright ©2000-1404, Jelsoft Enterprises Ltd.