(решено) SIGSEGV do arrBitmap[b].Free; - что не так?

[zub]

>>Статическая проверка типа значения, присваиваемого элементу коллекции
Это конечно да, только для классов не так уж и нужно. ИМХО

[vitaly_l]

А вот гадать ассигн это или не ассигн не остается...

Это не assign - заменил его на отрисовку и всё равно вылетает, значит увы не assign .

В общем, работает только вариант Бородатого Пупсика, вот этот: FreeAndNil(arrBitmap[b])
Бородатое СПАСИБО и бородатый респект - бородатому Пупсику и всем кто принимал участие тоже спасибо, но не бородатое.

Итог: Проблема на 55% решена, про остальные 45% никому не рассказывайте!
Вот чего она ещё пишет, но мне это реально непонятно, даже с моим крохотным знанием asm:

[zub]

>>Проблема на 55% решена,
Это как подорожник подкладывать под йодную сетку при открытом переломе))
Хорошо что у тебя хобби - паскаль, а не медицина...

[vitaly_l]

Это как подорожник подкладывать под йодную сетку при открытом переломе))
Хорошо что у тебя хобби - паскаль, а не медицина...

Не так всё и страшно, в реальности - это Вы перегибаете. Я месяц держал эту строчку закомментированной и ничего страшного не было. Программа отключалась и снова включалась и так по 1000 раз в день и ничего. Просто, решил в итоге пробить и проверить, а ВДРУГ я неправильно делаю?

А сейчас - 100% можно быть уверенным, что память Free And Nill и если там что-то само без моего ведома чистит память (как Вы предположили), то метод Бородатого Пупсика - прекрасно выполняет оставшуюся задачу и присваивает переменным nil.

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

.

[MysticCoder]

Вангую, что проблема вернется чуть позже

[vitaly_l]

Нашёл, ещё одну странную зависимость...

В коде, на: FormCloseQuery, у меня появляется: messageDlg, который всплывает в случае наличия изменений и предлагает сохранить сделанную работу. Так вот, если запретить появление messageDlg, а значит и последующее появление OpenDialog, то память с arrBitmap[ b ].Free; - отчищается - без ошибки и программа закрывается - без сбоя.

В общем, всё пропало, виноват var MR : TModalResult;, который в FormCloseQuery...

[MysticCoder]

давай весь код, хорош в экстрасенсов играть

[vitaly_l]

давай весь код, хорош в экстрасенсов играть

Код: Выделить всё

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
var MR : TModalResult;
begin
  boModify := false; // блокирует появление диалога и тогда всё работает без сбоя. 
  try
    if boModify then begin
      MR := QuestionDlg('Вопрос', 'Сохранить изменения в проекте '+OpenDialog1.FileName+'?'+#13, mtConfirmation, [mrOK, 'Да', mrNo,'Нет', mrCancel,'Отмена'], 0);
      case MR of
        mrOK: if OpenDialog1.FileName <> ''
                then actSaveExecute(Self)
                else actSaveAsXMLExecute(Self);
        mrNo: CanClose := true;
        mrCancel: CanClose := false;
      end;
    end;
  except
    on e:exception do ShowMessage('Сбой при закрытии программы: '+#13+e.Message);
  end;

end;   

[MysticCoder]

-_-
весь код юнита. ты где то портишь память, и явно не в этих огрызках кода, что выдаешь.

[zub]

>>В общем, всё пропало, виноват var MR : TModalResult;, который в FormCloseQuery...
actSaveExecute или actSaveAsXMLExecute

>>Проблема гдето между FormCreate FormClose в голом виде всё ок.
Вижишь сколько всяких каках набирается в этом промежутке. Нужно учится отлаживать свои программы а не морочить людям головы

[vitaly_l]

весь код юнита. ты где то портишь память, и явно не в этих огрызках кода, что выдаешь.

Весь код, где я заполняю битмапы - приведён выше. Дело не в битмапах, а в MR : TModalResult;

actSaveExecute или actSaveAsXMLExecute

Абсолютно точно не они, вот я их закомментировал и всё равно сбой:

Код: Выделить всё

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
var MR : TModalResult;
begin
  // boModify := false;
  try
    if boModify then begin
      MR := QuestionDlg('Вопрос', 'Сохранить изменения в проекте '+OpenDialog1.FileName+'?'+#13, mtConfirmation, [mrOK, 'Да', mrNo,'Нет', mrCancel,'Отмена'], 0);
      case MR of
        mrOK: CanClose := true; //if OpenDialog1.FileName <> ''
                // then CanClose := true  // actSaveExecute(Self)
                // else CanClose := true; // actSaveAsXMLExecute(Self);
        mrNo: CanClose := true;
        mrCancel: CanClose := false;
      end;
    end;
  except
    on e:exception do ShowMessage('Сбой при закрытии программы: '+#13+e.Message);
  end;
end;  

Выполняется только вот этот код MR := QuestionDlg (итд) и выскакивает сбой, а если отключить, то всё чистится, как положено. Дело не в памяти, а в этом TModalResult ... Там видимо какой-то параллельный процесс запускается и успевает почистить память ?

Нужно учится отлаживать свои программы а не морочить людям головы

Я просто спросил, чтобы удостовериться - все ли мои действия верны.

[zub]

>>Дело не в памяти, а в этом TModalResult ...
Нда..

[vitaly_l]

>>Дело не в памяти, а в этом TModalResult ...
Нда..

Вот так всё работает - 100% без сбоя:

Код: Выделить всё

procedure TFormMain.FormCloseQuery(Sender: TObject; var CanClose: boolean);
//var MR : TModalResult;
begin
  // boModify := false;
  try
    if boModify then begin
      //MR := ;
      case QuestionDlg('Вопрос', 'Сохранить изменения в проекте '+OpenDialog1.FileName+'?'+#13, mtConfirmation, [mrOK, 'Да', mrNo,'Нет', mrCancel,'Отмена'], 0) of
        mrOK: if OpenDialog1.FileName <> ''
                then  actSaveExecute(Self)
                else   actSaveAsXMLExecute(Self);
        mrNo: CanClose := true;
        mrCancel: CanClose := false;
      end;
    end;
  except
    on e:exception do ShowMessage('Сбой при закрытии программы: '+#13+e.Message);
  end;
end;     

Я просто запретил создание: //var MR : TModalResult; и всё перестало сбоить <== Объяснить это художники не могут, может кто в курсе почему???

[MysticCoder]

Дело не в битмапах, а в MR : TModalResult;

конечно же в MR : TModalResult; , это же на первом курсе еще объясняется, что им пользоваться нельзя и что он придуман только для того, чтобы сбои вызывать.

Вангую, что проблема вернется чуть позже

Нашёл, ещё одну странную зависимость...

вот этих странных зависимостей еще кучу найдешь, пока корень проблемы не найдешь. т.к. при порче памяти в одном положении системы все работает, а при любом чихе все катится к чертям.

[vitaly_l]

вот этих странных зависимостей еще кучу найдешь, пока корень проблемы не найдешь. т.к. при порче памяти в одном положении системы все работает, а при любом чихе все катится к чертям.

У меня неправильное образование, в смысле у меня не было первого курса и сразу пришлось стать Великим и неповторимым магистром.
Как обнаружить порчу памяти???