Listbox Eintäge in TLabel anzeigen.

[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