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;