Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> OnCloseQuery - нельзя работать с файлами?? плиз помогите 
:(
    Опции темы
Break
Дата 25.8.2006, 02:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.8.2006

Репутация: нет
Всего: нет
У меня в программе при OnCloseQuery запрашивается Выйти или нет, если да, то пишиться текстовый файлик. Так вот, вылетает ошибка File not found... Почему? ЧТо посоветуете?
PM MAIL   Вверх
Fedia
Дата 25.8.2006, 02:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13
Break, код обработчика OnCloseQuery приведи.


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Break
Дата 25.8.2006, 02:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.8.2006

Репутация: нет
Всего: нет
Код

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;

Что не так?

Это сообщение отредактировал(а) Break - 25.8.2006, 02:50
PM MAIL   Вверх
Fedia
Дата 25.8.2006, 03:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13
На какой строчке появляется ошибка ?
Полное или относительное имя файла содержит you.name.
Попробуй замени
Код

AssignFile(m,you.name+'.mem');
 на
Код

AssignFile(m, ExtractFilePath(ParamStr(0)) + 'test.mem');
 Если не будет работать, то ответь на 1-й вопрос.


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Break
Дата 25.8.2006, 03:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 3
Регистрация: 25.8.2006

Репутация: нет
Всего: нет
Цитата(Fedia @  25.8.2006,  03:03 Найти цитируемый пост)
На какой строчке появляется ошибка ?

На
Код

 Rewrite(m);

Цитата(Fedia @  25.8.2006,  03:03 Найти цитируемый пост)
Полное или относительное имя файла содержит you.name.

you.name содержит 'Test' - строчку
Заменил не помогло smile 
PM MAIL   Вверх
Fedia
Дата 25.8.2006, 04:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

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



--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Zlo
Дата 25.8.2006, 04:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 235
Регистрация: 18.9.2004

Репутация: 1
Всего: 1
Может поменять тип переменной m на 
Код

TStringList

?
PM MAIL   Вверх
Guedda
Дата 25.8.2006, 07:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Попробуй так:
Код

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


Это сообщение отредактировал(а) Guedda - 25.8.2006, 07:12


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Fedia
Дата 25.8.2006, 07:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

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

Это сообщение отредактировал(а) Fedia - 25.8.2006, 07:19


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Guedda
Дата 25.8.2006, 07:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
Fedia, Просто Assign + Rewrite + CloseFile срабатывает медленнее, чем Form1.CloseQuery +FForm1/Close + Form1.Destroy + Form1.Free;

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


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
Fedia
Дата 25.8.2006, 07:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13
Цитата(Guedda @  25.8.2006,  07:21 Найти цитируемый пост)
Fedia, Просто Assign + Rewrite + CloseFile срабатывает медленнее, чем Form1.CloseQuery +FForm1/Close + Form1.Destroy + Form1.Free;

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


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
Albinos_x
Дата 25.8.2006, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 26
Всего: 108
Цитата(Guedda @  25.8.2006,  07:21 Найти цитируемый пост)
Это я слышал, когда ещё изучал Delphi в универе,

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

Добавлено @ 10:36 
Цитата(Fedia @  25.8.2006,  07:25 Найти цитируемый пост)
Выполнение операций происходить должно по порядку. И из обработчика OnCloseQuery программа не выйдет, пока не запишет данные в файл и не закроет его.

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


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Fedia
Дата 25.8.2006, 12:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 465
Регистрация: 2.8.2006
Где: первым встречаю р ассвет

Репутация: 8
Всего: 13
Цитата(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;

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


--------------------
Накануне решающей битвы
Я иду, и надеждою зыбкой
Озаряется эта дорога,
Я мечтаю увидеть улыбку
На лице победившего Бога…
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0532 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.