ترتيب حقل حسب شرط معين
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
ترتيب حقل حسب شرط معين
ترتيب حقل حسب شرط معين
ترتيب من اصغر الى اكير مثلا:
if t1[j1] > t1[j2] then
ترتيب من اكبر الى اصغر مثلا:
if t1[j1] < t1[j2] then
الكود:
- الكود:
var i: word;
procedure TForm1.Button1Click(Sender: TObject);
type t = array of word;
var t1: t;
j1,j2, CountRecord, ii: word;
begin
Table1.Open;
Table1.First;
i := 1;
CountRecord := Table1.RecordCount;
Setlength(t1,CountRecord+1);
Table1.DisableControls;
while not Table1.Eof do
begin
t1[i] := Table1.FieldValues['GR1'];
i := i + 1;
Table1.Next;
end;
Table1.EnableControls;
for j1 := 1 to CountRecord-1 do
for j2 := j1+1 to CountRecord do
if t1[j1] > t1[j2] then
begin
ii := t1[j2];
t1[j2] := t1[j1];
t1[j1] := ii;
end;
Table1.First;
i := 1;
Setlength(t1,CountRecord+1);
Table1.DisableControls;
while not Table1.Eof do
begin
Table1.Edit;
Table1.FieldValues['GR1'] := t1[i];
i := i + 1;
Table1.Post;
Table1.Next;
end;
Table1.EnableControls;
end;
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» رسم مربعين داخلهما معين
» كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الآولى)
» كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)
» ترتيب جدول تصاعديا
» ترتيب جدول تنازليا
» كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الآولى)
» كيف اتحكم في ترقيم معين حسب كل فرقة (المرحلة الثانية)
» ترتيب جدول تصاعديا
» ترتيب جدول تنازليا
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى