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;