ошибка access violation at 0x006202df: read of address 0x00000000'

[MixanMM]

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

[MixanMM]

поменял вот это:

procedure zapr (n1:string; Button:TButton; data:Tlabel; ost:Tlabel); //процедура обновления кнопок
begin
  Form1.ADOQuery4.Active :=False;
  Form1.ADOQuery4.SQL.Clear;
  Form1.ADOQuery4.SQL.Add('SELECT ostatki.[imya] FROM ostatki WHERE kran='+n1);
  Form1.ADOQuery4.Active:=True;
  if Form1.ADOQuery4.RecordCount > 0 then
    begin
     Button.Enabled :=true;
     Button.Caption:= Form1.ADOQuery1.Fields[0].AsString;
     Form1.ADOQuery4.Active :=False;
     Form1.ADOQuery4.SQL.Clear;
     Form1.ADOQuery4.SQL.Add('SELECT ostatki.[otkr] FROM ostatki WHERE kran='+n1);
     Form1.ADOQuery4.Active:=True;
     data.Caption:= Form1.ADOQuery1.Fields[0].AsString;
     Form1.ADOQuery4.Active :=False;
     Form1.ADOQuery4.SQL.Clear;
     Form1.ADOQuery4.SQL.Add('SELECT ostatki.[v_tare] FROM ostatki WHERE kran='+n1);
     Form1.ADOQuery4.Active:=True;
     ost.Caption:= Form1.ADOQuery1.Fields[0].AsString;
    end
 else
  begin
  Button.Enabled:=false;
  end;
end;

на вот это :

procedure zapr (n1:string; Button:TButton; data:Tlabel; ost:Tlabel); //процедура обновления кнопок
begin
  Form1.ADOQuery4.SQL.Clear;
  Form1.ADOQuery4.SQL.Add('SELECT ostatki.[imya] FROM ostatki WHERE kran='+n1);
  Form1.ADOQuery4.ExecSQL;
  if Form1.ADOQuery4.RecordCount > 0 then
    begin
     Button.Enabled :=true;
     Button.Caption:= Form1.ADOQuery1.Fields[0].AsString;
     Form1.ADOQuery4.SQL.Clear;
     Form1.ADOQuery4.SQL.Add('SELECT ostatki.[otkr] FROM ostatki WHERE kran='+n1);
     Form1.ADOQuery4.ExecSQL;
     data.Caption:= Form1.ADOQuery1.Fields[0].AsString;
     Form1.ADOQuery4.SQL.Clear;
     Form1.ADOQuery4.SQL.Add('SELECT ostatki.[v_tare] FROM ostatki WHERE kran='+n1);
     Form1.ADOQuery4.ExecSQL;
     ost.Caption:= Form1.ADOQuery1.Fields[0].AsString;
    end
 else
  begin
  Button.Enabled:=false;
  end;
end;

ругается на закрытый DataSetFirst : "chance exception at $756F812F. Exception class EDatabaseError with message 'ADOQuery4: Cannot perform this operation on a closed dataset'. Process Project1.exe (4184)"

[Аватар]

А чего ему быть открытому если он ни раз не открыт? В сообщении об ошибке ровно об этом и сказано

[MixanMM]

Сообщение от Аватар

А чего ему быть открытому если он ни раз не открыт? В сообщении об ошибке ровно об этом и сказано

да он отрабатывался, пока я события для 10ти кнопок не описал, но откатился назад и все заработало, но бага странная из неоткуда - прям как фантомас

[Аватар]

да он отрабатывался

Показанный код не мог выполниться. ExecSQL не делает активным ADOQuery, что означает любая попытка выполнить метод или обратиться к свойству предполагающему, что он открыт подымет исключение. Например обращение к RecordCount. Активным делает удачное выполнение метода Open или присвоение True свойству Active