وظيفة لتحديد ما إذا كان الملف هو ملف نصي في دلفي

عند كتابة وظيفة قراءة ملف نصي بنفسك، فإن المشكلة الأولى التي ستواجهها هي: بالنسبة لاسم ملف معين، كيف تعرف أن ملف القرص الذي يمثله هو بالفعل ملف نصي؟ إليك طريقة بسيطة للغاية: تعامل مع الملف المحدد كملف ثنائي غير مكتوب، ثم اقرأ كل بايت من الملف بالتسلسل. إذا كان هناك بايت في الملف بقيمة 0، فهذا يعني أن الملف ليس نصًا file؛ على العكس من ذلك، إذا لم يكن هناك بايت في الملف بقيمة 0، فيمكن تحديد أن الملف عبارة عن ملف نصي. هذا هو المبدأ، دعونا نلقي نظرة على كيفية البرمجة في دلفي لتنفيذه -

انسخ رمز الكود كما يلي:

functionIsTextFile(FileName:string):boolean;

فار

fs:TFileStream;

أنا، الحجم: عدد صحيح؛

IsTextFile:boolean;

بايت داتا: بايت؛

يبدأ

إذا كان الملف موجودًا (اسم الملف) إذن

يبدأ

Fs:=TFileStream.Create(FileName,fmOpenRead);

IsTextFile:=true;

أنا:=0;

الحجم:=Fs.Size;

while(i<size)andIsTextFiledo

يبدأ

Fs.Read(ByteData,1);

IsTextFile:=ByteData<>0;

المؤتمر الوطني العراقي (ط)

نهاية؛

FS.Free;

النتيجة:=IsTextFile

نهاية

آخر

النتيجة:=خطأ

نهاية؛