Punkte auf Form wie bei Delphi zur Designzeit

[Matze]

Ja, stimmt, beim ersten Code wird x immer um 10 erhöht.
Beim letzteren Code wird x immer um eins erhöht und dann der 10. berechnet. :wall:

[Pseudemys Nelsoni]

aber wieso ist der code langsamer? ich versteh das nicht ganz, ist doch nur ne kleine rechnung dadrin

[Robert_G]

Mensch mädels, ist das denn soooo schwer? :wink:

Delphi-Quellcode:

Var
  X, Y                                  : Integer;
Begin
  For Y := 0 To (Height div 10) Do
    For X := 0 To (Width div 10) Do
      Canvas.Pixels[X * 10, Y * 10] := clBlack;

[Matze]

An Roberts Beispiel müsste das mit der Geschwindigkeit deutlich werden.

Es wird nur bis Height div 10 hochgezählt und nicht komplett bis Height. ;)

[himitsu]

Ist do klar, weil da 99-mal soviele Punkte wie nötig gezeichnet werden.
wenn den Fenster eine Größe von z.B. 100 x 200 Pixeln hat, denn wird der letzte Punkt (unten rechts) an der Position 1000 x 2000 (100*10 x 200x10) gezeichnet :zwinker:

Delphi-Quellcode:

for y := 0 to Height do 
  for x := 0 to Width do 
  begin 
    Canvas.Pixels[x * 10, y * 10] := clBlack; 
  end;

so wäre es besser:

Code:

for y := 0 to Height [color=red]div 10[/color] do 
  for x := 0 to Width [color=red]div 10[/color] do 
  begin 
    Canvas.Pixels[x * 10, y * 10] := clBlack; 
  end;

[Robert_G]

shotgun! :mrgreen:

[Pseudemys Nelsoni]

stimmt, der code von robert is einwandfrei, danke :)

ich muss ersmal genau checken wie der code funzt, solche rechnungen machen mich fertig.

@matthias: glückwunsch zum 2000 Beitrag :P

[Robert_G]

Rechnungen???
Das war 1 Minute tippen... :mrgreen:

[Pseudemys Nelsoni]

@himitsu: danke für die erklärung :)
@robert: das mit dem tippen glaub ich dir :mrgreen: aber erstmal auf die idee kommen das ganze so zu machen, auf sowas komme ich nie

[Matze]

[OT] Cool, thx, das war mein 2000. Beitrag, hab's gar nicht gemerkt. :hello: [/OT]

PS: Nicht Mathias, sondern Matthias. ;)