1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

unit auswertung;

interface

uses graphics,windows; 
  
type tauswertung=class(tobject)

procedure start (canv:tcanvas);

end;

implementation

procedure tauswertung.start(canv:tcanvas);

var reihe:^trgbtriple;
x:integer;
y:integer;
r:integer;
g:integer;
b:integer;
nges:integer;
neinz:integer;
tol:integer;

begin
with canv do begin

neinz:=0;
for y:= 116 to 126 do   //anzahl reihen
  begin
    reihe:=Bitmap.ScanLine[y];                       //hier kommt die fehlermeldung object or class type required
    inc(reihe,104);  //x - startwert
    for x:=0 to 10 do //breit vom x - wert
      begin
        r:=reihe^.rgbtred;   //rotwert vom pointer    edit2.text:=inttostr(r);
        g:=reihe^.rgbtGreen; //grünwert vom pointer   edit3.Text:=inttostr(g);
        b:=reihe^.rgbtBlue;  //blauwert vom pointer  edit4.text:=inttostr(b);
        if (reihe^.rgbtRed<tol) and (reihe^.rgbtGreen<tol) and (reihe^.rgbtBlue<tol) then
          begin
            nges:=nges+1;     //schwarze punkte gesamt
            neinz:=neinz+1;   //schwarze punkte von einem Loch
          end;
        inc(reihe);          //immer die nächste reihe ansprechen
      end;
  end;
  edit5.text:=inttostr(nges);  //Anzahl schwarze Punkte ausgeben

    if (neinz<35) or (neinz>55) then     //loch zu groß oder zu klein
    begin
      for y:= 116 to 126 do   //anzahl reihen
        begin
          reihe:=image1.Picture.Bitmap.ScanLine[y];  //rgb werte aus den reihen auslesen
          inc(reihe,105);  //x - startwert
          for x:=0 to 10 do //breit vom x - wert
            begin
              r:=reihe^.rgbtred;   //rotwert vom pointer    edit2.text:=inttostr(r);
              g:=reihe^.rgbtGreen; //grünwert vom pointer   edit3.Text:=inttostr(g);
              b:=reihe^.rgbtBlue;  //blauwert vom pointer  edit4.text:=inttostr(b);
              if (reihe^.rgbtRed<tol) and (reihe^.rgbtGreen<tol) and (reihe^.rgbtBlue<tol) then
                begin
                  reihe^.rgbtred:=255;  //Das dunkle Pixel rot einfärben
                  reihe^.rgbtgreen:=0;
                  reihe^.rgbtblue:=0;
                end;
            inc(reihe);          //immer die nächste reihe ansprechen
            end;
        image1.Repaint;          //neu zeichnen
        end;
    end;



end;
end;
end.					

1:
2:
3:
4:
5:

implementation

procedure tauswertung.start(canv:tcanvas);

var reihe:^trgbtriple;					

1:
2:
3:
4:
5:

type TAuswertung = class(TBitmap)
public
  x1: integer;
  y1: integer;
end;