Указание пути к файлам,имена файлов

[GrindeX]

Разбираясь в теме файлов возникли вопросы:
1)Введя с клавиатуры например C:\Jo\3.txt как сделать чтобы в команде Assign(f,'ПУТЬ'); вместо слова 'ПУТЬ' вставлялся текст введенный с клавиатуры?т.е. можно было бы самому указывать путь к файлу во время работы программы.
2)Тоже самое что и в первом вопросе, только с командой Chdir
3)В команде FindFirst как указать имя файла?Например i:=237;
Как сделать чтобы он искал файлы ?237.* т.е вместо знака вопроса 1 любой символ, вместо звездочки любое разрешение.Я пробовал делать что-то типа FindFirst('?',i'.*',AnyFile,DirInfo ); но не получается.
Заранее благодарен за ответы.

[StudeHt]

1)Введя с клавиатуры например C:\Jo\3.txt как сделать чтобы в команде Assign(f,'ПУТЬ'); вместо слова 'ПУТЬ' вставлялся текст введенный с клавиатуры?т.е. можно было бы самому указывать путь к файлу во время работы программы.

Можно вот так:

write('Введите имя входного файла ');
readln(NameFile);
assign(f,NameFile);
reset(f);

[GrindeX]

^Спс,теперь и со 2 вопросом все понятно.Остался 3-й

[Serge_Bliznykov]

так?

var s : string;
....
  str(i,s);
  FindFirst('?'+s+'.*',AnyFile,DirInfo); 
  while ( DosError = 0 ) do begin
...

[GrindeX]

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

так?

Да, спасибо всем за помощь

[andreww]

по этой же теме.подскажите почему программа не работает?написана вроде без ошибок:

program kursowaja;
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.

а задача такая была:
Написать функцию формирования и функцию работы с меню (в графическом режиме). Пункты меню должны храниться в файле MENU.DAT. Функция формирования читает пункты меню из файла и заносит их в массив. Необходимо запомнить количество пунктов меню. Вторая функция обеспечивает вывод на экран и перемещение по меню с помощью клавиш «» и «». Нажатие клавиши ENTER завершает работу функции (но не программы, выход из программы вы¬пол¬няется только при нажатии ESC). При этом в главную функцию возвращается номер выбранного пункта. Написать программу, демонстрирующую применение данных функций