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