List view

[bulldog5293]

Если в модальную форму в Listview вносятся данные и хранятся в ней, то как копировать данные с первой колонки (всего их 3 колонки) в родительскую форму, её listview что бы они отображались так же в первой колонке

[bitSoft]

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

Если в модальную форму в Listview вносятся данные и хранятся в ней, то как копировать данные с первой колонки (всего их 3 колонки) в родительскую форму, её listview что бы они отображались так же в первой колонке

procedure CopyLVData;
var
 iCount : integer;
begin
{ModalForm...or Self}.ListView.Clear;
 for i := 0 to {ModalForm...}.ListView.Items.Count -1 do
  {FormMain...}.ListView.Items.Add.Caption := {ModalForm...or Self}.ListView.Items[iCount].Caption;
end;

Primerna tak

[bulldog5293]

Ввожу в модальную форму, но данные не переносятся в основное окно, может это связано с тем что я прописал там

begin
 ListView1.AddItem('ёшкаламышло', nil);
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('1');
//изменить текст можно так
//ListView1.Items.Item[0].SubItems[0]:='Другое название';;
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('2');
//изменить текст можно так
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('3');
//изменить текст можно так
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('4');
//изменить текст можно так
ListView1.Items.Item[ListView1.Items.Count-1].SubItems.Add('5');

Но на что изменить я пока не понял, не подскажите?
Или это связано с тем что я в обработчик OnData прописал

procedure TForm2.ListView1Data(Sender: TObject; Item: TListItem);
var
 i : integer;
 iCount : integer;
begin
Form5.lvClas.Clear;
 for i := 0 to Form5.lvClas.Items.Count -1 do
  Form5.lvClas.Items.Add.Caption := Form5.lvClas.Items[iCount].Caption;
end;

[Stilet]

Form5.lvClas.Items.Add.Caption := Form5.lvClas.Items[iCount].Caption;

Насколько я понял:

Form5.lvClas.Items.Add.SubItems.add();
Form5.lvClas.Items.Add.SubItems.add();
Form5.lvClas.Items.Add.SubItems.add(ListView1.Items[iCount].SubItems[2]);

[bulldog5293]

Ошибка попадает теперь на
Form5.lvClas.Items.Add.SubItems.add (i);
при раскладе
var
i : integer;
iCount : integer;
begin
Form5.lvClas.Clear;
for i := 0 to Form5.lvClas.Items.Count -1 do
Form5.lvClas.Items.Add.SubItems.add (i);
Form5.lvClas.Items.Add.SubItems.add (i);
Form5.lvClas.Items.Add.SubItems.add (ListView1.Items[iCount].SubItems[2]);
end;

[Stilet]

Form5.lvClas.Items.Add.SubItems.add (i);

Что ты этим хочешь сделать?
Метод Add принимает только строку
Может тебе нужно Form5.lvClas.Items.Add.SubItems.add (IntToStr(i));?

[bulldog5293]

Мне нужно что бы данные занесённые в listview модальной формы отображались в Listview обычной формы

[Stilet]

Это гораздо проще делается:
ListView2.Items.Assign(ListView1.It ems);

Здесь ListView2 - Лист куда помещаются данные из ListView1

[bulldog5293]

Stilet это уже более привлекательнее выглюдит, но куда на форму мне это поместить?

Ну подскажите кто нить как и куда этот код добавить, потому что у меня чуство что там ещё должно что то быть
ListView2.Items.Assign(ListView1.It ems);

[Stilet]

но куда на форму мне это поместить?

Ну... например в OnClose модальной формы.