ورود

View Full Version : سوال: دستور مرتب سازی (Sort) در دلفی؟؟



ms.nazeri
چهارشنبه 16 تیر 1389, 20:28 عصر
دستور sort کردن فیلدهای درون گرید، برای اعداد یا رشته ها در دلفی چیه؟
تو رو خدا یکی نمونه دستور Sort در دلفی رو بهم بگه:گریه:

hossein_h62
چهارشنبه 16 تیر 1389, 21:42 عصر
دوست عزیز قبل از ایجاد این همه تاپیک لطفا جستجو رو فراموش نکن.سریعتر به جواب میرسی.
اینم یک نمونه :




AdoQuery1.Sql.text:='Select * From MyTable Order By myfield';
AdoQuery1.active:=True;

pezhvakco
جمعه 18 تیر 1389, 09:00 صبح
درود :
کد دستور جناب حسن درسته . فقط بهتره اول اون کوئری رو ببندی .

اگه منظورت مرتب سازی جدول های دلفی ( DBGrid ) است، می تونی از ایندکس های لحظه ای استفاده کنی >

DataSet1.IndexFieldNames:='Col_Name';
یا

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
DataSet1.IndexFieldNames:=Column.Field.FieldName;
end;

فکر خوش .

shge64
شنبه 19 تیر 1389, 22:07 عصر
دوست عزیز سلام
من از همه تازه کارترم ولی شاید این هم به دردت بخور

ADOTable.sort := strFieldName

به دردت نخورد بگو تا بعدیش رو در خدمت باشم

majid jun
شنبه 15 بهمن 1390, 16:47 عصر
سلم منم همچین مشکلی رو دارم برای جدول adotable

Vahid.Shatery
یک شنبه 16 بهمن 1390, 00: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, 00:15 صبح
بعد در onChange اونComboBoxکد زیر را بنویس .
سلام مجدد
در onCloseUp هم می تونید بنویسید.

ahmadi613
شنبه 19 فروردین 1391, 22: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;