Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > OnCloseQuery - нельзя работать с файлами??

Автор: Break 25.8.2006, 02:26

У меня в программе при OnCloseQuery запрашивается Выйти или нет, если да, то пишиться текстовый файлик. Так вот, вылетает ошибка File not found... Почему? ЧТо посоветуете?

Автор: Fedia 25.8.2006, 02:38

Break, код обработчика OnCloseQuery приведи.

Автор: Break 25.8.2006, 02:48

Код


procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if StartDialog('Quit','Really?') = 1 then
  begin
    PlayerDeath;
    CanClose := True;
  end else
    CanClose := False;
end;

В PlayerDeath вызывается процедура :

Код


procedure MakeMemorial;
var
  m : textfile;
begin
  AssignFile(m,you.name+'.mem');
  Rewrite(m);
  WriteLn(m,'Клинок Героя'+ver);
  CloseFile(m);
end;

Что не так?

Автор: Fedia 25.8.2006, 03:03

На какой строчке появляется ошибка ?
Полное или относительное имя файла содержит you.name.
Попробуй замени

Код


AssignFile(m,you.name+'.mem');

на

Код


AssignFile(m, ExtractFilePath(ParamStr(0)) + 'test.mem');

Если не будет работать, то ответь на 1-й вопрос.

Автор: Break 25.8.2006, 03:13

Цитата(Fedia @ 25.8.2006, 03:03

)

На какой строчке появляется ошибка ?

На

Код


 Rewrite(m);

Цитата(Fedia @ 25.8.2006, 03:03

)

Полное или относительное имя файла содержит you.name.

you.name содержит 'Test' - строчку
Заменил не помогло smile

Автор: Fedia 25.8.2006, 04:12

Теоретически все должно работать. А если поменять имя файла скажем на test1. Возможно файл test.mem в директории программы существует и нет доступа на его перезапись. Или вообще нет доступа на запись в эту директорию.
Попробуй еще так:

Код


AssignFile(m, 'C:\test.mem');

Автор: Zlo 25.8.2006, 04:43

Может поменять тип переменной m на

Код


TStringList

Автор: Guedda 25.8.2006, 07:11

Попробуй так:

Код


procedure MakeMemorial;
var
  SL : TStringList;
begin
  SL := TStringList.Create;
  SL.Add('Клинок героя' + ver);
  SL.SaveToFile(you.name + '.mem');
  SL.Free;
end;

Автор: Fedia 25.8.2006, 07:17

Guedda, интересно разобраться почему через AssignFile не работает. Ведь теоретически Break вроде все правильно делает. По крайней мере в приведенном коде.

Автор: Guedda 25.8.2006, 07:21

Fedia, Просто Assign + Rewrite + CloseFile срабатывает медленнее, чем Form1.CloseQuery +FForm1/Close + Form1.Destroy + Form1.Free;

Это я слышал, когда ещё изучал Delphi в универе, там что-то подобное было. Но, может быть, я не прав.

Автор: Fedia 25.8.2006, 07:25

Цитата(Guedda @ 25.8.2006, 07:21

)

Fedia, Просто Assign + Rewrite + CloseFile срабатывает медленнее, чем Form1.CloseQuery +FForm1/Close + Form1.Destroy + Form1.Free;

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

Автор: Albinos_x 25.8.2006, 10:34

Цитата(Guedda @ 25.8.2006, 07:21

)

Это я слышал, когда ещё изучал Delphi в универе,

приблизительно так и есть....

Добавлено @ 10:36

Цитата(Fedia @ 25.8.2006, 07:25

)

а ты поставь эксперимент.....
по крайней мере я как-то раз столкнулся с такой проблемой...

Автор: Fedia 25.8.2006, 12:03

Цитата(Albinos_x @ 25.8.2006, 10:34

)

а ты поставь эксперимент.....
по крайней мере я как-то раз столкнулся с такой проблемой...

Хех. Эксперементировал конечно smile

Хотя бы так:

Код


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  m : textfile;
begin
  AssignFile(m, 'test.mem');
  Rewrite(m);
  WriteLn(m,'12345');
  CloseFile(m);
  ShowMessage('1');
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ShowMessage('2');
end;

Если не доверять проверке по шагам.