Неправильно работает кнопка!
procedure TForm1.Button1Click(Sender: TObject);
begin assignfile(f,'qwerty); rewrite(f); write(f,'Ваш текст'); closefile(f); button1.free; end; Данная процедура вызывается нажатием кнопки.Все работает,только после нажатия на половине выполнении выскакивает ошибка ASSOCIATIVE ERROR.Как убрать ее? |
Ответ: Неправильно работает кнопка!
Во-первых, непонятно, зачем button1.free, и как вообще после этого кнопку можно повторно нажать, она же удаляется.
Во-вторых, ошибка может быть связана с попыткой повторного открытия уже открытого файла. |
Ответ: Неправильно работает кнопка!
Мне не нужно повторно нажимать кнопку.Мне наоборот нужно ее убрать дабы уберечь от повторного нажатия.Без] button1.free программа работает нормально файл создает и инфа в нем сохраняется.С buttion1.free ошибка вылезает после нажатия кнопки даже если приложение запущенно впервые и текстового файла еще нет.
|
Ответ: Неправильно работает кнопка!
У меня данный код никаких ошибок не вызывает, ошибка вероятно связана либо с системой, либо с доступом к файлам.
Но в любом случае, использовать здесь метод Free это изврат. Абсолютно достаточно и куда более корректно использовать свойство Enable. |
Ответ: Неправильно работает кнопка!
Цитата:
Цитата:
|
Ответ: Неправильно работает кнопка!
|
Часовой пояс GMT +4, время: 17:43. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot