1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TBuchMain.qSchuelerSort(Sender: TObject);
begin
  screen.cursor := crhourglass;
  QSchueler.close;
    QSchueler.DatabaseName  := listbox11.items[listbox11.itemindex];   // Fehler ist hier -  nur nach dem Wechseln!
    QSchueler.sql.clear;
    QSchueler.sql.text :=  //format('select * from "%s" ... zu viele Felder
      format('select NAME, VORNAME, KLASSE, GESCHLECHT, GEBDAT, TELEFON, FSPRACHE1, FSPRACHE2, '+
                    'WPK1NAME, WPK2NAME, WPK3NAME, WPK4NAME '+
               'from "%s" order by KLASSE asc, NAME asc, Vorname asc', [TbSchueler.tablename]);
    QSchueler.prepare;
  QSchueler.open;
  datasource1.dataset := QSchueler;
  screen.Cursor := crdefault;
end;

1:
2:
3:

qx.SQL.Text := format('select Name, Vorname, Klasse, Gebdat, Telefon from "%s" ' +
                            'where gebdat like "%s" ' +
                            'order by Name, Vorname, Klasse', [TbName, Tag_Mon]);