Неправильно работает кнопка!
procedure TForm1.Button1Click(Sender: TObject);
begin
assignfile(f,'qwerty);
rewrite(f);
write(f,'Ваш текст');
closefile(f);
button1.free;
end;
Данная процедура вызывается нажатием кнопки.Все работает,только после нажатия на половине выполнении выскакивает ошибка ASSOCIATIVE ERROR.Как убрать ее?
__________________
P.S.: Если что я этого не говорил
|