Тест-файл

[lalilulelo]

Всем привет. Такая проблема. Есть программа тестов созданная в Дельфи. Имеется файл(txt), в котором содержатся вопросы и ответы. Когда я открываю программу в Дельфи и затем запускаю её, все работает правильно. Когда же я запускаю ехе файл программы, то она не видит файл(txt). В чем проблема?

[uberchel]

Исходный код, покажите!

[lalilulelo]

http://file.qip.ru/file/89557389/127c20fd/_online.html

Исходники.

[uberchel]

Вот загрущик! просто киньте его в папку с тестером и все, запускайте через него!

[Neeter]

Приведу ваш кусок кода:

     if ParamCount = 0
     then begin
             Label5.caption:= 'Не задан файл вопросов теста.';
             Button1.caption:='Ok';
             Button1.tag:=2;
             Button1.Enabled:=TRUE
          end
     else begin
          fn := ParamStr(1);
          assignfile(f,fn);
          try
            reset(f);
          except
            on EFOpenError do
               begin
                    ShowMessage('Файл теста '+fn+' не найден.');
                    Button1.caption:='Ok';
                    Button1.tag:=2;
                    Button1.Enabled:=TRUE;
                    exit;
               end;
          end;

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

          fn := ExtractFilePath(ParamStr(0)) + 'PETERB.TXT';
          assignfile(f,fn);
          try
            reset(f);
          except
            on EFOpenError do
               begin
                    ShowMessage('Файл теста '+fn+' не найден.');
                    Button1.caption:='Ok';
                    Button1.tag:=2;
                    Button1.Enabled:=TRUE;
                    exit;
               end;
          end;

Но если вы не хотите изменять исходный код, то просто передавайте в параметре путь.