TVCheckListbox und TStringList

[Blackpit]

Hallo,
ich bin mit Delphi erst seit 8 Monaten am arbeiten, deshalb verzeiht meine Unwissenheit ;)
Folgende Fragen:
Was ist der Unterschied bei der TVCheckListbox zwischen

Delphi-Quellcode:

.Checked[i]

und

Delphi-Quellcode:

.State[i] = cbChecked

Wieso bringt mir

Delphi-Quellcode:

myselection.Find(TCheckListbox(Sender).Items[i],myKat)

keinen Wert im Debuger?
Wobei myselection eine interne Stringlist ist und der Event OnClickCheck einer Checklistbox im Form ausgelöst wurde.
Meine Intention ist, aus einer Checklistbox in einem Formular die markierten Einträge in einer internen Stringlist zu sammeln um sie anschließend in der DB zu speichern bzw.zu löschen.
Irgendwie gelingt mir das nicht, die Liste aktuell zu halten hier mein Versuch:

Delphi-Quellcode:

    begin
        myLst:= TCheckListbox(Sender).Name;
       if not assigned(myselection) then myselection := TStringList.create;  //myselection.clear beim speichern
        begin
        myselection.Sort;
        TCheckListbox(Sender).Sorted := True;
          for i := TCheckListbox(Sender).Count-1 downto 0   do
//          if TCheckListbox(Sender).Checked[i] then
          if TCheckListbox(Sender).State[i] = cbChecked then
            begin
              if not (myselection.Find(TCheckListbox(Sender).Items[i],myKat)) then myselection.Add(TCheckListbox(Sender).Items[i]);
            end
            else
            if (myselection.Find(TCheckListbox(Sender).Items[i],myKat)) and (TCheckListbox(Sender).State[i] = cbUnChecked) then
                  myselection.Delete(TCheckListbox(Sender).ItemIndex);
        end;
    end;

Was mach ich falsch?

[Luckie]

Hat jetzt nichts direkt mit deinem Problem zu tun, aber ein paar Tipps zu deinem Code.

Das Erstellen der StringList innerhalb der Prozedur ist ungünstig, denn wo woird sie wieder frei gegeben? Ich fürchte, es ist eine globale Variable. Nicht schön. Erstelle die StringList in der aufrufenden Prozedure, über gib sie als Parameter und gib sie in der aufrufenden Prozedure wieder frei.

Warum arbeitest du mit dem Objekt Sender? Deine Routine sollte in einer Procedure liegen, die nichts mit den Steuerelementen zu tun hat:

Delphi-Quellcode:

Procedure DeleteCheckedItems(ChecklistBox: TVCheckListbox; MySelection: TStringList);
begin
  ...;
  ...;
end;

Das hilft auch bei der Fehlersuche.

Setz mal einen Haltepunkt mit F5 bei der ersten Anweisung und dann geh mal mit F7 Schritt für Schritt durch den Code. Springt er überhaupt in die Verzweiung?

[Blackpit]

Zitat:

Zitat von Luckie (Beitrag 1436183)

...
Warum arbeitest du mit dem Objekt Sender?...

Dachte es erklärt zu haben, ich will im OnClickCheck-Event der Checkbox das selektierte Objekt in eine interne Liste schreiben, deselektierte sollen wieder entfernt werden.
Am Ende wird beim speichern die Liste wieder freigegeben.
Meine Fragen wurden leider noch nicht beantwortet.

Gruß BP

[Luckie]

Hast du es denn inzwischen mal debuggt, wie beschrieben?

Ich würde dazu eine separate Schaltfläche benutzen. Das wird den Benutzer wohl auch weniger verwirren, nichts passiert während er noch mit der Listbox zu Gange ist.

[Blackpit]

Zitat:

Zitat von Luckie (Beitrag 1436192)

Hast du es denn inzwischen mal debuggt, wie beschrieben?
...

Deshalb ja meine Fragen.
Ich werd beim debuggen nicht schlau.
Und ja, ich habe früher in anderen Umgebungen schon entwickelt.
Ist mein Vorgehen in einer OO-Architektur so absonderlich?

P.S.: Bin ich vielleicht in der falschen Ecke? Dann bitte verschieben.

[Luckie]

Warum wirst du beim debuggen nicht schlau? Wurde der Code denn nach deinen Vorstellungen ausgeführt?

[DP-Maintenance]

Dieses Thema wurde am "06. Jul 2019, 22:18 Uhr" von "Luckie" aus dem Forum "Programmieren allgemein" in das Forum "GUI-Design mit VCL / FireMonkey / Common Controls" verschoben.

[Blackpit]

Zitat:

Zitat von Blackpit (Beitrag 1436182)

...Wieso bringt mir

Delphi-Quellcode:

myselection.Find(TCheckListbox(Sender).Items[i],myKat)

keinen Wert im Debuger?...

Ich hab doppelte Einträge, daher liefert das wohl falsche Werte welche ich nicht überprüfen kann.

[Luckie]

Wie lautet denn der Rückabewert und was steht nachher in Muskat für ein Index?

[Blackpit]

Was meinst du mit

Zitat:

Zitat von Luckie (Beitrag 1436197)

...was steht nachher in Muskat für ein Index?

Was ist Muskat?
Der Rückgabewert sollte Bool sein, der Debuger zeigt mir aber nichts:shock:

[Luckie]

myKat

Wie soll er auch was anzeigen, wenn du keine Variable zu weist? Aber geht er denn in den if-Zweig rein?

[Blackpit]

Also, der Find funktioniert auch wenn er den Wert des Ausdrucks nicht anzeigt ('Nicht verfügbarer Wert'), wieso weshalb wissen die Delphi-Götter;)
Die andere Frage beantworte ich mir selbst, sie agieren identisch.
Das Problem lag woanders, der gezeigte Code erfüllt allerdings noch nicht mein Vorhaben.

[Rolf Frei]

Zitat:

Zitat von Blackpit (Beitrag 1436182)

as nicht, die Liste aktuell zu halten hier mein Versuch:

Delphi-Quellcode:

    begin
        myLst:= TCheckListbox(Sender).Name;
       if not assigned(myselection) then myselection := TStringList.create;  //myselection.clear beim speichern
        begin
        myselection.Sort;
        TCheckListbox(Sender).Sorted := True;
          for i := TCheckListbox(Sender).Count-1 downto 0   do
//          if TCheckListbox(Sender).Checked[i] then
          if TCheckListbox(Sender).State[i] = cbChecked then
            begin
              if not (myselection.Find(TCheckListbox(Sender).Items[i],myKat)) then myselection.Add(TCheckListbox(Sender).Items[i]);
            end
            else
            if (myselection.Find(TCheckListbox(Sender).Items[i],myKat)) and (TCheckListbox(Sender).State[i] = cbUnChecked) then
                  myselection.Delete(TCheckListbox(Sender).ItemIndex);
        end;
    end;

Was mach ich falsch?

1. Wieso sortierst du myselection? Sehe da keinen Sinn und Bedarf darin. Nutze IndexOf anstelle von Find.
2. myselection ist wohl ein Feld deiner Form. Richtig? Versuche dich an di gängigen Namen/Formatregeln von Delphi anzupassen, damit die Wartung deinss Programms später mal einfacher wird. Verwende daher für Object-Felder das Format Fxxx. (FMySelection würde ich es nennen) So siehst du sofort im Code, dass das eine Object-Feldvariable ist.
3. Abfage auf Checked reicht hier, wenn deine Checkboxen nur True/False haben können. Wenn du noch den 3. Status (grayed) hast, wirst du State abfragen müssen. Soweit die Antwort wieso es Checked und State gibt.
4. Wenn du nur ein Clear beim Speichern machst, fehlt dir noch ein Free der Stringliste irgendwo. Das gehört in das OnDestroy Event der Form oder noch besser in einen überschriebenen Destructor deiner Form.

Habe dir mal den Code so angepasst, wie ich das machen würde:

Delphi-Quellcode:

var
  StrIdx: Integer;
begin
        // myLst:= TCheckListbox(Sender).Name; ???
        if not Assigned(FMySelection) then 
          FMySelection := TStringList.Create;  //FMySelection.clear beim speichern
        // begin <- unnötig!
        //myselection.Sort;  // wofür?
        //TCheckListbox(Sender).Sorted := True;  // wofür?
          for i := 0 to TCheckListbox(Sender).Count-1 do
          begin 
            StrIdx := FMySelection.IndexOf(TCheckListbox(Sender).Items[i]);
            if TCheckListbox(Sender).Checked[i] then
            begin
              if StrIdx = -1 then  // Text nicht vorhanden
                FMySelection.Add(TCheckListbox(Sender).Items[i]);
            end
            // Checked muss hier nicht abgefragt werden, da das durch das if/else bereits geregelt ist.
            else if (StrIdx <> -1) then  
            begin
              FMySelection.Delete(StrIdx);
            end;
          end;
end;

[Delphi.Narium]

Zitat:

Zitat von Delphihilfe

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

Zitat:

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:

Zitat von Rolf Frei (Beitrag 1436215)

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;)