[DELPHI 7] Kopiowanie zawartości ListView do drugiego Lis

Witajcie.

Mam taki problem. Jak skopiować zawartośc ListView-a składającego sie z 5 kolumn do drugiego identycznego ListView-a???????

Prosiłbym o jakiś prsty kodzik.

THX

moze:
ListView2.Items := ListView1.Items;---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

LKS napisał:
moze:
&gtListView2.Items := ListView1.Items;
&gt

Chyba

ListView2.Items.Assign(ListView1.Items);--Pawel {Delphi 6 Personal}

Po pierwsze: naciśnij F1

Dzięki działa to ale troche nie tak jakbym chciał.

Chciałbym żeby on zawartość ListView2 Dodawał na koniec ListView1, a nie podmieniał.

[glowa] [glowa] ;-( HELP ME

To może tak:

var
i:integer;

for i:=0 to listview1.items.count-1 do
listview2.items.add(listview1.items[i]);---------------------------
Delphi 6

Pozdrówka

niestety Wyskakuje błąd [Error] Unit1.pas(33): Too many actual parameters
przy listview2.items.add(TUTAJlistview1.items[i]);

Może jakaś inna propozycja.

Próbowałem takiego czegoś :

ListView1.Items := ListView1.Items + ListView2.Items;

Ale tez niepomogło.

Luki napisał:
niestety Wyskakuje błąd [Error] Unit1.pas(33): Too many actual parameters
przy listview2.items.add(TUTAJlistview1.items[i]);

Taki mały szczegół:
listview2.items.addItem(listview1.items[i]);--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

OK Teraz działa ale przenosi tylko Subitemy. Itemów czyli pierwszej kolumny nieprzenosi. Co z tym zrobić????

Luki napisał:
OK Teraz działa ale przenosi tylko Subitemy. Itemów czyli pierwszej kolumny nieprzenosi. Co z tym zrobić????

To wystarczy do skopiowania, o ile nie masz podczepionych obiektów do Itemów (zwykle nie ma)

procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
Element: TListItem;
begin
for i := 0 to ListView2.Items.Count-1 do
begin
Element := ListView1.Items.Add;
Element.Caption := ListView2.Items[i].Caption;
Element.SubItems.AddStrings(ListView2.Items[i].SubItems);
end;
end;
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

NIestety nie działa.
U mnie wywala się w linijce :

Element.Caption := ListView2.Items[i].Caption;

??????

Sorry działa.
Miałem mały błąd.

THX