SRL Archive - SRL Archives

http://www.villavu.com/forum/showthread.php?t=35982

Close please~

function FindColorsArrayTolerance(var ResultTPA: T2DPointArray; var Colors: TIntegerArray; xs, ys, xe, ye, Tol: integer): Boolean;
var
  i: integer;
 
begin
  if Length(Colors) = 0 then Exit;
  for i := 0 to Length(Colors) - 1 do
  begin
    FindColorsTolerance(ResultTPA[i], Colors[i], xs, ys, xe, ye, Tol);
    if Length(ResultTPA[i]) = 0 then
      Result := False;
  end;
end;

Thats not working
A boolean will only result true once you set it to true!
It starts as false..
So I think you ment:

function FindColorsArrayTolerance(var ResultTPA: T2DPointArray; var Colors: TIntegerArray; xs, ys, xe, ye, Tol: integer): Boolean;
var
  i: integer;
 
begin
  if Length(Colors) = 0 then Exit;
  for i := 0 to Length(Colors) - 1 do
  begin
    FindColorsTolerance(ResultTPA[i], Colors[i], xs, ys, xe, ye, Tol);
    if not Length(ResultTPA[i]) = 0 then
      Result := True;
  end;
end;

And please…
Stop making all those treads of new functions;)
It is good that you contribute to the comminuty, but why don't you make 1 tread with all of them.. added in coloms:
Core
Misc
Etc;)

PvH

no pvh theres nowt wrong with them seperate thread titles and you dont have to double post and bump a dead thread when he release a new one

wd