Bitmap einlesen und weiterverwenden

[neolithos]

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