[vovey]

Ребят,спасибо!Но я вот не пойму,почему он строит треугольник через раз?Непонятно от куда,берет координаты!Линии не дорисовывает и т.п.
Ошибка тут как я понимаю,но где не могу найти,помогите!

Код:

m1[1].Y:= a[1].Y;
 m1[2].X:= a[1].X;
 m1[3].X:= a[1].X;
 for i:=1 to n do
 begin
  if (a[i].Y > m1[1].Y) then
  begin
   m1[1].Y := a[i].Y;
   m1[1].X := a[i].X;
  end;
  if (a[i].X > m1[2].X) then
  begin
   m1[2].X := a[i].X;
   m1[2].Y := a[i].Y;
  end;
  if (a[i].X < m1[3].X) then
  begin
   m1[3].X := a[i].X;
   m1[3].Y := a[i].Y;
  end;
 end;
 //вывестин на экран треугольник
 image1.Canvas.MoveTo(m1[1].X, m1[1].Y);
 image1.Canvas.LineTo(m1[2].X, m1[2].Y);
 image1.Canvas.LineTo(m1[3].X, m1[3].Y);
 image1.Canvas.LineTo(m1[1].X, m1[1].Y);

[NIch]

Слушай, vovey!
Ты хочешь, чтобы все за тебя сделали???
Код вполне рабочий и проверенный, но ты же не читаешь постов, тебе бы только программу кто то решил...

Линии не дорисовывает

почему он строит треугольник через раз

Я выше написал:

но есть небольшое исключение которое нужно обрабатывать...точка может быть и самой верхней и самой левой к примеру...

Это означает, что прога не построит треугольник, т.к. получится только линия...Создай проверку на это дело, и исключай такие варианты...
Или опять не сможешь???
Тогда добро пожаловать в работу...
ИМХО

Непонятно от куда,берет координаты!

Координаты беруться случайно в пределах картинки...