TListView Spalten vertauschen

[DeddyH]

Meine Gedanken von oben einmal in Code gefasst:

Delphi-Quellcode:

procedure TFormWuppdi.ButtonTauschClick(Sender: TObject);
var i: integer;
    tmp: string;
begin
  ListView1.Items.BeginUpdate;
  try
    tmp := ListView1.Columns[0].Caption;
    ListView1.Columns[0].Caption := ListView1.Columns[1].Caption;
    ListView1.Columns[1].Caption := tmp;
    for i := 0 to ListView1.Items.Count - 1 do
      begin
        tmp := ListView1.Items[i].Caption;
        ListView1.Items[i].Caption := ListView1.Items[i].SubItems[0];
        ListView1.Items[i].SubItems[0] := tmp;
      end;
  finally
    ListView1.Items.EndUpdate;
  end;
end;