fast array search with delphi

[bernhard_LA]

der code kommt von : http://cardhouse.com/computer/vectcode.htm, ist uralt, vermutlich noch tp5.5

das problem liegt in der procedure :

Delphi-Quellcode:

procedure simplifyvector;

var
  m,m2: integer;

begin
  for m := 1 to Vnum do
    for m2 := m + 1 to Vnum do
      begin
        if equalvectors(m,m2) then
          removevectors(m,m2);
      end;

end;

bei einer bitmap mit 4000x4000 pixel und ggf. 1 mio black pixel( Vnun) dauert die procedure simplifyvector ~ 1e6 * 1e6 operationen ... gleichbedeutend mit einem blue screen .