Где ошибка?

← →
De1uxe © (2005-12-12 15:34) [0]

Вот чего я набрал:
var bitmap1: tbitmap; i,q,x,y: integer; z,c:string; begin bitmap1.Create; bitmap1.LoadFromFile("c:\test1\1.bmp"); for i:=1 to bitmap1.Height do begin for q:=1 to bitmap1.Width do begin if getpixel(bitmap1.Handle, q,i)=0 then begin x:=q; y:=i; end; end; end; z:=intTostr(x); c:=intTostr(y); label1.Caption:=("Координата Х:"+z+" Координата Y:"+c) end;
но почему-то не работает. Кто подскажет почему? В указанной папке есть картинка 1.bmp на которой всего одна точка черного цвета.
при нажатии на кнопку он выдает ошибку типа:
project project.exe raised exception class EAccessViolation with message...

← →
Morgoth_ (2005-12-12 15:44) [1]

а не 0,0 координатф точки то?

← →
Джо © (2005-12-12 15:46) [2]

Быть беде... Зачем спамить-то? Или ты не читатель?

← →
Германн © (2005-12-12 15:57) [3]

> bitmap1.Create; тут

← →
De1uxe © (2005-12-12 16:00) [4]

> Германн © (12.12.05 15:57) [3]
>
>
> > bitmap1.Create; тут

и в чем же и как её испрасить?

> [4] De1uxe © (12.12.05 16:00)
>
> > Германн © (12.12.05 15:57) [3]
> >
> >
> > > bitmap1.Create; тут
>
> и в чем же и как её испрасить?

Bitmap1 := TBitmap.Create

De1uxe © (12.12.05 16:00) [4]

> и в чем же

В том, что этот код вызывает метод ещё не созданного экземпляра класса.

> и как её испрасить?

Создать этот экземпляр в памяти, для начала. Но после этого вызов метода Create() уже врядли потребуется.

Где ошибка? Найти похожие ветки