Stringgrid aus Datenbank füllen

[Luckner]

Was stimmt nicht an der while-Schleife. Ohne Diese wird in einer Zelle der Text geschrieben. Mit der Schleife, gar nichts.

Delphi-Quellcode:

procedure TForm1.Gridfuellen();
begin
  DataModuleTODOList.IBDatabaseTODOList.Connected := true;
  Datamodule1.DataModuleTODOList.IBDataSet1.Open;
  Datamodule1.DataModuleTODOList.IBDataSet1.Close;
  Datamodule1.DataModuleTODOList.IBDataSet1.SelectSQL.Clear;
  Datamodule1.DataModuleTODOList.IBDataSet1.SelectSQL.Add('select * from EREIGNISSE where KW = ' + QuotedStr(LabelKW.Caption) + ' and JAHR = ' + LabelJahr.Caption + ' order by ZEILE, SPALTE');
  Datamodule1.DataModuleTODOList.IBDataSet1.Open;
  if Datamodule1.DataModuleTODOList.IBDataSet1.IsEmpty then
     begin
       ShowMessage('noch keinen Eintrag gefunden');
     end
  else
     begin
       Datamodule1.DataModuleTODOList.IBDataSet1.First;

       while Datamodule1.DataModuleTODOList.IBDataSet1.Eof do
          begin
            StringGrid1.Cells[Datamodule1.DataModuleTODOList.IBDataSet1ZEILE.AsInteger, Datamodule1.DataModuleTODOList.IBDataSet1SPALTE.AsInteger] := Datamodule1.DataModuleTODOList.IBDataSet1TEXT.Value;
            Datamodule1.DataModuleTODOList.IBDataSet1.Next;
          end;
     end;
end;

Luckner