данные ListView

[nVz]

Добрый день!!! бьюсь уже час с одной вещью, не получается сделать. итак:
есть 2 ListView. lv1 и lv2. Сначала инфа (около 20 строк сразу) поступает в lv2.
сразу идет проверка, если в lv1 ничего нет, все данные lv2 добавляются в lv1.
с этим все нормально получается.

потом в lv2 опять поступают данные, в основном теже самые. но иногда пару строк новых бывает. и тогда нужна проверка, опять же из lv2 надо добавить те, которых нет в lv1 и тд. у кого какие идеи?

спасайте

[kettanaito]

var i:integer;
begin
for i:=0 to lv2.items.count-1 do 
begin
if Pos('Item',lv2.item[i])<>0 then Refresh else
begin
// Здесь выполняем действия если такого айтима еще нет в списке
lv2.items.add('Item');
end;
end;

Т.е. цикл по к-ству строк в lv2 и проверка нет ли добавляемой строки на данный момент уже в списке. Как вариант можно использовать Pos. Только перепиши цикл под твой метод добавления строк к TreeView и будет работать.

[nVz]

а разве не нужен еще цикл по lv1 ?? мне же надо сравнивать lv1.items[i].caption и lv2.items[i].caption

[kettanaito]

nVz, зачем? Даже если добавление идет как

for i:=0 to lv1.items.count-1 do 
lv2.items.add(lv1.items[i]);

Второй ListView все-равно будет сравнивать с уже имеющимися items в нем и теми, которые пытаешься добавить.

[nVz]

в моем случае добавление такое

with lv1.items.add do
begin
  caption := lv2.items[i].caption;
  subitems.add(lv2.items[i].Subitems[0]);
end;

не пойму что писать в pos'e вместе 'item'

[Stilet]

Я бы вот так делал:

var i:integer;b:Boolean;it:TListItem;s:string;
begin
s:='Новый элемент';
with lv2 do begin b:=false;
  for i:=0 to Items.count-1 do
   if Pos(s,items[i].Caption)<>0 then  begin b:=true; break; end;
  if not b then begin  it:=lv2.items.add;  it.Caption:=s;  end;
end;
end;

kettanaito

Ты не забывай проверять свой код. Он не скомпилится, по крайней мере в D6

[kettanaito]

Stilet, я не брался писать ТС готовый код, даю ему наброски из блокнота
Ответ Stilet верный:

procedure TForm1.AddItem(Item:TListItem);
var i:integer;b:Boolean;it:TListItem;
begin
with lv2 do begin b:=false;
  for i:=0 to Items.count-1 do
   if Pos(Item.Caption,items[i].Caption)<>0 then  begin b:=true; break; end;
  if not b then begin  it:=lv2.items.add;  it.Caption:=Item.Caption;  end;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
for i:=0 to lv1.items.count-1 do
AddItem(lv1.items[i]);
end;

[Stilet]

Ну на всякий случай предупреждай, ато есть в этом мире личности что сразу бросаются в бой и долго удивляются чего оно не работает, называя автора ненормативной лексикой )))

[kettanaito]

Stilet, спасибо, учту при следующем ответе.

[nVz]

Всем спасибо, разобрался!!!