Hmm... Irgendwie klappt das nicht ganz. (es werden willkürlich die werte ausgewählt)
Oder mache ich was falsch?
Delphi-Quellcode:
...if dauer_cb.ItemIndex = 0 then
begin
ADOQuery2.Open;
fach := ADOQuery2.FieldByName('fach').AsString ;
ADOQuery2.SQL.Text := 'select `fach` from `lehrer` where `lehrer` = '''+Combobox1.Text+''';';
listbox1.AddItem(inttostr(i) + '. ' + time + ' ' + Combobox1.Text + ' ' + fach + ', ' + dauer_cb.Text + ' ' + ' Stunde',listbox1);
i:= i+1;
end
else...