Forum: Object-Pascal / Delphi-Language
Delphi
by Jan,
17. Jul 2005
Das ist so nicht richtig. das ganze ist aus 2 Gründen theoretisch schneller.
1. Du checkst für JEDEN Pixel im bild ob er kleiner als das bisherige minimum ist und ob er größer ist als das bisherige maximum.
Das ganze habe ich verkürz, indem ich einfach nur den vergleich auf unterschied mache.
undzwar einmal von unten, und den ersten Wert der unterschiedlich ist auf Minimum setze. Danach wird...
Forum: Object-Pascal / Delphi-Language
Delphi
by Jan,
16. Jul 2005
Nicht nur, das was vorher erwähnt wurde kannst du verbessern, sondern auch deinen Algo, der meiner Meinung nach ziemlich viel unnütze Berechnung anstellt.
var
c : TCanvas;
r,r2 : TRect;
Bild,Bild2,bild3 : TBitmap;
x,y,x_min,y_min,x_max,y_max:integer;
begin
x_min:=9999999;