Вниз
Скачать: CL | DM;

TListItems   Найти похожие ветки 

← →
Virtualik ©   (2001-12-17 16:09) [0]

Как обменять элементы в списке сабж?

Дело в том, что тривиальный вариант:
I := I1;
I1 := I2;
I2 := I
Не проходит.


← →
Digitman ©   (2001-12-17 16:11) [1]

В каком списке-то ? Список списку рознь. Или ты считаешь (судя по вопросу), что твой список - всем спискам список ?))))))


← →
Fellomena   (2001-12-17 17:13) [2]

Для ListBox1:

...
var
s: string;
...
begin
...
s:=ListBox1.Items[0];
ListBox1.Items[0]:=ListBox1.Items[1];
ListBox1.Items[1]:=s;
...
end;

Так устроит ?


← →
Virtualik ©   (2001-12-17 17:35) [3]

Повторяю: я про элементы из TListItems, те что используются в компоненте TListView, а не в TListBox.

Проблема в обмене объектов.


← →
MBo ©   (2001-12-17 17:57) [4]

проблема видимо, в соэдании промежуточного элемента.
штатный путь - Items.Add
так вроде работает
var l:tlistitem;
begin
l:=lv1.items.add;
l.Assign(lv1.items[0]);
lv1.items[0].assign(lv1.Items[1]);
lv1.items[1].assign(l);
lv1.Items.delete(lv1.items.count-1);





Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c
4-22502
Alexander
2001-11-06 11:00
2002.01.08
Как получить иконку для зарегистрированного расширения в системе


1-22007
creepster
2001-12-17 18:09
2002.01.08
screen saver


3-21935
hair
2001-12-03 15:12
2002.01.08
Хранение данных


1-22260
Alex_Sudakov
2001-12-17 15:28
2002.01.08
Подскажите, в D6 юнит DsgnIntf есть?


1-22176
Serg5
2001-12-20 14:57
2002.01.08
Опять проблема с текстом: вывожу на экран Image1.Canvas.TextOut, но под самим текстом белый беграунд. Можно ли если не убрать(просто наложить буквы), то хотя бы беграунд сделать чёрным.




   Наверх