Widerwillige Spalte in einer ListView Kompo

[Daniel B]

Hallöle,

ListView.DeleteSelected; ist Dir hoffentlich schon in die Finger gekommen.

Hier ist mal ein Prozedur von mir, wie man den Inhalt im Array nachrutscht.

Du musst nur wissen, bevor Du was nachrutsch, welche Einträge Du gelöscht hast.

Delphi-Quellcode:

procedure TMainFormMC2004.ButtonKKLokLoeschenClick(Sender: TObject);
//Markierte einträge aus der Liste entfernen -> KK Lok
var
  i, n, t: integer;
begin
  if ListViewKKLok.SelCount = 1 then //Nur wenn ein Eintrag ausgewählt ist
  begin
    i := StrToInt(ListViewKKLok.Selected.SubItems[5]);
    for n := i +1 to MC2004.MenueInit.LokAnzahl -1 do //Array nachrücken
    begin
      MC2004.MenueInit.LokStamm[n -1] := MC2004.MenueInit.LokStamm[n];
    end;
    MC2004.MenueInit.LokAnzahl := MC2004.MenueInit.LokAnzahl -1; //Array kürzen
    for t := 0 to ListViewKKLok.Items.Count -1 do //Restliche Indexe -1
    begin
      if StrToInt(ListViewKKLok.Items.Item[t].SubItems[5]) > i then
      begin
        ListViewKKLok.Items.Item[t].SubItems[5] := IntToStr(StrToInt(
          ListViewKKLok.Items.Item[t].SubItems[5]) -1);
      end;
    end;
  end;
  LVLokFuellen;
  EditKKLokID.Clear;
  EditKKLokName.Clear;
  EditKKLokAdresse.Clear;
  EditKKLokTraeg.Clear;
  EditKKLokBeschl.Clear;
  EditKKLokVerzoeg.Clear;
  EditKKLokID.SetFocus;
  Check;
end;

Anschliessend musst Du nur noch den Inhalt des Arrays entweder neu in die LV eintragen, oder Du lässt es bleiben. Mit der Geschwindigkeit wirst Du da keine Probleme, behaupte ich jetzt einfach mal, also ich merke bei 200 Einträgen, jeder mit 6 SubItems überhaupt nichts.

Grüsse, Daniel