Как из одного ListView передать значение в другой ListView1

← →
Officeman (2005-11-18 10:39) [0]

Как из одного ListView передать значение в другой ListView1

Надо из текущей позиции(колонка 28), передать значение в LIstView2
добавив при этом новую позицию.

ListView2.items.Add();

ListView2.Columns.Items[29].Caption:=ListView1.Selected.SubItems[28];

выдаётся ошибка. ошибка добавдения.

← →
SergGG (2005-11-18 12:30) [1]

Попробуй Это, у меня получается:
procedure TForm1.FormCreate(Sender: TObject); var i:integer; begin for i:=0 to 28 do begin ListView1.Items.Add.Caption:=FloatToStr(i); ListView2.Items.Add.Caption:=""; end; end; procedure TForm1.ListView1Click(Sender: TObject); begin ListView2.Items.Add.Caption:="0"; ListView2.Items.item[ListView2.Items.Count-1].Caption:= ListView1.Items.item[ListView1.itemindex].Caption; end;

← →
Officeman (2005-11-18 13:34) [2]

Спасибо.

← →
Officeman (2005-11-18 14:32) [3]

Так работает:

LVu.Items.Add(); LVu.Items.item[(LVu.Items.Count-1)].Caption:= LV.Items.item[LV.itemindex].Caption;

Но при этом БЕРЁТСЯ только Первый Столбец, как получить из других стоблоц???

НУжно ДАННЫЕ всех столбцов "одной позиции", из TListView "LV", перенести в LVu

А щас:

var i:integer; begin for i:=0 to 28 do begin ListView1.Items.Add.Caption:=FloatToStr(i); ListView1.Items.item[i].SubItems.Insert(0,"a"+FloatToStr(i)); ListView1.Items.item[i].SubItems.Insert(1,"b"+FloatToStr(i)); ListView2.Items.Add.Caption:=""; end; end; procedure TForm1.ListView1Click(Sender: TObject); begin ListView2.Items.Add(); ListView2.Items.item[ListView2.Items.Count-1].Caption:= ListView1.Items.item[ListView1.itemindex].Caption; ListView2.Items.item[ListView2.Items.Count-1].SubItems.Insert(0,ListView1.Items.item[ListView1.itemindex].SubItems.Strin gs[0]); ListView2.Items.item[ListView2.Items.Count-1].SubItems.Insert(1,ListView1.Items.item[ListView1.itemindex].SubItems.Strin gs[0]); end;

Как из одного ListView передать значение в другой ListView1 Найти похожие ветки