Hi,
ehrlich gesagt, der Code hat mir auch nicht sehr gefallen - zu viele Statements. Hätte Borland nicht geschludert, könnte man einfach ListView1.CopySelection(ListView2) schreiben und fertig wäre die Laube.
Delphi-Quellcode:
procedure CopySelection(source, destination: TListView);
var
i: Integer;
begin
for i := 0 to source.Items.Count - 1 do
if source.Items[I].Selected then
destination.Items.Add.Assign(source.Items[i]);
end;
Und eines noch: Den Kampf gegen Copy&Paste-Mentalität kann man nicht gewinnen. Wer bereit gestellten Code übernimmt ohne ihn zu verstehen, der schadet sich als (angehender) Profi selbst. Für Amateure gelten eh ganz andere Regeln.
Freundliche Grüße