указать путь к файлу

[andreww]

подскажите пожалуйста, как правильно указывать путь к файлу.

вот кусок программы:
procedure M1(var M:array of string; var i:integer);
var
s,pr:string;
ff:text;
begin
writeln('Введите путь к файлу MENU.DAT');
readln(s);
assign(ff,s);
reset(ff);
i:=1;
while not eof(ff) do
begin
readln(ff,pr);
M[i]:=pr;
i:=i+1;
end;
i:=i-1;
writeln('Всего пунктов меню ',i);
close(ff);
end;

не могу разобраться что не так

[Sazary]

Ну, вроде, все так. А вы что вводите?
Нужно вводить имя файла (если он в директории с программой) или полный путь.

[andreww]

ну вот в том то и дело что все вроде бы так! выходит с exitcodом пробовал по разному путь вводить,менял место файла. мне все таки кажется что чето в коде напутано: пробовал сделать так

begin
assign(ff,'MENU.txt');
reset(ff);
i:=1;
все равно ошибка

[Sazary]

Сообщение от andreww

мне все таки кажется что чето в коде напутано

Код проверил. Все открывается и считывается.
Как вы запускаете программу? Через среду?
Попробуйте скомпилировать и запустить так.

[andreww]

ctrl f9. а как надо? через командную строку?

[Sazary]

Сообщение от andreww

ctrl f9. а как надо? через командную строку?

Да. Попробуйте запустить программу отдельно. Бывает такой глюк.

[andreww]

через командную строку не получается. а так exeшник запускаю, вроде работает ,но не вся программа.

[Sazary]

Сообщение от andreww

через командную строку не получается

Что значит "не получается"?

Сообщение от andreww

а так exeшник запускаю, вроде работает ,но не вся программа.

Но файл-то читается?

[andreww]

когда отдельно exe запускаю, а потом жму alt f5, то выдается ответ.
еще такой вопрос: почему она на этом останавливается?

[andreww]

program kurs;
uses crt, graph;
var
s:string;
M:array[1..10] of string;
i:integer;
ch:char;

procedure M1(var M:array of string; var i:integer);
var
s,pr:string;
ff:text;
begin
writeln('Введите путь к файлу MENU.DAT');
readln(s);
assign(ff,s);
reset(ff);
i:=1;
while not eof(ff) do
begin
readln(ff,pr);
M[i]:=pr;
i:=i+1;
end;
i:=i-1;
writeln('Всего пунктов меню ',i);
close(ff);
end;

procedure M2(M:array of string; i:integer);
var
n,x,y,j,gd,gm:integer;
a:real;
s:string;
begin
initgraph(gd,gm,'');
gd:=detect;
if graphresult <>grok then
halt(1);
cleardevice;
repeat
n:=0;
repeat
clearviewport;
settextstyle(1,0,1);
setcolor(4);
outtextxy(20,20,'VIXOD-ESC');
for j:=1 to i do
begin
setcolor(1);
rectangle(0,getmaxy-50*j, 200,getmaxy-50*(j-1));
settextstyle(4,0,2);
setcolor(2);
if length(M[j]) > 11 then M[j]:=copy(M[j],1,11);
outtextxy(10,getmaxy-50*j+10, M[j]);
end;
setcolor(4);
Line(210,655-n, 225,640-n);
Line(225,640-n, 225,670-n);
Line(225,670-n, 210,655-n);
Line(215,655-n, 225,645-n);
Line(215,655-n, 225,665-n);
Line(220,655-n, 225,655-n);
ch:=readkey;
if ch=#72 then n:=n+50;
if ch=#80 then n:=n-50;
if n=i*50 then n:=0;
if n=-50 then n:=(i-1)*50;
if ch=#27 then closegraph;
until ch=#13;
a:=n/50+1;
int(a);
str(a,s);
setcolor(5);
outtextxy(300,300, 'Funktsia nomer');
outtextxy(540,300,s[2]);
ch:=readkey;
until ch=#27;
closegraph;
end;

begin
clrscr;
M1(M,i);
M2(M,i);
end.

вот полный текст: программа формирует меню и работает с ним в графическом режиме. протестируйте пожалуйста!