[nestquik]

Как-то по короче можно переделать?

Код:

if PlayID=q then begin PlayID:=n; exit; end;
if (q<PlayID) and (PlayID<N) then begin Dec(PlayID); Exit; end;
if (q<PlayID) and (PlayID>N) then Exit;
if (q>PlayID) and (PlayID<N) then Exit;
if (q>PlayID) and (PlayID>N) then begin Inc(PlayID); Exit; end;
if (q>PlayID) and (PlayID=N) then begin Inc(PlayID); exit; end;
if (q<PlayID) and (PlayID=N) then begin Dec(PlayID); exit; end;

[Alegun]

А причём здесь смещение в LisiView, что-то здесь не то. Так логичнее

Код:

if  (q<=PlayID) then
 begin
  if  PlayID=q   then begin PlayID:=n; exit; end;
  if (PlayID<=N) then Dec(PlayID) else Exit;
 end else
  if (PlayID>=N) then Inc(PlayID) else Exit;

обрисуйте пжлст задачу, может есть более простое решение

[nestquik]

До этого был другой код, но я с ним разобрался. В итоге получил эти 7 строчек - условий смешения
В итоге сократил их до 5. Убрав

if (q<PlayID) and (PlayID>N) then Exit;
if (q>PlayID) and (PlayID<N) then Exit;

Вкратце дело обстоит так:
есть 5 TStringList, которые хранят данные, есть TListView для вывода этих списков.
В нем производится Drag&Drop, и нужно сохранять позицию "активного" элемента. Под активным я подразумеваю тот, что воспроизводится.