قرآء عدة سطور من ملف نصي

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

قرآء عدة سطور من ملف نصي

مُساهمة  mah11 في 23/7/2013, 7:47 pm

بسم الله الرحمن الرحيم
قرآء عدة سطور من ملف نصي

الكود:

program read_file1_txt;
var ft: text; s: string; i: integer;
begin
 assign(ft, 'text1.txt');
 reset(ft);
 while not eof(ft) do
 begin
  readln(ft, s); writeln(s);
 end;
 close(ft);
 readln;
end.

delph.forumalgerie.net


عدل سابقا من قبل mah11 في 6/11/2015, 10:00 am عدل 1 مرات (السبب : تنسيق الموضوع كي يبدو في شكل لائق)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

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

رد: قرآء عدة سطور من ملف نصي

مُساهمة  ali1 في 5/6/2015, 8:20 pm

بــارك الله فـــــــــيك

ali1
مبرمج مجتهد

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

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

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


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