For Schleife

[Linguini]

@Muetze1

Seltsam, mein Code scheint aber zu funktionieren.
Mit:

Delphi-Quellcode:

for B := 1 to 531 do
  for E := H to 312 do
  begin
  if not (Image1.Canvas.Pixels[B,H]=clWhite) then  belegt:=belegt+1;

  end;

Damit liefert er mir korrekte Ergebnisse wieviele Pixel nicht Weiß sind.

@Topic

Also mir ist geholfen. Vielen Dank