text File Problem

[hanyniazy]

السلام عليكم

عند مشكلة صغير اريد ان ادخل في Loop في Text File
ولكن لا اسطيع ان اعرف عدد ال Line الموجود في هذا ال Text File
ارغب في الخروج من ال Loop عند ا نتهاء الملف او عند انتهاء ال Line الموجودة في ال Text file


كيف يمكن ان افعل هذا ؟؟؟؟

و شكرا

[هانى سند]

اذا كنت تستخدم باكيدج TEXT_IO لقراءة الملف
فعند انتهاء الملف يحدث هناك اكسبشن
NO_DATA_FOUND
لذلك يمكن في هذا الاكسبشن غلق الملف باستعمال البلت ان
Text_IO.Fclose
بالتوفيق