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

[habi]

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

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

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

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

[habi]

Спасибо, не смог разобраться , как обращаться и записывать в инфотип

procedure MoveToLeft;
var p:wind;
r:infotype;
begin
  p:=first;
  r:=p^.info;
	while p<>nil do
          begin
            with R do begin
             X1 := 1;
             X2 := X2;
             Y2 := Y2;
             Y1 := 24 - Y2;
             end;
             tek:=tek^.next;
          end;
  if klav<>#0 then vivod;
end;

Как понятно из кода, нужно окна в нижний левый угол вогнать.

[upd]сдам курсовую и переделаю старый вариант =) потомучто за 1 ночь не верну все нужные функции.алгоритм обращения к инфотипу не понял

Сообщение отредактировано: habi - 29.05.2008 0:13