لطفا اساتيد پاسکال جواب بدن

**Dj.Bobo** · 12-07-2008, 14:11

با سلام خدمت دوستان و اساتيد محترم
من يه پروژ مربو به دفترچ تلن رو نوستم متاسفانه در قسمت اصلي برنامه با پيفام Error 2: File Not Found برخورد ميکنم. از اساتيد خواهش ميکنم هر چه زودتر منو راهنمايي کنند!
لازم به ذکر است که برنامه از چند تابع و پروسيجر تشکيل شده و قسمت MAIN شامل دستورات زير است:

{********************<< MAIN >>********************}
begin
textbackground (0);
clrscr;
items[1] := 'Insert';
items[2] := 'Delete';
items[3] := 'Edit';
items[4] := 'Search';
items[5] := 'Change Color';
items[6] := 'Exit';
comments [1] := 'Insert New Record.';
comments [2] := 'Delete Record.';
comments [3] := 'Edit Record.';
comments [4] := 'Search Record.';
comments [5] := 'Change Menu Color.';
comments [6] := 'Exit.';
pcolor := 5;
pbcolor:= 7;
phlcolor:= 2;
assign (f2,'Tel.bak');
if fsearch ('tel.bal',getenv ('c:\')) <> ' ' then
erase (f2);
assign (f,'Tel.dat');
if fsearch ('Tel.dat',getenv('c:\')) = ' ' then
rewrite (f);
rename (f,'Tel.bak');
assign (f,'Tel.dat');
rewrite (f);
rename (f2,'Tel.bak');
if fsearch ('Tel.bak',getenv('c:\')) = ' ' then
rewrite (f2)
else
reset (f2);
for i:=0 to filesize (f2)-1 do
begin
read (f2,info);
if info.deleted=false then
write (f,info);
end;
while true do
begin
case popup (25,10,pbcolor,1,items,comments,pcolor,phlcolor,1) of
1 : insert;
2 : delete;
3 : updating;
4 : searching;
5 : changecolor;
6,0 : break;
end;
end;
assign (f2,'Tel.bak');
if fsearch ('Tel.bak',getenv('c:\')) = ' ' then
erase (f2);
close (f);
textbackground (0);
clrscr;
end.