Hallo Matt,
wenn Du ein DBGrid verwendest, mußt Du nicht alles in einen Stream speichern.
Du kannst auch durch die ausgewählten Zeilen mit einer Schleife durchlaufen:
Setzte die Optiopnen vom DBGrid auf dgMultiSelect, und nutze das Beispiel
der
Zitat von
Online Hilfe:
// Das folgende Beispiel kopiert markierte Zeilen eines
DB - Gitters in ein Listenfeld.
Delphi-Quellcode:
PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
i, j : Integer;
s : STRING;
BEGIN
IF DBGrid1.SelectedRows.Count > 0 THEN
WITH DBGrid1.DataSource.DataSet DO
FOR i := 0 TO DBGrid1.SelectedRows.Count - 1 DO
BEGIN
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
FOR j := 0 TO FieldCount - 1 DO
BEGIN
IF (j > 0) THEN s := s + ', ';
s := s + Fields[j].AsString;
END;
Listbox1.Items.Add(s);
s := '';
END;
END;