|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск кол-ва фигур
Вылетает с ошибкой
Помогиет найти ее Код:
procedure TForm1.N11Click(Sender: TObject); var i,j : Integer; R1,G1,B1 : byte; R2,G2,B2 : byte; Porog : Double; Index : Integer; // ColorFig : array [1..100] of TColor32; begin Index:=1; // ColorFig[Index]:=Image321.Bitmap.PixelS[0,0]; for i:=0 to 1000 do for j:=0 to 1000 do ImageIndex[i,j]:=0; ImageIndex[0,0]:=Index; for i:=0 to Image321.Bitmap.Width-1 do for j:=0 to Image321.Bitmap.Height-1 do begin if SelectC(Image321.Bitmap.PixelS[i,j],Image321.Bitmap.PixelS[0,0],100) then ImageIndex[i,j]:=1 else begin if ImageIndex[i,j]=0 then begin Index:=Index+1; PixelsSearchRec(Image321.Bitmap,i,j,Index); end; end; end; ShowMessage('Кол-во фигур = '+IntToStr(Index)); end; |
#2
|
||||
|
||||
Ошибку красным выдели.
Работа пpогpаммиста и шамана имеет очень много общего: оба боpмочyт непонятные слова, совеpшают непонятные действия и не могyт объяснить, как оно pаботает. |
#3
|
|||
|
|||
|
#4
|
||||
|
||||
И как ты думаешь, можно что-либо определить по коду, который ссылается на другие, не приведённые процедуры, и использует неизвестные переменные?
Указанный рисунок можешь размножить и обклеить им стены. Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
|||
|
|||
Вот весь проект
http://db.tt/2tT39o7H Последний раз редактировалось MOJO, 13.01.2012 в 13:43. |
#6
|
||||
|
||||
Когда и при каких условиях происходит вылет? Мне повторить не удалось, всё работает стабильно.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |