Считывание текста из файла.

[semchik]

AssignFile(F, 'C:\shit\easy.txt');
AssignFile(O, 'C:\shit\Ответы1.txt');

обычно, вот так считывают.
Но у меня задача была создать тест, а если его переносить на другой компьютер, то соответственно директория измениться и файлы не будут читаться.
Суть вопроса, можно ли написать так, чтоб программа искала файлы из директории где находиться сам проект?
Или жду альтернативных решений проблемы.

[Человек_Борща]

а в чём пролема-то?

var
  myDir:string;
begin
myDir:=ExtractFilePath(ParamStr(0));
AssignFile(F, myDir+'easy.txt');
AssignFile(O, myDir+'Ответы1.txt');
end;

[semchik]

Извините, но у меня программа выдала ошибку.
Вот код программы до чтения файла.

s,op,MyDir:string;
 q1:array[1..5] of byte;
 otveti:array[1..5,1..4] of string;
 F,O:TextFile;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
  myDir:=ExtractFilePath(ParamStr(0));
  gg:=0;
   x:=0;
   c:=1;
  Timer1.Enabled:=true;
  Edit1.Visible:=false;
  panel2.Caption:='Выберете ответ';
  case ComboBox1.ItemIndex of
  0: begin
       AssignFile(F, MyDir+'easy.txt');
       AssignFile(O, MyDir+'Ответы1.txt');

[Человек_Борща]

А текст ошибки где?

[semchik]

она ошибку выдают не при запуске программы, а при выборе уровня сложности(ну у меня в тесте 3 уровня сложности..).

[semchik]

хм..я пересохранил ещё раз и теперь почему то не выдаёт ошибку)
Спасибо)