Listbox Eintäge in TLabel anzeigen.

[thiagojonas]

Hallo, ich möchte gerne die werte einer listbox in einem Label anzeigen lassen.

Z.B. Listboxeiträge

Affe
Hund
Katze


Dann

Delphi-Quellcode:

Label.Caption := Listbox.Items[i] (for-Schleife).

Ich möchte aber gerne, dass die alle untereinander stehen.
Also irdendwie so:

Delphi-Quellcode:

Label.Caption := Listbox.Items[0] +#13#10 + Listbox.Items[1]  +#13#10 + Listbox.Items[2]+ etc.

Wie kann ich das machen?

Geht es, dass man dann für die einzelnen Werte nochwas hinzufügt, z.B "87".
Dann würde das im Label so aussehen.

Affe 87
Hund 87
Katze 87

Danke im voraus :-D

[Fussball-Robby]

Delphi-Quellcode:

Label1.Caption := ListBox1.Items.Text;

So hast du die Einträge der ListBox untereinander im Label. Wenn du dahinter etwas einfügen möchtest, könntest du per for-Schleife an die einzelnen Items der ListBox den gewünschten String anhängen.

[DeddyH]

Wenn Du im Label AutoSize auf false und Wordbreak auf true stellst, hast Du die Lösung ja (fast) schon selbst gepostet.

[edit] Habe gerade festgestellt, dass die genannten Einstellungen noch nicht einmal nötig sind. [/edit]

[thiagojonas]

Zitat:

Zitat von Fussball-Robby

Delphi-Quellcode:

Label1.Caption := ListBox1.Items.Text;

So hast du die Einträge der ListBox untereinander im Label. Wenn du dahinter etwas einfügen möchtest, könntest du per for-Schleife an die einzelnen Items der ListBox den gewünschten String anhängen.

Also eigentlich so!?

Delphi-Quellcode:

for i := listbox.items.count -1 to 0 do
begin
listbox.items.text[i] + '87';
end;

[DeddyH]

Zitat:

Delphi-Quellcode:

for i := listbox.items.count -1 to 0 do
begin
listbox.items.text[i] + '87';
end;

*Ouch*. Das ist weder eine Anweisung noch eine Zuweisung. Wo willst Du die 87 denn anhängen, in den Items der Listbox oder bei der Anzeige im Label? Und soll die Schleife vorwärts oder rückwärts durch die Items laufen? So wie oben wird das jedenfalls nix.

[Fussball-Robby]

Zitat:

Zitat von thiagojonas

Delphi-Quellcode:

for i := listbox.items.count -1 to 0 do
begin
listbox.items.text[i] + '87';
end;

Nein, so weist du ja nichts zu, es müsste dann so aussehen:

Delphi-Quellcode:

Listbox1.Items[i] := Listbox.Items[i] + '87';

Du kannst das '87' aber auch erst bei der Ausgabe anhängen:

Delphi-Quellcode:

var
  i: Integer;
begin
  Label1.Caption := '';//Label leeren
  for i := 0 to Pred(Listbox1.Items.Count) do//alle Einträge durchgehen
    Label1.Caption := Label1.Caption + Listbox1.Items[i] + ' 87' + sLineBreak;
    //aktuellen Eintrag, die '87' und einen Zeilenumbruch anhängen
end;

[thiagojonas]

Quatsch, was ich da geschrieben habe.

Delphi-Quellcode:

listbox.items.text + '87'

klappt schon mal, nur halt nicht der der selber reihe, sonder immer eine drunter. :gruebel:

[thiagojonas]

Zitat:

var
i: Integer;
begin
Label1.Caption := '';//Label leeren
for i := 0 to Pred(Listbox1.Items.Count) do//alle Einträge durchgehen
Label1.Caption := Label1.Caption + Listbox1.Items[i] + ' 87' + sLineBreak;
//aktuellen Eintrag, die '87' und einen Zeilenumbruch anhängen
end;

Leider funktioniert das nicht, ganz, es werden nicht alle einträge in der listbox gezeigt, sondern nur den eintrag, der zuletzt hinzugefügt wurde. :gruebel:

[DeddyH]

Zieh das Label mal höher, vielleicht ist es nur zu klein.

[thiagojonas]

Ne daran liegt es nicht.
Hier mein Code, vielleicht ist da ein Fehler?

Delphi-Quellcode:

procedure TForm1.add_btnClick(Sender: TObject);
var anzahl : integer;
begin
for anzahl := 0 to Pred(lehrer_list.Items.Count) do
if lehrer_cb.ItemIndex = -1 then
begin
  Application.MessageBox('Wählen Sie bitte eine betroffene Lehrkraft aus!', 'Fehler', MB_ICONINFORMATION or MB_OK);
end;

  if (lehrer_cb.ItemIndex >= 0)then
begin
  lehrer_list.AddItem(lehrer_cb.Text,lehrer_list);
  lehrer.Caption := lehrer_list.Items[anzahl] + ' : _______________' + sLineBreak;
  end;
end;