[Erilar]

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

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

[Aristarh Dark]

Вверх:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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]

Код:

1	if ProtocolList.ItemIndex < ProtocolList.Count - 1 then

[Erilar]

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

Код:

Ошибка... "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

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