Witam.
Mam problem z pętlą bo chce skanować piksele 2 screenów (np moja rozdzielczość to 1920x1080) i długo to by trwało piksel po pikselu i chciałem robić przeskoki po 20 pikseli ale w pętli (for .. to .. do) nie mogę zrobić np X:=X+20; bo pisze FOR-Loop i nie wiem jak zrobić te przeskoki ?
0
0
x:=0;
while x<1920 do
begin
//jakieś operacje z wykorzystaniem x
Inc(x,20);
end;
0
Możesz zachować pętle for
for X := 0 to (Screen.Width - 1) div 20 do //Pętla 0 do Szerokość podzielić na 20
for Y := 0 to (Screen.Height - 1) div 20 do //Pętla 0 do Wysokośc podzielić na 20
begin
Col := Canvas.Pixels[X*20, Y * 20] //Zwraca kolor pixela w punkcie X*20, Y*20
cos z tym tam...
end;
W zmiennej Col, typu TColor Jest kolor tego pixela.
0
dzięki działa ;]
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.