CheckListBox

[Kunoishi]

ich verwende derzeit folgenden code

Delphi-Quellcode:

procedure TSachverhaltForm.AnzeigengrundBoxClick(Sender: TObject);
begin                                                
  Case Anzeigengrundbox.ItemIndex of                 
    0: EditAnzeigengrund.Text :='Blume';         
    1: EditAnzeigengrund.Text :='Wasser';    
    2: EditAnzeigengrund.Text :='Luft';            
    3: EditAnzeigengrund.Text :='sdsdsds'; 
    4: EditAnzeigengrund.Text :='sdfsfs';             
    5: EditAnzeigengrund.Text :='räubgfdhgdg';
    6: EditAnzeigengrund.Text :='sfsfsf';
    7: EditAnzeigengrund.Text :='Sachfsbesdfsdf';  
    8: EditAnzeigengrund.Text :='Unten';    
    9: EditAnzeigengrund.Text :='Oben'; 
  end;
end;

in meinem Editfel sollen aber beim ankreuzen der auswahlfelder mehrere Sachinhalte stehen
"Blume, Wasser, sdsdsd und Oben"
ich bekomme aber nur einen ausdruck in meinem Editfeld hin

worin liegt das lösungsproblem ?

[Luckie]

Du musst die in einer Schleife die Einträge der Checklistbox durchgehen und gucken, ob sie ausgewählt sind und wenn sie es sind dem Text im Eingabefeld hinzufügen.

[Kunoishi]

wo soll ich hier die schleife ansetzen ?
ich glaube dit is zu spät für mich heute
ich stehe auf der leitung

[Popov]

Sind die Werte "Blume", "Wasser", usw. nur in der Case Anweisung oder oder auch Item-String?

[Kunoishi]

nur in der Case

[Popov]

Dann kannst du es vergessen. Du fragst Case über ItemIndex (also aktuellen Index) ab, willst aber alle gecheckten Werte haben. Wie soll das gehen? Dein Ansatz ist falsch. Letztendlich kriegt man alles programmiert und mit einem Aufwand auch CheckListBox die man über Case abfragen kann, aber das paßt nicht.

[Kunoishi]

ups, da habe ich das pferd von hinten bestiegen .

wie ist es dann aber richtig?

[Mithrandir]

Zitat von Kunoishi:

ups, da habe ich das pferd von hinten bestiegen .

*pruust*

Der war gut. Ich hoffe doch aber, du hast das Pferd nicht "bestiegen", sondern "aufgezäumt". Das Besteigen überlass lieber dem Hengst.


Du gehst mit der Schleife durch alle Einträge, und schreibst die Einträge, die "gechecked" sind, ins Editfeld.

//Ausm Kopf, musst du evtl. Anpassen:

Delphi-Quellcode:

Editfeld.Text := '';
for i := 0 to Combobox.Items.Count - 1 do
begin
  if Combobox.checked[i] then
    Editfeld.Text := Editfeld.Text + Combobox.Item[i].Text;
end;

[Popov]

Ich weiß nicht was du progen willst. In der Regel ist es so, daß man die CheckListBox dazu nutzt um bestimmte Einträge in der ListBox auswählen, bzw. checken zu können. Aber etwas in der Checklistbox checken aber über Case wählen... also das ist schon mal doppelte Pflege.

Mal eine Frage vorab: können die Werte nicht so wie sie in Case sind in der CheckListBox vorkommen?

[Popov]

Hier ein Beispiel für eine CheckListBox in der sich die Werte aus der Case Anweisung von oben befinden:

Delphi-Quellcode:

var
  i: Integer;
  s: String;
begin
  s := '';
  with CheckListBox1 do
  for i := 0 to Count - 1 do
    if Checked[i] then
      if s = '' then  s := Items[i]
        else s := s + ', ' + Items[i];

  ShowMessage(s);
end;

Alle gecheckten Werte bilden eine Aufzählung.