Listbox Eintäge in TLabel anzeigen.

[Matze]

Hallo,

ich habe mir das nicht alles durchgelesen, aber eines ist mir aufgefallen: Du greifst außerhalb der Schleife auf die Laufvariable "anzahl" zu. Das würde ich nicht unbedingt machen, falls es beabsichtigt ist.

Grüße

[Fussball-Robby]

Da fehlt ganz einfach ein begin..end. Denn jetzt wird nur der Befehl, der unmittelbar nach dem do steht, in der Schlaife ausgeführt. Der Teil, wo die Items ans Label angehängt werden, wird erst nach der Schleife ausgeführt, und dann hat die Zählvariable den Wert des höchsten Index, weshalb nur das letzte Item angehängt wird. Also: Nach dem do ein begin, und am ende ein end;

[thiagojonas]

habs jetzt so und es klappt nicht

Delphi-Quellcode:

procedure TForm1.add_btnClick(Sender: TObject);
var anzahl : integer;
begin
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);
  for anzahl := 0 to Pred(lehrer_list.Items.Count) do
begin
  lehrer.Caption := lehrer_list.Items[anzahl] + ' : _______________' + #13#10;
      end;
    end;
  end;

Wofür ist denn das eigentlich?

Pred(lehrer_list.Items.Count)

[soulies]

hoi,

Zitat:

Wofür ist denn das eigentlich?

Pred(lehrer_list.Items.Count)

Die Funktion gibt den Vorgänger des Arguments zurück.

Du ersetzt damit 'lehrer_list.Items.Count-1' .

zum code:

lehrer_list ist eine listbox ?

Delphi-Quellcode:

begin
  if (lehrer_cb.ItemIndex < 0) then
    begin
      Application.MessageBox('Wählen Sie bitte eine betroffene Lehrkraft aus!', 'Fehler', MB_ICONINFORMATION or MB_OK);
    end
  else // ItemIndex ist damit >= 0
    begin
      lehrer_list.Items.Add(lehrer_cb.Text);
      lehrer.Caption := EmptyStr ;
      for anzahl := 0 to Pred(lehrer_list.Items.Count) do
      begin
        lehrer.Caption := lehrer.Caption + lehrer_list.Items.Strings[anzahl] + ' : _______________' + #13#10;
      end;
    end;
end;

so müsste es gehen


cya

[thiagojonas]

Jawohl, super
Vielen Dank.

Wo wir grad beim Thema sind:
Ich möchte dann dieses Label ausdrucken. Das Problem ist, das Canvas '#13#10' ignoriert, das heißt die Werte werden intereinander bis über das Blatt hinaus ausgedruckt.
Weiß jemand wie man das lösen könnte?

Danke

[DeddyH]

Neue Frage, neuer Thread bitte.

[thiagojonas]

Okay!