Суть в чем, значит пишу программу для отображения 3ds моделей, при запуске указывает на ошибку
PB.noonpaint:= pbPaint;
вот вся процедура
procedure TVid1.VidModuleCreate(Sender: TObject);
begin
OpenDialog1.Filter:= '3DStudio files (*.3ds) 3da Files|*.3ds;*.3da|3DStudio files (*.3ds)|*.3ds|3da Files|*.3da';
JpegImage:= TJpegImage.Create;
PB:= OpenDialog1.FindComponent('PaintBox') as TPaintBox;
PB.noonpaint:= pbPaint;
PL:= OpenDialog1.FindComponent('PictureLabel') as TLabel;
end;
Pb объявлено как PB: TPaintBox;
после компиляции при запуске ехе-шника ругается Access violation at address xxxxx in module...
Подскажите пожалуйста че ему надо? в принципе прога работает, только ошибки надоедают. такие подозрения что при открытии файла недостаточно памяти для чтения/записи.
p.s. гугл ни хрена не рулит!
Раздел: Программирование, последний комментарий: 19.03.2012 17:03 Вопрос закрыт пользователем aleksachka25
Перепроверь код. Создай чистый проект, перенеси туда все куски кода и объекты, которые нужны тебе в этом фрагменте, и скомпилируй. Как правило, помогает.
Если не поможет - ищи, чего ты там дурного накодил )