Einzelnen Beitrag anzeigen

soulies

Registriert seit: 9. Dez 2005
234 Beiträge
 
#14

Re: Listbox Eintäge in TLabel anzeigen.

  Alt 10. Dez 2008, 07:40
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
  Mit Zitat antworten Zitat