Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.136.26.20] |
|
Сообщ.
#1
,
|
|
|
Проблема в том, что когда повторно запускаю процедуру,
Form1.ImageFoto.Canvas.MoveTo(X,Y); берет предыдущее последнее значение X и Y из массива, а мне надо чтобы массив был очищен Помогите пожалуйста очистить массив ..................................................................... procedure Scanner(VideoFoto:TBitmap); type memRGBTripleArray = ^TRGBTripleArray; TRGBTripleArray = ARRAY[0..32767] OF TRGBTriple; var X,Y: Integer; Row: memRGBTripleArray; Color: TColor; begin kolpovtor:=0; VideoFoto.PixelFormat := pf24bit; for Y := 0 to VideoFoto.Height - 1 do begin Row := VideoFoto.ScanLine[Y]; for X := 0 to VideoFoto.Width-1 do begin Color := RGB(Row[X].rgbtRed,Row[X].rgbtGreen,Row[X].rgbtBlue); if (Row[X].rgbtGreen > combomax)and((Row[X].rgbtGreen-comboraznica) > (Row[X].rgbtRed))and((Row[X].rgbtGreen-comboraznica) > (Row[X].rgbtBlue)) then begin Form1.ImageFoto.Canvas.MoveTo(X,Y); vtorx := X + 1; vtory := Y + 1; pervx := X; pervy := Y; pervmoveto:= 1; // РИСУЕМ ТРАЕКТОРИЮ Form1.ImageFoto.Canvas.Pen.Width := 3; Form1.ImageFoto.Canvas.Pen.Color := $00060654; Form1.ImageFoto.Canvas.LineTo(X,Y); ........... Exit; //ВЫХОД ИЗ ОБОИХ ЦИКЛОВ end; end; end; end; |
Сообщ.
#2
,
|
|
|
О каком массиве идёт речь? X и Y - локальные переменные, счётчики циклов.
|