Определить количество точек

[Артур22]

здравствуйте! Помогите пожалуйста решить проблему. Нужно определеить количество черных точек (пикселей) на графическом рисунке. Какие команды для этого нужно. Здесь я попытался написать примерные коды:

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,r: real;
begin
image1.Picture.LoadFromFile('с:\tochka.jpeg');
x:=LOGPIXELSX;
y:=LOGPIXELSY;
z:=0;
for z:=0 to image1.Width do
for r:=0 to image1.Height do
if image1.Canvas.Pixels[z,r]=clblack then
 begin
   x:=z;
   y:=r;
  end;
end;
end.

и на сколько это будет точно при отсканнированном графическом рисунке

[Smitt&Wesson]

Участок
begin
x:=z;
y:=r;
end;
Присваивает x и y, координаты найденных точек, причём на следующем шаге итерации эти координаты заменяются новыми. Вам, как я понял, нужно подсчиталь количество точек. Тогда так:
x = x + 1;
На счёт точности - 100%.

[ArtGrek]

и на сколько это будет точно при отсканнированном графическом рисунке

все до пикселя, с таким же разрешением что зделали фото, если ты его не сжимал
создаи Jpg

uses ..., Jpeg;

var
  myJpg: TJpegImage;
begin
  myJpg: TJpegImage.Create;
  myJpg.LoadFromFail('C:\A.jpg');

а потом проидись по нему циклами
а если надо что б на Image видно было, то

Image1.Picture.BitMap.Draw(0,0,myJpg);
Image1.Stretch := True;

[Артур22]

Спасибо значение х=х+1; а значение y=y+1 будет так да, в общем счете сумма будет равно =x+y; тогда она будет расчитывать количество пикселей по вертикали и по горизонтали. И еще один вопрос как можно определять количество точек по отдельным секторам например клеткам из общего рисунка существуют ли для этого какие нибудь команды

[Smitt&Wesson]

Сообщение от Артур22

Спасибо значение х=х+1; а значение y=y+1 будет так да, в общем счете сумма будет равно =x+y; тогда она будет расчитывать количество пикселей по вертикали и по горизонтали.

Нет, в данном случае она будет высчитывать x * 2.

[ArtGrek]

Спасибо значение х=х+1; а значение y=y+1 будет так да, в общем счете сумма будет равно =x+y; тогда она будет расчитывать количество пикселей по вертикали и по горизонтали.

ни слова не понял

И еще один вопрос как можно определять количество точек по отдельным секторам например клеткам из общего рисунка существуют ли для этого какие нибудь команды

for z:=50 to 100 do
  for r:=30 to 150 do

работаеш с квадратом

50х30|---------|
        |          |
        |_______|100х150

[Sibedir]

Чет намудрено с x, y, z, r

image1.Picture.LoadFromFile('с:\toc hka.jpeg');
Count:=0;
for x:=0 to image1.Width do
  for y:=0 to image1.Height do
    if image1.Canvas.Pixels[x,y]=clblack then
      Count := Count + 1;

WARNING: Отсканированная картинка (или фотка) содержит мало пикселей clBlack. Даже если пиксел очень темный и похож на черный он может и не быть таковым.
(R=0, G=0, B=0) = clBlack
(R=1, G=1, B=1) <> clBlack, но визуально не отличим

[Артур22]

Вот написал но выводит такая ошибка на красно выделенном фрагменте([Error] Unit1.pas(42): For loop control variable must have ordinal type)

procedure TForm1.Button1Click(Sender: TObject);
begin
image1.Picture.LoadFromFile('C:\12.jpeg');
end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y,z,r: real;
begin
x:=LOGPIXELSX;
y:=LOGPIXELSY;
for z:=image1.Width downto 0 do 
for r:=0 to image1.Height do
if image1.Canvas.Pixels[z,r]=clblack then
begin
x:=z;
x:=r;
edit1.Text:=inttostr(x);
edit1.Text:=inttostr(y);
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[ArtGrek]

var x,y,z,r: real;

integer...

[Артур22]

Исправил но не показывает рисунок белое окно и возникает ошибка ([Hint] Unit1.pas(40): Value assigned to 'y' never used) ([Hint] Unit1.pas(39): Value assigned to 'x' never used)

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile('C:\12.bmp');
end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y,z,r: integer;
begin
x:=LOGPIXELSX;
y:=LOGPIXELSY;
for z:=image1.Width downto 0 do
for r:=0 to image1.Height do
if image1.Canvas.Pixels[z,r]=clblack then
begin
x:=z;
y:=r;
edit1.Text:=inttostr(x);
edit1.Text:=inttostr(y);
end;
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.