Вниз
Скачать: CL | DM;

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

← →
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;  тут

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


← →
Джо ©   (2005-12-12 16:05) [5]


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

Bitmap1 := TBitmap.Create


← →
Zeqfreed ©   (2005-12-12 16:05) [6]

De1uxe ©   (12.12.05 16:00) [4]

> и в чем же

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

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

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c
14-1133039450
Алекскндр
2005-11-27 00:10
2005.12.25
Книги по Delphi - Посоветуйте


2-1133955788
_Lucifer_
2005-12-07 14:43
2005.12.25
Передача процедуры как параметра процедуры


14-1133376530
Fay
2005-11-30 21:48
2005.12.25
Прикольная прога для просмотра PDF. Сегодня нашёл.


14-1133622497
Piter
2005-12-03 18:08
2005.12.25
Ну блин, долбанный дос, долбанные программисты


2-1133955929
Вт
2005-12-07 14:45
2005.12.25
виртуальный диск




   Наверх