Obwohl, ich hätte doch noch eine Frage:
es wird immer nur der allererste Eintrag aus der Tabelle in alle Zeilen des Grids geschrieben.
Delphi-Quellcode:
for count := 0 to Pred(Query1.RecordCount) do begin
for y:=1 to Pred(Query1.RecordCount) do begin
daten[y-1].klasse:=Query1.FieldByName('KLASSEN').AsString;
daten[y-1].stunde:=Query1.FieldByName('S').AsInteger;
daten[y-1].fuer:=Query1.FieldByName('FUER').AsString;
daten[y-1].wer:=Query1.FieldByName('WER').AsString;
daten[y-1].fach:=Query1.FieldByName('FACH').AsString;
daten[y-1].raum:=Query1.FieldByName('RAUM').AsString;
daten[y-1].bemerkung:=Query1.FieldByName('BEMER_SCH').AsString;
end;
end;
Was müsste ich daran ändern, damit es wieder stimmt?