1. Ich will auf Buttonklick ein Bitmap einlesen.
--> sollte kein Problem sein
TBitmap.LoadFromFile
2. Ich will, und jetzt wirds kriminell, in einer Schleife
das ganze Bild absuchen nach einem Farbwert, meinentwegen Rot.
Delphi-Quellcode:
iCount := 0;
for y := 0
to bmp.Height - 1
do
for x := 0
to bmp.Width - 1
do
if bmp.Canvas.Pixels[x, y] =
rgb(??, ??, ??)
then
inc(iCount);
Wenn du es schnelle
haben willst beschäftige dich mit ScanLine