Anzahl der verschieden Farben eines Bitmap's auslesen

[SirThornberry]

ich glaub ich hab den Fehler im Ursprungsquelltext:

Delphi-Quellcode:

result := 0;
[...]
for i3:=0 to result do 
  if farbspeicher[i3+1]=farbe_aktuel then neuefarbe:=false;

wenn result noch 0 ist gehst du trotzdem deinen Farbspeicher von 0 bis 0 durch und schaust ob da die aktuelle Farbe drin ist. Das ist aber logicher weise falsch. Entweder du fängst i3 mit 1 an (würde ich bevorzugen) oder du ziehst von result 1 ab

Delphi-Quellcode:

result := 0;
[...]
for i3:=1 to result do 
  if farbspeicher[i3]=farbe_aktuel then
    neuefarbe:=false;