Дано: Черный рисунок 300х100 пикселей, по которому произвольно расставлены 4 белых точки(по 1px). Задача в следующем: определить и вывести местоположение каждой точки. Кто поможет - буду признателен.
где 255 - цвет точки которых ты ищеш. P.S. Не проверял, так как нет под рукой Delphi. Но принцып должен быть такой.
Решил пример так: Code: if (Form1.Image1.Canvas.Pixels [i,j] = $00FFFFFF) then Begin Form1.StringGrid1.Cells[0,Form1.StringGrid1.RowCount-1] := IntToStr (i); Form1.StringGrid1.Cells[1,Form1.StringGrid1.RowCount-1] := IntToStr (j); Form1.StringGrid1.RowCount := Form1.StringGrid1.RowCount + 1; End; заменил 255 на $00FFFFFF и получилось, сенкс. Всем, кто учавствовал ставлю +2 -- что могу.