Zeile von ListView1 in ListView2 "Kopieren"

[Robert_G]

Ich würde den Code, zum Füllen der ListView aus der DB, etwas dynamischer gestalten. So wie er jetzt ist wird er bei Änderungen der Daten/Abfrage nicht mehr richtig funktionieren.
Vielleicht hilft dir das "SQL Ergebnis in einer Listview Komponente anzeigen?".
Das Kopieren des Items könnte so klappen (ungetestet nur drauf-los-getippt!)

Delphi-Quellcode:

Var
  SrcListItem :TListItem; //Hier weiß ich jetzt nicht, wie der Datentyp heißt...
Begin
  SrcListItem := nil;
  SrcListItem := Form14.LVSeaResult.ItemFocused;

  Assert(Assigned(SrcListItem),'LVSeaResult.ItemFokused is not assigned');

  With TargetListView.Items.Add Do //neues Item
  Begin
    Caption := SrcListItem.Caption; //übertrage Caption
    For i := 0 to pred(SrcListItem.SubItems.Count) Do //Kopiere alle SubItems
      SubItems.Add(SrcListItem.SubItems[i]);
  End;

End;