ترتيب حقل حسب شرط معين

اذهب الى الأسفل

ترتيب حقل حسب شرط معين Empty ترتيب حقل حسب شرط معين

مُساهمة  ali في 22/9/2019, 5:58 pm


ترتيب حقل حسب شرط معين

ترتيب من اصغر الى اكير مثلا:
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
مبرمج مجتهد

عدد المساهمات : 878
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى