Nach meinen kurzen Tests ist bei mir folgender Code noch schneller:
Delphi-Quellcode:
Function TImgProc.Min(map : Integer) : double;
var
x,y,line: Integer;
lsrc : TLayouer;
begin
Result := 99999999.9;
lsrc := fmap[map];
for y := 0 to FHeight-1 do
begin
line := FWidth*y;
for x := line to line+FWidth-1 do
begin
if(Result > lsrc[x]) then Result := lsrcp[x];
end;
end;
end;
Also, statt Pointeraddition ein Array. Matrizen sind dann wieder langsamer, da bei der Adressierung eine Multiplikation involviert ist.