[Pascal Error] Unit1.pas(101): E2008 Incompatible types

[Rin]

в заголовке проблема описана ясно. Но не понятно , почему он ругается?

procedure TForm1.zapolnenie(var Line:array of TPoint;
 A1,A2:TPoint;var N_N:Integer);
var dx,dy,x,y:integer;
begin
  i:=0;
  dx:=A2.x-A1.x;   dy:=A2.y-A1.y;
  if dx<0 then x:=dx*(-1) else x:=dx;
  if dy<0 then y:=dy*(-1) else y:=dy;
  if x>=y then
  begin
    if A1.x>A2.x then swapP(A1,A2);
    N_N:=A2.x-A1.x;
    setLength(Line,byte(N_N));
    for x:=A1.x to A2.x do
    begin
      Line[i].x:=x;
      Line[i].y:=round((x-A1.x)*dy/dx)+A1.y;
      i:=i+1;
    end;
  end
  else
  begin
    if A1.y>A2.y then swapP(A1,A2);
    N_N:=A2.y-A1.y;
    setLength(Line,byte(N_N)); 
    for y:=A1.y to A2.y do
    begin
      Line[i].y:=y;
      Line[i].x:=round((y-A1.y)*dx/dy)+A1.x;
      i:=i+1;
    end;
  end;
end;

выкладываю вложение, т.к. объяснять долго.

[Андрей 93]

Функция byte вроде возвращает не integer тип. Наверное, надо использовать round(byte(N_N))

[Stilet]

setLength(Line,byte(N_N));

Фух... Зачем так напрягаться? Если хочешь отсечь отрицательные то расслабся - если N_N будет отрицательным эта процедура просто сделает массив пустым

[Rin]

Stilet, я бы не стал напягаться, если бы не одно но - пишу setLength(Line,N_N) и он мне ту же ошибку выдаёт.
а функция setlength имеет такие параметры(S:shortStr;n:byte). Разницы нет, если напишу просто N_N или byte(N_N). Integer и Byte - это целочисленный тип. Если выражаться математически , то множество byte входит в множество Integer, поэтому ошибки быть не должно. в этой программе я использую ешё один вызов setLength с такими же типами переменных и он нормально работает. А в этой процедуре , которая описана выше, косяк какой то???

[Stilet]

Эта процедура не любит работать с массивами-параметрами. Ей чистую переменку подавай, посему рекомендую описать особый тип

  type
  TLine=array of TPoint;
...
  trey = record
  ab,ac,bc:tline;

Который потом буш применять:

procedure TForm1.zapolnenie(var Line:TLine;
 A1,A2:TPoint;var N_N:Integer);
var dx,dy,x,y:integer; 
begin
...
    setLength(Line,1);

И так везде.
Смысл ясен?

[Rin]

смысл ясен=) thank`s!