آرایه در پاسكال

با سلام خدمت دوستان عزیز
دارم یه برنامه با زبان پاسکال می نویسم که به مشکل برخوردم
سوالم اینه که :
اگر بخواهیم یه آرایه ای از نوع رکورد را در یک فایل ذخیره کنیم و سپس بخوانیم از فایل باید به چه شکلی عمل کنیم
با تشکر (اگر میشود یه خورده زودتر برای پروژه آخر ترم میخوام ) شرمنده و باز هم تشکر

babi جان راستش خيلي وقته كه پاسكال كار نكردم و زياد يادم نيست وقت نداشتم كه برات برنامه رو بنويسم چون بايد 1-2 ساعتي ور مي رفتم تا يادم مي اومد ولي در عوض برنامه دفترچه تلفن اي رو كه 3 سال پيش نوشته بودم برات آپلود كردم اميدوارم به دردت بخوره . ( مي توني همين رو به عنوان پروژه خودت بدي).(توضيح اين كه اين دفترچه تلفن كه تحت پاسكال نوشته شده داري منو هم هست خودت نگاه كن مي فهمي.)
اين فايل اجراييش [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
اينم سورسش [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
به علت درخواست دوستان فایل پیوست شد ... ( هر 2 فایل داخل یک فایل rar شده قرار گرفت )

اينم يكي آسون تر :

کد:

---

type phone=record
      name:string[19];
      no:integer;
    end;
var x:array[1..30] of phone;
    y:phone;
    i:integer;
    fp:file of phone;
begin
  assign(fp,'sample.dat');
  rewrite(fp);
  for i:=1 to 30 do
    begin
    write('enter phone name: ');
    readln(x[i].no,x[i].name);
    write(fp,x[i]);
    end;
  reset(fp);
  for i:=1 to 30 do
  begin
    read(fp,y);
    writeln(y.no,y.name);
  end;
  close(fp);
end.

---

واقعا دستت درد نکنه .. اما یک مشکل :
The page cannot be displayed
این پیغام معروف را نشون میده !!! هم اجرایی برنامه و هم سورس

من همين الان هر دوتا لينك رو امتحان كردم درست هستن. يك بار ديگه امتحان كن.

آقا رضا واقعا لطف کردی .. خیلی تو کارها جلو افتادم .. (هر دوتا درست بودند)متشکرم

مرسي منم استفاده كردم

andia جان ورودتون رو تبريك مي گم.
قابلي نداشت.
ولي بهتره تاپيك هاي قديمي رو با يك پست تشكر و ... دوباره زنده نكني.

سلام

آقا يكي هم به من كمك كنه

من نتونستم سورس اين برنامه رو ببينم:41:

من مي خوامشششششششششششششششش:19:


همش همون جمله مشهوره رو مي ياره



كمككككككككككك


لطفاااااااااااااااااااااا ااا

دوستان لطفا تاپیک های قدیمی رو بی خودی بالا نکشید ... ( از طریق پیغام خصوصی می توانستید پیگیری کنید )
لینک ها سالم هستند ولی فایل رو پیوست کردم ...

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] جان در صورت صلاح دید پست های اضافی رو پاک کن ...
ممنون.