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)