Datenbank Feld als Variable deklarieren

[thiagojonas]

Dank kumpel

so ist es richtig:

Delphi-Quellcode:

...if dauer_cb.ItemIndex = 0 then
begin
ADOQuery2.SQL.Text := 'select `fach` from `lehrer` where `lehrer` = '''+Combobox1.Text+''';';
ADOQuery2.Open;
fach := ADOQuery2.FieldByName('fach').AsString ;
listbox1.AddItem(inttostr(i) + '. ' + time + ' ' + Combobox1.Text + ' ' + fach + ', ' + dauer_cb.Text + ' ' + ' Stunde',listbox1);
  i:= i+1;
  end
else...