eof في السجلات

[محمد عبد العزيز]

eof تعني نهاية الملف / جدول البيانات
bof تعني بدايته
وهي قيمة منطقية تكون صحيحة او خاطئة

الحلقة تنطلق من البداية الى النهاية مثلا
تكتب شيئ مثل:

PHP كود :

Var
 SumQ : Integer;
begin
  SumQ:=0;
  Table1.First;
  Repeat
    SumQ:=SumQ+Table1.FieldByName('Qte').AsInteger;
    Table1.Next;
  Until Table1.Eof;

  ShowMessage(IntToStr(SumQ));
end; 


Qte حقل كمية البضاعة
SumQ الكمية الكلية

او من النهاية الى البداية
نفس المثال السابق

PHP كود :

Var
 SumQ : Integer;
begin
  SumQ:=0;
  Table1.Last;
  Repeat
    SumQ:=SumQ+Table1.FieldByName('Qte').AsInteger;
    Table1.Prior;
  Until Table1.Bof;

  ShowMessage(IntToStr(SumQ));
end; 


هذا النوع من الحلقات قد يستهلك وقت حسب حجم القاعدة من سجلات
ومن الاحسن والاسرع استخدام SQL
تصفح المنتدى لامثلة عن ذلك
وبالتوفيق