[Erilar]

В Листбоксе список имен. Нужно задействовать три кнопки.

Первая: Удаляет выбранное имя.
Вторая: Выбранное имя перемещается на позицию вверх.
Третья: Выбранное имя перемещается на позицию вниз.

[Aristarh Dark]

Вверх:

Код:

var
  currentstring:string;
  ix:Integer;
begin
  if ProtocolList.Items.Count>0 then
    if ProtocolList.ItemIndex<>0 then
      begin
        ix:=ProtocolList.ItemIndex;
        currentstring:=ProtocolList.Items[ix];
        ProtocolList.Items.Delete(ix);
        Dec(ix);
        ProtocolList.Items.Insert(ix,currentstring);
        ProtocolList.ItemIndex:=ix;
      end;
end;

Вниз и удаление сам додумаешь.

[Erilar]

Сообщение от Aristarh Dark

Вниз и удаление сам додумаешь.

Удаление додумал, а вниз не могу.

[friz]

Так в коде от Aristarh Dark надо только одну строчку поменять....

[Erilar]

Сообщение от friz

Так в коде от Aristarh Dark надо только одну строчку поменять....

Какую строчку?

[friz]

Не надо лениться думать...
Dec(ix); ---> Inc(ix);

[Erilar]

Когда строчка опускается до конца, выходит ошибка. Как её устранить?

[ryderx34]

Код:

if ProtocolList.ItemIndex < ProtocolList.Count - 1 then

[Erilar]

Сообщение от ryderx34

Код:

if ProtocolList.ItemIndex < ProtocolList.Count - 1 then

Ошибка... "ProtocolList.Count - 1 "

[nixel]

Сообщение от Erilar

Ошибка... "ProtocolList.Count - 1 "

ProtocolList.Count - 1 в скобки возьми

[Erilar]

Сообщение от nixel

ProtocolList.Count - 1 в скобки возьми

.Count - такого даже нету.

[angvelem]

.Count - такого даже нету.

Не прав, можно использовать как
ProtocolList.Count
так
ProtocolList.Items.Count

[nixel]

Сообщение от angvelem

Не прав, можно использовать как
ProtocolList.Count
так
ProtocolList.Items.Count

Возможно в какой-то из версий Делфи слегка изменили этот компонент.