was funktioniert nicht? kommt ein fehler?
desweiteren finde ich zu
Delphi-Quellcode:
If ( P^.rgbRed = z ) AND ( P^.rgbGreen = z ) AND ( P^.rgbBlue = z ) Then
Begin
nicht das schließende "End"
anstelle von
for z := 200 to 255 do
würde ich dir auch empfehlen einfach diese Anweisung
Delphi-Quellcode:
for z := 200 to 255 do
begin
If ( P^.rgbRed = z ) AND ( P^.rgbGreen = z ) AND ( P^.rgbBlue = z ) Then
abzuändern das sie so aussieht
Delphi-Quellcode:
if (P^.rgbRed >= 200) and (P^.rgbRed <= 255) and
(P^.rgbRed = P^.rgbGreen) and (P^.rgbRed = P^.rgbBlue) then
damit spaarst du dir die schleife und das "z" (wird dadurch schneller das ganze)