Listview Zugriff auf Subitems

[marabu]

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