يك اروري كه من نتونستم دليلي اون رو پيدا كنم

[mohsenpj]

من در بستن و پاك كردن يك فايل دچار مشكل شدم بطوري كه دقيقا عين مثال كتاب جعفر نژاد عمل كردم ولي كامپيوتر ارور مي دهد شكل ارور در زير نشان داده شده است/
project project1.exe raised exception class EInOutErrorwith message 'I/O error 32' . process stopped.. use step or run to continue.

[mahsoft]

خوب چرا انقدر سر بسته

در چه برنامه ای در چه هنگامی خوب کمی توضیح بده تا مشکلت زودتر حل شه

[NoneForce]

سلام
ببينيد فايلتون مشغول نيست. يا توسط برنامه ديگري باز نشده.
در ضمن مگه هرچي تو كتاب نوشته بشه درسته؟!

[Admiral]

اگه کدی قسمتی که فایل رو پاک کردین بزارین و توضیحات بیشتری بدین زودتر به نتیجه میرسید !

[mohsenpj]

من فايل رو اوي مي بندم بعد erase ميكنم
توضيح:
يك فايل ساختم پر از لغت انگليسي.. حالا مي خواهم يك لغت جديد به اين فايل در ابتداي فايل اضافه كنم.. براي اين كار ميآيم و يك فايل ديگر به صورت موقت مي سازم و داده هاي فايل اول را در يك جايگاه جلوتر در فايل دوم ثبت مي كنم و به اين صورت يك ركورد خالي در ابتداي فايل جديد ايجاد مي شود و بقيه داده ها بعد از آن قرار مي گيرند... سپس بايد فايل اول را حذف كنم .. پس ابتدا آن را مي بندم و آن را حذف مي كنم... سپس فايل دوم را با فايل اول rename مي كنم...
البه در اول كه برنامه را نوشته بودم اين كار انجام مي شد .. ولي بعد در دستورات ديگر با فايل كه كار ميكردم و بعد عمليات بالا را مي خواستم روي آن اجرا كنم خطاي مربوطه را مي گرفت و من هم دليل آن را هر چه بررسي كردم نميدانم چيست ..
سورس قسمت مربوطه در ذيل آورده شده است:
procedure TForm1.Button4Click(Sender: TObject);
var temp:file of person;
rec1:integer;
begin
rec1:=0;
filename:='mohsen.dat';
AssignFile(temp,'temp.dat');
AssignFile(personalfile,filename);
reset(personalfile);
Rewrite(temp);
while not eof(personalfile)do
begin
seek(personalfile,rec1);
read(personalfile,personaldata);
seek(temp,rec1+1);
Write(temp,personaldata);
rec1:=rec1+1;
end;
CloseFile(personalfile);
Erase(personalfile);
CloseFile(temp);
Rename(temp,filename);
end;

[mohsenpj]

پس اگه ميشه بستن و پاك كردن فايل رو به روشي كه ميدونين بگين
مرسي