AssignFile не работает

[Манжосов Денис :)]

Пишо код:

var: f: file of char;
AssignFile(f, 'Input.txt');
Reset(f);

Файл Input.txt сделан уже и там есть текст, но программа выдаёт ошибку, что данный файл не существует. Процедура ExtractFilePath(Application.Exename )+'Input.txt' не работает тоже. Помогите. Заранее спасибо.

[SuperVisor]

Используй ParamStr(0) для получения полного пути файла.
Т.е.

var
  f: file of char;
begin
  AssignFile(f,extractFilePath(ParamStr(0))+'Input.txt');
  Reset(f);
...

[AlexanderPeshkov]

на будущее если не можешь понять по чему в таких ситуация вылазиет ошибка просто выведе сообщением тот путь который у тебя получатся и посмотри похож ли он на то что должно быть вот и все а процедуры всегда работают просто ими пользоваться надо уметь....