Форум по Delphi программированию - Показать сообщение отдельно - Смещение элемента после Drag&Drop (ListView) / Delphi

nestquik · #1 08.03.2014, 14:29

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

Код:

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;