Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Pixel zeilenweise durchnummerieren ohne scanline (https://www.delphipraxis.net/172823-pixel-zeilenweise-durchnummerieren-ohne-scanline.html)

mabstudent 25. Jan 2013 14:13

AW: Pixel zeilenweise durchnummerieren ohne scanline
 
Danke! Dann ergeben sich ja automatisch die Parrungen so wie es sein soll und das wollte ich nicht glauben :wink:

Popov 25. Jan 2013 14:20

AW: Pixel zeilenweise durchnummerieren ohne scanline
 
Nur bedenke, der erste Pixel bei einer Bitmap ist die 0/0. Der letzte bei einer 100x100 Bitmap eben 99/99. Entweder du machst die Schleife 1 bis 100 und ziehst immer bei x und y eine 1 ab, oder du machst die Schleife von 0 bis 99 und addierst immer eine 1 dazu.

terence14 26. Jan 2013 08:32

AW: Pixel zeilenweise durchnummerieren ohne scanline
 
Zitat:

Zitat von mabstudent (Beitrag 1200597)
Habe da auch viel zu kompliziert gedacht, also es war schlichtweg das gemeint:

Code:
[..]

      for y := 1 to 100 do
        for x := 1 to 100 do
        begin
          Inc(k);
        end;
Ich brauchte die Nummerieung, um jedes "Primzahlpixel" des 100*100 Image rot zu machen, alle anderen gelb.
Es mussten also die Primzahlen von 1..10.000 gesucht werden.
Hab nicht gecheckt das das einfach inc(k) entspricht, weil ich nicht wusste wie die Schleife in der Schleife arbeitet.
Wird erst Schleife 1 komplett durchlaufen dann Schleife 2, oder einmal Schleife 1, einmal Schleife 2?

Und ich dachte, Du brauchst aus der x und y Position im Bild die
fortlaufende Nummer :)

MfG,
terence


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:12 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz