Сортировка по возрастанию, Двумерный список Опции

[habi]

Вот код, работает, сортирует окна, по увеличению гипотенузы(расстояния от нижнего правого угла до верхнего левого экрана)
Но при повторном вызове Invalid floating point operation

процедура vivod лишь прорисовывает окна в одинарной рамке, а если конец списка, то в двойной.
Помогите исправить ошибку.

Рад буду услышать совет по оптимизации или другой алгоритм.

Сообщение отредактировано: habi - 28.05.2008 21:37

[volvo]

С чего бы?

  p := first;
  while p <> nil do begin

    with p^.info do begin
      Y1 := 24 - Y2;
      X1 := 1;
    end;
    Show(p^.info, p^.next = nil);
    p := p^.next;
  end;

сразу после SortList, и никаких старых координат, все сброшено в левый нижний угол... Сделаешь X1 := 1; Y1 := 1 - все будет в левом верхнем...