Selektierte Einträge in DBRichEdit schrieben

[Christian18]

Hallo,

ich habe ein kleines Problem. Ich will in mein DBGrid mehrere Datensätze auswählen. Dazu habe ich folgende Procedure gefunden.

Delphi-Quellcode:

  var i : Integer;
      m : TBookmark;
begin
  with DBGrid1, DBGrid1.DataSource.DataSet do
    begin
      m:=GetBookmark;
      for i:=0 to SelectedRows.Count - 1 do
        begin
          Bookmark:=SelectedRows.Items[i];
          GotoBookmark(pointer(SelectedRows.Items[i]));
          Form2.DBRichEdit1.Lines.Add('      - ' + FieldByName('Feld001').AsString);
        end;
      GotoBookmark(m);
    end;