Ошибка в программе

@Mamora · Регистрация: 21.01.2020

Pascal

uses GraphABC, ABCButtons;
var a:array[1..18] of ButtonABC;
s,d:integer;
f:text;
begin
  while( s <> 1)do
    begin
  a[1]:=new ButtonABC(50,50,400,40,'~~~~~~~',clgreen);
  assign(f, 'Касса1.txt');
    reset(f);
    writeln(f, d);
      close(f);
      if d = 1 then s:=d
     end;
     a[1].Destroy;//уничтожим кнопку
     a[2]:=new ButtonABC(50,50,400,40,'~~~~~~',clRed); 
      a[3]:=new ButtonABC(50,150,400,40,'~~~~~~~',clRed);
       a[4]:=new ButtonABC(50,250,400,40,'~~~~~~',clRed);
end.

Пожалуйса,найди ошибку пишет ФАЙЛ НЕ ОТКРЫТ НА ЧТЕНИЕ

@Sun Serega · 16.02.2020, 22:40

1. Внимательно прочитайте ошибку:

Код

Program1.pas(4) : Ошибка времени выполнения: Файл не открыт на запись

Reset открывает файл на чтение, а вы пытаетесь при этом что то в этот файл писать.

2. Используйте автоформатирование (Ctrl+Shift+F).

@Sun Serega 2133 / 1277 / 482 Регистрация: 07.04.2017 Сообщений: 4,491
	16.02.2020, 22:40	2
	1. Внимательно прочитайте ошибку: Код Program1.pas(4) : Ошибка времени выполнения: Файл не открыт на запись `Reset` открывает файл на чтение, а вы пытаетесь при этом что то в этот файл писать. 2. Используйте автоформатирование (Ctrl+Shift+F). 0

Опции темы