TVCheckListbox und TStringList

[Delphi.Narium]

Zitat von Delphihilfe:

Mit Checked stellen Sie fest, ob eine Schaltfläche markiert ist.

Zitat von Delphihilfe:

State gibt für jedes Element im Array Items an, ob das entsprechende Kontrollkästchen aktiviert (cbChecked) oder deaktiviert (cbUnchecked) ist oder ob es grau dargestellt wird (cbGrayed).

State kombiniert die von der booleschen Eigenschaft Checked und der booleschen Eigenschaft ItemEnabled bereitgestellten Informationen:

Wenn für Checked der Wert true gilt, hat State den Wert cbChecked. (Wenn Checked jedoch false ist, kann State entweder den Wert cbUnchecked oder den Wert cbGrayed haben.)
Wenn State cbGrayed ist, hat ItemEnabled false. (ItemEnabled kann aber auch false sein, wenn State den Wert cbUnchecked oder cbChecked hat.)

Delphi-Quellcode:

var
  myCheckLst : TCheckListbox;
  myLst : String;
  myKat : Integer;
begin
  if Sender is TCheckListbox then begin
    myCheckLst := TCheckListbox(Sender);  
    myLst := myCheckLst.Name; // Wird das für irgendwas benötigt?
    // Bitte Luckies Kommentar dazu beachten und entsprechend umsetzen.
    if not assigned(myselection) then myselection := TStringList.create; // myselection.clear beim speichern
      myselection.Sort;
      myCheckLst.Sorted := True;
      for i := myCheckLst.Count - 1 downto 0 do begin
        if myCheckLst.Checked then begin
          if not (myselection.Find(myCheckLst.Items[i],myKat)) then myselection.Add(myCheckLst.Items[i]);
        end else begin
          // Wir suchen also in myselection die Zeichenfolge aus Items[i]
          if myselection.Find(myCheckLst.Items[i],myKat) then begin
            // und wenn wir die gefunden haben, löschen wir in myselection den Eintrag,
            // der die Position in myselection hat, die dem aktuell ausgewählten Eintrag aus myCheckLst entspricht?
            // Das ist dann so eine Art Zufallsgenerator, aber bestimmt nicht im Sinne des Erfinders.
            // myselection.Delete(myCheckLst.ItemIndex);
            // Könnte da nicht eher dashier zielführend sein, schließlich haben wir das ja gerade per Find ermittelt?
            myselection.Delete(myKat);
          end;
        end;
      end; 
    end;
  end else begin
    // Sinnvolle Fehlermeldung ausgeben, wenn das Ereignis für was anderes als 'ne TCheckListbox aufgerufen wird.
  end;
end;

[Rolf Frei]

Noch eine Ergänzung:

Wieso willst du diese Liste ständig aktuell halten, wenn du sie nur beim Speichern benötigst? Es würde doch reichen, die Liste jeweils komplett neu zu laden, also am Anfang ein Clear und dann eine simple for/next Schlaufe. Du machst dir da das Leben irgendwie viel zu umständlich. Es gibt keinen Grund die Liste zu bearbeiten. Das ganze würde wohl sogar um einiges schneller ablaufen, wenn du da keine Suchoperationen nutzen musst. Also mach doch einfach das oder gib soagr ein Resultat retour, das du dann 1:1 direkt in die DB schreiben kannst, ohne dass du beim Speichern noch die StringList verarbeten musst:

Delphi-Quellcode:

procedure TForm1.FillMySelection(const ACheckListbox: TCheckListbox);
var
  StrIdx: Integer;
begin
  if not Assigned(FMySelection) then
    FMySelection := TStringList.Create 
  else
    FMySelection.Clear;

  for i := 0 to ACheckListbox.Count-1 do
    if ACheckListbox.Checked[i] then
      FMySelection.Add(ACheckListbox.Items[i]);
end;

[Blackpit]

Zitat von Rolf Frei:

Noch eine Ergänzung:

Wieso willst du diese Liste ständig aktuell halten, wenn du sie nur beim Speichern benötigst? ...

Das liegt an den Gegebenheiten des Projektes aber das ist ein anderes Thema. Das DM wurde geändert und um die Funktionalität beizubehalten bin ich auf dese Lösung gekommen. Das Formular wird mit Berechtigungsabfragen in den Bearbeitungsmodus geschaltet, bis zum speichern können beliebig Veränderungen vorgenommen werden.
Deinen Gedanken hatte ich auch schon, das Problem ist, dass die Daten aus einer Abfrage auf 6 Listenfelder anhand von Ausprägungen verteilt werden. Ich möchte auch die Einträge in der Tabelle nicht bei jeder Änderung Löschen und neu anlegen sondern nur gelöschte entfernen und neue hinzufügen. Daher die Idee mit der aktualisierten Liste.

@Delphi.Narium & @Rolf Frei
Danke für das lösen meines Knotens und die Empfehlungen, auf sowas habe ich gehofft